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: function TPandorasOptions.IsArtifactsStored: Boolean;
  begin
    Result := FArtifacts.Count > 0;
  end;
  
  function TPandorasOptions.IsCreaturesStored: Boolean;
  
negative.code:   published
      property Creatures: TCreatureSet read FCreatures stored IsCreaturesStored;
  
      property Experience: UInt64 read GetExperience write SetExperience default 0;
      property Mana: Int32 read GetMana write SetMana default 0;
      property Morale: Int32 read GetMorale write SetMorale default 0;
      property Luck: Int32 read GetLuck write SetLuck default 0;
  
      property Resources: TResourceSet read FResources stored IsResourcesStored;
      property PrimarySkills: TRewardPrimarySkills read FPrimarySkills stored IsPrimarySkillsStored;
  