SRL Archive - RS3 Outdated / Broken Scripts

looking for a simple {RS}[SRL] willow power chopper.
all i need is to level up my (1) pure wc'r.

thanks guys.
-Frost:redface:

Almost done…

Set TreeColor on line 16.
Tell me if you run into any problems.
I made this without going into RS for anything more than getting a LogDTM, and getting the parameters of the inventory.

Do not leave on overnight.

It has no been tested.

program New;
{.include SRL/SRL.Scar}
var
DeadWillows, LogDTM: Integer;

 procedure DeclareDTM;
  begin

   LogDTM := DTMFromString('78DA632C66626078CA8002527D75191E02694' +
           '620FE0F048CC94035CF18D000231209A4F3806AEE10505343A49A' +
           '3744D8F511BF1A00056F0DE4');
  end;

 procedure ChopTree;
  begin
   if(FindMSColorTol(x, y, TreeColor, 10))then
    begin
     MMouse(x, y, 2, 2);
      if(IsUpText('illow'))then
       case Random(4) of
        0: Mouse(x, y, 0, 0, True);
        1: Mouse(x, y, 0, 0, True);
        2: Mouse(x, y, 0, 0, True);
        3: begin
            Mouse(x, y, 0, 0, False);
            ChooseOption(x, y, 'hop');
           end;
       end;
    end;
  end;
  
 procedure DropLogs;
  begin
   if(InvFull)then
    begin
     repeat
      if(FindDTM(LogDTM, x, y, 552, 203, 742, 469))then
       begin
        Mouse(x, y, 2, 2, False);
        ChooseOption(x, y, 'Drop');
        FindTalk;
        FindNormalRandoms;
        DeadWillows := DeadWillows + 1;
       end;
     until(Not(FindDTM(LogDTM, x, y, 552, 203, 742, 469)));
    end;
  end;
  
 procedure ProgressReport;
  begin
   if(TimeFromMark(Mark) >= 60000)then
    begin
     Writeln('/---------------------\');
     Writeln('|--- Willow Killer ---|');
     Writeln('|---------------------|');
     Writeln('|Willows Killed: ' + IntToStr(DeadWillows) + '   |');
     Writeln('\---------------------/');
    end;
  end;
  
 procedure AntiBanRandom;
  begin
   AntiBan;
   FindTalk;
   FindNormalRandoms;
  end;
  
begin
SetupSRL;
SRLRandomsReport;
DeclareDTM;
MarkTime(Mark);
 repeat
  ChopTree;
  DropLogs;
  AntiBanRandom;
  ProgressReport;
 until(Not(LoggedIn));
end.

well

 procedure DropLogs;
  begin
   if(InvFull)then
    begin
     repeat
      if(FindDTM(LogDTM, x, y, 552, 203, 742, 469))then
       begin
        Mouse(x, y, 2, 2, False);
        ChooseOption(x, y, 'Drop');
        FindTalk;
        FindNormalRandoms;
        DeadWillows := DeadWillows + 1;
       end;
     until(Not(InvFull));
    end;
  end

Wont that only drop one log? Because after you drop one log, the inventory wont be full?

is this as undetectable as other SRL scripts?
I'll give it a go later on today when i get a chance on the other computer*

Oops! Seems you're right :p

until(Not(FindDTM(LogDTM...

I should probably fix that…

Dude…There Are Heaps Of Powerchoppers In Script Section. :google: Or Search It Here. Don't Be Lazy And Make Others Do The Work For You ;)

lol like powerchoppas r like the easiest scripts to do (apart from talkers). I should know :p

check out the powerchopper in my sig :p . complete with setup form ;) . post a proggy (if it's good) when you're done with it.

From: SantaClause
Dude…There Are Heaps Of Powerchoppers In Script Section. :google: Or Search It Here. Don't Be Lazy And Make Others Do The Work For You ;)

I know this is a bit offtopic, but…what is it with your posts? They're All Like This!?!?!

Jason's powerchopper looks pretty good for short amounts of time (as soon as he fixes the dropping bug, that is)

I did fix the dropping bug.

It's not the best, but I didn't make it to be the best. I made it in about probably a half hour or so.

BTW, I forgot to put axe and ent finder in it. Either you can do that, frost, or I will when I get time.