Rift – talk to npc, fight all rooms and start again

Script moves to hero npc, talk, fight all rooms and start again. There is no manual tp (inside of any room). It just letting the minutes to pass…

procedure checkRift;
begin
if (User.InRange(-114821, -179324, -6752, 700)) then begin
    Engine.MoveTo(-114544,-181328, -6752);
    Engine.MoveTo(-114778, -182102, -6752);
    if Engine.SetTarget(31493) then begin
        Engine.DlgOpen;
        Delay(300);
        Engine.DlgSel(1);
    end;
end;

if (User.InRange(-114751, -180570, -6752, 700)) then begin
    Engine.MoveTo(-114465, -179727, -6752);
    Engine.MoveTo(-114356, -180125, -6752);
    Engine.MoveTo(-114466, -180963, -6752);
    Engine.MoveTo(-114778, -182102, -6752);
    if Engine.SetTarget(31493) then begin
        Engine.DlgOpen;
        Delay(300);
        Engine.DlgSel(1);
    end;
end;
end;

Main loop:

begin  
  while true do begin
    Delay(1000);
    if Engine.Status = lsOnline then begin
      checkRift
    end;
  end;
end.

Additional Adrenaline setting:

Author: Velmsun