Program Huthaifahs_Great_WoodCutter;
{$DEFINE SMART}
{$i SRL/SRL.scar}

const
LOGS = 99999; //How many logs you want to cut
//Bank_DR = 'db'; // (Draynor Bank)
Var Logs_Chopped: Integer;

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

  with Players[0] do
  begin
    Name := '';
    Pass := '';
    Nick := '';
    Pin := '';
    Member := True;
    Active := True;
  end;
end;

function FindTree: Boolean;
Var
  TreeLocation :Tpoint;
begin
  if not LoggedIn then Exit;

  if (FindColorTolerance(TreeLocation.x, TreeLocation.y, 1324067, MSX1, MSY1, MSX2, MSY2, 5)) then
  begin
    MMouse(TreeLocation.X, TreeLocation.Y, 0, 0);
    if (WaitUpTextMulti(['Chop_Down', 'Willow'], RandomRange(400, 550))) then
    begin
      Result := True;
      writeln('Successfully found and clicked a tree');
      Mouse(0, 0, 0, 0, leftclick): true;
    end else
    begin
      Result := False;
      writeln('FindColor true but uptext false, Result := False');
    end;
 end else
 begin
   Result := False;
   writeln('Could not find the correct colour, Result := False');
   Exit;
 end;
end;

Procedure BankLogs;
begin
  Logs_Chopped := Logs_Chopped + 28;
end;

Procedure WalkToTrees;
begin
end;

Procedure WalkToBank;
begin
end;

begin
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
  Logs_Chopped := 0;
  repeat
    while (not(InvFull)) do
      FindTree;
      WalkToBank;
      BankLogs;
      WalkToTrees;
  until (Logs_Chopped >= LOGS);
  Logout;
 end.