SRL Archive - RS3 Outdated / Broken Scripts

Lol, i made this for a friend cause he wanted. Then i decided to make a simple drop version! :P

This is the only version! :P

Start at trees dead trees! :O

program WoodCutter;

{$DEFINE SMART}
{$i SRL/srl.simba}
{$i sps/sps.simba}
{$i SRL/SRL/misc/paintsmart.simba}






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

  With Players[0] Do
  Begin
    Name        := '';     //Player username.
    Pass        := '';     //Player password.
    Nick        := ''; //Player nickname - 3-4 letters of Player username.
    Active      := True;
  End;

End;
procedure SetupChar;

begin

SetupSRL();
SetAngle(0);
ClickNorth(0);
end;
procedure Startup;
begin
  Smart_Server := 69;
  Smart_Members:= true;
  Smart_Signed := true;
  SetupSRL;
  DeclarePlayers;
  LogInPlayer;
  MouseSpeed := 500;
  wait(100+random(100));
end;


Function FindObjOnScreen(Color,Tolerance:Integer;MC2:Variant): Boolean;
  var
  X,Y:Integer;
    CTS,I,T: Integer;
    TPA: TPointArray;
    begin
  repeat
    Result := False;
    CTS := GetColorToleranceSpeed;

    ColorToleranceSpeed(2);

    SetColorSpeed2Modifiers(0.50,0.65);

     FindColorsSpiralTolerance(MSCX, MSCY, TPA,(Color), MSX1, MSY1, MSX2, MSY2, Tolerance);
    ColorToleranceSpeed(CTS);

    if (Length(TPA) < 1) then
      Exit;

    MMouse(TPA[0].X, TPA[0].Y, 0, 0);
    if WaitUpText('Chop', 500) then
    begin
      GetMousePos(X, Y);
      ClickMouse2(MC2);
      Result := True;
      Exit;
    end;
    Until(Result)
    end;

begin
  Startup;
  SetupChar;
  Begin
  Repeat
  Repeat
  FindObjOnScreen(2106665,2,True);
  Wait(1500 + Random(1000));
  Until InvFull;
  DropAll;
  Until (Not LoggedIn);
  end;
end.                   

Dont hate! :P

This is for begining woodcutters! :)

Only bug is it will sometimes go for trees behind a fence! :P

You may take this edit it in anyway you want and release, if its too close to just a simple c1d1 then give credit! :P


Tada! :)