[Aporte]Anti Cheat LAC

Bueno ak les traigo un sencillo pero efectivo Anti Cheat hecho x loopzer

En Declaraciones arriba de todo.. (o si es AoR abajo de las declaraciones de Gs)
Ponemos
Código:

'Anti-Cheats Lac(Loopzer Anti-Cheats)
Public SLac As Byte ' es el switch on/off

Public Lac_Camina As Long
Public Lac_Pociones As Long
Public Lac_Pegar As Long
Public Lac_Lanzar As Long
Public Lac_Usar As Long
Public Lac_Tirar As Long

Public Type TLac

LCaminar As New Cls_InterGTC
LPociones As New Cls_InterGTC
LPegar As New Cls_InterGTC
LUsar As New Cls_InterGTC
LTirar As New Cls_InterGTC
LLanzar As New Cls_InterGTC
End Type
'[/Loopzer]


Ahora en el m?dulo ES
buscamos
Código:

Call ConsultaPopular.LoadData

abajo ponemos
Código:

LoadAntiCheat

Y al final Agregamos
Código:

'Anti-Cheats Lac(Loopzer Anti-Cheats)
Public Sub LoadAntiCheat()
Dim i As Integer
SLac = CByte(val(GetVar$(App.Path & "\AntiCheats.ini", "CONFIGURACION", "AntiCheats")))

Lac_Camina = CLng(val(GetVar$(App.Path & "\AntiCheats.ini", "INTERVALOS", "Caminar")))
Lac_Lanzar = CLng(val(GetVar$(App.Path & "\AntiCheats.ini", "INTERVALOS", "Lanzar")))
Lac_Usar = CLng(val(GetVar$(App.Path & "\AntiCheats.ini", "INTERVALOS", "Usar")))
Lac_Tirar = CLng(val(GetVar$(App.Path & "\AntiCheats.ini", "INTERVALOS", "Tirar")))
Lac_Pociones = CLng(val(GetVar$(App.Path & "\AntiCheats.ini", "INTERVALOS", "Pociones")))
Lac_Pegar = CLng(val(GetVar$(App.Path & "\AntiCheats.ini", "INTERVALOS", "Pegar")))

For i = 1 To MaxUsers
ResetearLac i
Next

End Sub
'[/Loopzer]

En el M?dulo General
Buscamos
Código:

Public Sub LogCriticEvent(Desc As String)
On Error GoTo errhandler
abajo de:

Dim nfile As Integer
nfile = FreeFile ' obtenemos un canal
Open App.Path & "\logs\Eventos.log" For Append Shared As #nfile
Print #nfile, Date & " " & Time & " " & Desc
Close #nfile

Exit Sub

errhandler:

End Sub

Y abajo Agregamos
Código:

'Anti-Cheats Lac(Loopzer Anti-Cheats)
Public Sub LogAntiCheat(texto As String)
On Error GoTo errhandler

Dim nfile As Integer
nfile = FreeFile ' obtenemos un canal
Open App.Path & "\logs\AntiCheat.log" For Append Shared As #nfile
Print #nfile, Date & " " & Time & " " & texto
Print #nfile, ""
Close #nfile

Exit Sub

errhandler:

End Sub
'[/Loopzer]

Ahora lo ?ltimo que tenemos que hacer es:
En la carpeta del servidor crear un "ini" con el nombre "AntiCheats"
y adentro le ponemos
Código:

//LAC(Loopzer Anti-cheats)
//1 es Activado
// 0 es DesActivado
[CONFIGURACION]
AntiCheats=0
[INTERVALOS]
//en milisegundos son los intervalos
//Tirar es para tirar items o oro ,y dados

Caminar=250
Lanzar=1200
Usar=1000
Pociones=2000
Pegar=2000
Tirar=270
//
//

y Listo.. ya tenemos un anti cheat efectivo..
Los intervalos son configurables a su gusto..
By Lopzer

Buen aporte

Pero esta incompleto

Mañana o completo asi editas