void main()
{
 // ---------------------------------------------------
 // Make it so the trigger only happens once per game
 // ---------------------------------------------------
 object oPC = GetEnteringObject();
 if (!GetIsPC(oPC)) return;
 int DoOnce = GetLocalInt(OBJECT_SELF, GetTag(OBJECT_SELF));
 if (DoOnce==TRUE) return;
     SetLocalInt(OBJECT_SELF, GetTag(OBJECT_SELF), TRUE);

    // Start Perem talking
    object oPerem = GetObjectByTag ("PEREM");

    int bStarted = GetLocalInt (oPerem, "STARTED");
    if (!bStarted)
    {
        // Make sure the trigger is only activated once
        SetLocalInt (oPerem, "STARTED", TRUE);

        // Get the Wizard to start the action !!
        SetLocalInt (oPerem, "STATE", 90);
    }
}