SRL Archive - OSR Help

So this is the error I get when I try to hit play and let it log itself in:

Error: Out Of Range at line 365
HTTPClient[0] has not been freed in the script, freeing it now.
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]

** LINE 365**

function stats_Commit: Boolean;

The function ^ gets highlighted in the "globalstats" section that pops up in a new tab.


Here is my script:

program MattiesPooter;

{$DEFINE SMART}
{$i SRL/SRL.Simba}

const
  SERVER            = 97;  // Enter "0" to pick a random server.
  MEMBERS           = True; //False if F2P
  //BreakEvery        = 250;  // How long to bot before break(min)
  //BreakFor          = 10;    // Break Length(min)
  NumbOfPlayers     = 1;
  StartPlayer       = 0;
  AntibanAttempt    = 8; //How much Antiban? 1=Always  12+=Rare
procedure DeclarePlayers;
  var i:integer;
begin
  NumberOfPlayers(NumbOfPlayers);
  CurrentPlayer := StartPlayer
  for i := 0 to NumbOfPlayers-1 do
    Players[i].BoxRewards := ['XP'];

  With Players[0] do
  begin
    Name := 'name'; //Username.
    Pass := 'pass'; //Password.
    Active := True;
    Pin := 'pin' // Bank Pin
  end;

end;

procedure FailSafe (Reason:String);
begin
  Players[CurrentPlayer].Loc:=Reason;
  Logout;
  Stats_Commit;
  TerminateScript;
end;

procedure AntiBan;
begin
  Writeln('Antiban attempt..');
  //Disguise('Antiban attempt..');
  case random(AntibanAttempt) of
    0: case random(4) of
         0: begin Writeln('Performing Antiban!'); HoverSkill('Herblore',false); GameTab(Tab_Inv); end;
         1: begin Writeln('Performing Antiban!'); PickUpMouse; end;
         2: begin Writeln('Performing Antiban!'); RandomMovement; end;
         3: begin Writeln('Performing Antiban!'); RandomAngle(SRL_ANGLE_HIGH); end;
       end;
  end;
end;
procedure Herb;
var
  Time:Integer;
  begin
    Writeln('Herblore-ing..');
    //GetColorsBox(613,329,632,348,True);
    Mouse(621,340,10,10,False);
    WaitOption('Use', 500);
    Wait(200+random(100));
    Mouse(663,339,10,10,True);
    Wait(800+random(200));
    Mouse(256,430,50,20,True);
    MarkTime(Time);
    repeat
      Wait(2000+random(100));
      Antiban;
    until (TimeFromMark(Time)>16000+random(1000))
    end;
procedure Bank;
var
  x,y,Time:Integer;
  begin
    MakeCompass('E');
    SetAngle(SRL_ANGLE_HIGH);
    MarkTime(Time);
    repeat
    MMouse(223,168,5,12);
    GetMousePos(x,y);
    Wait(200+random(200));
    if IsUpText('ank') then
      Mouse(x,y,0,0,True);
    until(PinScreen or BankScreen) or (TimeFromMark(Time)>30000);
      if PinScreen then
        begin
          InPin(Players[0].Pin);
          wait(500);
          Writeln('Banking..');
          DepositAll;
          Withdraw(0,0,14);
          Withdraw(1,0,14);
          CloseBank;
        end else if BankScreen then
          begin
          Writeln('Banking..');
          Wait(800+random(200));
          DepositAll;
          Withdraw(0,0,14);
          Withdraw(1,0,14);
          CloseBank;
          end else
      begin
        Writeln('Could not find bank!');
        FailSafe('No bank found');
      end;
  end;
begin
  //activateClient;
  Smart_Server := SERVER;
  Smart_Signed := True;
  Smart_Members:= MEMBERS;
  SetupSRL;
  Disguise('Matties Pooter!');
  DeclarePlayers;
  if not (LoggedIn) then
    LoginPlayer;
  wait(5000+random(500));
  Repeat
    Bank;
    Herb;
  until(false);
end.

Any help?

What is line 365 and is it from an include file?

Ya it's the function I posted and it's from 'globalstats'.

If your script opens up globalstats.simba just Update your Simba and SRL. That should solve the problem, stuff like that happens from time to time.