################## 
# Black Smithing # 
################## 
# 
# Ignots on the ground. Smith hammer on the right hand. 
# We're standing near a forge, which we'll target and 
# near ingots. If you can't find ingots - ,set finddistance 10 
# When a quantity of produced item more than 20 -smelthing 
# for ingots. 
# 21.12.06 .Tested on shard Dragon World 
# 
sub BlackSmithingYMD() 
 var IngType=0x1BF2 # Type of ignots to smith 
 var IngColor=0x0000 # Color of ingots to smith 
 var Item=0x1440 # Type of a produced item 
 var hammer=0x13E3
 var k
 uo.AddObject('Forge') 
 while uo.Targeting() 
   wait(100) 
 wend 
 uo.AddObject('Sunduk')
 while uo.Targeting()
   wait(100)
 wend
 uo.UseObject('Sunduk')
 wait(1000)
  while uo.SkillVal('Blacksmithing','1') < 1000 
    uo.DeleteJournal() 
    uo.FindType(IngType,IngColor,'backpack') 
    if not uo.FindCount() || uo.GetQuantity('finditem') < 50 then 
      GetItem(IngType,IngColor,200,'Sunduk','backpack') 
    end if 
    k=0
    uo.waitmenu('Blacksmithing','Weapons','Weapons','Swords','Swords','cutlass')  # Change 
    uo.UseObject('finditem') 
    repeat 
      k=k+1
      wait(100) 
    until uo.InJournal('put') || uo.InJournal('íå ñìîãëè') || k>100 
    if uo.InJournal('put') then 
      uo.FindType(Item,'-1','backpack') 
      if uo.FindCount() > 3 then 
        while uo.FindCount() > 0
          uo.WaitTargetObject('finditem') 
          uo.UseObject('Forge') 
          wait(750) 
          uo.FindType(Item,'-1','backpack') 
        wend 
      end if 
      wait(50) 
      uo.UseType(hammer)
      wait(750)
    end if 
  wend 
end sub 

########### 
# GetItem # 
########### 

sub GetItem(type, color, quantity, where , to) 
  uo.FindType(type,'-1',where) 
  if uo.FindCount() then 
    uo.moveitem('finditem',quantity,to) 
    wait(750) 
  end if 
end sub