Yoko

Posted: **2006-02-09 14:21:36**

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

Posted: **2006-02-09 14:41:09**

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

Yoko

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

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