void main()
{
    object oPC = GetEnteringObject();
     location pc = GetLocation(oPC);
    if ( GetLocalInt(OBJECT_SELF, "haunt")!=0){return;}
    if (GetIsPC(oPC) == FALSE ){return;}
    if (GetIsNight() == FALSE && GetIsDusk() == FALSE ){return;}


    CreateObject  (  OBJECT_TYPE_CREATURE, "haunt",  pc, TRUE);
    SetLocalInt(OBJECT_SELF, "haunt", 1);
   DelayCommand(60.0, SetLocalInt(OBJECT_SELF, "haunt", 0));
   }