Initial upload.

Adding base PRC 4.19a files to repository.

trunk/smp/phs_ot_negplnmaj.nss

@@ -0,0 +1,76 @@
+/*:://////////////////////////////////////////////
+//:: Script Name Negative Energy Plane - Major - Heartbeat
+//:: Script FileName PHS_OT_NegPlnMaj
+//:://////////////////////////////////////////////
+//:: File Notes
+//:://////////////////////////////////////////////
+    Major Negative Energy Plane. Very unlucky if you end up here!
+
+    Description:
+
+    Negative-Dominant: Planes with this trait are vast, empty reaches that suck
+    the life out of travelers who cross them. They tend to be lonely, haunted
+    planes, drained of color and filled with winds bearing the soft moans of
+    those who died within them. As with positive-dominant planes,
+    negative-dominant planes can be either minor or major. On minor
+    negative-dominant planes, living creatures take 1d6 points of damage per
+    round. At 0 hit points or lower, they crumble into ash.
+
+    Major negative-dominant planes are even more severe. Each round, those
+    within must make a DC 25 Fortitude save or gain a negative level. A
+    creature whose negative levels equal its current levels or Hit Dice is
+    slain, becoming a wraith. The death ward spell protects a traveler from
+    the damage and energy drain of a negative-dominant plane.
+
+    Basically:
+    - Deals a negative level (delayed just in case of it not reacting correctly
+      to stacking) on a failed DC25 fortitude save, eachround.
+//:://////////////////////////////////////////////
+//:: Created By: Jasperre
+//::////////////////////////////////////////////*/
+
+#include "PHS_INC_SPELLS"
+
+void main()
+{
+    // Loop all objects in the area. DMs excepted.
+    object oTarget = GetFirstObjectInArea(OBJECT_SELF);
+
+    if(!GetIsObjectValid(oTarget)) return;
+
+    // Delcare effects - Negative Level
+    effect eVis = EffectVisualEffect(VFX_IMP_NEGATIVE_ENERGY);
+    effect eNeg = EffectNegativeLevel(1);
+    effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE);
+    effect eLink = SupernaturalEffect(EffectLinkEffects(eNeg, eDur));
+    float fDuration;
+
+    // Loop all objects in the area. DMs excepted.
+    while(GetIsObjectValid(oTarget))
+    {
+        // Is it a creature? (Not a DM)
+        if(GetObjectType(oTarget) == OBJECT_TYPE_CREATURE &&
+           PHS_CanCreatureBeDestroyed(oTarget))
+        {
+            // Are they dead? If yes, ignore.
+            if(!GetIsDead(oTarget))
+            {
+                // Immune to negative levels?
+                if(!PHS_ImmunityCheck(oTarget, IMMUNITY_TYPE_NEGATIVE_LEVEL))
+                {
+                    // DC 25 fortitude save for a permanent negative level.
+                    if(!PHS_NotSpellSavingThrow(SAVING_THROW_FORT, oTarget, 25, SAVING_THROW_TYPE_NEGATIVE))
+                    {
+                        // Fortitude save: Death
+                        SendMessageToPC(oTarget, "You gain a negative level due to being on the negative plane.");
+
+                        // Apply the negative level.
+                        DelayCommand(0.1, PHS_ApplyPermanentAndVFX(oTarget, eVis, eLink));
+                    }
+                }
+            }
+        }
+        // Get next object
+        oTarget = GetNextObjectInArea(OBJECT_SELF);
+    }
+}