Agus Admin
Mensajes : 69 Fecha de inscripción : 01/07/2008
| Tema: 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
| |
|