void main()
{

object oPC = GetEnteringObject();

if (!GetIsPC(oPC)) return;

FloatingTextStringOnCreature("A pale and ghostly man appears at the back door opposite the entrance..", oPC, FALSE);
DelayCommand(3.0, FloatingTextStringOnCreature("He looks as though he is walking out of a strange fog.", oPC, FALSE));

// Destroy objects (not fully effective until this script ends).
DelayCommand(4.0, DestroyObject(GetObjectByTag("plbed1")));
DelayCommand(4.0, DestroyObject(GetObjectByTag("plbed2")));
DelayCommand(4.0, DestroyObject(GetObjectByTag("plbed3")));
DelayCommand(4.0, DestroyObject(GetObjectByTag("plbed4")));

DelayCommand(4.1, DestroyObject(OBJECT_SELF));

}