Added NWN Dark Sun module contents

Added NWN Dark Sun module contents.

nwnds_module/ps_plnrg_neg.nss

@@ -0,0 +1,43 @@
+/************************************
+*   Summon Planar Energy (Negative) *
+*                                   *
+*   Cost: 16                        *
+*   Power Score: Int                *
+*                                   *
+************************************/
+
+#include "lib_psionic"
+
+void main()
+{
+    object oPC=OBJECT_SELF;
+    int nCost=16;
+    int nPowerScore=GetAbilityScore(oPC, ABILITY_INTELLIGENCE);
+    int nLevel=GetEffectivePsionicLevel(oPC, FEAT_PSIONIC_SUMMON_PLANAR_ENERGY);
+    effect eVis=EffectVisualEffect(VFX_FNF_SUMMON_EPIC_UNDEAD);
+    object oTarget=GetSpellTargetObject();
+    int nDC=12+(nLevel>30?15:nLevel/2)+GetAbilityModifier(ABILITY_INTELLIGENCE);
+
+
+    if (!PowerCheck(oPC, nCost, nPowerScore, FEAT_PSIONIC_SUMMON_PLANAR_ENERGY)) return;
+
+    effect eLink=EffectDamage(GetEnhancedEffect(d12(3), FEAT_PSIONIC_SUMMON_PLANAR_ENERGY), DAMAGE_TYPE_NEGATIVE);
+
+    if (GetRacialType(oTarget)==IP_CONST_RACIALTYPE_UNDEAD)
+    {
+        eLink=EffectHeal(GetEnhancedEffect(d12(3), FEAT_PSIONIC_SUMMON_PLANAR_ENERGY));
+        eVis=EffectVisualEffect(VFX_IMP_IMPROVE_ABILITY_SCORE);
+    }
+
+    ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget);
+    DelayCommand(0.2, ApplyEffectToObject(DURATION_TYPE_INSTANT, eLink, oTarget));
+    SignalEvent(oTarget, EventSpellCastAt(oPC, SPELL_PSIONIC_SUMMON_PLANAR_ENERGY));
+
+    if (!GetRacialType(oTarget)==IP_CONST_RACIALTYPE_UNDEAD &&
+            !FortitudeSave(oTarget, nDC, SAVING_THROW_TYPE_NEGATIVE, oPC))
+        ApplyEffectToObject(DURATION_TYPE_PERMANENT, EffectNegativeLevel(GetEnhancedEffect(1, FEAT_PSIONIC_SUMMON_PLANAR_ENERGY)), oTarget);
+
+
+
+
+}