PRINT" JUMPMAN(0.8)" PRINT" BY:(GOODGAMES)" PRINT" ENJOY!!" WAIT 60 CLS PAL(1) PRINT" JUMPMAN(0.8)" PRINT" BY:(GOODGAMES)" PRINT" ENJOY!!" WAIT 40 CLS PAL(2) PRINT" JUMPMAN(0.8)" PRINT" BY:(GOODGAMES)" PRINT" ENJOY!!" WAIT 40 CLS PAL(3) PRINT" JUMPMAN(0.8)" PRINT" BY:(GOODGAMES)" PRINT" ENJOY!!" WAIT 20 GAMEPAD 1 R=0 LEVEL=0 GLOBAL LEVELCHECK,LADDERCHECK,RESETCHECK,POSX,POSY,GOLD NEXTLEVEL: GOLD=0 SPRITE 1,,,0 CLS WAIT 60 LEVELCHECK=0 RESETCHECK=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 IF LEVEL=4 THEN BG SOURCE ROM(8) COPY ROM(5),$20 TO $FF00 ELSE IF LEVEL=5 THEN BG SOURCE ROM(9) 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 NUMBER 0,15,GOLD,2 IF LEVELCHECK THEN GOTO NEXTLEVEL IF RESETCHECK THEN SPRITE 1,,,0 PLAY 0,10,60 WAIT 60 LEVEL=0 GOTO NEXTLEVEL END IF '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=CELL.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=17 THEN REM RESET TO LEVEL 1 RESETCHECK=-1 ELSE IF C=18 THEN INC GOLD PLAY 0,90,1 CELL X,Y,0 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 7EC3663C18000000007E3C1800000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0000000000000000AA55AA55AA55AA55 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00AAAAFF55AAFF55000000AAFFFF5500 00001824241800000000001818000000 3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0000000000000000000000000000AAAA 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0000FF00FF000000000000E000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 000000FF00FF000000000000FF000000 #3:MAIN BG 00001410020002000200020002000200 02000200020002000200020002000200 02000200020002000200020002000000 04000400000000000000000000000000 00000000000000000000000000000300 00000200020000000400040000000000 00000000000000000000000000001203 00000000000013000000020002000000 04000400020002000200020002000200 02000200020002000000000002000200 02000200020000000400040000000000 00000000000000000000000000000000 00000000000000000000020002000000 04000400000000000000000000000000 00000000000000000000000000000000 00000200020000000400040000000000 00000000000000000000000000000600 06000600000000000000020002000000 04000400000000000000000000000000 00000000000000000000000000000000 00000200020000000400040000000000 12000000000000000000000000000000 00000000000006000600020002000000 02000200020002000200000000000000 00000000000000000000000000000000 00000200020000000000000000000000 00000000060000000000060000000000 06000600000000000000020002000000 00000000000000000000000000000000 00000000000000000000110011001100 11000200020000000000000000000000 00000000000000000C000C000C000C00 0C000C000C000C000C0002000C000C00 0C000C000C000C000C000C000C000C00 0C000C000C000C000C000C000C000C00 0C000C000C000C000C000C000C000C00 0C000C000C000C000C000C000C000C00 0C000C000C000C000C000C000C000C00 0C000C000C000C000C000C000C000C00 0C000C000C000C000C000C000C000C00 0C000C00 #4:PALETTES 2 000B080D00383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #5:PALETTES 3 0037070E00383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #6:BG 2 00001410020002000200020002000200 02000200020002000200020002000200 02000200020002000200020002000000 00000000020000000000000000000000 00000000000000000000000000000000 03000200020012000000000002000000 00000000000000000000000000000000 00000000120300001300020002000600 06000000020000000000020002000000 00000200020002000000000002000000 02000200020000000000000000000000 00000000000000000000000000000000 00000000000000000000020002000000 00000600060000000600000006000000 06000000000000000000000000000000 00000200020000000000000000000000 00000000000000000000000000000200 02000200000000000000020002000600 06000000060000000000060006000000 06000000000000000000000000000000 00000200020000000000000000000000 00000000000000000000000000000000 06000000000002000200020002000000 00000000060006000000060000000000 06000600000000000000000000000000 00000200020000000000000000000000 00000000000000000000000000000000 02000200000006000000020002000200 02000000060000000000000000000000 00000000000000000000000000000000 00000200020000000000000000000000 00000000000000000200020002000000 00000000000000000000020002000200 02000200020002000200020002001100 02000200020011001100110011001100 11000200000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000 #7:BG 3 00001410020002000200020002000200 02000200020002000200020002000200 02000200020002000200020002000300 00000000000000000000000000000000 00000000000000000000000000000400 04000200020013001203000012030000 00001203120300000000120312031203 00000000120304000400020002000200 02000000020000000000020002000000 00000200020002000000000002000400 04000200020000000000000000000000 00000000000000000000000000000000 00000000000004000400020002000000 00000200020000000600000006000000 06000000000000000000000000000400 04000200020000000000000000000000 00000000000000000000000000000200 02000200000004000400020002000200 02000000020000000000020002000000 06000000000000000000000000000400 04000200020000000000000000000000 00000000000000000000000000000000 02000000000002000200020002000000 00000000020002000000020000000000 06000600000000000000000000000000 00000200020000000000000000000000 00000000000000000000000000000000 06000600000002000000020002000200 02000000020000000000000000000000 00000000000000000000000000000000 00000200020000000000000000000000 00000000000000000200020002000000 00000000000000000000020002000200 02000200020002000200020002001100 02000200020011000200020002000200 02000200000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000 #8:BG 00001410020002000200020002000200 02000200020002000200020002000200 02000200020002000200020002000000 00000000000000000000000000000000 00000000000000000000000000000000 00000200020003000000000000000000 00000000000000000000000000000000 00000000000000000000020002001300 00001200000000000000000000000000 00000000000000000000000000000000 00000200020002000200020000000000 00000000000000000000000000000000 00000000000000001200020002000400 04000400020000000000000000000200 00000000000002000000000000000000 02000200020004000400040000000000 00000000000000000000000000000000 00000000000000000000020002000400 04000400000000000000000000000000 00000000000000000000020002000200 00000200020004000400040015000000 00000000000000000000000000000200 00000000000000000000020002000400 04000400000000000000000000000000 00000000020002000000000000000000 00000200020004000400040004000400 02000200020002000200000000000000 00000000000000000000020002000400 04000400040004000200020002000200 02000200000000000000000000000000 00000200020004000400040004000400 02000200020002000200020002000000 00000000000000000000020002000200 02000200020002000200020002000200 02000200020011001100110011001100 11000200000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000 #9:BG 00001410020002000200020002000200 02000200020002000200020002000200 02000200020002000200020002000000 00000000000000000000000000000000 00000000000000000000000000000000 00000200020000000000000000000000 00000000000000000000000000000000 00000000000000000000020002000000 12000000000000000000000000000000 00000000000000000000000000000000 03000200020002000200020000000000 00000000020000000000000000000200 00000000000004001300020002000000 00000000000002000000000000000000 00000000000000000000000000000200 02000200020000000000000000000200 02000000000000000000040004000000 00000000000000000000020002000000 00000000000000000000000002000200 02000400040000000000000000000200 02000200020000000000000000000000 00000000000000000000040004000000 00001200000000000000020002000000 00000000000000000000000000000000 00000400040000000000060000000000 00000200020000000000000000000000 00000000000006000000000006000000 00000000000000000000020002000000 00000000000000000600000000000000 00000000000000000000000000000000 00000200020031003100310000000000 00000000000000000000000000000000 00000000000000000000020002000200 02000200020002001100110011001100 11001100110011001100110011001100 11000200000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000