Anti Clientes editados (Fenix AO)

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

Buen aporte, no te quiero decir lo mismo!