GAMEPAD 1 PAUSE OFF BG 1 BG FILL 0,0 TO 19,16 CHAR 48 ATTR(1) CELL 7,8,1 CELL 9,8,2 CELL 11,8,3 ATTR(0) FOR X=7 TO 11 CELL X,9,16 NEXT X ATTR(2) CELL 8,9,55 SPRITE 0,0,0,32 SPRITE.A 0,(4) GLOBAL XCUR,YCUR,ICURSOR XCUR=0 YCUR=0 ICURSOR=0 DIM GLOBAL XDIR(4),YDIR(4) FOR I=1 TO 4 READ XDIR(I),YDIR(I) NEXT I DATA 0,-1,1,0,0,1,-1,0 IACTION=0 DO REM COMMAND THINGS IF NOT BUTTON(0,0) AND NOT BUTTON(0,1) THEN IF LEFT(0) THEN CALL DOCURSOR(-1,0) IF RIGHT(0) THEN CALL DOCURSOR(1,0) IF UP(0) THEN CALL DOCURSOR(0,-1) IF DOWN(0) THEN CALL DOCURSOR(0,1) IF PAUSE THEN C=CELL.C(XCUR,YCUR) IF C<>16 AND C<>48 THEN CALL BOTOFF(C) ATTR(2) CELL XCUR,YCUR,C END IF END IF ELSE IF BUTTON(0,0) THEN C=CELL.C(XCUR,YCUR) IF C<>16 AND C<>48 THEN IF LEFT(0) THEN CALL TURNBOTA(4,C) IF RIGHT(0) THEN CALL TURNBOTA(2,C) IF UP(0) THEN CALL TURNBOTA(1,C) IF DOWN(0) THEN CALL TURNBOTA(3,C) ATTR(2) CELL XCUR,YCUR,C END IF ELSE IF BUTTON(0,1) THEN C=CELL.C(XCUR,YCUR) IF C<>16 AND C<>48 THEN IF LEFT(0) THEN CALL TURNBOTB(4,C) IF RIGHT(0) THEN CALL TURNBOTB(2,C) IF UP(0) THEN CALL TURNBOTB(1,C) IF DOWN(0) THEN CALL TURNBOTB(3,C) ATTR(2) CELL XCUR,YCUR,C END IF END IF REM DO THINGS IF IACTION=0 THEN FOR Y=0 TO 15 FOR X=0 TO 15 C=CELL.C(X,Y) IF C>0 THEN END IF NEXT X NEXT Y END IF ADD ICURSOR,1,0 TO 5 ADD IACTION,1,0 TO 60 WAIT VBL LOOP SUB DOCURSOR(DX,DY) IF ICURSOR=0 THEN ADD XCUR,DX,0 TO 19 ADD YCUR,DY,0 TO 15 SPRITE 0,XCUR*8,YCUR*8, PLAY 0,80,1 SOUND 0 END IF END SUB SUB BOTOFF(C) CC=((C-4)\4)*4 C=CC+7 PLAY 0,60,1 SOUND 3 END SUB SUB TURNBOTA(D,C) CC= C-((C-4)\4)*4 IF CC<=7 THEN CC=4 C=CC+(D-1)*16 PLAY 0,60,1 SOUND 1 END SUB SUB TURNBOTB(D,C) CC= C-((C-4)\4)*4 IF CC<=7 THEN CC=5 C=CC+(D-1)*16 PLAY 0,50,1 SOUND 2 END SUB #1:MAIN PALETTES 15151000002B172000383F24003F3C00 00302A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 1818342C766EFFFF0000081008100018 3C6EFFABFFFFFFFF00100054003C7E7E 0018244242245ADB0000183C3C18247E FF241899FFBD1800000000A581810000 007E3C99FFBD1800000000A581810000 007E3C99FFBD9900000000A581818100 003C3CBDFFBD1800000000A581810000 102C1899FFBD1800081000A581810000 08341899FFBD1800100800A581810000 00000000000000000000000000000000 00000000000000000000000000000000 24241899FFBD1800000000A581810000 42241899FFBD1800000000A581810000 00000000000000000000000000000000 00000000000000000000000000000000 FFFFFFFFFFFFFFFF0000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3911337D7D3311393800080000080038 3812367E7E3612383800080000080038 7812367E7E3612787800080000080078 38103E7E7E3E10383800080000080038 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FF818181818181FF0000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0018BDFF991824FF00008181A5000000 0018BDFF993C7E0000008181A5000000 0099BDFF993C7E0000818181A5000000 0018BDFFBD3C3C0000008181A5000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 20000000020400082002044022040008 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 9C88CCBEBECC889C1C0010000010001C 1C486C7E7E6C481C1C0010000010001C 1E486C7E7E6C481E1E0010000010001E 1C087C7E7E7C081C1C0010000010001C #3:MAIN BG 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000 #15:MAIN SOUND 2800F03310005F001800F077103C0F00 0800F03310FC0F002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000