Code:
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