Initial upload.

Adding base PRC 4.19a files to repository.

trunk/smp/phs_s_shieldofla.nss

@@ -0,0 +1,117 @@
+/*:://////////////////////////////////////////////
+//:: Spell Name Shield of Law
+//:: Spell FileName PHS_S_ShieldofLa
+//:://////////////////////////////////////////////
+//:: In Game Spell desctiption
+//:://////////////////////////////////////////////
+    Abjuration [Lawful]
+    Level: Clr 8, Law 8
+    Components: V, S, F
+    Casting Time: 1 standard action
+    Range: 6.67M (20 ft.)
+    Targets: One creature/level in a 6.67M-radius (20-ft.) burst centered on you
+    Duration: 1 round/level (D)
+    Saving Throw: See text
+    Spell Resistance: Yes (harmless)
+
+    A dim, blue glow surrounds the subjects, protecting them from attacks,
+    granting them resistance to spells cast by chaotic creatures, and slowing
+    chaotic creatures when they strike the subjects. This abjuration has four
+    effects.
+
+    First, each warded creature gains a +4 deflection bonus to AC and a +4
+    resistance bonus on saves. Unlike protection from chaos, this benefit applies
+    against all attacks, not just against attacks by chaotic creatures.
+
+    Second, a warded creature gains spell resistance 25 against chaotic spells
+    and spells cast by chaotic creatures.
+
+    Third, the abjuration blocks possession and mental influence, just as
+    protection from chaos does.
+
+    Finally, if a chaotic creature succeeds on a melee attack against a warded
+    creature, the attacker is slowed (Will save negates, as the slow spell, but
+    against shield of law<61>s save DC).
+
+    Focus: A tiny reliquary containing some sacred relic, such as a scrap of
+    parchment from a lawful text. The reliquary costs at least 500 gp.
+//:://////////////////////////////////////////////
+//:: Spell Effects Applied / Notes
+//:://////////////////////////////////////////////
+    Apart from the Finally bit (as the others) the rest, however, is possible.
+//:://////////////////////////////////////////////
+//:: Created By: Jasperre
+//::////////////////////////////////////////////*/
+
+#include "PHS_INC_SPELLS"
+
+void main()
+{
+    // Spell hook check.
+    if(!PHS_SpellHookCheck(PHS_SPELL_SHIELD_OF_LAW)) return;
+
+    // Check for 500GP lawful relic item
+    // - Only a focus, not a requirement
+    if(!PHS_ComponentFocusItem(PHS_ITEM_LAWFUL_RELIC_500, "Lawful Relic worth 500GP", "Shield of Law")) return;
+
+    //Declare major variables
+    object oCaster = OBJECT_SELF;
+    object oTarget;
+    int nCasterLevel = PHS_GetCasterLevel();
+    int nMetaMagic = PHS_GetMetaMagicFeat();
+
+    // 1 creature level.
+    int nDoneCreatures = 0;
+
+    // 1 Round/level duration
+    float fDuration = PHS_GetDuration(PHS_ROUNDS, nCasterLevel, nMetaMagic);
+
+    // Delcare effects
+    effect eDur = EffectVisualEffect(PHS_VFX_DUR_PROTECTION_LAW_MAJOR);
+    effect eSR = EffectSpellResistanceIncrease(25);
+    effect eAC = EffectACIncrease(4, AC_DEFLECTION_BONUS);
+    effect eSaves = EffectSavingThrowIncrease(SAVING_THROW_ALL, 4, SAVING_THROW_TYPE_ALL);
+    effect eImmunities = PHS_CreateCompulsionImmunityLink();
+    effect eCessate = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE);
+
+    // Only the SR and immunities are vs chaos.
+    // * Need to check if this works correctly
+    eSR = VersusAlignmentEffect(eSR, ALIGNMENT_CHAOTIC);
+    eImmunities = VersusAlignmentEffect(eImmunities, ALIGNMENT_CHAOTIC);
+
+    // Link effects
+    effect eLink = EffectLinkEffects(eDur, eSR);
+    eLink = EffectLinkEffects(eLink, eAC);
+    eLink = EffectLinkEffects(eLink, eSaves);
+    eLink = EffectLinkEffects(eLink, eImmunities);
+    eLink = EffectLinkEffects(eLink, eCessate);
+
+    // Loop all targets without effect nearby
+    int nCnt = 0;
+    oTarget = oCaster;
+    // Loop for 6.67M range
+    while(GetIsObjectValid(oTarget) && nDoneCreatures < nCasterLevel &&
+          GetDistanceToObject(oTarget) <= 6.67)
+    {
+        // Make sure they are in our LOS, are a friend too.
+        if(LineOfSightObject(oCaster, oTarget) &&
+          (GetIsFriend(oTarget) || GetFactionEqual(oTarget)) &&
+        // Make sure they are not immune to spells
+           !PHS_TotalSpellImmunity(oTarget))
+        {
+            // Add one to nDoneCreatures
+            nDoneCreatures++;
+
+            // Signal spell cast at event
+            PHS_SignalSpellCastAt(oTarget, PHS_SPELL_SHIELD_OF_LAW, FALSE);
+
+            // Remove previous castings
+            PHS_RemoveProtectionFromAlignment(oTarget, ALIGNMENT_CHAOTIC, 3);
+
+            // Apply effects
+            PHS_ApplyDuration(oTarget, eLink, fDuration);
+        }
+        nCnt++;
+        oTarget = GetNearestObject(OBJECT_TYPE_CREATURE, oCaster, nCnt);
+    }
+}