Initial upload.

Adding base PRC 4.19a files to repository.
2022-10-07 13:51:24 -04:00
parent 646eb01834
commit 1662218bb4
22441 changed files with 1274376 additions and 0 deletions
--- a/trunk/users/Tenjac/spells/sp_castigate.nss
+++ b/trunk/users/Tenjac/spells/sp_castigate.nss
@@ -0,0 +1,98 @@
+//:://////////////////////////////////////////////
+//:: Name     Castigate
+//:: FileName   sp_castigate.nss
+//:://////////////////////////////////////////////
+/** @file Evocation [Sonic]
+Level: Cleric 4, Paladin 4, Purification 4,
+Components: V,
+Casting Time: 1 standard action
+Range: 10 ft.
+Area: 10-ft.-radius burst centered on you
+Duration: Instantaneous
+Saving Throw: Fortitude half
+Spell Resistance: Yes
+
+Shouting your deity's teachings, you rebuke your foes with the magic 
+of your sacred words.
+
+This spell has no effect on creatures that cannot hear.
+All creatures whose alignment differs from yours on both 
+the law<61>chaos and the good<6F>evil axes take 1d4 points of damage
+per caster level (maximum 10d4). All creatures whose alignment 
+differs from yours on one component take half damage, and this 
+spell does not deal damage to those who share your alignment.
+
+A Fortitude saving throw reduces damage by half.
+*/
+//:://////////////////////////////////////////////
+//:: Created By: Tenjac
+//:: Created On: 1/28/21
+//:://////////////////////////////////////////////
+
+#include "prc_sp_func"
+#include "prc_add_spell_dc"
+
+
+void main()
+{
+	if(!X2PreSpellCastCode()) return;
+	PRCSetSchool(SPELL_SCHOOL_EVOCATION);
+	object oPC = OBJECT_SELF;
+        int nCasterLvl = PRCGetCasterLevel(oPC);
+        int nDC = PRCGetSaveDC(oTarget, oPC);
+        float fDur =  3600 * nCasterLvl;
+        int nMetaMagic = PRCGetMetaMagicFeat();
+        if(nMetaMagic & METAMAGIC_EXTEND) fDur += fDur;
+        location lLoc = PRCGetSpellTargetLocation();
+        int nAlignGE = GetAlignmentGoodEvil(oPC);
+        int nAlignLC = GetAlignmentLawChaos(oPC);
+        int nTargetAlignGE;
+        int nTargetAlignLC;
+        int nDam;
+        int nLevels = min(10, nCasterLvl);
+        float fRadius = FeetToMeters(10);
+        
+        SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_HOWL_WAR_CRY), oPC);
+        
+        object oTarget = (MyFirstObjectInShape(SHAPE_SPHERE, fRadius. lLoc, FALSE));
+        
+        while(GetIsObjectValid(oTarget))
+        {
+        	//Not deaf
+        	if(GetHasEffect(EFFECT_TYPE_DEAF, oTarget) == FALSE)
+        	{
+        		//SR
+        		if(!PRCDoResistSpell(oPC, oTarget, nCasterLvl + SPGetPenetr()))
+			{				
+				nTargetAlignGE = GetAlignmentGoodEvil(oTarget);
+				nTargetAlignLC = GetAlignmentLawChaos(oTarget);
+				
+				//Test alignment differences
+				//Both
+				if(nAlignGE != nTargetAlignGE) && (nAlignLC != nTargetAlignLC)
+				{
+					nDam = d4(nLevels);
+				}
+				//Half for one 
+				else if(nAlignGE != nTargetAlignGE) || (nAlignLC != nTargetAlignLC)
+				{
+					nDam = d4(nLevels)/2;
+				}
+				
+				//save for half
+				if(PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_DIVINE))
+				{
+					nDam = nDam/2;
+				}
+				
+				if(nDam > 0)
+				{
+					SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectDamage(nDam, DAMAGE_TYPE_DIVINE), oTarget);
+					SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectvisualEffect(VFX_IMP_HEAD_HOLY), oTarget);
+				}
+			}
+		}
+		oTarget = MyNextObjectInShape(SHAPE_SPHERE, fRadius. lLoc, FALSE);
+	}		
+	PRCSetSchool();
+}