#include "nw_i0_spells"
/*   Script generated by
Lilac Soul's NWN Script Generator, v. 1.6

For download info, please visit:
http://www.lilacsoul.revility.com    */

// Yderligere tilfoejelse af Seeker d. 21/4 2005
// Tilrettet mht. stackbug d. 10/6 2005


void main()
{
   object oPC = GetItemActivator();

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

      object oTarget;
      oTarget=GetHenchman(oPC);

      RemoveHenchman(oPC, oTarget);

      DestroyObject(oTarget);

      oTarget = GetAssociate(ASSOCIATE_TYPE_DOMINATED, oPC);

      if (GetIsObjectValid(oTarget)) RemoveSpecificEffect(EFFECT_TYPE_DOMINATED, oTarget);

      effect eEffect;
      eEffect = EffectSummonCreature("ibircatspotte001", VFX_IMP_DIVINE_STRIKE_FIRE, 1.0);

      ApplyEffectToObject(DURATION_TYPE_PERMANENT, eEffect, oPC);

      object oItem;
      oItem = GetItemPossessedBy(oPC, "powerstone");

      int stackSize = GetItemStackSize(oItem);

      if ( stackSize == 1 )
      {
         DestroyObject( oItem );
      }
      else
      {
         stackSize -= 1;
         SetItemStackSize( oItem, stackSize );
      }
   }
   else
   {
      FloatingTextStringOnCreature( "You do not have a powerstone to power the summoning", oPC, FALSE );
   }
}