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);
FloatingTextStringOnCreature("A faint melodious voice can be heard singing beyond the doors.  The voice seems female and sweet, but it is difficult to tell whether someone is singing or if it is the echoing of dripping water in a great cavern.", oPC, TRUE);
}
