7f1e0b1070
Update for PRC8 functions update. Updated spells & abilities haks. Full compile. Updated release archive.
108 lines
3.6 KiB
Plaintext
108 lines
3.6 KiB
Plaintext
//::///////////////////////////////////////////////
|
|
//:: Name Unliving Weapon
|
|
//:: FileName sp_unliv_weap.nss
|
|
//:://////////////////////////////////////////////
|
|
/**@file Unliving Weapon
|
|
Necromancy [Evil]
|
|
Level: Clr 3
|
|
Components: V, S, M
|
|
Casting Time: 1 full round
|
|
Range: Touch
|
|
Targets: One undead creature
|
|
Duration: 1 hour/level
|
|
Saving Throw: Will negates
|
|
Spell Resistance: Yes
|
|
|
|
This spell causes an undead creature to explode in a
|
|
burst of powerful energy when struck for at least 1
|
|
point of damage, or at a set time no longer than the
|
|
duration of the spell, whichever comes first. The
|
|
explosion is a 10-foot radius burst that deals 1d6
|
|
points of damage for every two caster levels
|
|
(maximum 10d6).
|
|
|
|
While this spell can be an effective form of attack
|
|
against an undead creature, necromancers often use
|
|
unliving weapon to create undead capable of suicide
|
|
attacks (if such a term can be applied to something
|
|
that is already dead). Skeletons or zombies with this
|
|
spell cast upon them can be very dangerous to foes
|
|
that would normally disregard them.
|
|
|
|
Material Component: A drop of bile and a bit of sulfur.
|
|
|
|
Author: Tenjac
|
|
Created: 5/11/06
|
|
*/
|
|
//:://////////////////////////////////////////////
|
|
//:://////////////////////////////////////////////
|
|
|
|
void HiImABomb(object oTarget, int nCounter, int nHP, int nCasterLvl, int nMetaMagic);
|
|
|
|
#include "prc_inc_spells"
|
|
#include "prc_add_spell_dc"
|
|
void main()
|
|
{
|
|
if(!X2PreSpellCastCode()) return;
|
|
|
|
PRCSetSchool(SPELL_SCHOOL_NECROMANCY);
|
|
|
|
object oPC = OBJECT_SELF;
|
|
object oTarget = PRCGetSpellTargetObject();
|
|
int nCasterLvl = PRCGetCasterLevel(oPC);
|
|
int nPenetr = nCasterLvl + SPGetPenetr();
|
|
float fDur = HoursToSeconds(nCasterLvl);
|
|
int nMetaMagic = PRCGetMetaMagicFeat();
|
|
if(nMetaMagic & METAMAGIC_EXTEND)
|
|
fDur *= 2;
|
|
int nDC = PRCGetSaveDC(oTarget, oPC);
|
|
|
|
//only works on undead
|
|
if(MyPRCGetRacialType(oTarget) == RACIAL_TYPE_UNDEAD)
|
|
{
|
|
if(GetMaster(oTarget) == oPC//casting on own undead
|
|
|| (!PRCDoResistSpell(oPC, oTarget, nPenetr)//Spell Resistance
|
|
&& !PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_SPELL)))//Saving Throw
|
|
{
|
|
int nCounter = (FloatToInt(fDur))/3;
|
|
int nHP = GetCurrentHitPoints(oTarget);
|
|
|
|
HiImABomb(oTarget, nCounter, nHP, nCasterLvl, nMetaMagic);
|
|
}
|
|
}
|
|
PRCSetSchool();
|
|
}
|
|
|
|
void HiImABomb(object oTarget, int nCounter, int nHP, int nCasterLvl, int nMetaMagic)
|
|
{
|
|
if((nCounter < 1) || GetCurrentHitPoints(oTarget) < nHP)
|
|
{
|
|
//unused?
|
|
//effect eSplode = EffectDeath(TRUE, TRUE);
|
|
// eSplode = SupernaturalEffect(eSplode);
|
|
|
|
location lLoc = GetLocation(oTarget);
|
|
int nDice = PRCMin((nCasterLvl/2), 20);
|
|
|
|
SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_BLINDDEAF), oTarget);
|
|
|
|
object oOuch = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_MEDIUM, lLoc, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE);
|
|
while(GetIsObjectValid(oOuch))
|
|
{
|
|
int nDam = d6(nDice);
|
|
if(nMetaMagic & METAMAGIC_MAXIMIZE)
|
|
nDam = 6 * nDice;
|
|
if(nMetaMagic & METAMAGIC_EMPOWER)
|
|
nDam += (nDam/2);
|
|
|
|
//Apply damage
|
|
SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_MAGICAL), oOuch);
|
|
|
|
//Get next victim
|
|
oOuch = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_MEDIUM, lLoc, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE);
|
|
}
|
|
}
|
|
nCounter--;
|
|
|
|
DelayCommand(3.0f, HiImABomb(oTarget, nCounter, nHP, nCasterLvl, nMetaMagic));
|
|
} |