Stamina doesnt work!

[ltkort213]

Hey guys,

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

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:

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

[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 ?

[ltkort213]

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

[Trixiez]

Try

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~

[ltkort213]

Try

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:

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

[Trixiez]

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~

[Grannyp0rn]

i Activate them by clicking them i guess ?

[ltkort213]

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~

so it look like this:

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

[Trixiez]

Yes.

~TriX~

[jokuvaan11]

so it look like this:

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!!!

[ltkort213]

ok thnx do you want it?

[Trixiez]

No Thnx - I think I might have it already

~TriX~

[Grannyp0rn]

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

[Trixiez]

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

~TriX~