START: Y=104 BG 0 BG COPY 0,0,21,16 TO 0,0 SPRITE 0,8,Y,1 JUMP=0 JUMPY=0 BG_X=20 FLOOR_COLLIDE=1 WALL_COLLIDE=0 DO IF WALL_COLLIDE=1 THEN GOTO GAMEOVER IF Y=121 THEN GOTO GAMEOVER IF CELL.C((8+SCROLL.X(0))\8,Y\8+1)=2 OR (SCROLL.X(0)>0 AND CELL.C((8+SCROLL.X(0))\8+1,Y\8+1)=2) THEN FLOOR_COLLIDE=1 ELSE FLOOR_COLLIDE=0 IF CELL.C((17+SCROLL.X(0))\8,Y\8)=2 OR (Y MOD 8>0 AND CELL.C((17+SCROLL.X(0))\8,Y\8+1)=2) THEN WALL_COLLIDE=1 ELSE WALL_COLLIDE=0 SPRITE 0,8,Y,1 IF SCROLL.X(0)=8 THEN SCROLL 0,0,0 BG SCROLL 0,0 TO 20,15 STEP -1,0 BG COPY BG_X,0,1,16 TO 20,0 BG_X=BG_X+1 IF BG_X=32 THEN BG_X=0 END IF SCROLL 0,SCROLL.X(0)+1,0 IF TOUCH AND JUMP=0 AND FLOOR_COLLIDE=1 THEN JUMP=1 JUMPY=Y-16 END IF IF JUMP=1 AND Y=JUMPY THEN JUMP=0 IF JUMP=1 THEN Y=Y-1 IF JUMP=0 AND FLOOR_COLLIDE=0 THEN Y=Y+1 WAIT VBL LOOP GAMEOVER: PRINT " TRY AGAIN" FOR I=0 TO 2 WAIT 15 SPRITE 0,,,I+3 NEXT I WHILE NOT TAP WEND WAIT 30 CLS GOTO START #1:MAIN PALETTES 0B3C280033142818003C2010003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 3E7F7F7F7F7F7F3E4080B6B680A29C40 FFFFFF76EDB3FD96FFEF4489124C0269 3C7C7C7C7C7C7C3C4080B4B4809CA040 30707070707070304080B0B08090A040 00404000000040004080800000008040 FF818181818181FF0000000000000000 0000000000000000FF818181818181FF FF818181818181FFFF818181818181FF FF808080808080800000000000000000 FF010101010101010000000000000000 0000000000000000FF80808080808080 0000000000000000FF01010101010101 FF80808080808080FF80808080808080 FF01010101010101FF01010101010101 B66DDF76EDB3FD9649922089124C0269 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 80808080808080FF0000000000000000 01010101010101FF0000000000000000 000000000000000080808080808080FF 000000000000000001010101010101FF 80808080808080FF80808080808080FF 01010101010101FF01010101010101FF #3:MAIN BG 00002010000000000000000000000000 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 00000201020100000000020102010201 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000020102010201 02010F010F0100000000000000000000 02010000000000000000000000000000 00000000000000000000000000000000 000000000201020102010F010F010F01 0F010F010F0100000000000000000000 00000201000000000000000000000000 00000000020102010201020102010201 020102010F010F010F010F010F010F01 0F010F010F010F010F010F0100000000 00000000020102010201020102010201 020102010F010F010F010F010F010F01 0F010F010F010F010F010F010F010F01 0F010F010F010F010F010F0100000000 000000000F010F010F010F010F010F01 0F010F01