Помогите с перекладкой

[PIKACHU_Bayt]

Я конешно всё понимаю. Что постить много не желательно. Но я смарел скрипт на перекладку, там не то что мне надо. мне надо чтобы он перебрасывал из мешка "regi1" в "regi2" реги до 100.
Зарание спсибо

[Grin]

Code: Select all

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