Gamma Age module files

Added internal Gamma Age module files.

gamma_age_v2/ab_desctrig_fnf.nss

@@ -0,0 +1,78 @@
+///////////////////////////////////////////////////////////////////
+///////////////////////////////////////////////////////////////////
+///////////////////////////////////////////////////////////////////
+///////////////            Created By               ///////////////
+///////////////     Abaddon, Angel of the Abyss     ///////////////
+///////////////       Contactabe via Bioware®       ///////////////
+///////////////     Forums and Private Message      ///////////////
+///////////////            Utilities:               ///////////////
+///////////////            __Abaddon__              ///////////////
+///////////////                                     ///////////////
+///////////////////////////////////////////////////////////////////
+///////////////////////////////////////////////////////////////////
+///////////////     All Scripts and Hakpak's are    ///////////////
+///////////////     distibuted as is, with no       ///////////////
+///////////////     warranty or responsibility      ///////////////
+///////////////     undertaken by the author.       ///////////////
+///////////////          Caveat Emptor!             ///////////////
+///////////////    This is freeware, You may        ///////////////
+///////////////    distribute it in its ORIGINAL    ///////////////
+///////////////   form at will, if this script      ///////////////
+///////////////  is used in any large projects such ///////////////
+/////////////// as a PW or story module, the author ///////////////
+/////////////// would like to be informed, merly as ///////////////
+///////////////   a curtosey and indicator of both  ///////////////
+///////////////    applicability and success :)       ///////////////
+///////////////////////////////////////////////////////////////////
+///////////////////////////////////////////////////////////////////
+//////////////  Script Name: ab_DescTrig            ///////////////
+//////////////  File Name: Descriptive Triggers     ///////////////
+//////////////  Author(s): Abaddon                  ///////////////
+//////////////             Galap                    ///////////////
+///////////////////////////////////////////////////////////////////
+///////////////////////////////////////////////////////////////////
+//                  Commentary/Introduction:                     //
+//                  -----------------------                      //
+//  Fire and forget trigger.  Grabs the name of the trigger
+// its attatched to and displays it as floaty text on a PC
+// only one time.
+// Modified as per Nathraiben's suggestion so that individual tags are no longer
+// required on the trigers.
+///////////////////////////////////////////////////////////////////
+///////////////////////////////////////////////////////////////////
+//////////////         Function Headers             ///////////////
+///////////////////////////////////////////////////////////////////
+
+//Fires The name of the trigger at the entering PC*
+// uses an int to make only fire once.
+// Int is established on the PC
+// String Variance == GetTag(of the trigger) + Has Fired
+// *There is a GetIsPC check in this function.
+void ab_Trig_Description_FireOnceOnly();
+
+void ab_Trig_Description_FireOnceOnly()
+{
+  object oPC = GetEnteringObject();
+  string sDesc = GetName(OBJECT_SELF);
+  //Determine that the trigger hasnt fired for this PC before
+  if (GetLocalInt(OBJECT_SELF, GetName(oPC) + "Has Fired") < 1)
+    {
+    //Determine that the PC is a valid object
+    if (GetIsObjectValid(oPC))
+      {
+        //If conditional just to verify that it is a PC not a wandering NPC or something of that nature
+        if (GetIsPC(oPC))
+        {
+        // I like floaty text :)    soo much nicer and more in mood for a player
+        FloatingTextStringOnCreature(sDesc, oPC, FALSE);
+        //Set the Int so that it will no longer fire for the PC
+        SetLocalInt(OBJECT_SELF, GetName(oPC) + "Has Fired", 1);
+        }
+      }
+    }
+}
+void main()
+{
+ab_Trig_Description_FireOnceOnly();
+}
+

gamma_age_v2/ab_desctrig_mult.nss

