PRC8/nwn/nwnprc/trunk/epicspellscripts/ss_ep_thewitheri.nss
Jaysyn904 6ec137a24e Updated AMS marker feats
Updated AMS marker feats.  Removed arcane & divine marker feats.  Updated Dread Necromancer for epic progression. Updated weapon baseitem models.  Updated new weapons for crafting & npc equip.
 Updated prefix.  Updated release archive.
2024-02-11 14:01:05 -05:00

65 lines
2.3 KiB
Plaintext

//:://////////////////////////////////////////////
//:: FileName: "ss_ep_thewitheri"
/* Purpose: The Withering - over the course of 20 rounds (or unless saved vs),
the target will lose 40 total ability points from any of STR, DEX or CON
*/
//:://////////////////////////////////////////////
//:: Created By: Boneshank
//:: Last Updated On:
//:://////////////////////////////////////////////
#include "prc_alterations"
#include "inc_epicspells"
void DoWithering(object oTarget, int nDC, int nDuration);
void main()
{
DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR");
SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_NECROMANCY);
if (!X2PreSpellCastCode())
{
DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR");
return;
}
if (GetCanCastSpell(OBJECT_SELF, SPELL_EPIC_THEWITH))
{
object oTarget = PRCGetSpellTargetObject();
int nDuration = 60; // Lasts 20 rounds, but fires thrice per round.
effect eVis = EffectVisualEffect(VFX_IMP_REDUCE_ABILITY_SCORE);
//Fire cast spell at event for the specified target
SignalEvent(oTarget,
EventSpellCastAt(OBJECT_SELF, SPELL_BESTOW_CURSE, FALSE));
//Make SR Check
if (!PRCDoResistSpell(OBJECT_SELF, oTarget, GetTotalCastingLevel(OBJECT_SELF)+SPGetPenetr(OBJECT_SELF)))
{
SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget);
DoWithering(oTarget, GetEpicSpellSaveDC(OBJECT_SELF, oTarget)+10, nDuration);
}
}
DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR");
}
void DoWithering(object oTarget, int nDC, int nDuration)
{
int nX;
int nAbil;
effect eDown;
//Make a Fort Save each time
if (!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC))
{
// Lower one of either STR, DEX, or CON by 1 every 2 seconds
nX = d3();
if (nX == 1) nAbil = ABILITY_STRENGTH;
if (nX == 2) nAbil = ABILITY_DEXTERITY;
if (nX == 3) nAbil = ABILITY_CONSTITUTION;
eDown = EffectAbilityDecrease(nAbil, 1);
eDown = SupernaturalEffect(eDown);
if (GetAbilityScore(oTarget, nAbil) > 3)
SPApplyEffectToObject(DURATION_TYPE_PERMANENT, eDown, oTarget);
}
nDuration--;
if (nDuration >= 1)
DelayCommand(2.0, DoWithering(oTarget, nDC, nDuration));
}