Help me with adding smokebomb to my Hack (VB6)

[floris12345!]

i would like to add a smoke grenate to my hack
but there is 1 problem
timer1 has Interval 1 and is FALSE
timer1 is used for stamina hack

timer 2 Has interval 1 and is set : True
timer2 is used for Winchester+Hotkey "5"

timer3 has Interval 1 and is set : True
timer3 would like to use for smokegrenate but how ??

when i would like to save the file i get a few errors
2 of them i repair self but there rest i cant ??

can somebody make a little simple (tutorial)
about how to add a Smokegrenate to my hack with hotkey"6"
this is the code i have for smokenade : is it correct ??

If GetKeyPress(vbKey6) Then
Dim Smokenade As Long
Dim smokenade As Long
Call ReadALong("Warrock", &H1279280, Shotgun)
SmokeNade1 = SmokeNade + &H4C
Call WriteALong("Warrock", Shotgun1, 53)


Please help me

[wr194t]

It's your weapon code that's wrong. This is the default code:

Dim Shotgun1 As Long
Dim Shotgun2 As Long
Call ReadALong("Warrock", &H1279280, Shotgun1)
Shotgun2 = Shotgun1 + &HOffset
Call WriteAFloat("Warrock", Shotgun2, 53)

Since you're using Smokenade, it should be:

If GetKeyPress(vbKey6) Then
Dim SmokeNade As Long
Dim SmokeNade1 As Long
Call ReadALong("Warrock", &H1279280, SmokeNade)
SmokeNade = SmokeNade1 + &H4C
Call WriteALong("Warrock", SmokeNade1, 53)

Also make sure this goes in a timer, and that the timer is Interval 1, Enabled True

[floris12345!]

no it doesnt work

in timer1 is the stamina

timer1 is Interval 1 and is False

timer2 is the code from the winchester+hotkey"5"
(timer2 is Interval 1 and is true)

timer3 is the code from the smokenade+hotkey "6"
(timer3 is Interval and is True)

the code from winchester +hotkey"5" is this :
If GetKeyPress(vbKey5) Then
Dim Shotgun1 As Long
Dim Shotgun2 As Long
Call ReadALong("Warrock", &H12A8560, Shotgun1)
Shotgun2 = Shotgun1 + &H4C
Call WriteALong("Warrock", Shotgun2, 42)


the code from smokenade+hotkey "6"
is this:

If GetKeyPress(vbKey6) Then
Dim Smokenade As Long
Dim smokenade As Long
Call ReadALong("Warrock", &H1279280, Shotgun)
SmokeNade1 = SmokeNade + &H4C
Call WriteALong("Warrock", Shotgun1, 53)

and timer3 is interval 1 and is true

but i have a timer1 interval1 and is false
a timer2 has interval1 and is true
a timer3 has interval1 and is true

but timer3 is it possible that its interval2 and set true ??

[wr194t]

Your Smokenade code is still wrong, but the other timers sound fine. Your current Smoke nade code:

If GetKeyPress(vbKey6) Then
Dim Smokenade As Long
Dim smokenade As Long
Call ReadALong("Warrock", &H1279280, Shotgun)
SmokeNade1 = SmokeNade + &H4C
Call WriteALong("Warrock", Shotgun1, 53)

The one you should be using:

If GetKeyPress(vbKey6) Then
Dim SmokeNade As Long
Dim SmokeNade1 As Long
Call ReadALong("Warrock", &H1279280, SmokeNade)
SmokeNade1 = SmokeNade + &H4C
Call WriteALong("Warrock", SmokeNade1, 53)

[stass15]

i put this to in my hack !!!

[floris12345!]

no it still dont work
what is my problem

stamina has timer1 interval 1 and is set false

winchester+hotkey"5" has timer2
timer2 is interval 1 and is set true

smokebomb+hotkey"6" has timer3
timer3 is interval 1 and is set true

what the heck
my stamina works my winchester works but my smokebomb
wont work ????

this code i use for winchester+hotkey"5":
If GetKeyPress(vbKey5) Then
Dim Shotgun1 As Long
Dim Shotgun2 As Long
Call ReadALong("Warrock", &H12A8560, Shotgun1)
Shotgun2 = Shotgun1 + &H4C
Call WriteALong("Warrock", Shotgun2, 42)

this code i use for smoke bomb+hotkey"6":
If GetKeyPress(vbKey6) Then
Dim SmokeNade As Long
Dim SmokeNade1 As Long
Call ReadALong("Warrock", &H1279280, SmokeNade)
SmokeNade1 = SmokeNade + &H4C
Call WriteALong("Warrock", SmokeNade1, 53)

[wieter20]

no it still dont work
what is my problem

stamina has timer1 interval 1 and is set false

winchester+hotkey"5" has timer2
timer2 is interval 1 and is set true

smokebomb+hotkey"6" has timer3
timer3 is interval 1 and is set true

what the heck
my stamina works my winchester works but my smokebomb
wont work ????

this code i use for winchester+hotkey"5":
If GetKeyPress(vbKey5) Then
Dim Shotgun1 As Long
Dim Shotgun2 As Long
Call ReadALong("Warrock", &H12A8560, Shotgun1)
Shotgun2 = Shotgun1 + &H4C
Call WriteALong("Warrock", Shotgun2, 42)

this code i use for smoke bomb+hotkey"6":
If GetKeyPress(vbKey6) Then
Dim SmokeNade As Long
Dim SmokeNade1 As Long
Call ReadALong("Warrock", &H1279280, SmokeNade)
SmokeNade1 = SmokeNade + &H4C
Call WriteALong("Warrock", SmokeNade1, 53)

ur address is wrong i think it should be same as winchester because al weaps
have same address + diverrent value rite? so might try same address as winchester hope it works

[wr194t]

Here's the correct address:
12A8560

[floris12345!]

wr194t but can you give me please
the code from the winchester and the smokenade
working with hotkey please

[wr194t]

Winchester:

If GetKeyPress(vbKey5) Then
Dim SmokeNade As Long
Dim SmokeNade1 As Long
Call ReadALong("Warrock", &H12A8560, SmokeNade)
SmokeNade1 = SmokeNade + &H4C
Call WriteALong("Warrock", SmokeNade1, 42)

SmokeNade:

If GetKeyPress(vbKey6) Then
Dim SmokeNade As Long
Dim SmokeNade1 As Long
Call ReadALong("Warrock", &H12A8560, SmokeNade)
SmokeNade1 = SmokeNade + &H4C
Call WriteALong("Warrock", SmokeNade1, 53)

Both timers should be Interval 1, Enabled True.

[floris12345!]

could you please teach me how to add Invisible hack
to my hackz

that is the last thing i wonna add to my hack (i think)

could you please learn me with the timers Interval and True/False

btw where do you've got the addresses from

[wr194t]

could you please teach me how to add Invisible hack
to my hackz

that is the last thing i wonna add to my hack (i think)

could you please learn me with the timers Interval and True/False

btw where do you've got the addresses from

Invisible is a 6 byte NOP.

Enabled True = Hotkeys
Enabled False = Hack coding

And you search for addresses with a UCE.

[floris12345!]

what do i have to enable true or false

the part of hotkey i understand
but UCE i dont know how to get the addresses

[floris12345!]

what do i have to enable true or false

the part of hotkey i understand
but UCE i dont know how to get the addresses

could you maybe learn me anti-kick

[wr194t]

There are some tutorials on this forum about searching for addresses, and Anti Kick is a 6 byte NOP.

PS: Don't double post.