[Help] Stamina code freezes to 0
Code:
Private Sub Command1_Click()
Timer1.Enabled = False
End Sub
Private Sub Command2_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If GetKeyPress(vbKeyShift) Then
Dim STAN As Long
Dim STAN1 As Long
Call ReadALong("WarRock", &H13680D8, STAN)
STAN1 = STAN + &H288
Call WriteAFloat("WarRock", STAN1, 100)
End If
End Sub
when i use this code stamina freezes to zero instead of full
I believe you need to freeze 100 to something else, but you're using WriteAFloat... so I don't know. Use WriteALong and try to find out what to freeze it to. If that doesn't work then I don't know.
Use WriteAFloat and freeze it to 1120403456, that should work.