daily pastebin goal
7%
SHARE
TWEET

Untitled

a guest Jan 28th, 2016 54 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. {$I srl/srl.simba}
  2.  
  3. var
  4. x, y:integer;
  5. close:integer;
  6. bob:integer;
  7. trade_bob:integer;
  8. count:integer;
  9. buy_drag:integer;
  10. close_window:integer;
  11. dragonstone:integer;
  12. chisel:integer;
  13.  
  14. const
  15.  
  16. USERNAME = '';
  17. PASSWORD = '';
  18. amount = '28';
  19.  
  20. function IsLoggedIn: boolean;
  21. begin
  22. if findcolortolerance(x, y, 1582121, 729, 127, 751, 138, 20) then
  23. begin
  24. result := true
  25. wait(200)
  26. end
  27. else
  28. begin
  29. result := false
  30. wait(200)
  31. end;
  32. end;
  33.  
  34. procedure LoggingIn;
  35. begin
  36. Close := DTMFromString('mggAAAHicY2NgYLBjYmBwAWJPIHaH0q5AbMTIwKANxAZAbArEOkCsB8TpTIxgnAald3R2MiydM4dBDmgWNsyIA0MAAJtbCN0=');
  37. if FindDTM(close, x, y, 564, 285, 596, 320) then
  38.   begin
  39.   mmouse(x, y, 1, 1);
  40.   wait(randomrange(100, 200));
  41.   clickmouse2(mouse_Left);
  42.   wait(randomrange(150, 250));
  43.   end;
  44.   Wait(200);
  45.   movemouse(546, 341);
  46.   writeln('entering username');
  47.   Wait(200);
  48.   clickmouse(x, y, mouse_left);
  49.   count := 0;
  50.   repeat
  51.     Inc(count);
  52.     PressKey(VK_Back);
  53.   until count > 25;
  54.   Wait(250);
  55.   sendkeys(USERNAME, 0, 0);
  56.   Wait(1000);
  57.   writeln('entering password');
  58.   movemouse(549, 393);
  59.   Wait(200);
  60.   clickmouse(x, y, Mouse_left);
  61.   Wait(200);
  62.   count := 0;
  63.   repeat
  64.     PressKey(VK_Back);
  65.     Inc(count);
  66.   until count > 25
  67.   sendkeys(PASSWORD, 50, 25);
  68.   writeln('logging in');
  69.   Wait(1000);
  70.   movemouse(437, 443);
  71.   Wait(1000);
  72.   ClickMouse(x, y, mouse_left);
  73.   Wait(6000);
  74.   writeln('logged in! (?)')
  75.   freedtm(close);
  76. end;
  77.  
  78. function bob_screen: boolean;
  79. begin
  80. if findcolortolerance(x, y, 1210381, 76, 157, 100, 176, 15) then
  81. begin
  82. result := true
  83. writeln('we are at skilling store')
  84. wait(500)
  85. end
  86. else
  87. begin
  88. result := false
  89. writeln('we are not at skilling store')
  90. wait(500)
  91. end;
  92. end;
  93. function doneinv: boolean;
  94. begin
  95. if not findcolortolerance(x, y, 65536, 646, 432, 675, 457, 40) and
  96. not findcolortolerance(x, y, 8553098, 646, 432, 675, 457, 40) and
  97. not findcolortolerance(x, y, 1645857, 646, 432, 675, 457, 40) then
  98. begin
  99. result := true
  100. writeln('we are at skilling store')
  101. wait(100)
  102. end
  103. else
  104. begin
  105. result := false
  106. wait(100)
  107. end;
  108. end;
  109. procedure findbob;
  110. begin
  111. bob :=DTMFromString('mWAAAAHicY2FgYLgOxVeB+AoQLwbimUA8AYhnAXGUvgLDjAZXBltzc4YaB20GSaAYMmZEwyAAAEnmCcI=');
  112.  
  113.  
  114. trade_bob:=BitmapFromString(39, 11, 'meJxjYGBwD4klBjH8/w9CEABmE6' +
  115.         'keixTpluI3cPBb+h8J4DMEjsAAUwqreqyWQuyCRRd2e3HFKWFxDHv' +
  116.         'RLEVjExO8xLOxWgoHyEFHRUsR0YERvFhtpIWlmJ4lOyHBxfGpR/IU' +
  117.         'AyrAmtRxKcAqTtBAeiIApbvjvg==');
  118.  
  119.  
  120. if findDTM(bob, x, y,211, 140, 241, 184) then
  121. begin
  122.   mmouse(x, y, 1, 1);
  123.   wait(randomrange(100, 200));
  124.   clickmouse2(mouse_right);
  125.   wait(randomrange(150, 250));
  126.   end;
  127. if FindBitmapToleranceIn(trade_bob, X, Y, 158, 143, 293, 237, 145) then
  128.   begin
  129.     mmouse(x, y,1,1);
  130.     wait(250);
  131.     ClickMouse(X, Y, mouse_Left)
  132.     wait(2000)
  133.   end;
  134. end;
  135.  
  136. procedure cut_stones;
  137. begin
  138. if findcolortolerance(x, y, 11908534, 323, 124, 339, 140, 20) then
  139. begin
  140. mmouse(x, y,1,1);
  141.     wait(300);
  142.     ClickMouse(X, Y, mouse_right)
  143.     end;
  144. begin
  145. buy_drag:= BitmapFromString(44, 14, 'meJzNk0EOgDAIBPs0b37Aq3/yx7' +
  146.         'XahGxKWak2rYQDYBrGBUK4bN32iT4dgHi8TcfoyxGTW2kvhqwSxpp' +
  147.         'B6kXaEUMA/sBgzeI7gzXrYiKtDDkW16+wTn4TdagSehhSiu2kKOZn' +
  148.         'eKdD7lKtV9UmU+C3yRlI7GfgWonOKP5gBr1+j32bdhLPwToN/Iprx' +
  149.         'p/7d3KYn3FHwMk=');
  150. if findbitmaptolerancein(buy_drag, x, y, 115, 146, 335, 312, 20) then
  151. begin
  152.     mmouse(x, y,1,1);
  153.     wait(250);
  154.     ClickMouse(X, Y, mouse_Left)
  155.     wait(2000)
  156.     sendkeys(amount, 0, 0)
  157.     wait(500)
  158.     PressKey(13);
  159.     wait(1000)
  160.  
  161. begin
  162. close_window := BitmapFromString(65, 11, 'meJytVVsOwjAM65lgvyC+ENyqR6' +
  163.         'fCwrKcNHTTqgiFtGnsPLrt8d52yvX+glxuTxNurcjs/t77LjB6fsV' +
  164.         'XMcwojHsMbbQUIcbh1to6i3GYyP/61viVwrjHKJjlRAokkvoWbXCM' +
  165.         'AstxOoXo27/LYGARsP1drAK5YBkALIORtnra9vTFLnpMm7n9FvCPX' +
  166.         '5yxWY45n1msjRk0wkiTHIulvqpoFawEJDJrm1opghYKGBmdlII1gO' +
  167.         'WcaTT8WjVG1P45hUJarNksWOuCiBUinXfd1VLOuNSzEM/QiDTa00Q' +
  168.         'dUQBYB4FSFEJnx4xRsaDRYu9nNKZSPJ7FF7l+imdy7AmFfACGqRnu');
  169. if findbitmaptolerancein(close_window, x, y, 415, 29, 498, 45, 20) then
  170. begin
  171.     mmouse(x, y,1,1);
  172.     wait(250);
  173.     ClickMouse(X, Y, mouse_Left)
  174.     wait(1500)
  175.   end;
  176. end;
  177. begin
  178. repeat
  179. dragonstone := DTMFromString('mggAAAHicY2NgYEhhYmBIB+JSIC4G4iwgzgdiRkYGBkEgFgBiJiDmhuIc/h6GZP4GBm+uBAYrNm+GcN58Bj+uNAZJoFnYMCMODAEApU0IRQ==');
  180. chisel := DTMFromString('mWAAAAHicY2FgYNjLxMBwEIgPAfExEJuRgWE/EO8C4q1AbCjLxKAiysCgoqDA4GhtzSAJ1IOMGdEwCAAA+lQIEg==');
  181.  
  182. if findDTM(chisel, x, y, 546, 206, 735, 467) then
  183. mmouse(x, y,1,1);
  184.     wait(100);
  185.     ClickMouse(X, Y, mouse_Left)
  186.     wait(100)
  187.     movemouse(663, 445)
  188.     wait(50)
  189.     clickmouse(x, y, mouse_left);
  190.     until(doneinv);
  191. end;
  192. end;
  193. end;
  194. end;
  195.  
  196.  
  197.  
  198. begin
  199. cleardebug;
  200. mousespeed:= 300
  201. repeat
  202. if (not isloggedin) then
  203. begin
  204. loggingin;
  205. end;
  206. if (isloggedin) then
  207. begin
  208. findbob
  209. cut_stones
  210. end;
  211. until(false)
  212. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top