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: 
  function TGuardedObjectOptions.IsGuardsStored: Boolean;
  begin
    Result := FGuards.Count > 0;
  end;
  
  { TCreatureSet }
  
negative.code:   inherited Create(ACollection);
  end;
  
  function TCreatureInstInfo.IsEmpty: Boolean;
  begin
    Result := (FType = '') and (FAmount = 0) and (FLevel = 0) and (FUpgraded = false);
  end;
  
  procedure TCreatureInstInfo.SetAmount(AValue: Integer);
  begin
    FAmount := AValue;
  