sub Sort_Regs()

var Sunduk= #id where are bags
var Sunduk2= #id where to put regs
var bag= #type of bags
var i, bagg

DIM reg[9]

reg[0]= #type of reg
reg[1]= #type of reg
...
reg[8]= #type of reg


uo.FindType(bag,'-1',Sunduk)
while uo.FindCount()
 if uo.FindCount() then
  uo.moveitem('finditem')
  wait(500)
  uo.UseObject('finditem')
  wait(500)
  bagg=uo.GetSerial('finditem')
  for i=0 to 8
    uo.FindType(reg[i],'-1',bagg)
    if uo.FindCount() then
      uo.moveitem('finditem','all',Sunduk2)
      wait(1000)
    end if
    wait(500)
  next
 end if
 uo.FindType(bag,'-1',Sunduk)
wend

end sub