Unlimited stamina superjump and no falldamage errors Please Help

[wouter11]

I'm making public hacks for dxt and I've got a lot of things now but i wanna have unlimited stamina (us) and superjump (sj) and no falldamage (nf). I made these two codes because the superjump address isnt finded or posted.
These are the two codes:
Us
Dim US As Long
Dim US1 As Long
Call C2646E6D(&H1373FD8, US)
US1 = US + &H288
Call E2BE9DB7(US1, 1120403456)
End Sub

Nf
Dim NFD As Long
Dim NFD1 As Long
Call C2646E6D(&H1373FD8, NFD)
NFD1 = NFD + 260
Call E2BE9DB7(Addy2, -100)
End Sub

SJ
I made this code but i get an error by SJ2 something like sub or function not defined??
Dim SJ As Long
Dim SJ1 As Long
Dim SJ2 As Single
Call C2646E6D (&H1332A20, SJ)
SJ1 = SJ + &H178
SJ2 = 2000
Call A55D798B (SJ1, SJ2)

THESE ARE THE OLD ADDRESSES I KNOW BECAUSE THE NEW ONE ARN'T POST YET!

Private Sub Timer1_Timer()
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKey3) Then swim_Click
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKey2) Then fall_Click
If GetKeyPress(vbkeycControl) And GetKeyPress(vbKey1) Then sj_Click
End Sub

Ive got this timer also leeched from another forum but he leeched it to so i dunnow who is leeching. But how Do i use this. What can i type in by vbKeyControl and vbKey?? Please help me when someone help me I post my public hack fast.

I give people who helped me a big thnx=D

[Firesnipe]

This is the timer for stamina
and it's properties should be Interval:1
and Enabled:False

Dim stamina1 As Long
Dim stamina2 As Long
Call ReadALong("warrock", &H1363380, stamina1)
stamina2 = stamina1 + &H288
Call WriteAFloat("warrock", stamina2, 100)

Than the stamina on button should look like this

Timer numberornameoftimerhere .enabled=true
Off Button

timer numberornameoftimerhere .enabled=false
This is for superjump timer
it has same properties as stamina

Dim jump1 As Long
Dim jump2 As Long
Dim jump3 As Single
Call ReadALong("warrock", &H1363380, jump1)
jump2 = jump1 + &H178
jump3 = txtJump.Text
Call WriteAFloat("warrock", jump2, jump3)

Than make two button for on

Timer numberornameoftimerhere .enabled=true
Off Button

timer numberornameoftimerhere .enabled=false

Lastly NFD the timer should be like this
and the properties as as for the above

Dim NFD1 As Long
Dim NFD2 As Long
Call ReadALong("WarRock", &H1363380, NFD1)
NFD2 = NFD1 + &H260
Call WriteAFloat("WarRock", NFD2, -2000)
and do the same thing as you did for stamina and sj
except change name and stuff

Hope I helped

If you still keep getting erros add me on xfire: firesnipe45
and post the name of ur erro(s) first

[robov]

It doesn't work:confused:

[robov]

ReadALong is not good