Spell & Ability Upgrade

Reorganized hak files & removed duplicates.  Added @rafhot's PRC spell & ability level scaling expansion.  Further script integration.  Full compile.

_haks/poa_exp_spells/nw_s0_regen.nss

@@ -0,0 +1,78 @@
+/*
+    nw_s0_regen
+
+    Grants the selected target 6 HP of regeneration
+    every round.
+
+    By: Preston Watamaniuk
+    Created: Oct 22, 2001
+    Modified: Jun 16, 2006
+*/
+
+#include "prc_sp_func"
+
+//Implements the spell impact, put code here
+//  if called in many places, return TRUE if
+//  stored charges should be decreased
+//  eg. touch attack hits
+//
+//  Variables passed may be changed if necessary
+int DoSpell(object oCaster, object oTarget, int nCasterLevel, int nEvent)
+{
+	int nDur = PRCGetCasterLevel(OBJECT_SELF);
+    effect eRegen = EffectRegenerate(6 + (nDur/2), 6.0);
+    effect eVis = EffectVisualEffect(VFX_IMP_HEAD_NATURE);
+    effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE);
+    effect eLink = EffectLinkEffects(eRegen, eDur);
+    int nMeta = PRCGetMetaMagicFeat();
+    
+    //Meta-Magic Checks
+    if (nMeta & METAMAGIC_EXTEND)
+        nDur *= 2;
+
+    PRCRemoveEffectsFromSpell(oTarget, SPELL_REGENERATE);
+
+    SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_REGENERATE, FALSE));
+    //Apply effects and VFX
+    SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDur),TRUE,-1,nCasterLevel);
+    ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget);
+
+    //Regrow fingers
+    if(GetPersistantLocalInt(OBJECT_SELF, "FINGERS_LEFT_HAND"))
+    {
+            SetPersistantLocalInt(OBJECT_SELF, "FINGERS_LEFT_HAND", 6);
+            SetPersistantLocalInt(OBJECT_SELF, "FINGERS_RIGHT_HAND", 6);
+            DeletePersistantLocalInt(OBJECT_SELF, "LEFT_HAND_USELESS");
+            DeletePersistantLocalInt(OBJECT_SELF, "RIGHT_HAND_USELESS");
+    }
+
+    return TRUE;    //return TRUE if spell charges should be decremented
+}
+
+void main()
+{
+    object oCaster = OBJECT_SELF;
+    int nCasterLevel = PRCGetCasterLevel(oCaster);
+    PRCSetSchool(GetSpellSchool(PRCGetSpellId()));
+    if (!X2PreSpellCastCode()) return;
+    object oTarget = PRCGetSpellTargetObject();
+    int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags
+    if(!nEvent) //normal cast
+    {
+        if(GetLocalInt(oCaster, PRC_SPELL_HOLD) && oCaster == oTarget)
+        {   //holding the charge, casting spell on self
+            SetLocalSpellVariables(oCaster, 1);   //change 1 to number of charges
+            return;
+        }
+        DoSpell(oCaster, oTarget, nCasterLevel, nEvent);
+    }
+    else
+    {
+        if(nEvent & PRC_SPELL_EVENT_ATTACK)
+        {
+            if(DoSpell(oCaster, oTarget, nCasterLevel, nEvent))
+                DecrementSpellCharges(oCaster);
+        }
+    }
+    PRCSetSchool();
+}