// *** Tarashon's creation of a divine shield potion effect *** //

//#include "x0_i0_spells"
#include "prc_inc_spells"

void main()
{

   if(GetHasFeatEffect(414) == FALSE)
   {
        //Declare major variables

        object oPC;

        oPC = GetItemActivator();

        int nLevel = PRCGetCasterLevel(oPC);

        effect eVis = EffectVisualEffect(VFX_IMP_SUPER_HEROISM);
        effect eDur = EffectVisualEffect(VFX_DUR_GLOBE_MINOR);

        int nCharismaBonus = GetAbilityModifier(ABILITY_CHARISMA, oPC);

        // *** Tarashon making duration be minimum 10 rounds for Alangara - New Dawn PW *** //

        int nDuration = 10;

        // *** Tarashon making duration be minimum 15 rounds if player has Extend Spell Feat *** //



        if ( GetHasFeat(FEAT_EXTEND_SPELL, oPC) )
        {
        nDuration = 15;
        }

        // *** Tarashon setting charisma bonus to maximum +10 *** //

        if (nCharismaBonus >10)
        {
        nCharismaBonus = 10;
        }

        // *** Tarashon adding Charisma Modifier to duration *** //

        nDuration = nDuration + nCharismaBonus;

         // *** Tarashon setting charisma bonus to minimum +4 for effect, not duration *** //

        if (nCharismaBonus <4)
        {
        nCharismaBonus = 4;
        }

        // *** Tarashon done, except durtion is altered now to nDuration instead of nCharismaBonus *** //

        effect eAC = EffectACIncrease(nCharismaBonus, AC_SHIELD_ENCHANTMENT_BONUS );

        effect eLink = EffectLinkEffects(eAC, eDur);

        eLink = SupernaturalEffect(eLink);

         // * Do not allow this to stack
        PRCRemoveEffectsFromSpell(oPC, PRCGetSpellId());

        //Fire cast spell at event for the specified target
        SignalEvent(oPC, EventSpellCastAt(oPC, 474, FALSE));

        //Apply Link and VFX effects to the target
        ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oPC, RoundsToSeconds(nDuration));
        ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oPC);


    }
}