GAMEPAD 1 REM WAS8BIT BG VIEW OFF 0 BG 1 BG COPY 0,0,20,16 TO 0,0 STAR=8 PX=9*8 PY=13*8 SPRITE 0,9*8,13*8,3 YJUMP=0 IJUMP=0 ISTICK=0 SQUISH=0 DO IF SQUISH=0 THEN ISTICK=0 IF RIGHT(0) THEN CR=CELL.C((PX+8)\8,(PY+7)\8) IF CR=0 OR CR=STAR THEN INC PX SPRITE 0,PX,,4 SQUISH=0 ELSE INC SQUISH IF SQUISH>15 THEN ISTICK=1 IJUMP=1 SPRITE 0,,,5 END IF END IF ELSE IF LEFT(0) THEN CL=CELL.C((PX-1)\8,(PY+7)\8) IF CL=0 OR CL=STAR THEN DEC PX SPRITE 0,PX,,2 SQUISH=0 ELSE INC SQUISH IF SQUISH>15 THEN ISTICK=1 IJUMP=1 SPRITE 0,,,1 END IF END IF ELSE SQUISH=0 END IF IF BUTTON TAP (0,0) THEN IF YJUMP=0 AND IJUMP=0 THEN YJUMP=12 IJUMP=1 SPRITE 0,,,6 ELSE IF IJUMP=1 THEN IJUMP=2 YJUMP=YJUMP+12 SPRITE 0,,,7 END IF END IF END IF IF YJUMP>0 THEN CU=CELL.C((PX+4)\8,(PY-1)\8) IF CU<>0 OR CU=STAR THEN YJUMP=0 SPRITE 0,,,3 ELSE DEC PY DEC YJUMP IF YJUMP=0 THEN SPRITE 0,,,3 SPRITE 0,,PY, END IF END IF BG 1 CD=CELL.C((PX+4)\8,(PY+8)\8) REM NUMBER 0,0,YJUMP,1 REM NUMBER 2,0,IJUMP,1 IF YJUMP=0 AND (CD=0 OR CD=STAR) THEN INC PY PY=PY-ISTICK*0.5 SPRITE 0,,PY, END IF IF CD>0 AND IJUMP>0 THEN IJUMP=0 SPRITE 0,,,3 END IF WAIT VBL LOOP #1:MAIN PALETTES 0B3C2814003F2915003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 E0F0F8F8F8F8F0E0180C464606068C18 387CFEFEFEFE7C380402919101916204 3C7EFFFFFFFF7E3C0000242400241800 1C3E7F7F7F7F3E1C2040898980894620 070F1F1F1F1F0F071830626260603118 3C7EFFFFFF7E3C00002424002499423C 3C7EFFFF7E3C00002424002499C37E3C 0000083E1C1C36000000001400000000 00247E3C3C7E24007EDB81C3C381DB7E #3:MAIN BG 00001410090109010901090109010901 09010901090109010901090109010901 09010901090109010901090109010000 00000000000000000000000000000000 00000000000000000000000000000000 00000901090108000000000000000000 00000000000008000000000000000000 00000000000000000000090109010901 09010901090100010000000000000901 00000000000000000000000000000000 00000901090100010001000109010901 00010000090109010901000009010901 00000901000000000000090109010000 00000000000000000000000000000000 00000000090108000000090109010901 00000901090100000901090109010901 09010901090109010901090109010901 09010901100100000000090109010000 00000000000000000000000000000000 00000000090100010000000000000000 00000901090100000000000000000000 00000001000108000901000009010800 00000001000109010901090109010000 00000000000009010901090109010901 09010000090109010001090100000000 00000901090100010001000000000000 00000000000000000901000009010901 09010901080000000000090109010901 09010000000000000000000000000800 09010000000000000000090109010000 00000901090109010901000000000000 00000000090109010901000000000001 00010000000000000000090109010901 09010901090100000000000000000000 00000000000009010901000000000001 09010901090109010901090109010901 00000000000009010000000000000901 09010000000009010901090109010901 09010901090109010901090109010901 09010901090109010901090109010901 09010901