spread / recoil

[ZeaS]

hello, i get a question, how look`s the code in vb6, for the no spread/no Recoil hack??? (with hotkey) please, you don`t must write the adress... please help me^^ and for swim in the air??? i get the adress, too.. but i can`t turn off the... ^^

[Darky]

hello, i get a question, how look`s the code in vb6, for the no spread/no Recoil hack??? (with hotkey) please, you don`t must write the adress... please help me^^ and for swim in the air??? i get the adress, too.. but i can`t turn off the... ^^

Man you'r English is very very bad. I don't understaind anything!

[ZeaS]

lol sorry, i made hacks in vb6, and i wan`t to know, how the code look, that no spread no recoil and swim with hotkey works.. here a example

Private Sub Timer8_Timer()
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeySpace) Then
Dim SJ As Long
Dim SJ1 As Long
Dim SJ2 As Single
Call ReadALong("WarRock", &ADRESS, SJ)
SJ1 = SJ + &HPOINTER
SJ2 = Text1.Text
Call WriteAFloat("WarRock", SJ1, SJ2)

End If
End Sub

this is a working superjump hack, with hotkey, and it works, but how to write the code for no spread / no recoil and for swim in the air?? the adresses i have

and sorry for bad english :P

[123456789987654321]

i dont know for no spriad/no recoil but this is for swim:

Private Sub Timer8_Timer()
Dim swim As Long
Dim swim1 As Long
Dim swim3 As Single

If GetKeyPress(vbKeyNumpad8) Then
Call ReadALong("WarRock", &H896E28, swim)
swim1 = swim + &H54
Call WriteALong("WarRock", swim1, &H4)
End If
If GetKeyPress(vbKeyNumpad9) Then
Call ReadALong("WarRock", &H896E28, swim)
swim1 = swim + &H54
Call WriteALong("WarRock", swim1, &H0)
End If
End Sub

[ZeaS]

ok thank you for swim i try it in few of minutes anybody know`s with no spread no recoil?

[Darky]

i dont know for no spriad/no recoil but this is for swim:

Private Sub Timer8_Timer()
Dim swim As Long
Dim swim1 As Long
Dim swim3 As Single

If GetKeyPress(vbKeyNumpad8) Then
Call ReadALong("WarRock", &H896E28, swim)
swim1 = swim + &H54
Call WriteALong("WarRock", swim1, &H4)
End If
If GetKeyPress(vbKeyNumpad9) Then
Call ReadALong("WarRock", &H896E28, swim)
swim1 = swim + &H54
Call WriteALong("WarRock", swim1, &H0)
End If
End Sub

Dam it i'm too late.

[Inna]

So you were going to post swim too terminator O.o?

[ZeaS]

nobody know's the code for no spread/no recoil??

[Darky]

So you were going to post swim too terminator O.o?

of curse. i was searching for it. and sudently you showed up

[MS Word]

bad bad bad!!!

[dezer]

Timer code:

Call WriteALong("WarRock", address, 0)
Call WriteALong("WarRock", address, 0)
Call WriteALong("WarRock", address, 0)
Call WriteALong("WarRock", address, 0)
Call WriteALong("WarRock", address, 0)
Call WriteALong("WarRock", address, 0)
Call WriteALong("WarRock", address, 0)
Call WriteALong("WarRock", address, 0)
Call WriteALong("WarRock", address, 0)
Call WriteALong("WarRock", address, 0)
Call WriteALong("WarRock", address, 0)
Call WriteALong("WarRock", address, 0)

Hotkey code:

if getkeypress(hotkey) and getkeypress(another one) then
timerX.intrval = 1
end if

eot

[ZeaS]

thank you a lot now my trainer are finished