Further file organization

Further file organization

nwn/nwnprc/trunk/smp/phs_s_stoneshape.nss

@@ -0,0 +1,85 @@
+/*:://////////////////////////////////////////////
+//:: Spell Name Stone Shape
+//:: Spell FileName PHS_S_StoneShape
+//:://////////////////////////////////////////////
+//:: In Game Spell desctiption
+//:://////////////////////////////////////////////
+    Transmutation [Earth]
+    Level: Clr 3, Drd 3, Earth 3, Sor/Wiz 4
+    Components: V, S, M/DF
+    Casting Time: 1 standard action
+    Range: Touch
+    Target: Stone or stone object touched
+    Duration: Instantaneous
+    Saving Throw: Fortitude
+    Spell Resistance: No
+
+    You can form an existing piece of stone into any shape that suits your
+    purpose. You can damage stone-based creatures and people affected by
+    Stoneskin by touching them, whereupon you shape thier stone into odd shapes
+    inflicting 1d10 points of damage per caster levels (Maximum 10d10). If the
+    target makes a sucessful fortitude saving throw, the damage is halved.
+
+    Arcane Material Component: Soft clay, which must be worked into roughly the
+    desired shape of the stone object and then touched to the stone while the
+    verbal component is uttered.
+//:://////////////////////////////////////////////
+//:: Spell Effects Applied / Notes
+//:://////////////////////////////////////////////
+    Stone monsters, or those with the Stoneskin spell upon them, are damaged
+    if touched, and do get a fortitude save to half the highish damage.
+
+    Ok, its not how it is meant to be - but its fair enough, and easily changed
+    or removed later.
+//:://////////////////////////////////////////////
+//:: Created By: Jasperre
+//::////////////////////////////////////////////*/
+
+#include "PHS_INC_SPELLS"
+
+void main()
+{
+    // Spell Hook Check.
+    if(!PHS_SpellHookCheck(PHS_SPELL_STONE_SHAPE)) return;
+
+    // Delcare Major Variables
+    object oCaster = OBJECT_SELF;
+    object oTarget = GetSpellTargetObject();
+    int nSpellSaveDC = PHS_GetSpellSaveDC();
+    int nMetaMagic = PHS_GetMetaMagicFeat();
+    int nCasterLevel = PHS_GetCasterLevel();
+    // Damage is a maximum of 10d10
+    int nDice = PHS_LimitInteger(nCasterLevel, 10);
+    // Get damage - 1d10 per caster level
+    int nDamage = PHS_MaximizeOrEmpower(nDice, 10, nMetaMagic);
+
+    // Delcare Effects
+    effect eVis = EffectVisualEffect(VFX_IMP_ROCKEXPLODE);
+
+    // Signal spell cast at event
+    PHS_SignalSpellCastAt(oTarget, PHS_SPELL_DESTRUCTION);
+
+    // PvP Check
+    if(!GetIsReactionTypeFriendly(oTarget) &&
+    // Make sure they are not immune to spells
+       !PHS_TotalSpellImmunity(oTarget))
+    {
+        // Melee Touch attack
+        if(PHS_SpellTouchAttack(PHS_TOUCH_MELEE, oTarget))
+        {
+            // Must be a stone creature or stoneskinned person.
+            if(PHS_GetIsCrystalline(oTarget) ||
+               GetHasSpellEffect(PHS_SPELL_STONESKIN, oTarget))
+            {
+                // Apply visual always (we at least do damage if immune/pass save)
+                PHS_ApplyVFX(oTarget, eVis);
+
+                // Saving throw for half damage
+                nDamage = PHS_GetAdjustedDamage(SAVING_THROW_FORT, nDamage, oTarget, nSpellSaveDC);
+
+                // Apply damage
+                PHS_ApplyDamageToObject(oTarget, nDamage, DAMAGE_TYPE_BLUDGEONING);
+            }
+        }
+    }
+}