0 Members and 1 Guest are viewing this topic.
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
Author
Topic: Grappler! (Read 26677 times)
