- ;*************************************************
- ;Macro controlar regs resist by OverQueen
- ;*************************************************
- set #SYSMSGCOL 10
- event sysmessage Macro controlar regs resist by OverQueen
-
- ;*************************************************
- ; CONFIGURACIONES (EDITAR)
- ;*************************************************
- set %contenedor JGDPUND ; ID del contenedor con todos los regs (seguridad propietario)
- set %cofre1 HUHEYND ; ID del contenedor para el macreador 5 (seguridad amigo)
- set %cofre2 UHWHOQD ; ID del contenedor para el macreador 1 (seguridad amigo)
- set %cofre3 UXJPIOD ; ID del contenedor para el macreador 2 (seguridad amigo)
- set %cofre4 AJZTUND ; ID del contenedor para el macreador 3 (seguridad amigo)
- set %cofre5 BEXFOQD ; ID del contenedor para el macreador 4 (seguridad amigo)
- set %cofre6 ERTFOQD ; ID del contenedor para el macreador 4 (seguridad amigo)
- set %cofre7 ZTWHOQD ; ID del contenedor para el macreador 4 (seguridad amigo)
- set %cast SZF ; ID del reg: SZF o ID del perga: CYL
- set %regs 100 ; cantidad mínima de regs que debe haber en los cofres (añade 50)
- set %food 15 ; cantidad de comida que debe haber en los cofres (añade 5)
- set %comida QQD_YSD
-
- inicio:
- gosub abrircontenedores
- gosub comprobarR
- gosub comprobarC
- gosub comer
- gosub anatomia
- goto inicio:
-
- ;*************************************************
- ; ABRIR CONTENEDORES
- ;*************************************************
- sub abrircontenedores
- set #LOBJECTID %contenedor
- wait 10
- event macro 17 0
- wait 10
- set #LOBJECTID %cofre1
- wait 10
- event macro 17 0
- wait 1s
- set #LOBJECTID %cofre2
- wait 10
- event macro 17 0
- wait 10
- set #LOBJECTID %cofre3
- wait 10
- event macro 17 0
- wait 10
- set #LOBJECTID %cofre4
- wait 10
- event macro 17 0
- wait 1s
- set #LOBJECTID %cofre5
- wait 10
- event macro 17 0
- wait 1s
- set #LOBJECTID %cofre6
- wait 10
- event macro 17 0
- wait 1s
- set #LOBJECTID %cofre7
- wait 10
- event macro 17 0
- wait 1s
- return
-
- ;*************************************************
- ; COMPROBAR REGS/PERGAS Y REPONER
- ;*************************************************
- sub comprobarR
- finditem %cast c_ , %cofre1
- wait 10
- if #FINDSTACK <= %regs
- {
- finditem %cast c_ , %contenedor
- exevent drag #FINDID 50
- wait 8
- exevent dropc %cofre1
- wait 20
- }
- finditem %cast c_ , %cofre2
- wait 10
- if #FINDSTACK <= %regs
- {
- finditem %cast c_ , %contenedor
- exevent drag #FINDID 50
- wait 8
- exevent dropc %cofre2
- wait 20
- }
- finditem %cast c_ , %cofre3
- wait 10
- if #FINDSTACK <= %regs
- {
- finditem %cast c_ , %contenedor
- exevent drag #FINDID 50
- wait 8
- exevent dropc %cofre3
- wait 1s
- }
- finditem %cast c_ , %cofre4
- wait 10
- if #FINDSTACK <= %regs
- {
- finditem %cast c_ , %contenedor
- exevent drag #FINDID 50
- wait 8
- exevent dropc %cofre4
- wait 1s
- }
- finditem %cast c_ , %cofre5
- wait 10
- if #FINDSTACK <= %regs
- {
- finditem %cast c_ , %contenedor
- exevent drag #FINDID 50
- wait 8
- exevent dropc %cofre5
- wait 1s
- }
- finditem %cast c_ , %cofre6
- wait 10
- if #FINDSTACK <= %regs
- {
- finditem %cast c_ , %contenedor
- exevent drag #FINDID 50
- wait 8
- exevent dropc %cofre6
- wait 1s
- }
- finditem %cast c_ , %cofre7
- wait 10
- if #FINDSTACK <= %regs
- {
- finditem %cast c_ , %contenedor
- exevent drag #FINDID 50
- wait 8
- exevent dropc %cofre7
- wait 1s
- }
-
- return
-
- ;*************************************************
- ; COMPROBAR Y REPONER COMIDA
- ;*************************************************
- sub comprobarC
- finditem QQD c_ , %cofre1
- wait 10
- if #FINDSTACK <= %food
- {
- finditem QQD c_ , %contenedor
- exevent drag #FINDID 5
- wait 8
- exevent dropc %cofre1
- wait 1s
- }
- finditem QQD c_ , %cofre2
- wait 10
- if #FINDSTACK <= %food
- {
- finditem QQD c_ , %contenedor
- exevent drag #FINDID 5
- wait 8
- exevent dropc %cofre2
- wait 1s
- }
- finditem QQD c_ , %cofre3
- wait 10
- if #FINDSTACK <= %food
- {
- finditem QQD c_ , %contenedor
- exevent drag #FINDID 5
- wait 8
- exevent dropc %cofre3
- wait 1s
- }
- finditem QQD c_ , %cofre4
- wait 10
- if #FINDSTACK <= %food
- {
- finditem QQD c_ , %contenedor
- exevent drag #FINDID 5
- wait 8
- exevent dropc %cofre4
- wait 1s
- }
- finditem QQD c_ , %cofre5
- wait 10
- if #FINDSTACK <= %food
- {
- finditem QQD c_ , %contenedor
- exevent drag #FINDID 5
- wait 8
- exevent dropc %cofre5
- wait 1s
- }
- finditem QQD c_ , %cofre6
- wait 10
- if #FINDSTACK <= %food
- {
- finditem QQD c_ , %contenedor
- exevent drag #FINDID 5
- wait 8
- exevent dropc %cofre6
- wait 1s
- }
- finditem QQD c_ , %cofre7
- wait 10
- if #FINDSTACK <= %food
- {
- finditem QQD c_ , %contenedor
- exevent drag #FINDID 5
- wait 8
- exevent dropc %cofre7
- wait 1s
- }
-
- return
-
- ;*************************************************
- ; COMER
- ;*************************************************
- sub comer
- set #LOBJECTID #FINDID
- findItem %comida C_ , #BACKPACKID
- if #FINDSTACK <= %food
- {
- finditem QQD c_ , %contenedor
- exevent drag #FINDID %food
- wait 8
- exevent dropc #BACKPACKID
- wait 1s
- }
- set #LOBJECTID #FINDID
- wait 10
- event macro 17
- return