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

@@ -0,0 +1,166 @@
+/////::////////////////////////////////////////////////////////////
+//:: FileName jw_aisha_reward
+//::///////////////////////////////////////////////
+//::///////////////////////////////////////////////
+//:: Created By: Script Wizard
+//:: Created On: 13/08/2002 00:57:17
+//:://////////////////////////////////////////////
+#include "nw_i0_tool"
+#include "NW_O2_CONINCLUDE"
+void generate(object oPC);
+
+void main()
+{
+   object oPC=GetPCSpeaker();
+
+    // Give the speaker some gold
+    RewardPartyGP(50, GetPCSpeaker());
+
+     // Give the speaker some XP
+   int nReward=50;
+
+   if (GetHitDice(oPC)>2)
+   {
+   nReward=(nReward/(GetHitDice(oPC)-1));
+   }
+
+
+    RewardPartyXP(nReward,oPC);
+    // Give the speaker the items
+    CreateItemOnObject("jw_token_chaun", GetPCSpeaker(), 1);
+
+
+    // Remove items from the player's inventory
+    object oItemToTake;
+    oItemToTake = GetItemPossessedBy(GetPCSpeaker(), "jw_vlasik_it");
+    if(GetIsObjectValid(oItemToTake) != 0)
+        DestroyObject(oItemToTake);
+
+
+
+    //GenerateBossTreasure(oPC, oPC);
+   //generate (oPC);
+
+
+
+}
+
+void generate(object oPC)
+{
+int nIdx;
+string sItem;
+object oObject;
+int nRandom;
+
+for(nIdx=1;nIdx<=1;nIdx++)
+
+{
+nRandom=(Random(29)+1);
+switch(nRandom)
+ {
+ case 1: sItem="jw_shad_armour";
+ break;
+
+ case 2: sItem="jw_hunter_spear";
+ break;
+
+ case 3: sItem="jw_fury_ring";
+ break;
+
+  case 4: sItem="jw_mormo_potion";
+ break;
+
+ case 5: sItem="jw_ghost_amulet";
+ break;
+
+ case 6: sItem="jw_bright_cat";
+ break;
+
+  case 7: sItem="jw_bright_flower";
+ break;
+
+ case 8: sItem="jw_token_cyric";
+ break;
+
+ case 9: sItem="jw_token_bane";
+ break;
+
+ case 10: sItem="jw_parry_small";
+ break;
+
+ case 11: sItem="jw_100r_4";
+ break;
+
+ case 12: sItem="jw_100r_8";
+ break;
+
+ case 13: sItem="jw_100r_9";
+ break;
+
+ case 14: sItem="jw_sbow_scar";
+ break;
+
+ case 15: sItem="jw_shuri_light";
+ break;
+
+ case 16: sItem="jw_gauntlet_fist";
+ break;
+
+ case 17: sItem="jw_baxe_silver";
+ break;
+
+ case 18: sItem="jw_rod_spider";
+ break;
+
+ case 19: sItem="jw_ilmater_shiel";
+ break;
+
+ case 20: sItem="jw_thur_shiel";
+ break;
+
+ case 21: sItem="jw_silver_bow";
+ break;
+
+ case 22: sItem="jw_blood_stone";
+ break;
+
+ case 23: sItem="jw_hourvan_mirro";
+ break;
+
+ case 24: sItem="jw_bright_grass";
+ break;
+
+ case 25: sItem="jw_stench_thay";
+ break;
+
+  case 26: sItem="jw_token_torm";
+ break;
+
+ case 27: sItem="jw_100r_9";
+ break;
+
+ case 28: sItem="jw_bastard1";
+ break;
+
+  case 29: sItem="jw_bright_mosq";
+ break;
+
+
+ }
+
+if (sItem=="jw_shuri_light")
+{
+oObject=CreateItemOnObject(sItem,oPC,99);
+SetIdentified(oObject,1);
+}
+
+else
+{
+oObject=CreateItemOnObject(sItem,oPC);
+SetIdentified(oObject,1);
+}
+
+}
+
+
+}