Initial upload

Initial upload.  PRC8 has been added.  Module compiles, PRC's default AI & treasure scripts have been integrated.  Started work on top hak for SLA / Ability / Scripting modifications.

_module/nss/jw_br_dun3_exit.nss

@@ -0,0 +1,81 @@
+void main()
+{
+
+
+
+ {
+object oObject = GetFirstObjectInArea();
+int nPCinArea=FALSE;
+location lLoc;
+object oItem;
+
+
+// first of all, check every object in the area and see if it is a PC.
+
+while (GetIsObjectValid(oObject))
+  {
+    if (GetIsPC(oObject))
+      {
+      nPCinArea = TRUE;
+      }
+    oObject=GetNextObjectInArea();
+  }
+
+
+// if not, then run the next bit of the script
+
+if (nPCinArea != TRUE)
+  {
+
+
+oObject = GetFirstObjectInArea();
+  while (GetIsObjectValid(oObject) == TRUE)
+   {
+     if (GetTag(oObject) == "BodyBag")
+         {
+
+               oItem = GetFirstItemInInventory(oObject);
+               while (GetIsObjectValid(oItem) == TRUE)
+               {
+
+
+                DestroyObject(oItem);
+
+                oItem=GetNextItemInInventory(oObject);
+               }
+
+         SetPlotFlag(oObject,FALSE);
+
+          DestroyObject(oObject);
+        }
+        oObject=GetNextObjectInArea();
+      }
+     object oMachine=GetObjectByTag("jw_the_machine");
+     if (GetIsObjectValid(oMachine))
+        {
+           oItem=GetFirstItemInInventory(oMachine);
+ while (GetIsObjectValid(oItem))
+ {
+  DestroyObject(oItem);
+  oItem=GetNextItemInInventory(oMachine);
+ }
+          SetPlotFlag(oMachine,0);
+          DestroyObject(oMachine);
+
+        }
+
+object oPortal=GetObjectByTag("jw_machine_porta");
+     if (GetIsObjectValid(oPortal))
+        {
+          SetPlotFlag(oPortal,0);
+          DestroyObject(oPortal);
+
+        }
+
+    CreateObject(OBJECT_TYPE_PLACEABLE,"jw_the_machine",GetLocation(GetWaypointByTag("jw_machine1_wp")));
+    object oSound=GetObjectByTag("jw_machine_sound");
+    SoundObjectStop(oSound);
+  }
+
+}
+}