BG 1 BG COPY 0,0,20,16 TO 0,0 BG 0 TOUCHSCREEN RANDOMIZE TIMER REM WAS8BIT SPRITE 0,,,1 SPRITE 1 SIZE 3 SPRITE 2,,,70 SPRITE 2 SIZE 2 DIM GLOBAL PC(4,4,4,7),PW(4,7) GLOBAL MARK REM O,Z,S,I,T,J,L FOR P=1 TO 4 FOR F=1 TO 4 FOR Y=1 TO 4 FOR X=1 TO 4 READ PC(X,Y,F,P) NEXT X NEXT Y READ PW(F,P) NEXT F NEXT P REM O DATA 1,2,0,0 DATA 3,4,0,0 DATA 0,0,0,0 DATA 0,0,0,0,2 ' DATA 3,1,0,0 DATA 4,2,0,0 DATA 0,0,0,0 DATA 0,0,0,0,2 ' DATA 4,3,0,0 DATA 2,1,0,0 DATA 0,0,0,0 DATA 0,0,0,0,2 ' DATA 2,4,0,0 DATA 1,3,0,0 DATA 0,0,0,0 DATA 0,0,0,0,2 ' REM Z DATA 0,1,0,0 DATA 3,2,0,0 DATA 4,0,0,0 DATA 0,0,0,0,2 ' DATA 4,3,0,0 DATA 0,2,1,0 DATA 0,0,0,0 DATA 0,0,0,0,3 ' DATA 0,4,0,0 DATA 2,3,0,0 DATA 1,0,0,0 DATA 0,0,0,0,2 ' DATA 1,2,0,0 DATA 0,3,4,0 DATA 0,0,0,0 DATA 0,0,0,0,3 ' REM S DATA 1,0,0,0 DATA 2,3,0,0 DATA 0,4,0,0 DATA 0,0,0,0,2 ' DATA 0,2,1,0 DATA 4,3,0,0 DATA 0,0,0,0 DATA 0,0,0,0,3 ' DATA 4,0,0,0 DATA 3,2,0,0 DATA 0,1,0,0 DATA 0,0,0,0,2 ' DATA 0,3,4,0 DATA 1,2,0,0 DATA 0,0,0,0 DATA 0,0,0,0,3 ' REM I REM S DATA 1,0,0,0 DATA 2,0,0,0 DATA 3,0,0,0 DATA 4,0,0,0,1 ' DATA 1,2,3,4 DATA 0,0,0,0 DATA 0,0,0,0 DATA 0,0,0,0,4 ' DATA 4,0,0,0 DATA 3,0,0,0 DATA 2,0,0,0 DATA 1,0,0,0,1 ' DATA 4,3,2,1 DATA 0,0,0,0 DATA 0,0,0,0 DATA 0,0,0,0,4 ' ISPR=1 SPRITE 1,64,0,6 ITOUCH=0 IDRAG=0 TAPMAX=7 NEWGAME: PIECE=RND(3)+1 MARK=RND(4) CALL POOP(1,PIECE) REPLAY=0 WAIT 15 DO IF TOUCH THEN SPRITE 1,,,64 SPRITE 2,68,110, SPRITE 0,TOUCH.X,TOUCH.Y, IF SPRITE HIT(0) THEN IF HIT=2 THEN PLAY 1,90,1 REPLAY=1 END IF SPRITE OFF 2 IF HIT=1 THEN IF ITOUCH>=0 THEN INC ITOUCH IF ITOUCH>TAPMAX THEN PLAY 0,35,1 SOUND 0 IF IDRAG=0 THEN DX=TOUCH.X-SPRITE.X(1) DY=TOUCH.Y-SPRITE.Y(1) IDRAG=1 ELSE XX=((TOUCH.X-DX)\8)*8 YY=((TOUCH.Y-DY)\8)*8 IF YY<0 THEN YY=0 IF YY>8 THEN YY=8 IF XX<48 THEN XX=48 XMAX=(14-PW(ISPR,PIECE))*8 IF XX>XMAX THEN XX=XMAX SPRITE 1,XX,YY, SPRITE 1 PAL 1 END IF END IF END IF ELSE ITOUCH=-1 END IF SPRITE 1,,,6 SPRITE OFF 2 ELSE IF ITOUCH0 THEN PLAY 0,50,1 SOUND 2 ADD ISPR,1,1 TO 4 CALL POOP(ISPR,PIECE) SPRITE 1,,,6 END IF IDRAG=0 ITOUCH=0 SPRITE OFF 0 SPRITE OFF 2 SPRITE 1 PAL 0 END IF IF REPLAY=1 THEN GOTO NEWGAME WAIT VBL LOOP SUB POOP(IR,IP) FOR Y=0 TO 3 FOR X=0 TO 3 F=$8000+10*16 M=PC(X+1,Y+1,IR,IP) IF M=0 THEN F=$8000 ELSE SS=1 IF MARK>0 AND MARK=M THEN SS=2 F=$8000+(67+SS)*16 END IF A=X*16+Y*16*16 T=$8000+6*16 A=X*16+Y*16*16 COPY F,16 TO T+A NEXT X NEXT Y END SUB #1:MAIN PALETTES 103C3825003C3830003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000008000000000000000 FFBBFFEEFFBBFFEEFFFFFFFFFFFFFFFF FCB8FCECFCB8FCECFEFEFEFEFEFEFEFE 0000FFEEFFBBFFEE00FFFFFFFFFFFFFF 3F3B3F2E3F3B3F2E7F7F7F7F7F7F7F7F FFFFFFFEFFFFFFEEFFBBEFC7EFBBFFFF FFFFFFFEFFFFFFEEFFBBEFC7EFBBFFFF FFFFFFFEFFFFFFEEFFBBEFC7EFBBFFFF FFFFFFFEFFFFFFEEFFBBEFC7EFBBFFFF FF808080808080800000000000000000 FF000000000000000000000000000000 FF000000000000000000000000000000 FF010101010101010000000000000000 FFBBFFEEFBBFFFEEFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFEFC7EFFFFFFF FCB8FFEEFFBBFFEEFEFFFFFFFFFFFFFF 3F3BFFEEFFBBFFEE7FFFFFFFFFFFFFFF FEBEFEEEFEBEFEEEF8F8F8F8F8F8F8F8 7F7B7F6E7F7B7F6E1F1F1F1F1F1F1F1F 00000000000000000000000000000000 00000000000000000000000000000000 FFFFFFFEFFFFFFEEFFBBEFC7EFBBFFFF FFFFFFFEFFFFFFEEFFBBEFC7EFBBFFFF FFFFFFFEFFFFFFEEFFBBEFC7EFBBFFFF FFFFFFFEFFFFFFEEFFBBEFC7EFBBFFFF 80808080808080800000000000000000 00606000000003030000000000000000 000606000000C0C00000000000000000 01010101010101010000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0000C0C0C082C2C200FFFFE0E0E2E2E2 000000000000000000FFFF00CCAAACCA 000000000000000000FFFF0066959664 000003020343434200FFFF0707474747 00000000000000000000000000000000 00000000000000000000000000000000 FFFFFFFEFFFFFFEEFFBBEFC7EFBBFFFF FFFFFFFEFFFFFFEEFFBBEFC7EFBBFFFF FFFFFFFEFFFFFFEEFFBBEFC7EFBBFFFF FFFFFFFEFFFFFFEEFFBBEFC7EFBBFFFF 80808080808080800000000000000000 03030000006060000000000000000000 C0C00000000606000000000000000000 01010101010101010000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 C28FC7C2C080FFEEE2EFE7E2E0FFFFFF 00BF0F030000FFEE00BF0F0300FFFFFF 00FDF0C00000FFEE00FDF0C000FFFFFF 43F3E3420303FFEE47F7E74707FFFFFF 00000000000000000000000000000000 00000000000000000000000000000000 FFFFFFFEFFFFFFEEFFBBEFC7EFBBFFFF FFFFFFFEFFFFFFEEFFBBEFC7EFBBFFFF FFFFFFFEFFFFFFEEFFBBEFC7EFBBFFFF FFFFFFFEFFFFFFEEFFBBEFC7EFBBFFFF 80808080808080FF0000000000000000 00000000000000FF0000000000000000 00000000000000FF0000000000000000 01010101010101FF0000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 071F3F7F7F7FFFFF0000000000000000 FFFFFFFFFFFFFFFF0000000000000000 FFFFFFFFFFFFFFFF0000000000000000 C0F8FCFEFEFFFFFF0000000000000000 183C7EFFFF7E3C183C7EFFFFFFFF7E3C 183C7EFFFF7E3C182C46933993C76E3C FFFFFFFFFFFFFFFF0000000000000000 FFFFFFFFFFFFFFFF0000000000000000 FFFFFFFFFFFFFFFF0000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00001824241800000000000000000000 00000010000000000000000000000000 00001000040000000000000000000000 00001008040000000000000000000000 00002800280000000000000000000000 FFFFFFFFFFFFFFFF0000000000000000 FFFFFFFFFFFFFFFF0000000000000000 FFFFFFFFFFFFFFFF0000000000000000 FFFFFFFFFFFFFFFF0000000000000000 00000000000000000000000000000000 FFFFFFFFFFFFFFFFFFFFEFC7EFFFFFFF FFFFFFFFFFFFFFFF0000000000000000 FFFFFFFFFFFFFFFF0000000000000000 FFFFFFFFFFFFFFFF0000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FFFFFFFFFFFFFFFF0000000000000000 FFFFFFFFFFFFFFFF0000000000000000 FFFFFFFFFFFFFFFF0000000000000000 FFFFFFFFFFFFFFFF0000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FFFFFFFFFFFFFFFF0000000000000000 FFFFFFFFFFFFFFFF0000000000000000 FFFFFFFFFFFFFFFF0000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FFFFFF7F7F3F1F030000000000000000 FFFFFFFFFFFFFFFF0000000000000000 FFFFFFFFFFFFFFFF0000000000000000 FFFFFEFEFEFCF8E00000000000000000 #3:MAIN BG 00001410020002000200020002001200 00000000000000000000000000000000 13000200020002000200020002000200 02000200020012000000000000000000 00000000000000001300020002000200 02000200020002000200020002001200 00000000000000000000000000000000 13000200020002000200020002000200 02000200020012000000000000000000 00000000000000001300020002000200 02000200020002000200020002000300 00000000000000000000000000000000 05000200020002000200020002000200 02000200020003000000000000000000 00000000000000000500020002000200 02000200020002000200020002000300 00000000000000000000000000000000 05000200020002000200020002000200 02000200020003000000000000000000 00000000000000000500020002000200 02000200020002000200020002000300 00000000000000000000000000000000 05000200020002000200020002000200 02000200020003000000000000000000 00000000000000000500020002000200 02000200020002000200020002000300 00000000000000000000000000000000 05000200020002000200020002000200 02000200020003000000000000000000 00000000000000000500020002000200 02000200020002000200020002000300 00000000000000000000000000000000 05000200020002000200020002000200 02000200020003000000000000000000 00000000000000000500020002000200 02000200020002000200020002001000 04000400200021002200230004000400 11000200020002000200020002000200 02000200020002000200020030003100 32003300020002000200020002000200 02000200 #15:MAIN SOUND 0800F100000000000800F10000000000 08006060000000002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000