Updated to PRC8

Updated to PRC8. Further function integration. Fixed NPC onDeath script. Full compile. Updated release archive.
2024-02-20 22:24:11 -05:00
parent ada3850bad
commit 2bb2c470e0
805 changed files with 37897 additions and 623 deletions
--- a/_haks/poa_exp_spells/sp_disrpt_undead.nss
+++ b/_haks/poa_exp_spells/sp_disrpt_undead.nss
@@ -0,0 +1,127 @@
+//::///////////////////////////////////////////////
+//:: Name      Disrupt Undead/Greater Disrupt Undead
+//:: FileName  sp_disrpt_undead.nss
+//:://////////////////////////////////////////////
+/**@file Disrupt Undead
+Necromancy
+Level:  Sor/Wiz 0
+Components:     V, S
+Casting Time:   1 standard action
+Range:  Close (25 ft. + 5 ft./2 levels)
+Effect:         Ray
+Duration:       Instantaneous
+Saving Throw:   None
+Spell Resistance:       Yes
+
+You direct a ray of positive energy. You must make a 
+ranged touch attack to hit, and if the ray hits an 
+undead creature, it deals 1d6 points of damage to it.
+
+Greater Disrupt Undead
+Necromancy
+Level: Sorcerer/wizard 3
+Components: V, S
+Casting Time: 1 standard action
+Range: Close (25 ft. + 5 ft./2 levels)
+Effect: Ray
+Duration: Instantaneous
+Saving Throw: None
+Spell Resistance: Yes
+
+You must succeed on a ranged touch attack with the ray
+to strike a target. This spell functions like disrupt
+undead (PH 223), except that this ray deals 1d8 points
+of damage per caster level to any undead, to a maximum
+of 10d8. If the damage is sufficient to destroy the 
+first target, then you can redirect the ray to another
+undead target within 15 feet of the first target. If 
+you make a successful ranged touch attack on the second
+target, that target takes half of the damage rolled for
+the first target.
+
+Author:    Tenjac
+Created:   7/6/07
+*/
+//:://////////////////////////////////////////////
+//:://////////////////////////////////////////////
+
+#include "prc_inc_sp_tch"
+
+void main()
+{
+    object oPC = OBJECT_SELF;
+    object oTarget = PRCGetSpellTargetObject();
+    int nSpell = GetSpellId();
+    int nCasterLvl = PRCGetCasterLevel(oPC);
+    int nBeam;
+    int nDam;
+    int nMetaMagic = PRCGetMetaMagicFeat();
+    int nTouch = PRCDoRangedTouchAttack(oTarget);
+    int nType = MyPRCGetRacialType(oTarget);
+
+    if(nSpell == SPELL_DISRUPT_UNDEAD)
+    {
+        nBeam = VFX_BEAM_HOLY;
+        nDam = d6(1)+ (nCasterLvl/4);
+        
+        if(nMetaMagic & METAMAGIC_MAXIMIZE) nDam = 6+(nCasterLvl/4);
+    }
+    
+    if(nSpell == SPELL_GREATER_DISRUPT_UNDEAD)
+    {
+        nBeam = VFX_BEAM_BLACK;
+        nDam = d6(3)+ (nCasterLvl/3);
+        
+        if(nMetaMagic & METAMAGIC_MAXIMIZE) nDam = 18+ (nCasterLvl/3);
+    }
+    
+    if(nMetaMagic & METAMAGIC_EMPOWER) nDam += (nDam/2);
+    
+    //Beam that acts accordingly
+    effect eVis = EffectBeam(nBeam, oPC, BODY_NODE_HAND, !nTouch);
+    
+    ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget);
+    
+    if(nTouch)
+    {
+        if(nType == RACIAL_TYPE_UNDEAD
+        || (GetHasFeat(FEAT_TOMB_TAINTED_SOUL, oTarget) && GetAlignmentGoodEvil(oTarget) != ALIGNMENT_GOOD))
+        {
+            if(!PRCDoResistSpell(oPC, oTarget, nCasterLvl + SPGetPenetr()))
+            {
+                if(nSpell == SPELL_GREATER_DISRUPT_UNDEAD)
+                {
+                    //Get hp before damage
+                    int nHP = GetCurrentHitPoints(oTarget);
+                    
+                    //Apply Damage
+                    SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_POSITIVE), oTarget);
+                    
+                    //if enough to kill target, bounce
+                    if(nDam >= nHP)
+                    {
+                        location lLoc = GetLocation(oTarget);
+                        object oTarget2 = MyFirstObjectInShape(SHAPE_SPHERE, FeetToMeters(15.0), lLoc, TRUE);
+                        
+                        while(GetIsObjectValid(oTarget2))
+                        {
+                            //Undead, enemy, and not the original target
+                            if((GetRacialType(oTarget2) == RACIAL_TYPE_UNDEAD || (GetHasFeat(FEAT_TOMB_TAINTED_SOUL, oTarget2) && GetAlignmentGoodEvil(oTarget2) != ALIGNMENT_GOOD)
+                            && GetIsEnemy(oTarget2, oPC) && (oTarget != oTarget2)))
+                            {
+                                //Black beam, origin chest of previous target
+                                ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectBeam(VFX_BEAM_BLACK, oTarget, BODY_NODE_CHEST), oTarget2);
+                                SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam/2, DAMAGE_TYPE_POSITIVE), oTarget2);
+                                break;
+                            }
+                            
+                            oTarget2 = MyNextObjectInShape(SHAPE_SPHERE, FeetToMeters(15.0), lLoc, TRUE);
+                        }
+                    }
+                }
+                else SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_POSITIVE), oTarget);
+            }
+        }
+    }
+    PRCSetSchool();
+}