Again Problem With Vb6 Swim Code

[jokuvaan11]

WHAT I HAVE TO DO?? I can't unfreeze this SWIM CODE
IS THIS RIGHT:

THIS IS FREEZE button:

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

And this unfreeze:

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

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


AND TIMER 2 IS:

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

[scooby107]

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

[nbr1dan]

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!

[MS Word]

man...

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

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

and to turn it off make another button and write

Dim Swim1 As Long
Call ReadALong("Warrock", &H896E28, Swim)
Swim1 = Swim + &H54
Call WriteALong("Warrock", Swim1, 0)

[nbr1dan]

Nevermind I see what u r saying now LOL

[MS Word]

lol i know, that sounds noobish.

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

i have got 1 timer with

Call WriteALong("WarRock", &H7D9120, 1120403456)

and 2 buttons, to turn on and off

the ''turn-on''

Timer2.Interval = 1

and the ''turn-off''

Timer2.Interval = 1

[jokuvaan11]

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

[MS Word]

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

[iHack]

Lol.




Yea, one thanks is enough

[jokuvaan11]

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

[nbr1dan]

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

[mains3rv3r]

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 : https://www.mpgh.net/forum/warrock_in...6_trainer.html

[cjg333]

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.