;*************************************************
;Macro ARTESANO by OverQueen
;*************************************************
set #SYSMSGCOL 10
event sysmessage Macro para subir artesanía by OverQueen

;*************************************************
;            CONFIGURACIONES (EDITAR)
;*************************************************
set %cofre YOSMYMD; donde tienes lingotes y herramientas de artesano
set %resortes TCG
set %herramientas GTL
set %hierro RMK
set %comida PQD_MQE_FUD_OQE_YRD_YWI_AXI_VQE_BDF_TQE_KPE_QQD_RQE_SQD_SPE_JQE_ZPE_IQE_YSD

inicio:
gosub comer
gosub hierro
gosub herramientas
gosub resortes
gosub limpiar
goto inicio


;*************************************************
;                     COMER
;*************************************************
sub comer
findItem %comida C_ , #BACKPACKID
if #findcnt > 0
{
set #LOBJECTID #FINDID
event macro 17
}
return

;*************************************************
;                  REPONER HIERRO
;*************************************************
sub hierro
finditem %hierro C_ , #BACKPACKID
if #FINDSTACK = 0
{
finditem %hierro C_
exevent drag #FINDID 50
exevent dropc #BACKPACKID
wait 20
}
return

;*************************************************
;               COGER HERRAMIENTAS
;*************************************************
sub herramientas
finditem %herramientas C_ , #BACKPACKID
if #FINDSTACK = 0
{
finditem %herramientas C_
exevent drag #FINDID 1
exevent dropc #BACKPACKID
wait 20
}
return

;*************************************************
;                HACER RESORTES
;*************************************************
sub resortes
finditem %herramientas C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 10
click 65 150
wait 10
click 270 230
wait 5s
if Pones_ in #SYSMSG
{
finditem %hierro C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 10
click 69 423
finditem %resortes C_ , #BACKPACKID
set #LTARGETID #FINDID
set #LTARGETKIND 1
wait 10
event macro 22
wait 10
goto inicio
}

;*************************************************
;           FUNDIR RESORTES SOBRANTES
;*************************************************
sub limpiar
finditem TCG C_ , #BACKPACKID
if #FINDSTACK > 0
{
finditem RMK C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 10
click 69 423
finditem TCG C_ , #BACKPACKID
set #LTARGETID #FINDID
set #LTARGETKIND 1
wait 10
event macro 22
wait 10
gosub limpiar
}
if #FINDSTACK = 0
goto inicio: