Anti Clientes editados (Fenix AO)

    Comparte
    avatar
    Elaine

    TEMPLARIO


    TEMPLARIO

    PJ :
    Nombre : Elaine
    Monedas de Oro172
    Mana :
    0 / 9000 / 900

    Vida :
    100 / 100100 / 100

    Premios :
    Mensajes : 38
    Edad : 27
    Llegada : 23/08/2010
    Femenino

    Anti Clientes editados (Fenix AO)

    Mensaje por Elaine el 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
    avatar
    SuaveChiTow.-

    TEMPLARIO ESTRELLA


    TEMPLARIO ESTRELLA

    PJ :
    Nombre : SuaveChitOw.-
    Monedas de Oro-2261
    Mana :
    900 / 900900 / 900

    Vida :
    100 / 100100 / 100

    Premios :
    Mensajes : 132
    Edad : 27
    Llegada : 25/11/2008
    Masculino

    Re: Anti Clientes editados (Fenix AO)

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

    Buen aporte, no te quiero decir lo mismo!

      Fecha y hora actual: Miér Dic 12, 2018 4:17 am