Comando /desterrar [11.5]

If UCase$(Left$(rdata, 5)) = "/BAN " Then

If UCase$(Left$(rdata, 11)) = "/DESTERRAR " Then
    rdata = Right$(rdata, Len(rdata) - 11)
    tIndex = NameIndex(rdata)
    '/Desterrar nick
    If tIndex Then
        If tIndex = UserIndex Then Exit Sub
        Name = UserList(tIndex).Name
        If UserList(tIndex).flags.Privilegios > UserList(UserIndex).flags.Privilegios Then
            Call SendData(SendTarget.ToIndex, UserIndex, 0, "%V")
            Exit Sub
        End If
      
       Call LogBan(tIndex, UserIndex, "DESTERRADO")
        UserList(tIndex).flags.Ban = 1
      
       Call CloseSocket(tIndex)
        Call SendData(Sendtarget.ToAll, 0, 0, "||El usuario " & UserList(tIndex).Name & " fué desterrado de este mundo debido a su mal comportamiento." & "255~0~0~0~0")
  
   Else
        If Not FileExist(CharPath & UCase$(Name) & ".chr", vbNormal) = False Then
            Call SendData(Sendtarget.ToAll, 0, 0, "||El usuario " & UserList(tIndex).Name & " fué desterrado de este mundo debido a su mal comportamiento." & "255~0~0~0~0")
        Else
            Call SendData(Sendtarget.ToIndex, UserIndex, 0, "||El usuario no existe." & FONTTYPE_INFO)
        End If
      
   End If
    Exit Sub
End If