string sSayThis;
int iTalkVolume = TALKVOLUME_TALK;
int iTalkFlag = 0;
#include "nw_i0_tool"
void main()
{
if (GetNearestObjectByTag("TAER_PRLCHPRT", OBJECT_SELF) == OBJECT_INVALID){

if((!HasItem(GetEnteringObject(), "TAER_CRUWL")) == FALSE){
    object oItemToTake = GetItemPossessedBy(GetEnteringObject(), "TAER_CRUWL");
       DestroyObject(oItemToTake);
       DestroyObject(oItemToTake);
       DestroyObject(oItemToTake);
    object oTarget = GetObjectByTag("LCPORTCRT");
    object oPC = GetEnteringObject();
    AssignCommand(oPC, ClearAllActions(TRUE));
    AssignCommand(oPC, PlaySound("as_mg_telepout1"));
    CreateObject(OBJECT_TYPE_PLACEABLE, "lichportalz", GetLocation(oTarget), TRUE);
    }

else {
   object oPC = GetEnteringObject();
   sSayThis = "I sense great power here.  I wonder how I can release it?";
   AssignCommand(oPC, ClearAllActions(TRUE));
   AssignCommand(oPC, ActionSpeakString(sSayThis, iTalkVolume));}}

else {
    object oItemToTake = GetItemPossessedBy(GetEnteringObject(), "TAER_CRUWL");
    DestroyObject(oItemToTake);
    DestroyObject(oItemToTake);
    DestroyObject(oItemToTake);}
}