;************************************************* ;Macro POISON by OverQueen ;************************************************* set #SYSMSGCOL 10 event sysmessage Macro para subir Poison by OverQueen ;************************************************* ; CONFIGURACIONES (EDITAR) ;************************************************* set %cofre UETCOOD ; donde tienes 3 kegs (*1000) de veneno menor, un arma y 50 pociones vacías set %cofre2 set %keg QMJ set %pocion WUF set %arma INF_GMH set %comida PQD_MQE_FUD_OQE_YRD_YWI_AXI_VQE_BDF_TQE_KPE_QQD_RQE_SQD_SPE_JQE_ZPE_IQE_YSD inicio: gosub abrircontenedor gosub comer gosub keg gosub pocion gosub arma gosub envenenar goto inicio: ;************************************************* ; ABRIR CONTENEDOR ;************************************************* sub abrircontenedor set #LOBJECTID %cofre wait 20 event macro 17 0 wait 20 return ;************************************************* ; COMER ;************************************************* sub comer findItem %comida C_ , #BACKPACKID if #findcnt > 0 { set #LOBJECTID #FINDID event macro 17 } return ;************************************************* ; REPONER KEG ;************************************************* sub keg finditem %keg C_ , #BACKPACKID if #FINDSTACK = 0 { finditem %keg C_ , %cofre exevent drag #FINDID 1 exevent dropc #BACKPACKID wait 20 } return ;************************************************* ; REPONER POCIÓN ;************************************************* sub pocion finditem %pocion C_ , #BACKPACKID if #FINDSTACK = 0 { finditem %pocion C_ , %cofre exevent drag #FINDID 1 exevent dropc #BACKPACKID wait 20 } return ;************************************************* ; REPONER ARMA ;************************************************* sub arma finditem %arma C_ , #BACKPACKID if #FINDSTACK = 0 { finditem %arma C_ , %cofre exevent drag #FINDID 1 exevent dropc #BACKPACKID wait 20 } return ;************************************************* ; ENVENENAR ARMA ;************************************************* sub envenenar finditem %keg C_ , #BACKPACKID if #FINDSTACK = 0 { gosub keg } finditem %pocion C_ , #BACKPACKID if #FINDSTACK = 0 { gosub pocion } finditem %arma C_ , #BACKPACKID if #FINDSTACK = 0 { gosub arma } finditem %keg C_ , #BACKPACKID set #LOBJECTID #FINDID event macro 17 wait 10 finditem %pocion C_ , #BACKPACKID set #LTARGETID #FINDID wait 10 event macro 22 wait 10 event macro 13 30 finditem %arma C_ , #BACKPACKID set #LTARGETID #FINDID wait 10 event macro 22 wait 10 finditem %pocion C_ , #BACKPACKID set #LTARGETID #FINDID wait 10 event macro 22 wait 10s scanjournal if no_puedes_rellenar_el_barril in #journal { finditem %barril C_ , #BACKPACKID exevent drag #FINDID wait 10 exevent dropc %cofre2 wait 10 finditem %keg C_ , %cofre exevent drag #FINDID 1 exevent dropc #BACKPACKID wait 20 } return