SRL Archive - Help

Hey been using a procedure i made with out any problems come to play with it again today and get

Error: Exception: The given DTM Index[2] doesn't exist at line 281
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]

procedure tel(Location : string);
var
HomeDTM, x, y, i, p, t: Integer;
begin
HomeDTM := DTMFromString('m1gAAAHic42JgYGhnhuAJUNwL5TcDcR0QN0DFtjMyMKwD4q1AvBOI9wLxASDeD8Q7gHgTEG8E4n1HPjG0zblBEIswEAcYicQIAAA5ASEJ');
  MarkTime(t);
  GameTab(28);
  repeat
    If LodestoneScreen then
     begin
      repeat
      Lodestoneteleport(Location);
      Wait(RandomRange(500, 500));
      DebugText('[Debug Message]- Teleporting!');

    if TimeFromMark(t) > 20000 then
    begin
    repeat
        if FindDTM(HomeDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
        begin
        mmouse (x, y, 7, 7);
        ClickMouse2(mouse_left);
        Writeln('Found Home!');
        Wait(RandomRange(100, 100));
        FreeDTM(HomeDTM);
        end;
    until(LodestoneScreen)
    end;


    until(FindSymbol(x, y,'lodestone')=True)
    end else
     281  >>  if FindDTM(HomeDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
        begin
        mmouse (x, y, 7, 7);
        ClickMouse2(mouse_left);
        Writeln('Found Home!');
        Wait(RandomRange(100, 100));
        FreeDTM(HomeDTM);
        end else
          begin
          Writeln('Error Finding Home DTM');
          i:=i+1;
          end;
  until(i=4)or (p=1);
end;     

is the procedure

what could this be ive tried to fix myself with no luck

thanks

Problem is here

FreeDTM(HomeDTM);
        end;
    until(LodestoneScreen)
    end;


    until(FindSymbol(x, y,'lodestone')=True)
    end else
     281  >>  if FindDTM(HomeDTM, x, y, MIX1, MIY1, MIX2, MIY2) then

You loaded DTM, then freed it, then asked to search for it again.
Don't free it until the end of the procedure.

Im such a a pleb thanks spend 30 mins trying to fix this :-P