Again Problem With Vb6 Swim Code
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
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!
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
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)
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
and 2 buttons, to turn on and off
the ''turn-on''
and the ''turn-off''
but.. i cant get stamina to work anymore...
i have got 1 timer with
Code:
Call WriteALong("WarRock", &H7D9120, 1120403456)
the ''turn-on''
Code:
Timer2.Interval = 1
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
thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks thanks 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
Yea, one thanks is enough
Ok
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
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
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.
This thread is closed for replies.
