anchor.diff:    TCorpses = class
     private
       FCorpse: array [0..CorpseMax - 1] of TCorpse;
  +    procedure Save(Index, AX, AY, AZ: Byte);
     public
       constructor Create;
       destructor Destroy; override;
  
positive.code: 
  { TCorpses }
  
  procedure TCorpses.Append;
  var
    F: TIniFile;
  
negative.code: procedure TCorpses.DelCorpse(AX, AY: Byte);
  var
    I: Byte;
  begin
    for I := 0 to CorpseMax - 1 do
    begin
      if (Ord(Map.Deep) <> FCorpse[I].Z) then Continue;
      if ((FCorpse[I].X = AX) and (FCorpse[I].Y = AY)) then
        Save(I, 0, 0, 0);
    end;
  end;
  
  