Further file organization

Further file organization

nwn/nwnprc/trunk/newspellbook/true_utr_sldlnda.nss

@@ -0,0 +1,46 @@
+/*
+   ----------------
+   Shield of the Landscape, Enter
+
+   true_utr_sldlnda
+   ----------------
+
+    1/9/06 by Stratovarius
+*/ /** @file
+
+    Shield of the Landscape
+
+    Level: Perfected Map 1
+    Range: 100 feet
+    Area: 20' Radius, Centred on Caster 
+    Duration: 1 Minute
+    Spell Resistance: No
+    Save: None
+    Metautterances: Extend
+
+    You cause the ground to alter its basic form, creating cover for you allies.
+    All allies (including you) in the area gain 20% concealment vs Ranged attacks.
+*/
+
+#include "true_inc_trufunc"
+#include "true_utterhook"
+//#include "prc_alterations"
+
+void main()
+{
+    SetAllAoEInts(UTTER_SHIELD_LANDSCAPE,OBJECT_SELF, GetSpellSaveDC());
+
+    object oTarget = GetEnteringObject();
+    
+    if (GetIsFriend(oTarget, GetAreaOfEffectCreator()))
+    {
+    	//Declare major variables
+    	effect eConceal = EffectConcealment(20, MISS_CHANCE_TYPE_VS_RANGED);
+
+    	//Fire cast spell at event for the target
+    	SignalEvent(oTarget, EventSpellCastAt(GetAreaOfEffectCreator(), UTTER_SHIELD_LANDSCAPE));
+    	
+	// Maximum time possible. If its less, its simply cleaned up when the utterance ends.
+    	SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eConceal, oTarget, RoundsToSeconds(20));
+    }
+}