sub perebros()
   var OreBox = '0x40483CE8'
   var HiOreBox = '0x40483CDE'
var b, v, q
var kol = 200
   DIM Ore[4]
   Ore[0]='0x19B9' ; 1 ore
   Ore[1]='0x19BA' ; 2 ore
   Ore[2]='0x19B8' ; 3 ore
   Ore[3]='0x19B7' ; >3 ore
   dim Colors[6]
   Colors[0]="0x0193" ; Gorgan
   Colors[1]="0x0014" ; Steel
   Colors[3]="0x0032" ; Eldar
   Colors[4]="0x0482" ; Plut
   Colors[5]="0x0488" ; Plut
   UO.UseObject(OreBox)
   wait(1000)
   For b=0 to 3
   For v=0 to 5
UO.FindType(Ore[b],Colors[v],'beckpack')
while uo.findcount()
UO.MoveItem(Ore[b],Colors[v], OreBox)
wait(900)
UO.FindType(Ore[b],Colors[v],'beckpack')
wend
end sub