;Si ves ke falla porque intenta hacer otro objeto antes de 
; que acabe el otro, cambia el wait 4s por algo mas

ignoreitem reset
     if WRDSV_A_EN in #SYSMSG
        wait 25s
If %GoldOrTickets = TICKETS
    msg $,unsetcatchbag$
wait 1s
set #LOBJECTID %MartilloID
event macro %LastObject
set #LTARGETID %MartilloID
set #LTARGETKIND 1
target 4s
event macro %LastTarget
wait 10


If %GoldOrTickets = TICKETS
  {
     wait 2s
     msg $,setcatchbag$
event sysmessage EL ID de la bolsa de TICKETS ES %Bolsa2
     Set #LTARGETID %Bolsa2
     Set #LTARGETKIND 1
     wait 1s
     target 4s
     event macro %LastTarget 0
   }

;Apuntamos los lingotes de iron
set %vendo SI
call apuntar RMK 0
if %1 = -1
 {
  set %vendo NO
  exit
  }
set %LingotesID #LOBJECTID

BucleDeTinker:

;Si vamos a subir black, podemos elegir entre hacer DAGAS o hacer KATANAS
; Para las katanas necesitas un minimo de skill de black (no se exactamente)
if  %QueForjar = DAGAS
  {
    msg $,waitmenu Herrero Armas Armas Swords Espadas daga$
 }
if  %QueForjar = KATANAS
  {
    msg $,waitmenu Herrero Armas Armas Swords Espadas katana$
 }
 set #LOBJECTID %LingotesID
 event macro %LastObject
 wait 145 

findetinker:
     ;Se esta haciendo un savegame
     if WRDSV_A_EN in #SYSMSG
        wait 25s
 if #contkind in WNF_AECB
    {
     click 46 57 r
     wait 10
     goto findetinker
    }
 
;comprobamos el numero de lingotes
  finditem %lingotesID
  if #findkind = -1
       exit

if  %QueForjar = DAGAS
  {
   if #findstack < 6
        exit
  }
if  %QueForjar = KATANAS
  {
   if #findstack < 10
        exit
  }
goto BucleDeTinker

