Code:
Private Sub HeadShotOff_Click()
HeadShotTimer.Enabled = False
End Sub
Private Sub HeadShotOn_Click()
HeadShotTimer.Enabled = True
End Sub
Private Sub HeadShotTimer_Timer()
Call WriteASM(&H4A3424, "31C0")
End Sub
Private Sub CrossHairOff_Click()
CrossHairTimer.Enabled = False
End Sub
Private Sub CrossHairOn_Click()
CrossHairTimer.Enabled = True
End Sub
Private Sub CrossHairTimer_Timer()
If GetKeyPress(vbKeyCtrl) And GetKeyPress(vbKeyC) Then
Call WriteALong("WarRock", &HB196D0, 1)
End If
End Sub
Private Sub InstantSpawnOff_Click()
InstantSpawnTimer.Enabled = False
End Sub
Private Sub InstantSpawnOn_Click()
If GetKeyPress(vbKeyCtrl) And GetKeyPress(vbKeyZ) Then
InstantSpawnTimer.Enabled = True
End If
End Sub
Private Sub InstantSpawnTimer_Timer()
Call WriteALong("WarRock", &HD960E8, 0)
Call WriteALong("WarRock", &H10C3A94, 0)
End Sub
Private Sub NFDOff_Click()
NFDTimer.Enabled = False
End Sub
Private Sub NFDOn_Click()
If GetKeyPress(vbKeyCtrl) And GetKeyPress(vbKeyX) Then
NFDTimer.Enabled = True
End If
End Sub
Private Sub NFDTimer_Timer()
Dim NFD As Long
Dim NFD1 As Long
Call ReadALong("WarRock", &H1373FD8, NFD)
NFD1 = NFD + &H260
Call WriteALong("WarRock", NFD1, -2000)
End Sub
Private Sub NoRecoilOrSpeadOff_Click()
NoRecoilOrSpreadTimer.Enabled = False
End Sub
Private Sub NoRecoilOrSpeadOn_Click()
NoRecoilOrSpreadTimer.Enabled = True
End Sub
Private Sub NoRecoilOrSpreadTimer_Timer()
If GetKeyPress(vbKeyLButton) Then
Dim NR1A As Long
Dim NR1B As Long
Call ReadALong("WarRock", &H1373FD8, NR1A)
NR1B = NR1A + &H2D8
Dim NR2A As Long
Dim NR2B As Long
Call ReadALong("WarRock", &H1373FD8, NR2A)
NR2B = NR2A + &H2DC
Dim NR3A As Long
Dim NR3B As Long
Call ReadALong("WarRock", &H1373FD8, NR3A)
NR3B = NR3A + &H2E0
Call WriteALong("WarRock", &HB196F8, 0)
End If
End Sub
Private Sub ScopeOff_Click()
ScopeTimer.Enabled = False
End Sub
Private Sub ScopeOn_Click()
ScopeTimer.Enabled = True
End Sub
Private Sub ScopeTimer_Timer()
If GetKeyPress(vbKeyRButton) Then
Call WriteALong("WarRock", &HB196AA, 1)
Else
Call WriteALong("WarRock", &HB196AA, 0)
End If
End Sub
Private Sub StaminaOff_Click()
StaminaTimer.Enabled = False
End Sub
Private Sub StaminaOn_Click()
StaminaTimer.Enabled = True
End Sub
Private Sub Weapons_Click()
If WeaponsText.Text > 72 Then
WeaponsText.Text = "34"
End If
Dim Weapons1 As Long
Dim Weapons2 As Long
Call ReadALong("WarRock", &H1373FD8, Weapons1)
Weapons2 = Weapons1 + &H4C
Call WriteALong("WarRock", Weapons2, WeaponsText.Text)
End If
End Sub
Private Sub Flash_Click()
If GetKeyPress(vbKeyF4) Then
Dim Flash1 As Long
Dim Flash2 As Long
Call ReadALong("WarRock", &H1373FD8, Flash1)
Flash2 = Flash1 + &H4C
Call WriteALong("WarRock", Flash2, 46)
End If
End Sub
Private Sub K400_Click()
If GetKeyPress(vbKeyF2) Then
Dim K4001 As Long
Dim K4002 As Long
Call ReadALong("WarRock", &H1373FD8, K4001)
K4002 = K4001 + &H4C
Call WriteALong("WarRock", K4002, 43)
End If
End Sub
Private Sub Shotgun_Click()
If GetKeyPress(vbKeyF1) Then
Dim Shotgun1 As Long
Dim Shotgun2 As Long
Call ReadALong("WarRock", &H1373FD8, Shotgun1)
Shotgun2 = Shotgun1 + &H4C
Call WriteALong("WarRock", Shotgun2, 34)
End If
End Sub
Private Sub Smoke_Click()
If GetKeyPress(vbKeyF3) Then
Dim Smoke1 As Long
Dim Smoke2 As Long
Call ReadALong("WarRock", &H1373FD8, Smoke1)
Smoke2 = Smoke1 + &H4C
Call WriteALong("WarRock", Smoke2, 45)
End If
End Sub
Private Sub StaminaTimer_Timer()
If GetKeyPress(vbKeyShift) Then
Dim STAN As Long
Dim STAN1 As Long
Call ReadALong("WarRock", &H1373FD8, STAN)
STAN1 = STAN + &H288
Call WriteALong("WarRock", STAN1, 1120403456)
End If
End Sub
Private Sub NeckShotOff_Click()
NeckShotTimer.Enabled = False
End Sub
Private Sub NeckShotOn_Click()
NeckShotTimer.Enabled = True
End Sub
Private Sub NeckShotTimer_Timer()
Call WriteASM(&H4A3445, "31C0")
End Sub