// howdy seeker :)
// spell makes an activation symbol now and works perfect
// on activation but only allows activation on PC
// and not other creatures. can you fix that ?
// tarashon

// spell should now aply 4+ level/7 (maximum 8)shield AC
// on target creature.

//::///////////////////////////////////////////////
//:: Shield
//:: x0_s0_shield.nss
//:: Copyright (c) 2001 Bioware Corp.
//:://////////////////////////////////////////////
/*
    Immune to magic Missile
    +4 general AC
    DIFFERENCES: should be +7 against one opponent
    but this cannot be done.
    Duration: 1 turn/level
*/
//:://////////////////////////////////////////////
//:: Created By: Brent Knowles
//:: Created On: July 15, 2002
//:://////////////////////////////////////////////
//:: Last Update By: Andrew Nobbs May 01, 2003
#include "NW_I0_SPELLS"

#include "x2_inc_spellhook"

void main()
{

/*
  Spellcast Hook Code
  Added 2003-06-20 by Georg
  If you want to make changes to all spells,
  check x2_inc_spellhook.nss to find out more

*/

 //   if (!X2PreSpellCastCode())
  //  {
    // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell
 //       return;
 //   }

// End of Spell Cast Hook


    //Declare major variables


    object oTarget = GetSpellTargetObject();
    // object oPC = GetSpellTargetObject();
    effect eVis = EffectVisualEffect(VFX_IMP_AC_BONUS);
    int nMetaMagic = GetMetaMagicFeat();
    int nCasterLvl = GetCasterLevel(OBJECT_SELF);


    int nValue = 4 + (nCasterLvl)/7;

    if ( GetItemPossessedBy(oTarget, "potioncrystal4") != OBJECT_INVALID )
    {
       nValue = 6;
    }

    if (nValue > 8)
     nValue = 8; // * Max of 8

    // effect eArmor = EffectACIncrease(nValue, AC_DEFLECTION_BONUS);
    effect eArmor = EffectACIncrease(nValue, AC_SHIELD_ENCHANTMENT_BONUS);
    effect eSpell = EffectSpellImmunity(SPELL_MAGIC_MISSILE);
    effect eDur = EffectVisualEffect(VFX_DUR_GLOBE_MINOR);

    effect eLink = EffectLinkEffects(eArmor, eDur);
    eLink = EffectLinkEffects(eLink, eSpell);

    int nDuration = GetCasterLevel(OBJECT_SELF); // * Duration 1 turn
    if (nMetaMagic == METAMAGIC_EXTEND) //Duration is +100%
    {
         nDuration = nDuration * 2;
    }

    if ( GetItemPossessedBy(oTarget, "potioncrystal4") != OBJECT_INVALID )
    {
       nDuration = nDuration + 5;
    }


    //Fire spell cast at event for target
    SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, 421, FALSE));

   // RemoveEffectsFromSpell(OBJECT_SELF, GetSpellId());

    //Apply VFX impact and bonus effects
    ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget);
    ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, HoursToSeconds(nDuration));

    object oPC;

    oPC = OBJECT_SELF;

    if (GetLevelByClass(CLASS_TYPE_SORCERER, oPC) >= 15)
    //if (GetHitDice(oPC) >= 15)
     {
      CreateItemOnObject("shieldpotion", oPC);
     }

    if (GetLevelByClass(CLASS_TYPE_WIZARD, oPC) >= 15)
    //if (GetHitDice(oPC) >= 15)
     {
      CreateItemOnObject("shieldpotion", oPC);
     }

     if (GetLevelByClass(CLASS_TYPE_BARD, oPC) >= 15)
     //if (GetHitDice(oPC) >= 15)
     {
      CreateItemOnObject("shieldpotion", oPC);
     }

      // *** Fokus Token in action *** //

     if (GetItemPossessedBy(oPC, "potioncrystal6")!= OBJECT_INVALID)
       {

       oPC = GetSpellTargetObject();

       if ( Random(100) >= 25 ) return;
       if ( GetLevelByClass(CLASS_TYPE_BARD, oPC) >= 15 ) return;
       if ( GetLevelByClass(CLASS_TYPE_SORCERER, oPC) >= 15 ) return;
       if ( GetLevelByClass(CLASS_TYPE_WIZARD, oPC) >= 15 ) return;

           CreateItemOnObject("shieldpotion", oPC);

           FloatingTextStringOnCreature("The Focus Stone emits a brief radiance as it creates a Shield Potion", oPC);

       }

    // *** End of focus Token *** //



}