program Fisher;
{$i srl/srl.simba}
var
sell10, tradebit, t, lobssold, loggedin2, login1, login2, checklogin, runs, cage, net, arrow, arrow2, lob, close, x, y: integer;
procedure Proggy;
begin
Writeln('|-------------------------------------------------------------|');
Writeln(' You have been Running for a total of ' + TimeRunning + '');
Writeln(' You made ' + IntToStr(Runs) + ' Runs');
Writeln(' You Caught ' + IntToStr(Runs * 26) + ' Lobsters');
Writeln(' You are making ' + IntToStr(((Runs) * 3600) / (GetTimeRunning / 1000)) + ' Runs per hour!');
Writeln(' You are catching ' + IntToStr(((Runs) * 3600 * 26) / (GetTimeRunning / 1000)) + ' Lobsters Per Hour!');
Writeln('|-------------------------------------------------------------|');
end;
procedure logoutrsps;
begin
Mouse(651, 471, 3, 3, mouse_left);
wait(1200);
Mouse(638, 357, 3, 3, mouse_left);
Proggy;
terminatescript;
end;
procedure DTMZ;
begin
Sell10 := BitmapFromString(44, 11, 'meJytk0EOgDAIBHmat37Aa//kj6' + 'tpI1l3BRuVcABKyhRoWWvrUtaK2k6huOuyNdQobUa9lplR8Ig kGKO' + '0dfmIoQzuOsMthjOQ/UK9kDJEXfqdgYrSIPRUGXAouiqUH7kJg3aJ' + 'LokAdE+oV+TeMowmzDNERzqvQTXJgCvxOAuN45gULGco8jex1 clO5' + 'ruKdYmhXYUwIoD8X0SPxc1B20Tw20YAmKC2XotxtXdarV7B') ;
tradebit := BitmapFromString(63, 12, 'meJztlVEOgCAIhrldF+i1+x+Dtp' + 'juFxHQ5kNbjgf7A/0MMOZmHOe1ZrPhxEzFH+dTRkSyL5XxBj4fLsD' + 'ij/Pd+/7wm+DNFnD6Al/5ixjwaCUWRdO/Kg58bQF8NA+FjeP7919e' + 'nPosVF3DFyoHXjVveycNIZXulJNTNmZGFHkI33/eJGR/0jx8mBFcY' + 'Qp+du5cvyF82NRJ+FHZ5PU8fFg2Cv54flWNbia6Hcu6uUsmdr TOR+' + '0GFrG7oQ==');
loggedin2 := BitmapFromString(21, 14, 'meJyNkk9Lw0AQxeMxl36GXj0I5l' + 'AQghQiISQ0xRY1l0INJVhj/xhrRUT87P7Wt92mIio8ws5m3ps3O+M' + 'Hqd/LLc7GFmFh0Z9YRKVFXAmdbLVcvZgcx/of0U9qMJ+vm6e3I8+L' + '43T/S5m/ElW3rpv14yv07fajqpaEfJEiJEGZBjuWiICiJKMAoBPih' + 'HNZ3qfZJSE63slFkuSbzXsnb9qYzR7IJIHSi8UzdEIOhN7x+W Aw5o' + 'CaH6RI2XMvlyuF6FMIZRqEri4IqTgaFUgB6MPhtXrkSeXEtTy 9vUO' + 'NZ4GCEwRNGKSI8xdQkUzuNR05cS27J4WOE3GhqClYVNxLhYWc 6MZ4' + 'c4OA1docpEgzamGhV1KPcsKNCXdcGjfz/XFz+pO9VFSqrvX5NUS43' + 'e4pXyPy19rISXv6ogsSMTpuWw7XRk5EbHPD7CrKb8A3HeCSD5 A3be' + '4ndAL2fg==');
login1 := BitmapFromString(37, 12, 'meJx9lMEKAjEMRPe7FBRkDyqoF1' + 'Ho1f//Bg0MPGanwRIkbdPMZJJ1PG7D7Hk939fT5XiQlS9jWwGKkbk' + 'ft/LDHOs7LUcUqG85XPc7GCpni9XCLdtFNhFGgSi8ZaKEXqyeBxxk ' + '5gzteStChZEQ2Z0tt8TPLQtudDwYynH+Ovd471ptP+9XGVsCq EJqe' + '2Z/Hod6opxlc+/i3G9J5TSi6V4dY9COCoIILphIYRcqKCFsJETMMn' + 'RzqefqGIaAq1+RaauePwSHo5s+YEHGmfuoeNgfuPYzj75QoFe H75S' + 'ACFnG9k9smRYq6TljwGS673NCRX74A/POK5w=');
checklogin := BitmapFromString(32, 13, 'meJytkstKQmEUhR8gsIthUUYDo7' + 'ILSBB6EhrUIEuSECu1SVBZwokuiqKWDYosu1hWqOG8gu6Eg6B GjQw' + 'iKugBgnqNVm3aHLIbJHzIPr/yrX/to6q8SPVOtbpKYzYZnc7aSqXq' + '4zArQFioEYQx9/Ldw+ZT2j4fQFbW5A11wqBtYncr8fIIv//uAsN46' + 'lDXZkBKWYn8n9hj0fhD+vT5PnZzuBLs9PWq18428YhDFEEKLv AfP1' + 'RHtyfHUYvYWtqiztNXyGw6BR5T10kKnVwN661WBNVohcxGOCE EQft' + 'l3/VIl8ugNDUUttcXMIiIjDbiK3RJpM/RJXR1Kcbi9rmQ2SPiPwA6' + '+t6GHqcH2Lz+4YWlDncg0w8b5ABOTsEM0AjrQsrGjg9BRPRsn wjv7' + 'C0mkmgHhqd9iMYFmow9CrlMCpkJ8vMJZ4ndGgQBlAqPvEEDzg mrQW' + '0esnlj2w5vCHeW+lnOETyTn04w4O1wNel9CEe/BUXQCG/qB/93sIq' + 'WSXH4MxCYB5qLZ4Mu+D9VYAN+8Ktfujo4qRGDBc4EpxaSB3gL +bk5' + 'BGnxibf5xyxenbQOrQ5b4grkhxY28vMs9X+ZJe3C7bAoGFAhE N/lC' + 'q/dBC0r');
login2 := BitmapFromString(34, 14, 'meJyVlMEKwkAMRPtNCiIWVKQHFd' + 'TLnvz//6iho8NrdltwySFkk5kkm025Xwvk/XqUueU5XG6n49AfJKF' + 'TdGsJh/N+1283IaE4ylAWYwokWWg0BX1EscJCNCnhKeeUfxIWm0RX' + 'bEsKFEUTti7HmTS5TLGeD7lSMxmYaredubGxhpLFno4dp0M0v ns9J' + 'I4dcdjVZHdsN50IH+cniOrxI5QCnWfTrp4wGePbR6WlXjkf5r aikz' + '0yrzOR3Z337/Ptkr7EGCBNRo6iJ/kvlqVayGjkNCp4wG/5TIBX0fM' + 'mMu38C93viLrD4aulnmu86SZdDyHdFGFMu7Fea80J0WbwyvLW osJV' + '9gGGehUm');
cage := BitmapFromString(35, 12, 'meJxzD4l1pzZi+P8fDVHdChSLUA' + 'FNLaKRRwha9B8JUCKONY7QdEGCEVkvqeJ44girC//DvEwqm2DQYbq' + 'QGMORXUWqRaSy8aRbYhIDclAQKU5S8saVuTCDFL96NAWk5gtc kU4S' + 'AgBoZBj2');
net := BitmapFromString(35, 12, 'meJy9ktENwCAIRNnOBfrb/cegTZ' + 'tc8ABLTa3hQ1R4yNG2vf1leq3MnTBRJbOZtXdFpF5bDOqXBd2 xdVD' + '2BqAwCrGrQUBQEvrv4DDUqAjCHrcUgv4PNHoFGuwnWmd74ucE X1gH' + 'oin9BJS5XvrnYYjKINVC14ubDYPPcNoBxpM7dQ==');
arrow := BitmapFromString(7, 20, 'meJzb/Pff5oFDs//8pTqq/kURivv' + '1h0jkgw1Z/vxNJFL6/otIBAALXlgM');
arrow2 := BitmapFromString(5, 11, 'meJzb9PffJnJR9a+/eJD/rz94kMn' + 'P38hI6vsvPAgAEKmD4Q==');
lob := BitmapFromString(8, 8, 'meJxjZGDglbeQdSoGIkFBEXmvRiX/' + 'bkYGBkENTyACiTuXgwT9OlQC+4DiIsYxEEGouH83RFzKOgNdP GQqV' + 'BwsKOtWzatiDzEciJS8W4FmAgWBCGgvHIEsCp6kFjEb5AYdPx HDcH' + 'HzeKAhQI0QQaAI0A3iFilSttlAGwHnpCp1');
close := BitmapFromString(37, 10, 'meJyNklEOgCAMQ3cm8Vfjl9FbcX' + 'RJGps6xmQhZta5R2Flv8p3LdvZr9KVjdZ63OGqtbbnL4i4Vu8 690q' + 'OM7NJFpprfagkRC3+ZeU4ZzPB1TfYX19zL6qQi3AgRKtpPe0N sKAg' + 'yb2MFPyuEwKF7pw1Qke4yYRnyES9AEez/QDABfepZzjJVS/OYHj1+' + 'pVbSnB6oSah00gxnLHQvpsZTZAjHh/kFcU=');
end;
procedure freeDTMZ;
begin
FreeBitmap(lob);
FreeBitmap(Close);
FreeBitmap(arrow);
FreeBitmap(arrow2);
FreeBitmap(net);
FreeBitmap(cage);
FreeBitmap(login1);
FreeBitmap(checklogin);
FreeBitmap(login2);
FreeBitmap(loggedin2);
FreeBitmap(tradebit);
end;
function ClickSpot: boolean;
var
TPA: TpointArray;
ATPA: TPointArrayArray;
i, l, xas, yas: integer;
begin
xas := MSCX;
yas := MSCY;
FindColorsTolerance(TPA, 15713449, MSX1, MSY1, MSX2, MSY2, 10);
if Length(TPA) > 0 then
begin
SortTPAFrom(TPA, Point(MSCX, MSCY));
ATPA := TPAToATPAEx(TPA, 17, 10);
L := High(ATPA) for i := 0 to L do
if Length(ATPA[i]) > 0 then
begin
MiddleTPAEx(ATPA[i], xas, yas);
MMouse(xas, yas, 0, 0);
Wait(50 + random(50));
status('Object found!');
wait(500 + random(500));
Mouse(xas, yas, 3, 3, mouse_right);
result := true;
exit;
end;
end;
end;
function ClickSpot2: boolean;
var
TPA: TpointArray;
ATPA: TPointArrayArray;
i, l, xas, yas: integer;
begin
xas := MSCX;
yas := MSCY;
FindColorsTolerance(TPA, 15713449, MSX1, MSY1, MSX2, MSY2, 10);
if Length(TPA) > 0 then
begin
SortTPAFrom(TPA, Point(MSCX, MSCY));
ATPA := TPAToATPAEx(TPA, 17, 10);
L := High(ATPA) for i := 0 to L do
if Length(ATPA[i]) > 0 then
begin
MiddleTPAEx(ATPA[i], xas, yas);
MMouse(xas, yas, 0, 0);
Wait(50 + random(50));
status('Object found!');
result := true;
exit;
end;
end;
end;
function CheckFull: Boolean;
var
x, y: Integer;
begin
if not (FindBitmapToleranceIn(lob, x, y, 690, 405, 737, 444, 15)) then
begin
result := false;
exit;
end;
if (FindBitmapToleranceIn(lob, x, y, 690, 405, 737, 444, 15)) then
begin
result := True writeln('Were Full');
exit;
end;
end;
procedure Loggedout;
var
yes: boolean;
begin
if (FindbitmaptoleranceIn(checklogin, x, y, MSX1, MSY1, MSX2, MSY2, 10)) then
repeat
yes := true;
writeln('Were logged out, logging back in!');
wait(500 + random(1200));
if (FindbitmaptoleranceIn(login1, x, y, MSX1, MSY1, MSX2, MSY2, 15)) then
Mouse(x, y, 3, 3, mouse_left);
wait(500 + random(1200));
if (FindbitmaptoleranceIn(login2, x, y, MSX1, MSY1, MSX2, MSY2, 15)) then
Mouse(x, y, 3, 3, mouse_left);
until FindbitmaptoleranceIn(loggedin2, x, y, 0, 0, 726, 451, 30);
if yes then
end;
procedure Gosell;
begin
writeln('Going to sell');
MarkTime(t);
SymbolAccuracy := 0.7;
if (Findsymbol(x, y, 'Fishing Shop')) then
Mouse(x, y, 0, 0, mouse_left);
repeat
wait(650 + random(500));
if (FindColorSpiralTolerance(x, y, 9663504, MSX1, MSY1, MSX2, MSY2, 5)) then
wait(100 + random(200));
Mouse(x, y, 5, 5, false);
if not FindBitmapToleranceIn(tradebit, x, y, MSX1, MSY1, MSX2, MSY2, 30) then
Movemouse(X + 100, y + 100);
until FindBitmapToleranceIn(tradebit, x, y, MSX1, MSY1, MSX2, MSY2, 30);
wait(500 + random(500));
Mouse(x, y, 5, 5, true);
repeat
wait(50);
until FindBitmapToleranceIn(close, x, y, 0, 0, 500, 457, 15);
repeat
if (FindBitmapToleranceIn(lob, x, y, 535, 151, 740, 484, 15)) then
Mouse(x, y, 3, 3, false);
wait(200 + random(200));
FindBitmapToleranceIn(sell10, x, y, 545, 190, 737, 444, 15) Mouse(x, y, 3, 3, true);
wait(300 + random(400));
until not FindBitmapToleranceIn(lob, x, y, 545, 190, 737, 444, 15);
end;
procedure Goback;
begin
writeln('Going back');
MarkTime(t);
SymbolAccuracy := 0.85;
if (Findsymbol(x, y, 'Fishing spot')) then
Mouse(x, y, 0, 0, mouse_left);
repeat
wait(1250 + random(500));
until clickspot2;
inc(runs);
end;
procedure Fish;
var
tries, t: integer;
begin
marktime(t);
writeln('Starting To Fish');
repeat
if (TimeFromMark(t) > 15000 + random(5000)) then
begin
if findsymbol(x, y, 'fishing spot') then
Mouse(x, y, 3, 3, mouse_left);
writeln('Click again on fish spot');
end;
if (TimeFromMark(t) > 20000 + random(5000)) then
begin
writeln('Someting went wrong');
logoutrsps;
terminatescript;
end;
clickspot;
if (FindbitmaptoleranceIn(net, x, y, 0, 0, 737, 444, 15)) then
begin
writeln('wrong spot');
Mouse(161, 191, 0, 0, mouse_left);
wait(250 + random(500));
end;
until FindBitmapToleranceIn(cage, x, y, 0, 0, 737, 444, 15);
Mouse(x, y, 0, 0, mouse_left);
tries := - 10;
repeat
wait(3000);
case random(20) of
1:
begin
Mouse(610, 175, 0, 0, mouse_left);
Mouse(649, 175, 0, 0, mouse_left);
WriteLn('Keeping us logged in');
end;
2:
begin
end;
3:
begin
end;
4:
begin
end;
end;
loggedout;
until checkfull;
writeln('Well, it looks like were done here');
Gosell;
Goback;
end;
begin
ClearDebug;
setupsrl;
repeat
dtmz;
Fish;
wait(600 + random(500));
Proggy;
until (false);
end.
Format :)
Powered by vBulletin® Version 4.2.1 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.