You can duke it out with a friend, but be careful not to fall into the star in this exclusive Spacewar clone written in Apple Logo.

Seymour Papert’s Logo programming language is perfect for a game like Spacewar – Logo uses vectors to draw graphics, unlike BASIC which typically plots pixels based on precise screen coordinates.

Rather than saying PLOT 50,100; PLOT 50,101 etc., Logo’s turtle occupies a certain position in Logo “space”, and can be moved relative to that position by using commands such as fd (forward), rt (right turn) and so forth.

By specifying whether the turtle’s “pen” (held in its tail) is up or down, it can draw a trail behind it as it moves, and this is how Spacewar renders its graphic elements.

In Logo Spacewar there are two ships, each of which can rotate left or right, thrust forward or in reverse, fire a missle, or jump to hyperspace (move to a random location on the screen – although sometimes it causes your ship to explode!) There’s also a star at the centre of the playfield that has a gravitational influence on the players and their missiles – crashing into it is fatal!

Once all of the code on these four pages is entered (don’t forget to save “spacewar) you start the game by calling the start procedure along with a game length, for example start 1000. The game will begin and a timer will start counting down from the number you specified, in this case 1000. The player with the most amount of points when the timer runs out wins!

Player one controls their ship with the up, down, left and right arrows, and the comma and period keys for hyperpsace and fire respectively. Player two uses D, X, Z and C, and Q and W.

Logo Notes

Unlike BASIC, which uses line numbers to direct program flow, Logo uses named procedures instead. Procedures contain a series of commands – such as ones to move the turtle, manipulate variables or make sounds – which fulfil the set aim of the procedure.

Procedures are declared with the command to followed by a unique name, and are finished with the command end. For example, the resetpositions procedure to the left, which defines the locations of the Spacewar elements at the start of the game, begins with to resetpositions. It is then followed by a series of commands which then do the actual work.

make is similar to the BASIC command LET – it assigns a value to a named variable, for example setting p1tx to 0. Variables can be copied to other variables, or used to calculate new values, such as in p1h :a1 + 90 (the colon denotes that a1 is another variable, since Logo allows you to string multiple commands on the same line, as in local “a2 make “a2 :a1 – 180 which both declares the variable a2 is local or only valid inside the resetpositions procedure, and sets a2 to a1-180).

Like BASIC, Logo uses the if command to make decisions regarding program flow. For example, in the last line within checkjs1 if is used to validate the two expressions :b > 0 and :p1 > 245. If both are found to be true, the program jumps to the procedure hyperspacep1, where player one, well, jumps to hyperspace.

When the hyperspace procedure ends, it will return back to the procedure that called it. But the hyperspace procedure could jump someplace else before that happens, and the program flow may never return back to hyperspace nor checkjs1! (There’s no requirement that it should.) So, while the lack of line numbers or GOTO may seem restrictive on the surface, Logo’s program flow can really be quite complex.

The program:

to resetlevel

make “hypersuccess 70

make “missilelife 50

make “gravitystrength 2

make “thrust 0.3

make “turn 10

make “p1x -30

make “p1y 30

make “p1h 45

make “p1size 2

make “p1tx 0

make “p1ty 0

make “p1tc 0

make “p1gx 0

make “p1gy 0

make “p2x 30

make “p2y -30

make “p2h 275

make “p2size 2

make “p2tx 0

make “p2ty 0

make “p2tc 0

make “p2gx 0

make “p2gy 0

make “m1x 0

make “m1y 0

make “m1h 0

make “m1tx 0

make “m1ty 0

make “m1life 0

make “m2x 0

make “m2y 0

make “m2h 0

make “m2tx 0

make “m2ty 0

make “m2life 0

make “update 1

make “px2km 20

make “gconst 2.53932807e+21

make “pixelm 1200000

make “starx 0

make “stary 0

make “stars 3

make “scoreupdate 1

resetpositions

end

to addscorep1 :amt

make “p1score :p1score + :amt

make “scoreupdate 1

end

to addscorep2 :amt

make “p2score :p2score + :amt

make “scoreupdate 1

end

to drawscores

if :scoreupdate = 0 [stop]

cleartext

setcursor list 10 20

pr “p1

setcursor list 30 20

pr “p2

setcursor list 10 21

pr :p1score

setcursor list 30 21

pr :p2score

make “scoreupdate 0

end

to drawtimer

setcursor list 17 22

local “sp make “sp char 32

pr se “TIME :cyclecount :sp

