Added NWN Dark Sun module contents

Added NWN Dark Sun module contents.

nwnds_module/ps_group_tp.nss

@@ -0,0 +1,43 @@
+/************************************
+*   Group Teleport                  *
+*                                   *
+*   Cost: 32                        *
+*   Power Score: Wis -5             *
+*                                   *
+*************************************/
+
+#include "lib_psionic"
+
+
+void main()
+{
+    object oPC=OBJECT_SELF;
+    int nCost=32;
+    int nPowerScore=GetAbilityScore(oPC, ABILITY_WISDOM)-5;
+    location lDest=GetTeleportAnchor(oPC);
+    effect eVis=EffectVisualEffect(VFX_FNF_DISPEL_DISJUNCTION);
+    int nLevel=GetEffectivePsionicLevel(oPC, FEAT_PSIONIC_GROUP_TELEPORT);
+    object oGroupee=GetFirstFactionMember(oPC, FALSE);
+
+    if(!GetIsObjectValid(GetAreaFromLocation(lDest)))
+    {
+        FloatingTextStringOnCreature("No valid teleport anchor has been set.", oPC, FALSE);
+        ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(292), oPC);
+        return;
+    }
+
+    if (!PowerCheck(oPC, nCost, nPowerScore, FEAT_PSIONIC_GROUP_TELEPORT)) return;
+
+    while(GetIsObjectValid(oGroupee))
+    {
+        if(GetDistanceToObject(oGroupee)>=0.0 && GetDistanceToObject(oGroupee)<5.0)
+        {
+            DelayCommand(1.8, AssignCommand(oGroupee, JumpToLocation(lDest)));
+        }
+
+        oGroupee=GetNextFactionMember(oPC, FALSE);
+    }
+
+    ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oPC);
+    DelayCommand(1.8, AssignCommand(oPC, JumpToLocation(lDest)));
+}