void main()
{
object npc = GetEnteringObject();
if (GetTag(npc)!="DUNNARK") return;
AssignCommand(GetMaster(npc),ClearAllActions());
DestroyObject(GetObjectByTag("Dunnark1"));
AssignCommand(npc,SpeakString("Hey!  I think I smell treasure nearby!"));
}