//Start in the Yew tree room in edgeville
//Drag crosshairs onto runescape

{ ~~~ Enjoy The Burgess Yew Cutter + Banker ~~~ }


program YewCutter;
{.include SRL/SRL.Scar}
{.include SRL/SRL/Skill/WoodCutting.Scar}
{.include SRL/SRL/Extended/xMapWalk.Scar}

const
LoadsToDo = 10; // The number of inventorys to do
WaitTime = 10000; //The time to click / the wait.
YewColor = 2903391; //Yew tree color / leaves.
YewColor2 = 2771008; //Yew tree other colour / trunk.
BankSymbolColor = 5885676; //Bank symbol color here.
YewSymbolColor = 954132; //Yew tree symbol color.

var
Loads, fs, fs2, sx, sy, ex, ey:Integer;

procedure SetUp;
begin
 HighestAngle;
 MakeCompass('N');
end;

procedure Fight;
begin
  if(FindFight)then
    begin
      RunAwayDirection('N');
     Wait(9500+Random(5500))
    RunBack;
  end;
end;

procedure Dead;
begin
 if(FindDead)then
 Writeln('YOURE DEAD!')
end;

procedure CutYews;
begin
repeat
 if FindMSColorTol(x,y,YewColor,3) or
 FindMSColorTol(x,y,YewColor2,3) then
  begin
  MMouse(x,y,3,3)
   If IsUpTextMulti('Chop','down','Yew') then
   Mouse(x,y,2,2,True)
    Wait(WaitTime+Random(1312))
  end else
  y := y + 10;
   MMouse(x,y,3,3)
   If IsUpTextMulti('Chop','down','Yew') then
   begin
   Mouse(x,y,2,2,True)
    Wait(WaitTime+Random(1312));
    end else
    writeln('The Door Is Shut');
    LowestAngle;
    MakeCompass('N');
       MMouse(244,111,3,3)
       wait(1125)
        Mouse(244,111,2,2,True)
            until(InventoryFull)
end;

procedure BankYews;
begin
  If FindMMColorTol(x,y,BankSymbolColor,2) then
 begin
  if not (BankScreen) then
    repeat
      if (FindObject(x, y, 'booth', 2842230, 10, True)) then
        Mouse(x, y, 4, 4, False)
      else
      if (FindObject(x, y, 'booth', 12611, 10, True)) then
        Mouse(x, y, 4, 4, False);
      Wait(250);
      if (ClickOption('quickly', 1)) then
      begin
        Flag;
        repeat
          Wait(100);
          fs := fs + 1;
        until (BankScreen) or (fs >= 50) or ((GetColor(136, 40) = 255) and (GetColor(202, 39) = 255));
      end;
      fs2 := fs2 + 1;
    until (BankScreen) or (fs2 >= 5) or ((GetColor(136, 40) = 255) and (GetColor(202, 39) = 255));
    begin
  if (BankScreen) then
  begin
    while (FindColor(x, y, 65536, sx, sy, ex, ey)) do
    begin
      Mouse(x + 4, y + 4, 3, 3, False);
      Wait(800);
      ClickOption('All', 2);
         ClickOption('Cancel', 2);
 Loads:=Loads+1;
end;
end;
end;
end;
end;



procedure BackToYews;
begin
 if FindMMColorTol(x,y,YewSymbolColor,2)then
 begin
 MMouse(x,y,3,3);
 wait(340)
 Mouse(x,y,2,2,True)
 Flag;
 Wait(2654+Random(1232))
 end else
 LowestAngle;
if FindMSColorTol(x,y,8757928,3)then
begin
 MMouse(x,y,3,3);
 wait(340)
 Mouse(x,y,2,2,True)
 wait(1200);
 if FindMMColorTol(x,y,YewSymbolColor,2)then
 begin
 MMouse(x,y,3,3);
 wait(340);
 Mouse(x,y,2,2,True);
 Flag;
 Wait(2654+Random(1232))
end;
end;
end;

procedure ProgressReport;
begin
WriteLn('------------The Burgess Yew Chopper--------------')
WriteLn('-------------------------------------------------')
WriteLn('You have cut and banked' +inttostr(Loads)+ 'loads')
WriteLn('-------------------------------------------------')
WriteLn('------------The Burgess Yew Chopper--------------')
end;

begin
  SetUpSRL;
  activateclient;
  SetUp;
  repeat
  Fight;
  Dead;
  CutYews;
  findnormalrandoms;
  Fight;
  Dead;
  BankYews;
  findnormalrandoms;
  BackToYews;
  until(Loads = LoadsToDo)
  ProgressReport;
  if(Loads = LoadsToDo)then
end.

Include file C:\Program Files\SCAR 3.12\includes\SRL\SRL.Scar does not exist.
Include file C:\Program Files\SCAR 3.12\includes\SRL\SRL\Skill\WoodCutting.Scar does not exist.
Include file C:\Program Files\SCAR 3.12\includes\SRL\SRL\Extended\xMapWalk.Scar does not exist.