//::////////////////////////////////////////////////////////////////////////////
//::
//:: Script Name: cutscn_cliffclim
//::
//:: Use: This script is used to create a visual effect of falling it will also
//:: deal damage to the player and send a brief descriptive message
//::
//::
//:: Created By: Birdman076
//::
//:: Created On: August 16, 2009
//::
//:: Note: This script will disarm the player before they climb to add a bit
//:: more to the effect of climbing a rope and falling.
//::
//::////////////////////////////////////////////////////////////////////////////
effect eAppear = EffectAppear();
int nInt;
effect eEffect;
location lTarget;
object oTarget;

//Put this on action taken in the conversation editor
void main()
{
//Gets who is doing the talking
object oPC = GetPCSpeaker();
// 15% chance of this actually happening
if (d100()<=15)
   {
    //Unequips items in players hand for better immersion
    AssignCommand(oPC, ClearAllActions());
    AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_LEFTHAND)));
    AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_RIGHTHAND)));
    //Fades the screen to black to hide what is happening
    FadeToBlack(oPC);
    //Retrieves a waypoint to jump the player too
    oTarget = GetWaypointByTag("WP_CLIFF_CS_OUT");

    lTarget = GetLocation(oTarget);

//only do the jump if the location is valid.
//though not flawless, we just check if it is in a valid area.
//the script will stop if the location isn't valid - meaning that
//nothing put after the teleport will fire either.
//the current location won't be stored, either

   if (GetAreaFromLocation(lTarget)==OBJECT_INVALID) return;

   AssignCommand(oPC, ClearAllActions());

   AssignCommand(oPC, ActionJumpToLocation(lTarget));
   //Retrieves the waypoint to jump the player back to.
   oTarget = GetWaypointByTag("WP_CLIFF_CS_IN");

   lTarget = GetLocation(oTarget);

//only do the jump if the location is valid.
//though not flawless, we just check if it is in a valid area.
//the script will stop if the location isn't valid - meaning that
//nothing put after the teleport will fire either.
//the current location won't be stored, either

   if (GetAreaFromLocation(lTarget)==OBJECT_INVALID) return;

   AssignCommand(oPC, ClearAllActions());

   AssignCommand(oPC, ActionJumpToLocation(lTarget));

   oTarget = oPC;
   //This gives the player that "Falling" effect
   DelayCommand(5.1, ApplyEffectToObject(DURATION_TYPE_INSTANT, eAppear, oTarget));
   //This cancels the fade to black effect. We do this after the Falling effect
   //because if we don't the player will see him/her self appear on the ground
   //and then bounce into the air, then fall again. Not very believable for a
   //falling effect
   DelayCommand(5.3, StopFade(oPC));

   eEffect = EffectKnockdown();
   //This knocks the player to the ground after the fall for a better effect
   DelayCommand(5.5, ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eEffect, oTarget, 3.0f));

//Visual effects can't be applied to waypoints, so if it is a WP
//the VFX will be applied to the WP's location instead

   nInt = GetObjectType(oTarget);
   //We make some blood
   DelayCommand(7.0, ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_COM_BLOOD_REG_RED), oTarget));
   //Deal some damage
   eEffect = EffectDamage(10, DAMAGE_TYPE_BLUDGEONING, DAMAGE_POWER_NORMAL);
   DelayCommand(7.5, ApplyEffectToObject(DURATION_TYPE_INSTANT, eEffect, oPC));
   //Send a message informing them of what happened.
   DelayCommand(8.0, SendMessageToPC(oPC, "You have lost your grip on the rope and fallen to the base of the cliff."));

   }
else //Just send them up the rope if they don't fall
   {
   AssignCommand(oPC, ClearAllActions());
   AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_LEFTHAND)));
   AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_RIGHTHAND)));

   oTarget = GetWaypointByTag("WP_CODS_DN");

   lTarget = GetLocation(oTarget);

//only do the jump if the location is valid.
//though not flawless, we just check if it is in a valid area.
//the script will stop if the location isn't valid - meaning that
//nothing put after the teleport will fire either.
//the current location won't be stored, either

   if (GetAreaFromLocation(lTarget)==OBJECT_INVALID) return;

   AssignCommand(oPC, ClearAllActions());

   AssignCommand(oPC, ActionJumpToLocation(lTarget));

}
}