;*************************************************
;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