How i make other weapons?

Hello i know how i make shotgun but now whant i other weapon hacks.
Can somebody help me?I have codes but if its good
Dim Shotgun As Long
Dim Shotgun1 As Long
Call ReadALong("Warrock", &H1279280, Shotgun)
shotgun1 = Shotgun + &H4C
Call WriteALong("Warrock", Shotgun1, 53)

Or
Dim Smokenade As Long
Dim smokenade As Long
Call ReadALong("Warrock", &H1279280, Shotgun)
SmokeNade1 = SmokeNade + &H4C
Call WriteALong("Warrock", Shotgun1, 53)
It are the old adresses

Dim Smokenade As Long
Dim smokenade As Long
Call ReadALong("Warrock", &H1279280, Shotgun)
SmokeNade1 = SmokeNade + &H4C
Call WriteALong("Warrock", Shotgun1, text1.text)

just add a textbox and add text1.text for tha val and then u can get any of the 82 guns

and u dont have to do

dim smokenade
dim k2sucksmydick
dim mpgh.net

just keep one