Further file organization

Further file organization

nwn/nwnprc/trunk/smp/phs_s_statue.nss

@@ -0,0 +1,124 @@
+/*:://////////////////////////////////////////////
+//:: Spell Name Statue
+//:: Spell FileName PHS_S_Statue
+//:://////////////////////////////////////////////
+//:: In Game Spell desctiption
+//:://////////////////////////////////////////////
+    Statue
+    Transmutation
+    Level: Sor/Wiz 7
+    Components: V, S, M
+    Casting Time: 1 round
+    Range: Touch
+    Target: Willing Creature touched
+    Duration: 1 hour/level (D)
+    Saving Throw: Will negates (harmless)
+    Spell Resistance: Yes (harmless)
+
+    A statue spell turns the subject to solid stone, along with any garments and
+    equipment worn or carried. In statue form, the subject gains hardness 8. The
+    subject retains its own hit points.
+
+    The subject can see, hear, and smell normally, but it does not need to eat
+    or breathe. Feeling is limited to those sensations that can affect the
+    granite-hard substance of the individual<61>s body. Chipping is equal to a mere
+    scratch, but breaking off one of the statue<75>s arms constitutes serious
+    damage.
+
+    The subject of a statue spell can return to its normal state, act, and then
+    return instantly to the statue state (a free action) if it so desires, as
+    long as the spell duration is in effect.
+
+    This spell only works on player character allies. It will not operate on
+    non-players, or non-allies.
+
+    Material Component: Lime, sand, and a drop of water stirred by an iron bar,
+    such as a nail or spike.
+//:://////////////////////////////////////////////
+//:: Spell Effects Applied / Notes
+//:://////////////////////////////////////////////
+    Applies a magical effect (for dispelling) which is cessate.
+
+    Also creates a monster (with a heartbeat) to check for the spell (and remove
+    the Granite effects if so) and also check if they wish to remove the
+    spells effects.
+
+    It will relay the instructions: "Whisper "move" to move again and "statue" to
+    turn back into a statue"
+
+    The creature will apply the first effects, too. It'll use the effects
+    creator to determine which are the granite effects.
+//:://////////////////////////////////////////////
+//:: Created By: Jasperre
+//::////////////////////////////////////////////*/
+
+#include "PHS_INC_SPELLS"
+
+void main()
+{
+    // Spell Hook Check.
+    if(!PHS_SpellHookCheck(PHS_SPELL_STATUE)) return;
+
+    // Declare major variables
+    object oCaster = OBJECT_SELF;
+    object oTarget = GetSpellTargetObject();
+    int nCasterLevel = PHS_GetCasterLevel();
+    int nMetaMagic = PHS_GetMetaMagicFeat();
+
+    // Must be a willing, PC character
+    if(!GetFactionEqual(oCaster, oTarget) || !GetIsPC(oTarget))
+    {
+        // Must be a PC, in the party
+        FloatingTextStringOnCreature("*You must cast Statue on a PC party member*", oCaster, FALSE);
+        return;
+    }
+
+    // Make sure they are not immune to spells
+    if(PHS_TotalSpellImmunity(oTarget)) return;
+
+    // Duration - 1 hour/level
+    float fDuration = PHS_GetDuration(PHS_HOURS, nCasterLevel, nMetaMagic);
+
+    // Declare effects
+    effect eCessate = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE);
+
+    // These ones are to be used (not here) to provide the statue effect, and
+    // will be supernatural
+    /*
+    // Hardness 8
+    effect eHardness1 = EffectDamageResistance(DAMAGE_TYPE_PIERCING, 8);
+    effect eHardness2 = EffectDamageResistance(DAMAGE_TYPE_SLASHING, 8);
+    effect eHardness3 = EffectDamageResistance(DAMAGE_TYPE_BLUDGEONING, 8);
+    // Visual and stopping effect
+    // * Also adds all the things a statue would be immune to (criticals ETC)
+    effect eStatue = PHS_CreateProperPetrifyEffectLink();
+
+    // Link these effects
+    effect eLink = EffectLinkEffects(eStatue, eHardness1);
+    effect eLink = EffectLinkEffects(eLink, eHardness2);
+    effect eLink = EffectLinkEffects(eLink, eHardness3);
+    */
+
+    // Remove previous effects
+    PHS_RemoveSpellEffectsFromTarget(PHS_SPELL_STATUE, oTarget);
+
+    // Signal spell cast at
+    PHS_SignalSpellCastAt(oTarget, PHS_SPELL_STATUE, FALSE);
+
+    // Increment how many times this spell has been cast (for the following
+    // creatures to measure)
+    int nTimesCast = PHS_IncreaseStoredInteger(oTarget, "PHS_SPELL_STATUE_CAST_TIMES");
+
+    // Create the creature to follow them.
+    object oStatueMaker = CreateObject(OBJECT_TYPE_CREATURE, "phs_statuemaker", GetLocation(oTarget));
+
+    // Set the integer of times cast, and the master of the creature
+    SetLocalObject(oStatueMaker, "PHS_SPELL_STATUE_MASTER", oTarget);
+    SetLocalInt(oStatueMaker, "PHS_SPELL_STATUE_CAST_TIMES", nTimesCast);
+
+    // Tell the PC how to make themselves into a statue ETC.
+    FloatingTextStringOnCreature("*To let yourself move again, whisper 'move'. Say 'statue' to become granite again*", oTarget, FALSE);
+
+    // Apply effects to the target
+    PHS_ApplyDuration(oTarget, eCessate, fDuration);
+}