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

const
  LOGS = 99999; //How many logs you want to cut

var
  Logs_Chopped: Integer;

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

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

Procedure FindTree;
begin
end;

Procedure BankLogs;
begin
  LogsChopped := LogsChopped + 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.