Hello again. You may remember my last tutorial: How to set hotkeys to basic hacks
In this tutorial i am going to show you how to set hotkeys to hacks like:
Super Jump/Sky Stormer
NFD (No Fall Damage)
Weapons
Swim
Lets start with Super Jump. So this is what your Super Jump code will probably look like:
Code:
Dim JSER As Long
Dim JSER1 As Long
Dim JSER2 As Single
Call ReadALong("WarRock", &HAddress, JSER)
JSER1 = JSER + &HOffset
JSER2 = Text1.Text (Or a value.)
Call WriteAFloat("WarRock", JSER1, JSER2)
Ok make a timer with a interval of 1, enabled true and use this code:
Code:
If GetKeyPress (vbKeyMButton) Then
Dim JSER As Long
Dim JSER1 As Long
Dim JSER2 As Single
Call ReadALong("WarRock", &HAddress, JSER)
JSER1 = JSER + &HOffset
JSER2 = Text1.Text (Or a value.)
Call WriteAFloat("WarRock", JSER1, JSER2)
Note: If you hold the middle mouse button you will stay in the air which is like Sky Stormer.
NFD (No Fall Damage):
Code:
Dim NFD As Long
Dim NFD1 As Long
Call ReadALong("Warrock", &HAddress, NFD)
NFD1 = NFD + &HOffset
Call WriteAFloat("Warrock", NFD1, -2000)
You will need 2 timers (1 timer for On and another for Off.)
Both timers intervals should be 1 and both enabled true.
Now for the On kotkey:
Code:
If GetKeyPress (vbKeyControl) And GetKeyPress (vbKeyN) Then
Timer?.Enabled = True (? = Whatever the timer number is with your NFD code.)
And for Off:
Code:
If GetKeyPress (vbKeyControl) And GetKeyPress (vbKeyM) Then
Timer?.Enabled = False
Dim NFD As Long
Dim NFD1 As Long
Call ReadALong("Warrock", &HAddress, NFD)
NFD1 = NFD + &HOffset
Call WriteAFloat("Warrock", NFD1, 0)
Weapons:
Code:
Dim Shotgun1 As Long
Dim Shotgun2 As Long
Call ReadALong("Warrock", &HAddress, NFD)
Shotgun2 = Shotgun1 + &HOffset
Call WriteAFloat("Warrock", Shotgun2, Value)
I imagine that this code is in a button so this one can be really simple:
Code:
If GetKeyPress (vbKeyControl) And GetKeyPress (vbKeyA) Then Command?_Click (? = Whatever the Command button number is with your Weapons code.
Last but not least Swim:
Code:
Dim SSwim1 As Long
Dim SSwim2 As Long
Call ReadALong("Warrock", &HAddress, NFD)
SSwim2 = SSwim1 + &HOffset
Call WriteAFloat("Warrock", SSwim2, 4)
Setting hotkeys to Swim is the same as NFD.
+rep me if this tutorial was helpful/useful to you.
Credits: wr194t (AKA 5c0tt.)