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