Is This Right?
Is This Right?
The Stamina Hack works cause i tryed but the other hacks wont i dunno if i have done bits wrong or so on so could you sort it for me thanks 
i also get a runtime erroe using the shotgun 
heres the code i have done so far
and soz for all the posts
i also get a runtime erroe using the shotgun heres the code i have done so far
Code:
rivate Sub Command1_Click(Index As Integer)
Timer1.Interval = 1
End Sub
Private Sub Command2_Click()
Timer1.Interval = 0
End Sub
Private Sub Command3_Click()
Timer2.Interval = 1
End Sub
Private Sub Command4_Click()
Timer2.Interval = 0
End Sub
Private Sub Command5_Click()
Timer3.Interval = 1
End Sub
Private Sub Command6_Click()
Timer3.Interval = 0
End Sub
Private Sub Timer1_Timer()
Dim ST1 As Long
Dim ST2 As Long
Call ReadALong("Warrock", &H1306A70, ST1)
ST2 = ST1 + 648
Call WriteALong("Warrock", ST2, 1120403456)
End Sub
Private Sub Timer2_Timer()
Dim ammo1 As Long
Dim ammo2 As Long
Call ReadALong("Warrock", &H1306A70, ammo1)
ammo2 = ammo1 + AF98B4
Call WriteALong("Warrock", ammo2, 1092779973)
End Sub
Private Sub Timer3_Timer()
Dim scope1 As Long
Dim scope2 As Long
Call ReadALong("Warrock", &H1306A70, scope1)
scope2 = scope1 + AF98AA
Call WriteALong("Warrock", scope2, 1)
End Sub
Private Sub Timer4_Timer()
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyZ) Then
Dim Shotgun1 As Long
Dim Shotgun2 As Long
Call ReadALong("Warrock", &H1306A70, Shotgun1)
Shotgun2 = Shotgun1 + &H4C
Call WriteALong("Warrock", Shotgun1, Text1.Text)
End If
End Sub
