what is wrong with this ??

This codes i got from wr194t

: 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)

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)

but they dont work anymore in the game ?? why

You're using the same hotkey and values for both hacks, and your address is wrong:

Shotgun:
Smoke Granade:

lol was gonna say im pretty sure u cant use the same hotkey for 2 commands.

err... it's WriteAFloat not WriteALong

Write a float is 4, Write a long is 4. Basically there the same thing. If you programmed in C++ or without your VB module, you would know that this function uses the API Read\WriteProcessmemory as well as its parameters.

Weapons and Swim use Long, not Float, otherwise the hack won't function properly, or the game will crash. NFD and Super Jump/Sky Stormer use Float.