Code:
program DodianMiner;
{.include SRL/SRL.scar}
var x, y : Integer;
procedure WalkTorock;
begin
makecompass('n')
mouse(639, 42, 1, 1, true)
flag;
mouse(639, 42, 1, 1, true)
flag;
mouse(674, 99, 0, 0, true)
flag;
end;
procedure OpenBankFast1;
begin
lowestangle;
wait(400)
makecompass('E')
wait(500)
if FindColorSpiralTolerance(x, y, 9209226, MSX1, MSY1, MSX2, MSY2, 1) then
begin
MMouse(x, y, 4, 4);
if IsUpTextMulti('ank', 'booth', 'ooth') then
begin
Mouse(x, y, 0, 0, False);
Wait(100);
ChooseOption(x, y, 'uic');
FFlag(0);
Wait(2000 + Random(500));
end;
end;
MakeCompass('n')
highestangle;
end;
procedure WalkToBank;
begin
mouse(255, 188, 0, 0, true)
wait(1000)
mouse(743, 212, 0, 0, true)
wait(1000)
mouse(678, 242, 0, 0, true)
wait(5000)
if(findsymbol(x,y,'bank')) Then
mouse(x,y,1,1,true)
wait(10000+random(2000));
wait(500)
end;
procedure MineRock;
begin
if FindColorSpiralTolerance(x, y, 1451558, MSX1, MSY1, MSX2, MSY2, 1) then
MMouse(x, y, 0, 0);
//will move mouse to the color
if FindColorSpiralTolerance(x, y, 1451558, MSX1, MSY1, MSX2, MSY2, 1) then
Mouse(x, y, 0, 0, True);
//will click the color(True will left click; False will right click)
if existsitem(28) then
end;
procedure depo;
begin
Mouse(718, 463, 0, 0, False);
Wait(100);
ChooseOption(x, y, 'all');
end;
begin
setupsrl;
activateclient;
wait(400);
repeat
walktorock;
minerock:
walktobank;
openbankfast1;
depo;
until (false)
end;
end.