[Aporte] Advertencias con Ban Automatico

Standelf · 10-nov-2008, 17:41

Este sistema es simple, el gm advierte al PJ con el comando "/Advertir nick motivo" si el usuario llega a su maximo de advertencias se come ban :twisted: ajjaja

Codigo echo por mi para la version 0.11.5

Muy simple ^^

En el servidor buscamos:

Código:

Case "/ENCUESTA "

Arriva agregamos:

Código:

        'Standelf - Advertencias
        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

Nota> donde dice: "If val(TotalAdvert) >= 5" Then pueden cambiar el 5 por el maximo de advertencias antes de ban

Buscamos:

Código:

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

Abajo agregamos:

Código:

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

Cambien "~128~0~0~1~1", por los colores a su gusto, en ese saldria algo asi: Standelf Advirtio a Standelf por que tenia ganas

Bueno listo

espero que les sirva ^^

Alkan · 10-nov-2008, 20:44

Muy lindo, ya lo implemente, a probarlo, una pregunta, es /advertir NICK@MOTIVO?

O /advertir NICK MOTIVO

Standelf · 10-nov-2008, 22:16

Cita:

Iniciado por Alkan

Muy lindo, ya lo implemente, a probarlo, una pregunta, es /advertir NICK@MOTIVO?

O /advertir NICK MOTIVO

Es /Advertir nick motivo

Si el nick tiene espacios lo poenen con +

Ejemeplo

/Arvertir el+mago fumar faso en as instalaciones

Luque · 10-nov-2008, 22:19

muy buen aporte te tiro un gracias.
Realmente por la edad que tenes sos un genio

MapacheSurge · 11-nov-2008, 00:57

Es un ban permantente no?
Y no quedaria mejor si les dice al usuario por que

Cita:

'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)

Saludos! y un gracias aunque no tengo ao