Added NWN Dark Sun module contents

Added NWN Dark Sun module contents.

nwnds_module/zep_demi_bone_hb.nss

@@ -0,0 +1,48 @@
+//::///////////////////////////////////////////////
+//:: zep_demi_bone_hb
+//:: Legacy OnHeartbeat event for the CEP demilich
+//:: Pile of Bones placeable (found under the custom
+//:: placeables: "Dungeons->Tombs, Grave Markers ->
+//:: Pile of Bones").
+//:://////////////////////////////////////////////
+/*
+    This script is no longer needed for demiliches,
+    but is retained for backwards-compatibility, and
+    in case someone is interested in changing the
+    perception range of demilich placeables.
+*/
+//:://////////////////////////////////////////////
+//:: Created by: Loki Hakanin
+//:: Created on: April 21, 2004
+//:://////////////////////////////////////////////
+//:: Modified by: The Krit
+//:: Modified on: May 10, 2007
+//:://////////////////////////////////////////////
+
+
+#include "zep_inc_demi"
+
+
+void main()
+{
+    // Find the distance to the nearest enemy.
+    float fDistance =  GetDistanceToObject(
+            GetNearestCreature(CREATURE_TYPE_REPUTATION, REPUTATION_TYPE_ENEMY,
+                               OBJECT_SELF, 1, CREATURE_TYPE_IS_ALIVE, TRUE));
+
+    // Is the nearest enemy within perception range?
+    if ( 0.0 <= fDistance  &&  fDistance <= ZEP_DEMI_PERC_RANGE )
+    {
+        // Respawn the demilich.
+        ZEPDemilichFromBones(OBJECT_SELF, GetLocalString(OBJECT_SELF, ZEP_DEMI_LOCAL_RESREF), TRUE);
+        // Destroy the placeables.
+        object oDust = GetLocalObject(OBJECT_SELF, ZEP_DEMI_LOCAL_AMBIENT);
+        if ( oDust != OBJECT_INVALID )
+            DestroyObject(oDust);
+        else
+            // Probably a legacy placeable. Destroy nearest dust cloud.
+            DestroyObject(GetNearestObjectByTag("zep_demi_dust"));
+        DestroyObject(OBJECT_SELF);
+    }
+}
+