GAMEPAD 1 X=64 XSP=0 Y=64 YSP=0 WALKSP=1 JUMPHEIGHT=-2 GRV=0.1 CSP=2 DO 'SETTING KEG INPUTS LEFTKEY=LEFT(0) RIGHTKEY=RIGHT(0) JUMP=BUTTON(0) 'DRAWING SPRITES SPRITE 1,X,Y,2 SPRITE 63,64,100,1 SPRITE 62,56,100,1 SPRITE 61,48,100,1 SPRITE 60,40,100,1 SPRITE 59,40,92,1 SPRITE 58,40,84,1 SPRITE 57,32,84,1 SPRITE 56,72,92,1 SPRITE 55,80,92,1 SPRITE 54,120,100,1 'APPLY GRAVITY YSP=YSP+GRV 'CHECK FOR JUMP 'DRAWING COLLISION CHECKER SPRITE 3,X,Y+2,CSP 'CHECK FOR JUMP IF SPRITE HIT (3,54 TO 63) AND JUMP THEN YSP=JUMPHEIGHT END IF 'CALCULATING THE MOVE AMOUNT MOVE=LEFTKEY-RIGHTKEY 'SETTING XSPEED TO MOVE XSP=MOVE*WALKSP 'DRAWING COLLISION CHECKER SPRITE 3,X+XSP,Y,CSP 'CHECK IF COLLISION CHECKER HIT ANYTHING IF SPRITE HIT (3,54 TO 63) THEN 'IF HIT CALCULATE HOW MUCH TO MOVE 'TO GET TO BOARDER OF WALL WHILE SPRITE HIT (3,4 TO 14) IF MOVE>0 THEN XSP=XSP-1 IF MOVE<0 THEN XSP=XSP+1 SPRITE 3,X+XSP,Y,2 WEND 'SET XSPEED TO NOTHING XSP=0 END IF 'APPLY XSPEED X=X+XSP 'DRAWING COLLISION CHECKER SPRITE 3,X,Y+YSP,CSP 'CHECK IF COLLISION CHECKER HIT ANYTHING IF SPRITE HIT (3,54 TO 63) THEN 'IF HIT CALCULATE HOW MUCH TO MOVE 'TO GET TO BOARDER OF WALL WHILE SPRITE HIT (3,4 TO 14) IF YSP>0 THEN YSP=YSP+1 IF YSP<0 THEN XSP=YSP-1 SPRITE 3,X,Y+YSP,2 WEND 'SET XSPEED TO NOTHING YSP=0 END IF 'APPLY YSPEED Y=Y+YSP 'HIDING COLLISION CHECKER SPRITE OFF 3 WAIT VBL LOOP #2:MAIN CHARACTERS 00000000000000000000000000000000 FFFFFFFFFFFFFFFF0000000000000000 1C1C1C081C081C140000000000000000