void main()
{

object oPC = GetEnteringObject();

if (!GetIsPC(oPC)) return;


int DoOnce = GetLocalInt(OBJECT_SELF, GetTag(OBJECT_SELF));

if (DoOnce==TRUE) return;

SetLocalInt(OBJECT_SELF, GetTag(OBJECT_SELF), TRUE);

SetLocalInt(oPC, GetTag(OBJECT_SELF), TRUE);
   //AssignCommand(oPC, ClearAllActions());
FloatingTextStringOnCreature("The room is lit by a strange soft light which illuminates a section of sandy beech.  Beyond the beach is a pool of water framed by a crystal cavern.  The light seems to flow from everywhere, the pool and walls glistening with a soft moonlight, but the most arresting thing in the room is the singer.  Sitting on the beach in front of the crystaline pool is  a beautiful nude woman.  She is young and slim, with long golden hair and pale white skin.", oPC, TRUE);
FloatingTextStringOnCreature("Her flesh seems to radiate a soft silvery light.   She is singing a strange melody in an unrecognizable language.  On the shore by her side is a shawl, white as the froth of waves apparently cast aside in languor.  After finishing her song, she slips into the water in a long arching dive.", oPC, TRUE);

object oTarget;
oTarget = GetObjectByTag("Nerid");

DelayCommand(6.0, AssignCommand(oTarget, ClearAllActions()));

DelayCommand(6.0, AssignCommand(oTarget, ActionMoveToObject(GetObjectByTag("c13Nerid"))));

object oCaster;
oCaster = GetObjectByTag("Nerid");

oTarget = GetObjectByTag("Nerid");

DelayCommand(10.0, AssignCommand(oCaster, ActionCastSpellAtObject(SPELL_IMPROVED_INVISIBILITY, oTarget, METAMAGIC_ANY, TRUE, 4, PROJECTILE_PATH_TYPE_DEFAULT, TRUE)));

}
