Help me with adding smokebomb to my Hack (VB6)

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

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

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:

Code:

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

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

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

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:

Code:

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)

Nice

i put this to in my hack !!!

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)

Originally Posted by floris12345!

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

Here's the correct address:
12A8560

request

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

Winchester:

Code:

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:

Code:

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.

Request Invisible

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

Originally Posted by 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

Invisible is a 6 byte NOP.

Enabled True = Hotkeys
Enabled False = Hack coding

And you search for addresses with a UCE.

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

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

PS: Don't double post.

Help me with adding smokebomb to my Hack (VB6)

Post a Reply

Similar Threads

Tags for this Thread