PAL 2 TEXT 0,0,"$: #:" REM WAS8BIT GAMEPAD 1 RANDOMIZE TIMER DIM YWAIT(8) PX=9 SCORE=0 JUMP=0 IFIRE=0 FIRED=0 LIVES$="LLLLLLLL" IDROP=0 DO PAL 2 NUMBER 2,0,SCORE,6 TEXT 12,0,LIVES$ PAL 0 IF RND(100)=0 THEN Y=RND(7)+1 C=2+RND(2)*3 IF Y\2=Y/2 THEN CELL 0,Y,C ELSE CELL 19,Y,C END IF FOR Y=1 TO 8 ADD YWAIT(Y),0.1,0 TO (9-Y) IF YWAIT(Y)=0 THEN IF Y\2=Y/2 THEN FOR X=20 TO -1 STEP -1 PAL CELL.A(X-1,Y) C0=CELL.C(X,Y) C1=CELL.C(X-1,Y) IF C1<10 AND C1>0 THEN CELL X,Y,C1 CELL X-1,Y,0 CALL DROP(X,Y,C1) END IF NEXT X ELSE FOR X=-1 TO 20 PAL CELL.A(X+1,Y) C0=CELL.C(X,Y) C1=CELL.C(X+1,Y) IF C1<10 AND C1>0 THEN CELL X,Y,C1 CELL X+1,Y,0 CALL DROP(X,Y,C1) END IF NEXT X END IF END IF NEXT Y CELL PX,15-JUMP,0 JUMP=0 IF RIGHT TAP(0) THEN IF PX<19 THEN INC PX ELSE IF LEFT TAP(0) THEN IF PX>0 THEN DEC PX ELSE IF UP(0) THEN JUMP=2 ELSE IF DOWN TAP(0) THEN IF JUMP=0 AND FIRED=0 THEN CELL PX,14,14 END IF IF BUTTON(0,0) THEN PP=3 ELSE IF BUTTON(0,1) THEN PP=5 ELSE PP=4 PAL PP CELL PX,15-JUMP,15 FIRED=0 FOR Y=2 TO 15 FOR X=0 TO 19 C=CELL.C(X,Y) IF C>0 THEN CU=CELL.C(X,Y-1) CD=CELL.C(X,Y+1) IF IDROP=0 THEN IF C=12 OR C=13 THEN PAL 1 CELL X,Y,C-2 PAL PP END IF IF C=10 OR C=11 THEN CELL X,Y,0 IF CD=0 THEN PAL 1 CELL X,Y+1,C+2 PAL PP ELSE IF CD=15 THEN IF C=10 THEN ADD SCORE,100 PLAY 2,60,10 ELSE IF C=11 THEN LIVES$=LEFT$(LIVES$,LEN(LIVES$)-1) IF LIVES$="" THEN TEXT 6,7,"GAME OVER" TEXT 12,0," " PLAY 3,20,100 WAIT 90 END END IF TEXT 12,0," " PLAY 3,50,10 END IF END IF END IF END IF IF C=14 THEN FIRED=1 ADD IFIRE,1,0 TO 5 IF IFIRE=0 THEN CELL X,Y,0 IF CU=0 THEN IF Y>2 THEN CELL X,Y-1,14 ELSE PLAY 0,90,1 IF CU<10 THEN CP=CELL.A(X,Y-1) PAL CP REM TRACE CP,PP IF CU=1 THEN IF CP=PP-3 THEN CELL X,Y-1,2 ELSE CELL X,Y-1,1 ELSE IF CU=2 THEN IF CP=PP-3 THEN CELL X,Y-1,3 ELSE CELL X,Y-1,1 ELSE IF CU=3 THEN IF CP=PP-3 THEN CELL X,Y-1,3 ELSE CELL X,Y-1,2 ELSE IF CU=4 THEN IF CP=PP-4 THEN CELL X,Y-1,5 ELSE CELL X,Y-1,4 ELSE IF CU=5 THEN IF CP=PP-4 THEN CELL X,Y-1,6 ELSE CELL X,Y-1,4 ELSE IF CU=6 THEN IF CP=PP-4 THEN CELL X,Y-1,6 ELSE CELL X,Y-1,5 ELSE IF CU=7 THEN IF CP=PP-5 THEN CELL X,Y-1,8 ELSE CELL X,Y-1,7 ELSE IF CU=8 THEN IF CP=PP-5 THEN CELL X,Y-1,9 ELSE CELL X,Y-1,7 ELSE IF CU=9 THEN IF CP=PP-5 THEN CELL X,Y-1,9 ELSE CELL X,Y-1,8 END IF END IF END IF END IF END IF END IF NEXT X NEXT Y ADD IDROP,1,0 TO 29 WAIT VBL LOOP SUB DROP(X,Y,C) IF CELL.C(X,Y+1)=0 THEN PLAY 1,20,1 IF C=3 OR C=6 OR C=9 THEN CELL X,Y+1,10 IF C=1 OR C=4 OR C=7 THEN CELL X,Y+1,11 END IF END SUB #1:MAIN PALETTES 023C0C33003F2A1500070702003C3C02 000C0C0200333302003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000042001824000000000000000000 00000042003C00000000000000000000 00000042002418000000000000000000 00000000000000000000004200182400 000000000000000000000042003C0000 00000000000000000000004200241800 00000042001824000000004200182400 00000042003C000000000042003C0000 00000042002418000000004200241800 00000010381000000000000000000000 00000000380000000000000000000000 00000010281000000000000000000000 00000000280000000000000000000000 00000010101000000000000000000000 101038387C7C44000000000000000000