Initial upload.

Adding base PRC 4.19a files to repository.

trunk/spells/sp_rain_btulB.nss

@@ -0,0 +1,61 @@
+//::///////////////////////////////////////////////
+//:: Name      Rain of Black Tulips: On Exit
+//:: FileName  sp_rain_btulB.nss
+//:://////////////////////////////////////////////
+/**@file Rain of Black Tulips 
+Evocation [Good] 
+Level: Drd 9 
+Components: V, S, M 
+Casting Time: 1 standard action 
+Range: Long (400 ft. + 40 ft./level) 
+Area: Cylinder (80-ft. radius, 80 ft. high)
+Duration: 1 round/level (D) 
+Saving Throw: None (damage), Fortitude negates (nausea) 
+Spell Resistance: Yes
+
+Tulips as black as midnight fall from the sky. The 
+tulips explode with divine energy upon striking evil
+creatures, each of which takes 5d6 points of damage. 
+In addition, evil creatures that fail a Fortitude 
+save are nauseated (unable to attack, cast spells, 
+concentrate on spells, perform any task requiring 
+concentration, or take anything other than a single
+move action per turn) until they leave the spell's 
+area. A successful Fortitude save renders a creature
+immune to the nauseating effect of the tulips, but 
+not the damage.
+
+Material Component: A black tulip. 
+
+Author:    Tenjac
+Created:   7/14/06
+*/
+//:://////////////////////////////////////////////
+//:://////////////////////////////////////////////
+
+#include "prc_inc_spells"
+
+void main()
+{
+	object oTarget = GetExitingObject();
+	effect eAOE =  GetFirstEffect(oTarget);
+	
+	//Search through the valid effects on the target.
+	
+	while(GetIsEffectValid(eAOE))
+	{
+		if(GetEffectCreator(eAOE) == GetAreaOfEffectCreator())
+		{
+			if(GetEffectType(eAOE) == EFFECT_TYPE_DAZED)
+			{
+				//If the effect was created by the Entagle then remove it
+				if(GetEffectSpellId(eAOE) == SPELL_RAIN_OF_BLACK_TULIPS)
+				{
+					RemoveEffect(oTarget, eAOE);
+				}
+	                }
+		}
+		//Get next effect on the target
+		eAOE = GetNextEffect(oTarget);
+	}
+}