Further file organization
Further file organization
This commit is contained in:
Jaysyn904
216
nwn/nwnprc/trunk/smp/phs_s_chillmetal.nss
Normal file
216
nwn/nwnprc/trunk/smp/phs_s_chillmetal.nss
Normal file
@@ -0,0 +1,216 @@
|
||||
/*:://////////////////////////////////////////////
|
||||
//:: 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));
|
||||
}
|
||||
}
|
||||
}
|
||||
Reference in New Issue
Block a user