Initial upload.

Adding base PRC 4.19a files to repository.

trunk/spells/sp_belburnbld.nss

@@ -0,0 +1,97 @@
+#include "prc_inc_spells"
+#include "prc_add_spell_dc"
+
+//
+// This function runs the burning blood effect for a round, then recursing itself one
+// round later to do the effect again.  It relies on a dummy visual effect to act
+// as the spell's timer, expiring itself when the effect expires.
+//
+void RunSpell(object oCaster, object oTarget, int nMetaMagic, int nSpellID,
+     float fDuration,int nCasterLvl )
+{
+     // If our timer spell effect has worn off (or been dispelled) then we are
+     // done, just exit.
+    if (PRCGetDelayedSpellEffectsExpired(nSpellID, oTarget, oCaster)) return;
+
+     // If the target is dead then there is no point in going any further.
+    if (GetIsDead(oTarget)) return;
+
+     if (PRCMySavingThrow(SAVING_THROW_FORT, oTarget, PRCGetSaveDC(oTarget,oCaster), SAVING_THROW_TYPE_SPELL))
+     {
+          // Give feedback that a save was made.
+          SPApplyEffectToObject(DURATION_TYPE_INSTANT,
+               EffectVisualEffect(VFX_IMP_FORTITUDE_SAVING_THROW_USE), oTarget);
+     }
+     else
+     {
+          // The bad thing happens, 1d8 acid and fire damage, and slowed for 1 round.
+          int nDamage = PRCGetMetaMagicDamage(DAMAGE_TYPE_FIRE, 1, 8, 0, 0, nMetaMagic);
+          nDamage += SpellDamagePerDice(oCaster, 1);
+          effect eDamage = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_FIRE);
+          eDamage = EffectLinkEffects(eDamage, EffectVisualEffect(VFX_IMP_FLAME_S));
+          SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDamage, oTarget);
+          PRCBonusDamage(oTarget);
+
+          nDamage = PRCGetMetaMagicDamage(DAMAGE_TYPE_ACID, 1, 8, 0, 0, nMetaMagic);
+                // Acid Sheath adds +1 damage per die to acid descriptor spells
+                if (GetHasDescriptor(nSpellID, DESCRIPTOR_ACID) && GetHasSpellEffect(SPELL_MESTILS_ACID_SHEATH, oCaster))
+                	nDamage += 1; 
+          nDamage += SpellDamagePerDice(oCaster, 1);      	
+          eDamage = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_ACID);
+          eDamage = EffectLinkEffects(eDamage, EffectVisualEffect(VFX_IMP_ACID_S));
+          SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDamage, oTarget);
+
+          eDamage = EffectSlow();
+          SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eDamage, oTarget, RoundsToSeconds(1),FALSE);
+     }
+
+     // Decrement our duration counter by a round and if we still have time left keep
+     // going.
+     fDuration -= RoundsToSeconds(1);
+     if (fDuration > 0.0)
+          DelayCommand(RoundsToSeconds(1), RunSpell(oCaster, oTarget, nMetaMagic, nSpellID, fDuration,nCasterLvl));
+}
+
+
+void main()
+{
+     // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell
+     if (!X2PreSpellCastCode()) return;
+
+     PRCSetSchool(SPELL_SCHOOL_NECROMANCY);
+
+     object oTarget = PRCGetSpellTargetObject();
+     int nRacial = MyPRCGetRacialType(oTarget);
+     //Doesn't affect creatures of th construct, elemental, ooze, plant or undead types
+     if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF)
+       && nRacial != RACIAL_TYPE_CONSTRUCT
+       && nRacial != RACIAL_TYPE_ELEMENTAL
+       && nRacial != RACIAL_TYPE_OOZE
+       && nRacial != RACIAL_TYPE_PLANT
+       && nRacial != RACIAL_TYPE_UNDEAD)
+     {
+          int nCasterLvl = PRCGetCasterLevel(OBJECT_SELF);
+             int nPenetr = nCasterLvl+SPGetPenetr();
+
+          // Get the target and raise the spell cast event.
+          PRCSignalSpellEvent(oTarget);
+
+          if (!PRCDoResistSpell(OBJECT_SELF, oTarget,nPenetr))
+          {
+               // Determine the spell's duration, taking metamagic feats into account.
+               float fDuration = PRCGetMetaMagicDuration(RoundsToSeconds(nCasterLvl));
+
+               // Apply a persistent vfx to the target.
+               // RunSpell uses our persistant vfx to determine it's duration.
+               SPApplyEffectToObject(DURATION_TYPE_TEMPORARY,
+                    EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE), oTarget, fDuration,FALSE);
+
+               // Stick OBJECT_SELF into a local because it's a function under the hood,
+               // and we need a real object reference.
+               object oCaster = OBJECT_SELF;
+               DelayCommand(0.5, RunSpell(oCaster, oTarget, PRCGetMetaMagicFeat(), PRCGetSpellId(), fDuration,nCasterLvl));
+          }
+     }
+
+     PRCSetSchool();
+}