Initial commit. Updated release archive.

2024-06-20 15:47:42 -04:00
parent d14b20cb85
commit e49d03aa23
6897 changed files with 6107848 additions and 0 deletions
--- a/_removed/archmage_fire.nss
+++ b/_removed/archmage_fire.nss
@@ -0,0 +1,81 @@
+#include "prc_dg_inc"
+#include "lookup_2da_spell"
+
+#include "prc_alterations"
+#include "X0_I0_SPELLS"
+#include "x2_inc_spellhook"
+#include "x2_i0_spells"
+
+/*
+ * This is the spellhook code, called when the Arcane Fire feat is activated
+ * Turns the spell into an arcane fire
+ */
+void main()
+{
+    //Declare major variables  ( fDist / (3.0f * log( fDist ) + 2.0f) )
+    object oTarget = GetLocalObject(OBJECT_SELF, "arcane_fire_target");
+    int nCasterLvl = GetLevelByClass(CLASS_TYPE_ARCHMAGE, OBJECT_SELF);
+    int nDamage = 0;
+    int nMetaMagic = GetMetaMagicFeat();
+    int nCnt;
+    effect eMissile = EffectVisualEffect(VFX_IMP_MIRV);
+    effect eVis = EffectVisualEffect(VFX_IMP_MAGBLUE);
+    float fDist = GetDistanceBetween(OBJECT_SELF, oTarget);
+    float fDelay = fDist/(3.0 * log(fDist) + 2.0);
+    float fDelay2, fTime;
+    string nSpellLevel = lookup_spell_level(GetSpellId());
+
+    /* Whatever happens next we must restore the hook */
+    SetModuleOverrideSpellscript(GetLocalString(GetModule(), "archmage_save_overridespellscript"));
+
+    /* Tell to not execute the original spell */
+    SetModuleOverrideSpellScriptFinished();
+
+    /* Allow to use it once again */
+    SetLocalInt(OBJECT_SELF, "arcane_fire_active", 0);
+
+    /* Paranoia -- should never happen */
+    if (!GetHasFeat(FEAT_ARCANE_FIRE, OBJECT_SELF)) return;
+
+    /* Only wizard/sorc spells */
+    if (nSpellLevel == "")
+    {
+        FloatingTextStringOnCreature("Arcane Fire can only consume arcane spells.", OBJECT_SELF, FALSE);
+        return;
+    }
+
+    /* No item casting */
+    if (GetIsObjectValid(GetSpellCastItem()))
+    {
+        FloatingTextStringOnCreature("Arcane Fire may not be used with scrolls.", OBJECT_SELF, FALSE);
+        return;
+    }
+
+    if(!GetIsReactionTypeFriendly(oTarget))
+    {
+        //Fire cast spell at event for the specified target
+        SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_MAGIC_MISSILE));
+
+        //Make ranged touch attack check
+        if (TouchAttackRanged(oTarget, TRUE))
+        {
+                //Roll damage
+                int nDam = d6(nCasterLvl + StringToInt(nSpellLevel));
+
+                fTime = fDelay;
+                fDelay2 += 0.1;
+                fTime += fDelay2;
+
+                //Set damage effect
+                effect eDam = EffectDamage(nDam, DAMAGE_TYPE_MAGICAL);
+                //Apply the MIRV and damage effect
+                DelayCommand(fTime, ApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget));
+                DelayCommand(fTime, ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eVis, oTarget));
+                DelayCommand(fDelay2, ApplyEffectToObject(DURATION_TYPE_INSTANT, eMissile, oTarget));
+         }
+         else
+         {
+            ApplyEffectToObject(DURATION_TYPE_INSTANT, eMissile, oTarget);
+         }
+     }
+}