Code:
program New;
{.Include SRL\SRL.scar}
procedure LookInterested(duration: Integer);
var Colors: array of integer;
cx, cy, cw, ch, c1, c2, start: Integer;
begin
GetClientDimensions(cw, ch);
c1 := GetColor(RandomRange(1, cw), RandomRange(1, ch));
c2 := GetColor(RandomRange(1, cw), RandomRange(1, ch));
MarkTime(start);
while (TimeFromMark(start) - 9000 < duration) do
begin
if (c1 > 10000) then Colors[GetArrayLength(Colors) - 1] := c1;
if (c2 < 10000) then Colors[GetArrayLength(Colors) - 1] := c2;
c1 := GetColor(RandomRange(1, cw), RandomRange(1, ch));
c2 := GetColor(RandomRange(1, cw), RandomRange(1, ch));
end;
while (TimeFromMark(start) < duration) do
begin
FindColorTolerance(cx, cy, Colors[RandomRange(0, GetArrayLength(Colors) - 1)], 0, 0, cw, ch, 10);
MMouse(cx, cy, RandomRange(1, 3), RandomRange(1, 3));
end;
end;
begin
LookInterested(10000);
end.