// 12-22-2003 AW Olorin
// Remove an Immortal's immortality if they enter Hell.

void main()
{
   // SendMessageToAllDMs("OnEnter Script for hell has fired!!!");
   object oPC = GetEnteringObject();
   if (GetIsPC(oPC) && !GetIsDM(oPC))
     {
        string immortalname = ">>> ID: " + GetPCPlayerName( oPC )
                    + "; Name: "+ GetName( oPC )
                    + "; CD Key:" + GetPCPublicCDKey( oPC );
        // Check immortal flag.  Immortal = 2
        if ( GetCampaignInt("PoA", "immortalname", oPC) == 2)
           {
              // Char is Immortal, We remove it, and notify him and DM's.
              effect eMortalize = EffectVisualEffect(VFX_FNF_DEMON_HAND,0);
              SetCampaignInt("POA","immortalname",0,oPC);
              SendMessageToAllDMs( immortalname + " has been stripped of their immortality.");
              DelayCommand(3.0,ApplyEffectToObject(DURATION_TYPE_INSTANT,eMortalize,oPC));
              DelayCommand(4.0,SendMessageToPC(oPC, "The powers of Hell have sapped your immortality.  You have become mortal!"));
           }
     }
}