22:27 | 21.11.2017
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Lineage 2 » Adrenalin бот » Скрипты для Adrenalin » Проверка шага квеста
Проверка шага квеста
Sonik · Offline · Дата: Суббота, 05.12.2015, 15:32 | Сообщение # 1

  • Подполковник
  • Сообщений: 143
 
3
 
Код
uses SysUtils;
procedure StatusQ(ID:integer=-1);
Var
i:integer;
stat:string;
begin
  Print('Инфо по квесту '+IntToStr(ID));
  for i:=1 to 32 do
  begin
    if Engine.QuestStatus(ID,i) then stat:='OK' else stat:=' -- ';
    Print('Шаг '+IntToStr(i)+' - '+stat);
  end;
end;

begin
  StatusQ(10323); // вместо 33333 вписываем ID  квеста
end.

Форум » Lineage 2 » Adrenalin бот » Скрипты для Adrenalin » Проверка шага квеста
Страница 1 из 11
Поиск: