Ultima Online Antares

sub SellSmelt()
   UO.Set('finddistance', '1')
   var item, bagg, itemID
   var bag = '0x0E76'
   var forge = '0x197E'
   var Tree = '0x11C9'
  
   UO.FindType( forge,-1,'ground')
   If UO.FindCount() > 0 Then
      item=forge
   else
      UO.FindType( Tree ,-1,'ground')
      If UO.FindCount() > 0 Then
         item=Tree
      endif
   endif
   uo.FindType(bag,'-1','backpack')
   If UO.FindCount() > 0 Then
      bagg=uo.GetSerial('finditem')
      uo.UseObject('finditem')
      wait(400)
   else
      uo.print ('Нет мешка')
      return
   endif
   UO.FindType('-1','-1',bagg)
   if UO.FindCount() then
      while UO.FindCount()
         itemID=uo.GetSerial('finditem')
         uo.moveitem('finditem','1','backpack',100,100,0)
         wait(500); Можно и меньше но не нужно.
         UO.DeleteJournal()
         uo.WaitTargetObject(itemID)
         UO.UseFromGround( item )
         while not UO.InJournal('smelt|put|is consumed|fire is not|положили|получили|see the target')
            wait(100)
         wend
         UO.FindType('-1','-1',bagg)
      wend
   end if
end sub