anchor.diff:    published
       property &type: AnsiString read FId write SetId;
   
  -    property TightFormation: Boolean read GetTightFormation write SetTightFormation;
  +    property TightFormation: Boolean read GetTightFormation write SetTightFormation default false;
       property PatrolRadius: Integer read FPatrolRadius write SetPatrolRadius default -1;
   
  -    property Artifacts: THeroArtifacts read FArtifacts;
  +    property Artifacts: THeroArtifacts read FArtifacts stored IsArtifactsStored;
       property Biography: TLocalizedString read FBiography write SetBiography;
       property Experience: UInt64 read GetExperience write SetExperience default 0;
       property Name: TLocalizedString read FName write SetName;
  
positive.code:   inherited Create(ACollection);
  end;
  
  procedure TCreatureInstInfo.SetAmount(AValue: Integer);
  begin
    FAmount := AValue;
  
negative.code:   public
      constructor Create(AOwner: IMapObject);
      procedure NotifyReferenced(AOldIdentifier, ANewIdentifier: AnsiString);
  
      function IsEmpty: Boolean;
  
      property TightFormation:Boolean read FTightFormation write SetTightFormation;
    end;
  