Yoko

sub Full_Arm() 
VAR IngName,Sunduk,i,Color 
DIM Ing[16] 

Ing[0]="Rusty" 
Ing[1]="copper" 
Ing[2]="Dull Copper" 
Ing[3]="Old Copper" 
Ing[4]="Bronze" 
Ing[5]="Silver" 
Ing[6]="Gold" 
Ing[7]="Shadow" 
Ing[8]="Rose" 
Ing[9]="Agapite" 
Ing[10]="Blood Rock" 
Ing[11]="Verite" 
Ing[12]="Valorite" 
Ing[13]="Mytheril" 
Ing[14]="Black Rock" 
Ing[15]="Obsidian" 
Ing[16]="Plutonium" 

   UO.Set('quiet', "0") 
   UO.Print("Из чего делаем?") 
    UO.AddType('FullarmING') 
   While UO.Targeting() 
      wait(100) 
   wend 
   Color=UO.GetColor('lasttarget') 
   UO.DeleteJournal() 
   UO.Click('lasttarget') 
   UO.Set('quiet', "1") 
   while NOT UO.InJournal("ngot") AND NOT UO.InJournal("Agapite") 
      wait(100) 
   wend 
   for i=0 to 16 
      If UO.InJournal(Ing[i]) then 
         IngName=Ing[i] 
         If IngName=="copper" then
  IngName="Copper" 
         endif 
      endif 
   next 
   While UO.Count('FullarmING',Color)>=145 AND UO.Count('0x0E76','0x0000')>0 
      UO.FindType('0x0E76','0x0000','backpack') 
      UO.SetCatchBag('finditem') 
      bsarm(IngName,Color) 
      wait(1000) 
      UO.UnSetCatchBag() 
      wait (500) 
      UO.MoveItem('finditem','1','backpack',"150","50","0") 
      wait (500) 
      UO.Ignore('finditem','on') 
   wend 
  UO.Set('quiet', "0") 
end sub 

sub bsarm(IngName,Color) 
   VAR i,Exit 
   DIM Bs[7] 

   Bs[0]='Platemail (25' 
   Bs[1]='Platemail Legs' 
   Bs[2]='Platemail Arms' 
   Bs[3]='Platemail Gauntlets' 
   Bs[4]='Plate Helm' 
   Bs[5]='Platemail Gorget' 
   Bs[6]='Heater' 

   For i=0 to 6 
      UO.CancelMenu() 
      UO.AutoMenu(IngName+' Plate',Bs[i]) 
      UO.AutoMenu(IngName+' Armor','Plate') 
     UO.AutoMenu('Colored','Armor') 
      UO.AutoMenu('Blacksmithing','Colored') 
      repeat 
         UO.DeleteJournal() 
         UO.UseType('FullarmING',Color) 
         while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed") 
            wait(500) 
         wend 
      until UO.InJournal("You put") 
   Next 
   UO.CancelMenu() 
end sub