VB6 STAMINA CODE
PLEASE TELL WAT IS WRONG WITH MY CODE THX!
ARE U SUPPOSED TO REPLACE STAN AND STAN1 WITH ANYTHING?Code:Private Sub Timer1_Timer() If GKT12T2(vbKeyShift) Then Dim STAN As Long Dim STAN1 As Long Call DKJVUAOPVU38VMMFU1("WarRock", &H13680D8, STAN) STAN1 = STAN + &H288 Call FKJNVUJA948FCMMVJD8("WarRock", STAN1, 100) End If End Sub
Last edited by ilovepie21; 03-03-2008 at 05:33 PM.
according to people who tested for me it dont do anything
EDIT: I just tested my self and it doesnt do anything
Last edited by ilovepie21; 03-03-2008 at 05:30 PM.
Call FKJNVUJA948FCMMVJD8("WarRock", STAN1, 100)
Shouldn't that be a higher value?
Try this :
Code:Private Sub Timer1_Timer() If GKT12T2(vbKeyShift) Then Dim Write as float Dim STAN As Long Dim STAN1 As Long Call DKJVUAOPVU38VMMFU1("WarRock", &H13680D8, STAN) STAN1 = STAN + &H288 Call FKJNVUJA948FCMMVJD8("WarRock", STAN1, Write) End If End Sub
There are two types of tragedies in life. One is not getting what you want, the other is getting it.
If you wake up at a different time in a different place, could you wake up as a different person?
There are two types of tragedies in life. One is not getting what you want, the other is getting it.
If you wake up at a different time in a different place, could you wake up as a different person?
Oh lol, duh, I didn't define it. This works :
Private Sub Timer1_Timer()
If GKT12T2(vbKeyShift) Then
Dim Write as float
Write = 100
Dim STAN As Long
Dim STAN1 As Long
Call DKJVUAOPVU38VMMFU1("WarRock", &H13680D8, STAN)
STAN1 = STAN + &H288
Call FKJNVUJA948FCMMVJD8("WarRock", STAN1, Write)
End If
End Sub
There are two types of tragedies in life. One is not getting what you want, the other is getting it.
If you wake up at a different time in a different place, could you wake up as a different person?
Try :
Dim Write as float = 100
There are two types of tragedies in life. One is not getting what you want, the other is getting it.
If you wake up at a different time in a different place, could you wake up as a different person?
What the heck?
Unlimited Stamina:
Dim UStaminaA As Long
Dim UStaminaB As Long
Call ReadALong("WarRock", &HPOINTER, UStaminaA)
UStaminaB = UStaminaA + &HOFFSET
Call WriteAFloat("WarRock", UStaminaB, VALUE)
Or Use:
Call WriteALong("WarRock", UStaminaB, VALUE)
'Depending on if you use WriteALong or WriteAFloat the Vaue will be different.
'WriteALong = 1120403456
'WriteAFloat = 100
Thats mine...Thank me...