Проверка стадии квеста по ID

function QuestStage(quest_id: integer): integer;   // возвращает текущую стадию квеста по ID
var i: byte;
begin
  result:= 0;
  for i:= 1 to 32 do if Engine.QuestStatus(quest_id, i) then result:= i;
end;

begin
  Print(QuestStage(622));  // распечатать стадию квеста 
end.