object oItem;
/*   Script generated by
Lilac Soul's NWN Script Generator, v. 2.3

For download info, please visit:
http://nwvault.ign.com/View.php?view=Other.Detail&id=4683&id=625    */

// and develloped by Tarashon for alangara Quest

#include "nw_i0_tool"
void main()
{
 object oPC;

oPC = GetItemActivator();

object oTarget;
oTarget = oPC;

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

   int nInt;
   nInt = GetObjectType(oTarget);

   if (nInt != OBJECT_TYPE_WAYPOINT) ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_MYSTICAL_EXPLOSION), oTarget);
   else ApplyEffectAtLocation(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_MYSTICAL_EXPLOSION), GetLocation(oTarget));

   oItem = GetItemPossessedBy(oPC, "crypticrod3");

   if (GetIsObjectValid(oItem))
      DestroyObject(oItem);

   oItem = GetItemPossessedBy(oPC, "crypticnote3");

   if (GetIsObjectValid(oItem))
      DestroyObject(oItem);

   RewardPartyXP(1500, oPC, FALSE);

   CreateItemOnObject("crypticrod4", oPC);

   CreateItemOnObject("crypticnote4", oPC);

   }
else
   {

   FloatingTextStringOnCreature("The rod seemes to lack energy to activate !", oPC);

   }

}