sub SellToVendor() 
var tProduct = '0x1086'      ;тип товара 
var cProduct = '0x0000'      ;цвет товара 
var sellListName = 'Necklace'   ;название листа продажи 
var ms = 25         ;кол-во поскольку будем продавать 
var addDealy = 500      ;если не успевает продавать, увеличьте эту цифру 
var bd = ms*350+addDealy   ;system. don't tuch 
   UO.Print('Кому продавать будем?') 
   UO.addobject('vend') 
   while uo.Targeting() 
      wait(200) 
   wend 
   if UO.GetSerial('vend') == UO.GetSerial('self') or UO.GetSerial('vend') == '0x00000000' or UO.GetSerial('vend') == UO.GetSerial('backpack') then 
      UO.Print('Промазал(а) - отключаюсь.') 
   end if    
   uo.set('maxsell',str(ms)) 
   UO.UseObject('backpack')    
   uo.set('buydelay',str(bd)) 
   CheckLag()    
   while UO.Count(tProduct,cProduct) > 0 
      if UO.Count(tProduct,cProduct) < ms then 
         bd = UO.Count(tProduct,cProduct)*350+addDealy 
         uo.set('buydelay',str(bd)) 
         CheckLag() 
      end if 
      uo.sell(sellListName,UO.GetName('vend')) 
      CheckLag() 
      if UO.InJournal("You have nothing I'm interested in") then 
         return 
      end if 
      UO.Say('! <GUARDS> ') 
   wend 
   uo.set('buydelay','0') 
end sub 

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