GAMEPAD 1 PAUSE OFF BG 0 BG FILL 0,0 TO 19,16 CHAR 65 ATTR(1) FOR X=7 TO 11 CELL X,8,59+X NEXT X ATTR(0) FOR X=7 TO 11 CELL X,9,0 NEXT X ATTR(2) CELL 8,9,56 SPRITE 0,0,0,64 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 UDLR=UP(0) OR DOWN(0) OR LEFT(0) OR RIGHT(0) 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<=63THEN 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 WAIT VBL END IF ELSE IF BUTTON(0,1) THEN C=CELL.C(XCUR,YCUR) IF C<=63 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) IF UDLR THEN ATTR(2) CELL XCUR,YCUR,C BG 1 CELL XCUR,YCUR,19 BG 0 REM WAIT VBL END IF END IF END IF REM DO THINGS IF IACTION=0 THEN FOR Y=0 TO 15 FOR X=0 TO 19 C=CELL.C(X,Y) IF C<=63 THEN CM=((C-4)\4)*4 DM=CM\16+1 CC= C-CM IF CC=6 OR CC=7 THEN WAIT 60 BG 1 F=CELL.C(X,Y)-17 BG 0 IF F>0 THEN BG 1 CELL X,Y,F-1+17 BG 0 IF F=1 THEN CELL X,Y,C+1 END IF ELSE XX=X+XDIR(DM) YY=Y+YDIR(DM) CH=CELL.C(XX,YY) IF CH=0 THEN BG 1 CELL X,Y,0 CELL XX,YY,19 BG 0 CELL X,Y,0 CELL XX,YY,C-1 ELSE CALL BOTOFF(C) CELL X,Y,C END IF END IF END IF 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+8 PLAY 0,60,1 SOUND 3 END SUB SUB TURNBOTA(D,C) CC= C-((C-4)\4)*4 IF CC<=8 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<=8 THEN CC=6 C=CC+(D-1)*16 PLAY 0,50,1 SOUND 2 END SUB #1:MAIN PALETTES 15151000002B171500383F34003F3C00 00302A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FF241899FFBD1800000000A581810000 007E3C99FFBD1800000000A581810000 003C3C99FFBD9981000000A581818181 00BDBD99FFBD1800008181A581810000 003C3CBDFFBD1800000000A581810000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 24241899FFBD1800000000A581810000 42241899FFBD1800000000A581810000 102C1899FFBD1800081000A581810000 08341899FFBD1800100800A581810000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3911337D7D3311393800080000080038 3812367E7E3612383800080000080038 F810367E7E3610F8F8000800000800F8 3E10367E7E36103E3E0008000008003E 38103E7E7E3E10383800080000080038 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0018BDFF991824FF00008181A5000000 0018BDFF993C7E0000008181A5000000 8199BDFF993C3C0081818181A5000000 0018BDFF99BDBD0000008181A5818100 0018BDFFBD3C3C0000008181A5000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 9C88CCBEBECC889C1C0010000010001C 1C486C7E7E6C481C1C0010000010001C 1F086C7E7E6C081F1F0010000010001F 7C086C7E7E6C087C7C0010000010007C 1C087C7E7E7C081C1C0010000010001C 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FF818181818181FF0000000000000000 20000000020400082002044022040008 FFFFF7EFF7EFFFE7E7E7CBD389910018 FFFFFFFF817E007EFFFFFFFFFF81FF81 FFEFFFABFFC38181C3910054003C7E7E FFFFFFFFFFFF817EFFFFFFFFFFFFFF81 FFFFE7C3C3E7DB81FFE7DBBDBDDBA57E #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