end

to resetp1

local “r make “r 60 + random 20

local “a1 make “a1 random 360

make “p1x :r * sin :a1

make “p1y :r * cos :a1

make “p1h :a1 + 90

make “p1tx 0

make “p1ty 0

make “p1tc 0

end

to resetp2

local “r make “r 60 + random 20

local “a1 make “a1 random 360

make “p2x :r * sin :a1

make “p2y :r * cos :a1

make “p2h :a1 + 90

make “p2tx 0

make “p2ty 0

make “p2tc 0

end

to resetpositions

local “r make “r 60 + random 20

local “a1 make “a1 random 360

local “a2 make “a2 :a1 – 180

make “p1x :r * sin :a1

make “p1y :r * cos :a1

make “p2x :r * sin :a2

make “p2y :r * cos :a2

make “p1h :a1 + 90

make “p2h :a2 + 90

make “p1tx 0

make “p1ty 0

make “p2tx 0

make “p2ty 0

end

to star :x :y :size :pc

ht

setx :x

sety :y

setheading random 360

setpc :pc

pu

fd :size

pd

bk 2 * :size

pu

fd :size

lt 90

pu

fd :size

pd

bk 2 * :size

pu

end

to ship :x :y :h :size :tailsize :pc

ht

setpc :pc

setheading :h

setx :x

sety :y

make “a :size

make “b :size * 2

make “t :a * :a + :b * :b

make “c sqrt :t

pu

fd :a

pd

lt difference 180 26.6

fd :c

lt difference 180 63.4

fd :b

lt difference 180 63.4

fd :c

pu

lt difference 180 26.6

fd :b

if :tailsize = 0 [lt 180 stop]

setpc 13

pd

fd :tailsize

pu

lt 180

end

to missile :x :y :h :size :pc :life

if :life = 0 [stop]

ht

setpc :pc

setheading :h

setx :x

sety :y

pd

fd :size

pu

end

to frame

ht

if :update = 0 [stop]

make “update 0

clean

star :starx :stary :stars 13

ship :p1x :p1y :p1h :p1size :p1tc 3

ship :p2x :p2y :p2h :p2size :p2tc 5

missile :m1x :m1y :m1h 3 14 :m1life

missile :m2x :m2y :m2h 3 14 :m2life

drawscores

drawtimer

end

to firep1

if :m1life > 0 [stop]

make “m1life :missilelife

make “m1tx :p1tx + 1 * sin :p1h

make “m1ty :p1ty + 1 * cos :p1h

make “m1x :p1x + :m1tx

make “m1y :p1y + :m1ty

make “m1h :p1h

end

to firep2

if :m2life > 0 [stop]

make “m2life :missilelife

make “m2tx :p2tx + 1 * sin :p2h

make “m2ty :p2ty + 1 * cos :p2h

make “m2x :p2x + :m2tx

make “m2y :p2y + :m2ty

make “m2h :p2h

end

to boosterp1 :power1 :heading1

make “p1tx :p1tx + :power1 * sin :heading1

make “p1ty :p1ty + :power1 * cos :heading1

if :power1 > 0 [ make “p1tc :p1tc + 5 ]

if :power1 < 0 [ make “p1tc :p1tc – 5 ]

if :p1tc > 20 [ make “p1tc 20 ]

if :p1tc < -20 [ make “p1tc -20 ]

end

to boosterp2 :power2 :heading2

make “p2tx :p2tx + :power2 * sin :heading2

make “p2ty :p2ty + :power2 * cos :heading2

if :power2 > 0 [ make “p2tc :p2tc + 5 ]

if :power2 < 0 [ make “p2tc :p2tc – 5 ]

if :p2tc > 20 [ make “p2tc 20 ]

if :p2tc < -20 [ make “p2tc -20 ]

end

to gravitycalc :sx :sy :x1 :y1

local “dx

make “dx difference :sx :x1

local “dy

make “dy difference :sy :y1

local “s

make “s :dx * :dx + :dy * :dy

local “d

make “d sqrt :s * :pixelm

local “r3

make “r3 :d * :d * :d

local “f

make “f :gconst / :r3

local “t

make “t abs :dx + abs :dy

local “gx

make “gx :dx / :t * :f

local “gy

make “gy :dy / :t * :f

output :gx * :gravitystrength :gy * :gravitystrength

end

to checkjs1

local “p0

make “p0 paddle 0

local “p1

make “p1 paddle 1

local “b

make “b buttonp 0

