wrong offset...
&H179
i tried to add a hotkey to my superjump
but it dont work : ?
If GetKeyPress(vbKeySpace) Then
Dim SJ As Long
Dim SJ1 As Long
Dim SJ2 As Single
Call ReadALong("WarRock", &address, SJ)
SJ1 = SJ + &H180
SJ2 = Text1.Text
Call WriteAFloat("WarRock", SJ1, SJ2)
then i get the error "Sub or Function is not defied"
but i tried it with an old address and it didnt work why ?
wrong offset...
&H179
This needs to be in a Timer with a Interval of about 150 - 300, I usually do 200...
If GetKeyPress(vbKeySpace) Then
Dim SJ As Long
Dim SJ1 As Long
Dim SJ2 As Single
Call ReadALong("WarRock", &H12DF500, SJ)
SJ1 = SJ + &H179
SJ2 = Text1.Text
Call WriteAFloat("WarRock", SJ1, SJ2)
End If
Game updated, offsets and address's changed...
Sub or Function not defined...Something is wrong with your Module I'm guessing, you didn't specify enough.
Last edited by -TM-; 01-19-2008 at 03:01 PM.
My super jump code :
Timer?.interval = 1
If GetKeyPress (vbKeyControl) And GetKeyPress (vbKeySpace) Then
Dim SJ As Long
Dim SJ1 As Long
Dim SJ2 As Single
Call ReadALong("warrock", &H12DF500, SJ)
SJ1 = SJ + &H178
SJ2 = Text1.Text
Call WriteAFloat("warrock", SJ1, SJ2)
End If
And this is working . Tested by me .
i am sorry but i made it right
but when i press space he jumps normal
with Ctrl nothing happens
and when i press space+Ctrl it works sometimes