Initial upload.

Adding base PRC 4.19a files to repository.

trunk/psionics/psi_pow_baletel.nss

@@ -0,0 +1,119 @@
+/*
+    ----------------
+    Baleful Teleport
+
+    psi_pow_baletel
+    ----------------
+
+    21/10/04 by Stratovarius
+*/ /** @file
+
+    Baleful Teleport
+
+    Psychoportation (Teleportation)
+    Level: Nomad 5
+    Manifesting Time: 1 standard action
+    Range: Close (25 ft. + 5 ft./2 levels)
+    Target: One corporeal creature
+    Duration: Instantaneous
+    Saving Throw: Fortitude half
+    Power Resistance: Yes
+    Power Points: 9
+    Metapsionics: Empower, Maximize, Twin
+
+    You psychoportively disperse minuscule portions of the subject, dealing 9d6
+    points of damage. Targets can be protected from the effects of baleful
+    teleport by dimensional anchor.
+
+    Augment: For every additional power point you spend, this power<65>s damage
+             increases by 1d6 points. For each extra 2d6 points of damage, this
+             power<65>s save DC increases by 1 and your manifester level increases
+             by 1 for the purpose of overcoming power resistance.
+*/
+
+#include "psi_inc_psifunc"
+#include "psi_inc_pwresist"
+#include "psi_spellhook"
+#include "prc_inc_spells"
+#include "prc_inc_teleport"
+
+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;
+    object oTarget     = PRCGetSpellTargetObject();
+    struct manifestation manif =
+        EvaluateManifestation(oManifester, oTarget,
+                              PowerAugmentationProfile(2,
+                                                       1, PRC_UNLIMITED_AUGMENTATION
+                                                       ),
+                              METAPSIONIC_EMPOWER | METAPSIONIC_MAXIMIZE | METAPSIONIC_TWIN
+                              );
+
+    if(manif.bCanManifest)
+    {
+        // Get more data
+        int nDC           = GetManifesterDC(oManifester);
+        int nPen          = GetPsiPenetration(oManifester);
+        int nNumberOfDice = 9;
+        int nDieSize      = 6;
+        int nDamage;
+
+        // Apply augmentation
+        nDC           += manif.nTimesGenericAugUsed;
+        nPen          += manif.nTimesGenericAugUsed;
+        nNumberOfDice += manif.nTimesAugOptUsed_1;
+
+        // Let the target know
+        PRCSignalSpellEvent(oTarget, TRUE, manif.nSpellID, oManifester);
+
+        // Handle Twin Power
+        int nRepeats = manif.bTwin ? 2 : 1;
+        for(; nRepeats > 0; nRepeats--)
+        {
+            // Check for Power Resistance
+            if(PRCMyResistPower(oManifester, oTarget, nPen) && !GetIsIncorporeal(oTarget))
+            {
+                // The power has the Teleportation descriptor, so the target has to be teleportable for it to be affected
+                if(GetCanTeleport(oTarget, GetLocation(oTarget), FALSE))
+                {
+                    // Roll damage
+                    nDamage = MetaPsionicsDamage(manif, nDieSize, nNumberOfDice, 0, 0, TRUE, FALSE);
+                    // Fort save for half
+                    if(PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_NONE))
+                    {
+                if (GetHasMettle(oTarget, SAVING_THROW_FORT))
+                // This script does nothing if it has Mettle, bail
+                    nDamage = 0;
+                        nDamage /= 2;
+                    }
+                    // Target-specific stuff
+                    nDamage = GetTargetSpecificChangesToDamage(oTarget, oManifester, nDamage);
+
+                    //Apply the damage and some VFX
+                    effect eDam = EffectDamage(nDamage, DAMAGE_TYPE_MAGICAL);
+                    SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget);
+
+                                        SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_LOS_NORMAL_10), oTarget);
+                    DelayCommand(0.75f, SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_LOS_NORMAL_20), oTarget));
+                    DelayCommand(1.5f,  SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_LOS_NORMAL_30), oTarget));
+                }// end if - the target can be teleported
+            }// end if - SR check
+        }// end for - Twin Power
+    }// end if - Successfull manifestation
+}