forked from Jaysyn/PRC8
217 lines
8.1 KiB
Plaintext
217 lines
8.1 KiB
Plaintext
|
/*:://////////////////////////////////////////////
|
|||
|
|
//:: Spell Name Chill Metal
|
|||
|
|
//:: Spell FileName PHS_S_ChillMetal
|
|||
|
|
//:://////////////////////////////////////////////
|
|||
|
|
//:: In Game Spell desctiption
|
|||
|
|
//:://////////////////////////////////////////////
|
|||
|
|
Transmutation [Cold]
|
|||
|
|
Level: Drd 2
|
|||
|
|
Components: V, S, DF
|
|||
|
|
Casting Time: 1 standard action
|
|||
|
|
Range: Close (8M)
|
|||
|
|
Target: Metal equipment of one enemy creature per two
|
|||
|
|
levels, within a 10-M. radius.
|
|||
|
|
Duration: 7 rounds
|
|||
|
|
Saving Throw: Will negates
|
|||
|
|
Spell Resistance: Yes
|
|||
|
|
|
|||
|
|
Chill metal makes metal extremely cold, damaging the holding creature.
|
|||
|
|
|
|||
|
|
A creature takes cold damage if its equipment is chilled. It takes full
|
|||
|
|
damage if it is holding a metal weapon, using a shield and wearing metal
|
|||
|
|
armor. It takes half damage if it is only carrying a shield and metal weapon,
|
|||
|
|
or armor with no shield or metal weapon, or take 1/4 damage if it is holding
|
|||
|
|
just a metal weapon or just a metal shield. The creature takes minimum damage
|
|||
|
|
(1 point or 2 points; see the table) even if it isn't wearing anything metal.
|
|||
|
|
|
|||
|
|
On the first round of the spell, the metal becomes chilly and uncomfortable
|
|||
|
|
to touch but deals no damage. The same effect also occurs on the last round
|
|||
|
|
of the spell<6C>s duration. During the second (and also the next-to-last) round,
|
|||
|
|
icy coldness causes pain and damage. In the third, fourth, and fifth rounds,
|
|||
|
|
the metal is freezing cold, causing more damage, as shown on the table below.
|
|||
|
|
|
|||
|
|
Round Metal Temperature Damage
|
|||
|
|
1 Cold None
|
|||
|
|
2 Icy 1d4 points
|
|||
|
|
3-5 Freezing 2d4 points
|
|||
|
|
6 Icy 1d4 points
|
|||
|
|
7 Cold None
|
|||
|
|
|
|||
|
|
Chill metal counters and dispels heat metal.
|
|||
|
|
//:://////////////////////////////////////////////
|
|||
|
|
//:: Spell Effects Applied / Notes
|
|||
|
|
//:://////////////////////////////////////////////
|
|||
|
|
Ok, ok, ok...affects enemies only
|
|||
|
|
|
|||
|
|
Easy enough, it does this:
|
|||
|
|
|
|||
|
|
- May target allies if they have Heat Metal on them, because it will dispel it.
|
|||
|
|
- If it is an enemy, it will chill only if they are not already being chilled.
|
|||
|
|
- Will apply a duration effect, and do a heartbeat effect lasting 7 rounds.
|
|||
|
|
|
|||
|
|
Like ACid arrow. Damage:
|
|||
|
|
|
|||
|
|
- Full: Using a metal weapon, a shield, and metal armor
|
|||
|
|
- Half: Just armor, or a shield and a metal weapon (or two metal weapons, duh!)
|
|||
|
|
- Quarter: Just a metal weapon or just a shield
|
|||
|
|
- Minimum: No metal weapon, shield or armor on.
|
|||
|
|
//:://////////////////////////////////////////////
|
|||
|
|
//:: Created By: Jasperre
|
|||
|
|
//::////////////////////////////////////////////*/
|
|||
|
|
|
|||
|
|
#include "PHS_INC_SPELLS"
|
|||
|
|
|
|||
|
|
// Put in 1 to start. Works from nRound goes to 7.
|
|||
|
|
// Does damage each round based on equipment.
|
|||
|
|
void DoChillEffect(int nRound, object oTarget, object oCaster, int nMetaMagic);
|
|||
|
|
|
|||
|
|
void main()
|
|||
|
|
{
|
|||
|
|
// Spell Hook Check.
|
|||
|
|
if(!PHS_SpellHookCheck()) return;
|
|||
|
|
|
|||
|
|
// Declare major variables
|
|||
|
|
object oCaster = OBJECT_SELF;
|
|||
|
|
object oTarget;
|
|||
|
|
location lTarget = GetSpellTargetLocation();
|
|||
|
|
int nSpellSaveDC = PHS_GetSpellSaveDC();
|
|||
|
|
int nMetaMagic = PHS_GetMetaMagicFeat();
|
|||
|
|
float fDelay;
|
|||
|
|
|
|||
|
|
// Duration is 7 rounds always
|
|||
|
|
float fDuration = RoundsToSeconds(7);
|
|||
|
|
|
|||
|
|
// Declare Effects
|
|||
|
|
effect eVis = EffectVisualEffect(VFX_IMP_FROST_S);
|
|||
|
|
effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE);
|
|||
|
|
effect eDispel = EffectVisualEffect(VFX_IMP_DISPEL);
|
|||
|
|
|
|||
|
|
// Apply AOE visual
|
|||
|
|
effect eImpact = EffectVisualEffect(PHS_VFX_FNF_CHILL_METAL);
|
|||
|
|
PHS_ApplyLocationVFX(lTarget, eImpact);
|
|||
|
|
|
|||
|
|
// Get all targets in a sphere, 10M radius.
|
|||
|
|
oTarget = GetFirstObjectInShape(SHAPE_SPHERE, 10.0, lTarget, TRUE, OBJECT_TYPE_CREATURE);
|
|||
|
|
// Loop targets
|
|||
|
|
while(GetIsObjectValid(oTarget))
|
|||
|
|
{
|
|||
|
|
// Get the distance between the explosion and the target to calculate delay
|
|||
|
|
fDelay = GetDistanceBetweenLocations(lTarget, GetLocation(oTarget))/20;
|
|||
|
|
|
|||
|
|
// Check if an ally
|
|||
|
|
if(GetIsFriend(oTarget))
|
|||
|
|
{
|
|||
|
|
// Dispels heat metal
|
|||
|
|
if(PHS_RemoveSpellEffectsFromTarget(PHS_SPELL_HEAT_METAL, oTarget, fDelay))
|
|||
|
|
{
|
|||
|
|
// Fire cast spell at event for the specified target
|
|||
|
|
PHS_SignalSpellCastAt(oTarget, PHS_SPELL_CHILL_METAL, FALSE);
|
|||
|
|
|
|||
|
|
// Dispel VFX
|
|||
|
|
DelayCommand(fDelay, PHS_ApplyVFX(oTarget, eDispel));
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
// PvP Check
|
|||
|
|
else if(!GetIsReactionTypeFriendly(oTarget, oCaster) &&
|
|||
|
|
// Make sure they are not immune to spells
|
|||
|
|
!PHS_TotalSpellImmunity(oTarget) &&
|
|||
|
|
// Not got the spell effect too
|
|||
|
|
!GetHasSpellEffect(PHS_SPELL_CHILL_METAL, oTarget))
|
|||
|
|
{
|
|||
|
|
// Fire cast spell at event for the specified target
|
|||
|
|
PHS_SignalSpellCastAt(oTarget, PHS_SPELL_CHILL_METAL);
|
|||
|
|
|
|||
|
|
// Spell resistance And immunity checking.
|
|||
|
|
if(!PHS_SpellResistanceCheck(oCaster, oTarget, fDelay))
|
|||
|
|
{
|
|||
|
|
// Will save negates
|
|||
|
|
if(!PHS_SavingThrow(SAVING_THROW_WILL, oTarget, nSpellSaveDC, SAVING_THROW_TYPE_COLD, oCaster, fDelay))
|
|||
|
|
{
|
|||
|
|
DelayCommand(fDelay, PHS_ApplyDurationAndVFX(oTarget, eVis, eDur, fDuration));
|
|||
|
|
// We start on round 2, so put in 1
|
|||
|
|
DelayCommand(fDelay + 6.0, DoChillEffect(1, oTarget, oCaster, nMetaMagic));
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
// Get Next Target
|
|||
|
|
oTarget = GetNextObjectInShape(SHAPE_SPHERE, 10.0, lTarget, TRUE, OBJECT_TYPE_CREATURE);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
// Put in 1 to start. Works from nRound goes to 7.
|
|||
|
|
// Does damage each round based on equipment.
|
|||
|
|
void DoChillEffect(int nRound, object oTarget, object oCaster, int nMetaMagic)
|
|||
|
|
{
|
|||
|
|
if(GetIsObjectValid(oTarget) && GetIsObjectValid(oCaster) &&
|
|||
|
|
GetHasSpellEffect(PHS_SPELL_CHILL_METAL, oTarget))
|
|||
|
|
{
|
|||
|
|
// Will only do damage on rounds 2 to 6.
|
|||
|
|
int nCurrentRound = nRound + 1;
|
|||
|
|
|
|||
|
|
// Get rounds
|
|||
|
|
if(nCurrentRound > 2)
|
|||
|
|
{
|
|||
|
|
// Get percent of damage to take. Could be 1 or 2, or all of it.
|
|||
|
|
|
|||
|
|
// We get 25% less per weapon slot, or 50% less per armor.
|
|||
|
|
float fPercent = 0.0;
|
|||
|
|
object oItem = GetItemInSlot(INVENTORY_SLOT_CHEST, oTarget);
|
|||
|
|
// 4 or more is metal armor - chain shirt is meta, studded leather is not.
|
|||
|
|
if(PHS_GetArmorType(oItem) >= 4)
|
|||
|
|
{
|
|||
|
|
fPercent += 0.5;
|
|||
|
|
}
|
|||
|
|
int nCnt;
|
|||
|
|
//int INVENTORY_SLOT_RIGHTHAND = 4;
|
|||
|
|
//int INVENTORY_SLOT_LEFTHAND = 5;
|
|||
|
|
for(nCnt = INVENTORY_SLOT_RIGHTHAND; nCnt <= INVENTORY_SLOT_LEFTHAND; nCnt++)
|
|||
|
|
{
|
|||
|
|
// Check hand weapons
|
|||
|
|
oItem = GetItemInSlot(nCnt, oTarget);
|
|||
|
|
// Need a shield (any) or it to be a metal weapon.
|
|||
|
|
if(PHS_GetIsMetalWeapon(oItem) ||
|
|||
|
|
PHS_GetIsShield(oItem))
|
|||
|
|
{
|
|||
|
|
fPercent += 0.25;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
// We time damage by fPercent, noting that if fPercent is 0, we
|
|||
|
|
// just do minimum damage
|
|||
|
|
|
|||
|
|
int nDam, nDice;
|
|||
|
|
// Get possible damage.
|
|||
|
|
if(nCurrentRound == 2 || nCurrentRound == 6)
|
|||
|
|
{
|
|||
|
|
nDice = 1;
|
|||
|
|
}
|
|||
|
|
else
|
|||
|
|
{
|
|||
|
|
nDice = 2;
|
|||
|
|
}
|
|||
|
|
// Check percent of damage
|
|||
|
|
if(fPercent != 0.0)
|
|||
|
|
{
|
|||
|
|
nDam = FloatToInt(IntToFloat(PHS_MaximizeOrEmpower(4, 1, nMetaMagic)) * fPercent);
|
|||
|
|
}
|
|||
|
|
else
|
|||
|
|
{
|
|||
|
|
nDam = nDice;
|
|||
|
|
}
|
|||
|
|
// Do damage, if any
|
|||
|
|
if(nDam <= nDice)// Should never be true
|
|||
|
|
{
|
|||
|
|
nDam = nDice;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
// Do damage and VFX
|
|||
|
|
effect eVis = EffectVisualEffect(VFX_IMP_FROST_S);
|
|||
|
|
PHS_ApplyDamageVFXToObject(oTarget, eVis, nDam, DAMAGE_TYPE_COLD);
|
|||
|
|
}
|
|||
|
|
// If we are at 5 or less (if we are at 6, when it next fires, it'll be round 7!)
|
|||
|
|
if(nCurrentRound <= 5)
|
|||
|
|
{
|
|||
|
|
DelayCommand(6.0, DoChillEffect(nCurrentRound, oTarget, oCaster, nMetaMagic));
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|