[ HELP ] stamina code

[ilovepie21]

my first time coding in vb so im trying to get the hang of it i keep getting errors using this

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

[diamondo25]

my first time coding in vb so im trying to get the hang of it i keep getting errors using this

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

Drop this:

Dim STAN As Long
Dim STAN1 As Long
Call ReadALong("WarRock", &H1363380, STAN)
STAN1 = STAN + &H288
Call WriteAFloat("WarRock", STAN1, 100)

in a timer.

and drop this:

if Timer1.Enabled = True then
Timer1.Enabled = False
Else
Timer1.Enabled = True
End If

in your button...

like this:

Private Sub Stamina_Click()
if Timer1.Enabled = True then
Timer1.Enabled = False
Else
Timer1.Enabled = True
End If
End Sub