anchor.diff:      procedure AddReward(AType: TMetaclass; AIdentifier: AnsiString; AValue: Int64);
     end;
   
  +
  +  { TProxyResourceSet }
  +
  +  TProxyResourceSet = class(TResourceSet)
  +  strict private
  +    FData: TRewards;
  +  public
  +    constructor Create(AData: TRewards);
  +
  +  end
  +  unimplemented;
  +
   {$pop}
   
     { TCustomObjectOptions }
   
     TCustomObjectOptions = class(TObjectOptions)
   
  -  end;
  +  end
  +  unimplemented;
   
     { TGuardedObjectOptions }
   
  
positive.code:     FAmount: Integer;
      FNeverFlees: boolean;
      FNoGrowing: boolean;
      FRewardArtifact: AnsiString;
      FRewardMessage: TLocalizedString;
      FRewardResources: TResourceSet;
      function IsRewardArtifactStored: Boolean;
      function IsRewardMessageStored: Boolean;
      function IsRewardResourcesStored: Boolean;
      procedure SetAmount(AValue: Integer);
      procedure SetNeverFlees(AValue: boolean);
      procedure SetNoGrowing(AValue: boolean);
  
negative.code:     property Character: TCreatureCharacter read FCharacter write FCharacter nodefault;
  
      property RewardMessage: TLocalizedString read FRewardMessage write SetRewardMessage stored IsRewardMessageStored;
  
      property RewardResources: TResourceSet read FRewardResources stored IsRewardResourcesStored;
      property RewardArtifact: AnsiString read FRewardArtifact write SetRewardArtifact stored IsRewardArtifactStored;
  
      property Reward: TRewards read FReward stored false;//todo: Creature full reward support in format version 1.1
    end;
  
    { TSeerHutOptions }
  