@@ -0,0 +1,74 @@
+///////////////////////////////////////////////////////////////////
+///////////////////////////////////////////////////////////////////
+///////////////////////////////////////////////////////////////////
+///////////////            Created By               ///////////////
+///////////////     Abaddon, Angel of the Abyss     ///////////////
+///////////////       Contactabe via Bioware®       ///////////////
+///////////////     Forums and Private Message      ///////////////
+///////////////            Utilities:               ///////////////
+///////////////            __Abaddon__              ///////////////
+///////////////                                     ///////////////
+///////////////////////////////////////////////////////////////////
+///////////////////////////////////////////////////////////////////
+///////////////     All Scripts and Hakpak's are    ///////////////
+///////////////     distibuted as is, with no       ///////////////
+///////////////     warranty or responsibility      ///////////////
+///////////////     undertaken by the author.       ///////////////
+///////////////          Caveat Emptor!             ///////////////
+///////////////    This is freeware, You may        ///////////////
+///////////////    distribute it in its ORIGINAL    ///////////////
+///////////////   form at will, if this script      ///////////////
+///////////////  is used in any large projects such ///////////////
+/////////////// as a PW or story module, the author ///////////////
+/////////////// would like to be informed, merly as ///////////////
+///////////////   a curtosey and indicator of both  ///////////////
+///////////////    applicability and success :)       ///////////////
+///////////////////////////////////////////////////////////////////
+///////////////////////////////////////////////////////////////////
+//////////////  Script Name: ab_DescTrig            ///////////////
+//////////////  File Name: Descriptive Triggers     ///////////////
+//////////////  Author(s): Abaddon                  ///////////////
+//////////////             Galap                    ///////////////
+///////////////////////////////////////////////////////////////////
+///////////////////////////////////////////////////////////////////
+//                  Commentary/Introduction:                     //
+//                  -----------------------                      //
+//  Fire and forget trigger.  Grabs the name of the trigger
+// its attatched to and displays it as floaty text on a PC
+// every time they activate the trigger.
+//
+///////////////////////////////////////////////////////////////////
+///////////////////////////////////////////////////////////////////
+//////////////         Function Headers             ///////////////
+///////////////////////////////////////////////////////////////////
+
+//Fires The name of the trigger at the entering PC*
+// uses an int to make only fire once.
+// Int is established on the PC
+// String Variance == GetTag(of the trigger) + Has Fired
+// *There is a GetIsPC check in this function.
+void ab_Trig_Description_FireOnceOnly();
+
+void ab_Trig_Description_FireOnceOnly()
+{
+  object oPC = GetEnteringObject();
+  string sDesc = GetName(OBJECT_SELF);
+    //Determine that the PC is a valid object
+    if (GetIsObjectValid(oPC))
+      {
+        //If conditional just to verify that it is a PC not a wandering NPC or something of that nature
+        if (GetIsPC(oPC))
+        {
+        // I like floaty text :)    soo much nicer and more in mood for a player
+        FloatingTextStringOnCreature(sDesc, oPC, FALSE);
+
+
+        }
+      }
+
+}
+void main()
+{
+ab_Trig_Description_FireOnceOnly();
+}
+

gamma_age_v2/array_example.nss

