RANDOMIZE TIMER TOUCHSCREEN 'WAS8BIT DIM GLOBAL ICELL(3,6),IX(3,6),IY(3,6),ITEM(3,6) GLOBAL ITURN REM 5,6 "IF" 2 REM 4 "IF" 3 REM 3 "IF" 2 REM 1,2 ANYTIME FOR IT=1 TO 3 FOR I=1 TO 6 READ ICELL(IT,I),IX(IT,I),IY(IT,I) NEXT I NEXT IT DATA 2,2,12, 18,2,13, 34,2,14, 50,2,15, 17,1,13, 19,3,13 DATA 5,6,12, 21,6,13, 37,6,14, 53,6,15, 20,5,13, 22,7,13 DATA 26,12,13, 25,11,13, 24,10,13, 7,9,12, 39,11,14, 41,9,14 PAL 3 TEXT 12,0,"1: HEAD" TEXT 12,2,"2: CHEST" TEXT 12,4,"3: HIPS" TEXT 12,6,"4: LEGS" TEXT 12,8,"5: L ARM" TEXT 12,10,"6: R ARM" TEXT 12,12," PLAYER" TEXT 0,10,"(1) (2) (3)" REPLAY: PAL 3 FOR IT=1 TO 3 FOR I=1 TO 6 ITEM(IT,I)=0 CELL IX(IT,I),IY(IT,I),ICELL(IT,I) IF I>=5 THEN CELL IX(IT,I),IY(IT,I)+1,ICELL(IT,I)+16 NEXT I NEXT IT R=0 ITURN=1 'MAIN GAME LOOP DO CALL DOSPIN(R) GOTO SKIPTEST PLAY 0,90,1 SOUND 0 WAIT VBL R=RND(5)+1 SKIPTEST: IF ITEM(ITURN,R)=0 THEN IT=ITURN I=R IADD=0 IF (R=1 OR R=2) THEN IADD=1 ELSE IF R=3 AND ITEM(ITURN,2)=1 THEN IADD=1 ELSE IF R=4 AND ITEM(ITURN,3)=1 THEN IADD=1 ELSE IF (R=5 OR R=6) AND ITEM(ITURN,2)=1 THEN IADD=1 END IF IF IADD=1 THEN PAL 1 ITEM(ITURN,R)=1 CELL IX(IT,I),IY(IT,I),ICELL(IT,I) IF R>=5 THEN CELL IX(IT,I),IY(IT,I)+1,ICELL(IT,I)+16 FOR S=10 TO 50 STEP 20 PLAY 0,S+R*5,1 SOUND 13 WAIT 2 NEXT S END IF END IF ADD ITURN,1,1 TO 3 WAIT 60 IWIN=1 FOR II=1 TO 6 IF ITEM(ITURN,II)=0 THEN IWIN=0 NEXT II IF IWIN=1 THEN PAL 1 TEXT 14,14,"WIN: "+STR$(ITURN) PLAY 0,48,6 SOUND 14 WAIT 60 WHILE NOT TOUCH WAIT VBL WEND TEXT 14,14," " WAIT 60 GOTO REPLAY END IF LOOP SUB DOSPIN(SPINRESULT) PAL 1 TEXT 15,14,STR$(ITURN) CELL 17,14,72+16*ITURN CELL 18,14,73+16*ITURN ISPIN=0 ITOUCH=0 SPRITE 63,80-43+16,1,123 SV=0 CI=0 R=25 CX=26+16 CY=26 AA=PI/3 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 FOR I=1 TO 6 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 IF ITURN>1 THEN WAIT 30+RND(60) AS=RND+0.075 PLAY 0,40,90 SOUND 15 ELSE WHILE ISPIN=0 PLAY 0,30,90 SOUND 14 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/555 ELSE AS=DY/555 IF AS<0.2 THEN AS=RND+RND/200 PLAY 0,40,90 SOUND 14 END IF END IF WAIT VBL WEND END IF DO IF SPRITE HIT(63) AND AS>0 THEN SPINRESULT=HIT-50 SPRITE HIT,,,77 OHIT=HIT PLAY 0,60,1 SOUND 15 AS=AS*0.95 TRACE AS IF AS<0.001 THEN AS=0 ELSE IF AS>0 THEN IF OHIT>0 THEN SPRITE OHIT,,,74 OHIT=0 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 END SUB #1:MAIN PALETTES 00030A04003C0C00000F0B0000302000 000C0800003824000033220000303E0C #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 3C7E5A5A7E2418000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 42C3E7FF5A7E24180000000000000000 00000000000000000000000000000000 0F1020202020100E0000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000E10100054540000000000000000 1800E700660066000000000000000000 0000700808002A2A0000000000000000 00001E2848A8A8000000000000000000 1800E700660066000000000000000000 00007814121515000000000000000000 00000000000000000000000000000000 FF224419620C31060000000000000000 605098244A9324400000000000000000 80C07FEDE8F87D0F0000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 18186642422424240000000000000000 00000000000000000000000000000000 A8A8A0A0A08080000000000000000000 18182424242424000000000000000000 15150505050101000000000000000000 00000102040810200000000000000000 00000000000000000000000000000000 00000102040810200000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00242424C30000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 24244200000000000000000000000000 00000000000000000000000000000000 00402010080403000000000000000000 00000000000000000000000000000000 00402010080403000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 006C8A4C28C800000000000000000000 00919995939100000000000000000000 0000030F1F1F3F3F00030C1020204040 007EFFFFFFFFFFFF7E81000000000000 0000C0F0F8F8FCFC00C0300804040202 00030F1F3F3F7F7F0000030F1F1F3F3F 7EFFFFFFFFFFFFFF007EFFFFFFFFFFFF 00C0F0F8FCFCFEFE0000C0F0F8F8FCFC 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 006C8A4C28C800000000000000000000 00919995939100000000000000000000 3F7F7F7F7F7F7F3F4080808080808040 FFFFFFFFFFFFFFFF0000000000000000 FCFEFEFEFEFEFEFC0201010101010102 7FFFFFFFFFFFFF7F3F7F7F7F7F7F7F3F FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FEFFFFFFFFFFFFFEFCFEFEFEFEFEFEFC 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0000000000000000000000FF00000000 0000000000000000000000FF00000000 3F3F1F1F0F03000040402020100C0300 FFFFFFFFFFFF7E00000000000000817E FCFCF8F8F0C00000020204040830C000 7F7F3F3F1F0F03003F3F1F1F0F030000 FFFFFFFFFFFFFF7EFFFFFFFFFFFF7E00 FEFEFCFCF8F0C000FCFCF8F8F0C00000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0000000000000000000000FF00000000 0000000000000000000000FF00000000 00000000000000000000000000000000 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 00071F3F3F7F7F7F071822474A8A8782 00E0F8FCFCFEFEFEE01884E28281C1A1 00071F3F3F7F7F7F0718204040808087 00E0F8FCFCFEFEFEE0180402020101F1 00071F3F3F7F7F7F071820404092AAAA 00E0F8FCFCFEFEFEE0180402025D4949 7F7F7F3F3F1F07008780804740201807 FEFEFEFCFCF8E000C14141C2020418E0 7F7F7F3F3F1F07008989895D40201807 FEFEFEFCFCF8E000111111F2020418E0 7F7F7F3F3F1F07008888885C40201807 FEFEFEFCFCF8E000414141E2020418E0 7F7F7F3F3F1F07008989895D40201807 FEFEFEFCFCF8E000F10101F2020418E0 7F7F7F3F3F1F07008F81814140201807 FEFEFEFCFCF8E000E1010102020418E0 7F7F7F3F3F1F0700828F824040201807 FEFEFEFCFCF8E000A1C18102020418E0 7F7F7F3F3F1F07008080804040201807 FEFEFEFCFCF8E00001010102020418E0 7F7F7F3F3F1F0700AA91804040201807 FEFEFEFCFCF8E00049890102020418E0 #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 0800000F00000000080000991000D000 1800000F008B00001800000F00000000