[Aporte] D.C.A.M anticheat (Fénix AO)

agush · 01-nov-2008, 03:14

DCAM = Detector de Cheat AutoMatico by MaTeO
Funciona detectando los intervalos malos. Osea sirve para todo tipo de Cheat. Engine, ultra cheat, etc.
Si un usuario pega muy rapido o tira hechizos muy rapido.
En la consola dice que ese usuario esta pasando intervalos de golpe.
Pero es normal que pase una vez.
Si salta una 3 veses seguidas. Usa algo mas rapido de lo normal.
Para ponerlo.
Van al modulo "ModNuevoTimer" y borran todo lo que hay y ponen:

Código:

 
Option Explicit
'
' Las siguientes funciones devuelven TRUE o FALSE si el intervalo
' permite hacerlo. Si devuelve TRUE, setean automaticamente el
' timer para que no se pueda hacer la accion hasta el nuevo ciclo.
'
' CASTING DE HECHIZOS
Public Function IntervaloPermiteLanzarSpell(ByVal UserIndex As Integer, Optional ByVal Actualizar As Boolean = True) As Boolean
Dim TActual As Long
 
TActual = GetTickCount() And &H7FFFFFFF
 
If TActual - UserList(UserIndex).Counters.TimerLanzarSpell >= 40 * IntervaloUserPuedeCastear Then
If Actualizar Then UserList(UserIndex).Counters.TimerLanzarSpell = TActual
IntervaloPermiteLanzarSpell = True
Else
IntervaloPermiteLanzarSpell = False
End If
 
If TActual - UserList(UserIndex).Counters.TimerLanzarSpell >= 30 * IntervaloUserPuedeCastear Then
IntervaloPermiteLanzarSpell = False
Call SendData(ToAdmins, 0, 0, "|| El Usuario " & UserList(UserIndex).Name & " paso un intervalo de Golpe" & "~0~50~0~0~0")
End If
End Function
 
Public Function IntervaloPermiteAtacar(ByVal UserIndex As Integer, Optional ByVal Actualizar As Boolean = True) As Boolean
Dim TActual As Long
 
TActual = GetTickCount() And &H7FFFFFFF
If TActual - UserList(UserIndex).Counters.TimerPuedeAtacar >= 40 * IntervaloUserPuedeAtacar Then
If Actualizar Then UserList(UserIndex).Counters.TimerPuedeAtacar = TActual
IntervaloPermiteAtacar = True
Else
IntervaloPermiteAtacar = False
End If
 
If TActual - UserList(UserIndex).Counters.TimerPuedeAtacar >= 30 * IntervaloUserPuedeAtacar Then
IntervaloPermiteAtacar = False
Call SendData(ToAdmins, 0, 0, "|| El Usuario " & UserList(UserIndex).Name & " paso un intervalo de Golpe" & "~0~50~0~0~0")
End If
 
End Function
 
Public Function IntervaloPermiteTrabajar(ByVal UserIndex As Integer, Optional ByVal Actualizar As Boolean = True) As Boolean
Dim TActual As Long
TActual = GetTickCount() And &H7FFFFFFF
If TActual - UserList(UserIndex).Counters.TimerPuedeTrabajar >= 40 * IntervaloUserPuedeTrabajar Then
If Actualizar Then UserList(UserIndex).Counters.TimerPuedeTrabajar = TActual
IntervaloPermiteTrabajar = True
Else
IntervaloPermiteTrabajar = False
End If
 
End Function
' USAR OBJETOS
Public Function IntervaloPermiteUsar(ByVal UserIndex As Integer, Optional ByVal Actualizar As Boolean = True) As Boolean
Dim TActual As Long
TActual = GetTickCount() And &H7FFFFFFF
If TActual - UserList(UserIndex).Counters.TimerUsar >= IntervaloUserPuedeUsar Then
If Actualizar Then UserList(UserIndex).Counters.TimerUsar = TActual
IntervaloPermiteUsar = True
Else
IntervaloPermiteUsar = False
End If
End Function
Public Function IntervaloPermiteUsarArcos(ByVal UserIndex As Integer, Optional ByVal Actualizar As Boolean = True) As Boolean
Dim TActual As Long
TActual = GetTickCount() And &H7FFFFFFF
If TActual - UserList(UserIndex).Counters.TimerUsar >= IntervaloFlechasCazadores Then
If Actualizar Then UserList(UserIndex).Counters.TimerUsar = TActual
IntervaloPermiteUsarArcos = True
UserList(UserIndex).flags.Chiteando = 0
Else
IntervaloPermiteUsarArcos = False
End If
If TActual - UserList(UserIndex).Counters.TimerUsar >= 5 Then
IntervaloPermiteUsarArcos = False
Call SendData(ToAdmins, 0, 0, "|| El Usuario " & UserList(UserIndex).Name & " paso un intervalo de Golpe" & "~0~50~0~0~0")
End If
 
 
End Function

Fuente: MaTeO -.Magma AO.-

POSIBLE ERROR: Si les da error en "UserList(UserIndex).flags.Chiteando"
En el Servidor, archivo Declaraciones.bas
Buscar..

Código: