anchor.diff:    private
       FCorpse: array [0..CorpseMax - 1] of TCorpse;
       procedure Save(Index, AX, AY, AZ: Byte);
  +    procedure Load(Index: Byte);
     public
       constructor Create;
       destructor Destroy; override;
  
positive.code: 
  constructor TCorpses.Create;
  var
    F: TIniFile;  
    I: Byte;
    S: string;
  begin
    F := TIniFile.Create(GetPath() + 'morgue.thi');
    try
      for I := 0 to CorpseMax - 1 do
      begin
        S := IntToStr(I);
        FCorpse[I].X := F.ReadInteger(S, 'X', 0);
        FCorpse[I].Y := F.ReadInteger(S, 'Y', 0);
        FCorpse[I].Z := F.ReadInteger(S, 'Z', 0);
      end;
    finally
      F.Free;
    end;
  
negative.code:   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;
  
  