GAMEPAD 1 RANDOMIZE TIMER REM WAS8BIT DIM XDIR(3),YDIR(3) FOR I=0 TO 3 READ XDIR(I),YDIR(I) NEXT I DATA 1,0,0,1,-1,0,0,-1 IROUND=0 IRING=0 ISCORE=0 NEXTROUND: ISCORE=ISCORE+IRING IRING=0 IROUND=IROUND+1 IEXIT=0 BG 1 BG FILL 0,0 TO 19,15 CHAR 1 FOR I=1 TO (10+IROUND) CELL INT(RND*20),INT(RND*15),3 CELL INT(RND*20),INT(RND*15),2 NEXT I PX=INT(RND*20) PY=INT(RND*16) PD=0 PANI=0 PC=0 DO BG 0 ATTR(1) NUMBER 0,0,IRING,3 NUMBER 15,0,ISCORE,5 BG 1 ATTR(0) IF IRING>100 AND IEXIT=0 THEN IEXIT=1 CH=99 WHILE CH>1 EX=INT(RND*20) EY=INT(RND*16) CH=CELL.C(EX,EY) WEND CELL EX,EY,5 END IF UD=UP(0) OR DOWN(0) LR=LEFT(0) OR RIGHT(0) IF RIGHT(0) AND NOT UD THEN PD=0 GOSUB PMOVE END IF IF LEFT(0) AND NOT UD THEN PD=2 GOSUB PMOVE END IF IF DOWN(0) AND NOT LR THEN PD=1 GOSUB PMOVE END IF IF UP(0) AND NOT LR THEN PD=3 GOSUB PMOVE END IF PANI=(PANI+1) MOD 20 IF PANI=0 THEN PC=0 IF PANI=10 THEN PC=1 CELL PX,PY,14+PC+(16*PD) FOR K=1 TO 25 GX=INT(RND*20) GY=INT(RND*16) CH=CELL.C(GX,GY) IF CH=4 THEN GO=99 WHILE GO<>0 DX=INT(RND*3)-1 DY=INT(RND*3)-1 GMX=GX+DX GMY=GY+DY GO=CELL.C(GMX,GMY) WEND IF GMX>=0 AND GMY>=0 AND GMX<=19 AND GMY<=15 THEN PLAY 1,50,1 CELL GX,GY,0 CELL GMX,GMY,4 IF GO>13 THEN END END IF END IF IF CH=3 AND K<=3 THEN DX=INT(RND*3)-1 DY=INT(RND*3)-1 GMX=GX+DX GMY=GY+DY GO=CELL.C(GMX,GMY) IF GMX>=0 AND GMY>=0 AND GMX<=19 AND GMY<=15 AND GO<>5 THEN PLAY 1,50,1 CELL GX,GY,1 CELL GMX,GMY,3 IF GO>13 THEN END IF GO=0 THEN CELL GMX,GMY,4 END IF END IF NEXT K WAIT VBL LOOP PMOVE: PMX=PX+XDIR(PD) PMY=PY+YDIR(PD) CH=CELL.C(PMX,PMY) IF PMX>=0 AND PMY>=0 AND PMX<=19 AND PMY<=15 THEN IF CH=5 THEN CELL PX,PY,0 WAIT 15 GOTO NEXTROUND END IF IF CH=1 THEN IPM=IPM+1 IF IPM>40 THEN PLAY 0,60,1 CELL PX,PY,0 PX=PMX PY=PMY IPM=0 ELSE IF PANI=10 THEN PLAY 0,30,5 END IF ELSE IF CH=0 OR CH>1 THEN IPM=IPM+1 IF IPM>10 THEN IF CH=2 OR CH=3 OR CH=4 THEN PLAY 0,90,1 IRING=IRING+IRING+1 END IF CELL PX,PY,0 PX=PMX PY=PMY IPM=0 END IF END IF END IF RETURN #1:MAIN PALETTES 103C0C24003C3C15003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 AA7FFE7FFE7FFE55AA7FFE7FFE7FFE55 AA19A443C2259855AA01800180018055 AA4380258001A455AA7FFE7FFE7FFE55 00000000000000003C7E9999FFDBC381 FFC381818181C3FF9942000000004299 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3C78F0E0E0F0783C0000000000000000 3C7EFFFCFCFF7E3C0000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3C7EFFE7C38100000000000000000000 3C7EFFFFFFFF66240000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3C1E0F07070F1E3C0000000000000000 3C7EFF3F3FFF7E3C0000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 000081C3E7FF7E3C0000000000000000 2466FFFFFFFF7E3C0000000000000000