PRC8_fork/nwn/nwnprc/trunk/smp/phs_s_spikegrow.nss

/*:://////////////////////////////////////////////
//:: Spell Name Spike Growth
//:: Spell FileName PHS_S_SpikeGrow
//:://////////////////////////////////////////////
//:: In Game Spell desctiption
//:://////////////////////////////////////////////
    Transmutation
    Level: Drd 3, Rgr 2
    Components: V, S, DF
    Casting Time: 1 standard action
    Range: Medium (20M)
    Area: 2M/level square, to a maximum of 20x20M at level 10
    Duration: 1 hour/level (D)
    Saving Throw: Reflex partial
    Spell Resistance: Yes

    This spell makes ground-covering vegetation in the spell<6C>s area becomes very
    hard and sharply pointed. Typically, spike growth can be cast in any outdoor
    setting except open water, ice, heavy snow, sandy desert, or bare stone. Any
    creature moving on foot into or through the spell<6C>s area takes 1d4 points of
    piercing damage each round, for every meter they moved through the area (a
    minimum of 1d4 damage is done as long as the creature moved).

    Any creature that takes damage from this spell must also succeed on a Reflex
    save or suffer injuries to its feet and legs that slow its land speed by
    one-half. This speed penalty lasts for 24 hours or until the injured
    creature receives a cure spell (which also restores lost hit points).
    Another character can remove the penalty by taking 10 minutes to dress the
    injuries and succeeding on a Heal check against the spell<6C>s save DC.

    Spike growth can<61>t be disabled with the Disable Device skill, and it is
    automatically detected.
//:://////////////////////////////////////////////
//:: Spell Effects Applied / Notes
//:://////////////////////////////////////////////
    Won't overlap - one effect is one effect (uses the default set/remove
    system, but also see just below)

    A delayed integer setting is used to stop multiple heartbeats from running
    on the same person.

    Thier position is tracked, using SetLocation() mainly (which we can get
    position points from easily). Note, of course, area checks are in place,
    incase someone exits from the area and causes the On Exit to fire and
    complete the damage.

    The speed penalty is applied once, and so previous ones are removed (24
    hour duration).

    AOE is a minimum of 10Mx10M (level 5 druids get level 3 spells), up to 20x20
    (for a level 10 caster).

    Note: Default checks make this Exterior, Natural, Overground ONLY. There is
    an additional module setting "only let spike growth operate in these areas"
    and always a "never let this spell operate in this area" check too.

    This is because this affects plants, right? and spike stones does the same
    for rocks...woohoo...
//:://////////////////////////////////////////////
//:: Created By: Jasperre
//::////////////////////////////////////////////*/

#include "PHS_INC_SPELLS"

void main()
{
    // Spell hook check.
    if(!PHS_SpellHookCheck(PHS_SPELL_SPIKE_GROWTH)) return;

    // Get caster
    object oCaster = OBJECT_SELF;
    object oArea = GetArea(oCaster);

    // Force off toggle for this area
    if(GetLocalInt(oArea, "PHS_SETTING_NO_SPIKE_GROWTH") == TRUE) return;

    // Toggle for "only these areas"
    if(!PHS_SettingGetGlobal("PHS_GROWTH_SPELLS_ONLY_IN_SET_AREAS"))
    {
        // Else, Must be in a natural, overground, outside area
        if(GetIsAreaAboveGround(oArea) == FALSE ||
           GetIsAreaInterior(oArea) == TRUE ||
           GetIsAreaNatural(oArea) == AREA_ARTIFICIAL)
        {
            return;
        }
    }
    else if(!GetLocalInt(oArea, "PHS_SETTING_SPIKE_GROWTH_ON"))
    {
        // Stop
        return;
    }

    // Declare major variables
    location lTarget = GetSpellTargetLocation();
    int nCasterLevel = PHS_GetCasterLevel();
    int nMetaMagic = PHS_GetMetaMagicFeat();
    // Duration - 1 hour/level (Note: Still dispellable)
    float fDuration = PHS_GetDuration(PHS_HOURS, nCasterLevel, nMetaMagic);

    // 2M a side level, and we do the vfx_persistant.2da entries, of course,
    // starting at 10M, then 11, etc, up to 20.
    // we add 1 for level 6, and so on, up to level 10, which adds 5

    // Change caster level to be in limits
    int nAOECaster = PHS_LimitInteger(nCasterLevel - 5, 0, 5);

    // Add on, to the default one, 0 to 5.
    int nAOE = PHS_AOE_PER_SPIKE_GROWTH_10 + nAOECaster;

    // Declare effects
    effect eAOE = EffectAreaOfEffect(nAOE);

    // Apply effects
    PHS_ApplyLocationDuration(lTarget, eAOE, fDuration);
}