[Help] Stamina code freezes to 0

[ilovepie21]

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

[gbitz]

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.

[yup]

Use WriteAFloat and freeze it to 1120403456, that should work.