Initial Commit

Initial Commit [v1.32PRC8]
2025-04-03 13:38:45 -04:00
parent 1213977d8c
commit b464d8da05
6922 changed files with 6176025 additions and 2 deletions
--- a/_module/nss/ap_areaenter.nss
+++ b/_module/nss/ap_areaenter.nss
@@ -0,0 +1,128 @@
+#include "rd_spawnzones"
+//#include "rd_questinc"
+//#include "rd_treasure"
+
+void SpawnSpecialCamp(int iCamp, string sCType);
+
+void main()
+{
+int iCamp;
+string sCType;
+object oPC;
+
+oPC = GetEnteringObject();
+
+if (GetIsPC(oPC))
+    {
+    if (GetLocalInt(OBJECT_SELF,"EN4_DoOnce") == 0)
+        {
+        SetLocalInt(OBJECT_SELF,"EN4_DoOnce",1);
+        SetLocalInt(GetModule(),"Astral",1);
+        DelayCommand(1.0f,SpawnSpecialCamp(1,"angelic"));
+        DelayCommand(1.0f,SpawnSpecialCamp(2,"fiend"));
+        DelayCommand(1.0f,SpawnSpecialCamp(3,"astral"));
+        DelayCommand(1.0f,SpawnSpecialCamp(4,"maelore"));
+        DelayCommand(1.0f,SpawnSpecialCamp(5,"astral"));
+        }
+    }
+}
+
+void SpawnSpecialCamp(int iCamp, string sCType)
+{
+int iFlag;
+int iIndex;
+int iType;
+int iBaseLevel;
+int iBase;
+int iBaseStart;
+int iBaseMax;
+int iCampType;
+int iArea;
+string sEncounter;
+string sBossTest;
+string sCampType;
+string sCD;
+object oEncounter;
+object oCreature;
+object oBoss;
+object oMod;
+object oArea;
+location lEncounter;
+
+string sZone = "AP1";
+int iLevel=40;
+int iLeader=0;
+
+oMod = GetModule();
+sEncounter = sZone + "_Q" + IntToString(iCamp) + "_Boss";
+oEncounter = GetObjectByTag(sEncounter);
+oArea = GetArea(oEncounter);
+
+iArea=GetIsAreaInterior(oArea);
+iBaseLevel=AdjustLevel(iLevel);
+
+if (iArea == FALSE)
+    SetupCampTypes(iBaseLevel,1,0,0);
+else
+    SetupCampTypes(iBaseLevel,1,1,0);
+
+if (sCType == "")
+    {
+    iBaseLevel=AdjustLevel(iLevel);
+    sCampType = GetCampType();
+    } else {
+    iBaseLevel=AdjustLevel(iLevel);
+    sCampType = GetSpecificCampType(sCType);
+    }
+
+
+iBase = GetLocalInt(oMod,"iBase");
+iBaseStart = GetLocalInt(oMod,"iBaseStart");
+iBaseMax = GetLocalInt(oMod,"iBaseMax");
+iCampType = GetLocalInt(oMod,"iCampType");
+sCD = GetLocalString(oMod,"sCD");
+
+//debug line
+//SendMessageToPC(GetFirstPC(),"Spawn Specific camptype " + sCampType + " at type " + IntToString(iCampType));
+
+SetLocalInt(oMod,"iBase",0);
+SetLocalInt(oMod,"iBaseStart",0);
+SetLocalInt(oMod,"iBaseMax",0);
+SetLocalInt(oMod,"iCampType",0);
+SetLocalString(oMod,"sCD","");
+
+sEncounter = sZone + "_Q" + IntToString(iCamp) + "_Boss";
+oBoss = GetCampMob(99,sEncounter,sCampType,iBaseLevel,iBaseStart,iBase,iBaseMax,iCampType);
+
+SetLocalString(oBoss,"CampType",sCampType);
+SetLocalInt(oBoss,"BaseLevel",iBaseLevel);
+SetLocalInt(oBoss,"iBase",iBase);
+SetLocalInt(oBoss,"iBaseStart",iBaseStart);
+SetLocalInt(oBoss,"iBaseMax",iBaseMax);
+SetLocalInt(oBoss,"iCampType",iCampType);
+SetLocalString(oBoss,"Description",sCD);
+
+iType = 1;
+while (iType <4)
+    {
+    iFlag = 1;
+    iIndex = 1;
+    while (iFlag == 1)
+        {
+        sEncounter = sZone + "_Q" + IntToString(iCamp) +
+                    "_T" + IntToString(iType) + "_" + IntToString(iIndex);
+        oEncounter = GetObjectByTag(sEncounter);
+        if (GetIsObjectValid(oEncounter))
+            {
+            GetCampMob(iType,sEncounter,sCampType,iBaseLevel,iBaseStart,iBase,iBaseMax,iCampType);
+            } else
+                iFlag =0;
+        iIndex++;
+        if (iIndex > 1000)
+            {
+            iFlag = 0;
+            }
+        }
+    iType++;
+    }
+}