[HELP] I NEED HELP WITH STAMINA CODE

VB6 STAMINA CODE
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

ARE U SUPPOSED TO REPLACE STAN AND STAN1 WITH ANYTHING?

Originally Posted by ilovepie21

VB6 STAMINA CODE
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

ARE U SUPPOSED TO REPLACE STAM AND STAM1 WITH ANYTHING?

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

according to people who tested for me it dont 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?

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?

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

Originally Posted by mingling

i think u hav to replace stan and stan1

i guess?

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

Compile Error:
Expected: Identifier

Originally Posted by ilovepie21

Compile Error:
Expected: Identifier

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

Originally Posted by jetamay

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

Still get same error

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

Originally Posted by jetamay

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

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

Try :
Dim Write as float = 100

Originally Posted by jetamay

Try :
Dim Write as float = 100

still need identifier lol

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

[HELP] I NEED HELP WITH STAMINA CODE

Post a Reply

Similar Threads

Tags for this Thread