ÍndiceCalendarioFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarse
Mundos Unidos
Banner Invierno Ultimas Noticias

Comparte | 
 

 Comando /desterrar [11.5]

Ir abajo 
AutorMensaje
Sativa
[Usuario Mundos Unidos]
[Usuario Mundos Unidos]
avatar

Mensajes : 10
Temas : 4
Agradeceres : 0
Fecha de inscripción : 30/07/2013
Localización : Visual Basic

MensajeTema: Comando /desterrar [11.5]   Mar Jul 30, 2013 5:07 pm

Empezamos, servidor:

Buscamos:
Código:
If UCase$(Left$(rdata, 5)) = "/BAN " Then

Arriba ponemos:
Código:
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

Función: /Desterrar Nick, hace que destierres a un personaje (Lo banea) debido a su mal comportamiento.

Código propio.
Volver arriba Ir abajo
Ver perfil de usuario
 
Comando /desterrar [11.5]
Volver arriba 
Página 1 de 1.
 Temas similares
-
» Cubillas participó en dos asesinatos, según un etarra del «comando Oker»
» comando de llave de luces
» Kopassus - Comando de FFEE del Ejército indonesio
» Comando Conjunto de las FFEE de Polonia
» Comando actualidad - ¿Quién me ayuda?

Permisos de este foro:No puedes responder a temas en este foro.
 :: Argentum Online :: Programación-
Cambiar a: