¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.



 
ÍndiceIndiceÚltimas imágenesBuscarRegistrarseConectarseReglamento
¿Quién está en línea?
En total hay 1 usuario en línea: 0 Registrados, 0 Ocultos y 1 Invitado

Ninguno

El record de usuarios en línea fue de 22 durante el Lun Jun 08, 2020 2:43 am
Mejores posteadores
Rango
Anti-Cheat 13.0 Vote_lcapAnti-Cheat 13.0 Voting_barAnti-Cheat 13.0 Vote_rcap 
Habauc
Anti-Cheat 13.0 Vote_lcapAnti-Cheat 13.0 Voting_barAnti-Cheat 13.0 Vote_rcap 
Trogclodita
Anti-Cheat 13.0 Vote_lcapAnti-Cheat 13.0 Voting_barAnti-Cheat 13.0 Vote_rcap 
WhoTeR
Anti-Cheat 13.0 Vote_lcapAnti-Cheat 13.0 Voting_barAnti-Cheat 13.0 Vote_rcap 
Tomm-
Anti-Cheat 13.0 Vote_lcapAnti-Cheat 13.0 Voting_barAnti-Cheat 13.0 Vote_rcap 
ZankuR
Anti-Cheat 13.0 Vote_lcapAnti-Cheat 13.0 Voting_barAnti-Cheat 13.0 Vote_rcap 
GM-PekeMixz
Anti-Cheat 13.0 Vote_lcapAnti-Cheat 13.0 Voting_barAnti-Cheat 13.0 Vote_rcap 
LuciMoyo
Anti-Cheat 13.0 Vote_lcapAnti-Cheat 13.0 Voting_barAnti-Cheat 13.0 Vote_rcap 
MwM
Anti-Cheat 13.0 Vote_lcapAnti-Cheat 13.0 Voting_barAnti-Cheat 13.0 Vote_rcap 
Diclut s2 Lalaa♥
Anti-Cheat 13.0 Vote_lcapAnti-Cheat 13.0 Voting_barAnti-Cheat 13.0 Vote_rcap 
Estadísticas
Tenemos 98 miembros registrados
El último usuario registrado es Stephelinmu

Nuestros miembros han publicado un total de 1289 mensajes en 264 argumentos.

 

 Anti-Cheat 13.0

Ir abajo 
2 participantes
AutorMensaje
ZankuR
Director
Director
ZankuR


Cantidad de envíos : 107
Fecha de inscripción : 19/07/2013

Anti-Cheat 13.0 Empty
MensajeTema: Anti-Cheat 13.0   Anti-Cheat 13.0 Icon_minitimeDom Ago 11, 2013 4:32 pm

Creamos un Modulo de Clase con el nombre clsInterGTC y le ponemos de codigo:

Código:
'**************************************************************
' 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
Creamos un Modulo y le ponemos de nombre Mod_InterGTC y le ponemos de codigo:

Código:
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
Buscamos:
Código:
'Tipo de los Usuarios
Public Type User
Abajo ponemos:

Código:
Lac As TLac
Buscamos:

Código:
Call ConsultaPopular.LoadData
Abajo ponemos:

Código:
Call LoadAntiCheat
Buscamos:

Código:
If Obj.OBJType = eOBJType.otWeapon Then
Abajo ponemos:

Código:
If UserList(UserIndex).Lac.LUsar.Puedo = False Then Exit Sub
Buscamos:

Código:
Case eOBJType.otPociones
Abajo ponemos:

Código:
If UserList(UserIndex).Lac.LPociones.Puedo = False Then Exit Sub
Buscamos:

Código:
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
Abajo ponemos:

Código:
If .Lac.LPegar.Puedo = False Then Exit Sub
Buscamos:

Código:
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)
Abajo ponemos:

Código:
If .Lac.LLanzar.Puedo = False Then Exit Sub
Creamos un archivo con el nombre "Anticheat.ini" y le ponemos adentro:

Código:
[INTERVALOS]
 
Caminar=250
Lanzar=1200
Usar=1000
Pociones=2000
Pegar=2000
Tirar=270
Fuente Gs-Zone Si lo retocan Un poco Puede ser que puedan tener un gran anti-cheat
Volver arriba Ir abajo
Diclut s2 Lalaa♥
Pre-Avanzado
Pre-Avanzado
Diclut s2 Lalaa♥


Cantidad de envíos : 44
Fecha de inscripción : 24/07/2013
Edad : 33
Localización : CAO Staff

Anti-Cheat 13.0 Empty
MensajeTema: Re: Anti-Cheat 13.0   Anti-Cheat 13.0 Icon_minitimeDom Ago 18, 2013 5:37 pm

Crear intervalo en un boton? ^^
Volver arriba Ir abajo
 
Anti-Cheat 13.0
Volver arriba 
Página 1 de 1.

Permisos de este foro:No puedes responder a temas en este foro.
 :: Argentum Online :: Talleres Taller Argentum :: Programación-
Cambiar a: