5914ed2ab5
Updated Release Archive. Fixed Mage-killer prereqs. Removed old LETO & ConvoCC related files. Added organized spell scroll store. Fixed Gloura spellbook. Various TLK fixes. Reorganized Repo. Removed invalid user folders. Added DocGen back in.
259 lines
13 KiB
Plaintext
259 lines
13 KiB
Plaintext
/*
|
||
----------------
|
||
Energy Retort
|
||
|
||
psi_pow_enrtrt
|
||
----------------
|
||
|
||
11/12/04 by Stratovarius
|
||
*/ /** @file
|
||
|
||
Energy Retort
|
||
|
||
Psychokinesis [see text]
|
||
Level: Psion/wilder 3
|
||
Manifesting Time: 1 standard action
|
||
Range: Personal and close (25 ft. + 5 ft./2 levels); see text
|
||
Targets: You and creature or object attacking you; see text
|
||
Duration: 1 min./level
|
||
Saving Throw: Reflex half or Fortitude half; see text
|
||
Power Resistance: Yes
|
||
Power Points: 5
|
||
Metapsionics: Chain, Empower, Extend, Maximize
|
||
|
||
Upon manifesting this power, you choose cold, electricity, fire, or sonic.
|
||
You weave a field of potential energy of the chosen type around your body.
|
||
The first successful attack made against you in each round during the
|
||
power’s duration prompts a response from the field without any effort on
|
||
your part. The attack may be physical, the effect of a power, or the effect
|
||
of a spell (including spell-like, supernatural, and extraordinary
|
||
abilities). An “ectoburst” discharges from the field, targeting the source
|
||
of the attack and dealing 4d6 points of damage of the chosen energy type.
|
||
To be affected, a target must be within close range. The ectoburst is a
|
||
ranged touch attack.
|
||
|
||
Cold: A field of this energy type deals +1 point of damage per die. The
|
||
saving throw to reduce damage from a cold retort is a Fortitude save
|
||
instead of a Reflex save.
|
||
Electricity: Manifesting a field of this energy type provides a +2 bonus to
|
||
the save DC and a +2 bonus on manifester level checks for the
|
||
purpose of overcoming power resistance.
|
||
Fire: A field of this energy type deals +1 point of damage per die.
|
||
Sonic: A field of this energy type deals -1 point of damage per die and
|
||
ignores an object’s hardness.
|
||
|
||
This power’s subtype is the same as the type of energy you manifest.
|
||
|
||
Augment: For every additional power point you spend, this power’s duration
|
||
increases by 1 minute.
|
||
*/
|
||
|
||
#include "psi_inc_psifunc"
|
||
#include "psi_inc_pwresist"
|
||
#include "psi_spellhook"
|
||
#include "prc_inc_sp_tch"
|
||
#include "psi_inc_enrgypow"
|
||
|
||
const string ENERGY_RETORT_VARNAME_BASE = "PRC_Power_EnergyRetort_";
|
||
|
||
void DispelMonitor(object oManifester, object oTarget, int nSpellID, int nBeatsRemaining);
|
||
|
||
void main()
|
||
{
|
||
// Are we running the manifestation part or the onhit part?
|
||
if(GetRunningEvent() != EVENT_ONHIT)
|
||
{
|
||
// Power use hook
|
||
if (!PsiPrePowerCastCode()) return;
|
||
|
||
object oManifester = OBJECT_SELF;
|
||
object oTarget = PRCGetSpellTargetObject();
|
||
struct manifestation manif =
|
||
EvaluateManifestation(oManifester, oTarget,
|
||
PowerAugmentationProfile(PRC_NO_GENERIC_AUGMENTS,
|
||
1, PRC_UNLIMITED_AUGMENTATION
|
||
),
|
||
METAPSIONIC_CHAIN | METAPSIONIC_EMPOWER | METAPSIONIC_EXTEND | METAPSIONIC_MAXIMIZE
|
||
);
|
||
|
||
if(manif.bCanManifest)
|
||
{
|
||
int nDC = GetManifesterDC(oManifester);
|
||
int nPen = GetPsiPenetration(oManifester);
|
||
effect eDur = EffectVisualEffect(VFX_DUR_ELEMENTAL_SHIELD);
|
||
float fDuration = 60.0f * (manif.nManifesterLevel + manif.nTimesAugOptUsed_1);
|
||
if(manif.bExtend) fDuration *= 2;
|
||
|
||
// Get the OnHitCast: Unique on the target's armor / hide
|
||
ExecuteScript("prc_keep_onhit_a", oTarget);
|
||
|
||
// Hook eventscript
|
||
AddEventScript(oTarget, EVENT_ONHIT, "psi_pow_enrtrt", TRUE, FALSE);
|
||
|
||
// Store data for use when hit
|
||
SetLocalManifestation(oTarget, ENERGY_RETORT_VARNAME_BASE + "Manifestation", manif);
|
||
SetLocalInt(oTarget, ENERGY_RETORT_VARNAME_BASE + "DC", nDC);
|
||
SetLocalInt(oTarget, ENERGY_RETORT_VARNAME_BASE + "SRPenetration", nPen);
|
||
|
||
// Do VFX for the monitor to look for
|
||
SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eDur, oTarget, fDuration, TRUE, manif.nSpellID, manif.nManifesterLevel);
|
||
|
||
// Start effect end monitor
|
||
DelayCommand(6.0f, DispelMonitor(oManifester, oTarget, manif.nSpellID, FloatToInt(fDuration) / 6));
|
||
}// end if - Successfull manifestation
|
||
}// end if - Manifesting a power
|
||
else
|
||
{
|
||
object oHit = OBJECT_SELF;
|
||
object oItem = GetSpellCastItem();
|
||
|
||
// Make sure the one doing the triggering hit was someone else
|
||
if(GetBaseItemType(oItem) == BASE_ITEM_ARMOR ||
|
||
GetBaseItemType(oItem) == BASE_ITEM_CREATUREITEM
|
||
)
|
||
{
|
||
// Once per round lock
|
||
if(GetLocalInt(oHit, ENERGY_RETORT_VARNAME_BASE + "UsedForRound"))
|
||
return;
|
||
else
|
||
{
|
||
SetLocalInt(oHit, ENERGY_RETORT_VARNAME_BASE + "UsedForRound", TRUE);
|
||
DelayCommand(6.0f, DeleteLocalInt(oHit, ENERGY_RETORT_VARNAME_BASE + "UsedForRound"));
|
||
}
|
||
|
||
// Get data from the original manifestation
|
||
struct manifestation manif = GetLocalManifestation(oHit, ENERGY_RETORT_VARNAME_BASE + "Manifestation");
|
||
object oMainTarget = PRCGetSpellTargetObject();
|
||
struct energy_adjustments enAdj =
|
||
EvaluateEnergy(manif.nSpellID, POWER_ENERGYRETORT_COLD, POWER_ENERGYRETORT_ELEC, POWER_ENERGYRETORT_FIRE, POWER_ENERGYRETORT_SONIC,
|
||
VFX_BEAM_COLD, VFX_BEAM_LIGHTNING, VFX_BEAM_FIRE, VFX_BEAM_MIND);
|
||
int nDC = GetLocalInt(oHit, ENERGY_RETORT_VARNAME_BASE + "DC") + enAdj.nDCMod;
|
||
int nPen = GetLocalInt(oHit, ENERGY_RETORT_VARNAME_BASE + "SRPenetration") + enAdj.nPenMod;
|
||
int nNumberOfDice = 4;
|
||
int nDieSize = 6;
|
||
int nTouchAttack,
|
||
nOriginalDamage,
|
||
nDamage,
|
||
i;
|
||
effect eVis = EffectVisualEffect(enAdj.nVFX1);
|
||
effect eRay,
|
||
eDamage;
|
||
float fRange = FeetToMeters(25.0f + (5.0f * (manif.nManifesterLevel / 2)));
|
||
object oChainTarget;
|
||
|
||
// Test range
|
||
if(GetDistanceBetween(oHit, oMainTarget) <= fRange)
|
||
{
|
||
// Determine Chain Power targets
|
||
if(manif.bChain)
|
||
EvaluateChainPower(manif, oMainTarget, TRUE);
|
||
|
||
// Let the AI know
|
||
PRCSignalSpellEvent(oMainTarget, TRUE, manif.nSpellID, manif.oManifester);
|
||
if(manif.bChain)
|
||
for(i = 0; i < array_get_size(manif.oManifester, PRC_CHAIN_POWER_ARRAY); i++)
|
||
PRCSignalSpellEvent(array_get_object(manif.oManifester, PRC_CHAIN_POWER_ARRAY, i), TRUE, manif.nSpellID, manif.oManifester);
|
||
|
||
// Touch attack the main target
|
||
nTouchAttack = PRCDoRangedTouchAttack(oMainTarget);
|
||
|
||
// Shoot the ray
|
||
eRay = EffectBeam(enAdj.nVFX2, manif.oManifester, BODY_NODE_HAND, !(nTouchAttack > 0));
|
||
SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eRay, oMainTarget, 1.7, FALSE);
|
||
|
||
if(nTouchAttack > 0)
|
||
{
|
||
//Check for Power Resistance
|
||
if(PRCMyResistPower(manif.oManifester, oMainTarget, nPen))
|
||
{
|
||
// Roll damage
|
||
nDamage = MetaPsionicsDamage(manif, nDieSize, nNumberOfDice, 0, enAdj.nBonusPerDie, TRUE, TRUE);
|
||
// Target-specific stuff
|
||
nDamage = GetTargetSpecificChangesToDamage(oMainTarget, manif.oManifester, nDamage, TRUE, TRUE);
|
||
|
||
// Do save
|
||
if(enAdj.nSaveType == SAVING_THROW_TYPE_COLD)
|
||
{
|
||
// Cold has a fort save for half
|
||
if(PRCMySavingThrow(SAVING_THROW_FORT, oMainTarget, nDC, enAdj.nSaveType))
|
||
{
|
||
if (GetHasMettle(oMainTarget, SAVING_THROW_FORT))
|
||
// This script does nothing if it has Mettle, bail
|
||
nDamage = 0;
|
||
nDamage /= 2;
|
||
}
|
||
}
|
||
else
|
||
// Adjust damage according to Reflex Save, Evasion or Improved Evasion
|
||
nDamage = PRCGetReflexAdjustedDamage(nDamage, oMainTarget, nDC, enAdj.nSaveType);
|
||
|
||
// Apply VFX and damage the main target, assuming there is still damage left to deal after modification
|
||
if(nDamage > 0)
|
||
{
|
||
// Apply the damage. Critical hits & precision damage apply
|
||
ApplyTouchAttackDamage(manif.oManifester, oMainTarget, nTouchAttack, nDamage, enAdj.nDamageType);
|
||
|
||
// Apply damage to Chain targets
|
||
if(manif.bChain)
|
||
{
|
||
// Halve the damage
|
||
nOriginalDamage = nDamage / 2;
|
||
|
||
for(i = 0; i < array_get_size(manif.oManifester, PRC_CHAIN_POWER_ARRAY); i++)
|
||
{
|
||
// Get target to affect
|
||
oChainTarget = array_get_object(manif.oManifester, PRC_CHAIN_POWER_ARRAY, i);
|
||
// Determine damage
|
||
nDamage = nOriginalDamage;
|
||
// Target-specific stuff
|
||
nDamage = GetTargetSpecificChangesToDamage(oChainTarget, manif.oManifester, nDamage, TRUE, TRUE);
|
||
|
||
// Do save
|
||
if(enAdj.nSaveType == SAVING_THROW_TYPE_COLD)
|
||
{
|
||
// Cold has a fort save for half
|
||
if(PRCMySavingThrow(SAVING_THROW_FORT, oChainTarget, nDC, enAdj.nSaveType))
|
||
nDamage /= 2;
|
||
}
|
||
else
|
||
// Adjust damage according to Reflex Save, Evasion or Improved Evasion
|
||
nDamage = PRCGetReflexAdjustedDamage(nDamage, oChainTarget, nDC, enAdj.nSaveType);
|
||
|
||
// Apply VFX and damage to chained target, assuming there is still damage left to deal after modification
|
||
if(nDamage > 0)
|
||
{
|
||
// Apply VFX and damage to chained target
|
||
eDamage = EffectDamage(nDamage, enAdj.nDamageType);
|
||
SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDamage, oChainTarget);
|
||
SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oChainTarget);
|
||
SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectBeam(enAdj.nVFX2, oMainTarget, BODY_NODE_CHEST), oChainTarget, 1.7, FALSE);
|
||
}// end if - There was still damage remaining to be dealt after adjustments
|
||
}// end for - Chain targets
|
||
}// end if - Chain Power
|
||
}// end if - There is damage left to be dealt
|
||
}// end if - SR check
|
||
}// end if - Touch attack hit
|
||
}// end if - Range check
|
||
}// end if - Manifester was the one hit in the triggering attack
|
||
}// end else - Running OnHit event
|
||
}
|
||
|
||
void DispelMonitor(object oManifester, object oTarget, int nSpellID, int nBeatsRemaining)
|
||
{
|
||
// Has the power ended since the last beat, or does the duration run out now
|
||
if((--nBeatsRemaining == 0) ||
|
||
PRCGetDelayedSpellEffectsExpired(nSpellID, oTarget, oManifester)
|
||
)
|
||
{
|
||
if(DEBUG) DoDebug("psi_pow_enrtrt: Expired, cleaning up");
|
||
// Clear the effect presence marker
|
||
DeleteLocalManifestation(oTarget, ENERGY_RETORT_VARNAME_BASE + "Manifestation");
|
||
DeleteLocalInt(oTarget, ENERGY_RETORT_VARNAME_BASE + "DC");
|
||
DeleteLocalInt(oTarget, ENERGY_RETORT_VARNAME_BASE + "SRPenetration");
|
||
// Remove the eventscript
|
||
RemoveEventScript(oTarget, EVENT_ONHIT, "psi_pow_enrtrt", TRUE, FALSE);
|
||
}
|
||
else
|
||
DelayCommand(6.0f, DispelMonitor(oManifester, oTarget, nSpellID, nBeatsRemaining));
|
||
}
|