Initial upload.

Adding base PRC 4.19a files to repository.

trunk/smp/phs_s_keenedge.nss

@@ -0,0 +1,83 @@
+/*:://////////////////////////////////////////////
+//:: Spell Name Keen Edge
+//:: Spell FileName PHS_S_KeenEdge
+//:://////////////////////////////////////////////
+//:: In Game Spell desctiption
+//:://////////////////////////////////////////////
+    Transmutation
+    Level: Sor/Wiz 3
+    Components: V, S
+    Casting Time: 1 standard action
+    Range: Close (8M)
+    Targets: One weapon
+    Duration: 10 min./level
+    Saving Throw: Will negates (harmless, object)
+    Spell Resistance: Yes (harmless, object)
+
+    This spell makes a weapon magically keen, improving its ability to deal
+    telling blows. This transmutation doubles the threat range of the weapon. A
+    threat range of 20 becomes 19-20, a threat range of 19-20 becomes 17-20, and
+    a threat range of 18-20 becomes 15-20. The spell can be cast only on
+    piercing or slashing weapons.
+
+    Multiple effects that increase a weapon<6F>s threat range (such as the keen
+    edge spell and natural keeness) don<6F>t stack. You can<61>t cast this spell on a
+    natural weapon, such as a claw.
+//:://////////////////////////////////////////////
+//:: Spell Effects Applied / Notes
+//:://////////////////////////////////////////////
+    This will do as it says - apply, tempoarily, the item property Keen Edge, to
+    any of the slashing or piercing weapons.
+//:://////////////////////////////////////////////
+//:: Created By: Jasperre
+//::////////////////////////////////////////////*/
+
+#include "PHS_INC_SPELLS"
+
+void main()
+{
+    // Spell Hook Check.
+    if(!PHS_SpellHookCheck(PHS_SPELL_KEEN_EDGE)) return;
+
+    // Declare Major Variables
+    object oCaster = OBJECT_SELF;
+    object oTarget = GetSpellTargetObject(); // Should be an item!
+    object oPossessor = GetItemPossessor(oTarget);
+    int nAmmoType = GetBaseItemType(oTarget);
+    int nCasterLevel = PHS_GetCasterLevel();
+    int nMetaMagic = PHS_GetMetaMagicFeat();
+    itemproperty IP_Keen = ItemPropertyKeen();
+
+    // Duration is 10 minutes a level
+    float fDuration = PHS_GetDuration(PHS_MINUTES, nCasterLevel * 10, nMetaMagic);
+
+    if(GetIsObjectValid(oPossessor))
+    {
+        // Signal event
+        PHS_SignalSpellCastAt(oPossessor, PHS_SPELL_KEEN_EDGE, FALSE);
+    }
+
+    // Declare effects
+    effect eVis = EffectVisualEffect(VFX_IMP_SUPER_HEROISM);
+
+    // Must be a piercing OR slashing weapon (or both!)
+    if(GetObjectType(oTarget) == OBJECT_TYPE_ITEM &&
+       PHS_IP_GetIsPiercingOrSlashingWeapon(oTarget))
+    {
+        // Apply visual effect
+        if(GetIsObjectValid(oPossessor))
+        {
+            PHS_ApplyLocationVFX(GetLocation(oPossessor), eVis);
+        }
+        else
+        {
+            PHS_ApplyLocationVFX(GetLocation(oTarget), eVis);
+        }
+        // Apply item property for duration
+        IPSafeAddItemProperty(oTarget, IP_Keen, fDuration, X2_IP_ADDPROP_POLICY_KEEP_EXISTING);
+    }
+    else
+    {
+        FloatingTextStringOnCreature("Invalid item targeted", oCaster, FALSE);
+    }
+}