program New;

var
  a, b: Integer;


procedure Click(x, y, rx, ry: Integer; Left: Boolean);
var
  xx, yy, T, OffSetX, OffSetY: Integer;
  D: Extended;
begin
  MoveWindMouse(x, y, rx, ry);
  GetMousePos(xx, yy);
  HoldMouse(xx, yy, Left);
  Wait(30+Random(Random(170)));
  GetMousePos(xx, yy);
  ReleaseMouse(xx, yy, Left);
end;




begin
  Wait(1000);
  repeat
    Wait(50+Random(150));
    getmousepos(a, b);
    Click(a, b, 0, 0, True);
  until(false);
end.