Initial upload.

Adding base PRC 4.19a files to repository.

trunk/spells/sp_aberrate.nss

@@ -0,0 +1,109 @@
+//::///////////////////////////////////////////////
+//:: Name      Aberrate
+//:: FileName  sp_aberrate.nss
+//:://////////////////////////////////////////////
+/**@file Aberrate
+Transmutation [Evil]
+Level: Sor/Wiz 1
+Components: V, S, Fiend
+Casting Time: 1 action
+Range: Touch
+Target: One living creature
+Duration: 10 minutes/level
+Saving Throw: Fortitude negates
+Spell Resistance: Yes
+
+The caster transforms one creature into an aberration.
+The subject's form twists and mutates into a hideous
+mockery of itself. The subject's type changes to
+aberration, and it gains a +1 natural armor bonus to
+AC (due to the toughening and twisting of the flesh)
+for every four levels the caster has, up to a maximum
+of +5.
+
+Author:    Tenjac
+Created:
+*/
+//:://////////////////////////////////////////////
+//:://////////////////////////////////////////////
+
+#include "prc_inc_sp_tch"
+#include "prc_sp_func"
+#include "prc_add_spell_dc"
+
+int DoSpell(object oCaster, object oTarget, int nCasterLvl, int nEvent)
+{
+    object oSkin = GetPCSkin(oTarget);
+    int nMetaMagic = PRCGetMetaMagicFeat();
+    int nDC = PRCGetSaveDC(oTarget, oCaster);
+    float fDur = (600.0f * nCasterLvl);
+    if(nMetaMagic & METAMAGIC_EXTEND)
+        fDur = fDur * 2;
+    int bFriendly = TRUE;
+    if(oCaster == oTarget) bFriendly = FALSE;
+
+    //Signal spell firing
+    PRCSignalSpellEvent(oTarget, bFriendly, SPELL_ABERRATE, oCaster);
+
+    //if friendly
+    if(GetIsReactionTypeFriendly(oTarget, oCaster) ||
+    //or failed SR check
+    (!PRCDoResistSpell(oCaster, oTarget, nCasterLvl + SPGetPenetr())) && PRCGetIsAliveCreature(oTarget))
+    {
+        //if friendly
+        if(GetIsReactionTypeFriendly(oTarget, oCaster) ||
+        //or failed save
+        (!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_EVIL)))
+        {
+            int nBonus = 1;
+
+            if(nCasterLvl > 7) nBonus = 2;
+
+            if(nCasterLvl > 11) nBonus = 3;
+
+            if(nCasterLvl > 15) nBonus = 4;
+
+            if(nCasterLvl > 19) nBonus = 5;
+
+            itemproperty ipRace = PRCItemPropertyBonusFeat(FEAT_ABERRATION);
+            effect eArmor = EffectACIncrease(nBonus, AC_NATURAL_BONUS);
+            effect eVis = EffectVisualEffect(VFX_FNF_SUMMON_MONSTER_2);
+
+            SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget);
+            AddItemProperty(DURATION_TYPE_TEMPORARY, ipRace, oSkin, fDur);
+            SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eArmor, oTarget, fDur, TRUE, SPELL_ABERRATE, nCasterLvl, oCaster);
+        }
+    }
+    //SPEvilShift(oCaster);
+
+    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 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)
+        {
+            //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();
+}