Yoko

sub movereg()
   uo.Print('Откуда брать реги?')
   uo.AddObject('srcbag')
   while uo.Targeting()
      wait(100)
   wend
   uo.Print('Куда ложить реги?')
   uo.AddObject('desbag')
   while uo.Targeting()
      wait(100)
   wend
   for var i = 3960 to 3985
      uo.FindType(i, -1, 'srcbag')
      if uo.FindCount() then
         uo.moveitem('finditem', 100, 'desbag')
         while uo.ContainerOf('finditem') <> uo.GetSerial('desbag')
            wait(100)
         wend
      end if
   next
end sub