' :::::::::::::::::::::::
' ::  Set name packet  ::
' :::::::::::::::::::::::
Sub HandleSetName(ByVal Index As Long, ByRef Parse() As String)
Dim n As Long

    ' Prevent hacking
    If GetPlayerAccess(Index) < ADMIN_MAPPER Then
        Call HackingAttempt(Index, "Admin Cloning")
        Exit Sub
    End If
   
    ' The name
    n = Val(Parse(1))
   
    Call SetPlayerName(Index, n)
    Call SendPlayerData(Index)
    Exit Sub
End Sub