SCAR Code:
program AutoMinerTutorial;
{.include SRL/SRL.scar}
Const
rockwait = 1000;
rockcolor1 = 2042951;
rockcolor2 = 2174539;
rockcolor3 = 1910334;
rockcolor4 = 1515315;
rockcolor5 = 2371407;
rockcolor6 = 1712440;
rockcolor7 = 1120040;
rockcolor8 = 527642;
rockcolor9 = 2898527;
rockcolor10 = 2503507;
rockcolor11 = 857121;
rockcolor12 = 1318190;
procedure MineOre;
begin
if FindColorSpiralTolerance(x, y, rockcolor1, msx1, msy1, msx2, msy2, 15) or
FindColorSpiralTolerance(x, y, rockcolor2, msx1, msy1, msx2, msy2, 15) or
FindColorSpiralTolerance(x, y, rockcolor3, msx1, msy1, msx2, msy2, 15) or
FindColorSpiralTolerance(x, y, rockcolor4, msx1, msy1, msx2, msy2, 15) or
FindColorSpiralTolerance(x, y, rockcolor5, msx1, msy1, msx2, msy2, 15) or
FindColorSpiralTolerance(x, y, rockcolor6, msx1, msy1, msx2, msy2, 15) or
FindColorSpiralTolerance(x, y, rockcolor7, msx1, msy1, msx2, msy2, 15) or
FindColorSpiralTolerance(x, y, rockcolor8, msx1, msy1, msx2, msy2, 15) or
FindColorSpiralTolerance(x, y, rockcolor9, msx1, msy1, msx2, msy2, 15) or
FindColorSpiralTolerance(x, y, rockcolor10, msx1, msy1, msx2, msy2, 15) or
FindColorSpiralTolerance(x, y, rockcolor11, msx1, msy1, msx2, msy2, 15) or
FindColorSpiralTolerance(x, y, rockcolor12, msx1, msy1, msx2, msy2, 15) then
//use TOLERANCE for better finding.
//msx1, msy1, msx2, msy2 = mainscreen cords.
//MoveMouseSmooth(x,y)
//^ NEVER USE!!
MMouse(x, y, 3, 3);
if istextat2(9,9,'Mine',20) then
//ClickMouse(x,y,true) NO AGAIN!
GetMousePos(x, y);
Mouse(x, y, 1, 1, True);
Wait(rockwait + random(1000))
//if (FindColorSpiral(x,y,4942981,907,430,950,469)) then InventoryFull = true //????
//if (InventoryFull = true) then //??
end;
Procedure DropOres;
begin
DropAll;
end;
begin
SetupSRL;
repeat
repeat
if (InvFull) then break;
MineOre;
until(InvFull)
DropOres;
Until(false) //false not falso
end.