forked from Jaysyn/PRC8
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<65>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 <20>ectoburst<73> 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<63>s hardness.
|
|||
|
|
|
|||
|
|
This power<65>s subtype is the same as the type of energy you manifest.
|
|||
|
|
|
|||
|
|
Augment: For every additional power point you spend, this power<65>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));
|
|||
|
|
}
|