[ HELP ] stamina code
[ HELP ] stamina code
my first time coding in vb so im trying to get the hang of it i keep getting errors using this
Code:
Private Sub Stamina_Click()
1 button:
Timer1.Enabled = True
2 button:
Timer1.Enabled = False
Dim STAN As Long
Dim STAN1 As Long
Call ReadALong("WarRock", &H1363380, STAN)
STAN1 = STAN + &H288
Call WriteAFloat("WarRock", STAN1, 100)
End Sub
Originally Posted by ilovepie21
my first time coding in vb so im trying to get the hang of it i keep getting errors using this
Code:
Private Sub Stamina_Click()
1 button:
Timer1.Enabled = True
2 button:
Timer1.Enabled = False
Dim STAN As Long
Dim STAN1 As Long
Call ReadALong("WarRock", &H1363380, STAN)
STAN1 = STAN + &H288
Call WriteAFloat("WarRock", STAN1, 100)
End Sub
Code:
Dim STAN As Long
Dim STAN1 As Long
Call ReadALong("WarRock", &H1363380, STAN)
STAN1 = STAN + &H288
Call WriteAFloat("WarRock", STAN1, 100)
and drop this:
Code:
if Timer1.Enabled = True then Timer1.Enabled = False Else Timer1.Enabled = True End If
like this:
Code:
Private Sub Stamina_Click() if Timer1.Enabled = True then Timer1.Enabled = False Else Timer1.Enabled = True End If End Sub
