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

Кач 1-24 HF


Zanoza

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

  • 2 года спустя...

 

Engine.SetTarget(30050);   // Элиас
  Delay(2000);
  Engine.DlgOpen;
  Delay(2000); 
  Engine.BypassToServer('npc_268450327_Quest');
  Delay(2000);
  Engine.DlgSel(1);     // проверено не работает
  Delay(2000);
  Engine.BypassToServer('00'); // проверено не работает
  Delay(2000);
  Engine.BypassToServer('Say you will help'); // проверено не работает

 Delay(2000);

Engine.BypassToServer('"Say you will help"'); // проверено не работает

 Delay(2000);

Engine.BypassToServer('Quest _151_CureForFeverDisease 30050-03'); // проверено не работает, 30050-03 выводит в системный чат

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

<html><body>Elias:<br>
I am Elias, one of the teachers from the Einhovant's School of Wizardry. My students and I went to the forest to the north of the island on a field trip recently, but some of my students have fallen ill with a <font color="LEVEL">strange fever</font>. It has been more than a week since they became ill, but we have yet to find a treatment. I am going crazy with worry that my students may die.<br>
Thankfully, the Priest Yohanes has created a medicine, but he is running short on ingredients. Will you not go and gather the <font color="LEVEL">necessary ingredients</font> for my dying students? Your aid is urgently needed. We need the <font color="LEVEL">Poison Sac of the giant spider</font>, and I am asking you because I trust that someone of your abilities can easily manage this task.<br>
<a action="bypass -h Quest _151_CureForFeverDisease 30050-03.htm">Say you will help</a>
</body></html>

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

ДЛя подстчёта итемов лучше так делать :

 

function ItemCount(id: integer): int64;  overload;     // подсчет кол-ва итемов по ID
var i: integer;
begin
  result:= 0;                                          
  for i:= 0 to Inventory.User.Count-1 do begin         // пробегаемся по инвентарю юзера
    if (Inventory.User.Items(i).ID = id) then          // если id совпали, то
      Inc(result, Inventory.User.Items(i).Count);      // увеличиваем результат на кол-во предметов в стаке
  end; 
  for i:= 0 to Inventory.Quest.Count-1 do begin        // аналогично для квестового инвентаря
    if (Inventory.Quest.Items(i).ID = id) then
      Inc(result, Inventory.Quest.Items(i).Count); 
  end;
end;

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

Оооо вы некрофилией какой занимаетесь. Пост 2+ летней давности и с того момента было несколько стартов и смены сборок и разумеется ничего рАботать не будет

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

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

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

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

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

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

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

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

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

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