RANDOMIZE TIMER REM WAS8BIT GAMEPAD 1 REM 40 FOR I=1 TO 63 SPRITE I,150,0,4 NEXT I REPLAY: SCORE=0 SY=0 CLS BG 1 PX=80 PY=100 SPRITE 0,PX,PY,1 SLUG=1 GTIME=150 DO FOR I=1 TO 63 GT=GTIME/150 X=40+(I*2*GT) SPRITE I,X,0, NEXT I IF PY<45 THEN WIS=1 ASCORE=10 ELSE IF PY<80 THEN WIS=2 ASCORE=3 ELSE WIS=3 ASCORE=1 END IF IS=(IS+1) MOD WIS IF IS=0 THEN INC SY SCROLL 1,0,-SY IF SY=8 THEN BG SCROLL 0,0 TO 19,15 STEP 0,1 SY=0 SCROLL 1,0,0 FOR X=0 TO 19 IF RND(25)=0 THEN CELL X,1,2 IF RND(50)=0 THEN CELL X,1,3 NEXT X BG 0 SCORE=SCORE+ASCORE NUMBER 0,0,SCORE,5 BG 1 IF SLUG>1 THEN DEC SLUG END IF END IF WSLUG=(WSLUG+1) MOD SLUG IF WSLUG=0 THEN IF RIGHT(0) AND PX<153 THEN INC PX IF LEFT(0) AND PX>0 THEN DEC PX END IF IF UP(0) AND PY>1 THEN DEC PY IF DOWN(0) AND PY<122 THEN INC PY SPRITE 0,PX,PY, PLAY 0,30-PY/5,1 SOUND 3 C=CELL.C((PX+4)\8,(PY-1)\8) IF C=2 THEN PLAY 2,70,1 SOUND 0 SLUG=10 END IF IF C=3 THEN PLAY 3,20,1 SOUND 1 CELL (PX+4)\8,(PY-1)\8,0 SPRITE 0,,,0 WAIT 120 GOTO REPLAY END IF ITIME=(ITIME+1) MOD 30 IF ITIME=0 AND GTIME>2 THEN DEC GTIME IF GTIME=2 THEN PLAY 0,20,20 SOUND 4 WAIT 160 GOTO REPLAY END IF END IF WAIT VBL LOOP #1:MAIN PALETTES 0B0C3F3500383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 10FE7C10381000000000000000000000 000000000000000000003C7E7E3C0000 1038107CFE1000001038107CFE100000 140A010101010A140C0603010103060C #15:MAIN SOUND 3800F233000000003200F06610F7D000 08006060000000002800303019FE0000 2800F0BB19FE00003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000