PRC8/nwn/nwnprc/trunk/epicspellscripts/ss_ep_dweomerthf.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

66 lines
2.7 KiB
Plaintext

//:://////////////////////////////////////////////
//:: FileName: "ss_ep_dweomerthf"
/* Purpose: Dweomer Thief - the target loses a spell from the highest level,
which subsequently turns into a scroll in the caster's inventory.
*/
//:://////////////////////////////////////////////
//:: Created By: Boneshank
//:: Last Updated On: March 12, 2004
//:://////////////////////////////////////////////
#include "prc_alterations"
#include "inc_epicspells"
//#include "x2_inc_spellhook"
#include "prc_getbest_inc"
void main()
{
DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR");
SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_ABJURATION);
if (!X2PreSpellCastCode())
{
DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR");
return;
}
if (GetCanCastSpell(OBJECT_SELF, SPELL_EPIC_DWEO_TH))
{
object oTarget = PRCGetSpellTargetObject();
int nTargetSpell;
effect eVis = EffectVisualEffect(VFX_IMP_DISPEL);
effect eVis2 = EffectVisualEffect(VFX_IMP_DOOM);
SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, PRCGetSpellId()));
if (GetObjectType(oTarget) == OBJECT_TYPE_CREATURE &&
oTarget != OBJECT_SELF)
{
if (!PRCDoResistSpell(OBJECT_SELF, oTarget, GetTotalCastingLevel(OBJECT_SELF)+SPGetPenetr(OBJECT_SELF)))
{
if (!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, GetEpicSpellSaveDC(OBJECT_SELF, oTarget)+5,
SAVING_THROW_TYPE_NONE))
{
SPApplyEffectToObject(DURATION_TYPE_INSTANT,
eVis, oTarget);
SPApplyEffectToObject(DURATION_TYPE_INSTANT,
eVis2, oTarget);
nTargetSpell = GetBestAvailableSpell(oTarget);
if (nTargetSpell != 99999)
{
int nSpellIP = StringToInt(Get2DACache
("des_crft_spells", // Name of the 2DA file.
"IPRP_SpellIndex", // The column.
nTargetSpell)); // The row.
object oScroll = CreateItemOnObject("it_dweomerthief",
OBJECT_SELF);
AddItemProperty(DURATION_TYPE_PERMANENT,
ItemPropertyCastSpell(nSpellIP,
IP_CONST_CASTSPELL_NUMUSES_SINGLE_USE),
oScroll);
DecrementRemainingSpellUses(oTarget, nTargetSpell);
}
}
}
}
}
DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR");
}