
ignoreitem reset

chooseskill Black real

set #LOBJECTID %HerramientaID
event macro 17 0
set #LTARGETID %HerramientaID
set #LTARGETKIND 1
target 4s
event macro 22 0
wait 10

Call Apuntar %Creador -1
if %1 = -1
  {
   event sysmessage fallo de apuntar creador
   exit
 }
set %ActivadorID #FINDID


BucleDeTinker:

IF %DagasOKatanas = DAGAS
  {
     msg $,waitmenu Herrero Armas Armas Swords Espadas daga$
   ; msg $,waitmenu Black Weap Weap Swords Swords dag$
  }
IF %DagasOKatanas <> DAGAS
  {
     IF #SKILL >= 700
      {
       msg $,waitmenu Herrero Armas Armas Swords Espadas kat$
    ;   msg $,waitmenu Black Weap Weap Swords Swords kat$
       }
     IF #SKILL < 700
      {
       msg $,waitmenu Herrero Armas Armas Swords Espadas daga$
      ; msg $,waitmenu Black Weap Weap Swords Swords dag$
       }
  }

 set #LOBJECTID %ActivadorID
 event macro 17 0
 
 Set %Timeout #SCNT + %tiempoF

 If %ProductoStack = 0
   {
    call apuntar %ProductoFinal -1
    If %1 <> -1
       Call DRAG #FINDID 717 297 ALL
    goto guardomas
   }


 Set %Delay %Timeout - #SCNT
 Set %Delay %Delay * 20
 wait %Delay

findetinker:
 if #contkind in WNF_AECB
    {
     click 46 57 r
     wait 10
    }
 
;Comprobamos la cantidad de MP en la mochila
  Call RecursosEnMochila  
  IF %NecesitoRecargar = SI
  {
      msg $,waitmenu Herrero lote$
      set #LOBJECTID %ActivadorID
      event macro 17 0
      wait 5s
      GuardoMas:
        If %ProductoStack = 1
           {
            call apuntar %ProductoFinal -1
            If %1 = -1
                 exit
            Call DRAG #FINDID 717 297 ALL
            goto guardomas
            }
      exit
   }

goto BucleDeTinker:

