// Local area transition script.
// Created by Somnium in 2015 for the Alangara server.
// This area-transition script teleports both the entering PC and any
// followers he might have, to a destination waypoint.
// Usage:
// 1) Put this script on an area transition trigger (onEnter event).
// 2) Place a local string named TELEPORT_TARGET on the trigger, with
//    a value corresponding to the tag of the target waypoint.

//// - Repeatedly attempts to jump to lTarget until successful
void FailsafeJump(object oJumper, location lTarget);

void main()
{
   object oPC = GetEnteringObject();
   if (GetIsObjectValid(oPC) && GetIsPC(oPC))
   {
       string targetName = GetLocalString(OBJECT_SELF, "TELEPORT_TARGET");

       if (targetName != "")
       {
           object target = GetWaypointByTag(targetName);
           location targetLocation = GetLocation(target);
           if (GetIsObjectValid(target))
           {
              FailsafeJump(oPC, targetLocation);
              object factionMember = GetFirstFactionMember(oPC, FALSE);
              while (GetIsObjectValid(factionMember))
              {
                 if (!GetIsPC(factionMember) && GetMaster(factionMember) == oPC)
                 {
                    FailsafeJump(factionMember, targetLocation);
                 }
                 factionMember = GetNextFactionMember(oPC, FALSE);
              }
           }
       }
   }
}

//// - Repeatedly attempts to jump to lTarget until successful
void FailsafeJump(object oJumper, location lTarget)
{
    float fDist = GetDistanceBetweenLocations(GetLocation(oJumper), lTarget);
    if (fDist > 1.5 || fDist < 0.0)
    {
        AssignCommand(oJumper, ClearAllActions());
        DelayCommand(0.05, AssignCommand(oJumper, ActionJumpToLocation(lTarget)));
        DelayCommand(0.1, FailsafeJump(oJumper, lTarget));
    }
}