#include "spawner"
#include "prc_x2_itemprop"
void Tstrike(object oItem)
{
int oDamage;
itemproperty ipAdd;
ipAdd = ItemPropertyCastSpell
(IP_CONST_CASTSPELL_TRUE_STRIKE_5,
IP_CONST_CASTSPELL_NUMUSES_5_USES_PER_DAY);
IPSafeAddItemProperty(oItem, ipAdd);
}


void main()
{
object oTarget;
object oItem;

int oDamage;
SetLocked(OBJECT_SELF, TRUE);
oItem = GetFirstItemInInventory(OBJECT_SELF);
 while(GetIsObjectValid(oItem))
 {
 if (GetTag(oItem)=="pearl")
 {DestroyObject(oItem);}
 oItem = GetNextItemInInventory(OBJECT_SELF);
 }
CastPC(0.0,SPELL_SHAPECHANGE, OBJECT_SELF);
PCEffect(1.0,VFX_IMP_SUPER_HEROISM, OBJECT_SELF);
PCEffect(1.5,VFX_IMP_IMPROVE_ABILITY_SCORE, OBJECT_SELF);
PCEffect(2.0,VFX_FNF_PWKILL, OBJECT_SELF);
DelayCommand(1.0, Tstrike(GetFirstItemInInventory(OBJECT_SELF)));
DelayCommand(3.0, SetLocked(OBJECT_SELF, FALSE));
}