Added NWN Dark Sun module contents

Added NWN Dark Sun module contents.

nwnds_module/ps_plnrg_water.nss

@@ -0,0 +1,52 @@
+/************************************
+*   Summon Planar Energy (Water)    *
+*                                   *
+*   Cost: 16                        *
+*   Power Score: Int                *
+*                                   *
+************************************/
+
+#include "lib_psionic"
+
+
+void Drown(object oTarget, object oPC)
+{
+    effect eVis=EffectVisualEffect(VFX_IMP_FROST_S);
+    int nDamage=GetMaxHitPoints(oTarget)/4;
+    int nLevel=GetEffectivePsionicLevel(oPC, FEAT_PSIONIC_SUMMON_PLANAR_ENERGY);
+    int nDC=14+(nLevel>30?15:nLevel/2)+GetAbilityModifier(ABILITY_INTELLIGENCE);
+
+    if(nDamage<1) nDamage=1;
+
+    if (!FortitudeSave(oTarget, nDC, SAVING_THROW_TYPE_NONE, oPC))
+    {
+        AssignCommand(oTarget, PlayAnimation(ANIMATION_FIREFORGET_SPASM));
+        ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget);
+        ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectDamage(nDamage), oTarget);
+        DelayCommand(6.0, Drown(oTarget, oPC));
+    }
+}
+
+void main()
+{
+    object oPC=OBJECT_SELF;
+    int nCost=16;
+    int nPowerScore=GetAbilityScore(oPC, ABILITY_INTELLIGENCE);
+    object oTarget=GetSpellTargetObject();
+    int nTargRace=GetRacialType(oTarget);
+
+    if (!PowerCheck(oPC, nCost, nPowerScore, FEAT_PSIONIC_SUMMON_PLANAR_ENERGY)) return;
+
+    if ( GetObjectType(oTarget)!=OBJECT_TYPE_CREATURE
+        || nTargRace==RACIAL_TYPE_CONSTRUCT || nTargRace==RACIAL_TYPE_UNDEAD
+        || nTargRace==RACIAL_TYPE_ELEMENTAL || nTargRace==RACIAL_TYPE_OOZE )
+    {
+        FloatingTextStringOnCreature("This power only affects creatures that breathe.", oPC, FALSE);
+        ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(292), oPC);
+        return;
+    }
+
+    SignalEvent(oTarget, EventSpellCastAt(oPC, SPELL_PSIONIC_SUMMON_PLANAR_ENERGY));
+    Drown(oTarget, oPC);
+
+}