spread / recoil

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

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

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

Dam it i'm too late.

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

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

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

bad bad bad!!!

Timer code:
Hotkey code:
eot

thank you a lot now my trainer are finished