UO.SetReceivingContainer()
UO.Grab()

sub bs()
VAR ingots=' ' ; инги
VAR colour=' '   ; цвет ингов
VAR sunduk=' '  ; сундук где лежат инги
VAR k , i

; В плейт вставляй типы того что куешь(шлем, грудь ... )
    DIM Plate[6]
    
  Plate[0]=''
  Plate[1]=''
  Plate[2]=''
  Plate[3]=''
  Plate[4]=''
  Plate[5]=''
  while not uo.Dead()  
    k = 0
    for i = 0 to 5
    while NOT ( k = 10 )
        uo.DeleteJournal()
        UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger') ;×òî êóåì       
        UO.UseType(ingots)
        while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed") 
            wait(500) 
        wend
        if uo.InJournal('You put') then
            k = k + 1
        end
        UO.FindType(Plate[i],-1,'backpack') 
        wait(500)
        If uo.Count(Plate[i]) == 10 then 
          
    ; Перекладка
         
        Endif 
        UO.FindType(ingots,-1,'backpack') 
        If UO.GetQuantity('finditem')<10 then 
            UO.FindType(ingots,colour,sunduk) ;Cóíäóê ñ èíãàìè 
            wait(1000) 
            UO.Grab('1000','finditem') 
        end if
    wend   
  wend
end sub