GS-Zone
Facebook Twitter

LAC (Gamename Anti-Cheat) Ir al Indice

Reglas del Foro
* Por favor, lee las reglas de los foros de Programación antes de hacer un nuevo tema!

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

8

Nota » 04 Abr 2009 17:23

En Declaraciones arriba de todo.. (o si es AoR abajo de las declaraciones de Gs)
Ponemos
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. 'Anti-Cheats Lac(Loopzer Anti-Cheats)
  2. Public SLac As Byte ' es el switch on/off
  3.  
  4. Public Lac_Camina As Long
  5. Public Lac_Pociones As Long
  6. Public Lac_Pegar As Long
  7. Public Lac_Lanzar As Long
  8. Public Lac_Usar As Long
  9. Public Lac_Tirar As Long
  10.  
  11. Public Type TLac
  12.    
  13.     LCaminar As New Cls_InterGTC
  14.     LPociones As New Cls_InterGTC
  15.     LPegar As New Cls_InterGTC
  16.     LUsar As New Cls_InterGTC
  17.     LTirar As New Cls_InterGTC
  18.     LLanzar As New Cls_InterGTC
  19. End Type
  20. '[/Loopzer]


Ahora en el m?dulo ES
buscamos
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Call ConsultaPopular.LoadData


abajo ponemos
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. LoadAntiCheat


Y al final Agregamos
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. 'Anti-Cheats Lac(Loopzer Anti-Cheats)
  2. Public Sub LoadAntiCheat()
  3.     Dim i As Integer
  4.     SLac = CByte(val(GetVar$(App.Path & "\AntiCheats.ini", "CONFIGURACION", "AntiCheats")))
  5.    
  6.     Lac_Camina = CLng(val(GetVar$(App.Path & "\AntiCheats.ini", "INTERVALOS", "Caminar")))
  7.     Lac_Lanzar = CLng(val(GetVar$(App.Path & "\AntiCheats.ini", "INTERVALOS", "Lanzar")))
  8.     Lac_Usar = CLng(val(GetVar$(App.Path & "\AntiCheats.ini", "INTERVALOS", "Usar")))
  9.     Lac_Tirar = CLng(val(GetVar$(App.Path & "\AntiCheats.ini", "INTERVALOS", "Tirar")))
  10.     Lac_Pociones = CLng(val(GetVar$(App.Path & "\AntiCheats.ini", "INTERVALOS", "Pociones")))
  11.     Lac_Pegar = CLng(val(GetVar$(App.Path & "\AntiCheats.ini", "INTERVALOS", "Pegar")))
  12.  
  13.     For i = 1 To MaxUsers
  14.         ResetearLac i
  15.     Next
  16.    
  17. End Sub
  18. '[/Loopzer]


En el M?dulo General
Buscamos
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub LogCriticEvent(Desc As String)
  2. On Error GoTo errhandler
  3. abajo de:
  4.  
  5. Dim nfile As Integer
  6. nfile = FreeFile ' obtenemos un canal
  7. Open App.Path & "\logs\Eventos.log" For Append Shared As #nfile
  8. Print #nfile, Date & " " & Time & " " & Desc
  9. Close #nfile
  10.  
  11. Exit Sub
  12.  
  13. errhandler:
  14.  
  15. End Sub


Y abajo Agregamos
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. 'Anti-Cheats Lac(Loopzer Anti-Cheats)
  2. Public Sub LogAntiCheat(texto As String)
  3. On Error GoTo errhandler
  4.  
  5. Dim nfile As Integer
  6. nfile = FreeFile ' obtenemos un canal
  7. Open App.Path & "\logs\AntiCheat.log" For Append Shared As #nfile
  8. Print #nfile, Date & " " & Time & " " & texto
  9. Print #nfile, ""
  10. Close #nfile
  11.  
  12. Exit Sub
  13.  
  14. errhandler:
  15.  
  16. End Sub
  17. '[/Loopzer]


