Initial upload.

Adding base PRC 4.19a files to repository.

trunk/spells/nw_s0_circle.nss

@@ -0,0 +1,121 @@
+/*
+    nw_s0_circle
+
+    Magic Circle Against Good, Evil, Law, Chaos
+
+    By: Flaming_Sword
+    Created: Jun 13, 2006
+    Modified: Jun 13, 2006
+
+    Consolidation of 4 scripts, cleaned up
+*/
+
+#include "prc_sp_func"
+
+//Implements the spell impact, put code here
+//  if called in many places, return TRUE if
+//  stored charges should be decreased
+//  eg. touch attack hits
+//
+//  Variables passed may be changed if necessary
+int DoSpell(object oCaster, object oTarget, int nCasterLevel)
+{
+    int nSpellID = PRCGetSpellId();
+    int nAOE;
+    string temp;
+
+    switch(nSpellID)
+    {
+        case SPELL_MAGIC_CIRCLE_AGAINST_CHAOS:
+        {
+            nAOE = AOE_MOB_CIRCCHAOS;
+            temp = "TEMPO_CIRCCHAOS";
+            break;
+        }
+        case SPELL_MAGIC_CIRCLE_AGAINST_EVIL:
+        case SPELL_HALLOW:
+        {
+            nAOE = AOE_MOB_CIRCGOOD;
+            temp = "TEMPO_CIRCEVIL";
+            break;
+        }
+        case SPELL_MAGIC_CIRCLE_AGAINST_GOOD:
+        {
+            nAOE = AOE_MOB_CIRCEVIL;
+            temp = "TEMPO_CIRCGOOD";
+            break;
+        }
+        case SPELL_MAGIC_CIRCLE_AGAINST_LAW:
+        {
+            nAOE = AOE_MOB_CIRCLAW;
+            temp = "TEMPO_CIRCLAW";
+            break;
+        }
+    }
+
+    effect eAOE = EffectAreaOfEffect(nAOE);
+    effect eVis;
+
+    if(nSpellID == SPELL_MAGIC_CIRCLE_AGAINST_CHAOS
+    || nSpellID == SPELL_MAGIC_CIRCLE_AGAINST_GOOD)
+        eVis = EffectVisualEffect(VFX_IMP_EVIL_HELP);
+    else
+        eVis = EffectVisualEffect(VFX_IMP_GOOD_HELP);
+
+    int nTemp = GetLocalInt(oCaster, temp);
+    DeleteLocalInt(oCaster, temp);
+
+    float fDuration = nTemp ? RoundsToSeconds(nTemp) : HoursToSeconds(nCasterLevel);
+    //Make sure duration does not equal 0
+    //if nTemp == 0 we use caster level for duration, so check if it's not 0
+    if(nCasterLevel < 1)
+        fDuration = HoursToSeconds(1);
+
+	if (nSpellID == SPELL_HALLOW) fDuration = HoursToSeconds(24);
+
+    int nMetaMagic = PRCGetMetaMagicFeat();
+    //Check Extend metamagic feat.
+    if(nMetaMagic & METAMAGIC_EXTEND)
+       fDuration *= 2;    //Duration is +100%
+
+    //Fire cast spell at event for the specified target
+    SignalEvent(oTarget, EventSpellCastAt(oCaster, nSpellID, FALSE));
+
+    //Create an instance of the AOE Object using the Apply Effect function
+    SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eAOE, oTarget, fDuration, TRUE, nSpellID, nCasterLevel);
+    SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget);
+
+    //Setup Area Of Effect object
+    object oAoE = GetAreaOfEffectObject(GetLocation(oTarget), GetAreaOfEffectTag(nAOE), oCaster);
+    SetAllAoEInts(nSpellID, oAoE, 0, 0, nCasterLevel);
+
+    return TRUE;    //return TRUE if spell charges should be decremented
+}
+
+void main()
+{
+    if (!X2PreSpellCastCode()) return;
+    PRCSetSchool(SPELL_SCHOOL_ABJURATION);
+    object oCaster = OBJECT_SELF;
+    object oTarget = PRCGetSpellTargetObject();
+    int nCasterLevel = PRCGetCasterLevel(oCaster);
+    int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags
+    if(!nEvent) //normal cast
+    {
+        if(GetLocalInt(oCaster, PRC_SPELL_HOLD) && oCaster == oTarget)
+        {   //holding the charge, casting spell on self
+            SetLocalSpellVariables(oCaster, 1);   //change 1 to number of charges
+            return;
+        }
+        DoSpell(oCaster, oTarget, nCasterLevel);
+    }
+    else
+    {
+        if(nEvent & PRC_SPELL_EVENT_ATTACK)
+        {
+            if(DoSpell(oCaster, oTarget, nCasterLevel))
+                DecrementSpellCharges(oCaster);
+        }
+    }
+    PRCSetSchool();
+}