[HELP] I NEED HELP WITH STAMINA CODE
[HELP] I NEED HELP WITH STAMINA CODE
VB6 STAMINA CODE
PLEASE TELL WAT IS WRONG WITH MY CODE THX!
ARE U SUPPOSED TO REPLACE STAN AND STAN1 WITH ANYTHING?
PLEASE TELL WAT IS WRONG WITH MY CODE THX!
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
Originally Posted by ilovepie21
VB6 STAMINA CODE
PLEASE TELL WAT IS WRONG WITH MY CODE THX!
ARE U SUPPOSED TO REPLACE STAM AND STAM1 WITH ANYTHING?
PLEASE TELL WAT IS WRONG WITH MY CODE THX!
Code:
Private Sub Timer1_Timer()
If GKT12T2(vbKeyShift) Then
Dim STAM As Long
Dim STAM1 As Long
Call DKJVUAOPVU38VMMFU1("WarRock", &H13680D8, STAM)
STAM1 = STAM + &H288
Call FKJNVUJA948FCMMVJD8("WarRock", STAM1, 100)
End If
End Sub
according to people who tested for me it dont do anything
EDIT: I just tested my self and it doesnt do anything
EDIT: I just tested my self and it doesnt do anything
Call FKJNVUJA948FCMMVJD8("WarRock", STAN1, 100)
Shouldn't that be a higher value?
Shouldn't that be a higher value?
i think u hav to replace stan and stan1
Originally Posted by yup
Call FKJNVUJA948FCMMVJD8("WarRock", STAN1, 100)
Shouldn't that be a higher value?
Shouldn't that be a higher value?
Originally Posted by mingling
i think u hav to replace stan and stan1
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
Originally Posted by jetamay
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
Expected: Identifier
Originally Posted by ilovepie21
Compile Error:
Expected: Identifier
Expected: Identifier
Originally Posted by jetamay
Lol, fuck, what are they called in VB...try replacing float with double =X
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
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
Originally Posted by jetamay
Oh lol, duh, I didn't define it. This works :
Compile Error:
Expected: #
Try :
Dim Write as float = 100
Dim Write as float = 100
Originally Posted by jetamay
Try :
Dim Write as float = 100
Dim Write as float = 100
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...
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...
Similar Threads
- 1Last post
- 0Last post
- 2Last post
- 9Last post
- 0Last post