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_statue_exit.nss

@@ -0,0 +1,80 @@
+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)
+{
+// create the statues if they aren't there
+    if (!GetIsObjectValid(GetObjectByTag("jok_statue1")))
+
+    {
+     lLoc=GetLocation(GetObjectByTag("WP_tri_jokstatue1"));
+     CreateObject(OBJECT_TYPE_PLACEABLE,"jok_statue1",lLoc);
+     }
+
+    if (!GetIsObjectValid(GetObjectByTag("jok_statue2")))
+
+    {
+     lLoc=GetLocation(GetObjectByTag("WP_tri_jokstatue2"));
+     CreateObject(OBJECT_TYPE_PLACEABLE,"jok_statue2",lLoc);
+     }
+
+     if (!GetIsObjectValid(GetObjectByTag("jok_statue3")))
+
+    {
+     lLoc=GetLocation(GetObjectByTag("WP_tri_jokstatue3"));
+     CreateObject(OBJECT_TYPE_PLACEABLE,"jok_statue3",lLoc);
+     }
+     if (!GetIsObjectValid(GetObjectByTag("jok_statue4")))
+
+    {
+     lLoc=GetLocation(GetObjectByTag("WP_tri_jokstatue4"));
+     CreateObject(OBJECT_TYPE_PLACEABLE,"jok_statue4",lLoc);
+     }
+
+     //clean bodybags
+
+    if (GetTag(oObject) == "BodyBag")
+    {
+
+    oItem = GetFirstItemInInventory(oObject);
+    while (GetIsObjectValid(oItem) == TRUE)
+    {
+
+
+    DestroyObject(oItem);
+
+    oItem=GetNextItemInInventory(oObject);
+    }
+
+    SetPlotFlag(oObject,FALSE);
+
+    DestroyObject(oObject);
+    }
+}
+
+}
+}
+