void main()
{
object npc = GetEnteringObject();
if (GetTag(npc)!="BaikTelor") return;
DestroyObject(GetObjectByTag("Baik5"));
AssignCommand(GetMaster(npc),ClearAllActions());
AssignCommand(npc,SpeakString("There is something nearby...something old...I can feel it."));
}