4 questions

[m4c4r0ni3z]

i made a hack, and i have problems:

1) My Stamina actually makes me have NO stamina, heres my code:


Dim stamina As Long
Dim stamina1 As Long
Call ReadALong(&H1376340, stamina)
stamina1 = stamina + &H288
Call WriteAFloat(stamina1, 100)

2) My SuperJump sends me under the map on most maps, here my code:


Dim sj As Long
Dim sj1 As Long
Call ReadAlong(&H1376340, sj)
sj1 = sj + &H178
Call WriteAFloat(sj1, Text2.Text)



And here two questions:
How do you code unlim. ammo and no recoil?


Thnaks in advanced for the help

[frostbitekid]

oke unl ammo
nop each address 3 times
&H90=on

recoil look something like this

Private Sub 1_Timer()
Dim recoil1 As Long
Dim recoil2 As Long
Dim recoil3 As Long
Dim recoil4 As Long
Call ReadALong("warrock", &H1363380, recoil1)
recoil2 = recoil1 + &H2D8
recoil3 = recoil1 + &H2DC
recoil4 = recoil1 + &H2E0
Call WriteAFloat("warrock", recoil2, 0)
Call WriteAFloat("warrock", recoil3, 0)
Call WriteAFloat("warrock", recoil4, 0)
End Sub

superjump

rivate Sub 2_Timer()
If GetAsyncKeyState(vbKeyControl) And GetAsyncKeyState(vbKeySpace) Then
Dim jump1 As Long
Dim jump2 As Long
Dim jump3 As Single
Call ReadALong("warrock", &H1363380, jump1)
jump2 = jump1 + &H178
jump3 = 1.Text
Call WriteAFloat("warrock", jump2, jump3)
End If
End Sub

addresses are wrong this is old

[m4c4r0ni3z]

oke unl ammo
nop each address 3 times
&H90=on

recoil look something like this

Private Sub 1_Timer()
Dim recoil1 As Long
Dim recoil2 As Long
Dim recoil3 As Long
Dim recoil4 As Long
Call ReadALong("warrock", &H1363380, recoil1)
recoil2 = recoil1 + &H2D8
recoil3 = recoil1 + &H2DC
recoil4 = recoil1 + &H2E0
Call WriteAFloat("warrock", recoil2, 0)
Call WriteAFloat("warrock", recoil3, 0)
Call WriteAFloat("warrock", recoil4, 0)
End Sub

superjump

rivate Sub 2_Timer()
If GetAsyncKeyState(vbKeyControl) And GetAsyncKeyState(vbKeySpace) Then
Dim jump1 As Long
Dim jump2 As Long
Dim jump3 As Single
Call ReadALong("warrock", &H1363380, jump1)
jump2 = jump1 + &H178
jump3 = 1.Text
Call WriteAFloat("warrock", jump2, jump3)
End If
End Sub

addresses are wrong this is old

thanks for the help

[frostbitekid]

np im here to help

[wr194t]

So I guess you didn't bother reading this?:
http://www.dxth4x.com/forums/showthread.php?t=4708

Moved...