// Detect Evil Monks
void main()
{
   object oPC=GetEnteringObject();
   object oMonk=GetNearestObjectByTag("MonasteryMonk",oPC,1);
   if (GetIsPC(oPC)==TRUE)
   { // is PC
     if (GetIsEnemy(oPC,oMonk)!=TRUE)
     { // see if evil
       if (GetAlignmentGoodEvil(oPC)==ALIGNMENT_EVIL)
       { // evil
         AssignCommand(oMonk,SpeakString("I sense an evil presence."));
         AdjustReputation(oPC,oMonk,-100);
       } // evil
     } // see if evil
   } // is PC
}