Help with superjump and any weapon

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

hmm i dont see any problems there...

This is how i got my superjump to work:

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

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