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 "
Can you help me.Where can i download a program for anti-kick and anti-ban ip, for a chat.Thank you very much.
It is nice, yes. But... you know... you could explain how it works and what each thing does... Also you're making people's life too easy XD
Life is a hack. Don't leech it.
[IMG]https://i140.photobucke*****m/albums/r30/kelsy_012/mpghzn5.gif[/IMG]
Wow, your c&p skills impress me.