void main()
{

object oDoor = GetObjectByTag("BethCruHQEntrance");
location lDoor = GetLocation(oDoor);
object oAnna = GetObjectByTag("AnnaFrank");
object oKiller = GetLastKiller();
object oKris = GetObjectByTag("KrisKringle");
int nLevel = GetHitDice(oKiller);

// if (GetArea(oKiller) == GetArea(oAnna))
//   {
//    SetLocalInt(oKiller,"nAnnaFrank",3);
//    DelayCommand(6.0,SignalEvent(oAnna,EventUserDefined(100)));
//   }

 if (GetTag(OBJECT_SELF) == "crusadersoldierreinf") return;
 if (GetTag(OBJECT_SELF) == "crusadersargeantreinf") return;
 if (GetTag(OBJECT_SELF) == "crusaderknightreinf") return;
 if (GetTag(OBJECT_SELF) == "crusaderveteranreinf") return;

 if (GetArea(oKiller) == GetArea(oDoor))
  {
   AssignCommand(oDoor,ActionOpenDoor(oDoor));
   SetLocalInt(oKris,"nCrusaders",1);
   AdjustReputation(oKiller,OBJECT_SELF,-100);

 if (nLevel <=5)
   {
    CreateObject(OBJECT_TYPE_CREATURE,"crubethsoldier",lDoor,FALSE,"crusadersoldierreinf");
    CreateObject(OBJECT_TYPE_CREATURE,"crubethsoldier",lDoor,FALSE,"crusadersoldierreinf");
   }

 if ((nLevel >5) && (nLevel <=10))
   {
    CreateObject(OBJECT_TYPE_CREATURE,"crubethsoldier",lDoor,FALSE,"crusadersoldierreinf");
    CreateObject(OBJECT_TYPE_CREATURE,"crubethsarge",lDoor,FALSE,"crusadersargeantreinf");
   }

 if ((nLevel >10) && (nLevel <=15))
   {
    CreateObject(OBJECT_TYPE_CREATURE,"crubethsarge",lDoor,FALSE,"crusadersargeantreinf");
    CreateObject(OBJECT_TYPE_CREATURE,"crubethknight",lDoor,FALSE,"crusaderknightreinf");
   }

 if (nLevel >15)
   {
    CreateObject(OBJECT_TYPE_CREATURE,"crubethknight",lDoor,FALSE,"crusaderknightreinf");
    CreateObject(OBJECT_TYPE_CREATURE,"crubethvet",lDoor,FALSE,"crusaderveteranreinf");
   }

  }

}