Superjump and Superman Codes??Somebody help me with these codes??

I found this value with my own value^ finder!!
Question:HOW I CHANGE IT TO JUMP^_Now It Goes Underground!!!
This Is My Code Of Superman:-----^
AND I NEED NO FALL DAMAGE ADDRESS!! PLEASE

I Have The Same Problem,it Doesnt Matter What Value You Use It Doesnt Work,its The Only Thing On My Trainer That Doesnt Work.

Value = 2000

not uce,in vb6 it works in uce with value 2000,i put it in vb6 with pointer,and + &H180,heres my code-it doesnt work

Private Sub Timer9_Timer()
Dim jump As Long
Dim jump1 As Long
Dim jump3 As Long
If GetKeyPress(vbKeyNumpad7) Then
Call ReadALong("WarRock", &H896E28, jump)
jump1 = jump + &H180
jump3 = 2000
Call WriteALong("WarRock", jump1, jump3)
End If
End Sub