childhood games
1984-2008 Eugenio Tisselli

track

Is it a ski track? A race track? A river? This game is simply called "track"... the rest depends on the player's imagination and ability.

Instructions

Move with the <- and-> keys ... Avoid the track's edges and the obstacles. If the keyboard is not responding, click on the game to activate it.

Play "Track"

Original code

Transcription

1 ?"[clr]"
2 ?"APRIETA UNA TECLA"
3 GET A$:IF A$="" THEN 2
4 ?"[clr]":C=1996
5 FOR A=1028 TO 1988 STEP 40
6 POKEA,42:POKEA+10,42:NEXT
7 FOR A=1 TO 2000:NEXT
8 POKEC+40,127:C=C+40
9 GET A$:IF A$="[right]" THEN POKEC,32:C=C-1
10 IF A$="[left]" THEN POKEC,32:C=C+1
11 X=INT(RND(1)*6)+1
12 PRINT"[S][Q][left][SHIFT INST]":POKE 218,156
13 ON X GOTO 14,15,16,17,18,19
14 E=1032:F=1037:GOTO 20
15 E=1032:F=1037:GOTO 20
16 E=1032:F=1037:GOTO 20
17 E=1032:F=1037:GOTO 20
18 E=1032:F=1037:GOTO 20
19 E=1032:F=1037:GOTO 20
20 POKEE,42:POKEF,42
30 IF PEEK(C)=42 THEN 33
31 IF PEEK(C+11)=32 THEN
32 GOTO 8
33 ?"[clr]****CRASH! BANG! POW!****"
34 ?"QUIERES VOLVER A JUGAR?"
35 GET A$:IF A$="" THEN 35

Commments

* Line 31 is a real mystery... I just can't understand what my intentions were. In any case, it's an unresolved IF-THEN statement, which will cause a syntax error if it's left as it is.

* Line 36 is missing; it should be something like:
36 IF A$="S" THEN 4
Without this line, the player will not have the possibility of starting over...

* Line 12 is a "dirty trick" to make the screen scroll from top to bottom. I don't know where I picked this up; from a technical point of view it's really a very strange thing.

New Processing code (download)

<<< back