anchor.diff:    Result := FSpells.Count > 0;
   end;
   
  +procedure TPandorasOptions.SetExperience(AValue: UInt64);
  +begin
  +  Reward.AddOrUpdateReward(TMetaclass.experience,'', Int64(AValue));
  +end;
  +
  +procedure TPandorasOptions.SetLuck(AValue: Int32);
  +begin
  +  Reward.AddOrUpdateReward(TMetaclass.luck,'', AValue);
  +end;
  +
  +procedure TPandorasOptions.SetMana(AValue: Int32);
  +begin
  +  Reward.AddOrUpdateReward(TMetaclass.mana,'', AValue);
  +end;
  +
  +procedure TPandorasOptions.SetMorale(AValue: Int32);
  +begin
  +  Reward.AddOrUpdateReward(TMetaclass.morale,'', AValue);
  +end;
  +
   function TPandorasOptions.IsPrimarySkillsStored: Boolean;
   begin
     Result := not FPrimarySkills.IsDefault;
  
positive.code:   published
      property Creatures: TCreatureSet read FCreatures stored IsCreaturesStored;
  
      property Experience: UInt64 read FExperience write FExperience default 0;
      property Mana: Int32 read FMana write FMana default 0;
      property Morale: Int32 read FMorale write FMorale default 0;
      property Luck: Int32 read FLuck write FLuck default 0;
  
      property Resources: TResourceSet read FResources stored IsResourcesStored;
      property PrimarySkills: TRewardPrimarySkills read FPrimarySkills stored IsPrimarySkillsStored;
  
negative.code:   private
      FArtifacts: TStrings;
      FCreatures: TCreatureSet;
      FPrimarySkills: TRewardPrimarySkills;
      FResources: TResourceSet;
      FReward: TRewards;
      FSecondarySkills: THeroSecondarySkills;
      FSpells: TStrings;
      function GetExperience: UInt64;
      function GetLuck: Int32;
      function GetMana: Int32;
      function GetMorale: Int32;
      function IsArtifactsStored: Boolean;
      function IsCreaturesStored: Boolean;
      function IsPrimarySkillsStored: Boolean;
      function IsResourcesStored: Boolean;
      function IsSecondarySkillsStored: Boolean;
      function IsSpellsStored: Boolean;
      procedure SetExperience(AValue: UInt64);
      procedure SetLuck(AValue: Int32);
      procedure SetMana(AValue: Int32);
      procedure SetMorale(AValue: Int32);
    public
      constructor Create(AObject: IMapObject); override;
      destructor Destroy; override;
  