anchor.diff:    private
       FGuardMessage: TLocalizedString;
       FGuards: TCreatureSet;
  +    function IsGuardsStored: Boolean;
       procedure SetGuardMessage(AValue: TLocalizedString);
     public
       constructor Create(AObject: IMapObject); override;
  
positive.code: 
      procedure Clear; override;
    published
      property Guards: TCreatureSet read FGuards;
      property GuardMessage:TLocalizedString read FGuardMessage write SetGuardMessage;
    end;
  
  
negative.code:   FGuardMessage := AValue;
  end;
  
  function TGuardedObjectOptions.IsGuardsStored: Boolean;
  begin
    Result := FGuards.Count > 0;
  end;
  
  { TCreatureSet }
  
  procedure TCreatureSet.SetTightFormation(AValue: Boolean);
  