Обмен квест итемов у Ghost of Adventurer

[oReWo]

procedure dialog;
begin
Engine.SetTarget(31538);
Engine.DlgOpen();
Engine.DlgSel(2);
Engine.DlgSel(1);
Engine.DlgSel(2);
delay(300);
end;
begin
while Engine.Status = lsOnline do
begin
dialog;
end;
end.