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: PLAY 3,30,30 SOUND 6 ISCORE=ISCORE+IRING IRING=0 IROUND=IROUND+1 IEXIT=0 BG 1 BG FILL 0,0 TO 31,31 CHAR 6 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 EX=0 EY=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=2 WHILE CH>1 EX=INT(RND*20) EY=INT(RND*16) CH=CELL.C(EX,EY) WEND CELL EY,EY,5 PLAY 3,60,10 SOUND 6 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=1 WHILE GO>=1 AND GO<=6 DX=INT(RND*3)-1 DY=INT(RND*3)-1 GMX=GX+DX GMY=GY+DY GO=CELL.C(GMX,GMY) WEND PLAY 2,30,1 SOUND 4 CELL GX,GY,0 CELL GMX,GMY,4 IF GO>13 THEN GOTO THEEND END IF IF CH=3 AND K<=2 THEN DX=INT(RND*3)-1 DY=INT(RND*3)-1 GMX=GX+DX GMY=GY+DY GO=CELL.C(GMX,GMY) IF GO=1 OR GO=0 OR GO>13 THEN PLAY 1,50,1 SOUND 1 CELL GX,GY,1 CELL GMX,GMY,3 IF GO>13 THEN GOTO THEEND 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>30 THEN PLAY 0,90,1 SOUND 2 CELL PX,PY,0 PX=PMX PY=PMY IPM=0 ELSE IF PANI=10 THEN PLAY 0,10,1 SOUND 0 END IF ELSE IF CH=0 OR CH=1 OR CH=2 OR CH=4 THEN IPM=IPM+1 IF IPM>10 THEN IF CH=0 THEN PLAY 0,90,1 SOUND 2 IF CH=2 OR CH=4 THEN PLAY 3,60,1 SOUND 3 IRING=IRING+IRING+1 END IF CELL PX,PY,0 PX=PMX PY=PMY IPM=0 END IF END IF END IF RETURN THEEND: PALETTE 0,3*16,,, WAIT 1 #1:MAIN PALETTES 103C0C24003C3C15003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 AA7FFE7FFE7FFE55AA7FFE7FFE7FFE55 AA19A443C2259855AA01800180018055 AA4380258001A455AA7FFE7FFE7FFE55 00000000000000003C7E9999FFDBC381 FFC381818181C3FF9942000000004299 00002810280000000000000000000000 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 #15:MAIN SOUND 3800303A000450003800F6DD003A0000 3800606F00FF0F000800309919000000 2800208800FF00003800505000000000 180000DD10FC00000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000