Added PnP Dire Rat.

2021-07-21 17:48:43 -04:00
parent 552f1686c8
commit b01c5cc7db
10849 changed files with 171143 additions and 1 deletions
--- a/nwn_dark_sun/spawn_corpse_dth.nss
+++ b/nwn_dark_sun/spawn_corpse_dth.nss
@@ -0,0 +1,119 @@
+//
+// NESS V8.0
+// Spawn : Corpse Death Script
+//
+//
+//   Do NOT Modify this File
+//   See 'spawn__readme' for Instructions
+//
+
+#include "spawn_functions"
+
+void main()
+{
+    object oDeadNPC = OBJECT_SELF;
+    object oLootCorpse, oBlood;
+    location lCorpseLoc = GetLocation(oDeadNPC);
+    float fCorpseDecay = GetLocalFloat(oDeadNPC, "CorpseDecay");
+    int nCorpseDecayType = GetLocalInt(oDeadNPC, "CorpseDecayType");
+    int bDropWielded = GetLocalInt(oDeadNPC, "CorpseDropWielded");
+    string sLootCorpseResRef = GetLocalString(oDeadNPC, "CorpseRemainsResRef");
+    struct NESS_CorpseInfo stCorpseInfo;
+
+    int nCorpseGold = FALSE, nCorpseInv = FALSE, nCorpseEquip = FALSE;
+
+    object oKiller = GetLastDamager();
+    if (oKiller == OBJECT_INVALID)
+    {
+        oKiller = GetLastKiller();
+    }
+
+    if (fCorpseDecay > 0.0)
+    {
+        //Protect our corpse from decaying
+        SetIsDestroyable(FALSE, FALSE, FALSE);
+
+        // Create Corpse and Lootable Corpse
+        oLootCorpse = CreateObject(OBJECT_TYPE_PLACEABLE, sLootCorpseResRef, lCorpseLoc);
+
+        SetLocalObject(oLootCorpse, "HostBody", oDeadNPC);
+        SetLocalObject(oDeadNPC, "Corpse", oLootCorpse);
+
+        switch (nCorpseDecayType)
+        {
+            // Type 0:
+            // Inventory Items
+            case 0:
+                nCorpseGold = TRUE;
+                nCorpseInv = TRUE;
+                nCorpseEquip = FALSE;
+            break;
+
+            // Type 1:
+            // Inventory & Equipped Items
+            case 1:
+                nCorpseGold = TRUE;
+                nCorpseInv = TRUE;
+                nCorpseEquip = TRUE;
+            break;
+
+            // Type 2:
+            // Inventory Items, if PC Killed
+            case 2:
+                if (GetIsPC(oKiller) == TRUE || GetIsPC(GetMaster(oKiller)) == TRUE)
+                {
+                    nCorpseGold = TRUE;
+                    nCorpseInv = TRUE;
+                    nCorpseEquip = FALSE;
+                }
+            break;
+
+            // Type 3:
+            // Inventory & Equipped Items, if PC Killed
+            case 3:
+                if (GetIsPC(oKiller) == TRUE || GetIsPC(GetMaster(oKiller)) == TRUE)
+                {
+                    nCorpseGold = TRUE;
+                    nCorpseInv = TRUE;
+                    nCorpseEquip = TRUE;
+                }
+            break;
+        }
+
+        // Get Gold
+        if (nCorpseGold == TRUE)
+        {
+            int nAmtGold = GetGold(oDeadNPC);
+            if(nAmtGold)
+            {
+                object oGold = CreateItemOnObject("nw_it_gold001", oLootCorpse, nAmtGold);
+                AssignCommand(oLootCorpse, TakeGoldFromCreature(nAmtGold, oDeadNPC,TRUE));
+            }
+        }
+
+        // Get Inventory & Equipment
+        if (nCorpseEquip == TRUE)
+        {
+            stCorpseInfo = TransferAllInventorySlots(oDeadNPC, oLootCorpse, bDropWielded);
+        }
+
+        if (nCorpseInv == TRUE)
+        {
+            LootInventory(oDeadNPC, oLootCorpse);
+        }
+
+        // Write a record of stuff left on the original corpse and its loot
+        // corpse counterpart.  These are used to remove items from the visual corpse
+        // when the corresponding items are looted
+        SetLocalObject(oLootCorpse, "OrigArmor", stCorpseInfo.origArmor);
+        SetLocalObject(oLootCorpse, "LootArmor", stCorpseInfo.lootArmor);
+        SetLocalObject(oLootCorpse, "OrigRgtWpn", stCorpseInfo.origRgtWpn);
+        SetLocalObject(oLootCorpse, "LootRgtWpn", stCorpseInfo.lootRgtWpn);
+        SetLocalObject(oLootCorpse, "OrigLftWpn", stCorpseInfo.origLftWpn);
+        SetLocalObject(oLootCorpse, "LootLftWpn", stCorpseInfo.lootLftWpn);
+
+        // Set Corpse to Decay
+        DelayCommand(fCorpseDecay - 0.1, SetLocalInt(oDeadNPC, "DecayTimerExpired", TRUE));
+        DelayCommand(fCorpseDecay, ExecuteScript("spawn_corpse_dcy", oDeadNPC)); 
+    }
+}