no fall damage hack what is wrong??

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

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

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

u used wrong address and offset

WHAT IS RIGHT ADDRESS THEN?

yeah what is the right address??

get it by urself

How? How du u scan No fall damage?

ok its the same address as for superjump but the offset is different

So it is 00896e28 + ... ????

Pls tell us wath

omfg.. find urself.. is easier than u think.. ^^

no i don't have uce or bypass and i'm a litle lazy...