Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement