I pretty much answered that here:
http://www.srl-forums.com/forum/bigg...5.html?t=13905
Here's your script with a few problems fixed:
ScarScript: By Drunkenoldma
//================================================== ======================//
// -=My Happy go Gay Powerminer=- //
//================================================== ======================//
// By James //
// Its Pretty much useless //
// But it looks pretty //
//================================================== ======================//
program PowerMiner;
{.include SRL/SRL.scar}
var
x, y, i: Integer;
//===========================//Colors//===================================//
const
OreColor= 4879005;// Set the color of the Iron
//===========================//Colors//===================================//
procedure FindOre;
begin
Wait(100+random(200));
if(FindColorTolerance(x,y,OreColor,0,0,600,600, 10)) then
begin
Writeln('Ore Found');
end else
end;
procedure Mine;
begin
if(FindColor(x,y,OreColor,0,0,600,600,10)) then
begin
Wait(100+random(200));
Mouse(x, y, 0, 0, true)
Wait(800+random(200));
end;
end;
//////////MAIN LOOP\\\\\\\\\\
begin
SetupSRL;
i = 0
FindOre;
repeat
Mine;
i = i+1
until(i>10)
end.