Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program SwordFish;
- {$i srl/srl.simba}
- //SetupSRL;
- var
- Bank, RawTuna, TunaDeposit, RawSwordfish, SwordfishDeposit, x, y:Integer;
- procedure BankDrop;
- begin
- if FindColorTolerance(x, y, 605777, 224, 65, 284, 138, 15) or //Change color
- FindColorTolerance(x, y, 609125, 224, 65, 284, 138, 15) or //Change color
- FindColorTolerance(x, y, 607323, 224, 65, 284, 138, 15) then //Change color
- begin
- mmouse(x, y, 5, 7);
- wait(250);
- ClickMouse(X, Y, mouse_Right)
- wait(450);
- if FindBitmapToleranceIn(Bank, x, y, 22, 46, 449, 184, 15) then
- begin
- MMouse(x, y, 1, 1);
- wait(550);
- ClickMouse(x, y, mouse_Left);
- end;
- end;
- end;
- procedure TunaDrop;
- begin
- MoveMouse(650, 322)
- if FindDTM(RawTuna, x, y, 563, 206, 739, 459) then
- begin
- writeln('We Found Ze Tuna!');
- MMouse(x, y, 3, 5);
- wait(2000);
- Mouse(x, y, 0, 0, false);
- end;
- end;
- procedure TunaAll;
- begin
- mmouse(x, y,1,1);
- wait(250);
- ClickMouse(X, Y, mouse_Right)
- wait(250);
- if FindBitmapToleranceIn(TunaDeposit, X, Y, 553, 204, 744, 458, 15) then
- begin
- WriteLn('Time to deposit ze Tuna!');
- mmouse(x, y,1,1);
- ClickMouse(X, Y, mouse_Left)
- WriteLn('Tuna has been deposited!');
- end;
- end;
- procedure SwordfishDrop;
- begin
- MoveMouse(650, 322)
- if FindDTM(RawSwordfish, x, y, 563, 206, 739, 459) then
- begin
- WriteLn('We have located the Swordfish');
- MMouse(x, y, 6, 7);
- Wait(2000);
- Mouse(x, y, 0, 0, false);
- end;
- end;
- procedure SwordfishAll;
- begin
- WriteLn('Test');
- mmouse(x, y,1,1);
- wait(250);
- ClickMouse(X, Y, mouse_Right)
- wait(250);
- if FindBitmapToleranceIn(SwordfishDeposit, X, Y, 553, 204, 744, 458, 15) then
- begin
- WriteLn('Time to deposit ze Swordfish!');
- mmouse(x, y,1,1);
- ClickMouse(X, Y, mouse_Left)
- WriteLn('Swordfish has been deposited!');
- end;
- end;
- begin
- SetUpSRL;
- Bank := BitmapFromString(159, 15, 'meJztlV0SwyAIhL1dLtDX3v8Yd' +
- 'trMOAZ2ESSTpk0cHvyJQPZDXR7P5bbbbvtBq5/Ghuc0mGQ081pLb4' +
- 'lkBtuT/nOh362UAofnNJhkNPNVmbVl9G9+pj+YRukIfXW4Sf0Phtv' +
- '7+UW4wwv2hrsL3LptYlfomWNOIND1tmSxWpJw0vYslGm2jQjeYvZG' +
- 't+3sbjdedrY0TMBOyQO39fsm5rWMRjEMcTA0MIF+aehNlzd7c+15z' +
- 'ZFVyJD+XAJbHXBKEycXbhHfF9VgMfhxQDSabAau6MNDDTXXCusoMJ' +
- 'CdgKfPygAKxeA2Xvo0QYWhZYDacD0lF4VrQ2R9djEmITrhwtVeFnE' +
- 'iPID642mbCLELXFhyokrNP9pZc8b3u3CZFHqSSTeEK7ZAP82/8Q2r' +
- 'NFgG/Z3D4MJLVS+F9J8LFJoPwV3Uc2lMDpeYQamhEzjUiYk+zITBn' +
- 'fi7aD8aKDTvDH2kGVL/TcTL2jFS67v6gnBfeg0I7Q==');
- TunaDeposit := BitmapFromString(115, 9, 'meJzdlkESgzAIRTlad16g296pN6' +
- 'aOzDi/fCCpoosyLDCxSXj5UFVVRHSz5flaHeOL3LZw++K4i9Efb11' +
- 'dNrO45UiNS5nbCTHIMmqnitsdAOviFrCNWbM4bwNbw/wDsI6tgnUN' +
- 'ZuvvdgAs9gScckVdP7pxnK1j3ogXyRodN4ewG3Nd85uhYvG1X8FmV' +
- 'Ln3OilmysSfczlwjJcbHoB1yxkNcx/WdQh2cvEabDbFTCzZIdhwJI' +
- 'yxajLZ1xnN567fhsx7wfInQZavo90ItgbOwjsPVsCKVnAS7BK1vpn' +
- 'KvRqsxaG0dsmFUiyugEV7A9iwEt04ds7sxvn/KOznkwf4AMguU+k=');
- SwordfishDeposit := BitmapFromString(153, 9, 'meJzllU0OAyEIhT1ad16g296pN7' +
- 'aTMSFv+HlSo9NFjQuGVkA+wFJKO1d9vo6N8qbdXZSrX9QrGffj3Y5' +
- 'dztXlraEu3xL/DiNd05NDcricI7qbQLkqLT9H2TVf1WTy4reh5Pj+' +
- 'BKV8Cs0M1ujiapw2WKuUkX1ZEyhx0uJPKhX801pWFjLWMkqltygrD' +
- 'MboUioq6yV6sOzILd6raqel/adFKfbnUEYc7RtKUudWCC5+nHuMwh' +
- 'vG4wbvRqXa2dK0ORxmezgtXZRJ4xwlaSuVcBxf7kwmLeYeH8qkzBQ' +
- 'R12MmKlsbPIf5bLfrwuusRWmrMZOuqAZkkxYjRUJk0ss27KhP+ahB' +
- 'ORqS0yjVNNiEsgazyJWRPkEZmXKPr0UZdeXQiEKp0i5t5bYbgW4b8' +
- 'waU7ixSeolZtYAyi2czx90jLgsS25A7d4HyB0wBvi0=');
- // MoveMouse(247, 207); We might not need this, check.
- BankDrop;
- RawTuna := DTMFromString('mwQAAAHic42RgYChgYmBIBeJMIM4D4iIgrgHiRiAuA+IsIH4JVPcaiJ8A8QMgvgWlnwPxGyD+CMS7N24Ekox4MRcDYYDfBAiGAwAS3A5l');
- TunaDrop;
- Wait(1000);
- TunaAll;
- RawSwordfish := DTMFromString('mrAAAAHic42BgYChmYmDIguJ8IC4B4hogrgXiPCDWZGRgMAJiLSBWAmJlRoiYPhQfnnIGaAojTszPgB/g1gnBMAAAu7MHRA==');
- SwordfishDrop;
- SwordfishAll;
- MoveMouse(712, 101);
- FreeBitmap(SwordfishDeposit);
- FreeDTM(RawSwordfish);
- FreeDTM(RawTuna);
- FreeBitmap(Bank);
- FreeBitmap(TunaDeposit);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement