Further file organization

Further file organization

nwn/nwnprc/trunk/smp/phs_s_changestaf.nss

@@ -0,0 +1,92 @@
+/*:://////////////////////////////////////////////
+//:: Spell Name Changestaff
+//:: Spell FileName PHS_S_Changestaf
+//:://////////////////////////////////////////////
+//:: In Game Spell desctiption
+//:://////////////////////////////////////////////
+    Transmutation
+    Level: Drd 7
+    Components: V, S, F
+    Casting Time: 1 round
+    Range: Touch
+    Target: Your touched staff on the ground
+    Duration: 1 hour/level (D)
+    Saving Throw: None
+    Spell Resistance: No
+
+    You change a specially prepared quarterstaff into a Huge treantlike
+    creature, about 24 feet tall. When you plant the end of the staff in the
+    ground andcast the spell at it, your staff turns into a creature that looks
+    and fights just like a treant. The staff-treant defends you and obeys any
+    commands as a summoned creature would. However, it is by no means a true
+    treant; it cannot converse with actual treants or control trees. If the
+    staff-treant is reduced to 0 or fewer hit points, it crumbles to powder
+    and the staff is destroyed. Otherwise, the staff returns to its normal
+    form when the spell duration expires (or when the spell is dismissed), and
+    it can be used as the focus for another casting of the spell. The
+    staff-treant is always at full strength when created, despite any wounds it
+    may have incurred the last time it appeared.
+
+    Focus: The quarterstaff, which must be specially prepared, probably perchased beforehand.
+//:://////////////////////////////////////////////
+//:: Spell Effects Applied / Notes
+//:://////////////////////////////////////////////
+    The AI scripts do the stuff for returning the staff. It is placed on the ground
+    when the creature is unsummoned/duration runs out.
+
+    If the creature is killed, it is destroyed as normal in the death script.
+//:://////////////////////////////////////////////
+//:: Created By: Jasperre
+//::////////////////////////////////////////////*/
+
+#include "PHS_INC_SPELLS"
+
+void main()
+{
+    // Spell Hook Check
+    if(!PHS_SpellHookCheck()) return;
+
+    // Declare major variables
+    object oCaster = OBJECT_SELF;
+    object oTarget = GetSpellTargetObject(); // Only item!
+    object oPossessor = GetItemPossessor(oTarget);
+    location lTarget = GetLocation(oTarget);
+    int nCasterLevel = PHS_GetCasterLevel();
+    int nMetaMagic = PHS_GetMetaMagicFeat();
+
+    // Get Duration
+    float fDuration = PHS_GetDuration(PHS_HOURS, nCasterLevel, nMetaMagic);
+
+    // Declare effects
+    effect eCessate = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE);
+
+    // Make sure we have targeted a prepared staff
+    // - Can be any staff with this local on it
+    if(GetLocalInt(oTarget, "PHS_CHANGESTAFF") != TRUE)
+    {
+        FloatingTextStringOnCreature("Only a specially prepared staff can be used for Changestaff.", oCaster, FALSE);
+        return;
+    }
+    // Make sure it is not in an inventory
+    if(GetIsObjectValid(oPossessor))
+    {
+        FloatingTextStringOnCreature("You must put the staff on the ground to cast Changestaff.", oCaster, FALSE);
+        return;
+    }
+
+    // We create the object, move the staff into its inventory, and add it as
+    // a henchman. You cannot look at any summoned creatures inventory - good!
+    object oTreant = CreateObject(OBJECT_TYPE_CREATURE, PHS_CREATURE_RESREF_CHANGESTAFF_TREANT, lTarget);
+
+    // Apply effects
+    PHS_ApplyDuration(oTarget, eCessate, fDuration);
+
+    // Set master
+    AddHenchman(oCaster, oTreant);
+
+    // Move the staff
+    object oStaff = CopyItem(oTarget, oTreant, TRUE);
+
+    // Set the staff so its easier to script.
+    SetLocalObject(oTreant, "PHS_CHANGESTAFF_STAFF", oStaff);
+}