forked from Jaysyn/PRC8
203 lines
7.9 KiB
Plaintext
203 lines
7.9 KiB
Plaintext
|
//::///////////////////////////////////////////////
|
|||
|
|
//:: Name Break Enchantment
|
|||
|
|
//:: FileName sp_brk_enchant.nss
|
|||
|
|
//:://////////////////////////////////////////////
|
|||
|
|
/**@file Break Enchantment
|
|||
|
|
Abjuration
|
|||
|
|
Level: Brd 4, Clr 5, Luck 5, Pal 4, Sor/Wiz 5, Hexblade 4
|
|||
|
|
Components: V, S
|
|||
|
|
Casting Time: 1 minute
|
|||
|
|
Range: Close (25 ft. + 5 ft./2 levels)
|
|||
|
|
Targets: Up to one creature per level, all within 30 ft. of
|
|||
|
|
each other
|
|||
|
|
Duration: Instantaneous
|
|||
|
|
Saving Throw: See text
|
|||
|
|
Spell Resistance: No
|
|||
|
|
|
|||
|
|
This spell frees victims from enchantments, transmutations,
|
|||
|
|
and curses. Break enchantment can reverse even an
|
|||
|
|
instantaneous effect. For each such effect, you make a
|
|||
|
|
caster level check (1d20 + caster level, maximum +15)
|
|||
|
|
against a DC of 11 + caster level of the effect. Success
|
|||
|
|
means that the creature is free of the spell, curse, or
|
|||
|
|
effect. For a cursed magic item, the DC is 25.
|
|||
|
|
|
|||
|
|
If the spell is one that cannot be dispelled by dispel
|
|||
|
|
magic, break enchantment works only if that spell is 5th
|
|||
|
|
level or lower.
|
|||
|
|
If the effect comes from some permanent magic item break
|
|||
|
|
enchantment does not remove the curse from the item, but
|
|||
|
|
it does frees the victim from the item<65>s effects.
|
|||
|
|
|
|||
|
|
**/
|
|||
|
|
void DispelLoop(object oTarget, int nCasterLevel);
|
|||
|
|
|
|||
|
|
#include "inc_dispel"
|
|||
|
|
|
|||
|
|
void main()
|
|||
|
|
{
|
|||
|
|
if(!X2PreSpellCastCode()) return;
|
|||
|
|
|
|||
|
|
PRCSetSchool(SPELL_SCHOOL_ABJURATION);
|
|||
|
|
|
|||
|
|
object oPC = OBJECT_SELF;
|
|||
|
|
effect eVis = EffectVisualEffect(VFX_IMP_BREACH);
|
|||
|
|
effect eImpact = EffectVisualEffect(VFX_FNF_DISPEL);
|
|||
|
|
object oTarget = PRCGetSpellTargetObject();
|
|||
|
|
location lLocal = PRCGetSpellTargetLocation();
|
|||
|
|
int nCasterLevel = PRCGetCasterLevel(OBJECT_SELF);
|
|||
|
|
int iTypeDispel = GetLocalInt(GetModule(),"BIODispel");
|
|||
|
|
|
|||
|
|
|
|||
|
|
ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eImpact, PRCGetSpellTargetLocation());
|
|||
|
|
oTarget = MyFirstObjectInShape(SHAPE_SPHERE, 9.14f, lLocal, FALSE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_PLACEABLE );
|
|||
|
|
|
|||
|
|
//Set up for loop
|
|||
|
|
int i = nCasterLevel;
|
|||
|
|
|
|||
|
|
while (i > 0)
|
|||
|
|
{
|
|||
|
|
SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_REMOVE_CURSE));
|
|||
|
|
DispelLoop(oTarget, nCasterLevel);
|
|||
|
|
i--;
|
|||
|
|
oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE,lLocal, FALSE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_AREA_OF_EFFECT | OBJECT_TYPE_PLACEABLE);
|
|||
|
|
}
|
|||
|
|
PRCSetSchool();
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
void DispelLoop(object oTarget, int nCasterLevel)
|
|||
|
|
{
|
|||
|
|
int nIndex = 0;
|
|||
|
|
int nEffectSpellID;
|
|||
|
|
int nEffectCasterLevel;
|
|||
|
|
object oEffectCaster;
|
|||
|
|
int ModWeave;
|
|||
|
|
int nBonus = 0;
|
|||
|
|
int nSchool;
|
|||
|
|
|
|||
|
|
int nLastEntry = GetLocalInt(oTarget, "X2_Effects_Index_Number");
|
|||
|
|
effect eToDispel;
|
|||
|
|
|
|||
|
|
string sList, SpellName;
|
|||
|
|
string sSelf = "Dispelled: ";
|
|||
|
|
string sCast = "Dispelled on "+GetName(oTarget)+": ";
|
|||
|
|
|
|||
|
|
int Weave = GetHasFeat(FEAT_SHADOWWEAVE,OBJECT_SELF)+ GetLocalInt(OBJECT_SELF, "X2_AoE_SpecDispel");
|
|||
|
|
if (GetLocalInt(oTarget, "PRC_Power_DispellingBuffer_Active")) nBonus += 5;
|
|||
|
|
if (GetHasFeat(FEAT_SPELL_GIRDING, oTarget)) nBonus += 2;
|
|||
|
|
if (GetLevelByClass(CLASS_TYPE_SUEL_ARCHANAMACH, oTarget) >= 1) nBonus += 6;
|
|||
|
|
|
|||
|
|
//:: Do the dispel check for each and every spell in effect on oTarget.
|
|||
|
|
for(nIndex; nIndex <= nLastEntry; nIndex++)
|
|||
|
|
{
|
|||
|
|
nEffectSpellID = GetLocalInt(oTarget, " X2_Effect_Spell_ID_" + IntToString(nIndex));
|
|||
|
|
|
|||
|
|
nSchool = GetSpellSchool(nEffectSpellID);
|
|||
|
|
|
|||
|
|
//Only dispells enchantments and transmutations
|
|||
|
|
if(nSchool == SPELL_SCHOOL_ENCHANTMENT ||
|
|||
|
|
nSchool == SPELL_SCHOOL_TRANSMUTATION)
|
|||
|
|
{
|
|||
|
|
if(GetHasSpellEffect(nEffectSpellID, oTarget))
|
|||
|
|
{
|
|||
|
|
ModWeave = 0;
|
|||
|
|
string SchoolWeave = lookup_spell_school(nEffectSpellID);
|
|||
|
|
SpellName = GetStringByStrRef(StringToInt(lookup_spell_name(nEffectSpellID)));
|
|||
|
|
nEffectCasterLevel = GetLocalInt(oTarget, " X2_Effect_Cast_Level_" + IntToString(nIndex));
|
|||
|
|
if (GetLocalInt(oTarget, " X2_Effect_Weave_ID_"+ IntToString(nIndex)) && !Weave) ModWeave = 4;
|
|||
|
|
if (SchoolWeave=="V" ||SchoolWeave=="T" ) ModWeave = 0;
|
|||
|
|
|
|||
|
|
int iDice = d20(1);
|
|||
|
|
// SendMessageToPC(GetFirstPC(), "Spell :"+ IntToString(nEffectSpellID)+" T "+GetName(oTarget)+" C "+GetName(GetLocalObject(oTarget, " X2_Effect_Caster_" + IntToString(nIndex))));
|
|||
|
|
// SendMessageToPC(GetFirstPC(), "Dispell :"+IntToString(iDice + nCasterLevel)+" vs DC :"+IntToString(11 + nEffectCasterLevel+ModWeave)+" Weave :"+IntToString(ModWeave)+" "+SchoolWeave);
|
|||
|
|
|
|||
|
|
|
|||
|
|
if(iDice + nCasterLevel >= 11 + nEffectCasterLevel + ModWeave + nBonus)
|
|||
|
|
{
|
|||
|
|
sList += SpellName+", ";
|
|||
|
|
oEffectCaster = GetLocalObject(oTarget, " X2_Effect_Caster_" + IntToString(nIndex));
|
|||
|
|
|
|||
|
|
//:: If the check is successful, go through and remove all effects originating
|
|||
|
|
//:: from that particular spell.
|
|||
|
|
effect eToDispel = GetFirstEffect(oTarget);
|
|||
|
|
|
|||
|
|
while(GetIsEffectValid(eToDispel))
|
|||
|
|
{
|
|||
|
|
if(GetEffectSpellId(eToDispel) == nEffectSpellID)
|
|||
|
|
{
|
|||
|
|
if(GetEffectCreator(eToDispel) == oEffectCaster)
|
|||
|
|
{
|
|||
|
|
RemoveEffect(oTarget, eToDispel);
|
|||
|
|
|
|||
|
|
//Spell Removal Check
|
|||
|
|
SpellRemovalCheck(oEffectCaster, oTarget);
|
|||
|
|
}// end if effect comes from this caster
|
|||
|
|
}// end if effect comes from this spell
|
|||
|
|
eToDispel = GetNextEffect(oTarget);
|
|||
|
|
}// end of while loop
|
|||
|
|
|
|||
|
|
// These are stored for one round for Spell Rebirth
|
|||
|
|
SetLocalInt(oTarget, "TrueSpellRebirthSpellId", GetLocalInt(oTarget, " X2_Effect_Spell_ID_" + IntToString(nIndex)));
|
|||
|
|
SetLocalInt(oTarget, "TrueSpellRebirthCasterLvl", GetLocalInt(oTarget, " X2_Effect_Cast_Level_" + IntToString(nIndex)));
|
|||
|
|
DelayCommand(6.0, DeleteLocalInt(oTarget, "TrueSpellRebirthSpellId"));
|
|||
|
|
DelayCommand(6.0, DeleteLocalInt(oTarget, "TrueSpellRebirthCasterLvl"));
|
|||
|
|
|
|||
|
|
// Delete the saved references to the spell's effects.
|
|||
|
|
// This will save some time when reordering things a bit.
|
|||
|
|
DeleteLocalInt(oTarget, " X2_Effect_Spell_ID_" + IntToString(nIndex));
|
|||
|
|
DeleteLocalInt(oTarget, " X2_Effect_Cast_Level_" + IntToString(nIndex));
|
|||
|
|
DeleteLocalObject(oTarget, " X2_Effect_Caster_" + IntToString(nIndex));
|
|||
|
|
DeleteLocalInt(oTarget, " X2_Effect_Weave_ID_" + IntToString(nIndex));
|
|||
|
|
|
|||
|
|
}// end of if caster check is sucessful
|
|||
|
|
}// end of if oTarget has effects from this spell
|
|||
|
|
}
|
|||
|
|
}// end of for statement
|
|||
|
|
|
|||
|
|
|
|||
|
|
// Additional Code to dispel any infestation of maggots effects.
|
|||
|
|
|
|||
|
|
// If check to take care of infestation of maggots is in effect.
|
|||
|
|
// with the highest caster level on it right now.
|
|||
|
|
// If it is, we remove it instead of the other effect.
|
|||
|
|
int bHasInfestationEffects = GetLocalInt(oTarget,"XP2_L_SPELL_CASTER_LVL_" + IntToString (SPELL_INFESTATION_OF_MAGGOTS));
|
|||
|
|
|
|||
|
|
if(bHasInfestationEffects)
|
|||
|
|
{
|
|||
|
|
ModWeave =0;
|
|||
|
|
if (GetLocalInt(oTarget, " XP2_L_SPELL_WEAVE" +IntToString (SPELL_INFESTATION_OF_MAGGOTS)) && !Weave) ModWeave = 4;
|
|||
|
|
|
|||
|
|
if(d20(1) + nCasterLevel >= bHasInfestationEffects + 11 + ModWeave + nBonus)
|
|||
|
|
{
|
|||
|
|
DeleteLocalInt(oTarget,"XP2_L_SPELL_SAVE_DC_" + IntToString (SPELL_INFESTATION_OF_MAGGOTS));
|
|||
|
|
DeleteLocalInt(oTarget,"XP2_L_SPELL_CASTER_LVL_" + IntToString (SPELL_INFESTATION_OF_MAGGOTS));
|
|||
|
|
effect eToDispel = GetFirstEffect(oTarget);
|
|||
|
|
nEffectSpellID = SPELL_INFESTATION_OF_MAGGOTS;
|
|||
|
|
|
|||
|
|
SpellName = GetStringByStrRef(StringToInt(lookup_spell_name(nEffectSpellID)));
|
|||
|
|
sList += SpellName+", ";
|
|||
|
|
|
|||
|
|
while(GetIsEffectValid(eToDispel))
|
|||
|
|
{
|
|||
|
|
if(GetEffectSpellId(eToDispel) == nEffectSpellID)
|
|||
|
|
{
|
|||
|
|
RemoveEffect(oTarget, eToDispel);
|
|||
|
|
}// end if effect comes from this spell
|
|||
|
|
eToDispel = GetNextEffect(oTarget);
|
|||
|
|
}// end of while loop
|
|||
|
|
}// end if caster level check was a success.
|
|||
|
|
}// end if infestation of maggots is in effect on oTarget/
|
|||
|
|
|
|||
|
|
// If the loop to rid the target of the effects of infestation of maggots
|
|||
|
|
// runs at all, this next loop won't because eToDispel has to be invalid for this
|
|||
|
|
// loop to terminate and the other to begin - but it won't begin if eToDispel is
|
|||
|
|
// already invalid :)
|
|||
|
|
|
|||
|
|
if (sList == "") sList = "None ";
|
|||
|
|
sList = GetStringLeft(sList, GetStringLength(sList) - 2); // truncate the last ", "
|
|||
|
|
|
|||
|
|
SendMessageToPC(OBJECT_SELF, sCast+sList);
|
|||
|
|
if (oTarget != OBJECT_SELF) SendMessageToPC(oTarget, sSelf+sList);
|
|||
|
|
|
|||
|
|
}// End of function.
|
|||
|
|
|