Changed folder name.

2022-10-07 21:08:37 -04:00
parent 1c33c2843e
commit 8d97886c3f
7060 changed files with 0 additions and 0 deletions
--- a/_module/nss/rodfastcast.nss
+++ b/_module/nss/rodfastcast.nss
@@ -0,0 +1,119 @@
+//::///////////////////////////////////////////////
+//::Rod of Fast Buffing Item Event Script
+/*
+    This is the event script for the rod of fast
+    buffing. This rod allows casters to group
+    all their buffing spells into a single action
+*/
+//:://////////////////////////////////////////////
+
+#include "x2_inc_switches"
+
+//showing spell names is a 2da file hit. When storing
+//a lot of spells this can cause a significant delay
+//When this value is false it will just show spell
+//ID numbers.
+const int knShowSpellName = TRUE;
+
+//used to store the number of spells on the rod
+const string ksNumSpells = "NumSpells";
+//used as a base to store a spell ID to cast
+const string ksCastSpellId = "CastSpells";
+//stores the spell name when you store a spell.
+const string ksCastSpellName = "SpellName";
+
+void main()
+{
+    int nEvent = GetUserDefinedItemEventNumber();
+
+    object oPC;         //The caster
+    object oItem;       //This item
+
+    int nSpellId;       //Used to hold the ID of the current spell;
+    int nNumOfSpells;   //Used to hold the current number of spells on the rod
+
+    string strSpellName;//Used to hold the Spell Name
+
+    int nResult = X2_EXECUTE_SCRIPT_CONTINUE;
+
+    //this handles "use" or activation of item.
+    if (nEvent ==  X2_ITEM_EVENT_ACTIVATE)
+    {
+        oItem = GetItemActivated();
+        oPC = GetItemActivator();
+
+        //Disable use in combat
+        if(GetIsInCombat(oPC))
+        {
+            FloatingTextStringOnCreature("Can't use rod in combat", oPC, FALSE);
+            return;
+        }
+
+        //get number of spells stored
+        nNumOfSpells = GetLocalInt(oItem, ksNumSpells);
+        SendMessageToPC(oPC, " Attempting to fast cast " + IntToString(nNumOfSpells) + " spells.");
+
+        //iterate through array of spells and store casting action
+        int n;
+        for(n = 1; n <= nNumOfSpells; n++)
+        {
+            //get spell id stored at location n
+            nSpellId = GetLocalInt(oItem, ksCastSpellId + IntToString(n));
+
+            //Get the name of the spell stored at location n
+            strSpellName = GetLocalString(oItem, ksCastSpellName + IntToString(n));
+
+            SendMessageToPC(oPC, "Casting spell "
+                            + strSpellName
+                            + " at postion "
+                            + IntToString(n)
+                            + " on item");
+
+            if(0 != nSpellId //if there was a valid spell id stored
+               && 1 <= GetHasSpell(nSpellId, oPC)) //and the caster has access to the spell
+            {
+                //Store cast action. The key here is to set cheatcasting
+                //to false and level to 0. This will cause the caster
+                //to cast the spell himself using the first available
+                //slot.
+                AssignCommand(oPC,
+                ActionCastSpellAtObject(nSpellId
+                                        , oPC
+                                        , METAMAGIC_ANY
+                                        , FALSE
+                                        , 0
+                                        , PROJECTILE_PATH_TYPE_DEFAULT
+                                        , TRUE));
+            }
+        }
+    } //This Event Handles storing the spells
+    else if (nEvent ==  X2_ITEM_EVENT_SPELLCAST_AT)
+    {
+        oItem = GetSpellTargetObject();
+        nSpellId = GetSpellId();
+        oPC = OBJECT_SELF;
+        nNumOfSpells = GetLocalInt(oItem, ksNumSpells) + 1;
+
+        SetLocalInt(oItem, ksNumSpells , nNumOfSpells);
+        SetLocalInt(oItem, ksCastSpellId + IntToString(nNumOfSpells), nSpellId);
+
+        strSpellName = (knShowSpellName)
+                        ? Get2DAString("spells", "Label", nSpellId)
+                        : IntToString(nSpellId);
+
+        SetLocalString(oItem, ksCastSpellName + IntToString(nNumOfSpells), strSpellName);
+
+        SendMessageToPC(oPC, "Storing "
+                          + strSpellName
+                          + " at postion "
+                          + IntToString(nNumOfSpells)
+                          + " on item");
+
+        nResult = X2_EXECUTE_SCRIPT_END;
+
+    }
+
+    //Pass the return value back to the calling script
+    SetExecutedScriptReturnValue(nResult);
+}
+