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/tri_crystal_exit.nss

@@ -0,0 +1,73 @@
+void main()
+{
+
+object oObject = GetFirstObjectInArea();
+int nPCinArea=FALSE;
+location lLoc;
+object oItem;
+object nCyan1 = GetObjectByTag("tri_lightcyan");
+object nCyan2 = GetObjectByTag("tri_lightcyan2");
+object nCrystal = GetObjectByTag ("tri_crystalballx");
+
+
+int nActive = GetLocalInt(nCrystal, "tri_crsActive");
+
+
+// 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)
+{
+    if (GetIsObjectValid(GetObjectByTag("tri_lightcyan")))
+
+    {
+    DestroyObject(nCyan1);
+    }
+
+    if (GetIsObjectValid(GetObjectByTag("tri_lightcyan2")))
+
+    {
+    DestroyObject(nCyan2);
+    }
+
+    if (nActive == 1)
+
+    {
+    SignalEvent(nCrystal,EventUserDefined(401));
+    }
+
+
+    //clean bodybags
+
+    if (GetTag(oObject) == "BodyBag")
+    {
+
+    oItem = GetFirstItemInInventory(oObject);
+    while (GetIsObjectValid(oItem) == TRUE)
+    {
+
+
+    DestroyObject(oItem);
+
+    oItem=GetNextItemInInventory(oObject);
+    }
+
+    SetPlotFlag(oObject,FALSE);
+
+    DestroyObject(oObject);
+    }
+
+}
+}
+