program ClickMouse;

var x, y: integer;

procedure workcunt;
begin
repeat
  ClickMouse(x, y, mouse_left);
wait(randomRange(80 + random(50), 200 + random(50)));
  until(FindColorTolerance(x, y, 5457470  , 135, 153, 603, 389, 5));
      if (FindColorTolerance(x, y, 5457470  , 135, 153, 603, 389, 5))  then ;
 wait(randomRange(400 + random(50), 600 + random(50)));
end;

begin
repeat workcunt;
 wait(randomRange(1000 + random(50), 600 + random(50)));
 until(false)
 end.