anchor.diff:    begin
       if (Ord(Map.Deep) <> FCorpse[I].Z) then Continue;
       if ((FCorpse[I].X = AX) and (FCorpse[I].Y = AY)) then
  +    begin
         Save(I, 0, 0, 0);
  +      Load(I);
  +      Exit;
  +    end;
     end;
   end;
   
  
positive.code:   F := TIniFile.Create(GetPath() + 'morgue.thi');
    try
      S := IntToStr(Index);
      F.WriteInteger(S, 'X', AX);
      F.WriteInteger(S, 'Y', AY);
      F.WriteInteger(S, 'Z', AZ);
    finally
      F.Free;
    end;
  
negative.code:     for I := 0 to CorpseMax - 1 do
      begin
        S := IntToStr(I);
        if ((FCorpse[I].X = 0) or (FCorpse[I].Y = 0)) then
          F.EraseSection(S);
        if not F.SectionExists(S) then
        begin
          Save(I, Player.X, Player.Y, Ord(Map.Deep));
  