TOUCHSCREEN RANDOMIZE TIMER DIM SPR(15),SET(25,1),MAP(12),ANI(12),DABBLE(6) FOR I=0 TO 5 READ DABBLE(I) NEXT I DATA 0,0,0.005,0.0075,0.01,0.025 FOR I=1 TO 15 READ SPR(I) NEXT I FOR I=1 TO 25 READ SET(I,0),SET(I,1) NEXT I DATA 8,12,64,68,72,76,128,132,136,140,192,196,200,204,4 DATA 1,2, 3,4, 3,5, 3,6, 4,5, 4,6, 5,6 DATA 11,12, 11,13, 11,14, 12,13, 12,14, 13,14 DATA 3,11, 3,7, 3,8, 11,7, 11,8, 7,8 DATA 6,14, 6,9, 6,10, 14,9, 14,10, 9,10 'WAS8BIT PA=PI/2 PPA=PA/2 REPLAY: A=0 ILEVEL=0 NEXT_LEVEL: SPRITE OFF WAIT 60 ISPR=0 SPRITE 0,2,2,0 FOR I=0 TO 3 INC ISPR SPRITE ISPR,,,4 SPRITE ISPR SIZE 3 PAL ILEVEL NEXT I FOR I=0 TO 7 INC ISPR SPRITE ISPR,,,4 SPRITE ISPR SIZE 3 PAL ILEVEL NEXT I FOR I=1 TO 11 STEP 2 M=RND(24)+1 MAP(I)=M MAP(I+1)=M ANI(I)=0 ANI(I+1)=0 NEXT I FOR I=1 TO 100 RM1=RND(11)+1 RM2=RND(11)+1 SWAP MAP(RM1),MAP(RM2) NEXT I GOSUB SPIN ITOUCH=0 ITIME=0 IBUMP=0 IFRAME=0 TSPEED=30 DO IF TOUCH THEN SPRITE 0,TOUCH.X,TOUCH.Y, IF SPRITE HIT(0) THEN IF ITOUCH=0 THEN HIT1=HIT ITOUCH=1 ANI(HIT)=1 FOR I=1 TO 30 PLAY 2,RND(10)+80,1 WAIT VBL NEXT I IF ILEVEL=1 THEN IBUMP=1 ELSE IF ITOUCH=1 AND HIT<>HIT1 THEN ITOUCH=2 FOR I=1 TO 30 PLAY 2,RND(10)+80,1 WAIT VBL NEXT I HIT2=HIT ANI(HIT)=1 END IF END IF ELSE SPRITE OFF 0 IF IBUMP=1 THEN IBUMP=0 GOSUB SPIN END IF IF ITOUCH>1 THEN INC ITOUCH IF ITOUCH>240 THEN IF MAP(HIT1)=MAP(HIT2) THEN PLAY 1,90,30 SOUND 1 SPRITE OFF HIT1 SPRITE OFF HIT2 ANI(HIT1)=-1 ANI(HIT2)=-1 ADD TSPEED,-5 IF TSPEED=0 THEN INC ILEVEL IF ILEVEL<6 THEN TRACE ILEVEL GOTO NEXT_LEVEL ELSE WAIT 60 BG 0 PAL 0 BG FILL 0,0 TO 19,15 CHAR 2 PP=0 IPP=0 DO ADD IPP,1,0 TO 15 IF IPP=0 THEN PP=PP+1 IF PP=1 THEN PP=6 IF PP>7 THEN PP=0 BG TINT 0,0 TO 19,15 PAL PP END IF IF TOUCH THEN GOTO REPLAY WAIT VBL LOOP END IF END IF GOSUB SPIN ITOUCH=0 ELSE FOR S=0 TO 60-ILEVEL*10 PLAY 0,S,1 SOUND 0 WAIT VBL NEXT S WAIT 30 SPRITE HIT1,,,4 SPRITE HIT2,,,4 ANI(HIT1)=0 ANI(HIT2)=0 GOSUB SPIN ITOUCH=0 END IF END IF END IF FOR I=1 TO 12 IF ANI(I)=1 THEN IMG=SET(MAP(I),IFRAME) SPRITE I,,,SPR(IMG) END IF NEXT I ADD ITIME,1,0 TO TSPEED IF ITIME=0 THEN ADD IFRAME,1,0 TO 1 IF ILEVEL>1 THEN GOSUB DRIBBLE WAIT VBL LOOP DRIBBLE: A=A+DABBLE(ILEVEL) AI=A FOR I=1 TO 4 X=80+21*COS(AI+I*PA) Y=64+21*SIN(AI+I*PA) IF ANI(I)>=0 THEN SPRITE I,X-16,Y-16, NEXT I FOR I=5 TO 12 X=80+52*COS(AI+I*PPA) Y=64+52*SIN(AI+I*PPA) IF ANI(I)>=0 THEN SPRITE I,X-16,Y-16, NEXT I RETURN SPIN: BG 0 BG FILL 0,0 TO 19,15 CHAR 1 ASTOP=A+PA FOR AI=A TO ASTOP STEP 0.01 FOR I=1 TO 4 X=80+21*COS(AI+I*PA) Y=64+21*SIN(AI+I*PA) IF ANI(I)>=0 THEN SPRITE I,X-16,Y-16, NEXT I FOR I=5 TO 12 X=80+52*COS(AI+I*PPA) Y=64+52*SIN(AI+I*PPA) IF ANI(I)>=0 THEN SPRITE I,X-16,Y-16, NEXT I WAIT VBL NEXT AI A=AI CLS 0 RETURN #1:MAIN PALETTES 0004080C0004300C00200030003F3F00 0000003F0000001900080C04000C0408 #2:MAIN CHARACTERS 00000018180000000000000000000000 00000018180000000000001818000000 0018245A5A2418000000183C3C180000 00000000000000000000000000000000 00000003070F1D1F0000000304091214 001FFFFFFFFFFF3F001FE00F708738C3 00F8FFFFFFFFFFFC00F807F00EE11CC3 000000C0E0F0B8F8000000C020904828 0000000003070F0F0000000304081010 00001FFFFFFFFFFF001FE00000000020 0000F8FFFFFFFFFF00F8070000000004 00000000C0E0F0F0000000C020100808 0000000003070F0F0000000304081010 00001FFFFFFFFFFF001FE00000000020 0000F8FFFFFFFFFF00F8070000000004 00000000C0E0F0F0000000C020100808 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3E3E3F7F7F7F7F7F25292A4A52545555 EFDFB36FD9D7F6FD1C214E90A6A82942 F7FBCDF69BEB6FBF3884720965159442 7C7CFCFEFEFEFEFEA49454524A2AAAAA 1F1F1F3F3F3F3F3F2020204040404040 FFFFFFFFFDFDFFFF3033371F1F0F0703 FFFFFFFFBFBFFFFF0CCCECF8F8F0E0C0 F8F8F8FCFCFCFCFC0404040202020202 1F1F1F3F3F3F3F3F2020204040404040 FFFFFDFDFFFFFFFF3033371F1F0F0703 FFFFBFBFFFFFFFFF0CCCECF8F8F0E0C0 F8F8F8FCFCFCFCFC0404040202020202 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 7F7F7F7F7F3F3E3E555554524A2A2925 FDF6D7D96FB3DFEF4229A8A6904E211C BF6FEB9BF6CDFBF74294156509728438 FEFEFEFEFEFC7C7CAAAA2A4A525494A4 3F3F3F3F3F1F1F1F4040404040202020 FFFFFFFFFFFFFFFF7F1F0303070F1E00 FFFFFFFFFFFFFFFFFEF8C0C0E0F07800 FCFCFCFCFCF8F8F80202020202040404 3F3F3F3F3F1F1F1F4040404040202020 FFFFFFFFFFFFFFFF7F1F0303070F1E00 FFFFFFFFFFFFFFFFFEF8C0C0E0F07800 FCFCFCFCFCF8F8F80202020202040404 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 1F1D0F07030000001412090403000000 3FFFFFFFFFFF1F00C33887700FE01F00 FCFFFFFFFFFFF800C31CE10EF007F800 F8B8F0E0C000000028489020C0000000 0F0F0703000000001010080403000000 FFFFFFFFFF1F00000000000000E01F00 FFFFFFFFFFF80000000000000007F800 F0F0E0C00000000008081020C0000000 0F0F0703000000001010080403000000 FFFFFFFFFF1F00000000000000E01F00 FFFFFFFFFFF80000000000000007F800 F0F0E0C00000000008081020C0000000 0000000003070F0F0000000304081010 00001FFFFFFFFFFF001FE00000000020 0000F8FFFFFFFFFF00F8070000000004 00000000C0E0F0F0000000C020100808 0000000003070F0F0000000304081010 00001FFFFFFFFFFF001FE00000000020 0000F8FFFFFFFFFF00F8070000000004 00000000C0E0F0F0000000C020100808 0000000003070F0F0000000304081010 00001FFFFFFFFFFF001FE00000000020 0000F8FFFFFFFFFF00F8070000000004 00000000C0E0F0F0000000C020100808 0000000003070F0F0000000304081010 00001FFFFFFFFFFF001FE00000000020 0000F8FFFFFFFFFF00F8070000000004 00000000C0E0F0F0000000C020100808 1F1F1F3F3F3F3F3F2020204040404040 FFFFFFFDFDFFFFFF3033371F1F0F0703 FFFFFFBFBFFFFFFF0CCCECF8F8F0E0C0 F8F8F8FCFCFCFCFC0404040202020202 1F1F1F3F3F3F3F3F2020204040404040 FFFFFFFDFDFFFFFF3033371F1F0F0703 FFFFFFBFBFFFFFFF0CCCECF8F8F0E0C0 F8F8F8FCFCFCFCFC0404040202020202 1F1F1F3F3F3F3F3F2020204040404040 FFFFFFFDFDFFFFFF3033371F1F0F0703 FFFFFFBFBFFFFFFF0CCCECF8F8F0E0C0 F8F8F8FCFCFCFCFC0404040202020202 1F1F1F3F3F3F3F3F2020204040404040 FFFFFFFDFDFFFFFF3033371F1F0F0703 FFFFFFBFBFFFFFFF0CCCECF8F8F0E0C0 F8F8F8FCFCFCFCFC0404040202020202 3F3F3F3F3F1F1F1F4040404040202020 FFFFFFFFFFFFFFFF7F1F0303070F1E00 FFFFFFFFFFFFFFFFFEF8C0C0E0F07800 FCFCFCFCFCF8F8F80202020202040404 3F3F3F3F3F1F1F1F4040404040202020 FFFFFFFFFFFFFFFF070F1B33070F1E00 FFFFFFFFFFFFFFFFFEF8C0C0E0F07800 FCFCFCFCFCF8F8F80202020202040404 3F3F3F3F3F1F1F1F4040404040202020 FFFFFFFFFFFFFFFF7F1F0303070F1E00 FFFFFFFFFFFFFFFFE0F0D8CCE0F07800 FCFCFCFCFCF8F8F80202020202040404 3F3F3F3F3F1F1F1F4040404040202020 FFFFFFFFFFFFFFFF070F1B33070F1E00 FFFFFFFFFFFFFFFFE0F0D8CCE0F07800 FCFCFCFCFCF8F8F80202020202040404 0F0F0703000000001010080403000000 FFFFFFFFFF1F00000000000000E01F00 FFFFFFFFFFF80000000000000007F800 F0F0E0C00000000008081020C0000000 0F0F0703000000001010080403000000 FFFFFFFFFF1F00000000000000E01F00 FFFFFFFFFFF80000000000000007F800 F0F0E0C00000000008081020C0000000 0F0F0703000000001010080403000000 FFFFFFFFFF1F00000000000000E01F00 FFFFFFFFFFF80000000000000007F800 F0F0E0C00000000008081020C0000000 0F0F0703000000001010080403000000 FFFFFFFFFF1F00000000000000E01F00 FFFFFFFFFFF80000000000000007F800 F0F0E0C00000000008081020C0000000 0000000003070F0F0000000304081010 00001FFFFFFFFFFF001FE00000000000 0000F8FFFFFFFFFF00F8070000000004 00000000C0E0F0F0000000C020100808 0000000003070F0F0000000304081010 00001FFFFFFFFFFF001FE00000000020 0000F8FFFFFFFFFF00F8070000000000 00000000C0E0F0F0000000C020100808 0000000003070F0F0000000304081010 00001FFFFFFFFFFF001FE00000000000 0000F8FFFFFFFFFF00F8070000000004 00000000C0E0F0F0000000C020100808 0000000003070F0F0000000304081010 00001FFFFFFFFFFF001FE00000000020 0000F8FFFFFFFFFF00F8070000000000 00000000C0E0F0F0000000C020100808 1F1F1F3F3F3F3F3F2020204040404040 FFFFFFFDFDFFFFFF0003070F1F1F3733 FFFFFFBFBFFFFFFF0CCCECF8F8F0E0C0 F8F8F8FCFCFCFCFC0404040202020202 1F1F1F3F3F3F3F3F2020204040404040 FFFFFFFDFDFFFFFF3033371F1F0F0703 FFFFFFBFBFFFFFFF00C0E0F0F8F8ECCC F8F8F8FCFCFCFCFC0404040202020202 1F1F1F3F3F3F3F3F2020204040404040 FFFFFFFDFDFFFFFF0003070F1F1F3733 FFFFFFBFBFFFFFFF0CCCECF8F8F0E0C0 F8F8F8FCFCFCFCFC0404040202020202 1F1F1F3F3F3F3F3F2020204040404040 FFFFFFFDFDFFFFFF3033371F1F0F0703 FFFFFFBFBFFFFFFF00C0E0F0F8F8ECCC F8F8F8FCFCFCFCFC0404040202020202 3F3F3F3F3F1F1F1F4040404040202020 FFFFFFFFFFFFFFFF7F1F0303070F1E00 FFFFFFFFFFFFFFFFFEF8C0C0E0F07800 FCFCFCFCFCF8F8F80202020202040404 3F3F3F3F3F1F1F1F4040404040202020 FFFFFFFFFFFFFFFF7F1F0303070F1E00 FFFFFFFFFFFFFFFFFEF8C0C0E0F07800 FCFCFCFCFCF8F8F80202020202040404 3F3F3F3F3F1F1F1F4040404040202020 FFFFFFFFFFFFFFFF270F1B33070F1E00 FFFFFFFFFFFFFFFFE0F0D8CCE0F07800 FCFCFCFCFCF8F8F80202020202040404 3F3F3F3F3F1F1F1F4040404040202020 FFFFFFFFFFFFFFFF070F1B33070F1E00 FFFFFFFFFFFFFFFFE4F0D8CCE0F07800 FCFCFCFCFCF8F8F80202020202040404 0F0F0703000000001010080403000000 FFFFFFFFFF1F00000000000000E01F00 FFFFFFFFFFF80000000000000007F800 F0F0E0C00000000008081020C0000000 0F0F0703000000001010080403000000 FFFFFFFFFF1F00000000000000E01F00 FFFFFFFFFFF80000000000000007F800 F0F0E0C00000000008081020C0000000 0F0F0703000000001010080403000000 FFFFFFFFFF1F00000000000000E01F00 FFFFFFFFFFF80000000000000007F800 F0F0E0C00000000008081020C0000000 0F0F0703000000001010080403000000 FFFFFFFFFF1F00000000000000E01F00 FFFFFFFFFFF80000000000000007F800 F0F0E0C00000000008081020C0000000 0000000003070F0F0000000304081010 00001FFFFFFFFFFF001FE00000000000 0000F8FFFFFFFFFF00F8070000000000 00000000C0E0F0F0000000C020100808 0000000003070F0F0000000304081010 00001FFFFFFFFFFF001FE00000000000 0000F8FFFFFFFFFF00F8070000000000 00000000C0E0F0F0000000C020100808 0000000003070F0F0000000304081010 00001FFFFFFFFFFF001FE00000000000 0000F8FFFFFFFFFF00F8070000000000 00000000C0E0F0F0000000C020100808 0000000003070F0F0000000304081010 00001FFFFFFFFFFF001FE00000000000 0000F8FFFFFFFFFF00F8070000000000 00000000C0E0F0F0000000C020100808 1F1F1F3F3F3F3F3F2020204040404040 FFFFFFFDFDFFFFFF0003070F1F1F3733 FFFFFFBFBFFFFFFF00C0E0F0F8F8ECCC F8F8F8FCFCFCFCFC0404040202020202 1F1F1F3F3F3F3F3F2020204040404040 FFFFFFFDFDFFFFFF0003070F1F1F3733 FFFFFFBFBFFFFFFF00C0E0F0F8F8ECCC F8F8F8FCFCFCFCFC0404040202020202 1F1F1F3F3F3F3F3F2020204040404040 FFFFFFFDFDFFFFFF0003070F1F1F3733 FFFFFFBFBFFFFFFF00C0E0F0F8F8ECCC F8F8F8FCFCFCFCFC0404040202020202 1F1F1F3F3F3F3F3F2020204040404040 FFFFFFFDFDFFFFFF0003070F1F1F3733 FFFFFFBFBFFFFFFF00C0E0F0F8F8ECCC F8F8F8FCFCFCFCFC0404040202020202 3F3F3F3F3F1F1F1F4040404040202020 FFFFFFFFFFFFFFFF7F1F0303070F1E00 FFFFFFFFFFFFFFFFFEF8C0C0E0F07800 FCFCFCFCFCF8F8F80202020202040404 3F3F3F3F3F1F1F1F4040404040202020 FFFFFFFFFFFFFFFF270F1B33070F1E00 FFFFFFFFFFFFFFFFFEF8C0C0E0F07800 FCFCFCFCFCF8F8F80202020202040404 3F3F3F3F3F1F1F1F4040404040202020 FFFFFFFFFFFFFFFF7F1F0303070F1E00 FFFFFFFFFFFFFFFFE4F0D8CCE0F07800 FCFCFCFCFCF8F8F80202020202040404 3F3F3F3F3F1F1F1F4040404040202020 FFFFFFFFFFFFFFFF270F1B33070F1E00 FFFFFFFFFFFFFFFFE4F0D8CCE0F07800 FCFCFCFCFCF8F8F80202020202040404 0F0F0703000000001010080403000000 FFFFFFFFFF1F00000000000000E01F00 FFFFFFFFFFF80000000000000007F800 F0F0E0C00000000008081020C0000000 0F0F0703000000001010080403000000 FFFFFFFFFF1F00000000000000E01F00 FFFFFFFFFFF80000000000000007F800 F0F0E0C00000000008081020C0000000 0F0F0703000000001010080403000000 FFFFFFFFFF1F00000000000000E01F00 FFFFFFFFFFF80000000000000007F800 F0F0E0C00000000008081020C0000000 0F0F0703000000001010080403000000 FFFFFFFFFF1F00000000000000E01F00 FFFFFFFFFFF80000000000000007F800 F0F0E0C00000000008081020C0000000 #15:MAIN SOUND 3100F0DD00002000080084CC04FD0000 1800F000000000002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000