Added NWN Dark Sun module contents

Added NWN Dark Sun module contents.

nwnds_module/dmfi_onplychat.nss

@@ -0,0 +1,79 @@
+//::///////////////////////////////////////////////
+//:: DMFI - OnPlayerChat event handler
+//:: dmfi_onplychat
+//:://////////////////////////////////////////////
+/*
+  Event handler for the module-level OnPlayerChat event. Manages scripter-added
+  event scripts.
+*/
+//:://////////////////////////////////////////////
+//:: Created By: Merle, with help from mykael22000 and tsunami282
+//:: Created On: 2007.12.12
+//:://////////////////////////////////////////////
+//:: 2007.12.27 tsunami282 - implemented hooking tree
+
+#include "dmfi_plychat_inc"
+
+const string DMFI_PLAYERCHAT_SCRIPTNAME = "dmfi_plychat_exe";
+
+////////////////////////////////////////////////////////////////////////
+void main()
+{
+    int nVolume = GetPCChatVolume();
+    object oShouter = GetPCChatSpeaker();
+
+    int bInvoke;
+    string sChatHandlerScript;
+    int maskChannels;
+    // int bListenAll;
+    object oRunner;
+    int bAutoRemove;
+    int bDirtyList = FALSE;
+    int iHook;
+    object oMod = GetModule();
+// SendMessageToPC(GetFirstPC(), "OnPlayerChat - process hooks");
+    int nHooks = GetLocalArrayUpperBound(oMod, DMFI_CHATHOOK_HANDLE_ARRAYNAME);
+    for (iHook = nHooks; iHook > 0; iHook--) // reverse-order execution, last hook gets first dibs
+    {
+// SendMessageToPC(GetFirstPC(), "OnPlayerChat -- process hook #" + IntToString(iHook));
+        maskChannels = GetLocalArrayInt(oMod, DMFI_CHATHOOK_CHANNELS_ARRAYNAME, iHook);
+// SendMessageToPC(GetFirstPC(), "OnPlayerChat -- channel heard=" + IntToString(nVolume) + ", soughtmask=" + IntToString(maskChannels));
+        if (((1 << nVolume) & maskChannels) != 0) // right channel
+        {
+// SendMessageToPC(GetFirstPC(), "OnPlayerChat --- channel matched");
+
+            bInvoke = FALSE;
+            if (GetLocalArrayInt(oMod, DMFI_CHATHOOK_LISTENALL_ARRAYNAME, iHook) != FALSE)
+            {
+                bInvoke = TRUE;
+            }
+            else
+            {
+                object oDesiredSpeaker = GetLocalArrayObject(oMod, DMFI_CHATHOOK_SPEAKER_ARRAYNAME, iHook);
+                if (oShouter == oDesiredSpeaker) bInvoke = TRUE;
+            }
+            if (bInvoke) // right speaker
+            {
+// SendMessageToPC(GetFirstPC(), "OnPlayerChat --- speaker matched");
+                sChatHandlerScript = GetLocalArrayString(oMod, DMFI_CHATHOOK_SCRIPT_ARRAYNAME, iHook);
+                oRunner = GetLocalArrayObject(oMod, DMFI_CHATHOOK_RUNNER_ARRAYNAME, iHook);
+// SendMessageToPC(GetFirstPC(), "OnPlayerChat --- executing script '" + sChatHandlerScript + "' on object '" + GetName(oRunner) +"'");
+                ExecuteScript(sChatHandlerScript, oRunner);
+                bAutoRemove = GetLocalArrayInt(oMod, DMFI_CHATHOOK_AUTOREMOVE_ARRAYNAME, iHook);
+                if (bAutoRemove)
+                {
+// SendMessageToPC(GetFirstPC(), "OnPlayerChat --- scheduling autoremove");
+                    bDirtyList = TRUE;
+                    SetLocalArrayInt(oMod, DMFI_CHATHOOK_HANDLE_ARRAYNAME, iHook, 0);
+                }
+            }
+        }
+    }
+
+    if (bDirtyList) DMFI_ChatHookRemove(0);
+
+    // always execute the DMFI parser
+    ExecuteScript(DMFI_PLAYERCHAT_SCRIPTNAME, OBJECT_SELF);
+
+}
+