Yoko
http://forum.yoko.com.ua/

добор ингов!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=17082		 Page 1 of 1
Author:  Smith25 [ 2012-10-25 12:28:26 ]
Post subject:  добор ингов!
добрый день!помогите ...
дайте макру чтоб инги из сундука брал и в бекпак кидал...
чтоб брал например 1000 а при 50 открывал сундук и ещо брал...
Помогите-я все утро искал ..не нашол
Author:  Андрюха из Одессы [ 2012-10-25 12:59:55 ]
Post subject:  Re: добор ингов!
Да тут одни жмоты сидят. Пока сам головой не пошуршишь, хрен кто поможет. :roll:
Тут все расписано.
Author:  Smith25 [ 2012-10-26 10:05:07 ]
Post subject:  Re: добор ингов!
прочитал нефига не понял!делал как там. не чего не получилось..ошибка выскакивает.....
дайте может у кого то есть?
Author:  Mirage [ 2012-10-26 10:58:22 ]
Post subject:  Re: добор ингов!
Контейнер достаточно открыть 1 раз. Затем если чар не двигается предмет будет извлекаться даже из закрытого контейнера.
В то место где добирать в своем скрипте вставь строку:

Code:
Get('TYPE ингов', 'ID контейнера откуда брать', '50', '1000')


Если надо что то скинуть (товар, руду, инги)то вставляй

Code:
Put('Type предмета', 'ID контейнера куда кидать')

в конец скрипта добавь:

Code:
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 это простенькие процедуры. Можно самостоятельно модифицировать. Чеклаг думаю найдешь самостоятельно.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/