program FrugooScape;
{.include SRL/SRL.scar}
const
TargColor = ; //color of the ranging target(yellow dot in center)
RandomWaitTime = ; //a random amount of time to wait
TimesToClick = ; //amount of times to click the target
dodebug = 2;
Procedure Debug(reason:string); //
begin
case DoDebug of
1: Wait(1);
2: Disguise(reason);
end;
end;
var
i, x, y : integer;
procedure Report;
var TempI:Integer;
begin
ClearDebug;
TempI:= i;
case Random(3) of
0: debug(''+IntToStr(TempI)+' times clicked.');
1: debug(''+TimeRunning);
2: Disguise('iTunes');
end;
Wait(1);
end;
procedure findnclick;
begin
i:= 0;
begin
repeat
i:= i + 1;
if(FindColor(x,y,targcolor,100,100,800,800)) then //finds targetcolor
begin
wait(300 +(randomwaittime)) //this is where the waittime comes in
movemousesmooth(x,y);
report;
wait(500+random(100)); //another random wait
clickmouse(x,y,true);
end;
until(not(findcolor(x,y,targcolor,100,100,800,800) ));
end;
end;
begin
cleardebug;
setupsrl;
case Random(1) of
0: Disguise('iTunes');
end;
repeat
findnclick;
until(false);
end.