GAMEPAD 1 RANDOMIZE TIMER X=1 Y=0 ILEVEL=0 CLS PRINT ATTR(3) PRINT PRINT " SIMPLISTIC" PRINT PRINT PRINT " BY HAMTARO" PRINT PRINT PRINT " STARING HAMTARO" PRINT PRINT PRINT " (TAP A/B TO PLAY)" WHILE NOT BUTTON(0) WAIT VBL WEND DISPLAY(0,1,1,1,1) DRAWLEVEL: GOSUB UPDATEPLAYER WAIT VBL TRACK 0,1 WAIT 60 YBG=ILEVEL*8 BG 1 BG COPY 0,YBG,10,8 TO 0,0 DO REM CHECK CELLS IF CELL.C(X,Y)=8 THEN ILEVEL=ILEVEL+1 IF ILEVEL=7 THEN GOTO THE_END ELSE GOTO DRAWLEVEL END IF IWATER=0 IF CELL.C(X,Y)=12 AND CELL.C(X,Y-1)<>6 AND Y>0 THEN IWATER=1 Y=Y-1 END IF WHILE CELL.C(X,Y)=14 GOSUB UPDATEPLAYER Y=Y-2 WAIT 5 GOSUB UPDATEPLAYER WEND WHILE CELL.C(X,Y)=32 GOSUB UPDATEPLAYER Y=Y+3 WAIT 5 GOSUB UPDATEPLAYER WEND GOSUB UPDATEPLAYER REM CHECK MOVEMENT IF RIGHT(0) AND X<8 THEN IF CELL.C(X+1,Y)<>6 THEN X=X+1 PLAY 0,85,1 SOUND 0 END IF END IF IF LEFT(0) AND X>1 THEN IF CELL.C(X-1,Y)<>6 AND CELL.C(X-1,Y)<>10 AND CELL.C(X,Y)<>10 THEN X=X-1 PLAY 0,85,1 SOUND 0 END IF END IF IF UP(0) AND Y>0 THEN IF CELL.C(X,Y-1)<>6 AND CELL.C(X,Y)<>12 THEN Y=Y-1 PLAY 0,85,1 SOUND 0 END IF END IF IF DOWN(0) AND Y<7 THEN IF CELL.C(X,Y+1)<>6 AND CELL.C(X,Y)<>12 AND CELL.C(X,Y+1)<>12 THEN Y=Y+1 PLAY 0,85,1 SOUND 0 END IF END IF IF IWATER=0 THEN WAIT 10 ELSE WAIT 5 LOOP REM 1=PLAYER (WHITE) CELL 4 REM 2=NOLEFT (GRAY) CELL 10 REM 6=WALL (BROWN) CELL 6 REM 7=YJUMP+3 (ORANGE) CELL 32 REM 8=EXIT (YELLOW) CELL 8 REM 11=FALLUP (LTBLUE) CELL 12 REM 14=YJUMP-2 (PINK) CELL 14 UPDATEPLAYER: CLS 0 BG 0 ATTR(2) CELL X,Y,4 BG 1 RETURN THE_END: CLS DISPLAY(1,1,1,0,0) ATTR(3) PRINT PRINT PRINT "THANKS FOR PLAYING!" END #1:MAIN PALETTES 0808040C00383420000B3F00003E3C28 003F2A15000F0B03003B332600383420 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 FFFFFFEFFFFFFFFF0000001000000010 FFFFFFFFEFFFFFFF0000800010000000 3078FFFFFDFF7F7F304887A0A6864041 0C1EFFFFBFFFFEFE0C12E10565610282 FF000000000000FF00FFFFFFFFFFFFFF FF101010101010FF00EFEFEFEFEFEFEF C1E3FFFFE7C3C3E7000000183C7E7E3C FFFFFEFCFCFCFEFF0000000000000030 006030600C060C00FFDFEFDFFBFDFBFF 006030600C060C00FFDFEFDFFBFDFBFF 0010342466420200FFEFDBDBBDFDFFFF 00082C2466424200FFF7DBDBBDBDFFFF 007F7E7D7B777E7DFF808183868C8983 00FF7FBFDFEF7FBFFF0181C1613191C1 00000000000000000000000000000000 00000000000000000000000000000000 FFFFFFFDFFFFFFFF0000000200000000 FFFFFFFFFFFFFFFF0000000000080000 7F7F7F7F7F7FFF6F4C4340544C40906F FEFEFEFEFEFEFFF632C2022A320209F6 FF101010101010FF00EFEFEFEFEFEFEF FF000000000000FF00FFFFFFFFFFFFFF FF7F3F3F3F7FFFFF1800000000000000 CF8787CFFFFFC78378FCFC7830000000 006030600C060C00FFDFEFDFFBFDFBFF 006030600C060C00FFDFEFDFFBFDFBFF 00082C2466424200FFF7DBDBBDBDFFFF 0010342466420200FFEFDBDBBDFDFFFF 7D7E7F7F7F7F7FFF82838180808080FF BF7FFFFFFFFFFFFF41C18101010101FF 007F7F7E7D7D7E7DFF80808183828383 00FFFF7FBFBF7FBFFF010181C141C1C1 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3D5E6D767B7D7EFFC2E3B3998C8683FF BD7BB76FDFBF7FFF43C7CD993161C1FF #3:MAIN BG 00010A80060102000200020002000200 06010601080306010601020002000200 02000200060106010200060106010200 02000200020002000601060102000601 06010200020002000200020006010601 02000601060102000200020002000200 06010601020006010601020002000200 02000200060106010200060106010200 02000200020002000200020002000601 06010200020002000200020006010601 02000601060102000200020002000200 02000601020006010601020006010601 06010601020006010200060106010200 06010200020006010200060102000601 06010200060102000803060102000601 02000601060102000601020006010601 02000601020006010601020006010200 02000200020006010200060106010200 06010601060106010601060102000601 06010200020002000200020002000200 02000601060108030A040A040A040A04 0A04060102000601060102000A040A04 0A040A040A0406010200060106010200 0A040A040A040A040A04060102000601 060102000A040A040A040A040A040200 02000601060102000A040A040A040A04 0A04060102000601060102000A040A04 0A040A040A0406010200060106010200 06010601060106010601060102000601 06010200020002000200020002000200 02000601060102000200020002000200 02000200020006010601060106010601 06010601060106010200060106010803 0200020006010C050C050A0402000601 060102000200020002000C050C050607 02000601060102000200020006070C05 0C050601020006010601020002000200 06010C050C0506010200060106010200 0200020006010C050C05060102000601 060102000200020006010C050C050200 02000601060102000200020002000200 02000200020006010601060106010601 06010601060106010200060106010200 02000200020002000E06060102000601 06010601060106010601060106010601 02000601060102000200020002000200 02000601020006010601020006010601 06010601060106010200060106010200 02000200020006010E06020002000601 06010200020002000803060102000200 02000601060102000200020002000200 02000200020006010601060706070607 06070607060706070A04060106010200 02000E060E060E060E060E060A040601 06012001020002000200020002000200 0A0406010601020002000E0602000200 020002000A0406010601060106010601 06010601020002000A04060106010200 06010E0602000601020002000A040601 06010803060102000200060102000200 02000601060106010601200120012001 20012001200106010601020002000C05 0C050C050C050C050C05060106010200 06010C050C050C050C05060106010601 0601020006010C050C050C050C050C05 0A040601060102000601060106010601 060106010A0406010601020006010C05 0C050C050C0508030A04060106010200 0601060106010601060106010A040601 0601020006010E060C050C050C050C05 02000601000000000000000000000000 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 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 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000 #15:MAIN SOUND 1800323A14FF59001800846C003A0000 08006060000000002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 40004040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 431F00000000481F000000004A1F0000 00004C1F00000000FF1F000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000