Public Function OnChangeWeapon(iPlayerID As Long, oldWeapon As Long, newWeapon As Long)
SendChat "Player: " & players(iPlayerID).Name & " changed weapon from " & GetWeaponName(oldWeapon) & "[" & oldWeapon & "] to " & GetWeaponName(newWeapon) & "[" & newWeapon & "]" & " - current slot: " & players(iPlayerID).CurrentSlot
End Function
Public Function GetWeaponName(WeaponID As Long) As String
    Select Case WeaponID
        Case 0
            GetWeaponName = "Punch/Kick"
        Case 4
            GetWeaponName = "Nightstick"
        Case 17
            GetWeaponName = "Colt 45"
        Case 19
            GetWeaponName = "Shotgun"
        Case 21
            GetWeaponName = "Stubby Shotgun"
        Case 6
            GetWeaponName = "Baseball Bat"
        Case Else
            GetWeaponName = CStr(WeaponID)
    End Select
End Function
Public Function GetSkin(SkinID As Long) As String
    Select Case SkinID
        Case 0
            GetSkin = "Unknown"
        Case vbNull
            GetSkin = "Not yet set"
        Case 10
            GetSkin = "Cop"
        Case 11
            GetSkin = "Cop"
        Case 12
            GetSkin = "Cop"
        Case 20
            GetSkin = "Robber"
        Case 21
            GetSkin = "Robber"
        Case 22
            GetSkin = "Robber"
        Case Else
            GetSkin = "I don't know yet"
    End Select
End Function