/////////////////////////////////////////////////////////////////////
// Portal of Light
// By Deva Bryson Winblood.  01/02/2004
/////////////////////////////////////////////////////////////////////
void main()
{
    object oPC=GetEnteringObject();
    object oNear=GetNearestObjectByTag("PoL_SHAFT5",oPC,1);
    object oDest=GetWaypointByTag("PORTAL_OF_LIGHT_TELEP");
    if (oNear!=OBJECT_INVALID)
    { // teleport
      AssignCommand(oPC,ClearAllActions(TRUE));
      AssignCommand(oPC,JumpToObject(oDest));
    } // teleport
}