Перейти к содержанию
LineaAge II Forum L2Corvet

Обмен итемов на ресурсы (Квест Стокато)


GCranK

Рекомендуемые сообщения

Function CheckItemCount (const itemID: Integer; const quest: Boolean = False) : Integer;
var tempItem: TL2Item;
Begin
   if quest then Inventory.Quest.ByID(itemID, tempItem)
   else Inventory.User.ByID(itemID, tempItem);
   Result := tempItem.Count;
End;
Begin
If Engine.SetTarget(31554) then                                  //Берем в таргет нпс "Kahman"
Begin
Engine.MoveToTarget(-20);
Delay(100);
Engine.DlgOpen;
Delay(500);
Engine.DlgSel(1); 
Delay(500);
Engine.DlgSel(2);
Delay(500);
Engine.DlgSel(1);
Delay(500);
end;
While CheckItemCount(8085, True) > 20 do   //проверка итема
Engine.DlgSel(2);                          //тут выставляем номер строки ресурса до 9 (по дефолту стоит сейчас Асоф)
Delay(500);
Engine.DlgSel(2);
Delay(500);
End.

 

Ссылка на комментарий
Поделиться на другие сайты

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.
Примечание: Ваш пост будет проверен модератором, прежде чем станет видимым.

Гость
Ответить в этой теме...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

×
×
  • Создать...