Anti-Cheat 13.0

'**************************************************************
' clsInterGTC.cls
'
' Designed and implemented by Loopzer
'**************************************************************
 
'**************************************************************************
'This program is free software; you can redistribute it and/or modify
'it under the terms of the Affero General Public License;
'either version 1 of the License, or any later version.
'
'This program is distributed in the hope that it will be useful,
'but WITHOUT ANY WARRANTY; without even the implied warranty of
'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'Affero General Public License for more details.
'
'You should have received a copy of the Affero General Public License
'along with this program; if not, you can find it at http://www.affero.org/oagpl.html
'**************************************************************************
 
Option Explicit
 
Public Intervalo As Long
Private Tiempo As Long
Private Puede As Boolean
 
Public Sub Init(Inter As Long)
    Intervalo = Inter
    Tiempo = GetTickCount + Intervalo
End Sub
 
Public Function Puedo() As Boolean
 
    If GetTickCount < Intervalo - 1 Then '  Me fijo que el tiempo no vuelva a cerro.
        Tiempo = GetTickCount + Intervalo
    End If
    If GetTickCount >= Tiempo Then
        Puede = True
        Tiempo = GetTickCount + Intervalo
    End If
 
Puedo = Puede
Puede = False
 
End Function

Option Explicit
 
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 clsInterGTC
    LPociones As New clsInterGTC
    LPegar As New clsInterGTC
    LUsar As New clsInterGTC
    LTirar As New clsInterGTC
    LLanzar As New clsInterGTC
End Type
 
Public Sub LoadAntiCheat()
    Dim i As Integer
 
    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
 
Public Sub ResetearLac(UserIndex As Integer)
 
With UserList(UserIndex).Lac
 
    .LCaminar.Init Lac_Camina
    .LPociones.Init Lac_Pociones
    .LUsar.Init Lac_Usar
    .LPegar.Init Lac_Pegar
    .LLanzar.Init Lac_Lanzar
    .LTirar.Init Lac_Tirar
 
End With
 
End Sub
 
Public Sub CargaLac(UserIndex As Integer)
 
With UserList(UserIndex).Lac
 
    Set .LCaminar = New clsInterGTC
    Set .LLanzar = New clsInterGTC
    Set .LPegar = New clsInterGTC
    Set .LPociones = New clsInterGTC
    Set .LTirar = New clsInterGTC
    Set .LUsar = New clsInterGTC
 
    .LCaminar.Init Lac_Camina
    .LPociones.Init Lac_Pociones
    .LUsar.Init Lac_Usar
    .LPegar.Init Lac_Pegar
    .LLanzar.Init Lac_Lanzar
    .LTirar.Init Lac_Tirar
 
End With
 
End Sub
 
Public Sub DescargaLac(UserIndex As Integer)
 
With UserList(UserIndex).Lac
 
    Set .LCaminar = Nothing
    Set .LLanzar = Nothing
    Set .LPegar = Nothing
    Set .LPociones = Nothing
    Set .LTirar = Nothing
    Set .LUsar = Nothing
 
End With
 
End Sub

'Tipo de los Usuarios
Public Type User

Lac As TLac

Call ConsultaPopular.LoadData

Call LoadAntiCheat

If Obj.OBJType = eOBJType.otWeapon Then

If UserList(UserIndex).Lac.LUsar.Puedo = False Then Exit Sub

Case eOBJType.otPociones

If UserList(UserIndex).Lac.LPociones.Puedo = False Then Exit Sub

Private Sub HandleAttack(ByVal UserIndex As Integer)
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modification: 13/01/2010
'Last Modified By: ZaMa
'10/01/2008: Tavo - Se cancela la salida del juego si el user esta saliendo.
'13/11/2009: ZaMa - Se cancela el estado no atacable al atcar.
'13/01/2010: ZaMa - Now hidden on boat pirats recover the proper boat body.
'***************************************************
    With UserList(UserIndex)
        'Remove packet ID
        Call .incomingData.ReadByte

If .Lac.LPegar.Puedo = False Then Exit Sub

Sub LanzarHechizo(ByVal SpellIndex As Integer, ByVal UserIndex As Integer)
'***************************************************
'Autor: Unknown (orginal version)
'Last Modification: 02/16/2010
'24/01/2007 ZaMa - Optimizacion de codigo.
'02/16/2010: Marco - Now .flags.hechizo makes reference to global spell index instead of user's spell index
'***************************************************
On Error GoTo Errhandler
 
With UserList(UserIndex)

If .Lac.LLanzar.Puedo = False Then Exit Sub

[INTERVALOS]
 
Caminar=250
Lanzar=1200
Usar=1000
Pociones=2000
Pegar=2000
Tirar=270