Superjump Addresses

[wouter11]

Hi

Have someone the right offset and the right adresses and jump hight of superjump. Because when I jump i fall under the ground and that sux please help me..... (A) I will post it with no fall damage(A). PLEASE HELP ME!

Greets Wouter

[wr194t]

Use the search button in future:
http://www.dxth4x.com/forums/showthread.php?t=3573

[wouter11]

Yeah i Used that code:
Private Sub Timer14_Timer()
If GetKeyPress(vbKeyMButton) Then
Dim JSER As Long
Dim JSER1 As Long
Dim JSER2 As Single
Call C2646E6D(&H1373FD8, JSER)
JSER1 = JSER + &H178
JSER2 = 2000
Call A55D798B(JSER1, 2000)
End If
End Sub

But when i press middlemousbutton I fall undertheground:P. Can you help me with that. I think my code is correctly but the &Haddress dont work. Or can someone help me with that:p. So i made this thread for that. I know the searchbutton. Sorry that i ask so much but I have to learn something in VB;)

Greets Wouter

[jarnohh]

U make a textbox with the high?

[wouter11]

No just one value 2000 not a text box i know how to do but i think that sux

[zezima]

ok try this:



Private Sub Timer14_Timer()
If GetKeyPress(vbKeyMButton) Then
Dim JSER As Long
Dim JSER1 As Long
Call C2646E6D("Warrock", &H1373FD8, JSER)
JSER1 = JSER + &H178
Call A55D798B("Warrock", JSER1, 3500)
End If
End Sub


and if you get any errors, try this:



Private Sub Timer14_Timer()
If GetKeyPress(vbKeyMButton) Then
Dim JSER As Long
Dim JSER1 As Long
Call C2646E6D(&H1373FD8, JSER)
JSER1 = JSER + &H178
Call A55D798B(JSER1, 5000)
End If
End Sub


so C2646E6D = ReadALong
and A55D798B = WriteAFloat? if no, then tell me. Str8

[wouter11]

I tried what you said but i doesn't work i still fall under the ground and go dead:S I wanna jump not fall. And what you said you only edit the value's i allready did that