{                          _                          _
__ ____ _ _ _ _ _ ___  __| |__  _  _ _____ __ __  __| |_  ___ _ __ _ __  ___ _ _
\ V / _` | '_| '_/ _ \/ _| / / | || / -_) V  V / / _| ' \/ _ \ '_ \ '_ \/ -_) '_|
 \_/\__,_|_| |_| \___/\__|_\_\  \_, \___|\_/\_/  \__|_||_\___/ .__/ .__/\___|_|
                                |__/                         |_|  |_|
> SETUP
  - Start in the Varrock West bank
  - Axe in first inventory spot
  - Use ScarScape on Low Detail with SCAR 2.03 and Si 1.4.5
}

program VarrockYewChopper;
{.include Si.scar}

var x,y,timeout:integer;
    return:boolean;

const
// Minimap Colors
banksymbol=3060683;
fountain=10386796;
fountainblack=1644828;
watersymbol=13609383;
laddersymbol=2873;
// Main Screen Colors
yewcolor=2709576;

procedure ToTrees;
begin
  SetRun(true);
  GameTab(4);
  return:=false;
  timeout:=0;
  repeat
    timeout:=timeout+1;
    if(FindColorSpiral(x,y,banksymbol,574,9,719,159))then
      return:=true;
    Wait(200+random(500));
  until(return=true)or(timeout>15)
  if(timeout>15)then
    LogOut;
  MouseFlag(x+10,y+52,2,2);
  MouseFlag(698,85,2,2);
  if(FindColorSpiral(x,y,fountain,691,61,722,108))then
  begin
    MouseFlag(x-12,y-5,2,2);
  end else
    MouseFlag(710,73,2,2);
  if(FindColorSpiral(x,y,fountainblack,649,74,685,114))then
    MouseFlag(x-24,y-71,2,2);
  MouseFlag(611,37,2,2);
  if(FindColorSpiral(x,y,watersymbol,591,21,628,55))then
    MouseFlag(x+35,y-12,2,2);
  Wait(200+random(150));
  if(GetColor(200,149)=16777215)then
  begin
    timeout:=0;
    repeat
      timeout:=timeout+1;
      Wait(1000+random(500));
    until(not(GetColor(200,149)=16777215))or(timeout>15)
    if(timeout>15)then
      LogOut;
  end;
  MouseFlag(643,24,2,2);
  if(FindColorSpiral(x,y,laddersymbol,661,18,700,66))then
    MouseFlag(x-22,y-1,2,2);
  MouseFlag(687,72,2,2);
end;

procedure CutTrees;
begin
  if(FindObj(x,y,'Chop',yewcolor,5))then
     Mouse(x,y,3,3,false);
  return:=false;
  timeout:=0;
  repeat
    timeout:=timeout+1;
    if(ClickText('Chop',4,4,514,337))then
      return:=true;
  until(return=true)or(timeout>15)
  if(timeout>15)then
      LogOut;
  Wait(1000+random(1000));
  timeout:=0;
  while(FindColorSpiral(x,y,yewcolor,190,78,338,232))do
  begin
    Wait(3500+random(1300));
    timeout:=timeout+1;
    if(timeout>=7)then
    begin
      MMouse(564,221,169,237);
      timeout:=0;
    end;
  end;
end;

procedure ToBank;
begin
  SetRun(false);
  GameTab(4);
  if(FindColorSpiral(x,y,laddersymbol,615,86,655,130))then
    MouseFlag(x-21,y+19,2,2);
  MouseFlag(647,146,2,2);
  MouseFlag(646,148,2,2);
  if(FindColorSpiral(x,y,watersymbol,656,65,693,114))then
    MouseFlag(x-1,y+48,2,2);
  MouseFlag(689,117,2,2);
  if(FindColorSpiral(x,y,fountainblack,634,118,674,158))then
    MouseFlag(x-23,y,2,2);
  MouseFlag(587,87,2,2);
  return:=false;
  timeout:=0;
  repeat
    timeout:=timeout+1;
    if(FindColorSpiral(x,y,banksymbol,574,9,719,159))then
      return:=true;
    Wait(200+random(500));
  until(return=true)or(timeout>15)
  if(timeout>15)then
    LogOut;
  MouseFlag(x+11,y+13,2,2);
end;

procedure Bank;
begin
  OpenBank;
  Deposit(1,2,0);
  CloseWindow;
end;

begin
LoadInclude('Google - Microsoft Int...',false);
repeat
  ToTrees;
  repeat
    CutTrees;
  until(InvinCount=28)
  ToBank;
  Bank;
until(false)
end.