Private Sub Timer10_Timer()
If GetAsyncKeyState(119) <> 0 Then
Dim jump1 As Long
Dim jump2 As Single
Call ReadALong("WarRock", &H896E28, jump1)
jump1 = jump + &H180
jump2 = Text2
Call WriteAFloat("WarRock", jump1, jump2)
End If
End Sub
Call ReadALong("WarRock", &H896E28, jump1)
jump1 = jump + &H180
Call ReadALong("WarRock", &H896E28, jump)
jump1 = jump + &H180
Private Sub Timer10_Timer()
If GetAsyncKeyState(119) <> 0 Then
Dim jump1 As Long
Dim jump2 As Single
Call ReadALong("WarRock", &H896E28, jump1)
jump2 = jump1 + &H180
jumpvalue = Text2.Text
Call WriteAFloat("WarRock", jump2, jumpvalue)
End If
End Sub


