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

@@ -0,0 +1,73 @@
+//::///////////////////////////////////////////////
+//:: FileName nk_fp_checkstone
+//:://////////////////////////////////////////////
+//:://////////////////////////////////////////////
+//:: Created By: Script Wizard
+//:: Created On: 11.10.2002 13:49:17
+//:://////////////////////////////////////////////
+#include "nw_i0_tool"
+
+int StartingConditional()
+{
+    object oPC = GetPCSpeaker();
+
+    int nClass1 = GetClassByPosition(1, oPC);
+    int nClass2 = GetClassByPosition(2, oPC);
+    int nClass3 = GetClassByPosition(3, oPC);
+
+    string sClass1Num;
+    string sClass2Num;
+    string sClass3Num;
+
+    if (nClass2 == CLASS_TYPE_INVALID)
+        {
+        nClass2 = nClass1;
+        }
+    if (nClass3 == CLASS_TYPE_INVALID)
+        {
+        nClass3 = nClass1;
+        }
+
+    nClass1 = nClass1 + 1;
+    nClass2 = nClass2 + 1;
+    nClass3 = nClass3 + 1;
+
+    if (nClass1 < 10)
+        {
+        sClass1Num = "0"+IntToString(nClass1);
+        }
+    else
+        {
+        sClass1Num = IntToString(nClass1);
+        }
+    if (nClass2 < 10)
+        {
+        sClass2Num = "0"+IntToString(nClass2);
+        }
+    else
+        {
+        sClass2Num = IntToString(nClass2);
+        }
+    if (nClass3 < 10)
+        {
+        sClass3Num = "0"+IntToString(nClass3);
+        }
+    else
+        {
+        sClass3Num = IntToString(nClass3);
+        }
+
+    string sTag1 = "NK_FP_STONE" + sClass1Num;
+    string sTag2 = "NK_FP_STONE" + sClass2Num;
+    string sTag3 = "NK_FP_STONE" + sClass3Num;
+
+    int nHasRightStone = 0;
+    object oStone1 = GetItemPossessedBy(oPC, sTag1);
+    object oStone2 = GetItemPossessedBy(oPC, sTag2);
+    object oStone3 = GetItemPossessedBy(oPC, sTag3);
+
+    if((oStone1!=OBJECT_INVALID) || (oStone2!=OBJECT_INVALID) || (oStone3!=OBJECT_INVALID))
+        return TRUE;
+
+    return FALSE;
+}