GAMEPAD 1 BG 1 BG COPY 0,0,20,16 TO 0,0 BG 0 BG COPY 0,0,16,14 TO 0,0 REM WAS8BIT SCROLL 0,-16,-8 PX=8 PY=6 PZ=1 CALL PALIT(PX,PY,PZ,1) DO U=UP(0) D=DOWN(0) L=LEFT(0) R=RIGHT(0) LR=L OR R UD=U OR D UU=U AND NOT LR DD=D AND NOT LR LL=L AND NOT UD RR=R AND NOT UD UR=U AND R DL=D AND L RD=R AND D LU=L AND U IF UR THEN CALL MOVEIT(PX,PY,PZ,1,0) IF DL THEN CALL MOVEIT(PX,PY,PZ,-1,0) IF RD THEN CALL MOVEIT(PX,PY,PZ,0,1) IF LU THEN CALL MOVEIT(PX,PY,PZ,0,-1) IF UU THEN CALL SLIDEIT(PX,PY,PZ,0,-1) IF DD THEN CALL SLIDEIT(PX,PY,PZ,0,1) IF LL THEN CALL SLIDEIT(PX,PY,PZ,-1,0) IF RR THEN CALL SLIDEIT(PX,PY,PZ,1,0) WAIT VBL LOOP SUB SLIDEIT(X,Y,Z,DX,DY) CALL PALIT(X,Y,Z,0) X=X+4*DX Y=Y+2*DY PLAY 0,40,1 CALL PALIT(X,Y,Z,1) WAIT 15 END SUB SUB MOVEIT(X,Y,Z,DX,DY) CALL PALIT(X,Y,Z,0) ADD Z,1,0 TO 1 IF DX=1 THEN IF Z=0 THEN Y=Y-2 ELSE X=X+4 END IF ELSE IF DX=-1 THEN IF Z=1 THEN Y=Y+2 ELSE X=X-4 END IF END IF IF DY=1 THEN IF Z=0 THEN ELSE X=X+4 Y=Y+2 END IF ELSE IF DY=-1 THEN IF Z=1 THEN ELSE X=X-4 Y=Y-2 END IF END IF PLAY 0,40,1 CALL PALIT(X,Y,Z,1) WAIT 15 END SUB SUB PALIT(X,Y,Z,C) BG Z BG TINT X,Y TO X+3,Y+1 PAL C END SUB #1:MAIN PALETTES 152E040800383418003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 00000000030C330F0000000000030F3F 030C33CF3FFFFFFF00030F3FFFFFFFFF C030CCF3FCFFFFFF00C0F0FCFFFFFFFF 00000000C030CCF00000000000C0F0FC 00000001071F7F7F00000001071F7F1F 00000080E0F8FCFC00000080E0F8F8E0 00000003070D0E0F00000003070F0F0F 00000080E0E0B07000000080E0E0F0F0 00000000000000000000000000000000 0000000000000000000000000000003F 000000000000000000000000000000FF 000000000000000000000000000000FF 00000000000000000101010101010101 00000000000000008080808080808080 00000000000000000000000000000000 00000000000000000000000000000000 0F030000000000003F0F030000000000 FFFFFF3F0F030003FFFFFFFF3F0F0300 FFFFFFFCF0C000C0FFFFFFFFFCF0C000 F0C0000000000000FCF0C00000000000 673F0F03000000001F03000000000000 9C90800000000000E060600000000000 03000000000000000300000000000000 E000000000000000E080808000000000 00000000000000000000010101010101 00000000000000007FE0C08080808080 0000000000000000FF00000000000000 0000000000000000FF00000000000000 00000000000000000101010101010101 00000000000000008080808080808080 00030C30C00000000000000000000000 00C0300C030000000000000000000000 00030C30C00000000000000000000000 00C0300C030000000000000000000000 00030C30C00000000000000000000000 00C0300C030000000000000000000000 00030C30C00000000000000000000000 00C0300C030000000000000000000000 00030C30C00000000000000000000000 00C0300C030000000000000000000000 00030C30C00000000000000000000000 00C0300C030000000000000000000000 00030C30C00000000000000000000000 00C0300C030000000000000000000000 00030C30C00000000000000000000000 00C0300C030000000000000000000000 000000C0300C03000000000000000000 000000030C30C0000000000000000000 000000C0300C03000000000000000000 000000030C30C0000000000000000000 000000C0300C03000000000000000000 000000030C30C0000000000000000000 000000C0300C03000000000000000000 000000030C30C0000000000000000000 000000C0300C03000000000000000000 000000030C30C0000000000000000000 000000C0300C03000000000000000000 000000030C30C0000000000000000000 000000C0300C03000000000000000000 000000030C30C0000000000000000000 000000C0300C03000000000000000000 000000030C30C0000000000000000000 #3:MAIN BG 00001410020003000400050002000300 04000500020003000400050002000300 04000500020003000400050012001300 14001500120013001400150012001300 14001500120013001400150012001300 14001500020003000400050002000300 04000500020003000400050002000300 04000500020003000400050012001300 14001500120013001400150012001300 14001500120013001400150012001300 14001500020003000400050002000300 04000500020003000400050002000300 04000500020003000400050012001300 14001500120013001400150012001300 14001500120013001400150012001300 14001500020003000400050002000300 04000500020003000400050002000300 04000500020003000400050012001300 14001500120013001400150012001300 14001500120013001400150012001300 14001500020003000400050002000300 04000500020003000400050002000300 04000500020003000400050012001300 14001500120013001400150012001300 14001500120013001400150012001300 14001500020003000400050002000300 04000500020003000400050002000300 04000500020003000400050012001300 14001500120013001400150012001300 14001500120013001400150012001300 14001500020003000400050002000300 04000500020003000400050002000300 04000500020003000400050012001300 14001500120013001400150012001300 14001500120013001400150012001300 14001500020003000400050002000300 04000500020003000400050002000300 04000500020003000400050012001300 14001500120013001400150012001300 14001500120013001400150012001300 14001500