- Wrong addresses
- Hotkey code is in the wrong place, and it's incorrect
- Weapons uses WriteALong, not WriteAFloat
This is the correct code.Code:If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyS) Dim Shotgun1 As Long Dim Shotgun2 As Long Call ReadALong("Warrock", &H1306A70, Shotgun1) Shotgun2 = Shotgun1 + &H4C Call WriteALong("Warrock", Shotgun1, Text1.Text)