Added Medium Viper animal companion.

Added Medium Viper animal companion.

README.md

@@ -1,4 +1,4 @@
-# NWNDS
+# Neverwtinter Nights Dark Sun [NWNDS]
 Repository for the code & various resources for the NWN Dark Sun project.
 
 ## Features
@@ -26,3 +26,11 @@ Mark Ip - Aztec Exterior Redux Tilset
 ILmaTeR / ReAver - CODI/Daggerdale Swamp Tileset 
 
 
+### Athas Reborn / Dark Sun Online Contributors
+
+The CEP Team
+
+Acidchalk, Andrak the Mad, Antoneagle, Aserath, Dante, Danule, Deek, Dom, Dreaderick, Dred, Drohgan, Elanthis Seldavius, Hellfire, Ihsaan, Jaysyn, Josten, Kenquinn, Klonapin, Kyriana Agrivar, Lorack, Magnus, Master Pain, Natana, NiteCap, Noob Punchingbag, Ranulf Majere, Rashod81100, Shadara, Sirna, Squirrel, Sutered, The Deadheart, The Inquisitor, The Obsidian Oracle, Tik, Trump, Wayne & Wrains
+
+
+

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);