program Autominer;
{.include SRL\SRL.scar}
var
x, y, t, s: integer;
procedure Bankthis;forward;
procedure Minethis;
begin
repeat
if(FindColor(x, y, 9998427, 0, 0, 416, 203))then
MoveMouse(x, y);
wait(500);
ClickMouse(x, y, true);
wait(26000+random(2000));
until(invfull=true) Bankthis;
end;
procedure Bankthis;
begin
if(invfull=true)then
if(Findcolor(t, s, 210511, 0, 0, 449,236))then
MoveMouse(t,s);
wait(500);
ClickMouse(t,s,false);
wait(500);
if(FindObj(t, s, 'Use-quickly', 16777215, 10))then
MoveMouse(t, s);
wait(500);
ClickMouse(t, s, true);
end;
begin
SetupSRL;
repeat
Minethis;
Bankthis;
until(invfull=true);
end.