SRL Archive - RS3 Outdated / Broken Scripts

I've been working on this script for a while now…It works, but there's still some bugs. It has effective Anti-Randoms. I got my character from 1 to 30 wc with it. Here you go:

program New;
{.include SRL\SRL\Misc\Smart.scar}
{.include SRL\SRL.scar}

const
  LoadsToDo = 1;

var
  X, Y, I, L, TreeColor, DTM, CutLogs, Loads: Integer;
  TreeColors: Array [0..5] of Integer;
  ColorPointsTPA: TPointArray;

Procedure DeclarePlayers;
Begin
  HowManyPlayers:=1;
  CurrentPlayer:=0;
  NumberOfPlayers(HowManyPlayers);

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Active := True;
End;

procedure LoadDTMs(which:string);
begin
  case which of
    'Logs':begin DTM := DTMFromString('78DA63CC65626078CA800232020D195881342' +
       '310FF0702C632A09A5B0C6880118904D204CC01AB4904AA794C05' +
       '73AA806A5E51C19C74A09A8F54302719A8E62D15CC8905AA794D0' +
       '57352806AEE50C11C50BC3FA482393984DD030077B8245E');
       end;
  end;
end;

procedure Drop;
begin
  LoadDTMs('Logs');
  repeat
  if FindDTM(DTM, x, y, MIX1, MIY1, MIX2, MIY2) then
    begin
      case Random(10) of
        0..7: begin
                Wait(500);
                Mouse(x, y, 1, 1, False);
                Wait(500);
                ChooseOption('rop');
              end;
        8..9: begin
                Wait(500);
                Mouse(x, y, 1, 1, False);
                Wait(500);
                ChooseOption('ancel');
              end;
      end;
    end;
  for i:=2 to 27 do
    begin
      DropItem(i);
    end;
  until(InvCount=1);
  FreeDTM(DTM);
end;

procedure AxeBroken;
begin
  if FindBlackChatMessage('You do not') then
    begin
      Logout;
      WriteLn('Lost or broke the axe.');
      TerminateScript;
    end;
end;

procedure ProggyReport; forward;
procedure CutTrees;
begin
  if InvFull then Drop;
  TreeColors[0] := 3692371;
  TreeColors[1] := 1652525;
  TreeColors[2] := 1855560;
  TreeColors[3] := 3310453;
  TreeColors[4] := 867890;
  TreeColors[5] := 2120273;
  x := MSCX;
  y := MSCY;
  ColorToleranceSpeed(0);
  for i := 0 to 5 do
  FindColorsSpiralTolerance(x, y, ColorPointsTPA, TreeColors[i], MSX1, MSY1, MSX2, MSY2, 0);
  for i:=0 to High(ColorPointsTPA) do
    begin
      FindNormalRandoms;
      Wait(300);
      if InvFull then Drop;
      MMouse(ColorPointsTPA[i].x, ColorPointsTPA[i].y, 0, 0);
      if InvFull then Drop;
      Wait(500);
      if IsUpText('ree') then
        begin
          Wait(250);
          Mouse(ColorPointsTPA[i].x, ColorPointsTPA[i].y, 0, 0, False);
          if ChooseOption('hop') then
            Flag;
          AxeBroken;
          Wait(1250);
          if FindBlackChatMessage('You swing your') then
            repeat
            Wait(150);
            FindNormalRandoms;
            until(FindBlackChatMessage('You get some'));
            if FindBlackChatMessage('You get some') then
              begin
                Inc(CutLogs);
                ProggyReport;
              end;
        end;
    end;
end;

procedure ProggyReport;
begin
  ClearDebug;
  WriteLn('Logs cut: ' + IntToStr(CutLogs));
  WriteLn('Time running: ' + IntToStr(GetTimeRunning) + ' msec');
end;

begin
SetupSRL;
DeclarePlayers;
SmartSetupEx(133, False, True);
while Not SmartReady do Wait(100);
SmartSetTarget;
repeat
  LoginPlayer;
  ChatsOff;
  SetAngle(True);
  MakeCompass('N');
  FindNormalRandoms;
  repeat
    CutTrees;
  until InvFull;
  Inc(Loads);
  Drop;
  ProggyReport;
until(LoadsToDo=Loads);
ProggyReport;
end.

Have the axe wielded or in first inventory slot. This cuts Normal trees. Later I'll add multiplayer and multi-tree cutting. Please post errors and proggys.

Thanks.

that isnt your script ya leecher it's elking121's script

and that pic in ya sig isnt your either you leeched it of me

From: scaper123
that isnt your script ya leecher it's elking121's script

and that pic in ya sig isnt your either you leeched it of me

TheVoiceInYourHead IS Elkins121 ;)

Lol. Yeah, scaper…I changed my ID. And, actually, you stole my siggy picture. Please don't flame.

i like ur siggy =P omg is zezima follo for drop party everyone do emotes lol lmfao. its a good one =P

Haha nice sig. And Im testing now ill have a proggy by the night.

EDIT: So this is what happened after running the script (SCAR 3.15b Rev16)

Successfully compiled (1759 ms)
Line 9: [Hint] (12748:1): Variable 'L' never used in script (My Files listed)
Line 9: [Hint] (12748:1): Variable 'TREECOLOR' never used in script (My Files listed)
SRL Compiled in 16 msec
******(UserNameHidden)
Creating the NickTPA.
** Warning in GameTab: 4 does not exist**

1. Opened up SMART Correctly.

2. Logged in and started Correctly.

3. Didn't react after logging in. (Maybe it got stuck on trying to create the nickname I'm not sure.)

I'll try rerunning this, but manually picking the tree colors in the script. (I found where you put them) and that might help. If it still doesn't respond after changing the colors I'll leave it to you to figure out whats wrong because Furuchan64 = Not a scripter (But would like to be :) )

EDIT: So changing the colors in the script to match my trees worked its running currently. Maybe try to work with the auto coloring or put the tree color choosing at the top of the script so it can be done manually. (This will also make it possible to cut ANY tree using its colors) Or you can use the auto coloring and have an option at the top to choose, for example, Willow or Maple or something and it will find the colors for that specific tree using functions in your script. I put in a "ClearDeBug" statement in there by myself because i have a thing about having a sloppy looking debug box lol. I'm waiting for it to drop so i can see what happens.

EDIT: So this is my final word for now until i you update it.

Logs cut: 27
Time running: 411811 msec

4. Drops logs correctly, but after the drop it stops working and sits until log out.

Also I have found that the script is easily confused with the ground grass, and Oak trees. I didn't check to see if SMART was using low detail or not but if it wasn't that may be a suggestion. Otherwise just work with the other things I have said and I'm sure your next update will be a big step and success. Good luck!

Yeah, I set the colors to be very sensitive. The tree colors, alas, are close. I also think I used a decent tolerance. I'm in Florida, so I haven't been able to test this script at all. Sorry if it doesn't work. I'll edit when I get home.

EDIT: I think I may have also put an autosleep function in there? I'm not sure…