sub buyy()
 uo.Buy('Имя buy list'a (->Main->Buy/Sell->Create')
 wait(1000)
 uo.Say('bye')
 wait(1000)
end sub

sub SellToVendor() 
var tProduct = '0x1085'      ;тип товара 
var cProduct = '0x0000'      ;цвет товара 
var sellListName = 'neck'   ;название листа продажи 
var ms = 5         ;кол-во поскольку будем продавать 
var addDealy = 50      ;если не успевает продавать, увеличьте эту цифру 
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 
   wend 
   uo.set('buydelay','0') 
end sub 

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