Weapon hack damage

when im using bv6 i tipe in :

Private Sub Command8_Click()
Dim Weapon As Long
Dim Weapon1 As Long
Call ReadALong("Warrock", &H896E28, Weapon)
Weapon1 = Weapon + &H4C
Call WriteALong("Warrock", Weapon1, 25)
End Sub

as result i get a PSG Sniper that DOES NOT do any Damage...
pls help me maybe then i can release a trainer with weapon hack in it!!

because psg is server-sided?

what is server-sided