Initial Commit

2023-09-21 19:51:32 -04:00
parent 65b5bd7fd3
commit 102ba7dab6
6400 changed files with 5741850 additions and 0 deletions
--- a/_module/nss/birdbath_hb.nss
+++ b/_module/nss/birdbath_hb.nss
@@ -0,0 +1,99 @@
+//::///////////////////////////////////////////////
+//:: Name: birdbath_hb
+//:: Copyright (c) 2001 Bioware Corp.
+//:://////////////////////////////////////////////
+/*
+    OnHeartbest event for the "Special Birdbath"
+        placeable.  This script will emulate birds
+        flying in by the birdbath, walking around
+        for a bit, and then flying off.
+*/
+//:://////////////////////////////////////////////
+//:: Created By: Adam Walenga
+//:: Created On: October 23rd, 2004
+//:://////////////////////////////////////////////
+// modified by caesarbear 11/13/04
+// not so Hitchcock-ian
+#include "nw_i0_spells"
+
+void Bird_Heartbeat (object oBird)
+{
+    object oBirdBath = GetNearestObjectByTag ("Special_Birdbath", oBird);
+    float fClearDelay = GetRandomDelay (1.1f, 1.9f);
+    float fHBDelay = GetRandomDelay (2.0f, 2.8f);
+    float fDistance = GetDistanceBetween (oBird, oBirdBath);
+
+    //Check if the HB function has run atleast once for this bird.
+    if (GetLocalInt (oBird, "Has_Run_Once"))
+        //Determine if oBird should fly away (1/6 chance).
+        if (d6() == 1)
+        {
+            //Determine if a sound should be played (1/2 chance).
+            if (d2() == 1)
+            {
+                int iNumber = d2();
+                string sSound = "as_an_birdflap";
+
+                //Determine which sound to play.
+                if (d2() == 1)
+                    sSound = "as_an_birdsflap";
+
+                //Now play the sound.
+                sSound = sSound + IntToString (iNumber);
+                AssignCommand (oBirdBath, PlaySound (sSound));
+            }
+
+            //Have oBird fly away (using disappear effect).
+            ApplyEffectToObject (DURATION_TYPE_INSTANT, EffectDisappear(), oBird);
+        }
+
+    SetLocalInt (oBird, "Has_Run_Once", TRUE);
+
+    //Check if bird is too far away from the birdbath.
+    if (fDistance <= 5.0f)
+    {
+        AssignCommand (oBird, ActionRandomWalk());
+        DelayCommand (fClearDelay, AssignCommand (oBird, ClearAllActions()));
+
+    }
+    else  //Bird has wandered too far away - return to the birdbath.
+        AssignCommand (oBird, ActionMoveToObject (oBirdBath));
+
+    DelayCommand (fHBDelay, Bird_Heartbeat (oBird));
+}
+
+void main()
+{
+    object oNewBird = OBJECT_INVALID, oBirdBath = OBJECT_SELF,
+           oPCInArea = GetNearestCreature (CREATURE_TYPE_PLAYER_CHAR, TRUE);
+    string sBirdResRef = "birdbath_raven";
+    float fDelay = GetRandomDelay(0.4f, 1.1f);  //Between 0.4, and 1.1 seconds.
+    object oArea = GetArea(OBJECT_SELF);
+    int bRain;
+    if (GetWeather(GetArea(OBJECT_SELF))==WEATHER_RAIN)    //added cb
+    {
+    bRain = TRUE;
+    }
+
+    //If no PCs in area or is night, exit the script.
+    if ((oPCInArea == OBJECT_INVALID) || (GetIsNight()) || (GetIsDusk()) || (bRain))
+    {
+        return;
+    }
+
+    if (!GetLocalInt(OBJECT_SELF, "WAIT"))   //added cb
+    {
+        //Choose a random bird to add.
+        if (d2() == 1)
+            sBirdResRef = "birdbath_falcon";
+
+        //Create the new bird, and run a heartbeat function on it.
+        oNewBird = CreateObject (1, sBirdResRef, GetLocation (oBirdBath), TRUE);
+        DelayCommand (fDelay, Bird_Heartbeat (oNewBird));
+        SetLocalInt(OBJECT_SELF, "WAIT", 1);   //added cb
+    }
+    else    //added cb
+    {
+    SetLocalInt(OBJECT_SELF, "WAIT", 0);   //added cb
+    }
+}