DIM XDIR(4),YDIR(4),TOT(63) FOR I=1 TO 4 READ XDIR(I),YDIR(I) NEXT I DATA 0,-1,1,0,0,1,-1,0 REM WAS8BIT RANDOMIZE TIMER GAMEPAD 1 ILEVEL=0 LEVELUP: INC ILEVEL REPLAY: BG 1 CLS PAL 1 TEXT 0,0,"000.000.000" PAL 0 FOR Y=2 TO 14 STEP 2 FOR X=2 TO 18 STEP 2 CELL X-RND(1),Y-RND(1),9 R=RND(6) IF R=5 THEN CELL X+1,Y,9 IF R=6 THEN CELL X,Y+1,9 NEXT X NEXT Y C=99 WHILE C>0 X=RND(19) Y=RND(15) C=CELL.C(X,Y) WEND CELL X,Y,1 FOR I=1 TO ILEVEL C=99 WHILE C>0 X=RND(19) Y=RND(15) C=CELL.C(X,Y) WEND CELL X,Y,8 NEXT I DO TOT(9)=0 TOT(10)=0 TOT(11)=0 FOR Y=0 TO 15 FOR X=0 TO 19 C=CELL.C(X,Y) IF C>0 AND C<63 THEN IF Y>0 THEN INC TOT(C) IF C<5 THEN 'PLAYER PX=X PY=Y PC=C ADD PX,XDIR(C),0 TO 19 ADD PY,YDIR(C),0 TO 15 IF BUTTON(0,0) THEN FC=CELL.C(PX,PY) IF FC=0 THEN FIRE=C+32 IF PC=2 OR PC=3 THEN FIRE=FIRE+16 CELL PX,PY,FIRE PLAY 0,50,1 ELSE IF FC=9 OR FC=11 THEN CELL PX,PY,10 PLAY 0,90,1 END IF END IF ELSE IF UP(0) THEN CALL MOVEIT(C,1,X,Y,PX,PY,PC) ELSE IF RIGHT(0) THEN PC=C+16 CALL MOVEIT(C,2,X,Y,PX,PY,PC) ELSE IF DOWN(0) THEN PC=C+16 CALL MOVEIT(C,3,X,Y,PX,PY,PC) ELSE IF LEFT(0) THEN CALL MOVEIT(C,4,X,Y,PX,PY,PC) END IF ELSE IF C<9 THEN 'COMPUTER CX=X CY=Y CC=C ADD CX,XDIR(C-4),0 TO 19 ADD CY,YDIR(C-4),0 TO 15 COMP=RND(4) IF COMP>3 THEN FC=CELL.C(CX,CY) IF FC=0 THEN FIRE=C+32 IF CC=6 OR CC=7 THEN FIRE=FIRE+16 CELL CX,CY,FIRE PLAY 0,50,1 ELSE IF FC=9 OR FC=10 THEN CELL CX,CY,11 PLAY 0,90,1 END IF END IF ELSE IF COMP=0 THEN CALL MOVEIT(C,5,X,Y,CX,CY,CC) ELSE IF COMP=1 THEN CC=C+16 CALL MOVEIT(C,6,X,Y,CX,CY,CC) ELSE IF COMP=2 THEN CC=C+16 CALL MOVEIT(C,7,X,Y,CX,CY,CC) ELSE IF COMP=3 THEN CALL MOVEIT(C,8,X,Y,CX,CY,CC) END IF ELSE IF C>15 THEN IF C<24 THEN CELL X,Y,C-16 ELSE IF C<41 THEN IF C<37 THEN BC=C-32 ELSE BC=C-36 BX=X+XDIR(BC) BY=Y+YDIR(BC) CELL X,Y,0 IF BX>=0 AND BY>=0 AND BX<=19 AND BY<=15 THEN CBC=C IF C=34 OR C=35 OR C=38 OR C=39 THEN CBC=C+16 BB=CELL.C(BX,BY) IF BB=0 THEN CELL BX,BY,CBC ELSE PLAY 0,90,1 IF C<37 AND (BB=9 OR BB=11) THEN CELL BX,BY,10 IF C>36 AND (BB=9 OR BB=10) THEN CELL BX,BY,11 END IF END IF ELSE CELL X,Y,C-16 END IF END IF END IF NEXT X NEXT Y PAL 1 NUMBER 0,0,TOT(9),3 PAL 2 NUMBER 4,0,TOT(10),3 PAL 3 NUMBER 8,0,TOT(11),3 PAL 0 REM GOTO SKIP IF TOT(9)=0 THEN IF TOT(10)<20 THEN BG FILL 0,0 TO 19,15 CHAR 11 WAIT 90 GOTO REPLAY ELSE IF TOT(11)<20 THEN BG FILL 0,0 TO 19,25 CHAR 10 WAIT 90 GOTO LEVELUP END IF END IF SKIP: WAIT 6 LOOP SUB MOVEIT(C,CTARGET,X,Y,XX,YY,CC) IF C<>CTARGET THEN CELL X,Y,CTARGET ELSE IF CELL.C(XX,YY)=0 THEN CELL X,Y,0 CELL XX,YY,CC END IF END IF END SUB #1:MAIN PALETTES 050C230000000004000C0C0400232304 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 1800183C3C1800000000000000000000 0000183D3D1800000000000000000000 0000183C3C1800180000000000000000 000018BCBC1800000000000000000000 00000000000000001800183C3C180000 00000000000000000000183D3D180000 00000000000000000000183C3C180018 0000000000000000000018BCBC180000 7EFFFFFFFFFFFF7E7EFFFFFFFFFFFF7E 7EFFFFFFFFFFFF7E0000000000000000 00000000000000007EFFFFFFFFFFFF7E 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00003C3D3D3C00000000000000000000 00003C3C3C3C00180000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 000000000000000000003C3D3D3C0000 000000000000000000003C3C3C3C0018 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00100800000000000000000000000000 00000002040000000000000000000000 00000000001008000000000000000000 00000020400000000000000000000000 00000000000000000010080000000000 00000000000000000000000204000000 00000000000000000000000000100800 00000000000000000000002040000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000006060000000000000000000000 00000000001818000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000606000000 00000000000000000000000000181800