////////////////////////////////////////////
// Script:  lrgwspeus_hportl
// Author:  Lord Random
// Date:    August 13, 2002
// Version: 1.0
// Copyright (c) 2001 Bioware Corp.
//::::::::::::::::::::::::::::::::::::::::::
// Source(s)
// 1. Lord Random's Gateway-Builder's
//    Playground Module
//::::::::::::::::::::::::::::::::::::::::::
// Description
//    This script teleports the PC back to
// the Gateway Return Portal if it exists.
//::::::::::::::::::::::::::::::::::::::::::
// Requirements
// 1. Must be attached to the placeable event
//    OnUsed for the Gateway Home Portal.
//::::::::::::::::::::::::::::::::::::::::::
// Notes
//::::::::::::::::::::::::::::::::::::::::::
// Modification History
// Date       Who           Modifications
// ---------- ------------- ----------------
//  8/13/2002 Lord Random   Created script
////////////////////////////////////////////

#include "lrtpt_include"

void main()
{
   object oPC=GetLastUsedBy();
   object oOwner=GetLocalObject(OBJECT_SELF, "LRGWS_Owner");
   location lPC=GetLocation(oPC);

//
// Make sure this is the portal owner
//
   if (oOwner==oPC)
   {
      if (GetLocalInt(oPC, "LRGWS_ReturnIsSet")==TRUE)
      {
         ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
            EffectParalyze(), oPC, 4.5);
         ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY,
            EffectVisualEffect(VFX_IMP_MAGIC_PROTECTION), lPC);
         DelayCommand(3.0, ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY,
            EffectVisualEffect(VFX_FNF_SUMMON_MONSTER_2), lPC, 1.0));
         DelayCommand(3.0, ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY,
            EffectVisualEffect(VFX_IMP_GOOD_HELP), lPC));
         DelayCommand(4.0, ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY,
            EffectVisualEffect(VFX_IMP_LIGHTNING_M), lPC));
         DelayCommand(5.0, ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY,
            EffectVisualEffect(VFX_DUR_PROT_PREMONITION), lPC));

         DelayCommand(5.0, AssignCommand(oPC,
            ActionDoCommand(GroupJumpToLocation(oPC,
            GetLocalLocation(oPC, "LRGWS_ReturnLoc")))));
      }
      else SpeakString("The Gateway Return Portal does not exist.");
   }
   else SpeakString("Only "+GetLocalString(oOwner, "LRGWS_OwnerName")+
      " may use this portal.");
}