SRL Archive - Non-RuneScape Scripts

[LEFT]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:
[ATTACH]18648[/ATTACH]
[/LEFT]


ChangeLog:

Version .5- Initial Release

[LEFT]DOWNLOAD:
[ATTACH]18648[/ATTACH]
[/LEFT][/LEFT]

I will test now.

Where do we start?

can you make it bank? id prefer banking.

nice though it works

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

Very legit script from an excellent coder.

From: Pew
Very legit script from an excellent coder.

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

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

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

Exellent! Thanks!

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

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?

The bot does nothing after it catch a full inventory

From: Conflagerate
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.

From: 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?

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

From: michiel
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

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.

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

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

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' + 'tpI1l3BRuVcABKyhRoWWvrUtaK2k6huOuyNdQobUa9lplR8IgkGKO' + '0dfmIoQzuOsMthjOQ/UK9kDJEXfqdgYrSIPRUGXAouiqUH7kJg3aJ' + 'LokAdE+oV+TeMowmzDNERzqvQTXJgCvxOAuN45gULGco8jex1clO5' + 'ruKdYmhXYUwIoD8X0SPxc1B20Tw20YAmKC2XotxtXdarV7B');
  tradebit := BitmapFromString(63, 12, 'meJztlVEOgCAIhrldF+i1+x+Dtp' + 'juFxHQ5kNbjgf7A/0MMOZmHOe1ZrPhxEzFH+dTRkSyL5XxBj4fLsD' + 'ij/Pd+/7wm+DNFnD6Al/5ixjwaCUWRdO/Kg58bQF8NA+FjeP7919e' + 'nPosVF3DFyoHXjVveycNIZXulJNTNmZGFHkI33/eJGR/0jx8mBFcY' + 'Qp+du5cvyF82NRJ+FHZ5PU8fFg2Cv54flWNbia6Hcu6uUsmdrTOR+' + '0GFrG7oQ==');
  loggedin2 := BitmapFromString(21, 14, 'meJyNkk9Lw0AQxeMxl36GXj0I5l' + 'AQghQiISQ0xRY1l0INJVhj/xhrRUT87P7Wt92mIio8ws5m3ps3O+M' + 'Hqd/LLc7GFmFh0Z9YRKVFXAmdbLVcvZgcx/of0U9qMJ+vm6e3I8+L' + '43T/S5m/ElW3rpv14yv07fajqpaEfJEiJEGZBjuWiICiJKMAoBPih' + 'HNZ3qfZJSE63slFkuSbzXsnb9qYzR7IJIHSi8UzdEIOhN7x+WAw5o' + 'CaH6RI2XMvlyuF6FMIZRqEri4IqTgaFUgB6MPhtXrkSeXEtTy9vUO' + 'NZ4GCEwRNGKSI8xdQkUzuNR05cS27J4WOE3GhqClYVNxLhYWc6MZ4' + 'c4OA1docpEgzamGhV1KPcsKNCXdcGjfz/XFz+pO9VFSqrvX5NUS43' + 'e4pXyPy19rISXv6ogsSMTpuWw7XRk5EbHPD7CrKb8A3HeCSD5A3be' + '4ndAL2fg==');
  login1 := BitmapFromString(37, 12, 'meJx9lMEKAjEMRPe7FBRkDyqoF1' + 'Ho1f//Bg0MPGanwRIkbdPMZJJ1PG7D7Hk939fT5XiQlS9jWwGKkbk' + 'ft/LDHOs7LUcUqG85XPc7GCpni9XCLdtFNhFGgSi8ZaKEXqyeBxxk' + '5gzteStChZEQ2Z0tt8TPLQtudDwYynH+Ovd471ptP+9XGVsCqEJqe' + '2Z/Hod6opxlc+/i3G9J5TSi6V4dY9COCoIILphIYRcqKCFsJETMMn' + 'RzqefqGIaAq1+RaauePwSHo5s+YEHGmfuoeNgfuPYzj75QoFeH75S' + 'ACFnG9k9smRYq6TljwGS673NCRX74A/POK5w=');
  checklogin := BitmapFromString(32, 13, 'meJytkstKQmEUhR8gsIthUUYDo7' + 'ILSBB6EhrUIEuSECu1SVBZwokuiqKWDYosu1hWqOG8gu6Eg6BGjQw' + 'iKugBgnqNVm3aHLIbJHzIPr/yrX/to6q8SPVOtbpKYzYZnc7aSqXq' + '4zArQFioEYQx9/Ldw+ZT2j4fQFbW5A11wqBtYncr8fIIv//uAsN46' + 'lDXZkBKWYn8n9hj0fhD+vT5PnZzuBLs9PWq18428YhDFEEKLvAfP1' + 'RHtyfHUYvYWtqiztNXyGw6BR5T10kKnVwN661WBNVohcxGOCEEQft' + 'l3/VIl8ugNDUUttcXMIiIjDbiK3RJpM/RJXR1Kcbi9rmQ2SPiPwA6' + '+t6GHqcH2Lz+4YWlDncg0w8b5ABOTsEM0AjrQsrGjg9BRPRsnwjv7' + 'C0mkmgHhqd9iMYFmow9CrlMCpkJ8vMJZ4ndGgQBlAqPvEEDzgmrQW' + '0esnlj2w5vCHeW+lnOETyTn04w4O1wNel9CEe/BUXQCG/qB/93sIq' + 'WSXH4MxCYB5qLZ4Mu+D9VYAN+8Ktfujo4qRGDBc4EpxaSB3gL+bk5' + 'BGnxibf5xyxenbQOrQ5b4grkhxY28vMs9X+ZJe3C7bAoGFAhEN/lC' + 'q/dBC0r');
  login2 := BitmapFromString(34, 14, 'meJyVlMEKwkAMRPtNCiIWVKQHFd' + 'TLnvz//6iho8NrdltwySFkk5kkm025Xwvk/XqUueU5XG6n49AfJKF' + 'TdGsJh/N+1283IaE4ylAWYwokWWg0BX1EscJCNCnhKeeUfxIWm0RX' + 'bEsKFEUTti7HmTS5TLGeD7lSMxmYaredubGxhpLFno4dp0M0vns9J' + 'I4dcdjVZHdsN50IH+cniOrxI5QCnWfTrp4wGePbR6WlXjkf5raikz' + '0yrzOR3Z337/Ptkr7EGCBNRo6iJ/kvlqVayGjkNCp4wG/5TIBX0fM' + 'mMu38C93viLrD4aulnmu86SZdDyHdFGFMu7Fea80J0WbwyvLWosJV' + '9gGGehUm');
  cage := BitmapFromString(35, 12, 'meJxzD4l1pzZi+P8fDVHdChSLUA' + 'FNLaKRRwha9B8JUCKONY7QdEGCEVkvqeJ44girC//DvEwqm2DQYbq' + 'QGMORXUWqRaSy8aRbYhIDclAQKU5S8saVuTCDFL96NAWk5gtckU4S' + 'AgBoZBj2');
  net := BitmapFromString(35, 12, 'meJy9ktENwCAIRNnOBfrb/cegTZ' + 'tc8ABLTa3hQ1R4yNG2vf1leq3MnTBRJbOZtXdFpF5bDOqXBd2xdVD' + '2BqAwCrGrQUBQEvrv4DDUqAjCHrcUgv4PNHoFGuwnWmd74ucEX1gH' + '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+4DiIsYxEEGouH83RFzKOgNdPGQqV' + 'BwsKOtWzatiDzEciJS8W4FmAgWBCGgvHIEsCp6kFjEb5AYdPxHDcH' + 'HzeKAhQI0QQaAI0A3iFilSttlAGwHnpCp1');
  close := BitmapFromString(37, 10, 'meJyNklEOgCAMQ3cm8Vfjl9FbcX' + 'RJGps6xmQhZta5R2Flv8p3LdvZr9KVjdZ63OGqtbbnL4i4Vu8690q' + 'OM7NJFpprfagkRC3+ZeU4ZzPB1TfYX19zL6qQi3AgRKtpPe0NsKAg' + '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 :)

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]'

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.