SRL Archive - RS3 Outdated / Broken Scripts

My first (real) SRL Scar script ever :D

It has multiplayer, and I'm almost positive it works (didn't test it long enough to see.)

It uses DisguiseScar to tell you what's going on (switching players, logging in, etc).

It's only the first in my series, so don't expect everything.

Please post any bugs you find :redface:

Thanks!

Mike.

Nice job for first script!
Keep it up!
Now

procedure TreeFinderChopper;
begin

if(FindMSColor(x, y, Treecolor1))or
FindMSColor(x, y, Treecolor2)then
begin
DisguiseScar('Looking for ' +(Treename))
MMouse(x, y, 2, 2);
if(IsUpText(Treename))then
Mouse(x, y, 0, 0, True);
wait(4000 + Random (2000));
end;
end;

maybe you should add a repeat-until in here for finding the tree, tip: repeat (find out were ;)) until(your IsUpText) :)

Thanks ;)

You mean to add a repeat..until for finding the tree in the main loop?

no not in mainloop, but this:
procedure TreeFinderChopper;

begin
repeat
if(FindMSColor(x, y, Treecolor1))or
FindMSColor(x, y, Treecolor2)then
begin
DisguiseScar('Looking for ' +(Treename))
MMouse(x, y, 2, 2);
until(IsUpText(Treename))then
Mouse(x, y, 0, 0, True);
wait(4000 + Random (2000));
end;
end;

Somekinda like that for example, it keeps searching for the treecolor until the ISUpText is about chopping (Treeame)

not sure if this is just a personal thing, but instead of putting

   procedure LogDropper;
    begin
    
     if(InvFull)then
      begin
       DisguiseScar('Dropping Logs')
       DropAllLogs;
       Loadsoflogs := Loadsoflogs + 1
      end;
    end;

and

   procedure TreeFinderChopper;
    begin
    
     if(FindMSColor(x, y, Treecolor1))or
     FindMSColor(x, y, Treecolor2)then
      begin
       DisguiseScar('Looking for ' +(Treename))
       MMouse(x, y, 2, 2);
        if(IsUpText(Treename))then
       Mouse(x, y, 0, 0, True);
       wait(4000 + Random (2000));
      end;
    end;

I'd do this:

   procedure TreeFinderChopper;
    begin
    repeat
     if(FindMSColor(x, y, Treecolor1))or
     FindMSColor(x, y, Treecolor2)then
      begin
       DisguiseScar('Looking for ' +(Treename))
       MMouse(x, y, 2, 2);
        if(IsUpText(Treename))then
       Mouse(x, y, 0, 0, True);
       wait(4000 + Random (2000));
    until(InvFull);
      end;
    end;

and for dropping procedure I'd just put:

   procedure LogDropper;
    begin
       DisguiseScar('Dropping Logs')
       DropAllLogs;
       Loadsoflogs := Loadsoflogs + 1
      end;
    end;

and that would just keep chopping until Inventory is full, then does the dropping procedure. Not sure if that'd work any better, but that'd be just how i would do it :)

That would leave you without Randoms protection :eek:!

You would just keep chopping, oblivious to any randoms.