[HELP] working weapon adress

Can somebody post?? couldn't find it

Address: 1279280
Offest: 4C

Code:

Code:

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

I'm not 100% sure if that is correct.

Originally Posted by wr194t

Address: 1279280
Offest: 4C

Code:

Code:

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

I'm not 100% sure if that is correct.

Dosent work most adresses got PAtched.
And shoty is one of them.

Originally Posted by str1k3r21

Dosent work most adresses got PAtched.
And shoty is one of them.

Oh. I was unaware of that.

Originally Posted by wr194t

Oh. I was unaware of that.

Yep me too until I finished my VIP hack and most adresses were Patched and changed...Thats how I found out...

Awnser

here:

Winchester:

Code:

Private Sub Haulikko_Click()
Dim shotgun As Long
Dim shotgun1 As Long
Call ejw4ygrj43rtui37w43534wre3002("Warrock", &H1279280, shotgun)
shotgun1 = shotgun + &H4C
Call ejw4ygrj43rtui37w43534wre3001("Warrock", shotgun1, 34)
End Sub

Smoke Nade:

Code:

Private Sub SN_Click()
Dim SmokeNade As Long
Dim SmokeNade1 As Long
Call ReadALong("Warrock", &H1279280, SmokeNade)
SmokeNade1 = SmokeNade + &H4C
Call WriteALong("Warrock", shotgun1, 45)
End Sub

Flash Bang1:

Code:

Private Sub FB1_Click()
Dim FlashBang1 As Long
Dim FlashBang11 As Long
Call ReadALong("Warrock", &H1279280, FlashBang1)
FlashBang11 = FlashBang1 + &H4C
Call WriteALong("Warrock", shotgun1, 46)
End Sub

Fllash Bang2

Code:

Private Sub FB2_Click()
Dim FlashBang2 As Long
Dim FlashBang21 As Long
Call ReadALong("Warrock", &H1279280, FlashBang2)
FlashBang21 = FlashBang2 + &H4C
Call WriteALong("Warrock", FlashBang21, 47)
End Sub

Any wep:

Code:

Private Sub FB2_Click()
Dim anywep As Long
Dim anywep1 As Long
Call ReadALong("Warrock", &H1279280, anywep)
anywep1 = anywep + &H4C
Call ReadALong("Warrock", anywep1, Text1.text)
End Sub

make a textbox named Text1 and there should u insert a number!

wep values:

Code:

0. M7 (Knife)
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 (similar to Mac 10/Uzi)
25. PSG-1
26. Barrett M82
27. AUG
28. SSG
29. M24
30. Dragunov SVD
31. AI AW
32. M60
33. M249
34. Winchester Shotgun+
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. LMAO Ammo Box
66. M14 Mine
67. Tear Gas 
68. Medic Box
69. K203 
70. Telescope 
71. Silencer 
72. Nippers.

effect has:

Winchester ID:34
SmokeNade ID:45
FlashBang1 ID:46
FlashBang2 ID:47

others are only visual if u understand

ENJOY THERESE

DID U LIKE IT?

Originally Posted by akke1235

DID U LIKE IT?

Do not double post and I told that dude that wepon addie got changed..

[HELP] working weapon adress

Similar Threads

Tags for this Thread