Initial commit

Initial commit.

src/include/true_utterhook.nss

@@ -0,0 +1,157 @@
+//::///////////////////////////////////////////////
+//:: Truenaming Utterance Hook File.
+//:: true_utterhook.nss
+//:://////////////////////////////////////////////
+/*
+
+    This file acts as a hub for all code that
+    is hooked into the utterance scripts for Truenaming
+
+*/
+//:://////////////////////////////////////////////
+//:: Created By: Stratovarius
+//:: Created On: 17-7-2006
+//:://////////////////////////////////////////////
+
+//#include "prc_x2_craft"
+#include "x2_inc_spellhook"
+#include "prc_inc_spells"
+#include "inc_utility"
+#include "prc_inc_itmrstr"
+
+
+// This function holds all functions that are supposed to run before the actual
+// spellscript gets run. If this functions returns FALSE, the spell is aborted
+// and the spellscript will not run
+int TruePreUtterCastCode();
+
+
+//------------------------------------------------------------------------------
+// if FALSE is returned by this function, the spell will not be cast
+// the order in which the functions are called here DOES MATTER, changing it
+// WILL break the crafting subsystems
+//------------------------------------------------------------------------------
+int TruePreUtterCastCode()
+{
+    object oTrueSpeaker = OBJECT_SELF;
+    object oTarget = PRCGetSpellTargetObject();
+    int nUtterID = PRCGetSpellId();
+    int nUtterLevel = GetUtteranceLevel(oTrueSpeaker);
+    int nTrueSpeakingClass = GetTruespeakingClass(oTrueSpeaker);
+    int bUtterIsHostile = Get2DACache("spells", "HostileSetting", nUtterID) == "1";
+
+    int nContinue = !ExecuteScriptAndReturnInt("prespellcode",oTrueSpeaker);
+
+    //---------------------------------------------------------------------------
+    // Break any spell require maintaining concentration
+    //---------------------------------------------------------------------------
+    X2BreakConcentrationSpells();
+
+    //---------------------------------------------------------------------------
+    // Check for PRC spell effects
+    //---------------------------------------------------------------------------
+    if(nContinue)
+        nContinue = PRCSpellEffects(oTrueSpeaker, oTarget, nUtterID, nUtterLevel, nTrueSpeakingClass, bUtterIsHostile, -1);
+
+    //---------------------------------------------------------------------------
+    // Run Grappling Concentration Check
+    //---------------------------------------------------------------------------
+    if (nContinue)
+        nContinue = GrappleConc(oTrueSpeaker, nUtterLevel);
+
+    //---------------------------------------------------------------------------
+    // This stuff is only interesting for player characters we assume that use
+    // magic device always works and NPCs don't use the crafting feats or
+    // sequencers anyway. Thus, any NON PC spellcaster always exits this script
+    // with TRUE (unless they are DM possessed or in the Wild Magic Area in
+    // Chapter 2 of Hordes of the Underdark.
+    //---------------------------------------------------------------------------
+    if(!GetIsPC(oTrueSpeaker)
+    && !GetPRCSwitch(PRC_NPC_HAS_PC_SPELLCASTING))
+    {
+        if(!GetIsDMPossessed(oTrueSpeaker) && !GetLocalInt(GetArea(oTrueSpeaker), "X2_L_WILD_MAGIC"))
+        {
+            return TRUE;
+        }
+    }
+
+    //---------------------------------------------------------------------------
+    // Run use magic device skill check
+    //---------------------------------------------------------------------------
+    if (nContinue)
+    {
+        nContinue = X2UseMagicDeviceCheck(oTrueSpeaker);
+    }
+
+    //-----------------------------------------------------------------------
+    // run any user defined spellscript here
+    //-----------------------------------------------------------------------
+    if (nContinue)
+    {
+        nContinue = X2RunUserDefinedSpellScript();
+    }
+
+    //---------------------------------------------------------------------------
+    // Check for the new restricted itemproperties
+    //---------------------------------------------------------------------------
+    if(nContinue
+    && GetIsObjectValid(GetSpellCastItem())
+    && !CheckPRCLimitations(GetSpellCastItem(), oTrueSpeaker))
+    {
+        SendMessageToPC(oTrueSpeaker, "You cannot use "+GetName(GetSpellCastItem()));
+        nContinue = FALSE;
+    }
+
+    //---------------------------------------------------------------------------
+    // The following code is only of interest if an item was targeted
+    //---------------------------------------------------------------------------
+    if (GetIsObjectValid(oTarget) && GetObjectType(oTarget) == OBJECT_TYPE_ITEM)
+    {
+
+        //-----------------------------------------------------------------------
+        // Check if spell was used to trigger item creation feat
+        //-----------------------------------------------------------------------
+        if (nContinue) {
+            nContinue = !ExecuteScriptAndReturnInt("x2_pc_craft", oTrueSpeaker);
+        }
+
+        //-----------------------------------------------------------------------
+        // * Execute item OnSpellCast At routing script if activated
+        //-----------------------------------------------------------------------
+        if (GetModuleSwitchValue(MODULE_SWITCH_ENABLE_TAGBASED_SCRIPTS) == TRUE)
+        {
+            SetUserDefinedItemEventNumber(X2_ITEM_EVENT_SPELLCAST_AT);
+            int nRet = ExecuteScriptAndReturnInt(GetUserDefinedItemEventScriptName(oTarget), oTrueSpeaker);
+            if (nRet == X2_EXECUTE_SCRIPT_END)
+            {
+                return FALSE;
+            }
+        }
+
+        //-----------------------------------------------------------------------
+        // Prevent any spell that has no special coding to handle targetting of items
+        // from being cast on items. We do this because we can not predict how
+        // all the hundreds spells in NWN will react when cast on items
+        //-----------------------------------------------------------------------
+        if (nContinue) {
+            nContinue = X2CastOnItemWasAllowed(oTarget);
+        }
+    }
+
+    //Cleaning spell variables used for holding the charge
+    if(!GetLocalInt(oTrueSpeaker, "PRC_SPELL_EVENT"))
+    {
+        DeleteLocalInt(oTrueSpeaker, "PRC_SPELL_CHARGE_COUNT");
+        DeleteLocalInt(oTrueSpeaker, "PRC_SPELL_CHARGE_SPELLID");
+        DeleteLocalObject(oTrueSpeaker, "PRC_SPELL_CONC_TARGET");
+        DeleteLocalInt(oTrueSpeaker, "PRC_SPELL_METAMAGIC");
+        DeleteLocalManifestation(oTrueSpeaker, "PRC_POWER_HOLD_MANIFESTATION");
+        DeleteLocalMystery(oTrueSpeaker, "MYST_HOLD_MYST");
+    }
+    else if(GetLocalInt(oTrueSpeaker, "PRC_SPELL_CHARGE_SPELLID") != PRCGetSpellId())
+    {   //Sanity check, in case something goes wrong with the action queue
+        DeleteLocalInt(oTrueSpeaker, "PRC_SPELL_EVENT");
+    }
+
+    return nContinue;
+}