[HELP] I NEED HELP WITH STAMINA CODE

[ilovepie21]

VB6 STAMINA CODE
PLEASE TELL WAT IS WRONG WITH MY CODE THX!

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

ARE U SUPPOSED TO REPLACE STAN AND STAN1 WITH ANYTHING?

[radnomguywfq3]

VB6 STAMINA CODE
PLEASE TELL WAT IS WRONG WITH MY CODE THX!

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

ARE U SUPPOSED TO REPLACE STAM AND STAM1 WITH ANYTHING?

What happens when you try it? Does it freeze to 0?

[ilovepie21]

according to people who tested for me it dont do anything
EDIT: I just tested my self and it doesnt do anything

[yup]

Call FKJNVUJA948FCMMVJD8("WarRock", STAN1, 100)

Shouldn't that be a higher value?

[mingling]

i think u hav to replace stan and stan1

[ilovepie21]

Call FKJNVUJA948FCMMVJD8("WarRock", STAN1, 100)

Shouldn't that be a higher value?

im not sure probably but either way nothing gets frozen or reset in any way

i think u hav to replace stan and stan1

i guess?

[radnomguywfq3]

Try this :

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

[ilovepie21]

Try this :

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

Compile Error:
Expected: Identifier

[radnomguywfq3]

Compile Error:
Expected: Identifier

Lol, fuck, what are they called in VB...try replacing float with double =X

[ilovepie21]

Lol, fuck, what are they called in VB...try replacing float with double =X

Still get same error

[radnomguywfq3]

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

[ilovepie21]

Oh lol, duh, I didn't define it. This works :

it highlights the = and then says
Compile Error:
Expected: #

[radnomguywfq3]

Try :
Dim Write as float = 100

[ilovepie21]

Try :
Dim Write as float = 100

still need identifier lol

[-TM-]

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...