Initial upload.

Adding base PRC 4.19a files to repository.
2022-10-07 13:51:24 -04:00
parent 646eb01834
commit 1662218bb4
22441 changed files with 1274376 additions and 0 deletions
--- a/trunk/spells/sp_sinsbbolt.nss
+++ b/trunk/spells/sp_sinsbbolt.nss
@@ -0,0 +1,102 @@
+#include "prc_inc_spells"
+#include "prc_add_spell_dc"
+void main()
+{
+     // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell
+     if (!X2PreSpellCastCode()) return;
+
+     PRCSetSchool(SPELL_SCHOOL_NECROMANCY);
+
+    // Set the lightning stream to start at the caster's hands
+    effect eBolt = EffectBeam(VFX_BEAM_BLACK, OBJECT_SELF, BODY_NODE_HAND);
+    effect eVis  = EffectVisualEffect(VFX_IMP_REDUCE_ABILITY_SCORE);
+
+    object oTarget = PRCGetSpellTargetObject();
+    location lTarget = GetLocation(oTarget);
+    object oNextTarget, oTarget2;
+    float fDelay;
+    int nCnt = 1;
+
+     // Calculate bonus damage to the str/con drain.
+     int nCasterLevel = PRCGetCasterLevel();
+     int nBonusDam = nCasterLevel / 4;
+     if (nBonusDam > 3) nBonusDam = 3;
+     int nPenetr = nCasterLevel + SPGetPenetr();
+
+    oTarget2 = GetNearestObject(OBJECT_TYPE_CREATURE, OBJECT_SELF, nCnt);
+    while(GetIsObjectValid(oTarget2) && GetDistanceToObject(oTarget2) <= 30.0)
+    {
+        //Get first target in the lightning area by passing in the location of first target and the casters vector (position)
+        oTarget = MyFirstObjectInShape(SHAPE_SPELLCYLINDER, 30.0, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE, GetPosition(OBJECT_SELF));
+        while (GetIsObjectValid(oTarget))
+        {
+               // Exclude the caster from the damage effects
+               if (oTarget != OBJECT_SELF && oTarget2 == oTarget)
+               {
+               if(spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF))
+                    {
+                         //Fire cast spell at event for the specified target
+                         PRCSignalSpellEvent(oTarget, TRUE);
+
+                         //Make an SR check
+                         if (!PRCDoResistSpell(OBJECT_SELF, oTarget,nPenetr))
+                         {
+                              // Roll the drain damage and adjust for a reflex save/evasion.
+                              int nDamage = PRCGetMetaMagicDamage(DAMAGE_TYPE_MAGICAL, 1, 3, nBonusDam);
+                              //nDamage += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF);
+                              nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget,
+                                   PRCGetSaveDC(oTarget,OBJECT_SELF), SAVING_THROW_TYPE_NEGATIVE);
+
+                              // Apply str/con drain if any.
+                              /*
+                              if(nDamage > 0)
+                              {
+                                   int i;
+                                   for (i = 1; i <= nDamage; i++)
+                                   {
+                                        /*effect eDamage = SupernaturalEffect(EffectAbilityDecrease(ABILITY_STRENGTH, nDamage));
+                                        eDamage = EffectLinkEffects(eDamage,
+                                             SupernaturalEffect(EffectAbilityDecrease(ABILITY_CONSTITUTION, nDamage)));*/
+
+                                        // Recovery is supposed to be 1 pt / day, so apply each point
+                                        // individually to make them last the full day.
+                                        /*SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eDamage, oTarget,
+                                             HoursToSeconds(24) * i,TRUE,-1,nCasterLevel);*/
+                                        //------------------------------------------------------------------
+                                        // The trick that allows this spellscript to do stacking ability
+                                        // score damage (which is not possible to do from normal scripts)
+                                        // is that the ability score damage is done from a delaycommanded
+                                        // function which will sever the connection between the effect
+                                        // and the SpellId
+                                        //------------------------------------------------------------------
+                                        /*
+                                        DelayCommand(0.01f, ApplyAbilityDamage(oTarget, ABILITY_STRENGTH,     1, TRUE, DURATION_TYPE_TEMPORARY, HoursToSeconds(24) * i));
+                                        DelayCommand(0.01f, ApplyAbilityDamage(oTarget, ABILITY_CONSTITUTION, 1, TRUE, DURATION_TYPE_TEMPORARY, HoursToSeconds(24) * i));
+                                   }
+
+                                   SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget);
+                              }*/
+
+                              ApplyAbilityDamage(oTarget, ABILITY_STRENGTH,     nDamage, DURATION_TYPE_TEMPORARY, TRUE, -1.0);
+                              ApplyAbilityDamage(oTarget, ABILITY_CONSTITUTION, nDamage, DURATION_TYPE_TEMPORARY, TRUE, -1.0);
+                              SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget);
+                         }
+
+                         SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eBolt, oTarget, 1.0,FALSE);
+
+                         // Set the currect target as the holder of the lightning effect
+                         oNextTarget = oTarget;
+                         eBolt = EffectBeam(VFX_BEAM_BLACK, oNextTarget, BODY_NODE_CHEST);
+                    }
+               }
+
+               //Get the next object in the lightning cylinder
+               oTarget = MyNextObjectInShape(SHAPE_SPELLCYLINDER, 30.0, lTarget, TRUE, OBJECT_TYPE_CREATURE, GetPosition(OBJECT_SELF));
+          }
+
+          nCnt++;
+        oTarget2 = GetNearestObject(OBJECT_TYPE_CREATURE, OBJECT_SELF, nCnt);
+     }
+
+     PRCSetSchool();
+}