Todo sobre AO
 
ÍndiceFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarse

Comparte | 
 

 Loopzer AntiCheat.

Ver el tema anterior Ver el tema siguiente Ir abajo 
AutorMensaje
Agus
Admin


Mensajes : 69
Fecha de inscripción : 01/07/2008

MensajeTema: Loopzer AntiCheat.   Miér Jul 02, 2008 3:39 am

Agregar un modulo de clase y ponerle el nombre Cls_InterGTC y poner esto dentro :
Citación :

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
En Declares.bas (Módulo Declaraciones) :
Citación :

'[Loopzer]
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]
debajo de Type User poner
Citación :

Lac As TLac '[loopzer] 'el Anti-Cheats Lac(Loopzer Anti-Cheats)
en el modulo general al final de todo agregar
Citación :

'[Loopzer]
'Anti-Cheats Lac(Loopzer Anti-Cheats)
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 Cls_InterGTC
Set .LLanzar = New Cls_InterGTC
Set .LPegar = New Cls_InterGTC
Set .LPociones = New Cls_InterGTC
Set .LTirar = New Cls_InterGTC
Set .LUsar = New Cls_InterGTC

.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)
Exit Sub
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
'[/Loopzer]
en el sub LoadSini poner al final
Citación :

LoadAntiCheat
en el
Citación :

Sub UseInvItem(ByVal UserIndex As Integer, ByVal Slot As Byte)
abajo de
Citación :

If Obj.ObjType = OBJTYPE_WEAPON Then
ponen
Citación :

If UserList(UserIndex).Lac.LUsar.Puedo = False Then Exit Sub
buscan
Citación :

Case OBJTYPE_POCIONES
y abajo agregan
Citación :

If UserList(UserIndex).Lac.LPociones.Puedo = False Then Exit Sub '[Loopzer]
buscan
Citación :

Case "AT"
y abajo ponen
Citación :

If UserList(UserIndex).Lac.LPegar.Puedo = False Then Exit Sub
buscan:
Citación :

Case "LH"
y ponen abajo
Citación :

If UserList(UserIndex).Lac.LLanzar.Puedo = False Then Exit Sub
en el server crean un AntiCheat.ini y ponen
Citación :

//En este cliente se a puesto el mejor anti-chetas, que se puede hacer asi nomas
//LAC(Loopzer Anti-cheats) by Loopzer
//espero que les sirva
[INTERVALOS]
//en milisegundos son los intervalos
//Tirar es para tirar items o oro ,y dados
//hace falta todo aca explicar

Caminar=250
Lanzar=1200
Usar=1000
Pociones=2000
Pegar=2000
Tirar=270
Volver arriba Ir abajo
Ver perfil de usuario http://recompilacionao.forosactivos.com
 
Loopzer AntiCheat.
Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.

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