////////////////////////////////////
//Created by Genisys / Guile 6/27/08
////////////////////////////////////
/*
script name:  "ac_stoneofrecall"

This is a tagbased item script which
works off the tagnamed item
"stoneofrecall" this script allows
the user to teleport to a waypoint
tagnamed "home" storing thier location
till they use the stone again, which
will teleport them back to where
they original used the stone.

*/
////////////////////////////////////

///Main Script///
void main()
{
//Declare Major Variables
object oPC = GetItemActivator();
object oTarget;
location lTarget;
location lLocation;
location lStored = GetLocalLocation(oPC, "recall_loc");
effect eVis = EffectVisualEffect(VFX_FNF_SUMMON_CELESTIAL);

//Note Useable in Combat..
if (GetIsInCombat(oPC))
{
FloatingTextStringOnCreature("This item is not useable in combat!", oPC, FALSE);
return;
}

//If the stored location is valid..
if (GetIsObjectValid(GetAreaFromLocation(lStored))==TRUE)
   {

   //Apply a fancy visual effect :)
   ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oPC, 0.0f);

   AssignCommand(oPC, ClearAllActions());

   //Allow for the visual effect to finish.
   DelayCommand(4.0, AssignCommand(oPC, ActionJumpToLocation(lStored)));

   //Remove the stored location..
   DelayCommand(7.0, DeleteLocalLocation(oPC, "recall_loc"));
   }

//If the PC doesn't have a stored location...
else if(GetIsObjectValid(GetAreaFromLocation(lStored))==FALSE)
   {
   oPC = GetItemActivator();

   oTarget = GetWaypointByTag("home");

   lTarget = GetLocation(oTarget);

   //Store the PC's current location first..
   SetLocalLocation(oPC, "recall_loc", GetLocation(oPC));

   //Apply a fancy visual effect :)
   ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oPC, 0.0f);

   DelayCommand(0.1, AssignCommand(oPC, ClearAllActions()));

   //Teleport them to the waypoint tagnamed "home"
   DelayCommand(4.0, AssignCommand(oPC, ActionJumpToLocation(lTarget)));

   }

   //Otherwise if both above fail..
   else
   {
   //Tell the PC there is a bug and ask them to report it.
   FloatingTextStringOnCreature("There is an error with the Recall Stone" +
   ", please report this to the DMs.", GetItemActivator(), FALSE);
   }

//Script End
}