Advertisement
Guest User

Untitled

a guest
Jul 9th, 2011
116
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.65 KB | None | 0 0
  1. program Autominer;
  2.  
  3. {.include SRL\SRL.scar}
  4.  
  5. var
  6. x, y, t, s: integer;
  7.  
  8. procedure Bankthis;forward;
  9.  
  10. procedure Minethis;
  11. begin
  12. repeat
  13. if(FindColor(x, y, 9998427, 0, 0, 416, 203))then
  14. MoveMouse(x, y);
  15. wait(500);
  16. ClickMouse(x, y, true);
  17. wait(26000+random(2000));
  18. until(invfull=true) Bankthis;
  19. end;
  20.  
  21. procedure Bankthis;
  22. begin
  23. if(invfull=true)then
  24. if(Findcolor(t, s, 210511, 0, 0, 449,236))then
  25. MoveMouse(t,s);
  26. wait(500);
  27. ClickMouse(t,s,false);
  28. wait(500);
  29. if(FindObj(t, s, 'Use-quickly', 16777215, 10))then
  30. MoveMouse(t, s);
  31. wait(500);
  32. ClickMouse(t, s, true);
  33. end;
  34.  
  35.  
  36. begin
  37. SetupSRL;
  38. repeat
  39. Minethis;
  40. Bankthis;
  41. until(invfull=true);
  42. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement