5914ed2ab5
Updated Release Archive. Fixed Mage-killer prereqs. Removed old LETO & ConvoCC related files. Added organized spell scroll store. Fixed Gloura spellbook. Various TLK fixes. Reorganized Repo. Removed invalid user folders. Added DocGen back in.
66 lines
2.7 KiB
Plaintext
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");
|
|
}
|
|
|