that 1 line code is wrong and besides the weapons are readalongs and writealongs nor writefloats
Dim Shotgun1 As Long
Dim Shotgun2 As Long
Call ReadALong("WarRock", &Hplayerpointer, Shotgun1)
Shotgun2 = Shotgun1 + &H4C
Call WriteALong("WarRock", Shotgun2, putwepvaluehere)