What did I do wrong???

[ltkort213]

Hey people,

i made a hack with superjump, but it doesnt work!!
I dont know what i did wrong! can you guys tell me?

this is my code:

Private Sub Command10_Click()
Timer2.Interval = 1
End Sub

Private Sub Command11_Click()
Timer1.Interval = 0
End Sub

Private Sub timer2_timer()
Dim Swim As Long
Dim Swim1 As Long
Call ReadALong("Warrock", &H896E28, Swim)
Swim1 = Swim + &H180
Call WriteALong("Warrock", Swim1, 2500)
End Sub

Thnx!
ive you give me the working code, you get a hack pack and a bypass!

LTKort213