RANDOMIZE TIMER TOUCHSCREEN REM WAS8BIT SPRITE 5,0,0,1 SPRITE 4,72,56,2 SPRITE 4 SIZE 1 PAL 4 SPRITE 0,0,0,4 SPRITE 0 SIZE 1 PAL 0 SPRITE 1,144,0,4 SPRITE 1 SIZE 1 PAL 1 SPRITE 2,0,114,4 SPRITE 2 SIZE 1 PAL 2 SPRITE 3,144,114,6 SPRITE 3 SIZE 1 PAL 3 DIM PC(3) FSTEP=5+RND(15) FSOUND=RND(3) PLAY 0,0,0 SOUND FSOUND PLAY 1,0,0 SOUND FSOUND PLAY 2,0,0 SOUND FSOUND PLAY 3,0,0 SOUND FSOUND POKE $FF41,FSTEP+RND(8) POKE $FF4D,FSTEP*1.5+RND(8) POKE $FF59,FSTEP*2+RND(8) FBASE=FSTEP*2.5+RND(8) POKE $FF65,FBASE ITOUCH=0 STOUCH=0 I=0 W=0 WW=3+RND(10) X1=RND(4)+2 Y1=RND(4)+2 PC(0)=4 PC(1)=5 PC(2)=6 PC(3)=7 FOR IP=1 TO 100 R1=RND(3) R2=RND(3) SWAP PC(R1),PC(R2) NEXT IP FOR Y=0 TO 15 FOR X=0 TO 19 PAL PC(1) IF X MOD X1 THEN PAL PC(3) IF Y MOD Y1 THEN PAL PC(2) IF X MOD X1 AND Y MOD Y1 THEN PAL PC(0) CELL X,Y,0 NEXT X NEXT Y DO IF TOUCH THEN SPRITE 5,TOUCH.X,TOUCH.Y, IF SPRITE HIT (5) THEN IF ITOUCH=0 AND HIT<4 THEN ITOUCH=1 STOUCH=HIT DX=SPRITE.X(HIT)-TOUCH.X DY=SPRITE.Y(HIT)-TOUCH.Y END IF END IF IF ITOUCH=1 THEN IF STOUCH=0 THEN IF TOUCH.X<72 THEN SPRITE STOUCH,TOUCH.X+DX,, IF TOUCH.Y<56 THEN SPRITE STOUCH,,TOUCH.Y+DY, POKE $FF40,(TOUCH.X+TOUCH.Y)*2-1 END IF IF STOUCH=1 THEN IF TOUCH.X>72 THEN SPRITE STOUCH,TOUCH.X+DX,, IF TOUCH.Y<56 THEN SPRITE STOUCH,,TOUCH.Y+DY, POKE $FF4C,(TOUCH.X-72+TOUCH.Y)*2-1 END IF IF STOUCH=2 THEN IF TOUCH.X<72 THEN SPRITE STOUCH,TOUCH.X+DX,, IF TOUCH.Y>56 THEN SPRITE STOUCH,,TOUCH.Y+DY, POKE $FF58,(TOUCH.X-56+TOUCH.Y)*2-1 END IF IF STOUCH=3 THEN IF TOUCH.X>72 THEN SPRITE STOUCH,TOUCH.X+DX,, IF TOUCH.Y>56 THEN SPRITE STOUCH,,TOUCH.Y+DY, POKE $FF65,FBASE+(TOUCH.X-56+TOUCH.Y-72)/3 END IF END IF ELSE IF ITOUCH=1 THEN ITOUCH=0 END IF ADD W,1,0 TO WW IF W=0 THEN ADD I,1,8 TO 15 COPY $8000+I*16,16 TO $8000 END IF WAIT VBL LOOP SUB MADD(I,J,D) I=I+D IF I=256 THEN I=0 INC J ELSE IF I<0 THEN I=255 DEC J END IF END SUB #1:MAIN PALETTES 1530201000382410003C2817002E1D19 00380A20000A2A150003291500202A15 #2:MAIN CHARACTERS 80000000000000000000000000000000 80000000000000008000000000000000 071F3F7877EFEFEF071F3F7F78F0F0F0 E0F8FC1EEEF7F7F7000000E0F0F8F8F8 071F387063C7CFCF071F3F7F7CF8F0F0 E0F81C0EC6E3F3F3E0F8FCFE3E1F0F0F 0000383C3C1F07070060461F1B303818 000000E0F0FC8C8E000000E0783C7C7E 00000010000000000000000000000000 00002810280000000000000000000000 10442892284410000000000000000000 925428D6285492000000000000000000 10442892284410000000000000000000 00002810280000000000000000000000 00000010000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 EFEFEF77783F1F071F1F1F0F07000000 F7F7F7EE1EFCF8E00F0F0F1EFEFCF8E0 CFCFC76370381F07F0F0F87C7F3F1F07 F3F3E3C60E1CF8E00F0F1F3EFEFCF8E0 1F1C1C0C07070100101B1F0F0F070100 FEF0E0C68E9C98003E7EFEF8F0E0E000 #15:MAIN SOUND 0E0000FF00000000180000FF00000000 280000FF000030002C0000FF19003000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 80C04040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040