Initial commit

Adding all of the current content for Anphillia Unlimited.

_module/nss/hc_hb_sd_locate.nss

@@ -0,0 +1,122 @@
+//::///////////////////////////////////////////////
+//:: Secret Door invis object
+//:: V 1.6
+//:: Copyright (c) 2001 Bioware Corp. //:://////////////////////////////////////////////
+/*
+    This Invisable object will do a check and see
+    if any elf comes within a radius of this object.
+
+    It will create a trap door that will have its
+    Destination set to a waypoint that has
+    a tag of DST_<tag of this object>
+
+    The radius is determined by the reflex saving
+    throw of the invisible object
+
+    The DC of the search stored by the willpower
+    saving throw.
+
+*/
+//:://////////////////////////////////////////////
+//:: Created By  : Robert Babiak
+//:: Created On  : June 25, 2002
+//::---------------------------------------------
+//:: Modifyed By : Robert Babiak
+//:: Modifyed On : July 24, 2002
+//:: Modification: Changed the name of the blueprint
+//:: used to create a wall door instead, and also
+//:: incorporated a optimization to reduce CPU usage.
+//::---------------------------------------------
+//:: Modifyed By : Robert Babiak
+//:: Modifyed On : July 25, 2002
+//:: fixed problem with the aborting of the search
+//:: for PC that where in the search radius.
+//:: it was aborting when it got found a PC that
+//:: outside the search distance, but this also
+//:: canceled the search check.
+//::
+//:: This will teach me to trust code mailed in
+//:: from users...:)
+//::---------------------------------------------
+//:: Modified By: Tromador
+//:: Modified On: August 4, 2002
+//:: The hakpak causes save/load issues.
+//:: Modified to use a standard "portal" type
+//:: placeable, instead of the custom hakpak models.
+//::----------------------------------------------
+//:: Modified By: Whyteshadow
+//:: Modified On: August 4, 2002
+//:: Only elves can search passively.
+//:: Also, every elf in range will search,
+//:: not just the one with the best skill.
+//:: Also, the elf must be able to SEE the
+//:: location of the door.
+//::----------------------------------------------
+//:://////////////////////////////////////////////
+
+#include "hc_text_traps"
+#include "prc_inc_spells"
+
+void main()
+{
+    float fRehideTime = 60.0;
+
+    if (GetLocalInt(OBJECT_SELF, "bFound") == TRUE)
+        return;
+
+    if (GetLocalInt(OBJECT_SELF, "bReset") == TRUE)
+    {
+        object oDoor = GetLocalObject(OBJECT_SELF, "oDoor");
+        SetPlotFlag(oDoor, FALSE);
+        if (oDoor != OBJECT_INVALID)
+            DestroyObject(oDoor);
+        DeleteLocalObject(OBJECT_SELF, "oDoor");
+        DeleteLocalInt(OBJECT_SELF, "bReset");
+    }
+
+    // get the radius and DC of the secret door.
+    float fSearchDist = FeetToMeters(5.0f);  // PHB states that elves may only passively
+                                             // find secret doors within 5 feet.
+    int nDiffaculty   = GetWillSavingThrow   ( OBJECT_SELF );
+
+    location locDoor = GetLocation(OBJECT_SELF);
+
+    // what is the tag of this object used in setting the destination
+    string sTag = GetTag(OBJECT_SELF);
+
+
+    // Find the best searcher within the search radius.
+    object oidNearestCreature = GetFirstObjectInShape(SHAPE_SPHERE, fSearchDist, locDoor, TRUE, OBJECT_TYPE_CREATURE);
+
+    while ( oidNearestCreature != OBJECT_INVALID )
+    {
+        int iRace = MyPRCGetRacialType(oidNearestCreature);
+        if (iRace == RACIAL_TYPE_ELF)
+        {
+            int nMod = d20();
+            int nSearchSkill = GetSkillRank(SKILL_SEARCH, oidNearestCreature);
+
+            if ((nSearchSkill + nMod > nDiffaculty))
+            {
+                object oidDoor;
+
+                SendMessageToPC(oidNearestCreature, DOORFOUND);
+                // yes we found it, now create a trap door for us to use. it.
+                oidDoor = CreateObject(OBJECT_TYPE_PLACEABLE, "secret_door", locDoor);
+                SetLocalString( oidDoor, "strDestination" , "dst_"+sTag );
+                SetPlotFlag(oidDoor,1);
+                SetLocalObject(OBJECT_SELF, "oDoor", oidDoor);
+                object oSelf = OBJECT_SELF;
+                SetLocalInt(oSelf, "bFound", TRUE);
+                DelayCommand(fRehideTime, SetLocalInt(oSelf, "bFound", FALSE));
+                DelayCommand(fRehideTime, SetLocalInt(oSelf, "bReset", TRUE));
+                return;
+            } // if skill search found
+        }
+
+
+        oidNearestCreature = GetNextObjectInShape(SHAPE_SPHERE, fSearchDist, locDoor, TRUE, OBJECT_TYPE_CREATURE);
+    }
+
+
+}