GAMEPAD 1 PAUSE OFF X=10*8 Y=8*8 O_OPEN=0 ' STARTING AREA FOR CX=0 TO 19 FOR CY=0 TO 15 R=INT(RND*3) CELL CX,CY,13+R NEXT CY NEXT CX DO IF UP(0) THEN Y=Y-8 FOR CX=(X\8)-10 TO (X\8)+10 R=INT(RND*10) IF R<7 THEN TILE=13 ELSE IF R<9 THEN TILE=14 ELSE TILE=15 END IF CELL CX,(Y\8)-8,TILE NEXT CX END IF IF DOWN(0) THEN Y=Y+8 FOR CX=(X\8)-10 TO (X\8)+10 R=INT(RND*10) IF R<7 THEN TILE=13 ELSE IF R<9 THEN TILE=14 ELSE TILE=15 END IF CELL CX,(Y\8)+7,TILE NEXT CX END IF IF LEFT(0) THEN X=X-8 FOR CY=(Y\8)-8 TO (Y\8)+8 R=INT(RND*10) IF R<7 THEN TILE=13 ELSE IF R<9 THEN TILE=14 ELSE TILE=15 END IF CELL (X\8)-10,CY,TILE NEXT CY END IF IF RIGHT(0) THEN X=X+8 FOR CY=(Y\8)-8 TO (Y\8)+8 R=INT(RND*10) IF R<7 THEN TILE=13 ELSE IF R<9 THEN TILE=14 ELSE TILE=15 END IF CELL (X\8)+9,CY,TILE NEXT CY END IF IF BUTTON (0,0) THEN 'GET TILE UNDER PLAYER TX=X\8 TY=Y\8 TILE=CELL.C(TX,TY) IF TILE=14 THEN 'STICK STICKS=STICKS+1 CELL TX,TY,13 END IF IF TILE=15 THEN 'SEED SEEDS=SEEDS+1 CELL TX,TY,13 END IF END IF IF BUTTON(0,1) THEN PAL 1 CELL (X\8)-1,(Y\8)-1,29 CELL (X\8),(Y\8)-1,30 CELL (X\8)+1,(Y\8)-1,31 CELL (X\8)-1,(Y\8),45 CELL (X\8),(Y\8),46 CELL (X\8)+1,(Y\8),47 CELL (X\8)-1,(Y\8)+1,61 CELL (X\8),(Y\8)+1,62 CELL (X\8)+1,(Y\8)+1,63 PAL 0 WAIT VBL END IF INVENTORY: SCROLL 0,X-80,Y-64 ' PLAYER STAYS IN THE CENTER SPRITE 0 PAL 1 SPRITE 0,80,64,1 WAIT 10 LOOP #1:MAIN PALETTES 0008280C003F2A15003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 000010300C0800000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0000000000000000FFFFFFFFFFFFFFFF FE8181818181817F017F7F7F7F7F7FFF FFFFFFFFFFFFFFFF0000000000000000 FFFFDFEBC7EFFFFF0000201438100000 FFFFFFFFFFFFFFFF0000001408000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 815A182424184281E7C3813C3C99C3E7 00000010080402010000071F1F3F3F3F 0000000000000000007EFFFFFFFFFFFF 00000008102040800000E0F8F8FCFCFC 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 8142186464184281E7C3991C1C99C3E7 00000000000000003F7F7F7F7F7F7F3F 8142183C3C184281E7C381000081C3E7 0000000000000000FCFEFEFEFEFEFEFC 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 8142182626184281E7C399383899C3E7 8142182424185A81E7C3993C3C81C3E7 01020408100000003F3F3F1F1F070000 0000000000000000FFFFFFFFFFFF7E00 8040201008000000FCFCFCF8F8E00000