SCAR Code:
procedure MineWay1;
begin
failsafes;
repeat
P:=0
repeat
P:=P+1
wait(250+random(100));
until(FindColorTolerance(x,y,rockcolour,20,20,490,326,5))or(FindColorTolerance(x,y,rockcolour1,20,20,490,326,5))or(P=50)
if(P=50)then
begin
writeln('no rocks');
NextPlayer(False);
end;
if(FindColorTolerance(x,y,rockcolour,20,20,490,326,5))or(FindColorTolerance(x,y,rockcolour1,20,20,490,326,5))then
MMouse(x,y,0,0);
if(isuptext('ake'))then
Mouse(x,y,100,100,true);
if(IsUpText('ine'))then
begin
wait(100+random(50));
Mouse(x,y,0,0,true);
wait(1150+random(450));
Q:=0
repeat
Q:=Q+1
wait(100+random(100));
until(finddtm(mine,x1,y1,11,403,145,455))or(finddtm(nomine,x2,y2,11,403,145,455))or(Q=20)
wait(500+random(500));
end;
Q:=0
until(InvFull);
end;