No spread/recoil
can some1 write the code of how to get all of the no spread/recoil addresses into one command box on vb6???
No spread/recoil
lol can you send me your private version
it doesnt have any of the hacks u wanted they are still basic hacks but i just put more things like scope crosshairs 5th slot uhhh and some others
does 5th slot actually work? and what others? lol
Private Sub Timer8_Timer()
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
End Sub
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
End Sub
Originally Posted by ZeaS
Private Sub Timer8_Timer()
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
End Sub
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
Call WriteALong("WarRock", &Hadress, 0)
End Sub
can u post ur trainer when u add no recoil/no spread please
Originally Posted by daemen14
can u post ur trainer when u add no recoil/no spread please
Also for people who are new to VB6. You have to do this:
Make a Command Button.
In it put:
Timer1.Interval = 1
Then make a timer. It should say Timer1(If not change the one above to TimerX,the x represents the number of timer it is.)In Timer one put this:
Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H943A50, 0)
Call WriteALong("WarRock", &H943A51, 0)
Call WriteALong("WarRock", &H943A52, 0)
Call WriteALong("WarRock", &H943A53, 0)
Call WriteALong("WarRock", &H943A54, 0)
Call WriteALong("WarRock", &H943A55, 0)
Call WriteALong("WarRock", &H943A56, 0)
Call WriteALong("WarRock", &H943A57, 0)
Call WriteALong("WarRock", &H943A58, 0)
Call WriteALong("WarRock", &H943A59, 0)
End Sub
Make a Command Button.
In it put:
Timer1.Interval = 1
Then make a timer. It should say Timer1(If not change the one above to TimerX,the x represents the number of timer it is.)In Timer one put this:
Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H943A50, 0)
Call WriteALong("WarRock", &H943A51, 0)
Call WriteALong("WarRock", &H943A52, 0)
Call WriteALong("WarRock", &H943A53, 0)
Call WriteALong("WarRock", &H943A54, 0)
Call WriteALong("WarRock", &H943A55, 0)
Call WriteALong("WarRock", &H943A56, 0)
Call WriteALong("WarRock", &H943A57, 0)
Call WriteALong("WarRock", &H943A58, 0)
Call WriteALong("WarRock", &H943A59, 0)
End Sub
no thats wrong
it should be
with the writealongs in the timer and the timer interval should be at 100
it should be
Code:
Private Sub Command1_Click() If Timer1.Enabled=True Then Timer1.Enabled=False Else Timer1.Enabled=True End Sub
I don't know. It works for me.
This thread is closed for replies.
