I made anniversary peanuts to celebrate being on omnimaga for a while

Moving left and right works.
At the button press, the guy jump and puts his arm out. Then it freezes.
I cant find what Im doing wrong.
If it all just stops, there must be something vital I'm missing or screwing up.
PROGRAM:HOOKSR
:.AAHOOK
:DiagnosticOff
:[1028103854382828]➔Pic1
:[102A123C50B82828]
:[FFFFFFFFFFFFFFFF]➔Pic2
:1➔R−1➔H➔Q➔B➔P
:256➔X ;Doin teh 256 inflation
:12288➔Y
:Fix 5
:Repeat getKey(15)
:Lbl 1
:ClrDraw
:If X∕256<<1
:256➔X
:End
:If X∕256>88
:22528➔X
:End
:If (H=0) or (H=1)
:If getKey(3) ;Moving left and right works
:X+256➔X
:1➔R
:End
:If getKey(2)
:X−256➔X
:0➔R
:End
:End
:If H=1 or H>40
:If getKey(2)
:0➔R
:End
:If getKey(3)
:1➔R
:End
:End
:For(A,0,11)
:Pt-On(A∗8,1,Pic2
:Pt-On(A∗8,56,Pic2)
:End
:If (getKey(54))∗((H=0)+(H>40))∗(B=0)
:If Y/256=48 ;Checks if it needs to jump
:1➔H
:Else
:2➔H
:End
:End
:If H=1
:Y−256➔Y ;Jump!
:If Y∕256≤28
:2➔H ;End Jump
:X∕256➔S ;Sets S and T's coordnates not in sub-pixels
:Y∕256➔T 
:R➔θ ;Sets Right to theta
:Repeat pxl-Test(S,T)
:T−− ;Goes up at 45 degree angle to find ceiling.
:If θ
:S++
:Else
:S−−
:End
:End
:End
:If H>1 ;It freezes from here down here; nothing happens
:If H≤40
:1➔P
:Line(X/256+7,Y/256,S,T)
:Else
:0➔P
:End
:If H<15 ;Fall with connected rope
:Y+256➔Y
:If θ
:X+256➔X
:Else
:X−256➔X
:End
:H++
:If Y∕256=48
:0➔H➔P➔S➔T
:10➔B
:End
:End
:If H≥15 and (H≤25)
:If H<21
:Y+(256−((H−15)∗25))➔Y ;My attempted curve
:Else
:Y−((H−15)∗25)➔Y
:End
:End
:If H≥25 and (H≤40)
:If θ
:X+256➔X
:Else
:X−256➔X
:End
:Y−256➔Y ;Now rise with the rope connected
:If Y∕256<9
:56➔H
:0➔P
:End
:H++
:End
:!If H≤40 ;Now the rope releases
:If H≤50
:H++
:If θ
:X+(384−(H−40)∗10)➔X ;Go fast, then slow after the rope releases
:Else
:X−(384+(H−40)∗10)➔X
:End
:If Y∕256<9
:56➔H
:0➔P
:End
:Y−−
:ElseIf (H≥50)∗(H≤60)
:H++
:If H<56
:Y+(256−((H−50)∗25))➔Y ;Curve
:Else
:Y−((H−50)∗25)➔Y
:End
:End
:If θ
:X+256➔X
:Else
:X−256➔X
:End
:End
:If H>55
:If Y∕256<48
:Y+256➔Y ;Now fall down
:If θ
:X+256➔X
:Else
:X−256➔X
:End
:Else
:0➔H➔S➔T ;Reset once it touches the ground
:End
:End
:End
:End
:Pt-On(X∕256,Y∕256,P∗8+Pic1)
:If B
:B−−
:End
:DispGraph
:End
To isolate where it screws up,
:If H>1
:If H≤40
:1➔P ;Well, this 1->P kicks in
:Line(X/256+7,Y/256,S,T) ;Line doesn't draw
:Else
:0➔P
:End
:If H<15 ;Fall with connected rope
:Y+256➔Y ;This doesnt work here
: ; the movement stuff below it doesnt work either.

The curves are kind of crappy, but ill improve them once it works,.

My mom wont let me get any games for computer since she says I can always "find other games that are free"

Me too

I actually need to wrap up robogun first. But that will be quick

ATTEMPTED GRAVITY:

100% FAIL.
CANT EVEN GET THE PLAYER TO MOVE!!

Errors found so far: 6

I want to try a tilemap soon.

Or a shortened abbriviated version: Egtiiabihhaslt!

I made one for the other people

Either I remove scrolling, stick with linear gravity and stiff ropes, or try to figure out physics by myself.

Can you edit my program so i can see what you did and make it work next time?