; Macro de herreria, hacer dagas y fundirlas.
; NOTA: Hacer la primera daga a mano.

event sysmessage Abre el contenedor donde esten los lingotes y martillos y pulsa ESC.

Start:
onhotkey ESC
   {
   contpos 50 20
   wait 20
   set %cofre #LOBJECTID
   wait 20
   goto Materiales
   }
goto Start

Materiales:
;Comprueba si tienes martillos.
msg .desarmarse $
wait 10
event macro 8 7
wait 5
finditem GBG C_ , #backpackid
if #FINDCNT < 1
   {
   finditem TLH C_ , #backpackid
   if #FINDCNT < 1
      {
      finditem GBG_TLH C_ , %cofre
      exevent drag #FINDID
      wait 5
      exevent dropc #backpackid
      wait 10
      }
   }

;Comprueba lingotes de hierro.
set %cantidad 30
finditem RMK C_ , #backpackid
if #FINDSTACK < 3
   {
   set %canthierro #findstack
   finditem RMK C_ , %cofre
   if #FINDSTACK < 3
      {
      halt
      }
   set %sacarhierro ( %cantidad - %canthierro )
   exevent drag #FINDID %sacarhierro
   wait 5
   exevent dropc #backpackid
   wait 10
   goto Materiales
   }
goto Fabrica

Fabrica:
msg .desarmarse $
wait 10
finditem GBG C_ , #backpackid
if #FINDCNT < 1
   {
   finditem TLH C_ , #backpackid
   if #FINDCNT < 1
      {
      goto Materiales
      }
   }
finditem GBG_TLH C_ , #backpackid
set #LOBJECTID #FINDID
event macro 17 0
wait 5
finditem RMK C_ , #backpackid
if #FINDSTACK < 3
   {
   finditem TSF C_ , #backpackid
   if #FINDCNT > 0
      {
      goto Funde
      }
   goto Materiales
   }
set #LOBJECTID #FINDID
event macro 17 0
wait 10
click 271 113 dmc
wait 2s
goto Fabrica

Funde:
finditem RMK c_ , #backpackid
set #lobjectid #findid
event macro 17 0
wait 10
click 70 420 dmc
wait 5
finditem TSF c_ , #BACKPACKID
if #FINDCNT > 0
   {
   finditem TSF c_ , #BACKPACKID
   set #LTARGETID #FINDID
   wait 10
   event macro 22 0
   wait 10
   goto Funde
   }
if #FINDCNT = 0
   {
   key ESC
   goto Materiales
   }