REM RESOURCES USED... REM REM PALETTE 7 REM REM SOUND 15 REM REM GRAPHICS PAGE 3 AND SOME OF PAGE 2 REM REM SPRITES 35 TO 63 REM RANDOMIZE TIMER TOUCHSCREEN R=0 DO CALL DOSPIN(R,"140000000016") PRINT R WAIT 60 CLS LOOP ' SPINNER CODE BELOW...... ' ' DAT$ IS FORMATED AS 2 DIGIT #S IN ORDER... ' ' POSITIONS ON PAGE 3 ' 01 02 03 04 05 06 07 08 ' 09 10 11 12 13 14 15 16 ' ' USE ENTRY 00 FOR NO CHANGE FOR THAT POSITION ' ' EXAMPLE... ' TO ADD IMAGE#14 TO POSITION 1 AND IMAGE#16 IN POSITION 5 ' DAT$="1400000016" ' MEANS 14,0,0,0,16 ... POS#1=CHAR#14, POS#5=CHAR#16 SUB DOSPIN(SPINRESULT,DAT$) REM SPINNER CODE BY WAS8BIT CLS COPY $8000+124*16,16 TO $8000 ISPIN=0 ITOUCH=0 SPRITE 63,80,2,123 SV=0 CI=0 R=50 CX=69 CY=52 AA=PI/6 IF SPINRESULT=0 THEN SPINRESULT=RND(11)+1 AI=0-AA*SPINRESULT+1.85 TRACE SPINRESULT AS=999 OHIT=0 DIM TARGET(12) RESTORE READTARGET FOR I=1 TO 12 READ TARGET(I) NEXT I READTARGET: DATA 128,130,132,134,136,138 DATA 140,142,160,162,164,166 II=0 FOR I=1 TO LEN(DAT$) STEP 2 INC II V=VAL(MID$(DAT$,I,2)) IF V>0 AND V<=8 THEN TARGET(II)=V*2+126 IF V>8 THEN TARGET(II)=(V-8)*2+158 NEXT I FOR I=1 TO 12 SPR=I+50 NUM=I+35 SPRITE SPR,,,74 SPRITE SPR SIZE 2 PAL 7 SPRITE NUM,,,TARGET(I) SPRITE NUM SIZE 1 PAL 7 A=AA*I+PI-0.25 X=CX+R*COS(A+AI) Y=CY+R*SIN(A+AI) SPRITE SPR,X,Y, SPRITE NUM,X+4,Y+4, NEXT I PAL 7 TEXT 7,6,"SWIPE" TEXT 7,7," TO" TEXT 7,8," SPIN" WHILE ISPIN=0 IF TOUCH THEN PLAY 1,50,1 SOUND 15 IF ITOUCH=0 THEN X1=TOUCH.X Y1=TOUCH.Y ITOUCH=1 END IF ELSE IF ITOUCH=1 THEN X2=TOUCH.X Y2=TOUCH.Y ITOUCH=2 ISPIN=1 DX=ABS(X1-X2) DY=ABS(Y1-Y2) IF DX>DY THEN AS=DX/1000 ELSE AS=DY/1000 IF AS<0.0333 THEN AS=RND/33+0.025 PLAY 0,40,90 SOUND 15 END IF END IF WAIT VBL WEND CLS DO IF SPRITE HIT(63) AND AS>0 THEN SPINRESULT=HIT-50 SPRITE HIT,,,77 OHIT=HIT PLAY 0,60,1 SOUND 15 COPY $8000+122*16,16 TO $8000 AS=AS-0.0005 IF AS<0.001 THEN AS=0 ELSE IF AS>0 THEN IF OHIT>0 THEN SPRITE OHIT,,,74 OHIT=0 COPY $8000+124*16,16 TO $8000 END IF END IF AI=AI+AS IF AS<=0.005 THEN AS=0 EXIT END IF FOR I=1 TO 12 SPR=I+50 NUM=I+35 A=AA*I+PI-0.25 X=CX+R*COS(A+AI) Y=CY+R*SIN(A+AI) SPRITE SPR,X,Y, SPRITE NUM,X+4,Y+4, NEXT I WAIT VBL LOOP FOR I=1 TO 30 COPY $8000+122*16,16 TO $8000 WAIT 3 COPY $8000+124*16,16 TO $8000 WAIT 3 NEXT I END SUB #1:MAIN PALETTES 00303C0C003C0C00000F0B0000302000 000C0800003824000033220000303E0C #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0000030F1F1F3F3F00030C1020204040 007EFFFFFFFFFFFF7E81000000000000 0000C0F0F8F8FCFC00C0300804040202 00030F1F3F3F7F7F0000030F1F1F3F3F 7EFFFFFFFFFFFFFF007EFFFFFFFFFFFF 00C0F0F8FCFCFEFE0000C0F0F8F8FCFC 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3F7F7F7F7F7F7F3F4080808080808040 FFFFFFFFFFFFFFFF0000000000000000 FCFEFEFEFEFEFEFC0201010101010102 7FFFFFFFFFFFFF7F3F7F7F7F7F7F7F3F FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FEFFFFFFFFFFFFFEFCFEFEFEFEFEFEFC 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3F3F1F1F0F03000040402020100C0300 FFFFFFFFFFFF7E00000000000000817E FCFCF8F8F0C00000020204040830C000 7F7F3F3F1F0F03003F3F1F1F0F030000 FFFFFFFFFFFFFF7EFFFFFFFFFFFF7E00 FEFEFCFCF8F0C000FCFCF8F8F0C00000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000008100000000000001808000000 00000000000000008000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00071F3F3F7F7F7F0718204040838181 00E0F8FCFCFEFEFEE018040202010101 00071F3F3F7F7F7F0718204040878080 00E0F8FCFCFEFEFEE018040202C14141 00071F3F3F7F7F7F0718204040878080 00E0F8FCFCFEFEFEE018040202C14141 00071F3F3F7F7F7F0718204040848484 00E0F8FCFCFEFEFEE018040202414141 00071F3F3F7F7F7F0718204040878484 00E0F8FCFCFEFEFEE018040202C10101 00071F3F3F7F7F7F0718204040878484 00E0F8FCFCFEFEFEE018040202C10101 00071F3F3F7F7F7F0718204040838080 00E0F8FCFCFEFEFEE018040202C14141 00071F3F3F7F7F7F0718204040878484 00E0F8FCFCFEFEFEE018040202C14141 7F7F7F3F3F1F07008181814740201807 FEFEFEFCFCF8E000010101C2020418E0 7F7F7F3F3F1F07008784844740201807 FEFEFEFCFCF8E000C10101C2020418E0 7F7F7F3F3F1F07008380804740201807 FEFEFEFCFCF8E000C14141C2020418E0 7F7F7F3F3F1F07008780804040201807 FEFEFEFCFCF8E000C1414142020418E0 7F7F7F3F3F1F07008780804740201807 FEFEFEFCFCF8E000C14141C2020418E0 7F7F7F3F3F1F07008784844740201807 FEFEFEFCFCF8E000C14141C2020418E0 7F7F7F3F3F1F07008080804040201807 FEFEFEFCFCF8E00041414142020418E0 7F7F7F3F3F1F07008784844740201807 FEFEFEFCFCF8E000C14141C2020418E0 00071F3F3F7F7F7F0718204040878484 00E0F8FCFCFEFEFEE018040202C14141 00071F3F3F7F7F7F0718204040998989 00E0F8FCFCFEFEFEE018040202F11111 00071F3F3F7F7F7F0718204040988888 00E0F8FCFCFEFEFEE018040202C14141 00071F3F3F7F7F7F0718204040998888 00E0F8FCFCFEFEFEE018040202F11111 00071F3F3F7F7F7F0718204040818181 00E0F8FCFCFEFEFEE018040202010101 071F3F7F7FFFFFFF071F3D7875F5F8FD E0F8FCFEFEFFFFFFE0F87C1E7E7F3F5F 00071F3F3F7F7F7F0718204040808087 00E0F8FCFCFEFEFEE0180402020101F1 071F3F7F7FFFFFFF071F3F7F7FEDD5D5 E0F8FCFEFEFFFFFFE0F8FCFEFEA3B7B7 7F7F7F3F3F1F07008780804740201807 FEFEFEFCFCF8E000C14141C2020418E0 7F7F7F3F3F1F07008989895D40201807 FEFEFEFCFCF8E000111111F2020418E0 7F7F7F3F3F1F07008888885C40201807 FEFEFEFCFCF8E000414141E2020418E0 7F7F7F3F3F1F07008989895D40201807 FEFEFEFCFCF8E000F10101F2020418E0 7F7F7F3F3F1F07008F81814140201807 FEFEFEFCFCF8E000E1010102020418E0 FFFFFF7F7F3F1F07FDF0FD7F7F3F1F07 FFFFFFFEFEFCF8E05F3F7FFEFEFCF8E0 7F7F7F3F3F1F07008080804040201807 FEFEFEFCFCF8E00001010102020418E0 FFFFFF7F7F3F1F07D5EEFF7F7F3F1F07 FFFFFFFEFEFCF8E0B777FFFEFEFCF8E0 #3:MAIN BG 00001410000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000 #15:MAIN SOUND 220030CC0053E0001800846C003A0000 08006060000000002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000001800000F00000000