mining [PRSC] Iron Power Miner

[Amberleaf]

Very basic iron power miner tried and tested at east Varrock site. Hope this is useful to somebody.

 

F12 to stop the script.

 

[sCAR]//IronPowerMiner

//Amberleaf

//Visit http://www.scar-divi.com for more scripts

 

{.include OSI\OSI.scar}

 

const

iron = 1448481;

iron1 = 1514016;

iron2 = 1053724;

iron3 = 922396;

iron4 = 790293;

iron5 = 592656;

iron6 = 1185051;

iron7 = 1711653;

iron8 = 1053465;

 

procedure ScriptTerminate;

begin

FreeOSI;

end;

 

procedure MineIron;

var x, y, x1, y1: Integer;

begin

If FindColorSpiral(237, 159, x, y, iron, 147, 84, 337, 209) then

begin

MMouse(x, y, 0, 0);

Wait(50);

WriteLn('found iron');

GetMousePos(x1, y1);

If FindColor(x, y, 16776960, 12, 12, 12, 12) then

Mouse(x1, y1, 0, 0, True);

Wait(RandomRange(1500, 3000));

end;

If FindColorSpiral(237, 159, x, y, iron1, 147, 84, 337, 209) then

begin

MMouse(x, y, 0, 0);

Wait(50);

WriteLn('found iron1');

GetMousePos(x1, y1);

If FindColor(x, y, 16776960, 12, 12, 12, 12) then

Mouse(x1, y1, 0, 0, True);

Wait(RandomRange(1500, 4000));

end;

If FindColorSpiral(237, 159, x, y, iron2, 147, 84, 337, 209) then

begin

MMouse(x, y, 0, 0);

Wait(50);

WriteLn('found iron2');

GetMousePos(x1, y1);

If FindColor(x, y, 16776960, 12, 12, 12, 12) then

Mouse(x1, y1, 0, 0, True);

Wait(RandomRange(1500, 4000));

end;

If FindColorSpiral(237, 159, x, y, iron3, 147, 84, 337, 209) then

begin

MMouse(x, y, 0, 0);

Wait(50);

WriteLn('found iron3');

GetMousePos(x1, y1);

If FindColor(x, y, 16776960, 12, 12, 12, 12) then

Mouse(x1, y1, 0, 0, True);

Wait(RandomRange(1500, 4000));

end;

If FindColorSpiral(237, 159, x, y, iron4, 147, 84, 337, 209) then

begin

MMouse(x, y, 0, 0);

Wait(50);

WriteLn('found iron4');

GetMousePos(x1, y1);

If FindColor(x, y, 16776960, 12, 12, 12, 12) then

Mouse(x1, y1, 0, 0, True);

Wait(RandomRange(1500, 4000));

end;

If FindColorSpiral(237, 159, x, y, iron5, 147, 84, 337, 209) then

begin

MMouse(x, y, 0, 0);

Wait(50);

WriteLn('found iron5');

GetMousePos(x1, y1);

If FindColor(x, y, 16776960, 12, 12, 12, 12) then

Mouse(x1, y1, 0, 0, True);

Wait(RandomRange(1500, 4000));

end;

If FindColorSpiral(237, 159, x, y, iron6, 147, 84, 337, 209) then

begin

MMouse(x, y, 0, 0);

Wait(50);

WriteLn('found iron6');

GetMousePos(x1, y1);

If FindColor(x, y, 16776960, 12, 12, 12, 12) then

Mouse(x1, y1, 0, 0, True);

Wait(RandomRange(1500, 4000));

end;

If FindColorSpiral(237, 159, x, y, iron7, 147, 84, 337, 209) then

begin

MMouse(x, y, 0, 0);

Wait(50);

WriteLn('found iron7');

GetMousePos(x1, y1);

If FindColor(x, y, 16776960, 12, 12, 12, 12) then

Mouse(x1, y1, 0, 0, True);

Wait(RandomRange(1500, 4000));

end;

If FindColorSpiral(237, 159, x, y, iron8, 147, 84, 337, 209) then

begin

MMouse(x, y, 0, 0);

Wait(50);

WriteLn('found iron8');

GetMousePos(x1, y1);

If FindColor(x, y, 16776960, 12, 12, 12, 12) then

Mouse(x1, y1, 0, 0, True);

Wait(RandomRange(1500, 4000));

end;

end;

 

 

begin

SetUpOSI;

repeat

MineIron;

until GetKeyState(VK_F12);

end.

 

 

[/sCAR]

[Toby1]

Tyvm!!!!