sub vkegi()
var Kol, I, Tip       ; Количество
   uo.Exec('addobject Box1')
   while uo.Targeting()
   wait(100)
   wend 
   uo.Exec('addobject Kega')
   while uo.Targeting()
   wait(100)
   wend 
   uo.Exec('addobject obj')
   while uo.Targeting()
   wait(100)
   wend 
    Tip = uo.GetGraphic('obj')
   uo.findtype(Tip,'-1','Box1') 
    wait(300)
    kol =  uo.count(Tip)
    uo.print('naideno-' + str(kol))
    uo.setreceivingcontainer('Kega') 
repeat
      uo.findtype(Tip,'-1','Box1') 
      wait(100)
      UO.GRAB('1','finditem')
      Wait(1000) 
until UO.Journal(0) == "cliloc# 0xA9D9"
end sub