Private Sub staminatimer_Timer()
Call WriteALong("WarRock", &H7DB120, 1120403456)
End Sub
Private Sub CmdStamina_Click() If staminatimer.Interval = 400 Then CmdStamina.Caption = "OFF" staminatimer.Interval = 0 Else staminatimer.Interval = 400 CmdStamina.Caption = "ON" End If End Sub
Private Sub Timer1_Timer '//Stamina()
Call WriteALong("WarRock", &H7DB120, 1120403456)
End Sub
Private Sub Command1_Click '//Stamina On()
Timer1.Interval = 1
End Sub
Private Sub Command2_Click '//Stamina Off()
Timer1.Interval = 1
End Sub