i get this error when i try to run this code.

Error:
Code:
Exception in Script: Out of memory
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]
Code:
Simba Code:
program EvlinsFleshCrawlerKillah;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}


 Const
{---SMART Setup Constants---}
  WORLD = 50;// Set a world, if you'd like.
  MEMBERS = False;// Change accordingly.
  SIGNED = True; // True if running a single account, false otherwise.
{---------------------------}
{--------Script Info--------}
  Author = 'Evlin';
  Name = 'EvlinsFleshCrawlerKillah';
  Version = '1.00';
{---------------------------}



procedure DeclarePlayers;


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

  Players[0].Name := '';
  Players[0].Pass := ''; // Password
  Players[0].Nick := ''; // 3-4 lowercase letters from username
  Players[0].Active := True; // Set to true if you want to use this player
  Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
end;


procedure AntiBan;


begin
  case Random(6) of
  0: HoverSkill('Random', False);
  1: begin
       RandomMovement;
       HoverSkill('Random', False);
     end;
  2: BoredHuman;
  3: BoredHuman;
  4: ExamineInv;
  5: begin
       RandomAngle(1);
       HoverSkill('Random', False);
       ExamineInv;
     end;
  end;
end;


procedure AntiRandoms;


begin
  FindNormalRandoms;
end;


procedure ProgressReport;


begin
  WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  WriteLn(Name + ' by' + Author + ' V' + Version);
  WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
end;


Procedure BanktoFleshCrawls;

  var
  myPath:TPointArray;
  begin
  SPS_Setup(RUNESCAPE_SURFACE,['10_6','10_7']);//SPS Areas (self explanatory)
  myPath := [Point(4204, 2685), Point(4195, 2686), Point(4194, 2695),
  Point(4197, 2702), Point(4207, 2703), Point(4218, 2705), Point(4226, 2705),
  Point(4233, 2711), Point(4235, 2721), Point(4234, 2733), Point(4233, 2746),
  Point(4232, 2755), Point(4231, 2765), Point(4231, 2778), Point(4228, 2785),
  Point(4217, 2785), Point(4213, 2791), Point(4200, 2791), Point(4187, 2787),
  Point(4185, 2802), Point(4188, 2810), Point(4189, 2819), Point(4189, 2828),
  Point(4188, 2837), Point(4189, 2845), Point(4192, 2854), Point(4196, 2863),
  Point(4196, 2874), Point(4197, 2884), Point(4199, 2893), Point(4193, 2901),
  Point(4193, 2909), Point(4193, 2917), Point(4194, 2926), Point(4192, 2934),
  Point(4187, 2939), Point(4182, 2945), Point(4176, 2950), Point(4167, 2956),
  Point(4159, 2958)];//Path from the path maker.
end;
begin
  Smart_Server := WORLD;
  Smart_Members := MEMBERS;
  Smart_Signed := SIGNED;
  Smart_SuperDetail := False; // These four lines, setup and run Smart, using the constants you made earlier.
  SetupSRL; // This is used to setup SRL's base features, and is almost always necessary.
  DeclarePlayers; // This runs your DeclarePlayers procedure, setting them up to run
  LoginPlayer; // This logs in your first player.
  SPS_Debug := true
  BanktoFleshCrawls; // sps path used to getting to the dungeon.
end.