Lol, Ashbad's code is pretty awesome. Anyway, I have a new problem. I used some jumping/gravity code from Eeem's platform tutorial, and jumping does nothing. I understand the code, but I can't figure out why the code doesn't work. It is probably something very simple that I am missing, but I cant figure it out.

:.GAME
:DiagnosticOff
:ClrDraw
:[1824187E5A182442]→Pic1
:40→A
:1→B
:0→X
:1→C
:Full
:Line(0,63,95,63)
:Line(0,63,0,0)
:Line(95,63,95,0)
:
:For(G,1,15)
:rand^(95-0+1)+0→D
:rand^(95-0+1)+0→E
:rand^(63-0+1)+0→F
:Line(D,F,E,F)
:End
:
:1→C
:Repeat getKey=15
:Pt-Change(A,B,Pic1)
:DispGraph
:Pt-Change(A,B,Pic1
:A-(getKey(2)*(pxl-Test(A+0,B+5)=0))→A
:A+(getKey(3)*(pxl-Test(A+7,B+5)=0))→A
:pxl-Test(A+4,B+8)→C
:B+(C=0)→B
:
:!If D
:10*(getKey(54) and (C))→D
:Else
:D-1→D
:End
:
Here?

B+(2*((C=0) and (D)))→B



:End


Problem was solved