Initial upload.

Adding base PRC 4.19a files to repository.

trunk/smp/phs_s_repelvirm.nss

@@ -0,0 +1,75 @@
+/*:://////////////////////////////////////////////
+//:: Spell Name Repel Vermin
+//:: Spell FileName PHS_S_RepelVirm
+//:://////////////////////////////////////////////
+//:: In Game Spell desctiption
+//:://////////////////////////////////////////////
+    Abjuration
+    Level: Brd 4, Clr 4, Drd 4, Rgr 3
+    Components: V, S, DF
+    Casting Time: 1 standard action
+    Range: 3.33M. (10 ft.)
+    Area: 3.33-M.-radius (10 ft.) emanation, centered on you
+    Duration: 10 min./level (D)
+    Saving Throw: None or Will negates; see text
+    Spell Resistance: Yes
+
+    An invisible barrier holds back vermin. A vermin with Hit Dice of less than
+    one-third your level cannot penetrate the barrier.
+
+    A vermin with Hit Dice of one-third your level or more can penetrate the
+    barrier if it succeeds on a Will save. Even so, crossing the barrier deals
+    the vermin 2d6 points of damage, and pressing against the barrier causes
+    pain, which deters most vermin.
+
+    Any creature already inside the barrier at the time of casting can move
+    normally, as they have not passed through the edge of the barrier.
+
+    This spell may be used only defensively, not aggressively. If anything
+    enters while you are moving, the barrier collapses.
+//:://////////////////////////////////////////////
+//:: Spell Effects Applied / Notes
+//:://////////////////////////////////////////////
+    As in Antilife Shell, this will repel vermin.
+
+    They do get a will save (but take damage) and the rules for forcing it
+    still apply.
+//:://////////////////////////////////////////////
+//:: Created By: Jasperre
+//::////////////////////////////////////////////*/
+
+#include "PHS_INC_SPELLS"
+
+void main()
+{
+    // Spell Hook Check.
+    if(!PHS_SpellHookCheck(PHS_SPELL_REPEL_VIRMIN)) return;
+
+    // Declare major variables
+    object oTarget = GetSpellTargetObject();// Should be OBJECT_SELF.
+    object oCaster = OBJECT_SELF;
+    int nCasterLevel = PHS_GetCasterLevel();
+    int nMetaMagic = PHS_GetMetaMagicFeat();
+
+    // Make sure they are not immune to spells
+    if(PHS_TotalSpellImmunity(oTarget)) return;
+
+    // Duration in 10 minutes/level
+    float fDuration = PHS_GetDuration(PHS_MINUTES, nCasterLevel * 10, nMetaMagic);
+
+    // Declare effects - only an enter script.
+    // - Use scripts defined in the 2da.
+    effect eMob = EffectAreaOfEffect(PHS_AOE_MOB_REPEL_VIRMIN);
+
+    // Remove previous effects
+    PHS_RemoveSpellEffectsFromTarget(PHS_SPELL_REPEL_VIRMIN, oTarget);
+
+    // Set local integer so that the first ones will not be affected, which
+    // is removed after 1.0 seconds.
+    string sLocal = PHS_MOVING_BARRIER_START + IntToString(PHS_SPELL_REPEL_VIRMIN);
+    SetLocalInt(oCaster, sLocal, TRUE);
+    DelayCommand(1.0, DeleteLocalInt(oCaster, sLocal));
+
+    // Apply effects
+    PHS_ApplyDuration(oTarget, eMob, fDuration);
+}