Help with superjump and any weapon

[markfracasso11]

Hi, in my new hack, my superjump and weapon dont work and I was wondering if someone could tell me what i was doing wrong?

Superjump code :
Dim JSER As Long
Dim JSER1 As Long
Dim JSER2 As Single
Call ReadALong("WarRock", &H8B5288, JSER)
JSER1 = JSER + &H180
JSER2 = Text1.Text
Call WriteAFloat("WarRock", JSER1, JSER2)

Any Weapon code:
Dim HTR As Long
Dim HTR1 As Long
Call ReadALong("Warrock", &H8B5288, HTR)
HTR1 = HTR + &H4C
Call WriteALong("Warrock", HTR1, Text2.Text)

Thanks for the help

[shankuhard]

hmm i dont see any problems there...

[wr194t]

This is how i got my superjump to work:

Make a button and use this code:

Private Sub Command?_Click()
Timer?.Enabled = True
End Sub

Now make a timer with an interval of 1, enabled false and put this code in the timer:

Private Sub Timer?_Timer()
Dim JSER As Long
Dim JSER1 As Long
Dim JSER2 As Single
Call ReadALong("WarRock", &H8B5288, JSER)
JSER1 = JSER + &H180
JSER2 = Text1.Text
Call WriteAFloat("WarRock", JSER1, JSER2)
End Sub

The ?'s you use whatever the number's your button and timer are and i think you can use the same method for weapons.

[shankuhard]

ill go test that now never had a superjump in my hack

[markfracasso11]

lol, thanks again wr194t

[shankuhard]

yeah thanks i made a su[erjumper but its detected lol i cant make module undetected

[wr194t]

lol, thanks again wr194t

No problem

[shankuhard]

making a module undetected is confusing theres a tut on it but i cant seem to follow it

[wr194t]

making a module undetected is confusing theres a tut on it but i cant seem to follow it

That tutorial you maybe referring to all you do is find & replace text, that isn't hard to do.

[markfracasso11]

its realy not that hard, you only have to change a couple of strings...

[shankuhard]

it confuses me i dunno maybe cuz i didnt get to much sleep lastnigtht ill review it again tom