No stamina

Hi,

I have made a unlimited stamina hack but it doesn't works.... Can anybody give me the code? at the moment i do call warrock en then playerpointer and offset but it doesn't works.. :S is it with dim a long?

thnx for help

look the offfest is 28c the player pointer is 1376360
this is my tutorial for you:
Step 1:
Make 2 CommandButtons and 1 Timer. Caption The CommandButtons: Unlimited Stamina On and the other one: Unlimited Stamina Off.

Step 2:
Double click on your "Unlimited Stamina On" Button and copy this and past it in the button:

Private Sub Command1_Click()
Timer1.Interval = 1
Timer1.Enabled = True
End Sub

Now double click on your "Unlimited Stamina Off" button and copy this and past it in the button:

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Step 3:
Brilliant! You just made 2 buttons with commands in it but they still don't do anything.
So thats why we are going to put something in the Timer. Put this in your timer:

Private Sub Timer1_Timer()
Dim STAN As Long
Dim STAN1 As Long
Call ReadALong("WarRock", &H1376360, STAN)
STAN1 = STAN + &H28c
Call WriteALong("WarRock", STAN1, 1120403456)
End Sub