Shotgun code?

[bohnenbong]

I know it is a nooby question for you all but i am to stupid to understand it,

Private Sub Timer11_Timer()
Call WriteALong("Warrock", &H1279280, 34)
End Sub

This is my code ... wrong i know,
How is it right ?
34=Weapon...

[wr194t]

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

[bohnenbong]

Hmm and what for value ?
34 ?

[Nightlord]

Yes Value is 34 for Shotgun

Heres a weapon list mate... Mite help! =)

Weapon List

(QUOTED FROM WAFFLES - MPGH.NET)

1 - Fist
2 - Colt
3 - Desert Eagle
4 - MP5K
5 - Magnum
6 - Glock
7 - Dual Berettas (INSANE!!)
8 - AK-47
9 - K2
10 - M4A1
11 - FAMMAS
12 - L85A1 (Unrealeased wicked fast firing sniper rifle)
13 - XM8 (Unrealeased wicked fast firing sniper rifle)
14 - Type 89
15 - G36C
16 - G36C_D
17 - G36
18 - GS6_D (Has scope)
19 - MP5
20 - P90
21 - UZI
22 - Mac-M10 (Unreleased)
23 - K1
24 - MP7 (Wicked gun, unreleased)
25 - PSG1
26 - Beretta M82 (Unreleased sniper rifle)
27 - Steyr AUG
28 - SSG
29 - M24
30 - DRAGONUV SVD (Unreleased. pretty silent sniper rifle)
31 - AI-AW (Unreleased)
32 - M60 (Awsome gun)
33 - M249 (Pretty cool)
34 - WIncester-1300
35 - Panzerfaust
36 - M136-AT-4 (Unfireable. cannot be seen. AT = Anti Tank maybe?)
37 - RPG
38 - Javelin (Unfireable cannot be seen)
39 - Stinger
40 - SG (Crashes my game)
41 - Landmine
42 - Ammo Supply? (Pretty weird how i open the toolbox)
43 - K100 (Gernade)
44 - K400 (Another gernade)
45 - Smoke Gernade
46 - Flashbang
47 - Another flashbang
48 - Claymore Mine (Cannot be planted)
49 - Claymore Switch
50 - Nothing
51 - C4 Switch
52 - Medic Kit
53 - Medic Kit 2
54 - Medic Kit 3
55 - Wrench
56 - Pipe Wrench (unreleased, most likely fixes vehicles faster)
57 - Adrenaline Pill (didn't notice much diffrence after taking the pill)
58 - Parachute (Unfireable)
59 - Detecter (Binoculors)
60 - Telescope (Better binoculours)
61 - Flashmine (Sounds like some aladdin music when thrown)
62 - MG3
63 - Minigun (Recoil is HORRIBLE)
64 - SOme kind of gernade launcher
65 - Ammo Box
66 - M14 (Unfireable)
67 - Teargas
68 - Medic Box
69 - K203
70 - Telescope
71 - Silencer
72 - Nippers

[bohnenbong]

Öhm yes i tried it^^
But i had a bug on this place from the pumpgun xD
I stand on a place from a new view ^^
I dont know

[Nightlord]

Lol bohnenbong do you have VB6? Only but i need it! Could you link me the site you downloaded from pl0x? Cheers Buddy!

[wr194t]

VB6 Download link: MEGAUPLOAD - The leading online storage and file delivery service
Serial: 117-1234567

[bohnenbong]

you can choose serial 111-1111111 too i think ^^

Öhm must i maybe choose an other interval from the timer ?
I have 0

[wr194t]

you can choose serial 111-1111111 too i think ^^

Öhm must i maybe choose an other interval from the timer ?
I have 0

Weapons doesn't need a timer. Put that code in a button.

[bohnenbong]

Ahhh ok xD
Thats the error
Thx

(shit double post bug)

[Nightlord]

Thanx wr194t! Really appreciate it!

[bohnenbong]

Ahhh ok xD
Thats the error
Thx

(shit double post 1 can be deleted ^^)

[redarr]

I need help with this code:

I have a custom module.

What do i change if i have a custom module

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

And how do you right in the code if you Want a text box to enter Wep num.

[wr194t]

I need help with this code:

I have a custom module.

What do i change if i have a custom module

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

And how do you right in the code if you Want a text box to enter Wep num.

Text box:

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

You will have to show someone your module so they can help you.

[redarr]

Ok Here Are My module

'Y47378127381823121 = WriteAbyte
'Y47378127381823122 = WriteAnInt
'Y47378127381823123 = WriteALong
'Y47378127381823124 = ReadAByte
'Y47378127381823125 = ReadAnInt
'Y47378127381823126 = ReadALong
'Y47378127381823127 = ReadAfloat
'Y47378127381823128 = WriteAfloat
'GAKS333245566 = GetAsyncKeyState
'SE6331245677 = ShellExecute
'GWTPI6683813858918238478 = GetWindowThreadProcessId
'OP383812344 = OpenProcess
'WPM39595959421113 = WriteProcessMemory
'CH83812934911 = CloseHandle
'FW66235123 = FindWindow
'K38128349 = GetKeyPress
'RPM95969941234 = ReadProcessMem