GAMEPAD 1 R=0 LEVEL=0 GLOBAL LEVELCHECK,LADDERCHECK,POSX,POSY NEXTLEVEL: SPRITE 1,,,0 CLS WAIT 60 LEVELCHECK=0 POSX=40 POSY=96 SPRITE 1,POSX,POSY,1 INC LEVEL IF LEVEL=1 THEN BG SOURCE ROM(3) COPY ROM(1),$20 TO $FF00 ELSE IF LEVEL=2 THEN BG SOURCE ROM(6) COPY ROM(4),$20 TO $FF00 ELSE IF LEVEL=3 THEN BG SOURCE ROM(7) COPY ROM(5),$20 TO $FF00 ELSE PRINT "MORE LEVELS COMING SOON!" END END IF BG COPY 0,0,20,16 TO 0,0 GFORCE=0 DO IF LEVELCHECK THEN GOTO NEXTLEVEL 'MOVE PLAYER IF LEFT(0) THEN CALL CHECKCOLL(POSX-1,POSY,R) IF R THEN POSX=POSX-1 END IF IF RIGHT(0) THEN CALL CHECKCOLL(POSX+1,POSY,R) IF R THEN POSX=POSX+1 END IF IF UP(0) THEN CALL CHECKCOLL(POSX,POSY-1,R) IF R AND LADDERCHECK THEN POSY=POSY-1 END IF IF DOWN(0) THEN CALL CHECKCOLL(POSX,POSY+1,R) IF R THEN POSY=POSY+1 END IF 'SIMPLE GRAVITY IF NOT LADDERCHECK THEN GFORCE=GFORCE+0.1 IF GFORCE>1 THEN GFORCE=1 CALL CHECKCOLL(POSX,POSY+GFORCE,R) IF R THEN POSY=POSY+GFORCE END IF 'SIMPLE JUMP IF BUTTON(0,0) THEN CALL CHECKCOLL(POSX,POSY+1,R) IF NOT R THEN GFORCE=-2 END IF SPRITE 1,POSX,POSY, WAIT VBL LOOP 'X,Y: PLAYER POSITION IN PIXELS 'R IS SET TO TRUE IF NO COLLISION WITH MAP SUB CHECKCOLL(X,Y,R) 'CHECK ALL CORNERS R=-1 CALL CHECKCELL(X/8,Y/8,R) CALL CHECKCELL((X+7)/8,Y/8,R) CALL CHECKCELL(X/8,(Y+7)/8,R) CALL CHECKCELL((X+7)/8,(Y+7)/8,R) END SUB SUB CHECKCELL(X,Y,R) C=MCELL.C(X,Y) LADDERCHECK=0 IF C=19 THEN REM GOTO NEXT LEVEL LEVELCHECK=-1 ELSE IF C=4 THEN LADDERCHECK=-1 ELSE IF C<>0 THEN R=0 END IF END SUB #1:MAIN PALETTES 043F003000383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 18183C5A1824420000003C1818240000 8142241818244281FFFFFFFFFFFFFFFF FFC1CFC1CFCFFFFFFFFFFFFFFFFFFFFF 000000000000000081FF81FF81FF81FF 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C #3:MAIN BG 00001410020002000200020002000200 02000200020002000200020002000200 02000200020002000200020002000000 04000400000000000000000000000000 00000000000000000000000000000300 00000200020000000400040000000000 00000000000000000000000000000000 00000000000013000000020002000000 04000400020002000200020002000200 02000200020002000000000002000200 02000200020000000400040000000000 00000000000000000000000000000000 00000000000000000000020002000000 04000400000000000000000000000000 00000000000000000000000000000000 00000200020000000400040000000000 00000000000000000000000000000200 02000200000000000000020002000000 04000400000000000000000000000000 00000000000000000000000000000000 00000200020000000400040000000000 00000000000000000000000000000000 00000000000002000200020002000000 02000200020002000200000000000000 00000000000000000000000000000000 00000200020000000000000000000000 00000000020000000000020000000000 02000200000000000000020002000000 00000000000000000000000000000000 00000000000000000000000000000000 00000200020000000000000000000000 00000000000000000200020002000000 00000000000000000000020002000200 02000200020002000200020002000200 02000200020002000200020002000200 02000200000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000 #4:PALETTES 2 000B080D00383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #5:PALETTES 3 0037070E00383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #6:BG 2 00001410020002000200020002000200 02000200020002000200020002000200 02000200020002000200020002000000 00000000000000000000000000000000 00000000000000000000000000000000 03000200020000000000000000000000 00000000000000000000000000000000 00000000000000001300020002000200 02000000020000000000020002000000 00000200020002000000000002000000 02000200020000000000000000000000 00000000000000000000000000000000 00000000000000000000020002000000 00000200020000000200000002000000 02000000000000000000000000000000 00000200020000000000000000000000 00000000000000000000000000000200 02000200000000000000020002000200 02000000020000000000020002000000 02000000000000000000000000000000 00000200020000000000000000000000 00000000000000000000000000000000 02000000000002000200020002000000 00000000020002000000020000000000 02000200000000000000000000000000 00000200020000000000000000000000 00000000000000000000000000000000 02000200000002000000020002000200 02000000020000000000000000000000 00000000000000000000000000000000 00000200020000000000000000000000 00000000000000000200020002000000 00000000000000000000020002000200 02000200020002000200020002000200 02000200020002000200020002000200 02000200000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000 #7:BG 3 00001410020002000200020002000200 02000200020002000200020002000200 02000200020002000200020002000300 00000000000000000000000000000000 00000000000000000000000000000000 00000200020013000000000000000000 00000000000000000000000000000000 00000000000000000000020002000200 02000000020000000000020002000000 00000200020002000000000002000000 02000200020000000000000000000000 00000000000000000000000000000000 00000000000000000000020002000000 00000200020000000200000002000000 02000000000000000000000000000000 00000200020000000000000000000000 00000000000000000000000000000200 02000200000000000000020002000200 02000000020000000000020002000000 02000000000000000000000000000000 00000200020000000000000000000000 00000000000000000000000000000000 02000000000002000200020002000000 00000000020002000000020000000000 02000200000000000000000000000000 00000200020000000000000000000000 00000000000000000000000000000000 02000200000002000000020002000200 02000000020000000000000000000000 00000000000000000000000000000000 00000200020000000000000000000000 00000000000000000200020002000000 00000000000000000000020002000200 02000200020002000200020002000200 02000200020002000200020002000200 02000200000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000