What's wrong with this?
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:
Also, can someone tell me the weapon ID for shotgun, I forgot.
Help pleaseMy code:
Code:
Dim Shotgun1 As Long
Dim Shotgun2 As Long
Call ReadALong("Warrock", &HAddress, Shotgun1 )
Shotgun2 = Shotgun1 + &HOffset
Call WriteAFloat("Warrock", Shotgun2, Value)
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
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
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.
No problem, Glad i helped.
Similar Threads
- 6Last post
- 10Last post
- 15Last post
- 6Last post
- 5Last post