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