if :b = 0 and :p0 < 20 [make “p1h :p1h – :turn]

if :b = 0 and :p0 > 245 [make “p1h :p1h + :turn]

if :b = 0 and :p1 < 20 [ boosterp1 :thrust :p1h ]

if :b = 0 and :p1 > 245 [ boosterp1 0 – :thrust :p1h ]

if :b > 0 and :p1 < 245 [ firep1 ]

if :b > 0 and :p1 > 245 [ hyperspacep1 ]

end

to checkjs2

local “p2

make “p2 paddle 2

local “p3

make “p3 paddle 3

local “b

make “b buttonp 1

if :b = 0 and :p2 < 20 [make “p2h :p2h – :turn]

if :b = 0 and :p2 > 245 [make “p2h :p2h + :turn]

if :b = 0 and :p3 < 20 [ boosterp2 :thrust :p2h ]

if :b = 0 and :p3 > 245 [ boosterp2 0 – :thrust :p2h ]

if :b > 0 and :p3 < 245 [ firep2 ]

if :b > 0 and :p3 > 245 [ hyperspacep2 ]

end

to checkkeys

if not keyp [ stop ]

make “code ascii readchar

if :code = 8 [ make “p1h :p1h – :turn ]

if :code = 21 [ make “p1h :p1h + :turn ]

if :code = 11 [ boosterp1 :thrust :p1h ]

if :code = 10 [ boosterp1 0 – :thrust :p1h ]

if :code = 122 [ make “p2h :p2h – :turn ]

if :code = 99 [ make “p2h :p2h + :turn ]

if :code = 100 [ boosterp2 :thrust :p2h ]

if :code = 120 [ boosterp2 0 – :thrust :p2h ]

if :code = 44 [ hyperspacep1 ]

if :code = 46 [ firep1 ]

if :code = 113 [ hyperspacep2 ]

if :code = 119 [ firep2 ]

make “update 1

end

to checkboundsp1

if :p1x < -140 [ make “p1x 140 stop ]

if :p1x > 140 [ make “p1x -140 stop ]

if :p1y < -80 [ make “p1y 80 stop ]

if :p1y > 80 [ make “p1y -80 stop ]

end

to checkboundsp2

if :p2x < -140 [ make “p2x 140 stop ]

if :p2x > 140 [ make “p2x -140 stop ]

if :p2y < -80 [ make “p2y 80 stop ]

if :p2y > 80 [ make “p2y -80 stop ]

end

to checkboundsm1

if :m1x < -140 [ make “m1x 140 stop ]

if :m1x > 140 [ make “m1x -140 stop ]

if :m1y < -80 [ make “m1y 80 stop ]

if :m1y > 80 [ make “m1y -80 stop ]

end

to checkboundsm2

if :m2x < -140 [ make “m2x 140 stop ]

if :m2x > 140 [ make “m2x -140 stop ]

if :m2y < -80 [ make “m2y 80 stop ]

if :m2y > 80 [ make “m2y -80 stop ]

end

to moveshipp1

local “gravity

make “gravity gravitycalc :starx :stary :p1x :p1y

make “p1tx :p1tx + first :gravity

make “p1ty :p1ty + last :gravity

make “p1x :p1x + :p1tx

make “p1y :p1y + :p1ty

checkboundsp1

make “update 1

if :p1tc > 0 [make “p1tc :p1tc – 1]

end

to moveshipp2

local “gravity

make “gravity gravitycalc :starx :stary :p2x :p2y

make “p2tx :p2tx + first :gravity

make “p2ty :p2ty + last :gravity

make “p2x :p2x + :p2tx

make “p2y :p2y + :p2ty

checkboundsp2

make “update 1

end

to movemissile1

if :m1life = 0 [stop]

make “m1life :m1life – 1

local “gravity

make “gravity gravitycalc :starx :stary :m1x :m1y

make “m1tx :m1tx + first :gravity

make “m1ty :m1ty + last :gravity

make “m1x :m1x + :m1tx

make “m1y :m1y + :m1ty

checkboundsm1

make “update 1

end

to movemissile2

if :m2life = 0 [stop]

make “m2life :m2life – 1

local “gravity

make “gravity gravitycalc :starx :stary :m2x :m2y

make “m2tx :m2tx + first :gravity

make “m2ty :m2ty + last :gravity

make “m2x :m2x + :m2tx

make “m2y :m2y + :m2ty

checkboundsm2

make “update 1

end

to shrinktails

