anyone have a tut for no fall damage vb6

[CHECK2PASS]

cant get this too work...

[cjg333]

if u have a uce,
be med,to heal yourself
scan unknown value,then jump off building dont die
do next search as changed value,
do nothing
then search unchanged value,
repeat the steps till you get addie

should work i havent tried it.so dont hold it agaisnt me if it dont work,thats how i would try it

[mains3rv3r]

That won't work... you'd need to find a pointer... not an address alone...

[MS Word]

Isn't no fall dmg combined with GPS ?

[blackdrag0]

cant get this too work...

if you have the adress, put ass value: -100 and freeze, the adress was : 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

or in the easy way: &H894E28


greets

[dezer]

@Word
yea it is but there is separate address for NFD too its the same address as for superjump , just the offset is different

@blackdrag0
nice u copied code by 123456789987654321 which isnt working and has wrong address and offset ;D

[blackdrag0]

Isn't no fall dmg combined with GPS ?

no, lol O.P.K. is combined with GPS you stupid.

[blackdrag0]

@Word
yea it is but there is separate address for NFD too its the same address as for superjump , just the offset is different

@blackdrag0
nice u copied code by 123456789987654321 which isnt working and has wrong address and offset ;D

@ mr. Asshole
No, i didn't copy this, i found this out myself, i aint dumb, like you

anyways, get the f*cking adress and freeze the darn value to -100

[MS Word]

no need 2 call me stupid you asshole

[dezer]

he called me asshole but i dont care, he cant compare to me.

and u found it out by urself? then ur poor noob becouse the address and offset is wrong! and here's quote of 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

link to post: https://www.mpgh.net/forum/post/125251/2/

its fucking copied so dont claim its yours fucking noob

quote of your post if u'd like to edit as you did, noob:

if you have the adress, put ass value: -100 and freeze, the adress was : 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

or in the easy way: &H894E28


greets

i got screen too