Initial commit

Adding all of the current content for Anphillia Unlimited.

_module/nss/anph_area_enter.nss

@@ -0,0 +1,77 @@
+#include "dbg_inc"
+#include "faction_inc"
+
+void main()
+{
+    object oArea = OBJECT_SELF;
+    object oPC = GetEnteringObject();
+    if (!GetIsPC(oPC))
+    {
+        if (GetLocalInt(oArea, "AREA_NO_MONSTERS"))
+        {
+            if (GetLocalInt(oPC, "AREA_TRANSITION_IN_PROGRESS") && GetIsEncounterCreature(oPC) && !GetIsDMPossessed(oPC))
+                DestroyObject(oPC);
+        }
+        return;
+    }
+
+    int bDM = GetIsDM(oPC);
+    if (!bDM)
+    {
+        int nPlayersInArea = GetLocalInt(oArea, "AREA_PLAYER_COUNT");
+        SetLocalInt(oArea, "AREA_PLAYER_COUNT", ++nPlayersInArea);
+
+        if (GetLocalInt(oArea, "AREA_EXPLORED"))
+            ExploreAreaForPlayer(oArea, oPC);
+
+
+        if (nPlayersInArea == 1) // first one in, reset AIs for non-despawned creatures
+        {
+            if (GetLocalInt(oArea, "AREA_AI_LOWERED"))
+            {
+                object oCreature = GetFirstObjectInArea(oArea);
+                while (oCreature != OBJECT_INVALID)
+                {
+                    if (GetIsEncounterCreature(oCreature) && !GetIsDMPossessed(oCreature) && !GetPlotFlag(oCreature))
+                    {
+                        SetAILevel(oCreature, AI_LEVEL_DEFAULT);
+                    }
+                    oCreature = GetNextObjectInArea(oArea);
+                }
+                DeleteLocalInt(oArea, "AREA_AI_LOWERED");
+            }
+        }
+
+        if (nPlayersInArea > 1)
+        {
+            if (GetLocalInt(oArea, "AREA_NEUTRAL_ZONE"))
+            {
+                object oOtherPC = GetFirstPC();
+                while (oOtherPC != OBJECT_INVALID)
+                {
+                    if (oPC != oOtherPC && GetArea(oOtherPC) == OBJECT_SELF && !GetIsDM(oOtherPC))
+                    {
+                        SetPCLike(oPC, oOtherPC);
+                        SetPCLike(oOtherPC, oPC);
+                    }
+                    oOtherPC = GetNextPC();
+                }
+            }
+        }
+    }
+
+
+    // Update PC in database after every transition
+    if (!bDM)
+    {
+        DelayCommand(0.2, ExecuteScript("sql_update_pc", oPC));
+        ExportSingleCharacter(oPC);
+    }
+
+    // Execute eE's OnAreaEnter Script
+    ExecuteScript("ee_area_onenter", oArea);
+
+    // Does nothing, but let's keep for now..
+    DeleteLocalInt(oPC, "FromFugue");
+    DeleteLocalInt(oPC, "AREA_TRANSITION_IN_PROGRESS");
+}