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

@@ -0,0 +1,168 @@
+////////::////////////////////////////////////////////////
+//:: Default: On Spell Cast At
+//:: NW_C2_DEFAULTB
+//:: Copyright (c) 2001 Bioware Corp.
+//:://////////////////////////////////////////////
+/*
+    This determines if the spell just cast at the
+    target is harmful or not.
+*/
+//:://////////////////////////////////////////////
+//:: Created By: Preston Watamaniuk
+//:: Created On: Dec 6, 2001
+//:://////////////////////////////////////////////
+//:://////////////////////////////////////////////
+//:: Modified By: Deva Winblood
+//:: Modified On: Jan 4th, 2008
+//:: Added Support for Mounted Combat Feat Support
+//:://////////////////////////////////////////////
+#include "NW_I0_GENERIC"
+#include "jw_privates_inc"
+#include "x2_i0_spells"
+
+void main()
+{
+	ExecuteScript("prc_npc_spellat", OBJECT_SELF);
+	
+    object oCaster = GetLastSpellCaster();
+    if(!GetLastSpellHarmful())
+    {
+     if (GetObjectSeen(oCaster)&&(GetObjectType(oCaster)==OBJECT_TYPE_CREATURE)&&(oCaster!=OBJECT_SELF)&&(d3()==1))
+     {
+     PlayVoiceChat(VOICE_CHAT_THANKS);
+     }
+     return;
+    }
+
+	SetCommandable(TRUE);
+
+	if (!GetLocalInt(GetModule(),"X3_NO_MOUNTED_COMBAT_FEAT"))
+	{ // set variables on target for mounted combat
+		DeleteLocalInt(OBJECT_SELF,"bX3_LAST_ATTACK_PHYSICAL");
+	} // set variables on target for mounted combat
+
+	// ------------------------------------------------------------------
+	// If I was hurt by someone in my own faction
+	// Then clear any hostile feelings I have against them
+	// After all, we're all just trying to do our job here
+	// if we singe some eyebrow hair, oh well.
+	// ------------------------------------------------------------------
+	if (GetFactionEqual(oCaster, OBJECT_SELF) == TRUE)
+	{
+		ClearPersonalReputation(oCaster, OBJECT_SELF);
+		ClearAllActions(TRUE);
+		DelayCommand(1.2, ActionDoCommand(DetermineCombatRound(OBJECT_INVALID)));
+		// Send the user-defined event as appropriate
+		if(GetSpawnInCondition(NW_FLAG_SPELL_CAST_AT_EVENT))
+		{
+			SignalEvent(OBJECT_SELF, EventUserDefined(EVENT_SPELL_CAST_AT));
+		}
+		return;
+	}
+
+	int bAttack = TRUE;
+	// ------------------------------------------------------------------
+	// GZ, 2003-Oct-02
+	// Try to do something smart if we are subject to an AoE Spell.
+	// ------------------------------------------------------------------
+	if (MatchAreaOfEffectSpell(GetLastSpell()) == TRUE)
+	{
+		int nAI = (GetBestAOEBehavior(GetLastSpell())); // from x2_i0_spells
+		switch (nAI)
+		{
+			case X2_SPELL_AOEBEHAVIOR_DISPEL_L:
+			case X2_SPELL_AOEBEHAVIOR_DISPEL_N:
+			case X2_SPELL_AOEBEHAVIOR_DISPEL_M:
+			case X2_SPELL_AOEBEHAVIOR_DISPEL_G:
+			case X2_SPELL_AOEBEHAVIOR_DISPEL_C:
+					bAttack = FALSE;
+					ActionCastSpellAtLocation(nAI, GetLocation(OBJECT_SELF));
+					ActionDoCommand(SetCommandable(TRUE));
+					SetCommandable(FALSE);
+					break;
+
+			case X2_SPELL_AOEBEHAVIOR_FLEE:
+					 ClearActions(CLEAR_NW_C2_DEFAULTB_GUSTWIND);
+					 oCaster = GetLastSpellCaster();
+					 ActionForceMoveToObject(oCaster, TRUE, 2.0);
+					 DelayCommand(1.2, ActionDoCommand(DetermineCombatRound(oCaster)));
+					 bAttack = FALSE;
+					 break;
+
+			case X2_SPELL_AOEBEHAVIOR_IGNORE:
+					 // well ... nothing
+					break;
+
+			case X2_SPELL_AOEBEHAVIOR_GUST:
+					ActionCastSpellAtLocation(SPELL_GUST_OF_WIND, GetLocation(OBJECT_SELF));
+					ActionDoCommand(SetCommandable(TRUE));
+					SetCommandable(FALSE);
+					 bAttack = FALSE;
+					break;
+		}
+
+	}
+		
+	if ((d4()==1)&&(GetIsObjectValid(oCaster))&&(GetObjectSeen(oCaster)))
+	{
+		SetVictim(oCaster);
+	}
+
+	if (GetDetectMode(OBJECT_SELF)==DETECT_MODE_ACTIVE)
+	{
+		ActionUseSkill(SKILL_SPOT,OBJECT_SELF);
+	}
+
+	if (GetStealthMode(OBJECT_SELF)==STEALTH_MODE_ACTIVATED)
+	{
+		ActionUseSkill(SKILL_HIDE,OBJECT_SELF);
+	}
+
+	// ---------------------------------------------------------------------
+	// Not an area of effect spell, but another hostile spell.
+	// If we're not already fighting someone else,
+	// attack the caster.
+	// ---------------------------------------------------------------------
+	if( !GetIsFighting(OBJECT_SELF) && bAttack)
+	{
+		if(GetBehaviorState(NW_FLAG_BEHAVIOR_SPECIAL))
+		{
+			DetermineSpecialBehavior(oCaster);
+		}
+		else
+		{
+			DetermineCombatRound(oCaster);
+		}
+	}
+		
+    SetTarget(oCaster);
+	// We were attacked, so yell for help
+	SetCommandable(TRUE);
+	//Shout Attack my target, only works with the On Spawn In setup
+	SpeakString("NW_ATTACK_MY_TARGET", TALKVOLUME_SILENT_TALK);
+
+	//Shout that I was attacked
+	SpeakString("NW_I_WAS_ATTACKED", TALKVOLUME_SILENT_TALK);
+
+if (!GetIsFighting(OBJECT_SELF))
+{
+    ClearAllActions();
+
+    if (GetObjectSeen(oCaster))
+        {
+            DetermineCombatRound();
+        }
+
+        else
+        {
+            ActionMoveToObject(oCaster,TRUE,3.0);
+        }
+}
+
+    // Send the user-defined event as appropriate
+    if(GetSpawnInCondition(NW_FLAG_SPELL_CAST_AT_EVENT))
+    {
+        SignalEvent(OBJECT_SELF, EventUserDefined(EVENT_SPELL_CAST_AT));
+    }
+
+}