;*************************************************
;Macro HERRERO by OverQueen
;*************************************************
set #SYSMSGCOL 10
event sysmessage Macro para subir herreria by OverQueen

;*************************************************
;            CONFIGURACIONES (EDITAR)
;*************************************************
set %cofre IYICROD_XXXXXXX_XXXXXXX_XXXXXX; bolsas de martillos dentro del cofre
set %tornillos YFG
set %martillos GBG_FBG_TLH_CGG
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 martillos
gosub tornillos
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 Y EQUIPAR MARTILLOS
;*************************************************
sub martillos
finditem %martillos C_ , #BACKPACKID
if #FINDSTACK = 0
{
finditem %martillos C_ , %bolsas
set #LOBJECTID #FINDID
exevent drag #FINDID 1
exevent dropc #BACKPACKID
wait 20
}
finditem %martillos C_ , #CHARID
if #FINDCNT < 1
{
finditem %martillos C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
}
return

;*************************************************
;                HACER TORNILLOS
;*************************************************
sub tornillos
finditem %hierro C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 10
click 65 310
wait 10
click 270 150
wait 10
finditem %tornillos C_ , #backpackid
if findkind <> -1
{
finditem %hierro C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 10
click 69 423
wait 10
finditem %tornillos C_ , #BACKPACKID
set #LTARGETID #FINDID
set #LTARGETKIND 1
wait 10
event macro 22
wait 10
}
}
return

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