;*************************************************
;Macro ALQUIMIA (Veneno Menor) by OverQueen
;*************************************************
set #SYSMSGCOL 10
event sysmessage Macro para subir alquimia by OverQueen

;*************************************************
;            CONFIGURACIONES (EDITAR)
;*************************************************
set %contenedor1 SFFXUOD ; regs, barriles, bolsas de morteros y botellas vacías
set %contenedor2 UKTUNND ; bariles llenos
set %comida RGG_NRD_QSD_ZBG_WLI_QRD_END_FUD_YLI_WLI_HGI_KGI_EGI_QLI_KLI_MLI_KRD_HQD_AQD_MQE_VQE_TQE_JQE_IQE_GQE_SPE_ZPE_OQE_BDF_KPE_RQE_YSD_SQD_YWI_AXI_PQD_QQD
set %regs WZF
set %botellas WUF
set %barril QMJ
set %morteros RQF

Inicio:
gosub comer
gosub cogerBa
gosub cogerBo
gosub cogerM
gosub cogerR
gosub pociones
gosub llenar
goto inicio

;*************************************************
;                    COMER
;*************************************************
sub comer
set #LOBJECTID #FINDID
findItem %comida C_ , #BACKPACKID
set #LOBJECTID #FINDID
wait 10
event macro 17
return

;*************************************************
;                 COGER BARRILES
;*************************************************
sub cogerBa
finditem %barril C_ , #BACKPACKID
iF #FINDCNT = 0
{
finditem %barril C_ , %contenedor1
exevent drag #FINDID
wait 10
exevent dropc #BACKPACKID
wait 10
}
return

;*************************************************
;                  COGER BOTELLAS
;*************************************************
sub cogerBo
finditem %botellas C_ , #BACKPACKID
if #FINDCNT = 0
{
finditem %botellas C_ , %contenedor1
exevent drag #FINDID 1
exevent dropc #BACKPACKID
wait 5
}
return

;*************************************************
;                 COGER MORTEROS
;*************************************************
sub cogerM
finditem %morteros C_ , #BACKPACKID
iF #FINDCNT = 0
{
finditem %morteros C_ , %contenedor1
exevent drag #FINDID
exevent dropc #BACKPACKID
wait 5
}
return

;*************************************************
;                   COGER REGS
;*************************************************
sub cogerR
finditem %regs C_ , #BACKPACKID
if #FINDSTACK < 5
{
finditem %regs C_ , %contenedor1
exevent drag #FINDID 50
exevent dropc #BACKPACKID
wait 5
}
return

;*************************************************
;                  HACER POCIONES
;*************************************************
sub pociones
finditem %morteros C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
click 64 210
wait 5
click 269 109
wait 4s
return

;*************************************************
;                  LLENAR BARRIL
;*************************************************
sub llenar

FINDITEM %barril , _ , %botellas C_ , #BACKPACKID
for #FINDINDEX 1 #FINDCNT
{
if #FINDTYPE = %barril
set #LOBJECTID #FINDID
if #FINDTYPE = %botellas
set #LTARGETID #FINDID
}
event macro 17
set #LTARGETKIND 1
target
event macro 22 0
wait 20
scanjournal
if lleno in #JOURNAL
{
finditem %barril C_ , #BACKPACKID
exevent drag #FINDID
exevent dropc %contenedor2
wait 20
}
return