; Blacksmithy 

sub Blacksmithy() 

VAR Exit=0, LastTimer 
while Exit<>1 
UO.DeleteJournal() 
LastTimer=UO.Timer() 
UO.WaitMenu('Blacksmithing','Armor & Weapons','Armor & Weapons','Ringmail Gloves','Ringmail Gloves') ; 
UO.UseType(0x1BEF) ; 

while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed") 
wait(500) 
wend 

If UO.InJournal("You have failed") then 
repeat 
wait(100) 
until UO.Timer()>=LastTimer+100 ; 
EndIf 

UO.FindType('0x13E3',-1,'backpack') 
wait(500) 

If UO.GetQuantity('finditem') then 
UO.WaitTargetObject('finditem') 
UO.UseObject(0x4024B063) ; 
Endif 

UO.FindType('0x1BEF',-1,'backpack') 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x1BEF','0x0750','0x4004CAE1') ; 
wait(1000) 
UO.Grab('1000','finditem') 
Endif 
wait(1000) 
wend 
end sub

UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0750','0x4004CAE1') ;
wait(1000) 

UO.WaitMenu('Blacksmithing','Armor & Weapons','Armor & Weapons','Ringmail Gloves','Ringmail Gloves') ; 

UO.WaitMenu(
1) 'Blacksmithing','Armor & Weapons',
2) 'Armor & Weapons','Ringmail Gloves',
3) 'Ringmail Gloves','XXXXXXXXXXXXXXX'
) 

UO.WaitMenu( 
1) 'Blacksmithing','Armor & Weapons', 
2) 'Armor & Weapons','Ringmail Gloves', 
3) 'Ringmail Gloves','XXXXXXXXXXXXXXX' 
) 

uo.automenu('Blacksmithing','Colored Armor & Weapons')
uo.automenu('Colored Armor & Weapons','Rusty Ringmail Gloves')

sub BS() 
var Exit=0, LastTimer, 
var idContainer='0x4003A2EA'   ;контейнер с ингами и едой
var idForge='0x40272606'      ;плавилка, на которой будем плавить
var tDagger='0x13FE'         ;тип конечной продукции
var tEat='0x097B'            ;тип поглощаемой еды ;)
var minqIng=10
var i=0 
var qIng=Val(STR((UO.STR*4-UO.Weight+30)/0.6,0))-20 ; сколько ингов подымаешь 
var MenuIron="'Blacksmithing' 'Weapons'" 
var MenuOther="'Colored' 'Weapons'" 
var MenuSwords="Weapons' 'Swords'" 
var MenuDagger="'Swords' 'Dagger'"
DIM cIng[6] 
DIM nIng[6] 
DIM tIng[6]
   nIng[0]="'Rusty " 
   nIng[1]="'Old Copper " 
   nIng[2]="'Dull Copper " 
   nIng[3]="'Copper "
   nIng[4]="'Bronze " 
   nIng[5]="'Silver " 
   cIng[0]='0x0750' ; Rusty 
   cIng[1]='0x0590' ; Old Copper 
   cIng[2]='0x060A' ; Dull Copper 
   cIng[3]='0x0000' ; Copper
   cIng[4]='0x0488' ; Bronze
   cIng[5]='0x0000' ; Silver
   tIng[0]='0x1BEF'
   tIng[1]='0x1BEF'
   tIng[2]='0x1BEF'
   tIng[3]='0x1BE3'
   tIng[4]='0x1BEF'
   tIng[5]='0x1BF5'
   UO.CancelMenu()
   UO.UnSetReceivingContainer()
   for i = 0 to 5
      Exit=0
      UO.UseObject(idContainer)
      wait(500)
      CheckLag()      
      UO.FindType(tIng[i],cIng[i],idContainer) 
      if UO.GetQuantity('finditem')>10 Then
         UO.Grab(STR(qIng),'finditem') 
         wait(1000) 
         CheckLag() 
         UO.Exec('automenu '+MenuDagger) 
         UO.Exec('automenu '+nIng[i]+MenuSwords) 
         UO.Exec('automenu '+MenuOther) 
         UO.Exec('automenu '+MenuIron)   
         while Exit<>1
            UO.DeleteJournal() 
            LastTimer=UO.Timer() 
            UO.UseType(tIng[i],cIng[i])
            while not UO.InJournal("You put") and not UO.InJournal("You have failed") 
               wait(100) 
            wend 
            if UO.InJournal("You have failed") then 
               repeat 
                  wait(100) 
               until UO.Timer()>=LastTimer+100
            end if
            CheckLag()
            UO.FindType(tDagger,-1,'backpack') 
            if UO.GetQuantity('finditem') then 
               UO.WaitTargetObject('finditem') 
               UO.UseObject(idForge)
               wait(3000) 
            end if           
            if UO.Count(tIng[i],cIng[i]) < 10 Then 
               UO.FindType(tIng[i],cIng[i],'backpack')
               UO.MoveItem('finditem','-1',idContainer)
               wait(1000)
               UO.FindType(tIng[i],cIng[i],idContainer) 
               if UO.GetQuantity('finditem')<10 Then                
                  Exit=1 
               else
                  UO.Grab(STR(qIng-10),'finditem') 
                  wait(1000) 
               end if
               ToEat(idContainer, tEat)
               CheckLag()
            end if          
         wend             
         UO.CancelMenu() 
      end if
   next  
end sub

sub ToEat(idContainer, tEat)
   UO.FindType(tEat, '0x0000', idContainer)
   if UO.FindCount() > 0 then
      UO.MoveItem('finditem','20','backpack')
   else
      return
   end if
   repeat    
      CheckLag()
      UO.UseType(tEat, '0x0000')
      while not UO.InJournal("can't") and not UO.InJournal('full') and not UO.InJournal('stuffed') and not UO.InJournal('hungry') and not UO.InJournal('satiated') and not UO.Dead()
         wait(100)
      wend
   until UO.InJournal('too full') or UO.Dead() or UO.InJournal("can't")
   UO.FindType(tEat, '0x0000','backpack')
   if UO.FindCount() > 0 then
      UO.MoveItem('finditem',-1,idContainer)    
   end if
   Spirit()
end sub      

sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(50) 
   until UO.InJournal('backpack') 
end sub

sub Spirit()
   UO.DeleteJournal()
   UO.UseSkill("Spirit Speak")
   while not UO.InJournal("You establish") and not UO.InJournal("netherworld")
      wait(300)
   wend
end sub