Here is a tutorial on how to create hacks
U.Ammo:
Call WriteAByte("WarRock", &H51E376, &H90)
Call WriteAByte("WarRock", &H51E377, &H90)
Call WriteAByte("WarRock", &H51E378, &H90)
Call WriteAByte("WarRock", &H51E387, &H90)
Call WriteAByte("WarRock", &H51E388, &H90)
Call WriteAByte("WarRock", &H51E389, &H90)
Call WriteAByte("WarRock", &H51E38D, &H90)
Call WriteAByte("WarRock", &H51E38E, &H90)
Call WriteAByte("WarRock", &H51E38F, &H90)
This really go on the button and you'll have to put addres date because I believe that these are old
ANTI-KICK:
Private Sub Command1_Click()
Call WriteALong("warrock", &H503715, &H90)
Call WriteALong("warrock", &H503715 + 1, &H90)
Call WriteALong("warrock", &H503715 + 2, &H90)
Call WriteALong("warrock", &H503715 + 3, &H90)
Call WriteALong("warrock", &H503715 + 4, &H90)
Call WriteALong("warrock", &H503715 + 5, &H90)
End Sub
This should also come on the button
INSTANT SPAWN:
create 1 timer:
Interval = 1
Enabled = False
This is the button-on:
Timer1.Enabled = True
this code in button OFF Quick spawn :
Timer1.Enabled = False
this is going on a timer:
Call WriteALong("WarRock", &H(address here) ,0)
Call WriteALong("WarRock", &H(address here) ,0)
Super Jump:
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeySpace) Then
Dim SJ As Long
Dim SJ1 As Long
Dim SJ2 As Single
Call ReadALong("WarRock", &H1363380, 2000)
SJ1 = SJ + &H178
SJ2 = Text1.Text
Call WriteAFloat("WarRock", SJ1, 2000)
End If
No fall damage:
Dim NFD As Long
Dim NFD1 As Long
Call ReadALong("WarRock", &H1363380, -2000)
NFD1 = NFD + &H260
Call WriteALong("Warrock", NFD1, -2000)
Shotgun: If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyL) Then
Dim shotgun As Long
Dim shotgun1 As Long
Call ReadALong("Warrock", &H1363380, 42)
shotgun1 = shotgun + &H4C
Call WriteALong("Warrock", shotgun1, 42)
End If
The hotkey now:ctrl+6
Actually addresse's
Spare nade:
Make 1 button and copy this:
Dim grenade As Long
Dim grenade1 As Long
Call ReadALong("Warrock", &H1363380, 45)
grenade1 = grenade + &H4C
Call WriteALong("Warrock", grenade1, 45)
And make 1 timer:
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyU) Then
Dim grenade As Long
Dim grenade1 As Long
Call ReadALong("Warrock", &H1363380, 65)
grenade1 = grenade + &H4C
Call WriteALong("Warrock", grenade1, 65)
End If
Smokenade:
Make new button and copy this code:
Dim smokegrenade As Long
Dim smokegrenade1 As Long
Call ReadALong("Warrock", &H1363380, 53)
smokegrenade1 = smokegrenade + &H4C
Call WriteALong("Warrock", smokegrenade1, 53)
Make 1 timer:
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyI) Then
Dim smokegrenade As Long
Dim smokegrenade1 As Long
Call ReadALong("Warrock", &H1363380, 53)
smokegrenade1 = smokegrenade + &H4C
Call WriteALong("Warrock", smokegrenade1, 53)
End If
Flash1
Make 1 button and 1 timer:
For the button:
Dim flashbang As Long
Dim flashbang1 As Long
Call ReadALong("Warrock", &H1363380, 54)
flashbang1 = flashbang + &H4C
Call WriteALong("Warrock", flashbang1, 54)
For the timer:
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyM) Then
Dim flashbang As Long
Dim flashbang1 As Long
Call ReadALong("Warrock", &H1363380, 53)
flashbang1 = flashbang + &H4C
Call WriteALong("Warrock", flashbang1, 53)
End If
Flash2:
MAke 1 button and 1 timer:
For the button:
Dim flashbangg As Long
Dim flashbangg1 As Long
Call ReadALong("Warrock", &H1363380, 54)
flashbangg1 = flashbangg + &H4C
Call WriteALong("Warrock", flashbangg1, 54)
For the timer:
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKey0) Then
Dim flashbangg As Long
Dim flashbangg1 As Long
Call ReadALong("Warrock", &H1363380, 55)
flashbangg1 = flashbangg + &H4C
Call WriteALong("Warrock", flashbangg1, 55)
End If
Extra k200 nades
Button:
Dim grenades As Long
Dim grenades1 As Long
Call ReadALong("Warrock", &H008ADCA8, /here the nade code example:78/)
grenades1 = grenades + &H4C
Call WriteALong("Warrock", grenades1, 44)
Timer:
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyH) Then
Dim grenades As Long
Dim grenades1 As Long
Call ReadALong("Warrock", &H1363380, /here a nadde code/)
grenades1 = grenades + &H4C
Call WriteALong("Warrock", grenades1, 44)
End If
Scope:
2 buttons
1 timer(Enabled=false, interval=1)
On button:
Timer1. Enabled = True
Off button:
Timer1. Enabled = False
Timer1:
If GetKeyPress (vbKeyRButton) Then
Call WriteAlong ("WarRock", &H(addy), 1)
Else
Call WriteAlong ("WarRock", &H(addy), 0)
End If
Fast f/h/a/r 2 buttons, 1 timer
timer1.enabled = true
= false
timer
timer interval = 1
enabled = false
Call WriteALong("WarRock", &H addy , 1092779973) - ammo
Call WriteALong("WarRock", &H addy , 1092779973) - heal
Call WriteALong("WarRock", &H addy , 1092779973) - flag
Call WriteALong("WarRock", &H addy , 1092779973) - rapair
Slots 2 buttons, 1 timer
timer1.enabled = true
= false
timer
timer interval = 1
enabled = false
Call WriteALong("WarRock", &H addy, 4) - 5th slot
Call WriteALong("WarRock", &H addy, 5) - 6th slot
Call WriteALong("WarRock", &H addy, 6) - 7th slot
Call WriteALong("WarRock", &H addy, 7) - 8th slot
scope hotkey is mouse right click ( and u'll need to hold it down)
Stamina:
Code:
If Check1.Value = 1 Then
Timer1.Enabled = True
End If
End Sub
For Stamina Timer:
Code:
Dim STAN As Long
Dim STAN1 As Long
Call ReadALong("WarRock", &H1376340, STAN)
STAN1 = STAN + &H288
Call WriteALong("WarRock", STAN1, 1120403456)
made by : Merkado

" The Best Of Cheats Team "