if :p1tc > 0 [make “p1tc :p1tc – 1]

if :p2tc > 0 [make “p2tc :p2tc – 1]

if :p1tc < 0 [make “p1tc :p1tc + 1]

if :p2tc < 0 [make “p2tc :p2tc + 1]

end

to distance :x1 :y1 :x2 :y2

local “dx

make “dx difference :x1 :x2

local “dy

make “dy difference :y1 :y2

local “s

make “s :dx * :dx + :dy * :dy

local “d

make “d sqrt :s

output :d

end

to explode

toot 200 120

end

to explodep1 :points

star :p1x :p1y 3 13

addscorep2 :points

explode

resetp1

end

to explodep2 :points

star :p2x :p2y 3 13

addscorep1 :points

explode

resetp2

end

to wormhole :x :y :max :angle :pc

local “s make “s 1

pu

setx :x

sety :y

pd

setpc :pc

repeat :max [ fd :s rt :angle make “s :s + 1 ]

pu

end

to hyperspacep1

local “r make “r random 100

if :r > :hypersuccess [explodep1 1000 stop]

wormhole :p1x :p1y 10 90 14

make “p1x random 280 – 140

make “p1y random 192 – 96

make “p1h random 360

make “p1tc 0

wormhole :p1x :p1y 10 90 14

toot 1000 3

toot 777 6

toot 333 3

toot 111 10

end

to hyperspacep2

local “r make “r random 100

if :r > :hypersuccess [explodep2 1000 stop]

wormhole :p2x :p2y 10 90 14

make “p2x random 280 – 140

make “p2y random 192 – 96

make “p2h random 360

make “p2tc 0

wormhole :p2x :p2y 10 90 14

toot 1000 3

toot 777 6

toot 333 3

toot 111 10

end

to checkstar :x :y :size :pnum

local “d

make “d distance :x :y :starx :stary

if :d > 2 * :stars [stop]

star :x :y :size 13

if :pnum = 1 [explodep1 100]

if :pnum = 2 [explodep2 100]

end

to checkplayermissle :x :y :mx :my :size :pnum :mnum

local “d

make “d distance :x :y :mx :my

if :d > 4 * :size [stop]

star :x :y :size 13

if :pnum = 1 [explodep1 1000]

if :pnum = 2 [explodep2 1000]

if :pnum = 3 [toot 2000 10]

if :mnum = 1 [make “m1life 0 make “m1x 0 make “m1y 0]

if :mnum = 2 [make “m2life 0 make “m2x 0 make “m2y 0]

end

to checkmissiles

checkmissiles1

checkmissiles2

end

to checkmissiles1

if :m1life = 0 [stop]

if :m1life > 45 [stop]

checkplayermissle :p1x :p1y :m1x :m1y 1 1 1

checkplayermissle :p2x :p2y :m1x :m1y 1 2 1

checkplayermissle :starx :stary :m1x :m1y 2 3 1

end

to checkmissiles2

if :m2life = 0 [stop]

if :m2life > 45 [stop]

checkplayermissle :p1x :p1y :m2x :m2y 1 1 2

checkplayermissle :p2x :p2y :m2x :m2y 1 2 2

checkplayermissle :starx :stary :m2x :m2y 2 3 2

end

to checkplayerstar

checkstar :p2x :p2y :p2size 2

checkstar :p1x :p1y :p1size 1

end

to checkships

local “d

make “d distance :p1x :p1y :p2x :p2y

if :d > :p1size [stop]

star :p1x :p1y :p1size 13

star :p2x :p2y :p2size 13

explode

resetpositions

end

to movethings

movemissile1

movemissile2

moveshipp2

moveshipp1

end

to checkinputs

checkkeys

checkjs1

checkjs2

end

to checkthings

checkships

checkmissiles

checkplayerstar

checkinputs

end

to finishgame

cleartext

setcursor list 0 20

if :p1score > :p2score [ pr [PLAYER ONE WINS] ]

if :p2score > :p1score [ pr [PLAYER TWO WINS] ]

if :p2score = :p1score [ pr [DRAW] ]

pr [Type start number to start the game.]

end

to mainloop

ht

shrinktails

checkthings

movethings

frame

wait 1

make “cyclecount :cyclecount – 1

if :cyclecount > 0 [ mainloop ]

finishgame

end

to start :cycles

make “cyclecount :cycles

make “p1score 0

make “p2score 0

resetlevel

mainloop

end

start 1000

## Be the first to comment