Ahora lo ?ltimo que tenemos que hacer es:
En la carpeta del servidor crear un "ini" con el nombre "AntiCheats"
y adentro le ponemos
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. //LAC(Loopzer Anti-cheats)
  2. //1 es Activado
  3. // 0 es DesActivado
  4. [CONFIGURACION]
  5. AntiCheats=0
  6. [INTERVALOS]
  7.     //en milisegundos son los intervalos
  8.     //Tirar es para tirar items o oro ,y dados
  9.  
  10. Caminar=250
  11. Lanzar=1200
  12. Usar=1000
  13. Pociones=2000
  14. Pegar=2000
  15. Tirar=270
  16. //
  17. //


y Listo.. ya tenemos un anti cheat efectivo..
Los intervalos son configurables a su gusto..
Bueno Esto fue un Anti Cheat,para 0.11.2
By: Loopzer de Uasu Hasta la proxima.
Última edición por Gamename el 04 Abr 2009 17:29, editado 2 veces en total

Imagen
Gamename
Usuario Registrado
Newbie [6]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 193
Aportes: 4
Arriba

Nota » 04 Abr 2009 17:27

Che de onda este aporte ya estaba pero lo borraron y lo aportastes ta perfecto pero..


By: Loopzer y yo
LAC (Gamename Anti-Cheat)


Este anti cheat es de Loopzer no tuyo master :S respeta los derechos de Autor y pone FUENTE ADEMAS.

Imagen

Imagen
KenJiN
Mixed AO- Programador
255
Dragon Ancestral [5]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Mensajes: 3968
Aportes: 32
Premios: 1
Mister Programador AO (1)
Arriba

Nota » 04 Abr 2009 17:35

Puse y yo,porque tiraba un error de compilacion y lo arregle,pero ai edite, LoopZer de Uasu.

Imagen
Gamename
Usuario Registrado
Newbie [6]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 193
Aportes: 4
Arriba

Nota » 04 Abr 2009 17:48

Muy bueno gamename me funciono de 10
pointer
Usuario Registrado
Newbie [1]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 15
Arriba

Nota » 04 Abr 2009 22:41

Este código no tenia NI UN ERROR lo tengo implementado en mi servidor hace mas de 1 año. Por favor, no inventes, no esta mal que postees un código que faltaba, pero como bien dijeron respeta los derechos de autor, y no digas cosas que no son.

Gracias por postearlo igual, a mucha gente le va a venir bien tenerlo de nuevo. Acordate, no inventes cosas, si pones la fuente y de quien es, nadie te va a reclamar nada :)!

Saludos!

Imagen
IrvineKinneas
Semper Fi
45
Aprendiz [2]
Registrado: 5 Años de membresía!
Mensajes: 278
Aportes: 7
Arriba

Nota » 04 Abr 2009 23:00

By: Loopzer de Uasu Hasta la proxima.

uasu XD? Loopzer es de GS-Zone Gamename, por favor verificá bien las fuentes y que este post no exista anteriormente, además creo que como lo pusiste está incompleto...

mica.khalem@gmail.com

•Parra escribió:Pf que locura xD ...
Que has hecho? xD


Imagen


FAN DE BLIZZARD
Khalem
God is gay
363
Administrador
Registrado: 5 Años de membresía!
Ubicación: Capital Federal
Mensajes: 3012
Aportes: 19
Premios: 1
Mister Programador AO (1)
Arriba

Nota » 05 Abr 2009 00:00

pointer escribió:Muy bueno gamename me funciono de 10


Perdon que juzgue sin saber quien sos o si realmente lo probaste, pero como dijo Khalem, creo que esta incompleto también, asi que no se como te pudo funcionar de 10 :)

Saludos!

Imagen
IrvineKinneas
Semper Fi
45
Aprendiz [2]
Registrado: 5 Años de membresía!
Mensajes: 278
Aportes: 7
Arriba

Nota » 05 Abr 2009 04:25

Que masa!! ahora editando el nombre de las variables, y poniendo un "On error resume next" se acreditan derechos de autor!! ¬¬ ¬¬

Imagen

Imagen
rubio93
13 (+1)
Legendario Inmortal [1]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Ubicación: Baradero, Buenos Aires
Mensajes: 4765
Aportes: 54
Premios: 1
Participación (1)
Arriba

Volver a AO 0.11.2 / AOReady

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados