Initial upload

Initial upload.

_module/nss/pgs_create_msg.nss

@@ -0,0 +1,62 @@
+//::///////////////////////////////////////////////
+//:: Name: pgs_create_msg
+//:: Copyright (c) 2001 Bioware Corp.
+//:://////////////////////////////////////////////
+/*
+    Create the actual message for the selected
+    guild.
+*/
+//:://////////////////////////////////////////////
+//:: Created By: Samius Maximus
+//:: Created On:
+//:://////////////////////////////////////////////
+#include "inc_gsystem"
+
+void main()
+{
+    object oPlayer = GetPCSpeaker();
+    int iGuild = GetLocalInt (oPlayer, "Player_Guild_Number");
+    int iCount = 8;
+    int iReply;
+
+    //--------------------------------------------
+    //Before adding our new message, we must
+    //shift all current elements by one.
+    //--------------------------------------------
+    for (; iCount >= 2; iCount--)
+    {
+        SetModuleGuildTitle (iGuild, iCount, GetModuleGuildTitle (iGuild, iCount - 1));
+        SetModuleGuildPost (iGuild, iCount, GetModuleGuildPost (iGuild, iCount - 1));
+        SetModuleGuildAuthor (iGuild, iCount, GetModuleGuildAuthor (iGuild, iCount - 1));
+
+        //----------------------------------------
+        //Shift all message replies one position.
+        //----------------------------------------
+        for (iReply = 1; iReply <= 8; iReply++)
+        {
+            SetModuleGuildReplyTitle (iGuild, iCount, iReply,
+                GetModuleGuildReplyTitle (iGuild, iCount - 1, iReply));
+            SetModuleGuildReplyPost (iGuild, iCount, iReply,
+                GetModuleGuildReplyPost (iGuild, iCount - 1, iReply));
+            SetModuleGuildReplyAuthor (iGuild, iCount, iReply,
+                GetModuleGuildReplyAuthor (iGuild, iCount - 1, iReply));
+        }
+    }
+
+    //--------------------------------------------
+    //Now we can create the message at position 1.
+    //--------------------------------------------
+    SetModuleGuildTitle (iGuild, 1, GetLocalString (oPlayer, "Temp_Message_Title"));
+    SetModuleGuildPost (iGuild, 1, GetLocalString (oPlayer, "Temp_Message_Post"));
+    SetModuleGuildAuthor (iGuild, 1, GetName (oPlayer));
+
+    //--------------------------------------------
+    //Replies from this pos. copied, now clear 'em.
+    //--------------------------------------------
+    for (iReply = 1; iReply <= 8; iReply++)
+    {
+        SetModuleGuildReplyTitle (iGuild, 1, iReply, "");
+        SetModuleGuildReplyPost (iGuild, 1, iReply, "");
+        SetModuleGuildReplyAuthor (iGuild, 1, iReply, "");
+    }
+}