X=15 Y=15 S=3 GAMEPAD 1 DO CLS 'BACKGROUND BG COPY 0,0,20,16 TO 0,0 'COLLISON TOP=CELL.C(INT(X/8),INT((Y-S)/8)) TOP2=0 IF INT(X/8)5 AND TOP2<>5 THEN Y=Y-S ELSE Y=INT(Y/8)*8 END IF END IF IF DOWN(0) THEN IF DN<>5 AND DN2<>5 THEN Y=Y+S ELSE Y=INT((Y+S)/8)*8 END IF END IF IF LEFT(0) THEN IF LF<>5 AND LF2<>5 THEN X=X-S ELSE X=INT(X/8)*8 END IF END IF IF RIGHT(0) THEN IF LT<>5 AND LT2<>5 THEN X=X+S ELSE X=INT((X+S)/8)*8 END IF END IF 'IF TOP=0 THEN 'PLAYER ANIMA SPRITE 1,X,Y,TIMER/4 MOD 2 + 1 WAIT 2 LOOP #1:MAIN PALETTES 023F2A0000183C0C003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 7EFFFFFFFFFFFFAA0000240000000000 7EFFFFFFFFFFFF550000240000000000 FFFFFFFFFFFFFFFF0000000000000000 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FE8181818181817F007F7F7F7F7F7F7F FF00FF00FF00FF00FFFFFFFFFFFFFFFF #3:MAIN BG 00001410050005000500050005000500 05000500050005000500050005000500 05000500050005000500050005000000 00000000000000000000070007000700 00000700070000000000000000000000 00000500050000000000000000000000 00000000000000000000000000000000 00000000000000000000050005000700 00000500050005000000000005000500 05000500000000000500050005000A01 0A010500050007000000050000000000 00000000000000000000000000000000 00000000050000000000050005000000 00000500000000000000000000000000 00000000000000000000000005000000 00000500050000000000000007000A01 05000500050000000000050005000500 00000000000000000000050005000000 00000000000000000500000000000000 00000000000005000000000000000000 00000500050000000000050005000500 05000000000000000000000000000500 05000500050000000000050005000000 00000000000000000000000000000500 05000000000000000000000000000000 00000500050000000000000000000000 00000000000005000500000000000000 00000000000000000000050005000000 00000500050005000000000005000500 05000500000000000500050005000000 00000500050000000000000000000500 00000000000005000500000000000000 05000000000000000000050005000000 00000000000005000500000000000500 05000000000005000500000000000000 00000500050005000500000000000000 00000000000000000000000000000000 00000000000005000500050005000500 05000500050005000500050005000500 05000500050005000500050005000500 05000500