PRC8/nwn/trunk/spells/sp_rainbow_blast.nss

//::///////////////////////////////////////////////
//:: Name      Rainbow Blast
//:: FileName  sp_rainbow_blast.nss
//:://////////////////////////////////////////////
/**@file Rainbow Blast
Evocation [Light]
Level: Sorcerer/wizard 3
Components: V, S, M
Casting Time: 1 standard action
Range: 120 ft.
Area: 120-ft. line
Duration: Instantaneous
Saving Throw: Reflex half
Spell Resistance: Yes

This spell is a wide-spectrum blast of
radiant energy composed of all five
energy types. Rainbow blast deals 1d6
points of damage from each of the five
energy types (acid, cold, electricity,
fire, and sonic), for a total of 5d6 points
of damage. Creatures apply resistance
to energy separately for each type of
damage.
As you gain in levels, the damage
die increases in size. At 7th level the
spell deals 5d8 points of damage, at 9th
level it deals 5d10 points of damage,
and at 11th level it deals 5d12 points of
damage; one die for each of the five
energy types.
Focus: A small clear gem or crystal
prism worth at least 50 gp.

Author:    Tenjac
Created:   6/28/07
*/
//:://////////////////////////////////////////////
//:://////////////////////////////////////////////

#include "prc_inc_spells"
#include "spinc_bolt"

int GetDieType(int nCasterLevel)
{
    if(nCasterLevel > 10) return 12;
    if(nCasterLevel >  8) return 10;
    if(nCasterLevel >  6) return  8;
    return 6;
}

void DoBoltVFX(location lCaster, location lTarget)
{
    // Do VFX. This is moderately heavy, so it isn't duplicated by Twin Power
    float fAngle             = GetRelativeAngleBetweenLocations(lCaster, lTarget);
    float fRadius            = FeetToMeters(5.0f);
    float fVFXLength         = GetVFXLength(lCaster, 36.6f, GetRelativeAngleBetweenLocations(lCaster, lTarget));
    // A tube of beams, radius 5ft, starting 1m from manifester and running for the length of the line
    BeamGengon(DURATION_TYPE_TEMPORARY, VFX_BEAM_MIND, lCaster, fRadius, fRadius,
               1.0f, fVFXLength, // Start 1m from the manifester, end at LOS end
               8, // 8 sides
               4.5f, "prc_invisobj",
               0.0f, // Drawn instantly
               0.0f, 0.0f, 45.0f, "y", fAngle, 0.0f,
               -1, -1, 0.0f, 1.0f, // No secondary VFX
               4.5f
               );
}

