SRL Archive - OSR Help

Hey guys, I know not many people have posted on here for a while, but I need some assistance.
I get the following error when trying to compile the following script:

 Program IronOre;
{$DEFINE SMART8}
{$i srl-osr/srl.simba}
{$I P07Include.Simba}

Var
  Ore:Integer;

Const
  Version = '1.2';
  NumbOfPlayers = 1;
  StartPlayer = 0;

 Procedure DeclarePlayers;
  begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;
    with Players[0] do
    begin
      Name        := '';
      Pass        := '';
      BoxRewards  := ['XP','xp','lamp', 'oins', 'Coins', 'Mystery Box'];
      LampSkill   := Skill_Mining;
      Active      := True;
    end;
  end;
  procedure Antiban;
begin
  case Random(60)of
    10: RandomRClick;
    20: HoverSkill('Mining', False);
    30: PickUpMouse;
    40: RandomMovement;
    50: BoredHuman;
    59: ExamineInv;
  end;
end;
Procedure FailSafe(Reason:String);
Begin
  Players[CurrentPlayer].Loc:=Reason;
  Logout;
  Stats_Commit;
  TerminateScript;
End;
 function IronColor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.15, 0.47);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 1647418, MSX1, MSY1, MSX2, MSY2, 8);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 0.93) and (X <= 5.12) and (Y >= 0.83) and (Y <= 4.37) and (Z >= 0.48) and (Z <= 2.42) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;
procedure DropOre;
begin
  Writeln('Dropping Ores, please wait');
  DropAllExcept([0]);
end;
Procedure MineOres;
Var
 X, Y: Integer;
Begin
  repeat
    FindNormalRandoms;
    AntiBan;
    X := MSCX
    Y := MSCY
    if FindObj(x, y, 'ine Rock', IronColor, 5) Then
    begin

        GetMousePos(x, y);
        Case Random(2) of
          0: Mouse(x, y, 0, 0, True);
          1: Begin
              Mouse(x, y, 0, 0, False);
              WaitOption('ine Rock', 400);
             end;
        end;

        Flag;

    end;
      repeat
      Wait(300+ random(300));
      Until not IsUpText('ine Rock') or (InvFull);
    until (InvFull);
    Ore := Ore + 28
end;
 procedure ActivateScript;
begin
  Writeln('Welcome To  Iron Ore Miner!');
  Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  Writeln('Version is currently in Beta  Testing!');
  Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  Wait(2000);
  Writeln('I would personally like to Thank you for using my script!');
  Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  Wait(2000);
  Writeln('Post any bugs/ideas to make the script better on the forum - Thanks!');
  Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
end;
Begin
SetupP07Include
 ClearDebug;
 ActivateScript;
 SetupSRL;
 P07_DeclarePlayers;
 P07_LoginPlayer;
  Repeat
    MineOres;
    DropOre;
  Until(AllPlayersInactive);
end. 

The error I get it the following - [Error] C:\Simba\Includes\P07Include.Simba(1949:5): Unknown identifier 'SRL_EnableNavBar' at line 1948
Compiling failed. Any Ideas? Thanks in advance.