SRL Archive - RS3 Outdated / Broken Scripts

This is my entry back into SCAR so its not that good. I am looking for a good drop procedure
still so post it if you have one. Hope this is a helpful script.

Okay, about the script, it cuts a full inventory of normal logs, fletches, then drops… and repeat.
The only Setup is adding your name and changing the trees color!

This hasn't been tested yet so post your proggies please! :)

program fletcher;
{.include srl/srl.scar}
{.include srl/srl/skill/woodcutting.scar}

const
  StartPlayer  = 0;
  UseBenMouse  = True;   // Use BenMouse?
  treecolor1   =5075056;
  treecolor2   =2897976;
  treecolor3   =3825752;
  longbow      =537419;
  RunDir       ='N';       //Which way to run after fight

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;

  CurrentPlayer := StartPlayer;
  NumberOfPlayers(HowManyPlayers);

  Players[0].Name    :='';
  Players[0].Pass    :='';
  Players[0].Nick    :='';  // 3-4 letters from your name
  Players[0].Active:= True;
end;


function FindFastRandoms: Boolean;    // By WT-Fakawi.
var
  i: Integer;
begin
  for I := 1 to 8 do
  begin
    case I of
       1:  if FindDead then
             Result := True;

       2:  if FindMod then
             Result := True;

       3:  if FindMime then
             Result := True;

       4:  if FindMaze then
             Result := True;

       5:  if FindQuiz then
             Result := True;

       6:  if FindDemon then
             Result := True;

       7: begin
             if NoGameTab then
             begin
               Result := True;
               Players[CurrentPlayer].loc := 'No GameTab';
               Logout;
               Exit;
             end;
           end;

       8: if FindTalk then
             Result := True;
    end;
    Wait(1);
  end;
end;

procedure antiz; // Made by Reece844     me
begin
case Random(6) of

   0: AlmostLogout;

   1: begin
        HoverSkill('Woodcutting', True);
        Wait(564 + random(365));
        GameTab(4);
      end;

   2: begin
        HoverSkill('Prayer', false);
        Wait(733 + random(421));
        GameTab(4);
      end;

   3: begin
        GameTab(1)
        Wait(126 + random(895));
        GameTab(4)
      end;

   4: SayCurrentLevels('Woodcutting');

   5: PickUpMouse;
end;
end;


Procedure FindThoseRandoms;
begin
  if(FindFight)then
  begin
    RunAwayDirection('N');
    Wait(9500+Random(5500));
    RunBack;
  end;
  if(FindDead)then
  begin
    Writeln('You are Dead!');
    Writeln('Next player.');
  end;
  antiz;
  DwarfItem;
  SolveFrog;
  FindCerter;
  FindDemon;
  FindQuiz;
  SolveBox;
  SolveSandWich;
  FindNormalRandoms;
  FindFastRandoms;
    FindLamp('woodcutting');
end;


Procedure findtree;
begin
  if(findcolorspiraltolerance(x,y,treecolor1,msx1,msy1,msx2,msy2,20))or
    (findcolorspiraltolerance(x,y,treecolor2,msx1,msy1,msx2,msy2,15))or
    (findcolorspiraltolerance(x,y,treecolor3,msx1,msy1,msx2,msy2,10))then
  begin
    MMouse(x, y, 3, 3);
    if(IsUpTextMulti('chop','op do','down'))then
    begin
      writeln('Found a tree.')
      writeln('Lets Check It.')
      if(IsUpTextMulti('Tr','ee','down'))then
      begin
      Mouse(x, y, 2, 2, True);
      FindThoseRandoms;
      Wait(13);
      Exit;
    end else
    begin
      writeln('Redo Your colors!')
    end;
 end;
end;
end;

procedure fletch;
begin
mmouse(710, 359, 3, 3);
wait(234)
mouse(x,y, 2, 2, True);
wait(154)
mmouse(750, 359, 3, 3);
wait(325)
mouse(x,y, 2, 2, True);
  if(findcolorspiraltolerance(x,y,longbow,msx1,msy1,msx2,msy2,20))then
  begin
  mmouse(x, y, 3, 3);
  mouse(x, y, 2, 2, False);
  ChooseOption(x, y, 'Make X');
  TypeSend('28');
  KeyDown(13);
Sleep(1);
KeyUp(13);
wait(7500);
end;
end;

procedure saddrop;
begin
  if InvCount = 28 then
  begin
    DropTo(3, 28);
  end;
end;

procedure SetUp;
begin
  if not(LoggedIn)then
    LoginPlayer;
    wait(345)
  HighestAngle;
  MakeCompass('N');
  SetRun(true);
  GameTab(4);
end;

begin
  SetUpSRL;
  BenMouse := UseBenMouse;
  Activateclient;
  SetUp;
  repeat
  findtree;
  FindThoseRandoms;
  fletch;
  FindThoseRandoms;
  saddrop;
  until(isfkeyDown(10))
if(isfkeyDown(10))then
terminatescript;
end.

You don't have SRL 4 do you?