Yoko

sub Find() 
UO.Set('finddistance','2') 
var find = '0x0000' 
UO.Findtype(find,-1,1) 
if UO.FindCount()>0 then 
UO.grab ('all','finditem') 
endif 
end sub

sub main() 
Var meshok='0x4037FE09'        #ид мешка
Var vesch= '0x14EB'             # тип вещи

While Not UO.Dead()   
UO.Set('finddistance','3')
UO.FindType(vesch,-1,-1 ) 
UO.Grab(vesch,'finditem' )
wait(600)
while UO.Count(vesch) > 0 
UO.FindType(vesch,-1,1) 
UO.MoveItem('finditem',0,meshok) 
wait(600)
wend 
wend          
end sub

sub main()
    uo.usefromground("0x0000")
end sub