Games
Stack'em
Posted December 23rd, 2007 by Edutainment in
Description:
Simple stacking game based upon Stackers machine in malls/arcades.Gameplay is simple. As the blocks bounce across the screen, press Z to stop them and go a level up. Try to stop the blocks on top of the previous blocks to stack them. If a block hangs off the edge, it will fall, and you will be left with the remaining number of blocks on following levels.Work in progress, should be done soon.
canvas_size:
10x10
Program:
10 REM Stack'em by Jordan Zanatta 23/12/2007
15 CLS
20 PRINT "* Stack'em *"
30 LET W=2
40 LET X=0
50 LET Y=0
60 LET P=100
70 FOR I = 1 TO 9-W
80 FOR J = 1 TO 10
90 PLOT J-1,Y,"gray"
100 NEXT J
110 PLOT X,Y,"white"
120 FOR J = 1 TO W
130 PLOT X+J,Y,"white"
140 NEXT J
150 LET X=X+1
160 PAUSE P
170 LET C = GETCHAR()
180 IF C = "Z" OR C = "z" THEN GOTO 400
190 NEXT I
200 FOR I = 1+W TO 9
210 FOR J = 1 TO 10
220 PLOT J-1,Y,"gray"
230 NEXT J
240 PLOT X,Y,"white"
250 FOR J = 1 TO W
260 PLOT X+J,Y,"white"
270 NEXT J
280 LET X=X-1
290 PAUSE P
300 LET C = GETCHAR()
310 IF C = "Z" OR C = "z" THEN GOTO 400
320 NEXT I
330 GOTO 70
400 IF X <> O THEN GOTO 500
420 LET X=0
430 LET Y=Y+1
440 GOTO 70
500 IF X < O THEN LET W=W-O-X
510 IF W < O THEN GOTO 600
520 IF X > O THEN LET W=W-X-O
530 LET X=0
540 LET Y=Y+1
550 GOTO 70
600 PRINT "You lost!"
610 END