void main()
{
    if(!X2PreSpellCastCode()) return;

    PRCSetSchool(SPELL_SCHOOL_EVOCATION);

    object oCaster = OBJECT_SELF;
    location lTarget = PRCGetSpellTargetLocation();
    location lCaster = GetLocation(OBJECT_SELF);
    vector vOrigin = GetPosition(OBJECT_SELF);

    int nCasterLevel = PRCGetCasterLevel();
    int nPenetr = nCasterLevel + SPGetPenetr();
    int nDieSides = GetDieType(nCasterLevel);

    DoBoltVFX(lCaster, lTarget);

    int nDamage;
    int nSaveDC;
    float fDelay;


    // individual effect
    effect eDamage;

    // spell damage effects
    // Loop over targets in the spell shape
    object oTarget = MyFirstObjectInShape(SHAPE_SPELLCYLINDER, 36.6f, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE, vOrigin);
    while(GetIsObjectValid(oTarget))
    {
        if(oTarget != oCaster && spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, oCaster))
        {
            // Let the AI know
            PRCSignalSpellEvent(oTarget, TRUE, SPELL_RAINBOW_BLAST, oCaster);

            // Make an SR check
            if(!PRCDoResistSpell(oCaster, oTarget, nPenetr))
            {
                nSaveDC = PRCGetSaveDC(oTarget, OBJECT_SELF);

                fDelay = GetDistanceBetweenLocations(lCaster, GetLocation(oTarget)) / 20.0f;

                // Roll fire damage
                nDamage = PRCGetMetaMagicDamage(DAMAGE_TYPE_FIRE, 1, nDieSides);
                nDamage += SpellDamagePerDice(oCaster, 1);
                // Adjust damage according to Reflex Save, Evasion or Improved Evasion
                nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nSaveDC, SAVING_THROW_TYPE_FIRE);
                if(nDamage > 0)
                {
                    eDamage = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_FIRE);
                    DelayCommand(1.0f + fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDamage, oTarget));
                    DelayCommand(1.0f + fDelay, PRCBonusDamage(oTarget));
                    DelayCommand(1.0f + fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_FLAME_S), oTarget));
                }// end if - There was still damage remaining to be dealt after adjustments

                // Roll acid damage
                nDamage = PRCGetMetaMagicDamage(DAMAGE_TYPE_ACID, 1, nDieSides);
                nDamage += SpellDamagePerDice(oCaster, 1);
                // Adjust damage according to Reflex Save, Evasion or Improved Evasion
                nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nSaveDC, SAVING_THROW_TYPE_ACID);
                if(nDamage > 0)
                {
                    eDamage = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_ACID);
                    DelayCommand(1.0f + fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDamage, oTarget));
                    DelayCommand(1.0f + fDelay, PRCBonusDamage(oTarget));
                    DelayCommand(1.0f + fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_ACID_S), oTarget));
                }// end if - There was still damage remaining to be dealt after adjustments

                // Roll cold damage
                nDamage = PRCGetMetaMagicDamage(DAMAGE_TYPE_COLD, 1, nDieSides);
                nDamage += SpellDamagePerDice(oCaster, 1);
                // Cold has a fort save for half
                if(PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nSaveDC, SAVING_THROW_TYPE_COLD))
                {
                    if (GetHasMettle(oTarget, SAVING_THROW_FORT))
                        nDamage = 0;
                    nDamage /= 2;
                }

                if(nDamage > 0)
                {
                    eDamage = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_COLD);
                    DelayCommand(1.0f + fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDamage, oTarget));
                    DelayCommand(1.0f + fDelay, PRCBonusDamage(oTarget));
                    DelayCommand(1.0f + fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_FROST_S), oTarget));
                }// end if - There was still damage remaining to be dealt after adjustments

                // Roll electrical damage
                nDamage = PRCGetMetaMagicDamage(DAMAGE_TYPE_ELECTRICAL, 1, nDieSides);
                nDamage += SpellDamagePerDice(oCaster, 1);
                // Adjust damage according to Reflex Save, Evasion or Improved Evasion
                nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nSaveDC, SAVING_THROW_TYPE_ELECTRICITY);
                if(nDamage > 0)
                {
                    eDamage = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_ELECTRICAL);
                    DelayCommand(1.0f + fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDamage, oTarget));
                    DelayCommand(1.0f + fDelay, PRCBonusDamage(oTarget));
                    DelayCommand(1.0f + fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_LIGHTNING_S), oTarget));
                }// end if - There was still damage remaining to be dealt after adjustments

                // Roll sonic damage
                nDamage = PRCGetMetaMagicDamage(DAMAGE_TYPE_SONIC, 1, nDieSides);
                nDamage += SpellDamagePerDice(oCaster, 1);
                // Adjust damage according to Reflex Save, Evasion or Improved Evasion
                nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nSaveDC, SAVING_THROW_TYPE_SONIC);
                if(nDamage > 0)
                {
                    eDamage = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_SONIC);
                    DelayCommand(1.0f + fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDamage, oTarget));
                    DelayCommand(1.0f + fDelay, PRCBonusDamage(oTarget));
                    DelayCommand(1.0f + fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_SONIC), oTarget));
                }// end if - There was still damage remaining to be dealt after adjustments
            }// end if - SR check
        }// end if - Target validity check

       // Get next target
        oTarget = MyNextObjectInShape(SHAPE_SPELLCYLINDER, 36.6f, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE, vOrigin);
    }// end while - Target loop

    PRCSetSchool();
}