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.64 KB  |  views: 66  |  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, tx, ty: integer;
  7.  
  8.  
  9. procedure Minethis;
  10. begin
  11. repeat
  12. if(FindColor(x, y, 7564869, 0, 0, 416, 203))then
  13. MoveMouse(x, y);
  14. wait(500);
  15. ClickMouse(x, y, true);
  16. wait(26000+random(2000));
  17. until(invfull=true)
  18. end;
  19.  
  20. procedure Bankthis;
  21. begin
  22. if(invfull=true)then
  23. if(Findcolor(tx, ty, 210511, 0, 0 449,236))then
  24. MoveMouse(tx,ty);
  25. wait(500);
  26. ClickMouse(tx,ty,false);
  27. wait(500);
  28. if(FindObjMultiText(tx, ty, 'se-', 'ckly', 'qui', 210511, 10)then
  29. MoveMouse(tx, ty)
  30. wait(500)
  31. ClickMouse(tx, ty, true)
  32. end;
  33.  
  34.  
  35. begin
  36. SetupSRL;
  37. repeat
  38. Minerr;
  39. Bankthis;
  40. until(invfull=true);
  41. end.
clone this paste RAW Paste Data