sub SmeltTrush()
var tType, Forge='0x4015F387'
   UO.Print('Откуда тырим?')
   uo.addobject('objFrom') 
   while uo.Targeting() 
      wait(200) 
   wend
   UO.UseObject('objFrom')
   UO.Print('Что брать то?')
   uo.addobject('objType') 
   while uo.Targeting() 
      wait(200) 
   wend
   tType = uo.GetGraphic('objType')
   UO.Findtype(tType,'-1','objFrom')
   while UO.GetQuantity('finditem')>0
      UO.MoveItem('finditem',-1,'backpack')      
      CheckLag()
      UO.FindType(tType,-1,'backpack') 
      If UO.GetQuantity('finditem') then 
         UO.WaitTargetObject('finditem') 
         UO.UseObject(Forge)
         wait(3000)
         CheckLag()
      Endif
      if UO.Weight > UO.STR*4 then
         UO.FindType('0x1BEF','0x0000','backpack') 
         UO.MoveItem('finditem',-1,'objFrom')
         CheckLag()
      end if
      UO.Findtype(tType,'-1','objFrom')
   wend
end Sub

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

sub smelt()
VAR Forge='0x4015F387'  ; айди форжи
UO.Findtype( '-1', '-1', 'my' )
  While UO.FindCount()
    UO.WaitTargetObject( 'finditem' ) 
    UO.UseObject(Forge) 
    Wait(3000) 
    CheckLag() 
    UO.Findtype( '-1', '-1', 'my' )
  Wend
UO.Print( 'Done!' )
end sub