Initial upload

Initial upload

_module/nss/jano_ondying.nss

@@ -0,0 +1,33 @@
+//::///////////////////////////////////////////////
+//:: Dying Script
+//:: tab_ondying
+//:: Copyright (c) 2001 Bioware Corp.
+//:://////////////////////////////////////////////
+/*
+    This script handles the default behavior
+    that occurs when a player is dying.
+    DEFAULT CAMPAIGN: player dies automatically
+*/
+//:://////////////////////////////////////////////
+//:: Created By: Brent Knowles     Modified by Tab
+//:: Created On: November 6, 2001
+//:://////////////////////////////////////////////
+
+#include "asg_i_dbplayer"
+void main()
+{
+/*    AssignCommand(GetLastPlayerDying(), ClearAllActions());
+    AssignCommand(GetLastPlayerDying(),SpeakString( "I Dying"));
+    PopUpGUIPanel(GetLastPlayerDying(),GUI_PANEL_PLAYER_DEATH);
+*/
+// * April 14 2002: Hiding the death part from player
+      object oPlayer = GetLastPlayerDying();
+    if (GetIsPC(oPlayer))
+    {
+        // On Succesful Rest Update Player Recored
+        PlayerDatabase("W",oPlayer);
+    }
+
+    effect eDeath = EffectDeath(FALSE, FALSE);
+    ApplyEffectToObject(DURATION_TYPE_INSTANT, eDeath, GetLastPlayerDying());
+}