program AutoCamelotTeleporter;
Var
ToTeleport, Teleported : Integer;
begin
ToTeleport := StrToIntDef(ReadLn('How many times do you want to teleport?'), -1);
If ToTeleport <= 0 Then
Begin
Writeln('Invalid amount of teleports!');
TerminateScript;
End;
ClickWindMouse(746, 186, 5, 5, True);
Wait(500 + Random(500));
ClickWindMouse(722, 451, 5, 5, True);
Wait(500 + Random(500));
Repeat
ClickWindMouse(575, 255, 5, 5, True);
Wait(2500 + Random(1500));
Teleported := Teleported + 1;
Writeln('Teleports: ' + IntToStr(Teleported));
Until ToTeleport = Teleported;
Writeln('Done!');
end.