no fall damage hack what is wrong??

[123456789987654321]

what is wrong with this no fall damage hack plz help me

[123456789987654321]

sorry forgot the code lol her it is:

Private Sub Timer6_Timer()
Dim ptr1 As Long
Dim sum1 As Long
If GetKeyPress(vbKeyNumpad6) Then
Call ReadALong("WarRock", &H894E28, ptr1)
sum1 = "&H" + Hex(Val(ptr1) + &H100)
Call WriteALong("WarRock", Val(sum1), -100)
End If
End Sub

[jokuvaan11]

I think that :

Dim ptr1 As Long
Dim sum1 As Long
If GetKeyPress(vbKeyNumpad6) Then
Call ReadALong("WarRock", &H894E28, ptr1)
sum1 = "&H" + Hex(Val(ptr1))<<---| + &H100) '<<----here 1 ) more
Call WriteALong("WarRock", Val(sum1), -100)
End If

[jokuvaan11]

SORRY WWRONG ANSWER!!!

[dezer]

u used wrong address and offset

[jokuvaan11]

u used wrong address

WHAT IS RIGHT ADDRESS THEN?