anchor.diff:      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 }
  
positive.code:   end;
  
  implementation
  
  { TRewards }
  
  
negative.code:     FAmount: Integer;
      FNeverFlees: boolean;
      FNoGrowing: boolean;
      FReward: TRewards;
      FRewardArtifact: AnsiString;
      FRewardMessage: TLocalizedString;
      FRewardResources: TResourceSet;
      function IsRewardArtifactStored: Boolean;
      function IsRewardMessageStored: Boolean;
      function IsRewardResourcesStored: Boolean;
      function IsRewardStored: Boolean;
      procedure SetAmount(AValue: Integer);
      procedure SetNeverFlees(AValue: boolean);
      procedure SetNoGrowing(AValue: boolean);
  