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

@@ -0,0 +1,53 @@
+/* Use a placeable wall door. This allows for locks and traps to be
+ * placed on the door and plays an animation of the user opening
+ * the door.
+ *
+ * Works for both standard and secret doors. For standard, the tag
+ * of the waypoint destination must be set to LOC_<tag of door>.
+ * For secret, the waypoint should be set to LOC_<tag of detect trigger>.
+ *
+ * This goes in the OnUsed event handler of the actual
+ * placeable door object.
+ */
+
+#include "x0_i0_secret"
+
+void main()
+{
+    object oUser = GetLastUsedBy();
+
+    // Allow for traps and locks
+    if (GetIsTrapped(OBJECT_SELF)) {return;}
+
+    if (GetLocked(OBJECT_SELF)) {
+        // See if we have the key and unlock if so
+        string sKey = GetTrapKeyTag(OBJECT_SELF);
+        object oKey = GetItemPossessedBy(oUser, sKey);
+        if (sKey != "" && GetIsObjectValid(oKey)) {
+            SendMessageToPC(oUser, GetStringByStrRef(7945));
+            SetLocked(OBJECT_SELF, FALSE);
+        } else {
+            // Print '*locked*' message and play sound
+            DelayCommand(0.1, PlaySound("as_dr_locked2"));
+            FloatingTextStringOnCreature("*"
+                                         + GetStringByStrRef(8307)
+                                         + "*",
+                                         oUser);
+            SendMessageToPC(oUser, GetStringByStrRef(8296));
+            return;
+        }
+    }
+
+    // Handle opening/closing
+    if (!GetIsSecretItemOpen(OBJECT_SELF)) {
+        // play animation of user opening it
+        AssignCommand(oUser, ActionPlayAnimation(ANIMATION_LOOPING_GET_MID));
+        DelayCommand(1.0, ActionPlayAnimation(ANIMATION_PLACEABLE_OPEN));
+        SetIsSecretItemOpen(OBJECT_SELF, TRUE);
+    } else {
+        // it's open -- go through and then close
+        AssignCommand(oUser, ActionJumpToLocation(GetLocation(GetWaypointByTag("ty_ravenswoodwindmillint"))));
+        ActionPlayAnimation(ANIMATION_PLACEABLE_CLOSE);
+        SetIsSecretItemOpen(OBJECT_SELF, FALSE);
+    }
+}