TOUCHSCREEN RANDOMIZE TIMER REM REM SPRITE ANIMATIONS REM WAS8BIT SPRITE 0,62,0,72 SPRITE 0 SIZE 3 PAL 0 SPRITE 1,20,0,64 SPRITE 1 SIZE 2 PAL 1 SPRITE 2,115,0,64 SPRITE 2 SIZE 2 PAL 1 FOR I=10 TO 17 SPRITE I,0,(I-10)*16,16 SPRITE I SIZE 1 PAL 2 NEXT I FOR I=20 TO 26 SPRITE I,0,(I-20)*16+12,1 SPRITE I SIZE 0 PAL 3 NEXT I DIM GLOBAL CELLFRAME(63),CELLSTEP(63) DIM GLOBAL IFRAME(63),FRAMEMAX(63),FRAMESPEED(63),ISPEED(63) DIM GLOBAL SPRDIR(63),SPRMAX(63),SPRSPEED(63),SPRPOS(63) CELLFRAME(0)=72 CELLFRAME(1)=64 CELLFRAME(2)=64 CELLSTEP(0)=4 CELLSTEP(1)=3 CELLSTEP(2)=3 FOR I=0 TO 63 IFRAME(I)=0 ISPEED(I)=0 SPRDIR(I)=1 SPRPOS(I)=0 SPRMAX(I)=8*13 NEXT I FRAMEMAX(0)=1 FRAMEMAX(1)=1 FRAMEMAX(2)=1 FOR I=10 TO 26 FRAMEMAX(I)=7 SPRMAX(I)=8*19 NEXT I FOR I=10 TO 17 CELLFRAME(I)=16 CELLSTEP(I)=2 NEXT I FOR I=20 TO 26 CELLFRAME(I)=1 CELLSTEP(I)=1 NEXT I REMIX: WAIT 15 SPRSPEED(0)=RND*4 SPRSPEED(1)=RND*4 SPRSPEED(2)=RND*4 FRAMESPEED(0)=RND(59)+1 FRAMESPEED(1)=RND(59)+1 FRAMESPEED(2)=RND(59)+1 FOR I=10 TO 26 SPRSPEED(I)=RND*4 FRAMESPEED(I)=RND(59)+1 NEXT I DO FOR I=0 TO 2 CALL DOSPRITE(I) SPRITE I,,SPRPOS(I),CELLFRAME(I)+IFRAME(I)*CELLSTEP(I) NEXT I FOR I=10 TO 17 CALL DOSPRITE(I) SPRITE I,SPRPOS(I),,CELLFRAME(I)+IFRAME(I)*CELLSTEP(I) NEXT I FOR I=20 TO 26 CALL DOSPRITE(I) SPRITE I,SPRPOS(I),,CELLFRAME(I)+IFRAME(I)*CELLSTEP(I) NEXT I IF TOUCH THEN GOTO REMIX WAIT VBL LOOP SUB DOSPRITE(I) REM ANIMATE SPRITE ISPEED(I)=(ISPEED(I)+1) MOD FRAMESPEED(I) IF ISPEED(I)=0 THEN ADD IFRAME(I),1,0 TO FRAMEMAX(I) REM MOVE SPRITE TEST=SPRPOS(I)+SPRSPEED(I)*SPRDIR(I) IF TEST>SPRMAX(I) THEN SPRDIR(I)=-1 ELSE IF TEST<0 THEN SPRDIR(I)=1 ELSE SPRPOS(I)=TEST END IF END SUB #1:MAIN PALETTES 00381308003B3F0000352010000F0A05 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 00000018180000000000001818000000 00001824241800000000183C3C180000 0018245A5A24180000183C66663C1800 18245BBDBD5A2418183C67C3C3663C18 0018245A5A24180000183C66663C1800 00001824241800000000183C3C180000 00000018180000000000001818000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000001030000000000000103 00000000000080C000000000000080C0 0000000003070E0C0000000003070F0F 00000000C0E0703000000000C0E0F0F0 0000030F1C1831330000030F1F1F3E3C 0000C0F038188CCC0000C0F0F8F87C3C 071F3C7063E7CFCF071F3F7F7CF8F0F0 E0F83C0EC6E7F3F3E0F8FCFE3E1F0F0F 0000030F1C1831330000030F1F1F3E3C 0000C0F038188CCC0000C0F0F8F87C3C 0000000003070E0C0000000003070F0F 00000000C0E0703000000000C0E0F0F0 00000000000001030000000000000103 00000000000080C000000000000080C0 00000000000000000000000000000000 00000000000000000000000000000000 03010000000000000301000000000000 C080000000000000C080000000000000 0C0E0703000000000F0F070300000000 3070E0C000000000F0F0E0C000000000 3331181C0F0300003C3E1F1F0F030000 CC8C1838F0C000003C7CF8F8F0C00000 CFCFE763703C1F07F0F0F87C7F3F1F07 F3F3E7C60E3CF8E00F0F1F3EFEFCF8E0 3331181C0F0300003C3E1F1F0F030000 CC8C1838F0C000003C7CF8F8F0C00000 0C0E0703000000000F0F070300000000 3070E0C000000000F0F0E0C000000000 03010000000000000301000000000000 C080000000000000C080000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 071F3F7F7FFFFFFF0000000000003F00 FFFFFFFFFFFFFFFF0000000000000000 E0F8FCFEFEFFFFFF000000000000FC00 071F3F7F7FFFFFFF00000000030C3000 FFFFFFFFFFFFFFFF0000000000000000 E0F8FCFEFEFFFFFF00000000C0300C00 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000002002000000 00000001030306060000000103030585 000000F0F8F8ECEC000000F1F8F85454 00000000000000000010000002002000 00000004120924130000000000000000 00000001030386060000000103030505 000000F0F8F8ECEC000000F0F8F85454 000000000000060E0000000000000000 C381818199BDBDDB3C7E7E7E7E7E7E3C FFFFFFFFFFFFFFFF0000000000000000 C381818199BDBDDB3C7E7E7E7E7E7E3C DBBDBD99818181C33C7E7E7E7E7E7E3C FFFFFFFFFFFFFFFF0000000000000000 DBBDBD99818181C33C7E7E7E7E7E7E3C 00000000000000000000000000000000 00000000000000000000000000000000 000000000000040B0010000000000000 0F0D0D18284B8B0F0F090D08080B0B0F FCF8F8E1F1F86C67FCF8F8E1F0F86C67 80C0C0F0E0F0B81C80C040C080000000 0B040000000000000000000000000000 07834320100D0D0F07030300000D090F FCF8F8E1F1F86C67FCF8F8E1F0F86C67 1CB8F0E0F0C0C08000000080C040C080 FFFFFF7F7F3F1F070000000000000000 FFFFFFFFFFFFFFFF0000000000FF0000 FFFFFFFEFEFCF8E00000000000000000 FFFFFF7F7F3F1F070000000000000000 FFFFFFFFFFFFFFFF00003C42423C0000 FFFFFFFEFEFCF8E00000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 13240912040000800000000000000080 008000010001001F000000010302031F 60F0F0F8006800FE60F0F0F8FC94FCFE 0E060000000000000000000000000000 00000000000000000000240002002000 00000001000100070000000103020307 60F0F0F8006800FE60F0F0F8FC94FCFE 00000000000001030880000200200103 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 E0703F3E00000000E0703F3E00000000 30E080000000000030E0800000000000 0F070703010000000F07070301000000 00008080C0F07F7F00008080C0F07F7F 0000000000011F3F0000000000011F3F 0E1C183060E0E0C00E1C183060E0E0C0 0E030300000000000E03030000000000 070EFCF800000000070EFCF800000000