#include "spawner"
#include "prc_x2_itemprop"
void Invis(object oItem)
{
int oDamage;
itemproperty ipAdd;
ipAdd = ItemPropertyCastSpell
(IP_CONST_CASTSPELL_IMPROVED_INVISIBILITY_7,
IP_CONST_CASTSPELL_NUMUSES_2_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_DUR_ETHEREAL_VISAGE, OBJECT_SELF);
PCEffect(1.5,VFX_DUR_INVISIBILITY, OBJECT_SELF);
PCEffect(2.0,VFX_IMP_DUST_EXPLOSION, OBJECT_SELF);
DelayCommand(1.0, Invis(GetFirstItemInInventory(OBJECT_SELF)));
DelayCommand(3.0, SetLocked(OBJECT_SELF, FALSE));
}