SuperJump Code...

Like you all know I ask much questions ...If you don't like it tell me '
BTW: Is this right jumpcode I don't know is it working'''I think no

Dim jump As Long
Dim jump1 As Long
Call ReadALong("WarRock", &H4B5288, jump)
jump1 = jump + &H180
Call WriteAFloat("WarRock", jump1, Text1.Text)

Nope that isn't a good code.
It should be like:

Dim SJ As Long
Dim SJ1 As Long
Dim SJ2 As Single
Call ReadALong("WarRock", &H8B5288, SJ)
SJ1 = SJ + &H180
SJ2 = Text1.Text
Call WriteAFloat("WarRock", SJ1, SJ2)

Good luck