omfg i did not make a spammer If you want proof this is the code It's only my second hack
Private Sub Command1_Click()
Timer1.Interval = 1
End Sub
Private Sub Command2_Click()
Timer1.Interval = 0
End Sub
Private Sub Command3_Click()
Dim shotgun As Long
Dim shotgun1 As Long
Call ReadALong("crossfire.exe", &H896E28, shotgun)
shotgun1 = shotgun + &H4C
Call WriteALong("crossfire.exe", shotgun1, 34)
End Sub
Private Sub Command4_Click()
Timer2.Interval = 1
Timer3.Interval = 1
Timer4.Interval = 1
Timer5.Interval = 1
Timer6.Interval = 1
Timer7.Interval = 1
Timer8.Interval = 1
Timer9.Interval = 1
End Sub
Private Sub Command5_Click()
Timer2.Interval = 0
Timer3.Interval = 0
Timer4.Interval = 0
Timer5.Interval = 0
Timer6.Interval = 0
Timer7.Interval = 0
Timer8.Interval = 0
Timer9.Interval = 0
End Sub
Private Sub Command6_Click()
Dim jump As Long
Dim jump1 As Long
Dim jump3 As Single
Call ReadALong("crossfire.exe", &H896E28, jump)
jump1 = jump + &H180
jump3 = 1500
Call WriteAFloat("crossfire.exe", jump1, jump3)
End Sub
Private Sub Timer1_Timer()
Call WriteALong("crossfire.exe", &H7DB120, 1120403456)
End Sub
Private Sub Timer2_Timer()
Call WriteALong("crossfire.exe", &H90DC6F, 0)
End Sub
Private Sub Timer3_Timer()
Call WriteALong("crossfire.exe", &H90DC70, 0)
End Sub
Private Sub Timer4_Timer()
Call WriteALong("crossfire.exe", &H90DC71, 0)
End Sub
Private Sub Timer5_Timer()
Call WriteALong("crossfire.exe", &H90DC72, 0)
End Sub
Private Sub Timer6_Timer()
Call WriteALong("crossfire.exe", &H90DC73, 0)
End Sub
Private Sub Timer7_Timer()
Call WriteALong("crossfire.exe", &H90DC77, 0)
End Sub
Private Sub Timer8_Timer()
Call WriteALong("crossfire.exe", &H90DC78, 0)
End Sub
Private Sub Timer9_Timer()
Call WriteALong("crossfire.exe", &H90DC79, 0)
End Sub