GAMEPAD 1 'CHARACTER VARIABLES PCHAR=1 WCHAR=2 'PLAYER VARIABLES PX=0 PY=0 DO 'DRAW BACKGROUND CLS BG COPY 0,0,19,19 TO 0,0 'DRAW PLAYER SPRITE 0,PX,PY,PCHAR WAIT VBL 'INPUT 'PAST PLAYER POSITION PPX=PX PPY=PY IF UP(0) THEN ADD PY,-8,0 TO 120 ELSE IF DOWN(0) THEN ADD PY,8, 0 TO 120 END IF IF LEFT(0) THEN ADD PX,-8,0 TO 152 ELSE IF RIGHT(0) THEN ADD PX,8,0 TO 152 END IF 'COLLISION DETECTION IF CELL.C(INT(PX/8),INT(PY/8))=WCHAR OR CELL.C(INT((PX+7)/8),INT(PY/8))=WCHAR OR CELL.C(INT(PX/8),INT((PY+7)/8)) OR CELL.C(INT((PX+7)/8),INT((PY+7)/8)) THEN PX=PPX PY=PPY END IF WAIT 5 LOOP #2:MAIN CHARACTERS 00000000000000000000000000000000 3C3C18FF183C66C30000000000000000 FFC3A59999A5C3FF0000000000000000 #3:MAIN BG 00001410000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000002000200020002000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000002000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000020000000000000000000200 00000000000000000000000000000000 00000000000000000000000002000000 00000000000002000000000000000000 00000000000000000000000000000000 00000000000000000000000000000200 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 02000200020002000200020000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000