////////////////////////////////////////////////////////////////////////////////
//  Olander's Realistic Systems Jumping/Climbing Rope
//  opw_jump_onact
//  By Don Anderson
//  dandersonru@msn.com
//
//  Allows Jumping and Climbing from a Climbing Rope in an Outdoor Area
//
//  Place this script in the Module On Activate Event
//
////////////////////////////////////////////////////////////////////////////////

#include "opw_inc_jump"

void main()
{
  object oRope = GetItemActivated();
  string sRope = GetTag(oRope);
  if(sRope != "ClimbingRope") return;

  object oPC = GetItemActivator();
  location lPC = GetLocation(oPC);

  object oTarget = GetItemActivatedTarget();
  location lTarget = GetItemActivatedTargetLocation();
  float fFace = GetFacingFromLocation(lTarget);

  //Now Check to See if we are allowed to jump and climb
  int nAllow = GetLocalInt(oPC,"ALLOWJUMP");
  if(nAllow == 0)
  {
    SendMessageToPC(oPC,"You can not Jump or Climb right now.");
    return;
  }

  //Check for Targetted Something
  if(GetIsObjectValid(oTarget) == TRUE)
  {
    SendMessageToPC(oPC,"You must target the ground to jump or climb.");
    return;
  }

  if(nAllow == 1)
  {
    effect eFly = EffectDisappearAppear(lTarget);
    effect eFlyWind = EffectVisualEffect(VFX_IMP_PULSE_WIND);

    //Duration MUST be 3.0 or higher. Higher for busy areas.
    ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eFly, oPC, 4.0);

    //Gust of wind effect for takeoff! Experimental.
    DelayCommand(2.0, ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eFlyWind, lPC));

    //Jump all the Extra Creatures
    JumpAssociates(oPC);
  }
}