REM WHITE YELLOW ORANGE GREEN BLUE PURPLE RED BLACK RANDOMIZE TIMER GAMEPAD 1 REPLAY: GOSUB SHOWSPLASH CLS SY=0 SX=0 PX=5*8 PY=5*8 PW=0 PC=4 IHIT=0 IBLAST=0 ILAST=0 IANI=0 GAMEPAD 1 PD=0 SPRITE.A 0,(0,0,0,1,3) REM WASHAW GAMES SPRITE.A 1,(0,0,0,1,0) SPRITE.A 7,(0,0,0,1,0) SPRITE.A 2,(0,0,0,1,1) SPRITE.A 3,(0,0,0,1,1) SPRITE.A 4,(0,0,0,1,0) SPRITE.A 5,(0,0,0,1,0) CUP=0 ICUP=0 XCUP=1 YCUP=1 CALL RESETCUP(XCUP,YCUP) ACUP=RND*PI*2 DACUP=(RND-RND)/100 DXCUP=COS(ACUP)/3 DYCUP=SIN(ACUP)/3 SPRITE 1,XCUP,YCUP,CUP+17 GOSUB RESETMON2 GOSUB RESETMON3 SPRITE 2,MX2,MY2,32 SPRITE 3,MX3,MY3,34 SPRITE 4,MX2,MY2,16 SPRITE 5,MX3,MY3,16 HX=-100 HY=-100 SPRITE 7,HX,HY,3 ILIFE=7 IBELT=-1 REM VOICE.A 0,(3,1,1) REM VOICE.A 1,(0,1,1) CALL SHOWLIFE(ILIFE) DO SPRITE 0,PX,PY,PC+PW*4 IF NOT BUTTON(0,0) AND NOT BUTTON(0,1) THEN IHIT=0 IF RIGHT(0) THEN PD=0 SPRITE.A 0,(0,PD,0,1,3) IF PX<140 THEN PX=PX+1 PC=64 END IF IF LEFT(0) THEN PD=1 SPRITE.A 0,(0,PD,0,1,3) IF PX>-10 THEN PX=PX-1 PC=64 END IF IF DOWN(0) THEN SPRITE.A 0,(0,PD,0,1,3) IF PY<95 THEN PY=PY+1 PC=64 END IF IF UP(0) THEN SPRITE.A 0,(0,PD,0,1,3) IF PY>-5 THEN PY=PY-1 PC=64 END IF END IF IF BUTTON(0,0) THEN IF IHIT=0 THEN PC=4 PW=0 IANI=1 IF UP(0) THEN PC=12 IF RIGHT(0) OR LEFT(0) THEN PC=8 IF DOWN(0) THEN PC=140 IF PC<>4 AND PC<>140 THEN IHIT=1 HX=PX-PD*32+28 HY=PY+4 IF PC=8 THEN HY=HY+12 SPRITE 7,HX,HY, IBLAST=2 END IF ELSE IF NOT UP(0) AND NOT DOWN(0) AND NOT RIGHT(0) AND NOT LEFT(0) THEN PC=4 PW=0 IHIT=0 END IF ELSE IF BUTTON(0,1) THEN IF IHIT=0 THEN PC=4 PW=0 IANI=1 IF UP(0) THEN PC=128 IF RIGHT(0) OR LEFT(0) THEN PC=132 IF DOWN(0) THEN PC=136 IF PC<>4 THEN IHIT=1 HX=PX-PD*32+28 HY=PY+4 IF PC=132 THEN HY=HY+12 IF PC=136 THEN HY=HY+20 SPRITE 7,HX,HY, IBLAST=2 END IF ELSE IF NOT UP(0) AND NOT DOWN(0) AND NOT RIGHT(0) AND NOT LEFT(0) THEN PC=4 PW=0 IHIT=0 END IF END IF IF NOT UP(0) AND NOT DOWN(0) AND NOT LEFT(0) AND NOT RIGHT(0) AND NOT BUTTON(0,0) AND NOT BUTTON(0,1) THEN PC=4 PW=0 IANI=1 IHIT=0 END IF IF IHIT=0 THEN IANI=(IANI+1) MOD 5 IF IANI=0 THEN PW=(PW+1) MOD 4 IF IBLAST>0 THEN ILAST=(ILAST+1) MOD 5 REM VOICE 0,1600*IBLAST,255,0 END IF IF ILAST=0 AND IBLAST>0 THEN IBLAST=IBLAST-1 IF IBLAST=0 THEN REM VOICE 0,0,0,0 HX=-100 HY=-100 SPRITE 7,HX,HY, END IF END IF ICUP=(ICUP+1) MOD 5 IF ICUP=0 THEN CUP=(CUP+1) MOD 3 IF INT(RND*1000)=0 THEN DACUP=(RND-RND)/100 ACUP=ACUP+DACUP DXCUP=COS(ACUP)/3 DYCUP=SIN(ACUP)/3 CALL MOVEIT(XCUP,YCUP,DXCUP,DYCUP) SPRITE 1,XCUP,YCUP,CUP+17 IF SPRITE HIT (0,1) THEN REM IF PC=4 OR PC=64 OR PC=140 THEN CALL RESETCUP(XCUP,YCUP) IF SPRITE HIT (1,7) THEN ILIFE=ILIFE+1 IF ILIFE>19 THEN ILIFE=19 CALL SHOWLIFE(ILIFE) CALL RESETCUP(XCUP,YCUP) REM VOICE 1,16*400,255,0 WAIT 10 REM VOICE 1,0,0,0 END IF END IF IF INT(RND*1000)=0 THEN GOSUB RESETMON2 IF INT(RND*1000)=0 THEN GOSUB RESETMON3 CALL MOVEIT(MX2,MY2,DMX2,DMY2) CALL MOVEIT(MX2,MY3,DMX3,DMY3) MA2=MA2+DMA2 MA3=MA3+DMA3 SPRITE 2,MX2,MY2, SPRITE 3,MX3,MY3, SPRITE 4,MX2+16*COS(MA2)+4,MY2+16*SIN(MA2)+4, SPRITE 5,MX3+16*COS(MA3)+4,MY3+16*SIN(MA3)+4, IF SPRITE HIT (0,4 TO 5) AND PC<>140 THEN ILIFE=ILIFE-1 CALL SHOWLIFE(ILIFE) REM VOICE 1,16*350,255,0 WAIT 10 REM VOICE 1,0,0,0 IF HIT=4 THEN GOSUB RESETMON2 IF HIT=5 THEN GOSUB RESETMON3 IF ILIFE<0 THEN FOR I=0 TO 7 SPRITE I,-50,-50,0 NEXT I REM VOICE.A 0,(0,1,1) REM VOICE 0,16*247,255,0 WAIT 5 REM VOICE 0,16*220,, WAIT 60 REM VOICE 0,0,0,0 WAIT 120 GOTO REPLAY END IF END IF IF SPRITE HIT (7,2 TO 3) THEN REM VOICE 1,16*300,255,0 WAIT 10 REM VOICE 1,0,0,0 IBELT=IBELT+1 CALL SHOWBELT(IBELT) IF HIT=2 THEN GOSUB RESETMON2 IF HIT=3 THEN GOSUB RESETMON3 IF IBELT>18 THEN REM VOICE 0,0,0,0 CLS FOR I=0 TO 7 SPRITE I,-50,-50,0 NEXT I GOSUB SHOWSPLASH WAIT 120 FOR WX=0 TO 19 CELL WX,6,2 REM VOICE 0,16*220,255,0 WAIT 5 REM VOICE 0,16*329,, WAIT 10 REM VOICE 0,0,0,0 WAIT 5 NEXT WX WAIT 120 REM VOICE 0,16*329,255,0 WAIT 5 REM VOICE 0,0,0,0 REM VOICE 0,16*329,255,0 WAIT 5 REM VOICE 0,0,0,0 REM VOICE 0,16*440,255,0 WAIT 120 REM VOICE 0,0,0,0 END END IF END IF WAIT VBL LOOP SUB MOVEIT(X,Y,DX,DY) X =X +DX IF X <-30 THEN X =180 IF X >160 THEN X =-30 Y =Y +DY IF Y <-30 THEN Y =160 IF Y >160 THEN Y =-30 END SUB SUB RESETCUP(X,Y) X=(RND*210)-30 Y=(RND*190)-30 END SUB SUB SHOWLIFE(I) FOR II=0 TO 19 IF II<=I THEN CELL II,15,1 ELSE CELL II,15,0 NEXT II END SUB SUB SHOWBELT(I) FOR II=0 TO 19 IF II<=I THEN CELL II,0,2 ELSE CELL II,0,0 NEXT II END SUB RESETMON2: MX2=(RND*210)-30 MY2=(RND*190)-30 DMX2=RND-RND DMY2=RND-RND MA2=RND*PI*2 DMA2=(RND-RND)/10 RETURN RESETMON3: MX3=(RND*210)-30 MY3=(RND*190)-30 DMX3=RND-RND DMY3=RND-RND MA3=RND*PI*2 DMA3=(RND-RND)/10 RETURN SHOWSPLASH: CLS BG COPY 0,0,20,15 TO 0,0 REM VOICE.A 0,(0,1,1) REM VOICE 0,16*247,255,0 WAIT 5 REM VOICE 0,16*220,, WAIT 60 REM VOICE 0,0,0,0 WAIT 5 REM VOICE 0,16*220,255,0 WAIT 5 REM VOICE 0,16*349,, WAIT 60 REM VOICE 0,0,0,0 WAIT 5 REM VOICE 0,16*220,255,0 WAIT 5 REM VOICE 0,16*329,, WAIT 60 REM VOICE 0,0,0,0 WAIT 5 RETURN #1:MAIN PALETTES 053F2A15003C281400382420000C0804 0003020100332211003020140000152A #2:2X2 CHARSETSERS 00000000000000000000000000000000 D0F4FDFFFFFDF4D0300C030000030C30 FF55FFFFFFFF55FF00AA00000000AA00 81423C3C3C3C428166BDDB7E7EDBBD66 00000000000000000000000000000000 0000000003070F0F0000000000000000 00000000C0E0F0F00000000000004040 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 000000003C7EFFFF0000000000000C00 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 000000001E3F7F7F0000000000000600 00000000000080800000000000000006 40022810288004000000000000000000 00183C7E7E3C18000018347A6E3C1800 00183C7E7E3C180000183C567E2C1800 00183C7E7E3C180000181C7E7A1C1800 00000000000000000000000000000000 0F0F07030000000000000000070F0F0F F0F0E0C0E0F0F07000000000E0F0F0F0 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000103 FFFF7E3C78F0F0F8000000007FFFFFFF 00000000000000000000000000C0F0FC 00000000000000000000000000000000 00000000000000000000000000000001 7F7F3F1C38707078000000033F7FFFFF 80800000000000000F3FFFFEFCF0C000 070F0F0F3F7976390000000000060F06 00B0F8FCFECEB6CF0000000000307830 0001050F030F1E0E0000000000000101 40E0E8FCB81C484C0000000040E0F0F0 00000000000000000000000000000000 0000080C0F0F0F070F0F0F0F0F0F0F0F 10000010F0F0F0E0F0F0F0F0F0F0F8FC 00000000000000000000000000000000 00000000000000000000000000000000 0000000000000000070F0F0700010307 FEFFFFFFFFFFFF7EFFFFFFFFFFFFFFFF 0000000000000000FE7F1F0600000000 00000000000000000000000000000000 00000000000000000307070300000103 7F7F7F7F7F7F7F3FFFFFFFFF7FFFFFFF 80808080808080008080808080808080 3F1F1C3B3B1F0C000000030704000000 FFFE1EECE8F030000000E0F010000000 070F0307020000000000000000000000 1EBCF8FCE8400000E040000000000000 00000000000000000000000000000000 00000000000000000F0F0F0F0F0F0F0F 00000000000000007E3F1F0F0F0F0F0F 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000F1F3F7FFEFC7830 0000000000000000EFCF8F0F0F0F0F0F 00000000000000000000000000000000 00000000000000000000000000000000 0000000000000000070F1F3F7FFEFC78 0000000000000000F7E7C78707070707 00000000000000008080808080808080 00000000000000000000000000000000 0000000003070F0F0000000000000000 00000000C0E0F0F00000000000004040 00000000000000000000000000000000 00000000000000000000000000000000 0000000003070F0F0000000000000000 00000000C0E0F0F00000000000004040 00000000000000000000000000000000 00000000000000000000000000000000 0000000003070F0F0000000000000000 00000000C0E0F0F00000000000004040 00000000000000000000000000000000 00000000000000000000000000000000 0000000003070F0F0000000000000000 00000000C0E0F0F00000000000004040 00000000000000000000000000000000 00000000000000000000000000000000 0F0F07030000000000000000070F0F0F F0F0E0C0E0F0703000000000E0F0F0F0 00000000000000000000000000000000 00000000000000000000000000000000 0F0F07030000000000000000070F0F0F F0F0E0C0E0F0F07000000000E0F0F0F0 00000000000000000000000000000000 00000000000000000000000000000000 0F0F0703070F0F07000000003F7FFFFF F0F0E0C0E0F0F0F000000000E0F0F0F0 00000000000000000000000000000000 00000000000000000000000000000000 0F0F07030000000000000000070F0F0F F0F0E0C0E0F0F07000000000E0F0F0F0 00000000000000000000000000000000 00000000000000000000000000000000 080C0E0F0F0F0F070F0F0F0F0F0F0F0F 00000000F0F0F0E0FEFFFFFEF0F8FCFE 00000000000000000000000000000000 00000000000000000000000000000000 0000080C0F0F0F070F0F0F0F0F1F3F7F 10000010F0F0F0E0F0F0F0F0F0F8FCFE 00000000000000000000000000000000 00000000000000000000000000000000 010000010F0F0F07FFFF7F3F0F1F3F7F F0F0F0F0F0F0F0E0FEFFFFFEF0F0F0F0 00000000000000000000000000000000 00000000000000000000000000000000 0000080C0F0F0F070F0F0F0F0F0F0F07 10000010F0F0F0E0F0F0F0F0F0F0F0F0 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000F0F0F0F0F0F0F0F 00000000000000007F3F1E0C00000000 00000000000000000000000000000000 0000000000000000000103070F0F0703 0000000000000000FEFCF8F0E0C08000 00000000000000007F3F1F0F07030100 00000000000000000080C0E0F0F0E0C0 00000000000000000000000000000000 0000000000000000FEFC783000000000 0000000000000000F0F0F0F0F0F0F0F0 00000000000000000000000000000000 00000000000000000000000000000000 0000000000000000000103070F0F0703 0000000000000000F0F0F0F0E0C08000 00000000000000000000000000000000 00000000000000000000000000000000 000000003C7EFFFF0000000000000C00 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 000000000F1F3F3F0000000000000300 000000000080C0C00000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0000000003070F0F0000000000000000 00000000C0E0F0F0000000000000C000 00000000000000000000000000000000 00000000000000000000000000000000 000000000003070F0000000000000000 0000000000C0E0F00000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FFFF7E3E1F3F0F0F000000021F3F3F7F 000000000080C0E000000000E0F1F3F7 00000000000000000C1E3F7FFEFCF8F0 00000000000000000000000000000000 3F3F1F0F1F3F0F0F000000001F3F3F7F C0C08000C0E0F0F800000000C0E0F0F8 00000000000000000000000000000000 00000000000000000000000000000000 0F0F0703070F010000000000070F0F1F F0F0E0C0E0F0F8FC00000000F8FCFEFE 00000000000000000000000000000000 00000000000000000000000000000000 0F0F0F0F070303000000000000000307 F0F0F0F0E0C0E070C0000101013FFFFF 000000000000000000C0E0E0E0E0C080 00000000000000000000000000000000 0301010300000000FFFF7F3F00010307 F8FCFEFFFEFC7830FFFFFFFFFEFCF8F0 0000000000000000E0C0800000000000 00000000000000000000000000000000 0703030700000000FFFF7F3F00010307 FCFEFFFFFEFC7830FCFFFFFFFFFFF8F0 000000000000000000FEFFFFFFFE0000 00000000000000000000000000000000 00000100000000001F0F070000010307 FCFEFFFFFEFC7830FCFEFFFFFFFFFBF1 0000000000000000000080C0E0F0F8FC 00000000000000000000000000000000 0000080C0F0F0F070F0F0F0F0F0F1F3F 10000000C0F0F0E0F0F8FFFFFFF7F1F8 0000000000000000000000C0E0E0C000 00000000000000000000000000000000 00000000000000000F1F3F7FFEFC7830 0000000000000000E0C0800000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000F1F3F7FFEFC7830 0000000000000000E0C0800000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000F1F3F7FFEFC7830 0000000000000000E0C0800000000000 0000000000000000FE7F3F1F0E040000 00000000000000000000000000000000 00000000000000007FFEFCF8F0F0F0F0 0000000000000000FCFE7F3F1F0F0703 000000000000000000000080C0E0E0C0 00000000000000000000000000000000 00181C1C1C0C180C00000404040C000C 006C7E36120000000000121212000000 00247E3F367E3F120000001B12001B12 00083E3F1E3F1F040000000710011704 0062753A142E57230000113204081123 001C3E3A7E773A1D00000A021013001D 00181C3C180000000000040C18000000 000C1E3C38180C060000060C08000006 0030180C0E1E3C180000000002060C18 0000241A7E3F2C120000000200270812 0000181C7E3F1C0C000000040027040C 00000000181C3C180000000000040C18 000000007E3F000000000000003F0000 0000000000181C0C000000000000040C 00060F1E3C787020000003060C183020 003C7E7F777F3F1E000018110119031E 00183C1C1C1C7E3F000004040404003F 003C7E3F1E3C7E3F00001833060C003F 003C7E3F06673F1E000018330001031E 0066777F3F0707030000110139010103 007E7F7C3E077F3E00001F003801033E 001C3E7C7E773F1E00000E001811031E 007E3F0F1E3C381800003903060C0818 003C7E3F7E773F1E000018031811031E 003C7E3F1F673F1E000018011901031E 000000180C180C00000000000C000C00 000000180C183C18000000000C000C18 00000C1E3C180C06000000060C000006 0000007E3F7E3F00000000003F003F00 000030180C1E3C180000000000060C18 003C7E3F1E0C180C00001833060C000C 003C7E7F7F773C1E000018111117001E 00183C7E7F7F77330000001801191133 007C7E7F7E777F3E000018031811033E 003C7E7370763F1E000018131010031E 00787C76777F7E3C000010101113063C 007E7F787C707E3F00001F001C10003F 007E7F787C70703000001F001C101030 003C7E7E77773F1E00001E101111031E 0066777F7F7777330000110119111133 003C1E1C1C1C3C1E000006040404001E 001E0F0707673F1E000009010101031E 00667F7E7C7C76330000130604101033 0060707070707E3F000010101010003F 0042677F7F7F77330000010101191133 0066777F7F7777330000010111111133 003C7E7777773F1E000018111111031E 007C7E7F7E707030000018031E101030 003C7E777B7D3E1F000018111111001F 007C7E7F7E7C76330000180306101033 003E7F3C1E077F3E00001F001801033E 007E3F1C1C1C1C0C000027040404040C 0066777777773F1E000011111111031E 00667777773F1E0C000011111103060C 0066777F7F7F73210000110101193121 00663F1E3C7E77330000030600181133 0066773F1E1C1C0C000011030604040C 007E3F1E3C787E3F000033060C18003F 003C3E3838383C1E00000E080808001E 006030180C0603010000000000000101 003C1E0E0E0E3E1E000012020202021E 00183C7E330000000000001833000000 0000000000007E3F000000000000003F #3:MAIN BG 00001410000003000000000003000200 02000200030003000300020002000200 03000300030002000200000000000300 00000300000002000000020003000000 03000200000002000000030000000200 00000000000003000300000000000200 02000200030003000000020002000200 00000300000002000200000000000300 00000300000002000000020003000000 03000200000002000000030000000200 00000000000003000000000003000000 00000000000000000000000000000000 00000000000002000200000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000010001000100010001000100 01000100010001000100010001000100 01000100010001000100010001010101 01010101010101010101010101010101 01010101010101010101010101010101 01010101010201020102010201020102 01020102010201020102010201020102 01020102010201020102010201030103 01030103010301030103010301030103 01030103010301030103010301030103 01030103010401040104010401040104 01040104010401040104010401040104 01040104010401040104010401050105 01050105010501050105010501050105 01050105010501050105010501050105 01050105010601060106010601060106 01060106010601060106010601060106 01060106010601060106010601070107 01070107010701070107010701070107 01070107010701070107010701070107 01070107000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000