Further file organization

Further file organization

nwn/nwnprc/trunk/psionics/psi_pow_crysswrm.nss

@@ -0,0 +1,119 @@
+/*
+    ----------------
+    Swarm of Crystals
+
+    psi_pow_crysswrm
+    ----------------
+
+    9/11/04 by Stratovarius
+*/ /** @file
+
+    Swarm of Crystals
+
+    Metacreativity (Creation)
+    Level: Psion/wilder 2
+    Manifesting Time: 1 standard action
+    Range: 30 ft.
+    Area: Cone-shaped spread
+    Duration: Instantaneous
+    Saving Throw: None
+    Power Resistance: No
+    Power Points: 3
+    Metapsionics: Empower, Maximize, Twin, Widen
+
+    Thousands of tiny crystal shards spray forth in an arc from your hand. These
+    razorlike crystals slice everything in their path. Anyone caught in the cone
+    takes 3d4 points of slashing damage.
+
+    Augment: For every additional power point you spend, this power<65>s damage
+             increases by 1d4 points.
+*/
+
+#include "psi_inc_psifunc"
+#include "psi_inc_pwresist"
+#include "psi_spellhook"
+#include "prc_inc_spells"
+
+void main()
+{
+/*
+  Spellcast Hook Code
+  Added 2004-11-02 by Stratovarius
+  If you want to make changes to all powers,
+  check psi_spellhook to find out more
+
+*/
+
+    if (!PsiPrePowerCastCode())
+    {
+    // If code within the PrePowerCastHook (i.e. UMD) reports FALSE, do not run this spell
+        return;
+    }
+
+// End of Spell Cast Hook
+
+    object oManifester = OBJECT_SELF;
+    struct manifestation manif =
+        EvaluateManifestation(oManifester, OBJECT_INVALID,
+                              PowerAugmentationProfile(PRC_NO_GENERIC_AUGMENTS,
+                                                       1, PRC_UNLIMITED_AUGMENTATION
+                                                       ),
+                              METAPSIONIC_EMPOWER | METAPSIONIC_MAXIMIZE | METAPSIONIC_TWIN | METAPSIONIC_WIDEN
+                              );
+
+
+    if(manif.bCanManifest)
+    {
+        int nNumberOfDice = 3 + manif.nTimesAugOptUsed_1;
+        int nDieSize      = 4;
+        int nDamage, i;
+        effect eDamage;
+        effect eSpikes    = EffectVisualEffect(VFX_IMP_WALLSPIKE);
+        effect eDart      = EffectVisualEffect(NORMAL_DART);
+        float fWidth      = EvaluateWidenPower(manif, FeetToMeters(30.0f));
+        float fDelay;
+        location lTarget  = PRCGetSpellTargetLocation();
+        object oTarget;
+
+        vector vOrigin = GetPosition(oManifester);
+        vector vTarget = GetPositionFromLocation(lTarget);
+        float fAngle   = acos((vTarget.x - vOrigin.x) / GetDistanceBetweenLocations(GetLocation(oManifester), lTarget));
+
+        // Handle Twin Power
+        int nRepeats = manif.bTwin ? 2 : 1;
+        for(; nRepeats > 0; nRepeats--)
+        {
+            // Do VFX - Doesn't seem to work with darts
+            //DrawLinesInACone(10, fWidth, lTarget, fAngle, DURATION_TYPE_INSTANT, NORMAL_DART, 0.0f, 20, 1.5f);
+
+            // Loop over targets
+            oTarget = MyFirstObjectInShape(SHAPE_SPELLCONE, fWidth, lTarget, TRUE,
+                                           OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE);
+            while(GetIsObjectValid(oTarget))
+            {
+                if(oTarget != oManifester &&                                          // No hurting self
+                   spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, oManifester) // Game difficulty limitations
+                   )
+                {
+                    // Let the AI know
+                    PRCSignalSpellEvent(oTarget, TRUE, manif.nSpellID, oManifester);
+
+                    // Roll damage
+                    nDamage = MetaPsionicsDamage(manif, nDieSize, nNumberOfDice, 0, 0, TRUE, FALSE);
+                    // Target-specific stuff
+                    nDamage = GetTargetSpecificChangesToDamage(oTarget, oManifester, nDamage, TRUE, FALSE);
+                    eDamage = EffectDamage(nDamage, DAMAGE_TYPE_SLASHING);
+
+                    SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDamage, oTarget);
+    	            //SPApplyEffectToObject(DURATION_TYPE_INSTANT, eSpikes, oTarget);
+    	            if(GetObjectType(oTarget) != OBJECT_TYPE_PLACEABLE) // Placeables do not like the VFX, either
+        	            for(i = 0; i < 15; i++)
+        	                ApplyEffectToObject(DURATION_TYPE_INSTANT, eDart, oTarget);
+    	        }// end if - Targeting check
+
+    	        oTarget = MyNextObjectInShape(SHAPE_SPELLCONE, fWidth, lTarget, TRUE,
+    	                                      OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE);
+            }// end while - Target loop
+        }// end for - Twin Power
+    }// end if - Successfull manifestation
+}