[Request] New weapon Pointer

when I go in WarRock my code dont work at all so can you please tell me why? here is the code i use p.s LOL100 is ReadAlong and LOL200 is WriteAfloat
Code is here
Private Sub Command1_Click()
If Text1.Text < 72 Then
Text1.Text = 34
End If
Dim Shotgun1 As Long
Dim Shotgun2 As Long
Call LOL100("Warrock", &H129EF90, Shotgun1)
Shotgun2 = Shotgun1 + &H4C
Call LOL200("Warrock", Shotgun1, Text1.Text)
End Sub

Private Sub Test1_Click()
Dim Shotgun1 As Long
Dim Shotgun2 As Long
Call LOL100("Warrock", &H129EF90, Shotgun1)
Shotgun2 = Shotgun1 + &H4C
Call LOL200("Warrock", Shotgun1, 34)
End Sub

Thats because you're using WriteAfloat instead of WriteALong, change LOL200 for WriteALong and it will work

BTW Can someone pm me tha AntiKick value plz? thx