This week only. Pastebin PRO Accounts Christmas Special! Don't miss out!Want more features on Pastebin? Sign Up, it's FREE!
Guest

Untitled

By: a guest on Jul 9th, 2011  |  syntax: None  |  size: 0.65 KB  |  views: 99  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  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.
clone this paste RAW Paste Data