[Making hack]

I have spend long time for do the new hack,,, "Neiva's Low hack"

Please Gimme adresses like Call WriteALong ("warrock" ...

STAMINA
made 2 Buttons

Timer1.Enabled = True

Timer1.Enabled = False


made 1 Timer :

Private Sub Timer1_Timer()
Dim ST1 As Long
Dim ST2 As Long
Call ReadALong("Warrock", &H136A0E0, ST1)
ST2 = ST1 + &H288
Call WriteAFloat("Warrock", ST2, 100)
End Sub


----------
now give me thankes

player poniter : 137BE20
----------- Swim hack ----------------

made 2 Buttons :
-ON >

Private Sub Command23_Click()
Dim SM1 As Long
Dim SM2 As Long
Call ReadALong("Warrock", &H137BE20, SM1)
SM2 = SM1 + &H276
Call WriteALong("Warrock", SM2, 4)
End Sub



-OFF >

Private Sub Command24_Click()
Dim SM1 As Long
Dim SM2 As Long
Call ReadALong("Warrock", &H137BE20, SM1)
SM2 = SM1 + &H276
Call WriteALong("Warrock", SM2, 2)
End Sub



-----------
give me thankes