Further file organization

Further file organization

nwn/nwnprc/trunk/smp/phs_s_magicstone.nss

@@ -0,0 +1,90 @@
+/*:://////////////////////////////////////////////
+//:: Spell Name Magic Stone
+//:: Spell FileName PHS_S_MagicStone
+//:://////////////////////////////////////////////
+//:: In Game Spell desctiption
+//:://////////////////////////////////////////////
+    Transmutation
+    Level: Clr 1, Drd 1, Earth 1
+    Components: V, S, DF
+    Casting Time: 1 standard action
+    Range: Touch
+    Targets: Up to three pebbles touched
+    Duration: 30 minutes or until discharged
+    Saving Throw: Will negates (harmless, object)
+    Spell Resistance: Yes (harmless, object)
+
+    You transmute as many as three nonmagical sling bullets so that they strike
+    with great force when slung. The spell gives them a +1 bonus on damage rolls,
+    and an additional 1d6 + 1 damage bonus versus undead.
+//:://////////////////////////////////////////////
+//:: Spell Effects Applied / Notes
+//:://////////////////////////////////////////////
+    Adds +1 damage VS all to 3 bullets.
+
+    Also adds 1d6 + 1 damage verus undead.
+
+    Must be totally unmagical bullets targeted.
+//:://////////////////////////////////////////////
+//:: Created By: Jasperre
+//::////////////////////////////////////////////*/
+
+#include "PHS_INC_SPELLS"
+
+void main()
+{
+    // Spell Hook Check.
+    if(!PHS_SpellHookCheck(PHS_SPELL_MAGIC_STONE)) return;
+
+    // Declare Major Variables
+    object oCaster = OBJECT_SELF;
+    object oItem = GetSpellTargetObject(); // Should be an item!
+    object oPossessor = GetItemPossessor(oItem);
+    int nCasterLevel = PHS_GetCasterLevel();
+    int nMetaMagic = PHS_GetMetaMagicFeat();
+
+    // Apply all of these damage bonuses
+    itemproperty IP_Normal = ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_PIERCING, IP_CONST_DAMAGEBONUS_1);
+    itemproperty IP_Undead1 = ItemPropertyDamageBonusVsRace(IP_CONST_RACIALTYPE_UNDEAD, IP_CONST_DAMAGETYPE_PIERCING, IP_CONST_DAMAGEBONUS_1);
+    itemproperty IP_Undead2 = ItemPropertyDamageBonusVsRace(IP_CONST_RACIALTYPE_UNDEAD, IP_CONST_DAMAGETYPE_PIERCING, IP_CONST_DAMAGEBONUS_1d6);
+    effect eVis = EffectVisualEffect(PHS_VFX_IMP_MAGIC_STONE);
+
+    // Duration is 30 minutes
+    float fDuration = PHS_GetDuration(PHS_MINUTES, 30, nMetaMagic);
+
+    if(GetIsObjectValid(oPossessor))
+    {
+        // Signal event
+        PHS_SignalSpellCastAt(oPossessor, PHS_SPELL_MAGIC_STONE, FALSE);
+    }
+
+    // Should target the projectiles to change
+    if(GetIsObjectValid(oItem) &&
+       GetBaseItemType(oItem) == BASE_ITEM_BULLET &&
+      !PHS_IP_GetIsEnchanted(oItem) /* && Is not enchanted*/)
+    {
+        // Divide the item up
+        int nStack = GetItemStackSize(oItem);
+        int nCreateNew = nStack - 3;
+        object oNew;
+        if(nCreateNew > 0)
+        {
+            // Split the CopyItemitems if we have over 50 in a stack
+            oNew = CopyItem(oItem, oPossessor, TRUE);
+            SetItemStackSize(oNew, nCreateNew);
+            // Set orignal to 3
+            SetItemStackSize(oItem, 3);
+        }
+        if(GetIsObjectValid(oPossessor))
+        {
+            // Apply visuals
+            PHS_ApplyVFX(oPossessor, eVis);
+        }
+
+        // Enchant item of the new 3 stack.
+        AddItemProperty(DURATION_TYPE_TEMPORARY, IP_Normal, oItem, fDuration);
+        AddItemProperty(DURATION_TYPE_TEMPORARY, IP_Undead1, oItem, fDuration);
+        AddItemProperty(DURATION_TYPE_TEMPORARY, IP_Undead2, oItem, fDuration);
+        return;
+    }
+}