anchor.diff:    public
       constructor Create(AOwner: IMapObject);
       procedure NotifyReferenced(AOldIdentifier, ANewIdentifier: AnsiString);
  +
  +    function IsEmpty: Boolean;
   
       property TightFormation:Boolean read FTightFormation write SetTightFormation;
     end;
  
positive.code: 
  function TGuardedObjectOptions.IsGuardsStored: Boolean;
  begin
    Result := FGuards.Count > 0;
  end;
  
  { TCreatureSet }
  
negative.code:     procedure ApplyVisitor(AVisitor: IObjectOptionsVisitor); override;
      procedure Clear; override;
    published
      property Amount: Integer read FAmount write FAmount default 0;
    end;
  
    { TTownOptions }
  