Further file organization

Further file organization

nwn/nwnprc/trunk/smp/phs_s_meldintost.nss

@@ -0,0 +1,106 @@
+/*:://////////////////////////////////////////////
+//:: Spell Name Meld into Stone
+//:: Spell FileName PHS_S_MeldintoSt
+//:://////////////////////////////////////////////
+//:: In Game Spell desctiption
+//:://////////////////////////////////////////////
+    Transmutation [Earth]
+    Level: Clr 3, Drd 3
+    Components: V, S, DF
+    Casting Time: 1 standard action
+    Range: Personal
+    Target: You
+    Duration: 10 min./level
+
+    Meld into stone enables you to meld your body and possessions into a single
+    block of stone that you create.
+
+    You remain aware of the passage of time and can cast spells on yourself
+    while hiding in the stone. Nothing that goes on outside the stone can be
+    seen, but you can still hear what happens around you. Minor physical damage
+    to the stone does not harm you (you gain 8/+1 damage resistance against
+    pysical damage). If you get hit enough within the stone then it will
+    collapse. You can take up to 8 damage per caster level, maximum of 80 at
+    level 10.
+
+    Any time before the duration expires, you can step out of the stone and the
+    spell will dispissitate as when it is completely destroyed or dispelled.
+
+    The following spells harm you if cast upon the stone that you are occupying:
+    Stone to flesh expels you and deals you 5d6 points of damage. Stone shape
+    deals you 3d6 points of damage but does not expel you. Transmute rock to mud
+    expels you and then slays you instantly unless you make a DC 18 Fortitude
+    save, in which case you are merely expelled. Finally, passwall expels you
+    without damage.
+//:://////////////////////////////////////////////
+//:: Spell Effects Applied / Notes
+//:://////////////////////////////////////////////
+    This spell will:
+
+    - Apply blindness.
+    - Not allow spells to be cast on anyone but the caster
+    - Make the caster immobile (if possible, else we will use a HB)
+    - Apply damage reduction 8/-, against physiscal damage, for a maximum of
+      8xlevel, max 80.
+
+    So, you can cast it and prepare some spells and subsiquently gain a small
+    amount of physical damage reduction.
+
+    Simplified version.
+
+    The PHS_SpellHookCheck() has code for MELD_INTO_STONE stuff.
+//:://////////////////////////////////////////////
+//:: Created By: Jasperre
+//::////////////////////////////////////////////*/
+
+#include "PHS_INC_SPELLS"
+
+void main()
+{
+    // Spell Hook Check.
+    if(!PHS_SpellHookCheck(PHS_SPELL_MELD_INTO_STONE)) return;
+
+    // Declare major variables
+    object oCaster = OBJECT_SELF;
+    object oTarget = GetSpellTargetObject();
+    int nCasterLevel = PHS_GetCasterLevel();
+    int nMetaMagic = PHS_GetMetaMagicFeat();
+
+    // Caster needs to be target
+    if(oCaster != oTarget) return;
+
+    // Make sure they are not immune to spells
+    if(PHS_TotalSpellImmunity(oTarget)) return;
+
+    // Duration is 10 minutes/level
+    float fDuration = PHS_GetDuration(PHS_MINUTES, nCasterLevel * 10, nMetaMagic);
+
+    // Limit to 80
+    int nLimit = PHS_LimitInteger(nCasterLevel * 8, 80);
+
+    // Declare effects
+    // All "Good" effects
+    effect ePhysical1 = EffectDamageResistance(DAMAGE_TYPE_BLUDGEONING, 8, nLimit);
+    effect ePhysical2 = EffectDamageResistance(DAMAGE_TYPE_PIERCING, 8, nLimit);
+    effect ePhysical3 = EffectDamageResistance(DAMAGE_TYPE_SLASHING, 8, nLimit);
+    effect eBlind = EffectBlindness();
+    // Visuals
+    effect eDur = EffectVisualEffect(VFX_DUR_STONEHOLD);
+    effect eCessate = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE);
+
+    // Link effects
+    effect eLink = EffectLinkEffects(ePhysical1, ePhysical2);
+    eLink = EffectLinkEffects(eLink, ePhysical3);
+    eLink = EffectLinkEffects(eLink, eBlind);
+    eLink = EffectLinkEffects(eLink, eDur);
+    eLink = EffectLinkEffects(eLink, eCessate);
+
+    // Remove previous effects
+    PHS_RemoveSpellEffectsFromTarget(PHS_SPELL_MELD_INTO_STONE, oTarget);
+
+    // Signal spell cast at
+    PHS_SignalSpellCastAt(oTarget, PHS_SPELL_MELD_INTO_STONE, FALSE);
+
+    // Apply effects to the target
+    PHS_ApplyDuration(oTarget, eLink, fDuration);
+}