Stamina doesnt work!

Hey guys,

i made a hack but it doesnt work what did i wrong this are my codes:

Code:

Private Sub Command1_Click()
Dim Value1 As Long
Call ReadALong("WarRock", &H7DB120, Value1)
Text1.Text = Value1
End Sub

Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H7DB120, 1120403456)
End Sub

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

Private Sub Timer3_Timer()
Timer1.Interval = 1
End Sub

and i made a text box, i did everything that i need to do
i did it from this thread:

http://www.mpgh.net/forum/tutorials/...6_trainer.html

Same i just done that tut and the stamina hack dont work we may be using the wrong Code For the hack changed in the update ?

Originally Posted by Grannyp0rn

Same i just done that tut and the stamina hack dont work we may be using the wrong Code For the hack changed in the update ?

no cause someone made also a stamina hack with the same codes

Try

Code:

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

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

Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H7DB120, 1120403456)
End Sub

That should work. Dont just take the code & use it. Read it & learn/understand it.

~TriX~

Originally Posted by Trixiez

Try

Code:

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

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

Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H7DB120, 1120403456)
End Sub

That should work. Dont just take the code & use it. Read it & learn/understand it.

~TriX~

so it need to look like this:

Code:

Private Sub Command1_Click()
Dim Value1 As Long
Call ReadALong("WarRock", &H7DB120, Value1)
Text1.Text = Value1
End Sub

Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H7DB120, 1120403456)
Private Sub Command1_Click()
Timer1.Interval = 1
End Sub

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

Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H7DB120, 1120403456)
End Sub

probaly not, but say how it need to look. because i dont know it!

srry for bad english

Your code is very wrong. The code I gave you is excatly how stamina hack should look like.

Personaly I think you need to find a similar site in your language as you will get confussed here. You cant read English well & learning a new code isn't easy either.

I wont stop you from trying & good luck.

~TriX~

i Activate them by clicking them i guess ?

Originally Posted by Trixiez

so it look like this:

Code:

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

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

Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H7DB120, 1120403456)
End Sub

Yes.

~TriX~

GooD

Originally Posted by ltkort213

so it look like this:

Code:

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

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

Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H7DB120, 1120403456)
End Sub

I think that is right!!!

ok thnx do you want it?

No Thnx - I think I might have it already

~TriX~

mine came out like this when trying It ?

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

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

Private Sub Timer1_Timer() -- said this one was wrong sub or function wrong

Call WriteALong("WarRock", &H7DB120, 1120403456)
End Sub

Make sure you read TheRedEye tutorial & use his module. I wont give you everything as you need to learn.

~TriX~

Stamina doesnt work!

Similar Threads

Tags for this Thread