Page 1 of 1

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

Posted: 2006-02-09 14:21:36
by PIKACHU_Bayt
Я конешно всё понимаю. Что постить много не желательно. Но я смарел скрипт на перекладку, там не то что мне надо. мне надо чтобы он перебрасывал из мешка "regi1" в "regi2" реги до 100.
Зарание спсибо :) :) :D :)

Posted: 2006-02-09 14:41:09
by 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