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