Yoko

sub kykaracha()
var i,p
var sunduk1='00000000'
var sunduk2='00000000'
var meshok='0000'
var n=7 ; сколько типов регов
dim reg[10]
 reg[1]='0000'
 reg[2]='0000'
 ...
 reg[7]='0000'
uo.useobject(sunduk1)
wait(500)
uo.useobject(sunduk2)
wait(500)
while not uo.dead()
 uo.findtype(meshok,'-1',sunduk2)
 p=uo.getserial('finditem')
 uo.moveitem(p,'1','backpack')
 wait(700)
 for i=1 to n
  uo.findtype(reg[i],'-1',sunduk1)
  uo.moveitem('finditem','100',p)
  wait(700)
 next
 uo.moveitem(p,'1',sunduk1)
wend
endsub