program New;

var
  a, b, aa, bb: 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);
  getmousepos(a, b);
  repeat
    aa := a-2+random(5);
    bb := b-2+random(5);
    Click(aa, bb, 0, 0, false);
    Wait(70+Random(150));
    Click(aa-2, bb+45, 5, 2, True);
    wait(30+Random(random(100));
  until(false);
end.