Simba Code:
program new;
{$i SRL/osr.simba}
var
FSlots: TBoxArray;
fbounds: tbox;
i, j, k,l,m,x,y,timer: integer;
BMP: TMufasaBitmap;
mouseloc, mouseloc2, mouseloc3: tpoint;
failsafe: tstopwatch;
begin
repeat
if not findcolortolerance(x, y, 3377414, 4,20,100, 125,20) and mainscreen.IsUpText('ran') then
begin
waitex(300,80);
if not findcolortolerance(x, y, 3377414, 4,20,100, 125,20) and mainscreen.IsUpText('ran') then
begin
mouse.click(1);
waituntil(findcolortolerance(x, y, 3377414, 4,20,100, 125,20),50,300000);
writeln('foundcolor timer');
waituntil(not findcolortolerance(x, y, 3377414, 4,20,100, 125,20),50,300000);
writeln('notfoundcolortimer');
wait(5000,5900,wdleft);
end;
end;
until (false)
end.