Again Problem With Vb6 Swim Code

You don't need to freeze the address, just set it to 4 to swim and 0 to walk again.

You need 2 command buttons -

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

Private Sub Command5_Click()
Timer2.Interval = 0
End Sub

(Interval 1 activates the cheat and Interval 0 deactivates the cheat.)

Next you will need a timer -

Private Sub Timer2_Timer()
Dim Swim As Long
Dim Swim1 As Long
Call ReadALong("Warrock", &H896E28, Swim)
Swim1 = Swim + &H54
Call WriteALong("Warrock", Swim1, 4)
End Sub

That is all you need. I see you had 3 command buttons you only need 2 buttons and 1 timer. Do as I showed you and it will work!


Hope this helps!

man...

you dont need a timer you just make 1 button and write in it:

and to turn it off make another button and write

Nevermind I see what u r saying now LOL

lol i know, that sounds noobish.

but.. i cant get stamina to work anymore...

i have got 1 timer with
and 2 buttons, to turn on and off

the ''turn-on''
and the ''turn-off''

YOU ALL ARE SO HELPFUL!?!?!?!?!!
thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks

jokuvan... one ''thanks'' is enough ... u could have been helping me instead of spamming but nvm..

Lol.




Yea, one thanks is enough

OK SORRY BUT THANKS

Question:
It doesn't unfreeze it even with this code:

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

Private Sub Command5_Click()
Timer2.Interval = 0
End Sub


TIMER-

Private Sub Timer2_Timer()
Dim Swim As Long
Dim Swim1 As Long
Call ReadALong("Warrock", &H896E28, Swim)
Swim1 = Swim + &H54
Call WriteALong("Warrock", Swim1, 4)
End Sub

Yea i just tried and your right it dosent unfreeze. Sorry man i thought it would work.

Basically there's not reason to freeze it, you can just set it. And remember that swim only works in places WITHOUT actual water.

Also here's my tut : http://www.mpgh.net/forum/warrock_in...6_trainer.html

and you cant use call readalong has to be call writealong.then your intervals for your on and off buttons must be interval of 1 for On.interval of 0 for Off.