Case "/ENCUESTA "

Case "/VERADVER "
 
            Dim Adverts As Integer
            Dim Advert As String
            rData = UCase$(Right$(rData, Len(rData) - 10))
            tStr = Replace$(ReadField(1, rData, 32), "+", " ") 'Nick
 
            If UserList(UserIndex).flags.Privilegios = User And UserList(UserIndex).name <> tStr Then Exit Sub
 
            Adverts = val(GetVar(CharPath & tStr & ".chr", "Advertencias", "Number"))
            Call SendData(SendTarget.ToIndex, UserIndex, 0, "||El usuario " & tStr & " tiene " & Adverts & fottype_info)
 
            Dim LoopX As Integer
                For LoopX = 1 To Adverts
 
                        Advert = GetVar(CharPath & tStr & ".chr", "Advertencias", "Adv" & LoopX)
                    Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Advertencia" & LoopX & " : " & Advert & FONTTYPE_INFO)
                Next LoopX
 
            Exit Sub
 
        Case "/ADVERTIR "
            If UserList(UserIndex).flags.Privilegios = User Then Exit Sub
            Dim TotalAdvert As Integer
            rData = UCase$(Right$(rData, Len(rData) - 10))
            tStr = Replace$(ReadField(1, rData, 32), "+", " ") 'Nick
                tIndex = NameIndex(tStr)
                    Arg1 = ReadField(2, rData, 32)
 
            TotalAdvert = val(GetVar(CharPath & tStr & ".chr", "Advertencias", "Number"))
            TotalAdvert = val(TotalAdvert) + 1
            Call WriteVar(CharPath & tStr & ".chr", "Advertencias", "Number", val(TotalAdvert))
 
            Call WriteVar(CharPath & tStr & ".chr", "Advertencias", "Adv" & TotalAdvert, Arg1)
            'Call WriteVar(CharPath & tStr & ".bwpj", "Advertencias", "Adv" & TotalAdvert, Arg1)
 
            'Notificamos A los usuarios Que el GM advirtio a un usuario
            Call SendData(SendTarget.ToAll, 0, 0, "||" & UserList(UserIndex).name & " advirtio a: " & tStr & FONTTYPE_ADVERTENCIAS)
 
 
            'Notificamos al usuarios que Fue Advertido, el motivo, quien lo advirtio y la cantidad de advertencias que tiene
             If tIndex <= 0 Then
                Call SendData(SendTarget.ToIndex, UserIndex, 0, "||El Personaje esta Offline." & FONTTYPE_ADVERTENCIAS)
                Exit Sub
            Else
                Call SendData(SendTarget.ToIndex, tIndex, 0, "||Has sido Advertido por: " & UserList(UserIndex).name & ". El Motivo de la Advertencias es: " & Arg1 & " .Con esta llevas " & TotalAdvert & FONTTYPE_ADVERTENCIAS)
            End If
 
            'Si llego al Maximo de Advertencias?
            If val(TotalAdvert) >= 5 Then
                Call SendData(SendTarget.ToAdmins, 0, 0, "||Servidor> " & tStr & " ha sido Baneado Automaticamente por llegar a su Maximo de advertencias." & FONTTYPE_ADVERTENCIAS)
                    tInt = val(GetVar(CharPath & tStr & ".chr", "PENAS", "Cant"))
                    Call WriteVar(CharPath & tStr & ".chr", "PENAS", "Cant", tInt + 1)
                    Call WriteVar(CharPath & tStr & ".chr", "PENAS", "P" & tInt + 1, "El Servidor te ha Baneado Automaticamente. El Motivo es: Acumulacion de Advertencias. " & Date & " " & Time)
 
                'Desconectamos al usuario
                If Not tIndex <= 0 Then Call CloseSocket(tIndex)
 
                'Baneamos ^^
                Call WriteVar(CharPath & tStr & ".chr", "FLAGS", "Ban", "1")
            End If
 
            Exit Sub

Public Const FONTTYPE_CENTINELA As String = "~0~255~0~1~0"

Public Const FONTTYPE_ADVERTENCIAS As String = "~128~0~0~1~1"