lilsavalex (02-15-2009),Miljan5 (03-19-2013),phantomfury (08-04-2008),TehNoobShow (07-07-2008)
great but they do work and for a noob i think that is all that matters really. Any way i'm going to write in a few tutorials on what i have and hopefully it will help other new members of warrock hacking. If i make a mistake can the mods please edit what i have done wrong . I am going of the code that works for me,
1.COMODO Firewall Pro is a good way to stay undetected but people might say different.
First thing! if you have not got a module then you can find a module in this fourm for VB6 or you can download an undetected module maker mad by Zeas.If you get the UMM by Zeas open it and click fast module.Then copy ALL the code out of the text box and place it into a text file and name it vb6module.Or copy the module text from this fourm and do the same with a text file.
Read on to find out what to do next.
=============================Module=============== ==================================
First thing is we need to add a module to do this you will need to click Project->Add Module then a box will appear then click open.
Your module is now open and there should be a blank box.Now open up your module.txt file and copy all the text and paste it into the module box and there you go your module is now ready.You can close this box now.
Ok when working with scripts you will see ReadAByte/ReadAFloat/WriteAFloat and so on. You have to change this in the hack script to what ever it is in the module so if a hack said
call WriteAlong("WarRock,&H23456,789)
You would look in you module by double clicking in and then maximize it to see better. Now Start at the top and if you slide the screen abit to the right you will see GREEN text that says WriteALong then under anouther line you will see
ReadALong now if you carry on looking you will see a few more of these text in green.Ok now to change this script line
call WriteAlong("WarRock,&H23456,789)
you need to go into the module and find the green text that you are looking for right now we are useing WriteALong as an example and then look for this.
Public Function YOURLETTERS(OOOOOIXVK As String, SSSAHIXVK As Long, WWWAHIXVK As Long)
It is always on the same line as the green writeing.Now you need to replace the WriteALong with your code.in the above code were it says YOURLETTERS this is what you need to coppy.When you have copyd your letters close the module box and open your script box to were the WriteAFloat has to be replaced.When it has been replaced it should look like this
Call YOURLETTERS("WarRock,&H2345,678)
Now the next step is to get the addies.To get upto date addies go in to the warrock section and then addies (Make sure there up to date or you will be detected quicker) do the same copy them into a text file and save some were.
Now that you have a module and you no were to look to change the WriteALong/ReadALong and so on.You now need to change the
&H1234 part of the script.In my tutorials below i have changed them to the codes you need. example if we makeing a stamina hack it would be (playerPointer) + (stanimaOffSet)
Dim STAN As Long
Dim STAN1 As Long
Call ReadALong("WarRock", &H(PlayerPointer), STAN)
STAN1 = STAN + &H(stanimaOffset)
Call WriteALong("WarRock", STAN1, 1120403456 -
So open your addies and look for PlayerPointer then replace the (playerPointer) with the code you have got next to the playerpointer in your text file. Also you need the stanima off set so look for stanima offset and replace the (stanimaOffSet) with your code. Now you should have this
Dim STAN As Long
Dim STAN1 As Long
Call YOURLETTERS("WarRock", &H139B6B8, STAN)
STAN1 = STAN + &H28C
Call YOURLETTERS("WarRock", STAN1, 1120403456
REMEMBER to place the code you have with out the () so its &H28C and not &H(28C)
===================================END============ =================================
Now Start a new project, add your module and make the project box a little bit bigger so it can fit a few boxes in.
I am makeing this as thou its ONE BIG HACK also i assume you no how to add a box and timer.
1, Kill PunkBuster
1Button (2 if you want to turn it ofF)
Timer1.Enabled=True - Button ON
(Timer1.Enabled=False - in the seccond button if you want to turn it off)
In button one add this code under timer1.enabled=true.
Shell "taskkill /f /im ""PnkBstrA.exe""" (this looks for PnkBstrA.exe amd kills it)
Then add a timer with the properties set to
Enabled=False
Interval=50000
Now double click the timer and add this code.
Shell "taskkill /f /im ""PnkBstrA.exe"""
Thats it!
The interval is in millisecconds so for 5 mins we add 50000 but after some
looking around someone said this is for every 50 secconds not 5 min and told
me to add an extra 0 but i get an error but you can try it.
Credits to jakeychain1
3.Stanima
This hack will give you unlimited stamina. You will need 2 buttons and a timer.
button1 - Timer2.enabled=true
button2 - timer2.enabled=false
Timer Properties - Enabled-False / Interval-1
In the timer put this code in.
Dim STAN As Long
Dim STAN1 As Long
Call ReadALong("WarRock", &H(PlayerPointer), STAN)
STAN1 = STAN + &H(stanimaOffset)
Call WriteALong("WarRock", STAN1, 1120403456
There you now have a stanima hack.
4.UnlimAmmo
This hack will give you unlimited Ammo for all guns and nades (Not for vehicles)
You need 2 buttons and 1 timer
Button1- Timer3.enabled=true
Button2- Timer3.enabled=False
Timer Properties
Enabled=False
Interval=1
and in the timer you add this code.
Call writeabyte("WarRock", &H(Ammo1), &H90)
Call writeabyte("WarRock", &H(Ammo1) + 1, &H90)
Call writeabyte("WarRock", &H(Ammo1) + 2, &H90)
Call writeabyte("WarRock", &H(Ammo2), &H90)
Call writeabyte("WarRock", &H(ammo2) + 1, &H90)
Call writeabyte("WarRock", &H(ammo2) + 2, &H90)
Call writeabyte("WarRock", &H(ammo3), &H90)
Call writeabyte("WarRock", &H(ammo3) + 1, &H90)
Call writeabyte("WarRock", &H(ammo3) + 2, &H90)
and there is your ammo code.
5.No Fall Damage
This will stop you dieing when falling from high heights.
You will need 2 Buttons & 1 Timer
Button1 - timer4.enabled=true
Button2 - timer4.enabled=false
Timer Properties
Enabled=false
Interval=1
and in the timer add this code.
Dim FD As Long
Dim FD1 As Long
Call ReadALong("warrock", &H(PlayerPointer), FD)
FD1 = FD + &H(NFDOffset)
Call WriteAFloat("warrock", FD1, -2000)
and there you go thats No Fall Damage.
6.No Recoil
This will stop the gun backkicking.
We need 2 buttons and 1 timer.
Button1 - timer5.enabled=true
Button2 - timer5.enabled=false
Timer properties
enabled=false
interval=1
add this code to the timer
Dim recoil1 As Long
Dim recoil2 As Long
Dim recoil3 As Long
Dim recoil4 As Long
Call ReadALong("warrock", &H(PlayerPointer) , recoil1)
recoil2 = recoil1 + &H(RecoilOffset1)
recoil3 = recoil1 + &H(RecoilOffset2)
recoil4 = recoil1 + &H(RecoilOffset3)
Call WriteAFloat("warrock", recoil2, 0)
Call WriteAFloat("warrock", recoil3, 0)
Call WriteAFloat("warrock", recoil4, 0)
and thats it.You have now got 5 hacks
Hope this helpd you as much as it helpd me
Like i said if there is anything wrong with this then can the mods please change it so people aint learning broken code lol.
Put together by = MurkZ and K/\L
PLEASE THANK ME IF YOU LIKE IT!
Last edited by Murkforce; 07-07-2008 at 01:21 PM. Reason: No reason ;)
lilsavalex (02-15-2009),Miljan5 (03-19-2013),phantomfury (08-04-2008),TehNoobShow (07-07-2008)
Who's K/\L? great job, helped me alot i thanked u btw
Lol he's this guy of another forum.
Thanks so much, that's awesome! Now I've been making some hacks, hoping to be able to share it with everyone!