Page 1 of 1
добор ингов!
Posted: 2012-10-25 12:28:26
by Smith25
добрый день!помогите ...
дайте макру чтоб инги из сундука брал и в бекпак кидал...
чтоб брал например 1000 а при 50 открывал сундук и ещо брал...
Помогите-я все утро искал ..не нашол
Re: добор ингов!
Posted: 2012-10-25 12:59:55
by Андрюха из Одессы
Да тут одни жмоты сидят. Пока сам головой не пошуршишь, хрен кто поможет.
Тут все расписано.
Re: добор ингов!
Posted: 2012-10-26 10:05:07
by Smith25
прочитал нефига не понял!делал как там. не чего не получилось..ошибка выскакивает.....
дайте может у кого то есть?
Re: добор ингов!
Posted: 2012-10-26 10:58:22
by Mirage
Контейнер достаточно открыть 1 раз. Затем если чар не двигается предмет будет извлекаться даже из закрытого контейнера.
В то место где добирать в своем скрипте вставь строку:
Code: Select all
Get('TYPE ингов', 'ID контейнера откуда брать', '50', '1000')
Если надо что то скинуть (товар, руду, инги)то вставляй
Code: Select all
Put('Type предмета', 'ID контейнера куда кидать')
в конец скрипта добавь:
Code: Select all
Sub GET(item, cont, min, max) ; предмет, откуда, минимум, сколько брать
If UO.Count( item ) < min Then
UO.FindType( item, '-1', cont )
if UO.FindCount() > 0 Then
uo.moveitem('finditem', max, 'backpack')
checklag()
else
UO.CancelMenu()
return
endif
Endif
end sub
Sub PUT(item, cont)
while UO.Count( item ) > 0
UO.FindType( item, -1, -1 )
UO.MoveItem( 'finditem', 0, cont )
checklag()
wend
end sub
PS это простенькие процедуры. Можно самостоятельно модифицировать. Чеклаг думаю найдешь самостоятельно.