What's wrong with this?

What is wrong with this shotgun code? My weapons hacks are the only ones I can never get working...

Help please

My code:

Code:

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

Also, can someone tell me the weapon ID for shotgun, I forgot.

Code:

1. Fist
2. Colt
3. Eagle
4. MP5K
5. Magnum
6. Glock
7. Dual Berettas
8. AK 47
9. K2
10. M4A1
11. Famas
12. L85A1 Sniper Rifle
13. XM8
14. Type 89
15. g36C
16. g36c Drummed
17. g36
18. g36 drummed
19. MP5
20. P90
21. Uzi
22. Mac 10
23. K1
24. MP7A1
25. PSG-1
26. Barrett M82
27. AUG
28. SSG
29. M24
30. Dragunov SVD
31. AI AW
32. M60
33. M249
34. Winchester
35. Panzer
36. M136AT
37. RPG
38. Javelin
39. Stinger
40. SG
41. TMA-1A Mine
42. HA_Supply (Mine)
43. K400_Grenade
44. K400
45. Smoke Grenade
46. Flash Bang 1
47. Flash Bang 2
48. Claymore Mine
49. Claymore Switch
50. Empty
51. C4
52. Med Kit
53. Med Kit 2
54. Med Kit 3
55. Spanner
56. Pipe Wrench
57. Adrenaline
58. Parachute
59. Detector
60. Telescope
61. Flash Mine
62. MG3 Machine Gun
63. M134 Minigun
64. MK1S Grenade Launcher
65. Ammo Box
66. M14 Mine
67. Tear Gas
68. Medic Box
69. K203
70. Telescope
71. Silencer
72. Nipper

Code:

Dim Shotgun1 As Long
Dim Shotgun2 As Long
Call ReadALong("WarRock", &HPOINTER, Shotgun1)
Shotgun2 = Shotgun1 + &HOFFSET
Call WriteAFloat```Might be WriteALong```i forgot("WarRock", Shotgun2, value)

Code:

If GetAsyncKeyState(vbKeyF12) Then
        Dim gun1 As Long
        Dim gun2 As Long
        Dim gun3 As Long
        Call ReadALong("WarRock", &HH1373FE0, gun1)
        gun2 = gun1 + &H4C
        gun3 = txtGun.Text
        Call WriteALong("WarRock", gun2, gun3)
    End If

Add that into a Timer... and add a TextBox called... txtGun...

The Hotkey is F12... and put the text in ... the text box... as "42" then on the textbox properties put Locked = True... Then ... they can't change the Number ... So then you can .. go to the TextBox properties and "Hide = True"... Hope i helped.

Originally Posted by CoD4Pro

Code:

If GetAsyncKeyState(vbKeyF12) Then
        Dim gun1 As Long
        Dim gun2 As Long
        Dim gun3 As Long
        Call ReadALong("WarRock", &HH1373FE0, gun1)
        gun2 = gun1 + &H4C
        gun3 = txtGun.Text
        Call WriteALong("WarRock", gun2, gun3)
    End If

Add that into a Timer... and add a TextBox called... txtGun...

The Hotkey is F12... and put the text in ... the text box... as "42" then on the textbox properties put Locked = True... Then ... they can't change the Number ... So then you can .. go to the TextBox properties and "Hide = True"... Hope i helped.

Thanks, that worked.

No problem, Glad i helped.

What's wrong with this?

Similar Threads

Tags for this Thread