[Tutorial] How to set hotkeys to more advanced hacks.

[wr194t]

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:

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:

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):

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:

If GetKeyPress (vbKeyControl) And GetKeyPress (vbKeyN) Then
Timer?.Enabled = True (? = Whatever the timer number is with your NFD code.)

And for Off:

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:

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:

If GetKeyPress (vbKeyControl) And GetKeyPress (vbKeyA) Then Command?_Click (? = Whatever the Command button number is with your Weapons code.

Last but not least Swim:

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.)

[olie122333]

lol i still cant give you a rep as apparently i "need to share them round" (message given by the forum software)

[wr194t]

It's alright. That message just means that you need to +rep other people before you can +rep me again.

[Feniks]

What i must to add for command button on super jump
I added the code for timer
And command button is empty

[wr194t]

What i must to add for command button on super jump
I added the code for timer
And command button is empty

Your command button should be like this:

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)

And your hotkey timer should be like this:

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)
End If

[Feniks]

When i played on Marien I clicked on command button of super-jump i felt to underground and hotkey doesnt work

[wr194t]

When i played on Marien I clicked on command button of super-jump i felt to underground and hotkey doesnt work

What did you set the value as? Post your code.

[Feniks]

Command Button:

Private Sub Command1_Click()
Dim JSER As Long
Dim JSER1 As Long
Dim JSER2 As Single
Call readalong(&H129EF90, JSER)
JSER1 = JSER + &H178
JSER2 = Text1.Text
Call writeafloat(JSER1, 2000)
End Sub

Timer (Enabled - False, Interval - 1)

Private Sub Timer1_Timer()
If GetKeyPress(vbKeyMButton) Then
Dim JSER As Long
Dim JSER1 As Long
Dim JSER2 As Single
Call readalong(&H129EF90, JSER)
JSER1 = JSER + &H178
JSER2 = Text1.Text
Call writeafloat(JSER1, 2000)
End If
End Sub

Text1.textbox

2000

[wr194t]

That all seems correct. It could be the address or offset, I'm not too sure.

[Feniks]

Hotkey doesnt working! Because when i clicked on command button i am jumped!! How i can fix this problem?

[wr194t]

Hotkey doesnt working! Because when i clicked on command button i am jumped!! How i can fix this problem?

Have you tried this for the hotkey:

If GetKeyPress(vbKeyMButton) Then Command1_Click

[martinleemet]

why hacks dount work in me computer

[Hispiforce]

Because your a choob that bumps threads.

[Sp4rt4n]

thread bumper.....just stfu and leave