Again Problem With Vb6 Swim Code

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

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:

Code:

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

Code:

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

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

Code:

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

and 2 buttons, to turn on and off

the ''turn-on''

Code:

Timer2.Interval = 1

and the ''turn-off''

Code:

Timer2.Interval = 1

Nice, Thanks

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.

Again Problem With Vb6 Swim Code

Similar Threads

Tags for this Thread