////////////////////////////////////////////////////////////////////////////////
//
//  Talus Menu on Rest
//  tal_druidstart
//  OPW Integration and Clean Up By Don Anderson
//  dandersonru@msn.com
//
//  Used in Rest Menu Conversation
//
////////////////////////////////////////////////////////////////////////////////

void ApplyBlessing(object oTarg,int blessingnumber)
{
  string message="Nature has granted you ";
  int druidlevel=GetLevelByClass(CLASS_TYPE_DRUID,oTarg);

  if(blessingnumber > 97)
  {
    SendMessageToAllDMs(GetName(oTarg)+" has been granted DIVINE INTERVENTION!");
    object oMember;
    message="Nature sees it fit to aid you as much as it can!";
    switch(d3())
    {
      case 1:
        oMember=GetFirstFactionMember(oTarg,TRUE);
        while(oMember!=OBJECT_INVALID)
        {
          ApplyEffectToObject(DURATION_TYPE_INSTANT,EffectResurrection(),oMember,0.0);
          ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectSanctuary(40),oMember,60.0);
          GetNextFactionMember(oTarg,TRUE);
        }
        break;

      case 2:
        oMember=GetFirstFactionMember(oTarg,TRUE);
        while(oMember!=OBJECT_INVALID)
        {
          ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectRegenerate(3*(druidlevel/4),5.0),oTarg,(40.0*druidlevel));
          GetNextFactionMember(oTarg,TRUE);
        }
        break;

      case 3:
        oMember=GetFirstFactionMember(oTarg,TRUE);
        while(oMember!=OBJECT_INVALID)
        {
          ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectModifyAttacks(2),oTarg,(40.0*druidlevel));
          ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectHaste(),oTarg,(40.0*druidlevel));
          GetNextFactionMember(oTarg,TRUE);
        }
        break;
    }
  }

  if(blessingnumber>90)
  {
    message+="a miracle!";
    switch(d4())
    {
      case 1:ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectAbilityIncrease(ABILITY_WISDOM,druidlevel/4),oTarg,(30.0*druidlevel)); break;
      case 2:ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectConcealment(4*(druidlevel/3),MISS_CHANCE_TYPE_NORMAL),oTarg,(30.0*druidlevel));  break;
      case 3:ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectHaste(),oTarg,(30.0*druidlevel));  break;
      case 4:ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectRegenerate(3*(druidlevel/4),5.0),oTarg,(40.0*druidlevel));  break;
    }
  }
  else if(blessingnumber>70)
  {
    message+="aid!";
    switch(d4())
    {
      case 1:ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectAbilityIncrease(ABILITY_WISDOM,druidlevel/5),oTarg,(30.0*druidlevel)); break;
      case 2:ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectConcealment(2*(druidlevel/3),MISS_CHANCE_TYPE_NORMAL),oTarg,(30.0*druidlevel));  break;
      case 3:ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectHaste(),oTarg,(15.0*druidlevel));  break;
      case 4:ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectRegenerate(3*(druidlevel/5),20.0),oTarg,(40.0*druidlevel));  break;
    }
  }
  else if(blessingnumber>40)
  {
    message+="a blessing!";
    switch(d4())
    {
      case 1:ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectAbilityIncrease(ABILITY_WISDOM,druidlevel/6),oTarg,(30.0*druidlevel)); break;
      case 2:ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectConcealment(1*(druidlevel/4),MISS_CHANCE_TYPE_NORMAL),oTarg,(30.0*druidlevel));  break;
      case 3:ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectHaste(),oTarg,(10.0*druidlevel));  break;
      case 4:ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectRegenerate(2*(druidlevel/5),30.0),oTarg,(40.0*druidlevel));  break;
    }
  }
  else
  {
    message+="an answer to your prayer.";
    ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectSavingThrowIncrease(SAVING_THROW_ALL,1),oTarg,(40.0*druidlevel));
  }

  SendMessageToPC(oTarg,message);
}

void main()
{
  object oPC=GetPCSpeaker();

  string message;

  int blesscap=3;

  if(GetLevelByClass(CLASS_TYPE_CLERIC,oPC)>=15) blesscap=0;
  if(GetLocalInt(oPC,"prayed")!=TRUE)
  {
    SetLocalInt(oPC,"prayed",TRUE);
    DelayCommand(1800.0,SetLocalInt(oPC,"prayed",FALSE));
    DelayCommand(15.1,ApplyBlessing(oPC,d100()-blesscap));
    AssignCommand(oPC,ClearAllActions());
    AssignCommand(oPC,ActionPlayAnimation(ANIMATION_LOOPING_MEDITATE,1.0,15.0));
    SetCutsceneMode(oPC,TRUE);
    SetPlotFlag(oPC,FALSE);
    DelayCommand(15.1,SetCutsceneMode(oPC,FALSE));
  }
  else
  {
    message="Nature gives no response to your communion.";
    SendMessageToPC(oPC,message);
  }
}