Initial upload.

Adding base PRC 4.19a files to repository.

trunk/spells/nw_s0_abilbuff.nss

@@ -0,0 +1,165 @@
+/*
+    nw_s0_abilbuff.nss
+
+    Ability buffs, ultravision and
+        mass versions thereof
+
+    By: Flaming_Sword
+    Created: Jul 1, 2006
+    Modified: Jul 2, 2006
+*/
+
+#include "prc_sp_func"
+
+
+void StripBuff(object oTarget, int nBuffSpellID, int nMassBuffSpellID)
+{
+    effect eEffect = GetFirstEffect(oTarget);
+    while (GetIsEffectValid(eEffect))
+    {
+        int nSpellID = GetEffectSpellId(eEffect);
+        if (nBuffSpellID == nSpellID || nMassBuffSpellID == nSpellID)
+            RemoveEffect(oTarget, eEffect);
+        eEffect = GetNextEffect(oTarget);
+    }
+}
+
+//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 nSpellID, int nCasterLevel, int nEvent)
+{
+    int nMetaMagic = PRCGetMetaMagicFeat();
+    int bVision = (nSpellID == SPELL_DARKVISION) || (nSpellID == SPELL_MASS_ULTRAVISION);
+    int bMass = (nSpellID >= SPELL_MASS_BULLS_STRENGTH) && (nSpellID <= SPELL_MASS_ULTRAVISION);
+    effect eVis, eDur;
+    int nAbility, nAltSpellID;
+    if(bVision)
+    {
+        eDur = EffectVisualEffect(VFX_DUR_ULTRAVISION);
+        eDur = EffectLinkEffects(eDur, EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE));
+        eDur = EffectLinkEffects(eDur, EffectVisualEffect(VFX_DUR_MAGICAL_SIGHT));
+    }
+    else
+    {
+        eDur = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE);
+        if((nSpellID == SPELL_BULLS_STRENGTH) || (nSpellID == SPELL_MASS_BULLS_STRENGTH))
+        {
+            nAbility = ABILITY_STRENGTH;
+            eVis = EffectVisualEffect(VFX_IMP_BONUS_STRENGTH);
+            if(nSpellID == SPELL_BULLS_STRENGTH)
+                nAltSpellID = SPELL_MASS_BULLS_STRENGTH;
+            else
+                nAltSpellID = SPELL_BULLS_STRENGTH;
+        }
+        else if((nSpellID == SPELL_CATS_GRACE) || (nSpellID == SPELL_MASS_CATS_GRACE))
+        {
+            nAbility = ABILITY_DEXTERITY;
+            eVis = EffectVisualEffect(VFX_IMP_BONUS_DEXTERITY);
+            if(nSpellID == SPELL_CATS_GRACE)
+                nAltSpellID = SPELL_MASS_CATS_GRACE;
+            else
+                nAltSpellID = SPELL_CATS_GRACE;
+        }
+        else if((nSpellID == SPELL_ENDURANCE) || (nSpellID == SPELL_MASS_ENDURANCE))
+        {
+            nAbility = ABILITY_CONSTITUTION;
+            eVis = EffectVisualEffect(VFX_IMP_BONUS_CONSTITUTION);
+            if(nSpellID == SPELL_ENDURANCE)
+                nAltSpellID = SPELL_MASS_ENDURANCE;
+            else
+                nAltSpellID = SPELL_ENDURANCE;
+        }
+        else if((nSpellID == SPELL_EAGLE_SPLEDOR) || (nSpellID == SPELL_MASS_EAGLES_SPLENDOR))
+        {
+            nAbility = ABILITY_CHARISMA;
+            eVis = EffectVisualEffect(VFX_IMP_BONUS_CHARISMA);
+            if(nSpellID == SPELL_EAGLE_SPLEDOR)
+                nAltSpellID = SPELL_MASS_EAGLES_SPLENDOR;
+            else
+                nAltSpellID = SPELL_EAGLE_SPLEDOR;
+        }
+        else if((nSpellID == SPELL_OWLS_WISDOM) || (nSpellID == SPELL_MASS_OWLS_WISDOM))
+        {
+            nAbility = ABILITY_WISDOM;
+            eVis = EffectVisualEffect(VFX_IMP_BONUS_WISDOM);
+            if(nSpellID == SPELL_OWLS_WISDOM)
+                nAltSpellID = SPELL_MASS_OWLS_WISDOM;
+            else
+                nAltSpellID = SPELL_OWLS_WISDOM;
+        }
+        else if((nSpellID == SPELL_FOXS_CUNNING) || (nSpellID == SPELL_MASS_FOXS_CUNNING))
+        {
+            nAbility = ABILITY_INTELLIGENCE;
+            eVis = EffectVisualEffect(VFX_IMP_BONUS_INTELLIGENCE);
+            if(nSpellID == SPELL_FOXS_CUNNING)
+                nAltSpellID = SPELL_MASS_FOXS_CUNNING;
+            else
+                nAltSpellID = SPELL_FOXS_CUNNING;
+        }
+    }
+    float fDuration = HoursToSeconds(nCasterLevel);
+    if(nMetaMagic & METAMAGIC_EXTEND) fDuration *= 2;
+    location lTarget;
+    if(bMass)
+    {
+        lTarget = PRCGetSpellTargetLocation();
+        object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget, TRUE, OBJECT_TYPE_CREATURE);
+    }
+    while(GetIsObjectValid(oTarget))
+    {
+        if((!bMass) || (spellsIsTarget(oTarget, SPELL_TARGET_ALLALLIES, oCaster)))
+        {
+            PRCSignalSpellEvent(oTarget, FALSE);
+            //if(bMass) fDelay = PRCGetSpellEffectDelay(lTarget, oTarget);
+            int nStatMod = d4() + 1;
+            if(nMetaMagic & METAMAGIC_MAXIMIZE) nStatMod = 5;
+            if(nMetaMagic & METAMAGIC_EMPOWER) nStatMod += (nStatMod / 2);
+            effect eBuff;
+            if(bVision)
+                SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectLinkEffects(EffectUltravision(), eDur), oTarget, fDuration,TRUE,-1,nCasterLevel);
+            else
+            {
+                StripBuff(oTarget, nSpellID, nAltSpellID);
+                SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectLinkEffects(EffectAbilityIncrease(nAbility, nStatMod), eDur), oTarget, fDuration,TRUE,-1,nCasterLevel);
+                SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget);
+            }
+        }
+        if(!bMass) break;
+        oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget, TRUE, OBJECT_TYPE_CREATURE);
+    }
+
+    return TRUE;    //return TRUE if spell charges should be decremented
+}
+
+void main()
+{
+    if (!X2PreSpellCastCode()) return;
+    PRCSetSchool(SPELL_SCHOOL_TRANSMUTATION);
+    object oCaster = OBJECT_SELF;
+    object oTarget = PRCGetSpellTargetObject();
+    int nSpellID = PRCGetSpellId();
+    int nCasterLevel = PRCGetCasterLevel(oCaster);
+    int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags
+    if(!nEvent) //normal cast
+    {
+        if(GetLocalInt(oCaster, PRC_SPELL_HOLD) && oCaster == oTarget && IsTouchSpell(nSpellID))
+        {   //holding the charge, casting spell on self
+            SetLocalSpellVariables(oCaster, 1);   //change 1 to number of charges
+            return;
+        }
+        DoSpell(oCaster, oTarget, nSpellID, nCasterLevel, nEvent);
+    }
+    else
+    {
+        if(nEvent & PRC_SPELL_EVENT_ATTACK)
+        {
+            if(DoSpell(oCaster, oTarget, nSpellID, nCasterLevel, nEvent))
+                DecrementSpellCharges(oCaster);
+        }
+    }
+    PRCSetSchool();
+}