RANDOMIZE TIMER TOUCHSCREEN REM WAS8BIT DIM IHIT(2),N(6),SPR(12),MASTER(15) P2=PI/2 P4=PI/4 R1=55 R2=35 A1=0 A2=0 REPLAY: DA1=RND/33-RND/33 DA2=RND/33-RND/33 ITAP=0 IPLAY=0 WPLAY=0 FOR I=54 TO 63 SPRITE I,,,4 NEXT I FOR I=44 TO 53 SPRITE I,,,3 NEXT I FOR I=1 TO 12 SPRITE I,,,1 SPRITE I SIZE 1 NEXT I SPRITE 15,,, SPRITE 15 SIZE 1 SPRITE 0,,,5 FOR I=1 TO 15 MASTER(I)=I NEXT I FOR I=1 TO 1000 Z1=RND(14)+1 Z2=RND(14)+1 SWAP MASTER(Z1),MASTER(Z2) NEXT I SPRITE OFF FOR S=90 TO 0 STEP -1 PLAY 0,S,1 SOUND 0 WAIT 1 NEXT S WAIT 60 FRAME=32 ANI=2 SPRITE 15,72,56,32 DO W=(W+1) MOD 4 IF W=0 THEN FRAME=FRAME+ANI IF FRAME=48 THEN FRAME=44 ANI=-2 ELSE IF FRAME=30 THEN FRAME=34 ANI=2 END IF SPRITE 15,,,FRAME END IF IF TAP THEN SPRITE 0,TOUCH.X,TOUCH.Y, IF SPRITE HIT(0,15) THEN SPRITE OFF 0 SPRITE OFF 15 GOTO GOPLAY END IF SPRITE OFF 0 END IF GOSUB SWIRLS WAIT VBL LOOP GOPLAY: ICOUNT=6 SPRITE OFF FOR S=0 TO 90 PLAY 0,S,1 SOUND 0 WAIT 1 NEXT S WAIT 60 FOR I=1 TO 6 N(I)=35+RND(50) NEXT I FOR I=1 TO 6 SPR(I)=I SPR(I+6)=I NEXT I FOR I=1 TO 100 Z1=RND(11)+1 Z2=RND(11)+1 SWAP SPR(Z1),SPR(Z2) NEXT I DO IF WPLAY>0 THEN DEC WPLAY IF WPLAY=0 THEN NN1=SPR(IHIT(1)) NN2=SPR(IHIT(2)) IF NN1=NN2 THEN SPRITE IHIT(1),,,8 SPRITE IHIT(2),,,8 DEC ICOUNT IF ICOUNT=0 THEN WAIT 60 GOTO REPLAY END IF ELSE SPRITE IHIT(1),,,1 SPRITE IHIT(2),,,1 END IF END IF END IF IF TAP AND WPLAY=0 THEN SPRITE 0,TOUCH.X,TOUCH.Y, IF SPRITE HIT(0,1 TO 12) THEN ITAP=1 INC IPLAY IHIT(IPLAY)=HIT NN=SPR(HIT) PP=MASTER(NN) PLAY IPLAY,N(NN),90 SOUND PP SPRITE HIT,,,6 END IF END IF IF ITAP=1 THEN ITAP=0 SPRITE OFF 0 IF IPLAY=2 THEN IPLAY=0 WPLAY=90 END IF END IF FOR I=1 TO 4 SPRITE I,72+R2*COS(A2+I*P2),56+R2*SIN(A2+I*P2), NEXT I A2=A2+DA2 FOR I=5 TO 12 SPRITE I,72+R1*COS(A1+I*P4),56+R1*SIN(A1+I*P4), NEXT I A1=A1-DA1 GOSUB SWIRLS WAIT VBL LOOP SWIRLS: FOR I=44 TO 53 A=RND*PI*2 SPRITE I,80+R1*COS(A),64+R1*SIN(A), NEXT I FOR I=54 TO 63 A=RND*PI*2 SPRITE I,80+R2*COS(A),64+R2*SIN(A), NEXT I RETURN #1:MAIN PALETTES 1014100000383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 071820474F9F9F9F00071F3F3F7F7F7F E01804E2F2F9F9F900E0F8FCFCFEFEFE 40A040000000000040A0400000000000 40A04000000000000000000000000000 80000000000000000000000000000000 071820474F9F9F9F071F3F7870E0E0E0 E01804E2F2F9F9F9E0F8FC1E0E070707 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 9F9F9F4F472018077F7F7F3F3F1F0700 F9F9F9F2E20418E0FEFEFEFCFCF8E000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 9F9F9F4F47201807E0E0E070783F1F07 F9F9F9F2E20418E00707070E1EFCF8E0 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 071F3F7F7FFFFFFF071F3F7F7FFFFFFF E0F8FCFEFEFFFFFFE0F8FCFEFEFFFFFF 00071F3F3F7F7F7F00071F3F3F7F7F7F 00E0F8FCFCFEFEFE00E0F8FCFCFEFEFE 0000071F1F3F3F3F0000071F1F3F3F3F 0000E0F8F8FCFCFC0000E0F8F8FCFCFC 000000070F1F1F1F000000070F1F1F1F 000000E0F0F8F8F8000000E0F0F8F8F8 00000000070F0F0F00000000070F0F0F 00000000E0F0F0F000000000E0F0F0F0 00000000000307070000000000030707 0000000000C0E0E00000000000C0E0E0 00000000000001030000000000000103 00000000000080C000000000000080C0 00000000000000000000000000000000 00000000000000000000000000000000 FFFFFF7F7F3F1F07FFFFFF7F7F3F1F07 FFFFFFFEFEFCF8E0FFFFFFFEFEFCF8E0 7F7F7F3F3F1F07007F7F7F3F3F1F0700 FEFEFEFCFCF8E000FEFEFEFCFCF8E000 3F3F3F1F1F0700003F3F3F1F1F070000 FCFCFCF8F8E00000FCFCFCF8F8E00000 1F1F1F0F070000001F1F1F0F07000000 F8F8F8F0E0000000F8F8F8F0E0000000 0F0F0F07000000000F0F0F0700000000 F0F0F0E000000000F0F0F0E000000000 07070300000000000707030000000000 E0E0C00000000000E0E0C00000000000 03010000000000000301000000000000 C080000000000000C080000000000000 #15:MAIN SOUND 380030CC10000000180080CD103A0000 080060AD10000000280030AD09FE0000 080020AD14DD0000180050AD10E60000 2D0000AA10C72000180080CD10E10000 080060AD14D00000280030AD09750000 080020AD10D20000180050AD10EF0000 290000AA10C74000080000AA14F60000 080000AA14FE00002D0000BB100D2000