Initial upload.

Adding base PRC 4.19a files to repository.

trunk/newspellbook/bnd_tnb_desempud.nss

@@ -0,0 +1,88 @@
+/*
+Tenebrous Apostate - Destroy/Empower Undead
+
+At 3rd level, you gain additional power over mindless undead. You can use two turn or rebuke attempts as a 
+single standard action, each dealing (or healing) damage as per the Tenebrous’s rebuke ability, except that
+the damage applies only to mindless undead. Neutral characters use the turn effect, evil characters the rebuke.
+
+Strat 05/03/21
+*/
+
+#include "bnd_inc_bndfunc"
+#include "prc_inc_turning"
+
+void DestroyEmpower(object oBinder)
+{
+    int nTurnLevel = GetTurningClassLevel(oBinder, SPELL_TURN_UNDEAD);
+    location lTarget = GetLocation(oBinder);
+    float fRange = FeetToMeters(30.0);
+    int nDC = 10 + nTurnLevel + GetAbilityModifier(ABILITY_CHARISMA, oBinder);	
+	if (GetAlignmentGoodEvil(oBinder) == ALIGNMENT_EVIL)
+    {
+    	//ApplyEffectAtLocation(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_HORRID_WILTING), lTarget);
+    	ApplyEffectAtLocation(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_VAMPIRIC_DRAIN_PRC), lTarget);
+        object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, fRange, lTarget, FALSE, OBJECT_TYPE_CREATURE);
+        while(GetIsObjectValid(oTarget))
+        {
+            if(oTarget != oBinder && MyPRCGetRacialType(oTarget) == RACIAL_TYPE_UNDEAD && 10 >= GetAbilityScore(oTarget, ABILITY_INTELLIGENCE, TRUE) && !GetIsPC(oTarget))
+            {
+                ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_NEGBLAST_ENERGY), oTarget);
+                ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectHeal(d6(nTurnLevel*2)), oTarget);
+            }
+            oTarget = MyNextObjectInShape(SHAPE_SPHERE, fRange, lTarget, FALSE, OBJECT_TYPE_CREATURE);
+        }
+    }    
+    else
+    {
+    	ApplyEffectAtLocation(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_VAMPIRIC_DRAIN_PRC), lTarget);
+        object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, fRange, lTarget, FALSE, OBJECT_TYPE_CREATURE);
+        while(GetIsObjectValid(oTarget))
+        {
+            if(oTarget != oBinder && MyPRCGetRacialType(oTarget) == RACIAL_TYPE_UNDEAD && 10 >= GetAbilityScore(oTarget, ABILITY_INTELLIGENCE, TRUE) && !GetIsPC(oTarget))
+            {
+            	int nDamage = d6(nTurnLevel*2);
+                if(PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_NONE))
+                {
+                    nDamage /= 2;
+                    if (GetHasMettle(oTarget, SAVING_THROW_WILL)) // Ignores partial effects
+                    {
+                        nDamage = 0;
+                    }
+                }            
+                ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_REGENERATE_IMPACT), oTarget);
+                if (nDamage) ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectDamage(nDamage, DAMAGE_TYPE_DIVINE), oTarget);
+            }
+            oTarget = MyNextObjectInShape(SHAPE_SPHERE, fRange, lTarget, FALSE, OBJECT_TYPE_CREATURE);
+        }
+    } 
+}    
+
+void main()
+{
+    object oBinder = OBJECT_SELF;
+    object oTarget    = PRCGetSpellTargetObject();
+
+    //make sure there's TU uses left
+    if (!GetHasFeat(FEAT_TURN_UNDEAD, oBinder))
+    {
+        FloatingTextStringOnCreature("You are out of Turn Undead uses for the day.", oBinder, FALSE);
+        return;
+    }
+    DecrementRemainingFeatUses(oBinder, FEAT_TURN_UNDEAD); // Burn one
+    
+    // Burn the tenebrous turn undead
+    if (BindAbilCooldown(oBinder, VESTIGE_TENEBROUS_TURN, VESTIGE_TENEBROUS))
+    	DestroyEmpower(oBinder);
+    else if (GetHasFeat(FEAT_TURN_UNDEAD, oBinder))
+    {
+    	DestroyEmpower(oBinder);
+    	DecrementRemainingFeatUses(oBinder, FEAT_TURN_UNDEAD); // Burn two
+    }	
+    else
+    {
+        FloatingTextStringOnCreature("You do not have enough Turn Undead uses.", oBinder, FALSE);
+        IncrementRemainingFeatUses(oBinder, FEAT_TURN_UNDEAD);
+        return;
+    }
+}
+