• Sky
• Blueberry
• Slate
• Blackcurrant
• Watermelon
• Strawberry
• Orange
• Banana
• Apple
• Emerald
• Chocolate
• Charcoal

## Recommended Posts

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]

Tyvm!!!!

## Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account. ×   Pasted as rich text.   Paste as plain text instead

Only 75 emoji are allowed.

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×

×