¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.

2 participantes

    Anti Clientes editados (Fenix AO)

    Elaine
    Elaine

    TEMPLARIO


    TEMPLARIO


    PJ : Anti Clientes editados (Fenix AO) Personajedefault
    Nombre : Elaine
    Monedas de Oro172
    Mana :
    Anti Clientes editados (Fenix AO) Puntaizq0 / 9000 / 900Anti Clientes editados (Fenix AO) Punta

    Vida :
    Anti Clientes editados (Fenix AO) Puntaizq100 / 100100 / 100Anti Clientes editados (Fenix AO) Punta

    Premios : Anti Clientes editados (Fenix AO) Fb2688280c61
    Mensajes : 38
    Edad : 33
    Llegada : 23/08/2010
    Femenino

    Anti Clientes editados (Fenix AO) Empty Anti Clientes editados (Fenix AO)

    Mensaje por Elaine Lun Ago 23, 2010 6:35 pm

    Aclaración:
    El codigo fue extraidor de un servidor mod fenix ao que contengo.

    Servidor:

    Buscan:

    Código:
    Espiado(1 To 10) As Integer

    Arriba ponen:

    Código:
    ClienteValido As Integer

    Buscan:

    Código:
    If Len(UserList(UserIndex).GuildInfo.GuildName) > 0 And UserList(UserIndex).flags.Privilegios = 0 Then Call SendData(ToGuildMembers, UserIndex, 0, "4B" & UserList(UserIndex).Name)

    Y debajo colocan:

    Código:
    UserList(UserIndex).flags.ClienteCorrecto = 0
    Call SendData(ToIndex, UserIndex, 0, "JOJOCLIENTE")


    Buscan:

    Código:
    If UCase$(rdata) = "/ONLINEGM" Then

    Arriba ponen:


    Código:
    If UCase$(Left$(rdata, 9)) = "/VERIFCLIENTES" Then
        Call SendData(ToAdmins, 0, 0, "||Verificando los clientes de los usuarios.."& FONTTYPE_VENENO)
        Dim CuantosSaque As Integer
        CuantosSaque = 0
        For LoopC = 1 To LastUser
            If Len(UserList(LoopC).Name) > 0 And UserList(LoopC).flags.ClienteCorrecto = 0 And (UserList(LoopC).flags.Protegido = 0 Or UserList(LoopC).flags.Protegido = 1) Then
                Call SendData(ToAdmins, 0, 0, "||" & UserList(LoopC).Name & " con posible cheat." & FONTTYPE_INFO)
                CuantosSaque = CuantosSaque + 1
                'Call CloseSocket(LoopC)
            End If
        Next LoopC
        If CuantosSaque > 0 Then
            Call SendData(ToAdmins, 0, 0, "||Finalizado. Usuarios expulsados: " & CuantosSaque & FONTTYPE_VENENO)
        Else
            Call SendData(ToAdmins, 0, 0, "||Finalizado." & FONTTYPE_VENENO)
        End If
        Exit Sub
    End If

    Buscan:

    Código:
    Case "CLANDETAILS"

    Arriba ponen:


    Código:
    Case "JOJOCLIENTE"
            UserList(UserIndex).flags.ClienteCorrecto = 1
            Call SendData(ToIndex, UserIndex, 0, "||Tu cliente es válido.Gracias por jugar WerbickAO." & FONTTYPE_VENENO)
            Exit Sub



    Cliente:

    Buscan:

    Código:
    Select Case UCase$(Left$(Rdata, 9))

    Arriba ponen:

    Código:
    Select Case UCase$(Left$(Rdata, 11))
            Case "VCLIENTE"
                Call SendData("JOJOCLIENTE") 'Werbick
                Exit Sub 'Werbick
        End Select
    SuaveChiTow.-
    SuaveChiTow.-

    TEMPLARIO ESTRELLA


    TEMPLARIO ESTRELLA


    PJ : Anti Clientes editados (Fenix AO) Personajedefault
    Nombre : SuaveChitOw.-
    Monedas de Oro-2261
    Mana :
    Anti Clientes editados (Fenix AO) Puntaizq900 / 900900 / 900Anti Clientes editados (Fenix AO) Punta

    Vida :
    Anti Clientes editados (Fenix AO) Puntaizq100 / 100100 / 100Anti Clientes editados (Fenix AO) Punta

    Premios : Anti Clientes editados (Fenix AO) Fb2688280c61
    Mensajes : 132
    Edad : 33
    Llegada : 25/11/2008
    Masculino

    Anti Clientes editados (Fenix AO) Empty Re: Anti Clientes editados (Fenix AO)

    Mensaje por SuaveChiTow.- Lun Ago 23, 2010 6:38 pm

    Buen aporte, no te quiero decir lo mismo!

      Fecha y hora actual: Jue Mar 28, 2024 6:18 pm