[PROJECT RS06] Catherby Fisher

[jman1208]

Catherby Fisher And Seller for Project Rs06


MAKE SURE YOUR USING THE DOWNLOADED CLIENT AND BRIGHTNESS ALL THE WAY UP




-Catches LOBSTERS in the first two spots
-Sells the lobsters to the store
-Repeat
-Checks for inventory Full by Bitmaps
-Fairly accurate
-Failsafes
-MAKE SURE NOTHING IS IN YOUR LAST INVENTORY SPACE(except for lobsters ofc)
-Recommended to babysit until the next update.

TODO:

-Add random events
-Improove stability


PLEASE POST ANY BUGS AND PROGGIES


DOWNLOAD:
18648



ChangeLog:

Version .5- Initial Release



DOWNLOAD:
18648
[/LEFT]

[kadiros]

I will test now.

Where do we start?

[fishmaster99]

can you make it bank? id prefer banking.

[fishmaster99]

nice though it works

[jman1208]

I have my own script with banking. But I feel if i release it will be a damage to the game.

[Pew]

Very legit script from an excellent coder.

[jman1208]

Very legit script from an excellent coder.

Thanks bro! New version is upcoming in a few days.

[trucks master]

a problem im having is it wont sell lobs after full inventory

[jman1208]

It should be working. It sells lobsters when your inventory is full IE last inventory space must have a lobster for this to work

[Dormik]

Exellent! Thanks!

[Conflagerate]

Not sure why but it'snot making any clicks to move when that time comes, any advice?

[pkowner646]

gg fishing.
Will take some time before the prices will crash.
because they will obviously sell them , and people will prefer to buy them from the store instead of people.
got skype?

[michiel]

The bot does nothing after it catch a full inventory

[jman1208]

Not sure why but it'snot making any clicks to move when that time comes, any advice?
I'm not sure, make sure your using the downloaded client. Make sure your brightness is all the way up,
and make sure to set the window.


gg fishing.
Will take some time before the prices will crash.
because they will obviously sell them , and people will prefer to buy them from the store instead of people.
got skype?

Nah prices will be fine nobody will buy lobs at 250+ gp RAW


The bot does nothing after it catch a full inventory
Are you using the downloaded client? Whats your brightness? I will look into this right now

[Rs06tester]

Can't start the bot yes I updated everything,yes facing north even re-logged to make sure and yes got V-Bright.Please help me out.When I click 'Play' it does nothing.

[beproud]

Unable to find file 'srl/srl.simba' used from 'C:\Users\roy\Downloads\06FisherAndSeller.simba' help please**

[chu1013]

I have no idea on how to bot. :( I only downloaded the files. How do i even bot?

[rj]

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 :)

[dethridge1]

well i have done everything you have said but when i click play the mouse just moves to the top of the simba screen and just keeps right clicking then ends up saying 'Successfully executed.
The following bitmaps were not freed: [5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16]'

[MonkeyMonster]

Works great, awesome! Three flawless inventories and it proceeded to sell and immediately return to fishing; thanks!

I agree that I would like the script to be released with a bank option, though I could probably figure out how to write that on my own if you don't want it to be publicly available. Kudos.