Advertisement
Guest User

Nooby Auto Fish

a guest
Jan 18th, 2013
131
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.18 KB | None | 0 0
  1. program SwordFish;
  2. {$i srl/srl.simba}
  3. //SetupSRL;
  4. var
  5. Bank, RawTuna, TunaDeposit, RawSwordfish, SwordfishDeposit, x, y:Integer;
  6. procedure BankDrop;
  7. begin
  8. if FindColorTolerance(x, y, 605777, 224, 65, 284, 138, 15) or //Change color
  9. FindColorTolerance(x, y, 609125, 224, 65, 284, 138, 15) or //Change color
  10. FindColorTolerance(x, y, 607323, 224, 65, 284, 138, 15) then //Change color
  11. begin
  12. mmouse(x, y, 5, 7);
  13. wait(250);
  14. ClickMouse(X, Y, mouse_Right)
  15. wait(450);
  16. if FindBitmapToleranceIn(Bank, x, y, 22, 46, 449, 184, 15) then
  17. begin
  18. MMouse(x, y, 1, 1);
  19. wait(550);
  20. ClickMouse(x, y, mouse_Left);
  21. end;
  22. end;
  23. end;
  24.  
  25.  
  26. procedure TunaDrop;
  27. begin
  28. MoveMouse(650, 322)
  29. if FindDTM(RawTuna, x, y, 563, 206, 739, 459) then
  30. begin
  31. writeln('We Found Ze Tuna!');
  32. MMouse(x, y, 3, 5);
  33. wait(2000);
  34. Mouse(x, y, 0, 0, false);
  35. end;
  36. end;
  37.  
  38. procedure TunaAll;
  39. begin
  40. mmouse(x, y,1,1);
  41. wait(250);
  42. ClickMouse(X, Y, mouse_Right)
  43. wait(250);
  44. if FindBitmapToleranceIn(TunaDeposit, X, Y, 553, 204, 744, 458, 15) then
  45. begin
  46. WriteLn('Time to deposit ze Tuna!');
  47. mmouse(x, y,1,1);
  48. ClickMouse(X, Y, mouse_Left)
  49. WriteLn('Tuna has been deposited!');
  50. end;
  51. end;
  52.  
  53.  
  54. procedure SwordfishDrop;
  55. begin
  56. MoveMouse(650, 322)
  57. if FindDTM(RawSwordfish, x, y, 563, 206, 739, 459) then
  58. begin
  59. WriteLn('We have located the Swordfish');
  60. MMouse(x, y, 6, 7);
  61. Wait(2000);
  62. Mouse(x, y, 0, 0, false);
  63. end;
  64. end;
  65.  
  66. procedure SwordfishAll;
  67. begin
  68. WriteLn('Test');
  69. mmouse(x, y,1,1);
  70. wait(250);
  71. ClickMouse(X, Y, mouse_Right)
  72. wait(250);
  73. if FindBitmapToleranceIn(SwordfishDeposit, X, Y, 553, 204, 744, 458, 15) then
  74. begin
  75. WriteLn('Time to deposit ze Swordfish!');
  76. mmouse(x, y,1,1);
  77. ClickMouse(X, Y, mouse_Left)
  78. WriteLn('Swordfish has been deposited!');
  79. end;
  80. end;
  81.  
  82.  
  83.  
  84. begin
  85. SetUpSRL;
  86. Bank := BitmapFromString(159, 15, 'meJztlV0SwyAIhL1dLtDX3v8Yd' +
  87. 'trMOAZ2ESSTpk0cHvyJQPZDXR7P5bbbbvtBq5/Ghuc0mGQ081pLb4' +
  88. 'lkBtuT/nOh362UAofnNJhkNPNVmbVl9G9+pj+YRukIfXW4Sf0Phtv' +
  89. '7+UW4wwv2hrsL3LptYlfomWNOIND1tmSxWpJw0vYslGm2jQjeYvZG' +
  90. 't+3sbjdedrY0TMBOyQO39fsm5rWMRjEMcTA0MIF+aehNlzd7c+15z' +
  91. 'ZFVyJD+XAJbHXBKEycXbhHfF9VgMfhxQDSabAau6MNDDTXXCusoMJ' +
  92. 'CdgKfPygAKxeA2Xvo0QYWhZYDacD0lF4VrQ2R9djEmITrhwtVeFnE' +
  93. 'iPID642mbCLELXFhyokrNP9pZc8b3u3CZFHqSSTeEK7ZAP82/8Q2r' +
  94. 'NFgG/Z3D4MJLVS+F9J8LFJoPwV3Uc2lMDpeYQamhEzjUiYk+zITBn' +
  95. 'fi7aD8aKDTvDH2kGVL/TcTL2jFS67v6gnBfeg0I7Q==');
  96.  
  97. TunaDeposit := BitmapFromString(115, 9, 'meJzdlkESgzAIRTlad16g296pN6' +
  98. 'aOzDi/fCCpoosyLDCxSXj5UFVVRHSz5flaHeOL3LZw++K4i9Efb11' +
  99. 'dNrO45UiNS5nbCTHIMmqnitsdAOviFrCNWbM4bwNbw/wDsI6tgnUN' +
  100. 'ZuvvdgAs9gScckVdP7pxnK1j3ogXyRodN4ewG3Nd85uhYvG1X8FmV' +
  101. 'Ln3OilmysSfczlwjJcbHoB1yxkNcx/WdQh2cvEabDbFTCzZIdhwJI' +
  102. 'yxajLZ1xnN567fhsx7wfInQZavo90ItgbOwjsPVsCKVnAS7BK1vpn' +
  103. 'KvRqsxaG0dsmFUiyugEV7A9iwEt04ds7sxvn/KOznkwf4AMguU+k=');
  104. SwordfishDeposit := BitmapFromString(153, 9, 'meJzllU0OAyEIhT1ad16g296pN7' +
  105. 'aTMSFv+HlSo9NFjQuGVkA+wFJKO1d9vo6N8qbdXZSrX9QrGffj3Y5' +
  106. 'dztXlraEu3xL/DiNd05NDcricI7qbQLkqLT9H2TVf1WTy4reh5Pj+' +
  107. 'BKV8Cs0M1ujiapw2WKuUkX1ZEyhx0uJPKhX801pWFjLWMkqltygrD' +
  108. 'MboUioq6yV6sOzILd6raqel/adFKfbnUEYc7RtKUudWCC5+nHuMwh' +
  109. 'vG4wbvRqXa2dK0ORxmezgtXZRJ4xwlaSuVcBxf7kwmLeYeH8qkzBQ' +
  110. 'R12MmKlsbPIf5bLfrwuusRWmrMZOuqAZkkxYjRUJk0ss27KhP+ahB' +
  111. 'ORqS0yjVNNiEsgazyJWRPkEZmXKPr0UZdeXQiEKp0i5t5bYbgW4b8' +
  112. 'waU7ixSeolZtYAyi2czx90jLgsS25A7d4HyB0wBvi0=');
  113. // MoveMouse(247, 207); We might not need this, check.
  114. BankDrop;
  115. RawTuna := DTMFromString('mwQAAAHic42RgYChgYmBIBeJMIM4D4iIgrgHiRiAuA+IsIH4JVPcaiJ8A8QMgvgWlnwPxGyD+CMS7N24Ekox4MRcDYYDfBAiGAwAS3A5l');
  116. TunaDrop;
  117. Wait(1000);
  118. TunaAll;
  119. RawSwordfish := DTMFromString('mrAAAAHic42BgYChmYmDIguJ8IC4B4hogrgXiPCDWZGRgMAJiLSBWAmJlRoiYPhQfnnIGaAojTszPgB/g1gnBMAAAu7MHRA==');
  120. SwordfishDrop;
  121. SwordfishAll;
  122. MoveMouse(712, 101);
  123. FreeBitmap(SwordfishDeposit);
  124. FreeDTM(RawSwordfish);
  125. FreeDTM(RawTuna);
  126. FreeBitmap(Bank);
  127. FreeBitmap(TunaDeposit);
  128. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement