Added Mine & Caverns raise & lower functionality

Added Mine & Caverns raise & lower functionality. Revamped Level 1 events to match PnP. Updated Level 1: Core. Added new Footcatcher trap type. Added Underwater heartbeat to Glop Lake Underwater. Full compile.
2023-09-16 09:04:37 -04:00
parent 6b9ab12c25
commit 84d583b489
183 changed files with 62513 additions and 10133 deletions
--- a/_module/nss/ra_lvl01_onhb.nss
+++ b/_module/nss/ra_lvl01_onhb.nss
@@ -0,0 +1,107 @@
+//::////////////////////////////////////////////////////////////////////////////
+/*//
+
+    Level 1: The Lair of the Dung Beast
+        onHeartbeat script
+            ra_lvl01_onhb.nss
+
+    Wandering Monsters: Check once per 30 minutes on 1d20.
+
+    Detections: Faint evil from the whole place; slightly more to the south east.
+
+    Continuous Effects: The stench of this level requires all characters to make
+    a Fortitude save (DC 10) upon entering the level and every 30 minutes
+    thereafter or all rolls are at –2 morale penalty due to the distraction
+    caused by the overpowering smell.
+
+*///
+//::////////////////////////////////////////////////////////////////////////////
+
+
+//:: Function to process the stench penalty
+void ApplyStench(object oPC)
+{
+    int RA_DEBUG = 0;
+	
+	//:: Check for exising variable on player
+    int oldTime = GetLocalInt(oPC, "StenchFortSaveTime");
+
+    // Get the current system time in seconds
+    int newTime = (GetTimeHour()*60*60)+(GetTimeMinute()*60)+GetTimeSecond();
+	
+    // Calculate the time difference in seconds
+    int timeDifference = newTime - oldTime;
+            
+	if (RA_DEBUG)
+	{	
+		SendMessageToPC(oPC, "oldTime = " + IntToString(oldTime));
+		SendMessageToPC(oPC, "newTime = " + IntToString(newTime));
+		SendMessageToPC(oPC, "timeDifference = " + IntToString(timeDifference));
+	}
+
+    //:: Check if the character hasn't made a Fortitude save in the last 3 minutes
+    if (oldTime == 0 || timeDifference >= 180) // 180 seconds = 3 real-time minutes
+    {
+        //:: Check if the character failed the save
+        if (!FortitudeSave(oPC, 10))
+        {
+            //:: Apply a -2 morale penalty to all rolls
+            effect eMoralePenalty   = EffectAttackDecrease(2);
+            effect eVFX             = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE);
+            effect eLink            = EffectLinkEffects(eMoralePenalty, eVFX);
+
+            eLink                   = SupernaturalEffect(eLink);
+            eLink                   = TagEffect(eLink, "LvlOneStench");
+
+            ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oPC, 180.0f); // 180 seconds = 3 real-time minutes & .5 hours in-game.
+
+            //:: Store the current time on player
+            SetLocalInt(oPC, "StenchFortSaveTime", newTime);
+
+            if (RA_DEBUG)
+			{
+				SendMessageToPC(oPC, "Failed StenchFortSave");
+				SendMessageToPC(oPC, "Setting StenchFortSaveTime as " + IntToString(newTime));
+			}
+			
+            // Send a message to the player
+            SendMessageToPC(oPC, "The overpowering stench is distracting you.");
+        }
+
+	//:: Store the current time on player
+		SetLocalInt(oPC, "StenchFortSaveTime", newTime);
+		
+		if (RA_DEBUG)
+		{
+			SendMessageToPC(oPC, "Passed StenchFortSave");
+			SendMessageToPC(oPC, "Setting StenchFortSaveTime as " + IntToString(newTime));
+		}
+    }
+}
+
+void main()
+{
+    int RA_DEBUG = 0;
+
+    //:: Declare major variables
+    object oArea = OBJECT_SELF;
+    object oPC = GetFirstObjectInArea(oArea, OBJECT_TYPE_CREATURE);
+
+    while (GetIsObjectValid(oPC))
+    {
+        if (GetIsPC(oPC) || (GetMaster(oPC) != OBJECT_INVALID && GetIsPC(GetMaster(oPC))))
+        {
+            if (RA_DEBUG)
+            {
+                SendMessageToPC(oPC, "Running Level 1 Area HB");
+            }
+
+            //:: Apply the stench
+            ApplyStench(oPC);
+        }
+
+        // Get the next object in the area
+        oPC = GetNextObjectInArea(oArea);
+    }
+}
+