добор ингов!

[Smith25]

добрый день!помогите ...
дайте макру чтоб инги из сундука брал и в бекпак кидал...
чтоб брал например 1000 а при 50 открывал сундук и ещо брал...
Помогите-я все утро искал ..не нашол

[Андрюха из Одессы]

Да тут одни жмоты сидят. Пока сам головой не пошуршишь, хрен кто поможет.
Тут все расписано.

[Smith25]

прочитал нефига не понял!делал как там. не чего не получилось..ошибка выскакивает.....
дайте может у кого то есть?

[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 это простенькие процедуры. Можно самостоятельно модифицировать. Чеклаг думаю найдешь самостоятельно.