@@ -0,0 +1,143 @@
+//#include "inc_array"
+#include "nwnx_time"
+
+// nwnx_data also includes inc_array, so don't double dip.
+#include "nwnx_data"
+
+void Log(string msg) 
+{
+    WriteTimestampedLogEntry(msg);
+}
+
+void TestArrayOnModule() 
+{
+
+    string array = "test";
+
+    // By default, temporary arrays are created on the module.
+    Array_PushBack_Str(array, "BItem1");
+    Array_PushBack_Str(array, "AItem2");
+    Array_PushBack_Str(array, "AItem3");
+    Array_PushBack_Str(array, "BItem2");
+    Array_Debug_Dump(array, "After first load");
+
+    int foo = Array_Find_Str(array, "AItem3");
+    Log("Found element AItem3 at index = " + IntToString(foo));
+
+    Array_Set_Str(array, 2, "Suck it up...");
+    Array_Debug_Dump(array, "After set 2 = 'Suck it up...'");
+
+    Array_Erase(array, 1);
+    Array_Debug_Dump(array, "After delete 1");
+
+    Array_PushBack_Str(array, "MItem1");
+    Array_PushBack_Str(array, "QItem2");
+    Array_PushBack_Str(array, "NItem3");
+    Array_PushBack_Str(array, "KItem2");
+
+    Array_Debug_Dump(array, "After add more");
+    Array_SortAscending(array);
+
+    Array_Debug_Dump(array, "After sort");
+
+    Array_Shuffle(array);
+    Array_Debug_Dump(array, "After shuffle");
+
+    Log( (Array_Contains_Str(array, "NItem3")) ? "Passed.. found it"  : "Failed.. should have found it" );
+    Log( (Array_Contains_Str(array, "KItem2")) ? "Passed.. found it"  : "Failed.. should have found it" );
+    Log( (Array_Contains_Str(array, "xxxxxx")) ? "Failed.. not found" : "Passed.. should not exist" );
+
+    Array_Clear(array);
+    // Load up the array with 100 entries
+    int i;
+	
+    struct NWNX_Time_HighResTimestamp b;
+    b = NWNX_Time_GetHighResTimeStamp();
+    Log("Start Time: " + IntToString(b.seconds) + "." + IntToString(b.microseconds));
+    for (i=0; i<1000; i++) 
+    {
+        Array_PushBack_Str(array, IntToString(d100()) + " xxx " + IntToString(i));
+    }
+    b = NWNX_Time_GetHighResTimeStamp();
+    Log("Loaded 1000: " + IntToString(b.seconds) + "." + IntToString(b.microseconds));
+    Array_Shuffle(array);
+    b = NWNX_Time_GetHighResTimeStamp();
+    Log("Shuffled 1000: " + IntToString(b.seconds) + "." + IntToString(b.microseconds));
+    for (i=5; i<995; i++) 
+    {
+        // Delete the third entry a bunch of times
+        Array_Erase(array, 3);
+    }
+    b = NWNX_Time_GetHighResTimeStamp();
+    Log("Delete ~990: " + IntToString(b.seconds) + "." + IntToString(b.microseconds));
+    Array_Debug_Dump(array, "After mass insert/delete");
+
+}
+
+void TestArrayOnChicken() 
+{
+    string array="chicken";
+    // Let's create an array "on" our favorite creature: the deadly nw_chicken
+    // Note - arrays aren't really attached to the item, but the module, and they
+    // are tagged with the objects string representation.
+    object oCreature = CreateObject(OBJECT_TYPE_CREATURE, "nw_chicken", GetStartingLocation());
+    if (!GetIsObjectValid(oCreature))
+    {
+        Log("NWNX_Creature test: Failed to create creature");
+        return;
+    }
+
+    Array_PushBack_Str(array, "BItem1", oCreature);
+    Array_PushBack_Str(array, "AItem2", oCreature);
+    Array_PushBack_Str(array, "AItem3", oCreature);
+    Array_PushBack_Str(array, "BItem2", oCreature);
+    Array_Debug_Dump(array, "After Chicken array load", oCreature);
+
+}
+
+void TestNWNXArray() 
+{
+    Log("");
+    Log("Start NWNX_Data test.");
+    string array = "test2";
+
+    NWNX_Data_Array_PushBack_Str(GetModule(), array, "XItem1");
+    NWNX_Data_Array_PushBack_Str(GetModule(), array, "ZItem2");
+    NWNX_Data_Array_PushBack_Str(GetModule(), array, "ZItem3");
+    NWNX_Data_Array_PushBack_Str(GetModule(), array, "XItem2");
+    Array_Debug_Dump(array, "After first load");
+
+    int foo = NWNX_Data_Array_Find_Str(GetModule(), array, "ZItem3");
+    Log("Found element AItem3 at index = " + IntToString(foo));
+
+    NWNX_Data_Array_Set_Str(GetModule(), array, 2, "Suck it up...");
+    Array_Debug_Dump(array, "After set 2 = 'Suck it up...'");
+
+    NWNX_Data_Array_Erase(NWNX_DATA_TYPE_STRING, GetModule(), array, 1);
+    Array_Debug_Dump(array, "After delete 1");
+
+    NWNX_Data_Array_PushBack_Str(GetModule(), array, "MItem1");
+    NWNX_Data_Array_PushBack_Str(GetModule(), array, "QItem2");
+    NWNX_Data_Array_PushBack_Str(GetModule(), array, "NItem3");
+    NWNX_Data_Array_PushBack_Str(GetModule(), array, "KItem2");
+
+    Array_Debug_Dump(array, "After add more");
+    NWNX_Data_Array_SortAscending(NWNX_DATA_TYPE_STRING, GetModule(), array);
+
+    Array_Debug_Dump(array, "After sort");
+
+}
+
+// Uncomment and assign to some event click.
+/* */
+void main() 
+{
+    Log("Start");
+
+    TestArrayOnModule();
+
+    TestArrayOnChicken();
+
+    TestNWNXArray();
+}
+/* */

gamma_age_v2/autoclose_door.nss

@@ -0,0 +1,7 @@
+void main()
+{
+object oDoor = OBJECT_SELF;
+AssignCommand(oDoor, ActionWait(5.0f));
+AssignCommand(oDoor, ActionCloseDoor(oDoor));
+// AssignCommand(oDoor, ActionDoCommand(SetLocked(oDoor, TRUE)));
+}