Added Medium Viper animal companion.

Added Medium Viper animal companion.

nwnds_module/ds_rnd_armor_inc.nss

@@ -0,0 +1,96 @@
+//
+// NWN Dark Sun Random Armor Include
+//
+// By: Jaysyn
+//
+
+// Test VOID
+//void main(){}
+
+void RndDwarfGuardArmor(object oPC)
+{
+    //Randomizes Armor
+
+    int nResult = d6(1);
+    int nStackSize = 1; // Create 1 items;
+
+    object oArmor;
+
+    string sItem;
+
+    if (nResult == 1)
+        {
+            sItem = "AR_ALTSL_BONE01";
+        }
+    else if(nResult == 2)
+        {
+            sItem = "AR_ALTSL_IVORY";
+        }
+    else if(nResult == 3)
+        {
+            sItem = "DS_AMDBP_KLED001";
+        }
+    else if(nResult ==4)
+        {
+            sItem = "AR_ALTLT_MEKILOT";
+        }
+    else if(nResult == 5)
+        {
+            sItem = "DS_AMDBP_KLED002";
+        }
+    else
+        sItem = "DS_AMDBP_KLED003";
+
+    CreateItemOnObject(sItem, OBJECT_SELF, nStackSize);
+
+    AssignCommand(OBJECT_SELF, ActionEquipMostEffectiveArmor());
+
+        // Loop the object's inventory and equip the first
+    object oItem = GetFirstItemInInventory(OBJECT_SELF);
+    while(GetIsObjectValid(oItem))
+    {
+        // Check if armor, of course
+        if(GetBaseItemType(oItem) == BASE_ITEM_ARMOR)
+        {
+            // Equip it and stop the script
+            AssignCommand(OBJECT_SELF, ActionEquipItem(oItem, INVENTORY_SLOT_CHEST));
+            return;
+        }
+
+        oItem = GetNextItemInInventory(OBJECT_SELF);
+    }
+    DelayCommand(3.5f, ActionEquipMostEffectiveArmor());
+}
+
+void GuardArmor(object oPC)
+{
+        //Randomizes Armor
+    int nResult = d6(1);
+    object oArmor;
+    string sItem;
+    if (nResult == 1)
+        {
+            sItem = "AR_ALTSL_BONE01";
+        }
+    else if(nResult == 2)
+        {
+            sItem = "AR_ALTSL_IVORY";
+        }
+    else if(nResult == 3)
+        {
+            sItem = "AR_ALTLT_LEATHER";
+        }
+    else if(nResult ==4)
+        {
+            sItem = "AR_ALTLT_MEKILOT";
+        }
+    else if(nResult == 5)
+        {
+            sItem = "AR_ALTPD_CLOTH01";
+        }
+    else
+        sItem = "AR_ACLCL_HARNESS";
+
+    DelayCommand(3.0, ActionEquipItem(CreateItemOnObject(sItem), INVENTORY_SLOT_CHEST));
+}
+

nwnds_module/ds_rnd_guard_spw.nss

@@ -40,6 +40,7 @@ const int EVENT_USER_DEFINED_POSTSPAWN = 1511;
 #include "ms_name_inc"
 #include "NW_O2_CONINCLUDE"
 #include "x2_inc_switches"
+#include "ds_rnd_armor_inc"
 
 void main()
 {
@@ -49,34 +50,7 @@ void main()
     // User defined OnSpawn event requested?
     int nSpecEvent = GetLocalInt(OBJECT_SELF,"X2_USERDEFINED_ONSPAWN_EVENTS");
 
-    //Randomizes Armor
-    int nResult = d6(1);
-    object oArmor;
-    string sItem;
-    if (nResult == 1)
-        {
-            sItem = "AR_ALTSL_BONE01";
-        }
-    else if(nResult == 2)
-        {
-            sItem = "AR_ALTSL_IVORY";
-        }
-    else if(nResult == 3)
-        {
-            sItem = "AR_ALTLT_LEATHER";
-        }
-    else if(nResult ==4)
-        {
-            sItem = "AR_ALTLT_MEKILOT";
-        }
-    else if(nResult == 5)
-        {
-            sItem = "AR_ALTPD_CLOTH01";
-        }
-    else
-        sItem = "AR_ACLCL_HARNESS";
 
-    DelayCommand(3.0, ActionEquipItem(CreateItemOnObject(sItem), INVENTORY_SLOT_CHEST));
 
 
     // Pre Spawn Event requested
@@ -412,9 +386,12 @@ void main()
     nHairColor = Random(15);
     SetColor(OBJECT_SELF, COLOR_CHANNEL_HAIR, nHairColor);
 
- //Calls the Random Name Generator
+//Calls the Random Name Generator
     ms_Nomenclature(OBJECT_SELF);
 
+// Randomize Armor
+    GuardArmor(OBJECT_SELF);
+
 
     SetLocalInt(OBJECT_SELF, "iDialogue", Random(10) + 1);
     //SetLocalString(OBJECT_SELF, "sName", RandomName());

nwnds_module/ds_rnd_kledg_spw.nss

@@ -40,10 +40,13 @@ const int EVENT_USER_DEFINED_POSTSPAWN = 1511;
 #include "ms_name_inc"
 #include "NW_O2_CONINCLUDE"
 #include "x2_inc_switches"
+#include "ds_rnd_armor_inc"
+
 
 void main()
 {
     string sTag;
+    object oPC = OBJECT_SELF;
     object oNPC;
     ExecuteScript("prc_npc_spawn", OBJECT_SELF);
     // User defined OnSpawn event requested?
@@ -391,37 +394,12 @@ void main()
     nTattoo2 = Random(15);
     SetColor(OBJECT_SELF, COLOR_CHANNEL_TATTOO_2, nTattoo2);
 
+ //Randomizes Armor
+    RndDwarfGuardArmor(OBJECT_SELF);
+
  //Calls the Random Name Generator
     ms_Nomenclature(OBJECT_SELF);
 
-//Randomizes Armor
-    int nResult = d6(1);
-    object oArmor;
-    string sItem;
-    if (nResult == 1)
-        {
-            sItem = "AR_ALTSL_BONE01";
-        }
-    else if(nResult == 2)
-        {
-            sItem = "AR_ALTSL_IVORY";
-        }
-    else if(nResult == 3)
-        {
-            sItem = "DS_AMDBP_KLED001";
-        }
-    else if(nResult ==4)
-        {
-            sItem = "AR_ALTLT_MEKILOT";
-        }
-    else if(nResult == 5)
-        {
-            sItem = "DS_AMDBP_KLED002";
-        }
-    else
-        sItem = "DS_AMDBP_KLED003";
-
-    DelayCommand(1.0, ActionEquipItem(CreateItemOnObject(sItem), INVENTORY_SLOT_CHEST));
 
 
     SetLocalInt(OBJECT_SELF, "iDialogue", Random(10) + 1);

nwnds_module/x2_def_heartbeat.nss

@@ -10,6 +10,7 @@
 //:: Created On: June 11/03
 //:://////////////////////////////////////////////
 
+
 void main()
 {
     ExecuteScript("prc_npc_hb", OBJECT_SELF);