var
    obj: TL2NPC;
const
    //StartNPC = 32498; // 61
    StartNPC = 32499;  // 73
begin
    Engine.SetTarget (StartNPC);
    while (Engine.delay (900)) do
    begin
        Engine.DlgOpen;
        delay (100);
        Engine.DlgSel (1);
        delay (100);
        Engine.DlgSel (1);
        delay (100);
        Engine.GetNpcList.ByID(StartNPC, obj);
        if ((User.DistTo (obj)) > 200) then
        begin
            Engine.BlinkWindow(true);
            PlaySound('Sounds/sirena.wav',false);
            delay (10000);
            StopSound;
        end;
    end;
end.

begin
while 1<>2 do begin
Engine.SetTarget(32498);
Engine.DlgOpen;
Engine.Delay(100);
Engine.DlgSel(1);
Engine.Delay(100);
Engine.DlgSel(1);
Engine.Delay(100);
Engine.CancelTarget;
end;
end.

begin
while 1<>2 do begin
Engine.DlgOpen();                    // открываем диалог с NPC
Engine.DlgSel(1);                    //  выбираем строчку под номером 1 (меняем как нада)
Engine.DlgSel(1);                    //  выбираем строчку под номером 1 (меняем как нада)
end;
end.