Further file organization

Further file organization

nwn/nwnprc/trunk/spells/sp_bldfrz_arrow.nss

@@ -0,0 +1,132 @@
+//::///////////////////////////////////////////////
+//:: Name      Bloodfreeze Arrow
+//:: FileName  sp_bldfrz_arrow.nss
+//:://////////////////////////////////////////////
+/**@file Bloodfreeze Arrow
+Transmutation
+Level: Assassin 4, ranger 4, justice of weald and woe 4
+Components: V, M
+Casting Time: 1 swift action
+Range: Long
+Target: One creature
+Duration: Instantaneous
+Saving Throw: Fortitude partial; see text
+Spell Resistance: Yes
+
+When you cast this spell, you fire an arrow at the target and transform
+the arrow head into blue ice. In addition to taking normal damage from
+the missile, the target takes 2d6 points of cold damage and is
+paralyzed. A successful Fortitude save negates the paralysis, and
+the target can make a new save each round (at the start of the
+caster<EFBFBD>s turn).
+
+Material Component: Masterwork arrow or bolt.
+
+Author:    Tenjac
+Created:   8/22/07
+*/
+//:://////////////////////////////////////////////
+//:://////////////////////////////////////////////
+
+void ParaLoop(object oTarget, int nDC, object oPC);
+
+#include "prc_inc_spells"
+#include "prc_craft_inc"
+#include "prc_add_spell_dc"
+#include "prc_inc_combat"
+
+void main()
+{
+        if(!X2PreSpellCastCode()) return;
+        
+        PRCSetSchool(SPELL_SCHOOL_TRANSMUTATION);
+        
+        object oPC = OBJECT_SELF;
+        object oTarget = PRCGetSpellTargetObject();
+        int nCasterLvl = PRCGetCasterLevel(oPC);
+        effect eVis = EffectVisualEffect(VFX_IMP_FROST_S);
+        object oWeap = GetItemInSlot(INVENTORY_SLOT_RIGHTHAND, oPC);                
+        int nType = GetBaseItemType(oWeap);
+        object oAmmo;
+        
+        //Has to be a bow of some sort
+        if(nType != BASE_ITEM_LONGBOW && 
+        nType != BASE_ITEM_SHORTBOW &&
+        nType != BASE_ITEM_LIGHTCROSSBOW && 
+        nType != BASE_ITEM_HEAVYCROSSBOW)
+        {
+                PRCSetSchool();
+                return;
+        }
+        
+        if(nType == BASE_ITEM_LONGBOW || nType == BASE_ITEM_SHORTBOW)
+        {
+                oAmmo = GetItemInSlot(INVENTORY_SLOT_ARROWS, oPC);
+        }
+        
+        else if (nType == BASE_ITEM_LIGHTCROSSBOW || nType == BASE_ITEM_HEAVYCROSSBOW)
+        {
+                oAmmo = GetItemInSlot(INVENTORY_SLOT_BOLTS, oPC);
+        }
+        
+        //Check for Masterwork or magical
+        string sMaterial = GetStringLeft(GetTag(oAmmo), 3);
+        
+        if((!(GetMaterialString(StringToInt(sMaterial)) == sMaterial && sMaterial != "000") && !GetIsMagicItem(oAmmo)))
+        {
+                        PRCSetSchool();
+                        SendMessageToPC(oPC, "Invalid ammo type.");
+                        return;
+        }
+        
+        //Normal Attack
+        PerformAttack(oTarget, oPC, eVis);
+        
+        //if hit
+        if(GetLocalInt(oTarget, "PRCCombat_StruckByAttack"))
+        {
+                if(!PRCDoResistSpell(oPC, oTarget, nCasterLvl + SPGetPenetr()))
+                {
+                		int nDam = d6(2) + SpellDamagePerDice(oPC, 2);
+                        ApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_COLD), oTarget);
+                        
+                        int nDC = PRCGetSaveDC(oTarget, oPC);
+                        
+                        //Save
+                        if(!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_COLD))            
+                        {
+                                //Paralyze
+                                SPApplyEffectToObject(DURATION_TYPE_PERMANENT, EffectParalyze(), oTarget);
+                                
+                                //Start saving loop
+                                DelayCommand(RoundsToSeconds(1), ParaLoop(oTarget, nDC, oPC));
+                        }
+                }
+        }
+        
+        PRCSetSchool();
+}
+
+void ParaLoop(object oTarget, int nDC, object oPC)
+{
+        if(PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_COLD))
+        {
+                effect eTest = GetFirstEffect(oTarget);
+                while(GetIsEffectValid(eTest))
+                {
+                        if(GetEffectCreator(eTest) == oPC)
+                        {
+                                if(GetEffectType(eTest) == EFFECT_TYPE_PARALYZE)
+                                {
+                                        if(GetEffectSpellId(eTest) == SPELL_BLOODFREEZE_ARROW)
+                                        {
+                                                RemoveEffect(oTarget, eTest);
+                                        }
+                                }
+                        }
+                        eTest = GetNextEffect(oTarget);
+                }
+        }
+        
+        else DelayCommand(RoundsToSeconds(1), ParaLoop(oTarget, nDC, oPC));
+}