diff --git a/.gitignore b/.gitignore index 19db99b..40c9f06 100644 --- a/.gitignore +++ b/.gitignore @@ -1,2 +1,4 @@ _module/Underworld 2 \[PRC8-CEP3\].mod +*.hak +*.md5 diff --git a/_haks/BuildHaks.cmd b/_haks/BuildHaks.cmd new file mode 100644 index 0000000..0d38a9a --- /dev/null +++ b/_haks/BuildHaks.cmd @@ -0,0 +1 @@ +NWN.CLI.exe -k \ No newline at end of file diff --git a/_haks/NWN.CLI.exe b/_haks/NWN.CLI.exe new file mode 100644 index 0000000..67fdd29 Binary files /dev/null and b/_haks/NWN.CLI.exe differ diff --git a/_haks/NWN_compDcomp.exe b/_haks/NWN_compDcomp.exe new file mode 100644 index 0000000..18253e0 Binary files /dev/null and b/_haks/NWN_compDcomp.exe differ diff --git a/_haks/hakbuilder.json b/_haks/hakbuilder.json new file mode 100644 index 0000000..70e04e8 --- /dev/null +++ b/_haks/hakbuilder.json @@ -0,0 +1,15 @@ +{ + "OutputPath": "./output/", + "HakList": [ + { + "Name": "poa_exp_abilities", + "Path": "./poa_exp_abilities/", + "CompileModels": false + }, + { + "Name": "poa_exp_spells", + "Path": "./poa_exp_spells/", + "CompileModels": false + }, + ] +} \ No newline at end of file diff --git a/_haks/nwn_erf.exe b/_haks/nwn_erf.exe new file mode 100644 index 0000000..1dba285 Binary files /dev/null and b/_haks/nwn_erf.exe differ diff --git a/_haks/nwnmdlcomp.exe b/_haks/nwnmdlcomp.exe new file mode 100644 index 0000000..4cdc440 Binary files /dev/null and b/_haks/nwnmdlcomp.exe differ diff --git a/_haks/pcre64.dll b/_haks/pcre64.dll new file mode 100644 index 0000000..40b4ac3 Binary files /dev/null and b/_haks/pcre64.dll differ diff --git a/_haks/poa_exp_abilities/PRC_vampdrain.ncs b/_haks/poa_exp_abilities/PRC_vampdrain.ncs new file mode 100644 index 0000000..6aa090a Binary files /dev/null and b/_haks/poa_exp_abilities/PRC_vampdrain.ncs differ diff --git a/_haks/poa_exp_abilities/PRC_vampdrain.nss b/_haks/poa_exp_abilities/PRC_vampdrain.nss new file mode 100644 index 0000000..23eab8e --- /dev/null +++ b/_haks/poa_exp_abilities/PRC_vampdrain.nss @@ -0,0 +1,151 @@ +//:://///////////////////////////////////////////// +//:: Vampiric Drain +//:: PRC_vampdrain.nss +//::////////////////////////////////////////////// +/* + Drain living, caster heals + Drain dead, caster dies +*/ +//::////////////////////////////////////////////// +//:: Created By: Zedium +//:: Created On: April 5, 2004 +//::////////////////////////////////////////////// +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +//------------------------------------------------------------------------------ +// GZ: gets rids of temporary hit points so that they will not stack +//------------------------------------------------------------------------------ +void PRCRemoveTempHitPoints() +{ + effect eProtection; + int nCnt = 0; + + eProtection = GetFirstEffect(OBJECT_SELF); + while (GetIsEffectValid(eProtection)) + { + if(GetEffectType(eProtection) == EFFECT_TYPE_TEMPORARY_HITPOINTS) + RemoveEffect(OBJECT_SELF, eProtection); + eProtection = GetNextEffect(OBJECT_SELF); + } +} + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_NECROMANCY); + /* + Spellcast Hook Code + Added 2003-06-23 by GeorgZ + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + + */ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + + // End of Spell Cast Hook + + //Declare major variables + object oTarget = PRCGetSpellTargetObject(); + int nMetaMagic = PRCGetMetaMagicFeat(); + + int nCasterLevel = PRCGetCasterLevel(OBJECT_SELF); + int nDDice = nCasterLevel /4; + if ((nDDice) == 0) + { + nDDice = 1; + } + //Damage Limit + else if (nDDice>20) + { + nDDice = 20; + } + + int nDamage = d6(nDDice); + //-------------------------------------------------------------------------- + //Enter Metamagic conditions + //-------------------------------------------------------------------------- + nDamage = PRCMaximizeOrEmpower(6,nDDice,nMetaMagic); + int nDuration = nCasterLevel/3; + + if ((nMetaMagic & METAMAGIC_EXTEND)) + { + nDuration *= 2; + } + //nDamage += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF); + //-------------------------------------------------------------------------- + //Limit damage to max hp + 10 + //-------------------------------------------------------------------------- + int nMax = GetCurrentHitPoints(oTarget) + 10; + if(nMax < nDamage) + { + nDamage = nMax; + } + + effect eHeal = EffectTemporaryHitpoints(nDamage/2); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE); + effect eLink = EffectLinkEffects(eHeal, eDur); + effect eHurt = PRCEffectDamage(oTarget, nDamage/2); + effect eBad =EffectTemporaryHitpoints(nDamage); + effect eNegLink = EffectLinkEffects(eBad, eDur); + effect eDamage = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_NEGATIVE); + effect eVis = EffectVisualEffect(VFX_IMP_NEGATIVE_ENERGY); + effect eVisHeal = EffectVisualEffect(VFX_IMP_HEALING_M); + effect eImpact = EffectVisualEffect(VFX_FNF_LOS_EVIL_10); + float fDelay; + + nCasterLevel +=SPGetPenetr(); + + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eImpact, PRCGetSpellTargetLocation()); + //Get first target in shape + oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_MEDIUM, PRCGetSpellTargetLocation()); + while (GetIsObjectValid(oTarget)) + { + int iTombTainted = GetHasFeat(FEAT_TOMB_TAINTED_SOUL, oTarget) && GetAlignmentGoodEvil(oTarget) != ALIGNMENT_GOOD; + //Check if the target is undead + if( MyPRCGetRacialType(oTarget) == RACIAL_TYPE_UNDEAD || iTombTainted || GetLocalInt(oTarget, "AcererakHealing")) + { + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, OBJECT_SELF); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eHurt, OBJECT_SELF); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVisHeal, oTarget); + PRCRemoveTempHitPoints(); + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, HoursToSeconds(1)); + } + //Check if the target is hostile, and not an undead or construct + //or protected by a spell + if(!GetIsReactionTypeFriendly(oTarget) && + MyPRCGetRacialType(oTarget) != RACIAL_TYPE_UNDEAD && + !iTombTainted && + MyPRCGetRacialType(oTarget) != RACIAL_TYPE_CONSTRUCT && + !GetHasSpellEffect(SPELL_NEGATIVE_ENERGY_PROTECTION, oTarget)) + { + if(PRCDoResistSpell(OBJECT_SELF, oTarget,nCasterLevel) == 0) + { + if(/*Will Save*/ PRCMySavingThrow(SAVING_THROW_WILL, oTarget, (PRCGetSaveDC(oTarget,OBJECT_SELF)), SAVING_THROW_TYPE_NEGATIVE, OBJECT_SELF, fDelay)) + { + nDamage = nDamage/2; + + if (GetHasMettle(oTarget, SAVING_THROW_WILL)) // Ignores partial effects + { + nDamage = 0; + } + } + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eDamage, oTarget); + PRCBonusDamage(oTarget); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVisHeal, OBJECT_SELF); + PRCRemoveTempHitPoints(); + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, OBJECT_SELF, HoursToSeconds(1)); + } + } + //Get next target in spell area + oTarget = GetNextInPersistentObject(); + } + DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); + // Getting rid of the integer used to hold the spells spell school + } diff --git a/_haks/poa_exp_abilities/inv_adeptbreath.ncs b/_haks/poa_exp_abilities/inv_adeptbreath.ncs new file mode 100644 index 0000000..45d710e Binary files /dev/null and b/_haks/poa_exp_abilities/inv_adeptbreath.ncs differ diff --git a/_haks/poa_exp_abilities/inv_adeptbreath.nss b/_haks/poa_exp_abilities/inv_adeptbreath.nss new file mode 100644 index 0000000..6b01b71 --- /dev/null +++ b/_haks/poa_exp_abilities/inv_adeptbreath.nss @@ -0,0 +1,183 @@ +//:://///////////////////////////////////////////// +//:: Dragonfire Adept Breath Effects +//:: inv_adeptbreath.nss +//:://///////////////////////////////////////////// +/* + Handles the breath effects for Dragonfire Adepts +*/ +//::////////////////////////////////////////////// +//:: Created By: Fox +//:: Created On: Jan 25, 2007 +//::////////////////////////////////////////////// + +#include "prc_inc_spells" +#include "prc_inc_breath" +#include "inv_inc_invfunc" +#include "nivel_ext" +void main() +{ + object oPC = OBJECT_SELF; + location lTarget = PRCGetSpellTargetLocation(); + int nClass = GetLevelByClass(CLASS_TYPE_DRAGONFIRE_ADEPT, oPC); + //PrC arcane spellcasting levels grant damage dice and DC + nClass += GetInvocationPRCLevels(oPC); + int nDice = (nClass + 1) / 2; + int nSaveDCBonus = nClass / 2; + float fRange = nClass < 10 ? 30.0 : 60.0; + int nAlignment = GetAlignmentGoodEvil(oPC); + int nSpellID = GetSpellId(); + int nLastEffectUsed = GetLocalInt(oPC, "LastBreathEffect"); + struct breath BaseBreath; + + if(GetHitDice(oPC)>=80) + { + nDice = (nClass + 1) + (ObterNivelJogador(oPC)-80) / 2; + nSaveDCBonus = nClass + (ObterNivelJogador(oPC)-80) / 2; + fRange = nClass < 20 ? 60.0 : 90.0; + } + + if(DEBUG) DoDebug("inv_adeptbreath: range: " + FloatToString(fRange)); + + if(GetLocalInt(oPC, "AdeptTiamatLock")) + { + SendMessageToPC(oPC, "You cannot use your breath weapon again until next round"); + return; + } + + if(nLastEffectUsed == nSpellID + && nSpellID != BREATH_SHAPED_BREATH + && nSpellID != BREATH_CLOUD_BREATH + && nSpellID != BREATH_ENDURING_BREATH) + { + SendMessageToPC(oPC, "You cannot use the same breath effect two rounds in a row."); + return; + } + + switch(nSpellID) + { + case BREATH_FIRE_CONE: + BaseBreath = CreateBreath(oPC, FALSE, fRange, DAMAGE_TYPE_FIRE, 6, nDice, ABILITY_CONSTITUTION, nSaveDCBonus, BREATH_NORMAL, 0); + ApplyBreath(BaseBreath, lTarget); break; + + case BREATH_FIRE_LINE: + BaseBreath = CreateBreath(oPC, TRUE, fRange * 2, DAMAGE_TYPE_FIRE, 6, nDice, ABILITY_CONSTITUTION, nSaveDCBonus, BREATH_NORMAL, 0); + ApplyBreath(BaseBreath, lTarget); break; + + case BREATH_FROST_CONE: + BaseBreath = CreateBreath(oPC, FALSE, fRange, DAMAGE_TYPE_COLD, 6, nDice, ABILITY_CONSTITUTION, nSaveDCBonus, BREATH_NORMAL, 0); + ApplyBreath(BaseBreath, lTarget); break; + + case BREATH_ELECTRIC_LINE: + BaseBreath = CreateBreath(oPC, TRUE, fRange * 2, DAMAGE_TYPE_ELECTRICAL, 6, nDice, ABILITY_CONSTITUTION, nSaveDCBonus, BREATH_NORMAL, 0); + ApplyBreath(BaseBreath, lTarget); break; + + case BREATH_SICKENING_CONE: + BaseBreath = CreateBreath(oPC, FALSE, fRange, -1, 6, nDice, ABILITY_CONSTITUTION, nSaveDCBonus, BREATH_SICKENING, 0, SAVING_THROW_FORT); + ApplyBreath(BaseBreath, lTarget); break; + + case BREATH_ACID_CONE: + BaseBreath = CreateBreath(oPC, FALSE, fRange, DAMAGE_TYPE_ACID, 6, nDice, ABILITY_CONSTITUTION, nSaveDCBonus, BREATH_NORMAL, 0); + ApplyBreath(BaseBreath, lTarget); break; + + case BREATH_ACID_LINE: + BaseBreath = CreateBreath(oPC, TRUE, fRange * 2, DAMAGE_TYPE_ACID, 6, nDice, ABILITY_CONSTITUTION, nSaveDCBonus, BREATH_NORMAL, 0); + ApplyBreath(BaseBreath, lTarget); break; + + case BREATH_SHAPED_BREATH: + if(GetLocalInt(oPC, "AdeptShapedBreath")) + { + DeleteLocalInt(oPC, "AdeptShapedBreath"); + FloatingTextStringOnCreature("*Shaped Breath Removed*", oPC, FALSE); + } + else + { + SetLocalInt(oPC, "AdeptShapedBreath", TRUE); + FloatingTextStringOnCreature("*Shaped Breath Applied*", oPC, FALSE); + } break; + + case BREATH_SLOW_CONE: + BaseBreath = CreateBreath(oPC, FALSE, fRange, -1, 6, 2, ABILITY_CONSTITUTION, nSaveDCBonus, BREATH_SLOW, 0, SAVING_THROW_FORT); + ApplyBreath(BaseBreath, lTarget); break; + + case BREATH_WEAKENING_CONE: + BaseBreath = CreateBreath(oPC, FALSE, fRange, -1, 6, 6, ABILITY_CONSTITUTION, nSaveDCBonus, BREATH_WEAKENING, 0, SAVING_THROW_FORT); + ApplyBreath(BaseBreath, lTarget); break; + + case BREATH_CLOUD_BREATH: + if(GetLocalInt(oPC, "AdeptCloudBreath")) + { + DeleteLocalInt(oPC, "AdeptCloudBreath"); + FloatingTextStringOnCreature("*Cloud Breath Removed*", oPC, FALSE); + } + else + { + SetLocalInt(oPC, "AdeptCloudBreath", TRUE); + FloatingTextStringOnCreature("*Cloud Breath Applied*", oPC, FALSE); + } break; + + case BREATH_ENDURING_BREATH: + if(GetLocalInt(oPC, "AdeptEnduringBreath")) + { + DeleteLocalInt(oPC, "AdeptEnduringBreath"); + FloatingTextStringOnCreature("*Enduring Breath Removed*", oPC, FALSE); + } + else + { + SetLocalInt(oPC, "AdeptEnduringBreath", TRUE); + FloatingTextStringOnCreature("*Enduring Breath Applied*", oPC, FALSE); + } break; + + case BREATH_SLEEP_CONE: + BaseBreath = CreateBreath(oPC, FALSE, fRange, -1, 6, 1, ABILITY_CONSTITUTION, nSaveDCBonus, BREATH_SLEEP, 0, SAVING_THROW_WILL); + ApplyBreath(BaseBreath, lTarget); break; + + case BREATH_THUNDER_CONE: + BaseBreath = CreateBreath(oPC, FALSE, fRange, DAMAGE_TYPE_SONIC, 6, nDice, ABILITY_CONSTITUTION, nSaveDCBonus, BREATH_NORMAL, 0, SAVING_THROW_FORT); + ApplyBreath(BaseBreath, lTarget); break; + + case BREATH_BAHAMUT_LINE: + //evil characters can't use this breath + if(nAlignment == ALIGNMENT_EVIL) return; + BaseBreath = CreateBreath(oPC, TRUE, fRange * 2, DAMAGE_TYPE_MAGICAL, 6, nDice * 2, ABILITY_CONSTITUTION, nSaveDCBonus, BREATH_NORMAL, 0); + ApplyBreath(BaseBreath, lTarget); + if(nAlignment == ALIGNMENT_GOOD) ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectDamage(nClass * 2, DAMAGE_TYPE_POSITIVE, DAMAGE_POWER_ENERGY), oPC); + if(nAlignment == ALIGNMENT_NEUTRAL) ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectDamage(nClass * 4, DAMAGE_TYPE_POSITIVE, DAMAGE_POWER_ENERGY), oPC); + break; + + case BREATH_FORCE_LINE: + BaseBreath = CreateBreath(oPC, TRUE, fRange * 2, DAMAGE_TYPE_MAGICAL, 6, nDice, ABILITY_CONSTITUTION, nSaveDCBonus, BREATH_NORMAL, 0); + ApplyBreath(BaseBreath, lTarget); break; + + case BREATH_PARALYZE_CONE: + BaseBreath = CreateBreath(oPC, FALSE, fRange, -1, 6, 1, ABILITY_CONSTITUTION, nSaveDCBonus, BREATH_PARALYZE, 0, SAVING_THROW_FORT); + ApplyBreath(BaseBreath, lTarget); break; + + case BREATH_FIVEFOLD_TIAMAT: + //good characters can't use this breath + if(nAlignment == ALIGNMENT_GOOD) return; + BaseBreath = CreateBreath(oPC, TRUE, fRange * 2, DAMAGE_TYPE_ACID, 6, nDice, ABILITY_CONSTITUTION, nSaveDCBonus, BREATH_NORMAL, 0); + ApplyBreath(BaseBreath, lTarget); + BaseBreath = CreateBreath(oPC, TRUE, fRange * 2, DAMAGE_TYPE_ELECTRICAL, 6, nDice, ABILITY_CONSTITUTION, nSaveDCBonus, BREATH_NORMAL, 0); + ApplyBreath(BaseBreath, lTarget); + BaseBreath = CreateBreath(oPC, FALSE, fRange, DAMAGE_TYPE_ACID, 6, nDice, ABILITY_CONSTITUTION, nSaveDCBonus, BREATH_NORMAL, 0); + ApplyBreath(BaseBreath, lTarget); + BaseBreath = CreateBreath(oPC, FALSE, fRange, DAMAGE_TYPE_COLD, 6, nDice, ABILITY_CONSTITUTION, nSaveDCBonus, BREATH_NORMAL, 0); + ApplyBreath(BaseBreath, lTarget); + BaseBreath = CreateBreath(oPC, FALSE, fRange, DAMAGE_TYPE_FIRE, 6, nDice, ABILITY_CONSTITUTION, nSaveDCBonus, BREATH_NORMAL, 0); + ApplyBreath(BaseBreath, lTarget); + if(nAlignment == ALIGNMENT_EVIL) ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectDamage(nClass * 2, DAMAGE_TYPE_POSITIVE, DAMAGE_POWER_ENERGY), oPC); + if(nAlignment == ALIGNMENT_NEUTRAL) ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectDamage(nClass * 4, DAMAGE_TYPE_POSITIVE, DAMAGE_POWER_ENERGY), oPC); + SetLocalInt(oPC, "AdeptTiamatLock", TRUE); + DelayCommand(6.0, DeleteLocalInt(oPC, "AdeptTiamatLock")); + break; + } + + //Mark the breath effect as used. + if(nSpellID != BREATH_SHAPED_BREATH + && nSpellID != BREATH_CLOUD_BREATH + && nSpellID != BREATH_ENDURING_BREATH) + { + SetLocalInt(oPC, "LastBreathEffect", nSpellID); + DelayCommand(6.0, DeleteLocalInt(oPC, "LastBreathEffect")); + } +} \ No newline at end of file diff --git a/_haks/poa_exp_abilities/inv_drgnfireadpt.ncs b/_haks/poa_exp_abilities/inv_drgnfireadpt.ncs new file mode 100644 index 0000000..df13a8d Binary files /dev/null and b/_haks/poa_exp_abilities/inv_drgnfireadpt.ncs differ diff --git a/_haks/poa_exp_abilities/inv_drgnfireadpt.nss b/_haks/poa_exp_abilities/inv_drgnfireadpt.nss new file mode 100644 index 0000000..55b57da --- /dev/null +++ b/_haks/poa_exp_abilities/inv_drgnfireadpt.nss @@ -0,0 +1,41 @@ +//:://///////////////////////////////////////////// +//:: Dragonfire Adept +//:: inv_drgnfireadpt.nss +//:://///////////////////////////////////////////// +/* + Handles the passive bonuses for Dragonfire Adepts +*/ +//::////////////////////////////////////////////// +//:: Created By: Fox +//:: Created On: Jan 24, 2007 +//::////////////////////////////////////////////// + +#include "prc_class_const" +#include "inc_item_props" +#include "inv_inc_invfunc" +void main() +{ + int nClass = GetLevelByClass(CLASS_TYPE_DRAGONFIRE_ADEPT); + nClass += GetInvocationPRCLevels(OBJECT_SELF); + int nScales = (nClass + 8) / 5; + if(nScales > 1) + SetCompositeBonus(GetPCSkin(OBJECT_SELF), "DFA_AC", nScales, ITEM_PROPERTY_AC_BONUS); + + //Reduction + if(nClass > 5) + { + effect eReduction; + if(nClass > 95) eReduction = EffectDamageReduction(25, DAMAGE_POWER_PLUS_TWENTY); + else if(nClass > 85) eReduction = EffectDamageReduction(22, DAMAGE_POWER_PLUS_TWENTY); + else if(nClass > 75) eReduction = EffectDamageReduction(20, DAMAGE_POWER_PLUS_FIFTEEN); + else if(nClass > 65) eReduction = EffectDamageReduction(17, DAMAGE_POWER_PLUS_FIFTEEN); + else if(nClass > 55) eReduction = EffectDamageReduction(15, DAMAGE_POWER_PLUS_TEN); + else if(nClass > 45) eReduction = EffectDamageReduction(12, DAMAGE_POWER_PLUS_TEN); + else if(nClass > 35) eReduction = EffectDamageReduction(10, DAMAGE_POWER_PLUS_FIVE); + else if(nClass > 25) eReduction = EffectDamageReduction(7, DAMAGE_POWER_PLUS_FIVE); + else if(nClass > 15) eReduction = EffectDamageReduction(5, DAMAGE_POWER_PLUS_ONE); + else eReduction = EffectDamageReduction(2, DAMAGE_POWER_PLUS_ONE); + + ApplyEffectToObject(DURATION_TYPE_PERMANENT, ExtraordinaryEffect(eReduction), OBJECT_SELF); + } +} \ No newline at end of file diff --git a/_haks/poa_exp_abilities/nivel_ext.nss b/_haks/poa_exp_abilities/nivel_ext.nss new file mode 100644 index 0000000..87a3271 --- /dev/null +++ b/_haks/poa_exp_abilities/nivel_ext.nss @@ -0,0 +1,1180 @@ +/****************************************************************************** + * Script de Extensao para Calculo de Niveis (de Jogador e Itens) * + * Versão: 2.0 * + ****************************************************************************** + + ******************************************************************************/ + +//****************************************************************************** +// Declaracoes de Constantes Globais +//****************************************************************************** + +// Nivel maximo permitido no servidor. Nao e recomendado valores superiores a 120 +const int NIVEL_MAXIMO_PERMITIDO = 1000; //1000 + +//****************************************************************************** +// Assinaturas de Procedimentos, Funcoes e Metodos +//****************************************************************************** + +// Retorna quanto de experiencia e necessaria para se ter determinado nivel. +int ObterExperienciaNivel(int iNivel); + +// Retorna quanto de nivel se tem com determinada esperiencia. +int ObterNivelExperiencia(int iExperiencia); + +// Retorna o nivel real de determinado jogador a partir de sua experiencia. +int ObterNivelJogador(object oJogador); + +// Retorna o nivel de determinada criatura, obtida a partir das variaveis do jogo. +int ObterNivelCriatura(object oCriatura); + +// Converte iPreco do item em nivel necessario para utiliza-lo. +int ConverterPrecoNivelItem(int iPreco); + +// Retorna o nivel necessario para utilizar determinado item. +int ObterNivelItem(object oItem); + +// Retorna a experiencia necessaria para utilizar determinado item. +int ObterExperienciaItem(object oItem); + + +//****************************************************************************** +// Implementacao de Procedimentos, Funcoes e Metodos +//****************************************************************************** + +//****************************************************************************** +int ObterExperienciaNivel(int iNivel) +{ + int iContador; + int iXP = 0; + + for (iContador = 1;iContador <= iNivel;iContador++) + { + iXP += ((iContador - 1) * 1000); + } + + return iXP; +} +//****************************************************************************** + +//****************************************************************************** +int ObterNivelExperiencia(int iExperiencia) +{ + int iXPAtual = iExperiencia; + int iContadorNivel = 1; + int iXPProximoNivel = 1000; + + while (iXPAtual >= iXPProximoNivel) + { + iContadorNivel++; + iXPAtual = iXPAtual - iXPProximoNivel; + iXPProximoNivel = iXPProximoNivel + 1000; + } + + return iContadorNivel; +} +//****************************************************************************** + +//****************************************************************************** +int ObterNivelJogador(object oJogador) +{ + return ObterNivelExperiencia(GetXP(oJogador)); +} +//****************************************************************************** + +//****************************************************************************** +int ObterNivelCriatura(object oCriatura) +{ + return + ( + GetLevelByPosition(1,oCriatura) + + GetLevelByPosition(2,oCriatura) + + GetLevelByPosition(3,oCriatura) + + GetLevelByPosition(4,oCriatura) + + GetLevelByPosition(5,oCriatura) + + GetLevelByPosition(6,oCriatura) + + GetLevelByPosition(7,oCriatura) + + GetLevelByPosition(8,oCriatura) + ); +} +//atualizada abaixo: + /* +int ObterNivelCriatura(object oCriatura) +{ + int iNivel = FloatToInt( GetChallengeRating( oCriatura ) + 0.5 ); + if ( iNivel < 1 ) { iNivel = 1; } + return iNivel; +} */ +//****************************************************************************** + +//****************************************************************************** +int ConverterPrecoNivelItem(int iPreco) +{ + if (iPreco <= 1000) { return 1; } + else if (iPreco <= 3400) { return 2; } + else if (iPreco <= 7400) { return 3; } + else if (iPreco <= 13000) { return 4; } + else if (iPreco <= 20200) { return 5; } + else if (iPreco <= 29000) { return 6; } + else if (iPreco <= 39400) { return 7; } + else if (iPreco <= 51400) { return 8; } + else if (iPreco <= 65000) { return 9; } + else if (iPreco <= 80200) { return 10; } + else if (iPreco <= 97000) { return 11; } + else if (iPreco <= 115400) { return 12; } + else if (iPreco <= 135400) { return 13; } + else if (iPreco <= 157000) { return 14; } + else if (iPreco <= 180200) { return 15; } + else if (iPreco <= 205000) { return 16; } + else if (iPreco <= 231400) { return 17; } + else if (iPreco <= 259400) { return 18; } + else if (iPreco <= 289000) { return 19; } + else if (iPreco <= 320200) { return 20; } + else if (iPreco <= 353000) { return 21; } + else if (iPreco <= 387400) { return 22; } + else if (iPreco <= 423400) { return 23; } + else if (iPreco <= 461000) { return 24; } + else if (iPreco <= 500200) { return 25; } + else if (iPreco <= 541000) { return 26; } + else if (iPreco <= 583400) { return 27; } + else if (iPreco <= 627400) { return 28; } + else if (iPreco <= 673000) { return 29; } + else if (iPreco <= 720200) { return 30; } + else if (iPreco <= 769000) { return 31; } + else if (iPreco <= 819400) { return 32; } + else if (iPreco <= 871400) { return 33; } + else if (iPreco <= 925000) { return 34; } + else if (iPreco <= 980200) { return 35; } + else if (iPreco <= 1037000) { return 36; } + else if (iPreco <= 1095400) { return 37; } + else if (iPreco <= 1155400) { return 38; } + else if (iPreco <= 1217000) { return 39; } + else if (iPreco <= 1280200) { return 40; } + else if (iPreco <= 1345000) { return 41; } + else if (iPreco <= 1411400) { return 42; } + else if (iPreco <= 1479400) { return 43; } + else if (iPreco <= 1549000) { return 44; } + else if (iPreco <= 1620200) { return 45; } + else if (iPreco <= 1693000) { return 46; } + else if (iPreco <= 1767400) { return 47; } + else if (iPreco <= 1843400) { return 48; } + else if (iPreco <= 1921000) { return 49; } + else if (iPreco <= 2000200) { return 50; } + else if (iPreco <= 2081000) { return 51; } + else if (iPreco <= 2163400) { return 52; } + else if (iPreco <= 2247400) { return 53; } + else if (iPreco <= 2333000) { return 54; } + else if (iPreco <= 2420200) { return 55; } + else if (iPreco <= 2509000) { return 56; } + else if (iPreco <= 2599400) { return 57; } + else if (iPreco <= 2691400) { return 58; } + else if (iPreco <= 2785000) { return 59; } + else if (iPreco <= 2880200) { return 60; } + else if (iPreco <= 2977000) { return 61; } + else if (iPreco <= 3075400) { return 62; } + else if (iPreco <= 3175400) { return 63; } + else if (iPreco <= 3277000) { return 64; } + else if (iPreco <= 3380200) { return 65; } + else if (iPreco <= 3485000) { return 66; } + else if (iPreco <= 3591400) { return 67; } + else if (iPreco <= 3699400) { return 68; } + else if (iPreco <= 3809000) { return 69; } + else if (iPreco <= 3920200) { return 70; } + else if (iPreco <= 4033000) { return 71; } + else if (iPreco <= 4147400) { return 72; } + else if (iPreco <= 4263400) { return 73; } + else if (iPreco <= 4381000) { return 74; } + else if (iPreco <= 4500200) { return 75; } + else if (iPreco <= 4621000) { return 76; } + else if (iPreco <= 4743400) { return 77; } + else if (iPreco <= 4867400) { return 78; } + else if (iPreco <= 4993000) { return 79; } + else if (iPreco <= 5120200) { return 80; } + else if (iPreco <= 5249000) { return 81; } + else if (iPreco <= 5379400) { return 82; } + else if (iPreco <= 5511400) { return 83; } + else if (iPreco <= 5645000) { return 84; } + else if (iPreco <= 5780200) { return 85; } + else if (iPreco <= 5917000) { return 86; } + else if (iPreco <= 6055400) { return 87; } + else if (iPreco <= 6195400) { return 88; } + else if (iPreco <= 6337000) { return 89; } + else if (iPreco <= 6480200) { return 90; } + else if (iPreco <= 6625000) { return 91; } + else if (iPreco <= 6771400) { return 92; } + else if (iPreco <= 6919400) { return 93; } + else if (iPreco <= 7069000) { return 94; } + else if (iPreco <= 7220200) { return 95; } + else if (iPreco <= 7373000) { return 96; } + else if (iPreco <= 7527400) { return 97; } + else if (iPreco <= 7683400) { return 98; } + else if (iPreco <= 7841000) { return 99; } + else if (iPreco <= 8000200) { return 100; } + else if (iPreco <= 8161000) { return 101; } + else if (iPreco <= 8323400) { return 102; } + else if (iPreco <= 8487400) { return 103; } + else if (iPreco <= 8653000) { return 104; } + else if (iPreco <= 8820200) { return 105; } + else if (iPreco <= 8989000) { return 106; } + else if (iPreco <= 9159400) { return 107; } + else if (iPreco <= 9331400) { return 108; } + else if (iPreco <= 9505000) { return 109; } + else if (iPreco <= 9680200) { return 110; } + else if (iPreco <= 9857000) { return 111; } + else if (iPreco <= 10035400) { return 112; } + else if (iPreco <= 10215400) { return 113; } + else if (iPreco <= 10397000) { return 114; } + else if (iPreco <= 10580200) { return 115; } + else if (iPreco <= 10765000) { return 116; } + else if (iPreco <= 10951400) { return 117; } + else if (iPreco <= 11139400) { return 118; } + else if (iPreco <= 11329000) { return 119; } + else if (iPreco <= 11520200) { return 120; } + else if (iPreco <= 11713000) { return 121; } + else if (iPreco <= 11907400) { return 122; } + else if (iPreco <= 12103400) { return 123; } + else if (iPreco <= 12301000) { return 124; } + else if (iPreco <= 12500200) { return 125; } + else if (iPreco <= 12701000) { return 126; } + else if (iPreco <= 12903400) { return 127; } + else if (iPreco <= 13107400) { return 128; } + else if (iPreco <= 13313000) { return 129; } + else if (iPreco <= 13520200) { return 130; } + else if (iPreco <= 13729000) { return 131; } + else if (iPreco <= 13939400) { return 132; } + else if (iPreco <= 14151400) { return 133; } + else if (iPreco <= 14365000) { return 134; } + else if (iPreco <= 14580200) { return 135; } + else if (iPreco <= 14797000) { return 136; } + else if (iPreco <= 15015400) { return 137; } + else if (iPreco <= 15235400) { return 138; } + else if (iPreco <= 15457000) { return 139; } + else if (iPreco <= 15680200) { return 140; } + else if (iPreco <= 15905000) { return 141; } + else if (iPreco <= 16131400) { return 142; } + else if (iPreco <= 16359400) { return 143; } + else if (iPreco <= 16589000) { return 144; } + else if (iPreco <= 16820200) { return 145; } + else if (iPreco <= 17053000) { return 146; } + else if (iPreco <= 17287400) { return 147; } + else if (iPreco <= 17523400) { return 148; } + else if (iPreco <= 17761000) { return 149; } + else if (iPreco <= 18000200) { return 150; } + else if (iPreco <= 18241000) { return 151; } + else if (iPreco <= 18483400) { return 152; } + else if (iPreco <= 18727400) { return 153; } + else if (iPreco <= 18973000) { return 154; } + else if (iPreco <= 19220200) { return 155; } + else if (iPreco <= 19469000) { return 156; } + else if (iPreco <= 19719400) { return 157; } + else if (iPreco <= 19971400) { return 158; } + else if (iPreco <= 20225000) { return 159; } + else if (iPreco <= 20480200) { return 160; } + else if (iPreco <= 20737000) { return 161; } + else if (iPreco <= 20995400) { return 162; } + else if (iPreco <= 21255400) { return 163; } + else if (iPreco <= 21517000) { return 164; } + else if (iPreco <= 21780200) { return 165; } + else if (iPreco <= 22045000) { return 166; } + else if (iPreco <= 22311400) { return 167; } + else if (iPreco <= 22579400) { return 168; } + else if (iPreco <= 22849000) { return 169; } + else if (iPreco <= 23120200) { return 170; } + else if (iPreco <= 23393000) { return 171; } + else if (iPreco <= 23667400) { return 172; } + else if (iPreco <= 23943400) { return 173; } + else if (iPreco <= 24221000) { return 174; } + else if (iPreco <= 24500200) { return 175; } + else if (iPreco <= 24781000) { return 176; } + else if (iPreco <= 25063400) { return 177; } + else if (iPreco <= 25347400) { return 178; } + else if (iPreco <= 25633000) { return 179; } + else if (iPreco <= 25920200) { return 180; } + else if (iPreco <= 26209000) { return 181; } + else if (iPreco <= 26499400) { return 182; } + else if (iPreco <= 26791400) { return 183; } + else if (iPreco <= 27085000) { return 184; } + else if (iPreco <= 27380200) { return 185; } + else if (iPreco <= 27677000) { return 186; } + else if (iPreco <= 27975400) { return 187; } + else if (iPreco <= 28275400) { return 188; } + else if (iPreco <= 28577000) { return 189; } + else if (iPreco <= 28880200) { return 190; } + else if (iPreco <= 29185000) { return 191; } + else if (iPreco <= 29491400) { return 192; } + else if (iPreco <= 29799400) { return 193; } + else if (iPreco <= 30109000) { return 194; } + else if (iPreco <= 30420200) { return 195; } + else if (iPreco <= 30733000) { return 196; } + else if (iPreco <= 31047400) { return 197; } + else if (iPreco <= 31363400) { return 198; } + else if (iPreco <= 31681000) { return 199; } + else if (iPreco <= 32000200) { return 200; } + else if (iPreco <= 32321000) { return 201; } + else if (iPreco <= 32643400) { return 202; } + else if (iPreco <= 32967400) { return 203; } + else if (iPreco <= 33293000) { return 204; } + else if (iPreco <= 33620200) { return 205; } + else if (iPreco <= 33949000) { return 206; } + else if (iPreco <= 34279400) { return 207; } + else if (iPreco <= 34611400) { return 208; } + else if (iPreco <= 34945000) { return 209; } + else if (iPreco <= 35280200) { return 210; } + else if (iPreco <= 35617000) { return 211; } + else if (iPreco <= 35955400) { return 212; } + else if (iPreco <= 36295400) { return 213; } + else if (iPreco <= 36637000) { return 214; } + else if (iPreco <= 36980200) { return 215; } + else if (iPreco <= 37325000) { return 216; } + else if (iPreco <= 37671400) { return 217; } + else if (iPreco <= 38019400) { return 218; } + else if (iPreco <= 38369000) { return 219; } + else if (iPreco <= 38720200) { return 220; } + else if (iPreco <= 39073000) { return 221; } + else if (iPreco <= 39427400) { return 222; } + else if (iPreco <= 39783400) { return 223; } + else if (iPreco <= 40141000) { return 224; } + else if (iPreco <= 40500200) { return 225; } + else if (iPreco <= 40861000) { return 226; } + else if (iPreco <= 41223400) { return 227; } + else if (iPreco <= 41587400) { return 228; } + else if (iPreco <= 41953000) { return 229; } + else if (iPreco <= 42320200) { return 230; } + else if (iPreco <= 42689000) { return 231; } + else if (iPreco <= 43059400) { return 232; } + else if (iPreco <= 43431400) { return 233; } + else if (iPreco <= 43805000) { return 234; } + else if (iPreco <= 44180200) { return 235; } + else if (iPreco <= 44557000) { return 236; } + else if (iPreco <= 44935400) { return 237; } + else if (iPreco <= 45315400) { return 238; } + else if (iPreco <= 45697000) { return 239; } + else if (iPreco <= 46080200) { return 240; } + else if (iPreco <= 46465000) { return 241; } + else if (iPreco <= 46851400) { return 242; } + else if (iPreco <= 47239400) { return 243; } + else if (iPreco <= 47629000) { return 244; } + else if (iPreco <= 48020200) { return 245; } + else if (iPreco <= 48413000) { return 246; } + else if (iPreco <= 48807400) { return 247; } + else if (iPreco <= 49203400) { return 248; } + else if (iPreco <= 49601000) { return 249; } + else if (iPreco <= 50000200) { return 250; } + else if (iPreco <= 50401000) { return 251; } + else if (iPreco <= 50803400) { return 252; } + else if (iPreco <= 51207400) { return 253; } + else if (iPreco <= 51613000) { return 254; } + else if (iPreco <= 52020200) { return 255; } + else if (iPreco <= 52429000) { return 256; } + else if (iPreco <= 52839400) { return 257; } + else if (iPreco <= 53251400) { return 258; } + else if (iPreco <= 53665000) { return 259; } + else if (iPreco <= 54080200) { return 260; } + else if (iPreco <= 54497000) { return 261; } + else if (iPreco <= 54915400) { return 262; } + else if (iPreco <= 55335400) { return 263; } + else if (iPreco <= 55757000) { return 264; } + else if (iPreco <= 56180200) { return 265; } + else if (iPreco <= 56605000) { return 266; } + else if (iPreco <= 57031400) { return 267; } + else if (iPreco <= 57459400) { return 268; } + else if (iPreco <= 57889000) { return 269; } + else if (iPreco <= 58320200) { return 270; } + else if (iPreco <= 58753000) { return 271; } + else if (iPreco <= 59187400) { return 272; } + else if (iPreco <= 59623400) { return 273; } + else if (iPreco <= 60061000) { return 274; } + else if (iPreco <= 60500200) { return 275; } + else if (iPreco <= 60941000) { return 276; } + else if (iPreco <= 61383400) { return 277; } + else if (iPreco <= 61827400) { return 278; } + else if (iPreco <= 62273000) { return 279; } + else if (iPreco <= 62720200) { return 280; } + else if (iPreco <= 63169000) { return 281; } + else if (iPreco <= 63619400) { return 282; } + else if (iPreco <= 64071400) { return 283; } + else if (iPreco <= 64525000) { return 284; } + else if (iPreco <= 64980200) { return 285; } + else if (iPreco <= 65437000) { return 286; } + else if (iPreco <= 65895400) { return 287; } + else if (iPreco <= 66355400) { return 288; } + else if (iPreco <= 66817000) { return 289; } + else if (iPreco <= 67280200) { return 290; } + else if (iPreco <= 67745000) { return 291; } + else if (iPreco <= 68211400) { return 292; } + else if (iPreco <= 68679400) { return 293; } + else if (iPreco <= 69149000) { return 294; } + else if (iPreco <= 69620200) { return 295; } + else if (iPreco <= 70093000) { return 296; } + else if (iPreco <= 70567400) { return 297; } + else if (iPreco <= 71043400) { return 298; } + else if (iPreco <= 71521000) { return 299; } + else if (iPreco <= 72000200) { return 300; } + else if (iPreco <= 72481000) { return 301; } + else if (iPreco <= 72963400) { return 302; } + else if (iPreco <= 73447400) { return 303; } + else if (iPreco <= 73933000) { return 304; } + else if (iPreco <= 74420200) { return 305; } + else if (iPreco <= 74909000) { return 306; } + else if (iPreco <= 75399400) { return 307; } + else if (iPreco <= 75891400) { return 308; } + else if (iPreco <= 76385000) { return 309; } + else if (iPreco <= 76880200) { return 310; } + else if (iPreco <= 77377000) { return 311; } + else if (iPreco <= 77875400) { return 312; } + else if (iPreco <= 78375400) { return 313; } + else if (iPreco <= 78877000) { return 314; } + else if (iPreco <= 79380200) { return 315; } + else if (iPreco <= 79885000) { return 316; } + else if (iPreco <= 80391400) { return 317; } + else if (iPreco <= 80899400) { return 318; } + else if (iPreco <= 81409000) { return 319; } + else if (iPreco <= 81920200) { return 320; } + else if (iPreco <= 82433000) { return 321; } + else if (iPreco <= 82947400) { return 322; } + else if (iPreco <= 83463400) { return 323; } + else if (iPreco <= 83981000) { return 324; } + else if (iPreco <= 84500200) { return 325; } + else if (iPreco <= 85021000) { return 326; } + else if (iPreco <= 85543400) { return 327; } + else if (iPreco <= 86067400) { return 328; } + else if (iPreco <= 86593000) { return 329; } + else if (iPreco <= 87120200) { return 330; } + else if (iPreco <= 87649000) { return 331; } + else if (iPreco <= 88179400) { return 332; } + else if (iPreco <= 88711400) { return 333; } + else if (iPreco <= 89245000) { return 334; } + else if (iPreco <= 89780200) { return 335; } + else if (iPreco <= 90317000) { return 336; } + else if (iPreco <= 90855400) { return 337; } + else if (iPreco <= 91395400) { return 338; } + else if (iPreco <= 91937000) { return 339; } + else if (iPreco <= 92480200) { return 340; } + else if (iPreco <= 93025000) { return 341; } + else if (iPreco <= 93571400) { return 342; } + else if (iPreco <= 94119400) { return 343; } + else if (iPreco <= 94669000) { return 344; } + else if (iPreco <= 95220200) { return 345; } + else if (iPreco <= 95773000) { return 346; } + else if (iPreco <= 96327400) { return 347; } + else if (iPreco <= 96883400) { return 348; } + else if (iPreco <= 97441000) { return 349; } + else if (iPreco <= 98000200) { return 350; } + else if (iPreco <= 98561000) { return 351; } + else if (iPreco <= 99123400) { return 352; } + else if (iPreco <= 99687400) { return 353; } + else if (iPreco <= 100253000) { return 354; } + else if (iPreco <= 100820200) { return 355; } + else if (iPreco <= 101389000) { return 356; } + else if (iPreco <= 101959400) { return 357; } + else if (iPreco <= 102531400) { return 358; } + else if (iPreco <= 103105000) { return 359; } + else if (iPreco <= 103680200) { return 360; } + else if (iPreco <= 104257000) { return 361; } + else if (iPreco <= 104835400) { return 362; } + else if (iPreco <= 105415400) { return 363; } + else if (iPreco <= 105997000) { return 364; } + else if (iPreco <= 106580200) { return 365; } + else if (iPreco <= 107165000) { return 366; } + else if (iPreco <= 107751400) { return 367; } + else if (iPreco <= 108339400) { return 368; } + else if (iPreco <= 108929000) { return 369; } + else if (iPreco <= 109520200) { return 370; } + else if (iPreco <= 110113000) { return 371; } + else if (iPreco <= 110707400) { return 372; } + else if (iPreco <= 111303400) { return 373; } + else if (iPreco <= 111901000) { return 374; } + else if (iPreco <= 112500200) { return 375; } + else if (iPreco <= 113101000) { return 376; } + else if (iPreco <= 113703400) { return 377; } + else if (iPreco <= 114307400) { return 378; } + else if (iPreco <= 114913000) { return 379; } + else if (iPreco <= 115520200) { return 380; } + else if (iPreco <= 116129000) { return 381; } + else if (iPreco <= 116739400) { return 382; } + else if (iPreco <= 117351400) { return 383; } + else if (iPreco <= 117965000) { return 384; } + else if (iPreco <= 118580200) { return 385; } + else if (iPreco <= 119197000) { return 386; } + else if (iPreco <= 119815400) { return 387; } + else if (iPreco <= 120435400) { return 388; } + else if (iPreco <= 121057000) { return 389; } + else if (iPreco <= 121680200) { return 390; } + else if (iPreco <= 122305000) { return 391; } + else if (iPreco <= 122931400) { return 392; } + else if (iPreco <= 123559400) { return 393; } + else if (iPreco <= 124189000) { return 394; } + else if (iPreco <= 124820200) { return 395; } + else if (iPreco <= 125453000) { return 396; } + else if (iPreco <= 126087400) { return 397; } + else if (iPreco <= 126723400) { return 398; } + else if (iPreco <= 127361000) { return 399; } + else if (iPreco <= 128000200) { return 400; } + else if (iPreco <= 128641000) { return 401; } + else if (iPreco <= 129283400) { return 402; } + else if (iPreco <= 129927400) { return 403; } + else if (iPreco <= 130573000) { return 404; } + else if (iPreco <= 131220200) { return 405; } + else if (iPreco <= 131869000) { return 406; } + else if (iPreco <= 132519400) { return 407; } + else if (iPreco <= 133171400) { return 408; } + else if (iPreco <= 133825000) { return 409; } + else if (iPreco <= 134480200) { return 410; } + else if (iPreco <= 135137000) { return 411; } + else if (iPreco <= 135795400) { return 412; } + else if (iPreco <= 136455400) { return 413; } + else if (iPreco <= 137117000) { return 414; } + else if (iPreco <= 137780200) { return 415; } + else if (iPreco <= 138445000) { return 416; } + else if (iPreco <= 139111400) { return 417; } + else if (iPreco <= 139779400) { return 418; } + else if (iPreco <= 140449000) { return 419; } + else if (iPreco <= 141120200) { return 420; } + else if (iPreco <= 141793000) { return 421; } + else if (iPreco <= 142467400) { return 422; } + else if (iPreco <= 143143400) { return 423; } + else if (iPreco <= 143821000) { return 424; } + else if (iPreco <= 144500200) { return 425; } + else if (iPreco <= 145181000) { return 426; } + else if (iPreco <= 145863400) { return 427; } + else if (iPreco <= 146547400) { return 428; } + else if (iPreco <= 147233000) { return 429; } + else if (iPreco <= 147920200) { return 430; } + else if (iPreco <= 148609000) { return 431; } + else if (iPreco <= 149299400) { return 432; } + else if (iPreco <= 149991400) { return 433; } + else if (iPreco <= 150685000) { return 434; } + else if (iPreco <= 151380200) { return 435; } + else if (iPreco <= 152077000) { return 436; } + else if (iPreco <= 152775400) { return 437; } + else if (iPreco <= 153475400) { return 438; } + else if (iPreco <= 154177000) { return 439; } + else if (iPreco <= 154880200) { return 440; } + else if (iPreco <= 155585000) { return 441; } + else if (iPreco <= 156291400) { return 442; } + else if (iPreco <= 156999400) { return 443; } + else if (iPreco <= 157709000) { return 444; } + else if (iPreco <= 158420200) { return 445; } + else if (iPreco <= 159133000) { return 446; } + else if (iPreco <= 159847400) { return 447; } + else if (iPreco <= 160563400) { return 448; } + else if (iPreco <= 161281000) { return 449; } + else if (iPreco <= 162000200) { return 450; } + else if (iPreco <= 162721000) { return 451; } + else if (iPreco <= 163443400) { return 452; } + else if (iPreco <= 164167400) { return 453; } + else if (iPreco <= 164893000) { return 454; } + else if (iPreco <= 165620200) { return 455; } + else if (iPreco <= 166349000) { return 456; } + else if (iPreco <= 167079400) { return 457; } + else if (iPreco <= 167811400) { return 458; } + else if (iPreco <= 168545000) { return 459; } + else if (iPreco <= 169280200) { return 460; } + else if (iPreco <= 170017000) { return 461; } + else if (iPreco <= 170755400) { return 462; } + else if (iPreco <= 171495400) { return 463; } + else if (iPreco <= 172237000) { return 464; } + else if (iPreco <= 172980200) { return 465; } + else if (iPreco <= 173725000) { return 466; } + else if (iPreco <= 174471400) { return 467; } + else if (iPreco <= 175219400) { return 468; } + else if (iPreco <= 175969000) { return 469; } + else if (iPreco <= 176720200) { return 470; } + else if (iPreco <= 177473000) { return 471; } + else if (iPreco <= 178227400) { return 472; } + else if (iPreco <= 178983400) { return 473; } + else if (iPreco <= 179741000) { return 474; } + else if (iPreco <= 180500200) { return 475; } + else if (iPreco <= 181261000) { return 476; } + else if (iPreco <= 182023400) { return 477; } + else if (iPreco <= 182787400) { return 478; } + else if (iPreco <= 183553000) { return 479; } + else if (iPreco <= 184320200) { return 480; } + else if (iPreco <= 185089000) { return 481; } + else if (iPreco <= 185859400) { return 482; } + else if (iPreco <= 186631400) { return 483; } + else if (iPreco <= 187405000) { return 484; } + else if (iPreco <= 188180200) { return 485; } + else if (iPreco <= 188957000) { return 486; } + else if (iPreco <= 189735400) { return 487; } + else if (iPreco <= 190515400) { return 488; } + else if (iPreco <= 191297000) { return 489; } + else if (iPreco <= 192080200) { return 490; } + else if (iPreco <= 192865000) { return 491; } + else if (iPreco <= 193651400) { return 492; } + else if (iPreco <= 194439400) { return 493; } + else if (iPreco <= 195229000) { return 494; } + else if (iPreco <= 196020200) { return 495; } + else if (iPreco <= 196813000) { return 496; } + else if (iPreco <= 197607400) { return 497; } + else if (iPreco <= 198403400) { return 498; } + else if (iPreco <= 199201000) { return 499; } + else if (iPreco <= 200000200) { return 500; } + else if (iPreco <= 200801000) { return 501; } + else if (iPreco <= 201603400) { return 502; } + else if (iPreco <= 202407400) { return 503; } + else if (iPreco <= 203213000) { return 504; } + else if (iPreco <= 204020200) { return 505; } + else if (iPreco <= 204829000) { return 506; } + else if (iPreco <= 205639400) { return 507; } + else if (iPreco <= 206451400) { return 508; } + else if (iPreco <= 207265000) { return 509; } + else if (iPreco <= 208080200) { return 510; } + else if (iPreco <= 208897000) { return 511; } + else if (iPreco <= 209715400) { return 512; } + else if (iPreco <= 210535400) { return 513; } + else if (iPreco <= 211357000) { return 514; } + else if (iPreco <= 212180200) { return 515; } + else if (iPreco <= 213005000) { return 516; } + else if (iPreco <= 213831400) { return 517; } + else if (iPreco <= 214659400) { return 518; } + else if (iPreco <= 215489000) { return 519; } + else if (iPreco <= 216320200) { return 520; } + else if (iPreco <= 217153000) { return 521; } + else if (iPreco <= 217987400) { return 522; } + else if (iPreco <= 218823400) { return 523; } + else if (iPreco <= 219661000) { return 524; } + else if (iPreco <= 220500200) { return 525; } + else if (iPreco <= 221341000) { return 526; } + else if (iPreco <= 222183400) { return 527; } + else if (iPreco <= 223027400) { return 528; } + else if (iPreco <= 223873000) { return 529; } + else if (iPreco <= 224720200) { return 530; } + else if (iPreco <= 225569000) { return 531; } + else if (iPreco <= 226419400) { return 532; } + else if (iPreco <= 227271400) { return 533; } + else if (iPreco <= 228125000) { return 534; } + else if (iPreco <= 228980200) { return 535; } + else if (iPreco <= 229837000) { return 536; } + else if (iPreco <= 230695400) { return 537; } + else if (iPreco <= 231555400) { return 538; } + else if (iPreco <= 232417000) { return 539; } + else if (iPreco <= 233280200) { return 540; } + else if (iPreco <= 234145000) { return 541; } + else if (iPreco <= 235011400) { return 542; } + else if (iPreco <= 235879400) { return 543; } + else if (iPreco <= 236749000) { return 544; } + else if (iPreco <= 237620200) { return 545; } + else if (iPreco <= 238493000) { return 546; } + else if (iPreco <= 239367400) { return 547; } + else if (iPreco <= 240243400) { return 548; } + else if (iPreco <= 241121000) { return 549; } + else if (iPreco <= 242000200) { return 550; } + else if (iPreco <= 242881000) { return 551; } + else if (iPreco <= 243763400) { return 552; } + else if (iPreco <= 244647400) { return 553; } + else if (iPreco <= 245533000) { return 554; } + else if (iPreco <= 246420200) { return 555; } + else if (iPreco <= 247309000) { return 556; } + else if (iPreco <= 248199400) { return 557; } + else if (iPreco <= 249091400) { return 558; } + else if (iPreco <= 249985000) { return 559; } + else if (iPreco <= 250880200) { return 560; } + else if (iPreco <= 251777000) { return 561; } + else if (iPreco <= 252675400) { return 562; } + else if (iPreco <= 253575400) { return 563; } + else if (iPreco <= 254477000) { return 564; } + else if (iPreco <= 255380200) { return 565; } + else if (iPreco <= 256285000) { return 566; } + else if (iPreco <= 257191400) { return 567; } + else if (iPreco <= 258099400) { return 568; } + else if (iPreco <= 259009000) { return 569; } + else if (iPreco <= 259920200) { return 570; } + else if (iPreco <= 260833000) { return 571; } + else if (iPreco <= 261747400) { return 572; } + else if (iPreco <= 262663400) { return 573; } + else if (iPreco <= 263581000) { return 574; } + else if (iPreco <= 264500200) { return 575; } + else if (iPreco <= 265421000) { return 576; } + else if (iPreco <= 266343400) { return 577; } + else if (iPreco <= 267267400) { return 578; } + else if (iPreco <= 268193000) { return 579; } + else if (iPreco <= 269120200) { return 580; } + else if (iPreco <= 270049000) { return 581; } + else if (iPreco <= 270979400) { return 582; } + else if (iPreco <= 271911400) { return 583; } + else if (iPreco <= 272845000) { return 584; } + else if (iPreco <= 273780200) { return 585; } + else if (iPreco <= 274717000) { return 586; } + else if (iPreco <= 275655400) { return 587; } + else if (iPreco <= 276595400) { return 588; } + else if (iPreco <= 277537000) { return 589; } + else if (iPreco <= 278480200) { return 590; } + else if (iPreco <= 279425000) { return 591; } + else if (iPreco <= 280371400) { return 592; } + else if (iPreco <= 281319400) { return 593; } + else if (iPreco <= 282269000) { return 594; } + else if (iPreco <= 283220200) { return 595; } + else if (iPreco <= 284173000) { return 596; } + else if (iPreco <= 285127400) { return 597; } + else if (iPreco <= 286083400) { return 598; } + else if (iPreco <= 287041000) { return 599; } + else if (iPreco <= 288000200) { return 600; } + else if (iPreco <= 288961000) { return 601; } + else if (iPreco <= 289923400) { return 602; } + else if (iPreco <= 290887400) { return 603; } + else if (iPreco <= 291853000) { return 604; } + else if (iPreco <= 292820200) { return 605; } + else if (iPreco <= 293789000) { return 606; } + else if (iPreco <= 294759400) { return 607; } + else if (iPreco <= 295731400) { return 608; } + else if (iPreco <= 296705000) { return 609; } + else if (iPreco <= 297680200) { return 610; } + else if (iPreco <= 298657000) { return 611; } + else if (iPreco <= 299635400) { return 612; } + else if (iPreco <= 300615400) { return 613; } + else if (iPreco <= 301597000) { return 614; } + else if (iPreco <= 302580200) { return 615; } + else if (iPreco <= 303565000) { return 616; } + else if (iPreco <= 304551400) { return 617; } + else if (iPreco <= 305539400) { return 618; } + else if (iPreco <= 306529000) { return 619; } + else if (iPreco <= 307520200) { return 620; } + else if (iPreco <= 308513000) { return 621; } + else if (iPreco <= 309507400) { return 622; } + else if (iPreco <= 310503400) { return 623; } + else if (iPreco <= 311501000) { return 624; } + else if (iPreco <= 312500200) { return 625; } + else if (iPreco <= 313501000) { return 626; } + else if (iPreco <= 314503400) { return 627; } + else if (iPreco <= 315507400) { return 628; } + else if (iPreco <= 316513000) { return 629; } + else if (iPreco <= 317520200) { return 630; } + else if (iPreco <= 318529000) { return 631; } + else if (iPreco <= 319539400) { return 632; } + else if (iPreco <= 320551400) { return 633; } + else if (iPreco <= 321565000) { return 634; } + else if (iPreco <= 322580200) { return 635; } + else if (iPreco <= 323597000) { return 636; } + else if (iPreco <= 324615400) { return 637; } + else if (iPreco <= 325635400) { return 638; } + else if (iPreco <= 326657000) { return 639; } + else if (iPreco <= 327680200) { return 640; } + else if (iPreco <= 328705000) { return 641; } + else if (iPreco <= 329731400) { return 642; } + else if (iPreco <= 330759400) { return 643; } + else if (iPreco <= 331789000) { return 644; } + else if (iPreco <= 332820200) { return 645; } + else if (iPreco <= 333853000) { return 646; } + else if (iPreco <= 334887400) { return 647; } + else if (iPreco <= 335923400) { return 648; } + else if (iPreco <= 336961000) { return 649; } + else if (iPreco <= 338000200) { return 650; } + else if (iPreco <= 339041000) { return 651; } + else if (iPreco <= 340083400) { return 652; } + else if (iPreco <= 341127400) { return 653; } + else if (iPreco <= 342173000) { return 654; } + else if (iPreco <= 343220200) { return 655; } + else if (iPreco <= 344269000) { return 656; } + else if (iPreco <= 345319400) { return 657; } + else if (iPreco <= 346371400) { return 658; } + else if (iPreco <= 347425000) { return 659; } + else if (iPreco <= 348480200) { return 660; } + else if (iPreco <= 349537000) { return 661; } + else if (iPreco <= 350595400) { return 662; } + else if (iPreco <= 351655400) { return 663; } + else if (iPreco <= 352717000) { return 664; } + else if (iPreco <= 353780200) { return 665; } + else if (iPreco <= 354845000) { return 666; } + else if (iPreco <= 355911400) { return 667; } + else if (iPreco <= 356979400) { return 668; } + else if (iPreco <= 358049000) { return 669; } + else if (iPreco <= 359120200) { return 670; } + else if (iPreco <= 360193000) { return 671; } + else if (iPreco <= 361267400) { return 672; } + else if (iPreco <= 362343400) { return 673; } + else if (iPreco <= 363421000) { return 674; } + else if (iPreco <= 364500200) { return 675; } + else if (iPreco <= 365581000) { return 676; } + else if (iPreco <= 366663400) { return 677; } + else if (iPreco <= 367747400) { return 678; } + else if (iPreco <= 368833000) { return 679; } + else if (iPreco <= 369920200) { return 680; } + else if (iPreco <= 371009000) { return 681; } + else if (iPreco <= 372099400) { return 682; } + else if (iPreco <= 373191400) { return 683; } + else if (iPreco <= 374285000) { return 684; } + else if (iPreco <= 375380200) { return 685; } + else if (iPreco <= 376477000) { return 686; } + else if (iPreco <= 377575400) { return 687; } + else if (iPreco <= 378675400) { return 688; } + else if (iPreco <= 379777000) { return 689; } + else if (iPreco <= 380880200) { return 690; } + else if (iPreco <= 381985000) { return 691; } + else if (iPreco <= 383091400) { return 692; } + else if (iPreco <= 384199400) { return 693; } + else if (iPreco <= 385309000) { return 694; } + else if (iPreco <= 386420200) { return 695; } + else if (iPreco <= 387533000) { return 696; } + else if (iPreco <= 388647400) { return 697; } + else if (iPreco <= 389763400) { return 698; } + else if (iPreco <= 390881000) { return 699; } + else if (iPreco <= 392000200) { return 700; } + else if (iPreco <= 393121000) { return 701; } + else if (iPreco <= 394243400) { return 702; } + else if (iPreco <= 395367400) { return 703; } + else if (iPreco <= 396493000) { return 704; } + else if (iPreco <= 397620200) { return 705; } + else if (iPreco <= 398749000) { return 706; } + else if (iPreco <= 399879400) { return 707; } + else if (iPreco <= 401011400) { return 708; } + else if (iPreco <= 402145000) { return 709; } + else if (iPreco <= 403280200) { return 710; } + else if (iPreco <= 404417000) { return 711; } + else if (iPreco <= 405555400) { return 712; } + else if (iPreco <= 406695400) { return 713; } + else if (iPreco <= 407837000) { return 714; } + else if (iPreco <= 408980200) { return 715; } + else if (iPreco <= 410125000) { return 716; } + else if (iPreco <= 411271400) { return 717; } + else if (iPreco <= 412419400) { return 718; } + else if (iPreco <= 413569000) { return 719; } + else if (iPreco <= 414720200) { return 720; } + else if (iPreco <= 415873000) { return 721; } + else if (iPreco <= 417027400) { return 722; } + else if (iPreco <= 418183400) { return 723; } + else if (iPreco <= 419341000) { return 724; } + else if (iPreco <= 420500200) { return 725; } + else if (iPreco <= 421661000) { return 726; } + else if (iPreco <= 422823400) { return 727; } + else if (iPreco <= 423987400) { return 728; } + else if (iPreco <= 425153000) { return 729; } + else if (iPreco <= 426320200) { return 730; } + else if (iPreco <= 427489000) { return 731; } + else if (iPreco <= 428659400) { return 732; } + else if (iPreco <= 429831400) { return 733; } + else if (iPreco <= 431005000) { return 734; } + else if (iPreco <= 432180200) { return 735; } + else if (iPreco <= 433357000) { return 736; } + else if (iPreco <= 434535400) { return 737; } + else if (iPreco <= 435715400) { return 738; } + else if (iPreco <= 436897000) { return 739; } + else if (iPreco <= 438080200) { return 740; } + else if (iPreco <= 439265000) { return 741; } + else if (iPreco <= 440451400) { return 742; } + else if (iPreco <= 441639400) { return 743; } + else if (iPreco <= 442829000) { return 744; } + else if (iPreco <= 444020200) { return 745; } + else if (iPreco <= 445213000) { return 746; } + else if (iPreco <= 446407400) { return 747; } + else if (iPreco <= 447603400) { return 748; } + else if (iPreco <= 448801000) { return 749; } + else if (iPreco <= 450000200) { return 750; } + else if (iPreco <= 451201000) { return 751; } + else if (iPreco <= 452403400) { return 752; } + else if (iPreco <= 453607400) { return 753; } + else if (iPreco <= 454813000) { return 754; } + else if (iPreco <= 456020200) { return 755; } + else if (iPreco <= 457229000) { return 756; } + else if (iPreco <= 458439400) { return 757; } + else if (iPreco <= 459651400) { return 758; } + else if (iPreco <= 460865000) { return 759; } + else if (iPreco <= 462080200) { return 760; } + else if (iPreco <= 463297000) { return 761; } + else if (iPreco <= 464515400) { return 762; } + else if (iPreco <= 465735400) { return 763; } + else if (iPreco <= 466957000) { return 764; } + else if (iPreco <= 468180200) { return 765; } + else if (iPreco <= 469405000) { return 766; } + else if (iPreco <= 470631400) { return 767; } + else if (iPreco <= 471859400) { return 768; } + else if (iPreco <= 473089000) { return 769; } + else if (iPreco <= 474320200) { return 770; } + else if (iPreco <= 475553000) { return 771; } + else if (iPreco <= 476787400) { return 772; } + else if (iPreco <= 478023400) { return 773; } + else if (iPreco <= 479261000) { return 774; } + else if (iPreco <= 480500200) { return 775; } + else if (iPreco <= 481741000) { return 776; } + else if (iPreco <= 482983400) { return 777; } + else if (iPreco <= 484227400) { return 778; } + else if (iPreco <= 485473000) { return 779; } + else if (iPreco <= 486720200) { return 780; } + else if (iPreco <= 487969000) { return 781; } + else if (iPreco <= 489219400) { return 782; } + else if (iPreco <= 490471400) { return 783; } + else if (iPreco <= 491725000) { return 784; } + else if (iPreco <= 492980200) { return 785; } + else if (iPreco <= 494237000) { return 786; } + else if (iPreco <= 495495400) { return 787; } + else if (iPreco <= 496755400) { return 788; } + else if (iPreco <= 498017000) { return 789; } + else if (iPreco <= 499280200) { return 790; } + else if (iPreco <= 500545000) { return 791; } + else if (iPreco <= 501811400) { return 792; } + else if (iPreco <= 503079400) { return 793; } + else if (iPreco <= 504349000) { return 794; } + else if (iPreco <= 505620200) { return 795; } + else if (iPreco <= 506893000) { return 796; } + else if (iPreco <= 508167400) { return 797; } + else if (iPreco <= 509443400) { return 798; } + else if (iPreco <= 510721000) { return 799; } + else if (iPreco <= 512000200) { return 800; } + else if (iPreco <= 513281000) { return 801; } + else if (iPreco <= 514563400) { return 802; } + else if (iPreco <= 515847400) { return 803; } + else if (iPreco <= 517133000) { return 804; } + else if (iPreco <= 518420200) { return 805; } + else if (iPreco <= 519709000) { return 806; } + else if (iPreco <= 520999400) { return 807; } + else if (iPreco <= 522291400) { return 808; } + else if (iPreco <= 523585000) { return 809; } + else if (iPreco <= 524880200) { return 810; } + else if (iPreco <= 526177000) { return 811; } + else if (iPreco <= 527475400) { return 812; } + else if (iPreco <= 528775400) { return 813; } + else if (iPreco <= 530077000) { return 814; } + else if (iPreco <= 531380200) { return 815; } + else if (iPreco <= 532685000) { return 816; } + else if (iPreco <= 533991400) { return 817; } + else if (iPreco <= 535299400) { return 818; } + else if (iPreco <= 536609000) { return 819; } + else if (iPreco <= 537920200) { return 820; } + else if (iPreco <= 539233000) { return 821; } + else if (iPreco <= 540547400) { return 822; } + else if (iPreco <= 541863400) { return 823; } + else if (iPreco <= 543181000) { return 824; } + else if (iPreco <= 544500200) { return 825; } + else if (iPreco <= 545821000) { return 826; } + else if (iPreco <= 547143400) { return 827; } + else if (iPreco <= 548467400) { return 828; } + else if (iPreco <= 549793000) { return 829; } + else if (iPreco <= 551120200) { return 830; } + else if (iPreco <= 552449000) { return 831; } + else if (iPreco <= 553779400) { return 832; } + else if (iPreco <= 555111400) { return 833; } + else if (iPreco <= 556445000) { return 834; } + else if (iPreco <= 557780200) { return 835; } + else if (iPreco <= 559117000) { return 836; } + else if (iPreco <= 560455400) { return 837; } + else if (iPreco <= 561795400) { return 838; } + else if (iPreco <= 563137000) { return 839; } + else if (iPreco <= 564480200) { return 840; } + else if (iPreco <= 565825000) { return 841; } + else if (iPreco <= 567171400) { return 842; } + else if (iPreco <= 568519400) { return 843; } + else if (iPreco <= 569869000) { return 844; } + else if (iPreco <= 571220200) { return 845; } + else if (iPreco <= 572573000) { return 846; } + else if (iPreco <= 573927400) { return 847; } + else if (iPreco <= 575283400) { return 848; } + else if (iPreco <= 576641000) { return 849; } + else if (iPreco <= 578000200) { return 850; } + else if (iPreco <= 579361000) { return 851; } + else if (iPreco <= 580723400) { return 852; } + else if (iPreco <= 582087400) { return 853; } + else if (iPreco <= 583453000) { return 854; } + else if (iPreco <= 584820200) { return 855; } + else if (iPreco <= 586189000) { return 856; } + else if (iPreco <= 587559400) { return 857; } + else if (iPreco <= 588931400) { return 858; } + else if (iPreco <= 590305000) { return 859; } + else if (iPreco <= 591680200) { return 860; } + else if (iPreco <= 593057000) { return 861; } + else if (iPreco <= 594435400) { return 862; } + else if (iPreco <= 595815400) { return 863; } + else if (iPreco <= 597197000) { return 864; } + else if (iPreco <= 598580200) { return 865; } + else if (iPreco <= 599965000) { return 866; } + else if (iPreco <= 601351400) { return 867; } + else if (iPreco <= 602739400) { return 868; } + else if (iPreco <= 604129000) { return 869; } + else if (iPreco <= 605520200) { return 870; } + else if (iPreco <= 606913000) { return 871; } + else if (iPreco <= 608307400) { return 872; } + else if (iPreco <= 609703400) { return 873; } + else if (iPreco <= 611101000) { return 874; } + else if (iPreco <= 612500200) { return 875; } + else if (iPreco <= 613901000) { return 876; } + else if (iPreco <= 615303400) { return 877; } + else if (iPreco <= 616707400) { return 878; } + else if (iPreco <= 618113000) { return 879; } + else if (iPreco <= 619520200) { return 880; } + else if (iPreco <= 620929000) { return 881; } + else if (iPreco <= 622339400) { return 882; } + else if (iPreco <= 623751400) { return 883; } + else if (iPreco <= 625165000) { return 884; } + else if (iPreco <= 626580200) { return 885; } + else if (iPreco <= 627997000) { return 886; } + else if (iPreco <= 629415400) { return 887; } + else if (iPreco <= 630835400) { return 888; } + else if (iPreco <= 632257000) { return 889; } + else if (iPreco <= 633680200) { return 890; } + else if (iPreco <= 635105000) { return 891; } + else if (iPreco <= 636531400) { return 892; } + else if (iPreco <= 637959400) { return 893; } + else if (iPreco <= 639389000) { return 894; } + else if (iPreco <= 640820200) { return 895; } + else if (iPreco <= 642253000) { return 896; } + else if (iPreco <= 643687400) { return 897; } + else if (iPreco <= 645123400) { return 898; } + else if (iPreco <= 646561000) { return 899; } + else if (iPreco <= 648000200) { return 900; } + else if (iPreco <= 649441000) { return 901; } + else if (iPreco <= 650883400) { return 902; } + else if (iPreco <= 652327400) { return 903; } + else if (iPreco <= 653773000) { return 904; } + else if (iPreco <= 655220200) { return 905; } + else if (iPreco <= 656669000) { return 906; } + else if (iPreco <= 658119400) { return 907; } + else if (iPreco <= 659571400) { return 908; } + else if (iPreco <= 661025000) { return 909; } + else if (iPreco <= 662480200) { return 910; } + else if (iPreco <= 663937000) { return 911; } + else if (iPreco <= 665395400) { return 912; } + else if (iPreco <= 666855400) { return 913; } + else if (iPreco <= 668317000) { return 914; } + else if (iPreco <= 669780200) { return 915; } + else if (iPreco <= 671245000) { return 916; } + else if (iPreco <= 672711400) { return 917; } + else if (iPreco <= 674179400) { return 918; } + else if (iPreco <= 675649000) { return 919; } + else if (iPreco <= 677120200) { return 920; } + else if (iPreco <= 678593000) { return 921; } + else if (iPreco <= 680067400) { return 922; } + else if (iPreco <= 681543400) { return 923; } + else if (iPreco <= 683021000) { return 924; } + else if (iPreco <= 684500200) { return 925; } + else if (iPreco <= 685981000) { return 926; } + else if (iPreco <= 687463400) { return 927; } + else if (iPreco <= 688947400) { return 928; } + else if (iPreco <= 690433000) { return 929; } + else if (iPreco <= 691920200) { return 930; } + else if (iPreco <= 693409000) { return 931; } + else if (iPreco <= 694899400) { return 932; } + else if (iPreco <= 696391400) { return 933; } + else if (iPreco <= 697885000) { return 934; } + else if (iPreco <= 699380200) { return 935; } + else if (iPreco <= 700877000) { return 936; } + else if (iPreco <= 702375400) { return 937; } + else if (iPreco <= 703875400) { return 938; } + else if (iPreco <= 705377000) { return 939; } + else if (iPreco <= 706880200) { return 940; } + else if (iPreco <= 708385000) { return 941; } + else if (iPreco <= 709891400) { return 942; } + else if (iPreco <= 711399400) { return 943; } + else if (iPreco <= 712909000) { return 944; } + else if (iPreco <= 714420200) { return 945; } + else if (iPreco <= 715933000) { return 946; } + else if (iPreco <= 717447400) { return 947; } + else if (iPreco <= 718963400) { return 948; } + else if (iPreco <= 720481000) { return 949; } + else if (iPreco <= 722000200) { return 950; } + else if (iPreco <= 723521000) { return 951; } + else if (iPreco <= 725043400) { return 952; } + else if (iPreco <= 726567400) { return 953; } + else if (iPreco <= 728093000) { return 954; } + else if (iPreco <= 729620200) { return 955; } + else if (iPreco <= 731149000) { return 956; } + else if (iPreco <= 732679400) { return 957; } + else if (iPreco <= 734211400) { return 958; } + else if (iPreco <= 735745000) { return 959; } + else if (iPreco <= 737280200) { return 960; } + else if (iPreco <= 738817000) { return 961; } + else if (iPreco <= 740355400) { return 962; } + else if (iPreco <= 741895400) { return 963; } + else if (iPreco <= 743437000) { return 964; } + else if (iPreco <= 744980200) { return 965; } + else if (iPreco <= 746525000) { return 966; } + else if (iPreco <= 748071400) { return 967; } + else if (iPreco <= 749619400) { return 968; } + else if (iPreco <= 751169000) { return 969; } + else if (iPreco <= 752720200) { return 970; } + else if (iPreco <= 754273000) { return 971; } + else if (iPreco <= 755827400) { return 972; } + else if (iPreco <= 757383400) { return 973; } + else if (iPreco <= 758941000) { return 974; } + else if (iPreco <= 760500200) { return 975; } + else if (iPreco <= 762061000) { return 976; } + else if (iPreco <= 763623400) { return 977; } + else if (iPreco <= 765187400) { return 978; } + else if (iPreco <= 766753000) { return 979; } + else if (iPreco <= 768320200) { return 980; } + else if (iPreco <= 769889000) { return 981; } + else if (iPreco <= 771459400) { return 982; } + else if (iPreco <= 773031400) { return 983; } + else if (iPreco <= 774605000) { return 984; } + else if (iPreco <= 776180200) { return 985; } + else if (iPreco <= 777757000) { return 986; } + else if (iPreco <= 779335400) { return 987; } + else if (iPreco <= 780915400) { return 988; } + else if (iPreco <= 782497000) { return 989; } + else if (iPreco <= 784080200) { return 990; } + else if (iPreco <= 785665000) { return 991; } + else if (iPreco <= 787251400) { return 992; } + else if (iPreco <= 788839400) { return 993; } + else if (iPreco <= 790429000) { return 994; } + else if (iPreco <= 792020200) { return 995; } + else if (iPreco <= 793613000) { return 996; } + else if (iPreco <= 795207400) { return 997; } + else if (iPreco <= 796803400) { return 998; } + else if (iPreco <= 798401000) { return 999; } + else /*if (iPreco <= 800000200)*/ { return 1000; } + +/* + SISTEMA TRADICIONAL DE CALCULO DE NIVEL DE ITEM + + if (iPreco <= 1000) { return 1; } + else if (iPreco <= 1500) { return 2; } + else if (iPreco <= 2500) { return 3; } + else if (iPreco <= 3500) { return 4; } + else if (iPreco <= 5000) { return 5; } + else if (iPreco <= 6500) { return 6; } + else if (iPreco <= 9000) { return 7; } + else if (iPreco <= 12000) { return 8; } + else if (iPreco <= 15000) { return 9; } + else if (iPreco <= 19500) { return 10; } + else if (iPreco <= 25000) { return 11; } + else if (iPreco <= 30000) { return 12; } + else if (iPreco <= 35000) { return 13; } + else if (iPreco <= 40000) { return 14; } + else if (iPreco <= 50000) { return 15; } + else if (iPreco <= 65000) { return 16; } + else if (iPreco <= 75000) { return 17; } + else if (iPreco <= 90000) { return 18; } + else if (iPreco <= 110000) { return 19; } + else if (iPreco <= 130000) { return 20; } + else if (iPreco <= 250000) { return 21; } + else if (iPreco <= 500000) { return 22; } + else if (iPreco <= 750000) { return 23; } + else { + + int iCalculador = (((iPreco - 1000000) / 200000) + 24); + + if (NIVEL_MAXIMO_PERMITIDO < iCalculador) + { + return NIVEL_MAXIMO_PERMITIDO; + } + else + { + return iCalculador; + } + } +*/ +} +//****************************************************************************** + +//****************************************************************************** +int ObterNivelItem(object oItem) +{ + return ConverterPrecoNivelItem(GetGoldPieceValue(oItem)); +} +//atualizado abaixo +/*int ObterNivelItem(object oItem) +{ + int iNivel = NIVELConverterPrecoNivelItem( GetGoldPieceValue( oItem ) ); + if ( !( IPGetIsBludgeoningWeapon( oItem ) || IPGetIsMeleeWeapon( oItem ) || + IPGetIsRangedWeapon( oItem ) ) ) + { + iNivel *= NIVEL_CONSTANTE; + } + return iNivel; +}*/ +//****************************************************************************** + +//****************************************************************************** +int ObterExperienciaItem(object oItem) +{ + return ObterExperienciaNivel(ObterNivelItem(oItem)); +} +//****************************************************************************** diff --git a/_haks/poa_exp_abilities/nw_s1_aurablnda.ncs b/_haks/poa_exp_abilities/nw_s1_aurablnda.ncs new file mode 100644 index 0000000..376b84a Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_aurablnda.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_aurablnda.nss b/_haks/poa_exp_abilities/nw_s1_aurablnda.nss new file mode 100644 index 0000000..0babfaa --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_aurablnda.nss @@ -0,0 +1,48 @@ +//:://///////////////////////////////////////////// +//:: Aura of Blinding On Enter +//:: NW_S1_AuraBlndA.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Upon entering the aura of the creature the player + must make a will save or be blinded because of the + sheer ugliness or beauty of the creature. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 25, 2001 +//::////////////////////////////////////////////// +//#include "wm_include" +#include "prc_inc_spells" + +void main() +{ +//:: Declare major variables + object oNPC = GetAreaOfEffectCreator(); + object oTarget = GetEnteringObject(); + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nDuration = 1 + (nHD/3); + + effect eBlind = EffectBlindness(); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eVis = EffectVisualEffect(VFX_IMP_BLIND_DEAF_M); + effect eLink = EffectLinkEffects(eBlind, eDur); + + //if (NullMagicOverride(GetArea(oTarget), oTarget, oTarget)) {return;} + + //Entering object must make a will save or be blinded for the duration. + if(GetIsEnemy(oTarget, GetAreaOfEffectCreator())) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_AURA_BLINDING)); + if (!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC)) + { + //Apply the blind effect and the VFX impact + DelayCommand(0.0f, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + DelayCommand(0.0f, ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration))); + } + } +} \ No newline at end of file diff --git a/_haks/poa_exp_abilities/nw_s1_auracoldc.ncs b/_haks/poa_exp_abilities/nw_s1_auracoldc.ncs new file mode 100644 index 0000000..841ab57 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_auracoldc.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_auracoldc.nss b/_haks/poa_exp_abilities/nw_s1_auracoldc.nss new file mode 100644 index 0000000..49cd95e --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_auracoldc.nss @@ -0,0 +1,62 @@ +//:://///////////////////////////////////////////// +//:: Aura of Frost on Heartbeat +//:: NW_S1_AuraColdC.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Prolonged exposure to the aura of the creature + causes frost damage to all within the aura. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 25, 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +//#include "wm_include" +#include "prc_inc_spells" +void main() +{ +//:: Declare major variables + object oNPC = GetAreaOfEffectCreator(); + object oTarget = GetEnteringObject(); + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nFrost = 1 + (nHD/3); + int nDC = 10 +nCHAMod+ (nHD/2); + int nDamage; + + effect eDam; + effect eVis = EffectVisualEffect(VFX_IMP_FROST_S); + + //Get the first target in the aura of cold + oTarget = GetFirstInPersistentObject(); + + while (GetIsObjectValid(oTarget)) + { +/* if (NullMagicOverride(GetArea(oTarget), oTarget, oTarget)) + { + oTarget = GetNextInPersistentObject(OBJECT_SELF); + continue; + } */ + if(GetIsEnemy(oTarget, GetAreaOfEffectCreator())) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_AURA_COLD)); + //Roll damage based on the creatures HD + nDamage = d4(nFrost); + //Make a Fortitude save for half + if(PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_COLD)) + { + nDamage = nDamage / 2; + } + //Set the damage effect + eDam = EffectDamage(nDamage, DAMAGE_TYPE_COLD); + //Apply the VFX constant and damage effect + ApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + //Get the next target in the aura of cold + oTarget = GetNextInPersistentObject(); + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_auraelecc.ncs b/_haks/poa_exp_abilities/nw_s1_auraelecc.ncs new file mode 100644 index 0000000..6e622d9 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_auraelecc.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_auraelecc.nss b/_haks/poa_exp_abilities/nw_s1_auraelecc.nss new file mode 100644 index 0000000..06994f4 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_auraelecc.nss @@ -0,0 +1,58 @@ +//:://///////////////////////////////////////////// +//:: Aura of Electricity on Heartbeat +//:: NW_S1_AuraElecC.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Prolonged exposure to the aura of the creature + causes electrical damage to all within the aura. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 25, 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +//#include "wm_include" +#include "prc_inc_spells" + +void main() +{ +//:: Declare major variables + object oNPC = GetAreaOfEffectCreator(); + int nHD = GetHitDice(oNPC); + int nZap = 1 + (nHD / 3); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 + nCHAMod + (nHD/2); + int nDamage; + + effect eDam; + effect eVis = EffectVisualEffect(VFX_IMP_LIGHTNING_S); + + //Get first target in spell area + object oTarget = GetFirstInPersistentObject(); + while (GetIsObjectValid(oTarget)) + { +/* if (NullMagicOverride(GetArea(oTarget), oTarget, oTarget)) + { + oTarget = GetNextInPersistentObject(OBJECT_SELF); + continue; + } */ + if(GetIsEnemy(oTarget, GetAreaOfEffectCreator())) + { + nDamage = d4(nZap); + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELLABILITY_AURA_ELECTRICITY)); + //Make a saving throw check + if(PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_ELECTRICITY)) + { + nDamage = nDamage / 2; + } + eDam = EffectDamage(nDamage, DAMAGE_TYPE_ELECTRICAL); + //Apply the VFX impact and effects + DelayCommand(0.0f, ApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget)); + DelayCommand(0.0f, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + //Get next target in spell area + oTarget = GetNextInPersistentObject(); + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_aurafear.ncs b/_haks/poa_exp_abilities/nw_s1_aurafear.ncs new file mode 100644 index 0000000..f6cfd5a Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_aurafear.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_aurafear.nss b/_haks/poa_exp_abilities/nw_s1_aurafear.nss new file mode 100644 index 0000000..5275054 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_aurafear.nss @@ -0,0 +1,62 @@ +//:://///////////////////////////////////////////// +//:: Aura of Fear +//:: NW_S1_AuraFear.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Upon entering the aura of the creature the player + must make a will save or be struck with fear because + of the creatures presence. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 25, 2001 +//::////////////////////////////////////////////// + +// Modified 2004/01/30 (Brian Greinke) +// Added disable/reenable support +#include "prc_alterations" + +void main() +{ + //first, look to see if effect is already activated + if ( GetHasSpellEffect(SPELLABILITY_AURA_FEAR, OBJECT_SELF) ) + { + PRCRemoveSpellEffects( SPELLABILITY_AURA_FEAR, OBJECT_SELF, OBJECT_SELF ); + return; + } + + object oCaster = OBJECT_SELF; +if(GetLocalInt(GetArea(OBJECT_SELF), "NOCAST")==2 && !GetIsDM(oCaster)) +{ + +//Make them stop what they are doing instantly! +AssignCommand(oCaster, ClearAllActions()); + +//Though the player may show animation, nothing happens! :) +//SetModuleOverrideSpellScriptFinished(); + +FloatingTextStringOnCreature("All spells fizzle in town.", oCaster); + +return; +} + +/////////////////////////////////////////////////////////////////////////////// +//Handle Jail... +//NO ITEMS WORK IN JAIL!!! +if(GetLocalInt(GetArea(oCaster), "JAIL")==1) +{ + AssignCommand(oCaster, ClearAllActions()); + //Though the player may show animation, nothing happens! :) + //SetModuleOverrideSpellScriptFinished(); + + return; +} + +/////////////////////////////////////////////////////////////////////////////// + + + //Set and apply AOE object + effect eAOE = EffectAreaOfEffect(AOE_MOB_FEAR); + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eAOE, OBJECT_SELF, HoursToSeconds(100)); +} diff --git a/_haks/poa_exp_abilities/nw_s1_aurafirec.ncs b/_haks/poa_exp_abilities/nw_s1_aurafirec.ncs new file mode 100644 index 0000000..50fe632 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_aurafirec.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_aurafirec.nss b/_haks/poa_exp_abilities/nw_s1_aurafirec.nss new file mode 100644 index 0000000..a6b9638 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_aurafirec.nss @@ -0,0 +1,59 @@ +//:://///////////////////////////////////////////// +//:: Aura of Fire on Heartbeat +//:: NW_S1_AuraFireC.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Prolonged exposure to the aura of the creature + causes fire damage to all within the aura. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 25, 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +//#include "wm_include" +#include "prc_inc_spells" +void main() +{ +//:: Declare major variables + object oNPC = GetAreaOfEffectCreator(); + object oTarget = GetFirstInPersistentObject(); //:: Get first target in spell area + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nBurn = 1 + (nHD/3); + int nDC = 10 +nCHAMod+ (nHD/2); + int nDamage; + int nDamSave; + + effect eDam; + effect eVis = EffectVisualEffect(VFX_IMP_FLAME_S); + + while(GetIsObjectValid(oTarget)) + { +/* if (NullMagicOverride(GetArea(oTarget), oTarget, oTarget)) + { + oTarget = GetNextInPersistentObject(OBJECT_SELF); + continue; + } */ + if(GetIsEnemy(oTarget, GetAreaOfEffectCreator())) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(GetAreaOfEffectCreator(), SPELLABILITY_AURA_FIRE)); + //Roll damage + nDamage = d4(nBurn); + //Make a saving throw check + if(PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_FIRE)) + { + nDamage = nDamage / 2; + } + //Set the damage effect + eDam = EffectDamage(nDamage, DAMAGE_TYPE_FIRE); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + } + //Get next target in spell area + oTarget = GetNextInPersistentObject(); + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_auramenca.ncs b/_haks/poa_exp_abilities/nw_s1_auramenca.ncs new file mode 100644 index 0000000..ed889d3 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_auramenca.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_auramenca.nss b/_haks/poa_exp_abilities/nw_s1_auramenca.nss new file mode 100644 index 0000000..e786aaa --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_auramenca.nss @@ -0,0 +1,46 @@ +//:://///////////////////////////////////////////// +//:: Aura of Menace On Enter +//:: NW_S1_AuraMencA.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Upon entering the aura all those that fail + a will save are stricken with Doom. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 25, 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +//#include "wm_include" +#include "prc_inc_spells" + +void main() +{ +//:: Declare major variables + object oNPC = GetAreaOfEffectCreator(); + object oTarget = GetEnteringObject(); + + //if (NullMagicOverride(GetArea(oTarget), oTarget, oTarget)) {return;} + + int nDuration = 1 + (GetHitDice(oNPC)/3); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (GetHitDice(oNPC)/2); + int nLevel = GetCasterLevel(OBJECT_SELF); + int nMetaMagic = PRCGetMetaMagicFeat(); + + effect eVis = EffectVisualEffect(VFX_IMP_DOOM); + effect eLink = CreateDoomEffectsLink(); + + if(GetIsEnemy(oTarget, GetAreaOfEffectCreator())) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELLABILITY_AURA_MENACE)); + //Spell Resistance and Saving throw + if (!/*Will Save*/ PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC)) + { + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink , oTarget, TurnsToSeconds(nDuration)); + } + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_auraprota.ncs b/_haks/poa_exp_abilities/nw_s1_auraprota.ncs new file mode 100644 index 0000000..468539b Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_auraprota.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_auraprota.nss b/_haks/poa_exp_abilities/nw_s1_auraprota.nss new file mode 100644 index 0000000..548f284 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_auraprota.nss @@ -0,0 +1,35 @@ +//:://///////////////////////////////////////////// +//:: Aura of Protection: On Enter +//:: NW_S1_AuraProtA.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Acts as a double strength Magic Circle against + evil and a Minor Globe for those friends in + the area. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On:Jan 8, 2002, 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +//#include "wm_include" +void main() +{ + //Declare major variables + effect eProt = CreateProtectionFromAlignmentLink(ALIGNMENT_EVIL); + effect eGlobe = EffectSpellLevelAbsorption(3, 0); + effect eDur = EffectVisualEffect(VFX_DUR_GLOBE_MINOR); + + effect eLink = EffectLinkEffects(eProt, eGlobe); + eLink = EffectLinkEffects(eLink, eDur); + + object oTarget = GetEnteringObject(); + //if (NullMagicOverride(GetArea(oTarget), oTarget, oTarget)) {return;} + //Faction Check + if(GetIsFriend(oTarget, GetAreaOfEffectCreator())) + { + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_PERMANENT, eLink, oTarget); + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_aurastuna.ncs b/_haks/poa_exp_abilities/nw_s1_aurastuna.ncs new file mode 100644 index 0000000..279ae96 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_aurastuna.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_aurastuna.nss b/_haks/poa_exp_abilities/nw_s1_aurastuna.nss new file mode 100644 index 0000000..03d0aae --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_aurastuna.nss @@ -0,0 +1,48 @@ +//:://///////////////////////////////////////////// +//:: Aura Stunning On Enter +//:: NW_S1_AuraStunA.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Upon entering the aura of the creature the player + must make a will save or be stunned. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 25, 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +//#include "wm_include" +#include "prc_inc_spells" +void main() +{ +//:: Declare major variables + object oNPC = GetAreaOfEffectCreator(); + object oTarget = GetEnteringObject(); + + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDuration = GetHitDice(oNPC); + int nDC = 10 + nCHAMod + (nDuration/2); + + //if (NullMagicOverride(GetArea(oTarget), oTarget, oTarget)) {return;} + + effect eVis = EffectVisualEffect(VFX_IMP_STUN); + effect eVis2 = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_DISABLED); + effect eDeath = EffectStunned(); + effect eLink = EffectLinkEffects(eVis2, eDeath); + + nDuration = GetScaledDuration(nDuration, oTarget); + + if(!GetIsFriend(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_AURA_STUN)); + //Make a saving throw check + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_MIND_SPELLS)) + { + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration)); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + } +} \ No newline at end of file diff --git a/_haks/poa_exp_abilities/nw_s1_auraunata.ncs b/_haks/poa_exp_abilities/nw_s1_auraunata.ncs new file mode 100644 index 0000000..adac269 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_auraunata.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_auraunata.nss b/_haks/poa_exp_abilities/nw_s1_auraunata.nss new file mode 100644 index 0000000..a597062 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_auraunata.nss @@ -0,0 +1,48 @@ +//:://///////////////////////////////////////////// +//:: Aura of the Unnatural On Enter +//:: NW_S1_AuraMencA.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Upon entering the aura all animals are struck with + fear. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 25, 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +//#include "wm_include" +#include "prc_inc_spells" +void main() +{ +//:: Declare major variables + object oNPC = GetAreaOfEffectCreator(); + effect eVis = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_FEAR); + effect eFear = EffectFrightened(); + effect eLink = EffectLinkEffects(eVis, eFear); + object oTarget = GetEnteringObject(); + + //if (NullMagicOverride(GetArea(oTarget), oTarget, oTarget)) {return;} + + int nDuration = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nRacial = GetRacialType(oTarget); + int nDC = 10 + nCHAMod + (GetHitDice(oNPC)/2); + + if(GetIsEnemy(oTarget)) + { + nDuration = (nDuration / 3) + 1; + //Make a saving throw check + if(nRacial == RACIAL_TYPE_ANIMAL) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(GetAreaOfEffectCreator(), SPELLABILITY_AURA_UNNATURAL)); + //if (!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_FEAR)) //:: This ability only affects animals & they don't get a save. + //{ + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration)); + //} + } + } +} \ No newline at end of file diff --git a/_haks/poa_exp_abilities/nw_s1_aurauneaa.ncs b/_haks/poa_exp_abilities/nw_s1_aurauneaa.ncs new file mode 100644 index 0000000..f2ae337 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_aurauneaa.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_aurauneaa.nss b/_haks/poa_exp_abilities/nw_s1_aurauneaa.nss new file mode 100644 index 0000000..6f4a75b --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_aurauneaa.nss @@ -0,0 +1,46 @@ +//:://///////////////////////////////////////////// +//:: Aura Unearthly Visage On Enter +//:: NW_S1_AuraUnEaA.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Upon entering the aura of the creature the player + must make a will save or be killed because of the + sheer ugliness or beauty of the creature. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 25, 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +//#include "wm_include" +#include "prc_inc_spells" + +void main() +{ +//:: Declare major variables + object oNPC = GetAreaOfEffectCreator(); + object oTarget = GetEnteringObject(); + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + + //if (NullMagicOverride(GetArea(oTarget), oTarget, oTarget)) {return;} + + effect eDeath = EffectDeath(); + effect eVis = EffectVisualEffect(VFX_IMP_DEATH); + + if(GetIsEnemy(oTarget, oNPC)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_AURA_UNEARTHLY_VISAGE)); + //Make a saving throw check + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_DEATH)) + { + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_INSTANT, eDeath, oTarget); + //ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_barbrage.ncs b/_haks/poa_exp_abilities/nw_s1_barbrage.ncs new file mode 100644 index 0000000..6ca508a Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_barbrage.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_barbrage.nss b/_haks/poa_exp_abilities/nw_s1_barbrage.nss new file mode 100644 index 0000000..acae686 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_barbrage.nss @@ -0,0 +1,439 @@ +//:://///////////////////////////////////////////// +//:: Barbarian Rage +//:: NW_S1_BarbRage +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + The Str and Con of the Barbarian increases, + Will Save are +2, AC -2. + Greater Rage starts at level 15. + + Updated: 2004-01-18 mr_bumpkin: Added bonuses for exceeding +12 stat cap + Updated: 2004-2-24 by Oni5115: Added Intimidating Rage +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Aug 13, 2001 +//::////////////////////////////////////////////// + +#include "moi_inc_moifunc" +#include "inc_addragebonus" +#include "inc_npc" +#include "psi_inc_psifunc" +#include "prc_inc_factotum" + +void main() +{ + object oPC = OBJECT_SELF; + + if(GetHasSpellEffect(SPELL_SPELL_RAGE)) + { + IncrementRemainingFeatUses(OBJECT_SELF, FEAT_BARBARIAN_RAGE); + FloatingTextStringOnCreature("You can't use Barbarian Rage and Spell Rage at the same time.", OBJECT_SELF, FALSE); + return; + } + + if(!GetHasFeatEffect(FEAT_BARBARIAN_RAGE) && !GetHasSpellEffect(GetSpellId())) + { + int nBBC = GetLevelByClass(CLASS_TYPE_BLACK_BLOOD_CULTIST); + //Declare major variables + int nLevel = GetLevelByClass(CLASS_TYPE_BARBARIAN) + + GetLevelByClass(CLASS_TYPE_RUNESCARRED) + + GetLevelByClass(CLASS_TYPE_BATTLERAGER) + + GetLevelByClass(CLASS_TYPE_PRC_EYE_OF_GRUUMSH) + + nBBC + + GetLevelByClass(CLASS_TYPE_RAGE_MAGE); + + GetLevelByClass(CLASS_TYPE_WARCHIEF, oPC); + + GetLevelByClass(CLASS_TYPE_ORC_WARLORD, oPC); + + GetLevelByClass(CLASS_TYPE_FRE_BERSERKER, oPC); + + GetLevelByClass(CLASS_TYPE_LEGENDARY_DREADNOUGHT, oPC); + + GetLevelByClass(CLASS_TYPE_TOTEM_RAGER, oPC); + int iStr, iCon, iAC; + int nSave, nBonusEss; + int nTotem = GetLevelByClass(CLASS_TYPE_TOTEM_RAGER, oPC); + + // Factotum Cunning Brilliance + if (GetIsAbilitySaved(oPC, FEAT_BARBARIAN_RAGE)) + nLevel = GetLevelByClass(CLASS_TYPE_FACTOTUM); + + iAC = 2; +//edit rafael + if ((nLevel >= 180) && (GetHasFeat(FEAT_PRC_EPIC_MIGHT_RAGE, OBJECT_SELF))) + { + iStr = 25; + iCon = 25; + nSave = 21; + } + if ((nLevel >= 170) && (GetHasFeat(FEAT_PRC_EPIC_MIGHT_RAGE, OBJECT_SELF))) + { + iStr = 24; + iCon = 24; + nSave = 20; + } + if ((nLevel >= 160) && (GetHasFeat(FEAT_PRC_EPIC_MIGHT_RAGE, OBJECT_SELF))) + { + iStr = 23; + iCon = 23; + nSave = 19; + } + if ((nLevel >= 150) && (GetHasFeat(FEAT_PRC_EPIC_MIGHT_RAGE, OBJECT_SELF))) + { + iStr = 22; + iCon = 22; + nSave = 18; + } + if ((nLevel >= 140) && (GetHasFeat(FEAT_PRC_EPIC_MIGHT_RAGE, OBJECT_SELF))) + { + iStr = 21; + iCon = 21; + nSave = 17; + } + if ((nLevel >= 130) && (GetHasFeat(FEAT_PRC_EPIC_MIGHT_RAGE, OBJECT_SELF))) + { + iStr = 20; + iCon = 20; + nSave = 16; + } + if ((nLevel >= 120) && (GetHasFeat(FEAT_PRC_EPIC_MIGHT_RAGE, OBJECT_SELF))) + { + iStr = 19; + iCon = 19; + nSave = 15; + } + if ((nLevel >= 110) && (GetHasFeat(FEAT_PRC_EPIC_MIGHT_RAGE, OBJECT_SELF))) + { + iStr = 18; + iCon = 18; + nSave = 14; + } + if ((nLevel >= 100) && (GetHasFeat(FEAT_PRC_EPIC_MIGHT_RAGE, OBJECT_SELF))) + { + iStr = 17; + iCon = 17; + nSave = 13; + } + + if ((nLevel >= 90) && (GetHasFeat(FEAT_PRC_EPIC_MIGHT_RAGE, OBJECT_SELF))) + { + iStr = 16; + iCon = 16; + nSave = 12; + } + + if ((nLevel >= 80) && (GetHasFeat(FEAT_PRC_EPIC_MIGHT_RAGE, OBJECT_SELF))) + { + iStr = 15; + iCon = 15; + nSave = 11; + } + + if ((nLevel >= 70) && (GetHasFeat(FEAT_PRC_EPIC_MIGHT_RAGE, OBJECT_SELF))) + { + iStr = 14; + iCon = 14; + nSave = 10; + } + + if ((nLevel >= 60) && (GetHasFeat(FEAT_PRC_EPIC_MIGHT_RAGE, OBJECT_SELF))) + { + iStr = 13; + iCon = 13; + nSave = 9; + } + + if ((nLevel >= 50) && (GetHasFeat(FEAT_PRC_EPIC_MIGHT_RAGE, OBJECT_SELF))) + { + iStr = 12; + iCon = 12; + nSave = 8; + } + + if ((nLevel >= 40) && (GetHasFeat(FEAT_PRC_EPIC_MIGHT_RAGE, OBJECT_SELF))) + { + iStr = 11; + iCon = 11; + nSave = 7; + } + + if ((nLevel >= 30) && (GetHasFeat(FEAT_PRC_EPIC_MIGHT_RAGE, OBJECT_SELF))) + { + iStr = 10; + iCon = 10; + nSave = 6; + } + + if ((nLevel >= 20) && (GetHasFeat(FEAT_PRC_EPIC_MIGHT_RAGE, OBJECT_SELF))) + { + iStr = 9; + iCon = 9; + nSave = 5; + } + + +//fim edit rafael 2021 junho + //Lock: Added compatibility for PRC Mighty Rage ability + if(nLevel > 14) + { + if(GetHasFeat(FEAT_PRC_EPIC_MIGHT_RAGE)) + { + iStr = 8; + iCon = 8; + nSave = 4; + } + else + { + iStr = 6; + iCon = 6; + nSave = 3; + } + } + else + { + iStr = 4; + iCon = 4; + nSave = 2; + } + + // Eye of Gruumsh ability. Additional +4 Str and -2 AC. + if(GetHasFeat(FEAT_SWING_BLINDLY)) + { + iStr += 4; + iAC += 2; + } + + // +2 Str/Con -2 AC + if(GetHasFeat(FEAT_RECKLESS_RAGE)) + { + iStr += 2; + iCon += 2; + iAC += 2; + } + // +2 Con + if(GetHasFeat(FEAT_ETTERCAP_BERSERKER)) + iCon += 2; + + //(Patch 1.70 - if not silenced) play a random voice chat instead of just VOICE_CHAT_BATTLECRY1 + if(!PRCGetHasEffect(EFFECT_TYPE_SILENCE)) + { + int iVoice = d3(1); + switch(iVoice) + { + case 1: iVoice = VOICE_CHAT_BATTLECRY1; break; + case 2: iVoice = VOICE_CHAT_BATTLECRY2; break; + case 3: iVoice = VOICE_CHAT_BATTLECRY3; break; + } + PlayVoiceChat(iVoice); + } + + //Determine the duration by getting the con modifier after being modified + //Patch 1.70 - duration calculation was bugged + int nCon = 3 + ((GetAbilityScore(OBJECT_SELF, ABILITY_CONSTITUTION) - 10 + iCon)/2); + effect eLink = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE); + eLink = EffectLinkEffects(eLink, EffectAbilityIncrease(ABILITY_CONSTITUTION, iCon)); + eLink = EffectLinkEffects(eLink, EffectAbilityIncrease(ABILITY_STRENGTH, iStr)); + eLink = EffectLinkEffects(eLink, EffectSavingThrowIncrease(SAVING_THROW_WILL, nSave)); + eLink = EffectLinkEffects(eLink, EffectACDecrease(iAC, AC_DODGE_BONUS)); + + // Blazing Berserker + if(GetHasFeat(FEAT_BLAZING_BERSERKER)) + { + eLink = EffectLinkEffects(eLink, EffectVisualEffect(VFX_DUR_ELEMENTAL_SHIELD)); + eLink = EffectLinkEffects(eLink, EffectDamageImmunityDecrease(DAMAGE_TYPE_COLD, 50)); + eLink = EffectLinkEffects(eLink, EffectDamageImmunityIncrease(DAMAGE_TYPE_FIRE, 100)); + } + // Frozen Berserker + if(GetHasFeat(FEAT_FROZEN_BERSERKER)) + { + eLink = EffectLinkEffects(eLink, EffectVisualEffect(VFX_DUR_ELEMENTAL_SHIELD)); + eLink = EffectLinkEffects(eLink, EffectDamageImmunityDecrease(DAMAGE_TYPE_FIRE, 50)); + eLink = EffectLinkEffects(eLink, EffectDamageImmunityIncrease(DAMAGE_TYPE_COLD, 100)); + } + // Ice Troll Berserker + if(GetHasFeat(FEAT_ICE_TROLL_BERSERKER)) + { + int nBonus = 2; + if(nLevel > 14) nBonus = 4; + eLink = EffectLinkEffects(eLink, EffectACIncrease(nBonus, AC_NATURAL_BONUS)); + } + // Cobalt Rage + int nEssentia = GetEssentiaInvestedFeat(oPC, FEAT_COBALT_RAGE); + // Totem Rage from Totem Rager + if (nTotem) + { + int nTotemRage = GetMaxEssentiaCapacityFeat(oPC) - nEssentia; + int nExtraEss = max(nTotem/2, 1); + int nBoost; + if (nExtraEss >= nTotemRage) + { + nBonusEss = nExtraEss - nTotemRage; + nEssentia += nTotemRage; + } + else + nEssentia += nExtraEss; + } + if (nEssentia) + { + eLink = EffectLinkEffects(eLink, EffectSavingThrowIncrease(SAVING_THROW_WILL, nEssentia)); + eLink = EffectLinkEffects(eLink, EffectDamageIncrease(IPGetDamageBonusConstantFromNumber(nEssentia), DAMAGE_TYPE_BASE_WEAPON)); + } + + //Make effect extraordinary + eLink = ExtraordinaryEffect(eLink); + effect eVis = EffectVisualEffect(VFX_IMP_IMPROVE_ABILITY_SCORE); //Change to the Rage VFX + + SignalEvent(oPC, EventSpellCastAt(oPC, SPELLABILITY_BARBARIAN_RAGE, FALSE)); + + if(nCon > 0) + { + // 2004-01-18 mr_bumpkin: determine the ability scores before adding bonuses, so the values + // can be read in by the GiveExtraRageBonuses() function below. + int StrBeforeBonuses = GetAbilityScore(oPC, ABILITY_STRENGTH); + int ConBeforeBonuses = GetAbilityScore(oPC, ABILITY_CONSTITUTION); + + float fDuration = RoundsToSeconds(nCon); + fDuration += GetHasFeat(FEAT_EXTENDED_RAGE, oPC) ? 30.0 : 0.0; + if (nEssentia > 5 && nTotem >= 5) fDuration += 6.0 * (nEssentia - 5); + + // Terrifying Rage + if(GetHasFeat(FEAT_EPIC_TERRIFYING_RAGE)) + { + effect eAOE = EffectAreaOfEffect(AOE_MOB_FEAR, "x2_s2_terrage_A"); + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, ExtraordinaryEffect(eAOE), oPC, fDuration); + } + + // Frostrager + int nFrost = GetLevelByClass(CLASS_TYPE_FROSTRAGER, oPC); + object oWeapL = GetItemInSlot(INVENTORY_SLOT_CWEAPON_L, oPC); + string sWeapType = "PRC_UNARMED_B"; + if(nFrost>0 && GetBaseItemType(GetItemInSlot(INVENTORY_SLOT_RIGHTHAND, oPC)) == BASE_ITEM_INVALID && + GetIsObjectValid(oWeapL) && GetTag(oWeapL) == sWeapType) //Only applies when unarmed and you actually have a creature weapon + { + // Record that we're Frostraging + SetLocalInt(oPC, "Frostrage", TRUE); + DelayCommand(fDuration, DeleteLocalInt(oPC, "Frostrage")); + int nFrostAC = 4; + int nFrostDamage = IP_CONST_DAMAGEBONUS_1d4; + + if(nFrost>3) //Improved Frost Rage + { + nFrostAC = 6; + nFrostDamage = IP_CONST_DAMAGEBONUS_1d6; + } + + eLink = EffectLinkEffects(eLink, EffectACIncrease(nFrostAC, AC_NATURAL_BONUS)); + AddItemProperty(DURATION_TYPE_TEMPORARY,ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_COLD,nFrostDamage),oWeapL,fDuration); + } + else if (nFrost>0) + FloatingTextStringOnCreature("Frostrage failed, invalid weapon", oPC, FALSE); + + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oPC, fDuration); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oPC); + + // Totem Rage bonus Essentia + if (nBonusEss) + { + SetTemporaryEssentia(oPC, nBonusEss); + DelayCommand(fDuration, SetTemporaryEssentia(oPC, nBonusEss * -1)); + FloatingTextStringOnCreature("Totem Rage has granted you "+IntToString(nBonusEss)+" temporary essentia", oPC, FALSE); + } + + // Shared Fury + if(GetHasFeat(FEAT_SHARED_FURY, oPC)) + { + object oComp = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_MEDIUM, GetLocation(oPC), TRUE, OBJECT_TYPE_CREATURE); + while(GetIsObjectValid(oComp)) + { + if(GetMasterNPC(oComp) == oPC && GetAssociateTypeNPC(oComp) == ASSOCIATE_TYPE_ANIMALCOMPANION) + { + PRCRemoveEffectsFromSpell(oComp, SPELLABILITY_BARBARIAN_RAGE); + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oComp, fDuration); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oComp); + } + oComp = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_MEDIUM, GetLocation(oPC), TRUE, OBJECT_TYPE_CREATURE); + } + } + + // 2004-2-24 Oni5115: Intimidating Rage + if(GetHasFeat(FEAT_INTIMIDATING_RAGE, oPC)) + { + //Finds nearest visible enemy within 30 ft. + object oTarget = GetNearestCreature(CREATURE_TYPE_REPUTATION, REPUTATION_TYPE_ENEMY, oPC, 1, CREATURE_TYPE_PERCEPTION, PERCEPTION_SEEN); + if(GetDistanceBetween(oPC, oTarget) < FeetToMeters(30.0)) + { + // Will save DC 10 + 1/2 Char level + Cha mod + int saveDC = 10 + (GetHitDice(oPC)/2) + GetAbilityModifier(ABILITY_CHARISMA, oPC); + int nResult = WillSave(oTarget, saveDC, SAVING_THROW_TYPE_NONE); + if(!nResult) + { + // Same effect as Doom Spell + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectShaken(), oTarget, fDuration); + ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_DOOM), oTarget); + } + } + } + + // Thundering Rage + if(GetHasFeat(FEAT_EPIC_THUNDERING_RAGE, oPC)) + { + object oWeapon = GetItemInSlot(INVENTORY_SLOT_RIGHTHAND, oPC); + if(GetIsObjectValid(oWeapon)) + { + IPSafeAddItemProperty(oWeapon, ItemPropertyMassiveCritical(IP_CONST_DAMAGEBONUS_2d6), fDuration, X2_IP_ADDPROP_POLICY_KEEP_EXISTING,TRUE,TRUE); + IPSafeAddItemProperty(oWeapon, ItemPropertyVisualEffect(ITEM_VISUAL_SONIC), fDuration, X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,FALSE,TRUE); + IPSafeAddItemProperty(oWeapon, ItemPropertyOnHitProps(IP_CONST_ONHIT_DEAFNESS,IP_CONST_ONHIT_SAVEDC_20,IP_CONST_ONHIT_DURATION_25_PERCENT_3_ROUNDS), fDuration, X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,FALSE,TRUE); + } + + oWeapon = GetItemInSlot(INVENTORY_SLOT_LEFTHAND, oPC); + if(GetIsObjectValid(oWeapon)) + { + IPSafeAddItemProperty(oWeapon, ItemPropertyMassiveCritical(IP_CONST_DAMAGEBONUS_2d6), fDuration, X2_IP_ADDPROP_POLICY_KEEP_EXISTING,TRUE,TRUE); + IPSafeAddItemProperty(oWeapon,ItemPropertyVisualEffect(ITEM_VISUAL_SONIC), fDuration, X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,FALSE,TRUE); + } + } + + // Black Blood Cultist, don't trigger at 10th level because it becomes permanent then + if (10 > nBBC && nBBC > 0) + { + int nClawDamage = IP_CONST_MONSTERDAMAGE_1d6; + int nBiteDamage = IP_CONST_MONSTERDAMAGE_1d4; + string sResRef = "prc_claw_1d6m_"; + if (nBBC >= 7) + { + nClawDamage = IP_CONST_MONSTERDAMAGE_1d8; + nBiteDamage = IP_CONST_MONSTERDAMAGE_1d6; + sResRef = "prc_claw_1d8m_"; + } + + // Create the creature weapon & add the base damage + object oLClaw = GetPsionicCreatureWeapon(oPC, "PRC_UNARMED_SP", INVENTORY_SLOT_CWEAPON_L, fDuration); + object oRClaw = GetPsionicCreatureWeapon(oPC, "PRC_UNARMED_SP", INVENTORY_SLOT_CWEAPON_R, fDuration); + AddItemProperty(DURATION_TYPE_TEMPORARY, ItemPropertyMonsterDamage(nClawDamage), oLClaw, fDuration); + AddItemProperty(DURATION_TYPE_TEMPORARY, ItemPropertyMonsterDamage(nClawDamage), oRClaw, fDuration); + if (nBBC >= 3) + { + object oBite = GetPsionicCreatureWeapon(oPC, "prc_bw0_bite_t", INVENTORY_SLOT_CWEAPON_B, fDuration); + AddItemProperty(DURATION_TYPE_TEMPORARY, ItemPropertyMonsterDamage(nBiteDamage), oBite, fDuration); + } + if (nBBC >= 6) // Rend, see inc_rend and prc_onhitcast + { + IPSafeAddItemProperty(oLClaw, ItemPropertyOnHitCastSpell(IP_CONST_ONHIT_CASTSPELL_ONHIT_UNIQUEPOWER, 1), 99999.0, X2_IP_ADDPROP_POLICY_KEEP_EXISTING, FALSE, FALSE); + IPSafeAddItemProperty(oRClaw, ItemPropertyOnHitCastSpell(IP_CONST_ONHIT_CASTSPELL_ONHIT_UNIQUEPOWER, 1), 99999.0, X2_IP_ADDPROP_POLICY_KEEP_EXISTING, FALSE, FALSE); + } + + sResRef += GetAffixForSize(PRCGetCreatureSize(oPC)); + AddNaturalPrimaryWeapon(oPC, sResRef, 2, TRUE); + DelayCommand(6.0f, NaturalPrimaryWeaponTempCheck(oPC, oPC, GetSpellId(), FloatToInt(fDuration) / 6, sResRef)); + AddNaturalSecondaryWeapon(oPC, "prc_bw0_bite_t", 1); + DelayCommand(6.0f, NaturalSecondaryWeaponTempCheck(oPC, oPC, GetSpellId(), FloatToInt(fDuration) / 6, "prc_bw0_bite_t")); + } + + // 2004-01-18 mr_bumpkin: Adds special bonuses to those barbarians who are restricted by the + // +12 attribute bonus cap, to make up for them. :) + // The delay is because you have to delay the command if you want the function to be able + // to determine what the ability scores become after adding the bonuses to them. + DelayCommand(0.1, GiveExtraRageBonuses(nCon, StrBeforeBonuses, ConBeforeBonuses, iStr, iCon, nSave, DAMAGE_TYPE_BASE_WEAPON, oPC)); + + } + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_bltacid.ncs b/_haks/poa_exp_abilities/nw_s1_bltacid.ncs new file mode 100644 index 0000000..9e9d57b Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_bltacid.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_bltacid.nss b/_haks/poa_exp_abilities/nw_s1_bltacid.nss new file mode 100644 index 0000000..ef53a16 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_bltacid.nss @@ -0,0 +1,66 @@ +//:://///////////////////////////////////////////// +//:: Bolt: Acid +//:: NW_S1_BltAcid +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Creature must make a ranged touch attack to hit + the intended target. Reflex or Will save is + needed to halve damage or avoid effect. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 11 , 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + int nHD = GetHitDice(oNPC); + int nCONMod = GetAbilityModifier(ABILITY_CONSTITUTION, oNPC); + int nDC = 10 +nCONMod+ (nHD/2); + int nCount = nHD/2; + if (nCount == 0) { nCount = 1; } + int nDamage = d6(nCount); + + effect eVis = EffectVisualEffect(VFX_IMP_ACID_S); + effect eBolt; + + //ankheg + if(GetAppearanceType(oNPC) == APPEARANCE_TYPE_BEETLE_SLICER) + { + nDamage = d4(4); + } + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_BOLT_ACID)); + + //Adjust the damage based on the Reflex Save, Evasion and Improved Evasion. + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nDC,SAVING_THROW_TYPE_ACID); + + //Make a ranged touch attack + int nTouch = TouchAttackRanged(oTarget); + if(nTouch > 0) + { + if(nTouch == 2) + { + nDamage *= 2; + } + //Set damage effect + eBolt = EffectDamage(nDamage, DAMAGE_TYPE_ACID); + if(nDamage > 0) + { + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_INSTANT, eBolt, oTarget); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_bltcharm.ncs b/_haks/poa_exp_abilities/nw_s1_bltcharm.ncs new file mode 100644 index 0000000..60db2a7 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_bltcharm.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_bltcharm.nss b/_haks/poa_exp_abilities/nw_s1_bltcharm.nss new file mode 100644 index 0000000..df11d65 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_bltcharm.nss @@ -0,0 +1,47 @@ +//:://///////////////////////////////////////////// +//:: Bolt: Charm +//:: NW_S1_BltCharm +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Creature must make a ranged touch attack to hit + the intended target. Reflex or Will save is + needed to halve damage or avoid effect. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 11 , 2001 +//::////////////////////////////////////////////// +#include "prc_inc_spells" +//#include "wm_include" +#include "NW_I0_SPELLS" +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nCount = (nHD + 1) / 2; + nCount = GetScaledDuration(nCount, oTarget); + + effect eVis = EffectVisualEffect(VFX_IMP_CHARM); + effect eBolt = EffectCharmed(); + eBolt = GetScaledEffect(eBolt, oTarget); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eLink = EffectLinkEffects(eBolt, eDur); + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_BOLT_CHARM)); + //Make a saving throw check + if (!/*Will Save*/ PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_MIND_SPELLS) && TouchAttackRanged(oTarget)) + { + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nCount)); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } +} \ No newline at end of file diff --git a/_haks/poa_exp_abilities/nw_s1_bltchrdr.ncs b/_haks/poa_exp_abilities/nw_s1_bltchrdr.ncs new file mode 100644 index 0000000..d86707e Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_bltchrdr.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_bltchrdr.nss b/_haks/poa_exp_abilities/nw_s1_bltchrdr.nss new file mode 100644 index 0000000..e734580 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_bltchrdr.nss @@ -0,0 +1,48 @@ +//:://///////////////////////////////////////////// +//:: Bolt: Charisma Drain +//:: NW_S1_BltChrDr +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Creature must make a ranged touch attack to hit + the intended target. Fortitude save is + needed to avoid effect. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 11 , 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nCount = nHD / 3; + if (nCount == 0) { nCount = 1; } + int nDamage = d6(nCount); + + effect eVis = EffectVisualEffect(VFX_IMP_NEGATIVE_ENERGY); + effect eBolt; + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELLABILITY_BOLT_ABILITY_DRAIN_CHARISMA)); + //Make a saving throw check + if (!/*Fort Save*/ PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_NEGATIVE) && TouchAttackRanged(oTarget)) + { + eBolt = EffectAbilityDecrease(ABILITY_CHARISMA, nCount); + eBolt = SupernaturalEffect(eBolt); + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_PERMANENT, eBolt, oTarget, RoundsToSeconds(nHD)); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_bltcold.ncs b/_haks/poa_exp_abilities/nw_s1_bltcold.ncs new file mode 100644 index 0000000..373a803 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_bltcold.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_bltcold.nss b/_haks/poa_exp_abilities/nw_s1_bltcold.nss new file mode 100644 index 0000000..657f0fe --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_bltcold.nss @@ -0,0 +1,60 @@ +//:://///////////////////////////////////////////// +//:: Bolt: Cold +//:: NW_S1_BltCold +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Creature must make a ranged touch attack to hit + the intended target. Reflex or Will save is + needed to halve damage or avoid effect. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 11 , 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nCount = nHD/2; + if (nCount == 0) { nCount = 1; } + int nDamage = d6(nCount); + + effect eVis = EffectVisualEffect(VFX_IMP_FROST_S); + effect eBolt; + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_BOLT_COLD)); + + //Adjust the damage based on the Reflex Save, Evasion and Improved Evasion. + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nDC,SAVING_THROW_TYPE_COLD); + + //Make a ranged touch attack + int nTouch = TouchAttackRanged(oTarget); + if(nTouch > 0) + { + if(nTouch == 2) + { + nDamage *= 2; + } + //Set damage effect + eBolt = EffectDamage(nDamage, DAMAGE_TYPE_COLD); + if(nDamage > 0) + { + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_INSTANT, eBolt, oTarget); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_bltcondr.ncs b/_haks/poa_exp_abilities/nw_s1_bltcondr.ncs new file mode 100644 index 0000000..e8c357f Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_bltcondr.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_bltcondr.nss b/_haks/poa_exp_abilities/nw_s1_bltcondr.nss new file mode 100644 index 0000000..9d85f04 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_bltcondr.nss @@ -0,0 +1,48 @@ +//:://///////////////////////////////////////////// +//:: Bolt: Constitution Drain +//:: NW_S1_BltConDr +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Creature must make a ranged touch attack to hit + the intended target. Fort save is + needed to avoid effect. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 11 , 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nCount = (nHD /3); + if (nCount == 0) { nCount = 1; } + int nDamage = d6(nCount); + + effect eVis = EffectVisualEffect(VFX_IMP_NEGATIVE_ENERGY); + effect eBolt; + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_BOLT_ABILITY_DRAIN_CONSTITUTION)); + //Make a saving throw check + if (!/*Fort Save*/ PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_NEGATIVE) && TouchAttackRanged(oTarget)) + { + eBolt = EffectAbilityDecrease(ABILITY_CONSTITUTION, nCount); + eBolt = SupernaturalEffect(eBolt); + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_PERMANENT, eBolt, oTarget, RoundsToSeconds(nHD)); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_bltconf.ncs b/_haks/poa_exp_abilities/nw_s1_bltconf.ncs new file mode 100644 index 0000000..914f4a1 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_bltconf.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_bltconf.nss b/_haks/poa_exp_abilities/nw_s1_bltconf.nss new file mode 100644 index 0000000..5bed7dc --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_bltconf.nss @@ -0,0 +1,48 @@ +//:://///////////////////////////////////////////// +//:: Bolt: Confuse +//:: NW_S1_BltConf +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Creature must make a ranged touch attack to hit + the intended target. Reflex or Will save is + needed to halve damage or avoid effect. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 11 , 2001 +//::////////////////////////////////////////////// +#include "prc_inc_spells" +//#include "wm_include" +#include "NW_I0_SPELLS" +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nCount = (nHD + 1) / 2; + nCount = GetScaledDuration(nCount, oTarget); + + effect eVis2 = EffectVisualEffect(VFX_IMP_CONFUSION_S); + effect eVis = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_DISABLED); + effect eBolt = EffectConfused(); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eLink = EffectLinkEffects(eBolt, eDur); + eLink = EffectLinkEffects(eLink, eVis); + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_BOLT_CONFUSE)); + //Make a saving throw check + if (!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_MIND_SPELLS) && TouchAttackRanged(oTarget)) + { + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nCount)); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis2, oTarget); + } +} \ No newline at end of file diff --git a/_haks/poa_exp_abilities/nw_s1_bltdaze.ncs b/_haks/poa_exp_abilities/nw_s1_bltdaze.ncs new file mode 100644 index 0000000..708985f Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_bltdaze.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_bltdaze.nss b/_haks/poa_exp_abilities/nw_s1_bltdaze.nss new file mode 100644 index 0000000..68d15c7 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_bltdaze.nss @@ -0,0 +1,47 @@ +//:://///////////////////////////////////////////// +//:: Bolt: Daze +//:: NW_S1_BltDaze +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Creature must make a ranged touch attack to hit + the intended target. Reflex or Will save is + needed to halve damage or avoid effect. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 11 , 2001 +//::////////////////////////////////////////////// +#include "prc_inc_spells" +//#include "wm_include" +#include "NW_I0_SPELLS" +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nCount = (nHD + 1) / 2; + nCount = GetScaledDuration(nCount, oTarget); + + effect eVis = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_DISABLED); + effect eBolt = EffectDazed(); + eBolt = GetScaledEffect(eBolt, oTarget); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eLink = EffectLinkEffects(eBolt, eDur); + eLink = EffectLinkEffects(eLink, eVis); + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_BOLT_DAZE)); + //Make a saving throw check + if (!/*Will Save*/ PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_MIND_SPELLS) && TouchAttackRanged(oTarget)) + { + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nCount)); + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_bltdeath.ncs b/_haks/poa_exp_abilities/nw_s1_bltdeath.ncs new file mode 100644 index 0000000..c1ecd7d Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_bltdeath.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_bltdeath.nss b/_haks/poa_exp_abilities/nw_s1_bltdeath.nss new file mode 100644 index 0000000..e2cbcd7 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_bltdeath.nss @@ -0,0 +1,47 @@ +//:://///////////////////////////////////////////// +//:: Bolt: Death +//:: NW_S1_BltDeath +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Creature must make a ranged touch attack to hit + the intended target. Reflex or Will save is + needed to halve damage or avoid effect. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 11 , 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + + effect eVis = EffectVisualEffect(VFX_IMP_DEATH); + effect eBolt = EffectDeath(); + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_BOLT_DEATH)); + //Make a saving throw check + if(TouchAttackRanged(oTarget)) + { + if(!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_DEATH)) + { + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_INSTANT, eBolt, oTarget); + //ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + } +} + diff --git a/_haks/poa_exp_abilities/nw_s1_bltdexdr.ncs b/_haks/poa_exp_abilities/nw_s1_bltdexdr.ncs new file mode 100644 index 0000000..ecc2983 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_bltdexdr.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_bltdexdr.nss b/_haks/poa_exp_abilities/nw_s1_bltdexdr.nss new file mode 100644 index 0000000..4ef34d8 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_bltdexdr.nss @@ -0,0 +1,48 @@ +//:://///////////////////////////////////////////// +//:: Bolt: Dexterity Drain +//:: NW_S1_BltDexDr +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Creature must make a ranged touch attack to hit + the intended target. Fort save is + needed to avoid effect. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 11 , 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nCount = (nHD + 1) / 2; + if (nCount == 0) { nCount = 1; } + int nDamage = d6(nCount); + + effect eVis = EffectVisualEffect(VFX_IMP_NEGATIVE_ENERGY); + effect eBolt; + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_BOLT_ABILITY_DRAIN_DEXTERITY)); + //Make a saving throw check + if (!/*Fort Save*/ PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_NEGATIVE) && TouchAttackRanged(oTarget)) + { + eBolt = EffectAbilityDecrease(ABILITY_DEXTERITY, nCount); + eBolt = SupernaturalEffect(eBolt); + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_PERMANENT, eBolt, oTarget, RoundsToSeconds(nHD)); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_bltdisese.ncs b/_haks/poa_exp_abilities/nw_s1_bltdisese.ncs new file mode 100644 index 0000000..8580d05 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_bltdisese.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_bltdisese.nss b/_haks/poa_exp_abilities/nw_s1_bltdisese.nss new file mode 100644 index 0000000..6513a06 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_bltdisese.nss @@ -0,0 +1,73 @@ +//:://///////////////////////////////////////////// +//:: Bolt: Disease +//:: NW_S1_BltDisease +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Creature must make a ranged touch attack to infect + the target with a disease. The disease used + is chosen based upon the racial type of the + caster. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 11 , 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + int nHD = GetHitDice(oNPC); + int nRacial = MyPRCGetRacialType(oNPC); + int nDisease; + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_BOLT_DISEASE)); + + //Here we use the racial type of the attacker to select an + //appropriate disease. + switch (nRacial) + { + case RACIAL_TYPE_VERMIN: + nDisease = DISEASE_VERMIN_MADNESS; + break; + case RACIAL_TYPE_UNDEAD: + nDisease = DISEASE_FILTH_FEVER; + break; + case RACIAL_TYPE_OUTSIDER: + if(GetTag(oNPC) == "NW_SLAADRED") + { + nDisease = DISEASE_RED_SLAAD_EGGS; + } + else + { + nDisease = DISEASE_DEMON_FEVER; + } + break; + case RACIAL_TYPE_MAGICAL_BEAST: + nDisease = DISEASE_SOLDIER_SHAKES; + break; + case RACIAL_TYPE_ABERRATION: + nDisease = DISEASE_BLINDING_SICKNESS; + break; + default: + nDisease = DISEASE_SOLDIER_SHAKES; + break; + } + //Assign effect and chosen disease + effect eBolt = EffectDisease(nDisease); + //Make the ranged touch attack. + if (TouchAttackRanged(oTarget)) + { + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_PERMANENT, eBolt, oTarget); + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_bltdomn.ncs b/_haks/poa_exp_abilities/nw_s1_bltdomn.ncs new file mode 100644 index 0000000..ab8a4be Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_bltdomn.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_bltdomn.nss b/_haks/poa_exp_abilities/nw_s1_bltdomn.nss new file mode 100644 index 0000000..5027b45 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_bltdomn.nss @@ -0,0 +1,53 @@ +//:://///////////////////////////////////////////// +//:: Bolt: Dominated +//:: NW_S1_BltDomn +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Creature must make a ranged touch attack to hit + the intended target. Reflex or Will save is + needed to halve damage or avoid effect. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 11 , 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nCount = (nHD + 1) / 2; + if (nCount == 0) { nCount = 1; } + nCount = GetScaledDuration(nCount, oTarget); + + effect eVis = EffectVisualEffect(VFX_IMP_DOMINATE_S); + effect eBolt = EffectDominated(); + eBolt = GetScaledEffect(eBolt, oTarget); + effect eVis2 = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_DOMINATED); + eBolt = GetScaledEffect(eBolt, oTarget); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eLink = EffectLinkEffects(eBolt, eDur); + eLink = EffectLinkEffects(eLink, eVis2); + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_BOLT_DOMINATE)); + + //Make a saving throw check + if (!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_MIND_SPELLS) && TouchAttackRanged(oTarget)) + { + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nCount)); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_bltfire.ncs b/_haks/poa_exp_abilities/nw_s1_bltfire.ncs new file mode 100644 index 0000000..cf13fea Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_bltfire.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_bltfire.nss b/_haks/poa_exp_abilities/nw_s1_bltfire.nss new file mode 100644 index 0000000..4f7a423 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_bltfire.nss @@ -0,0 +1,58 @@ +//:://///////////////////////////////////////////// +//:: Bolt: Fire +//:: NW_S1_BoltFire +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Creature must make a ranged touch attack to hit + the intended target. Reflex or Will save is + needed to halve damage or avoid effect. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 11 , 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nCount = nHD/2; + if (nCount == 0) { nCount = 1; } + int nDamage = d6(nCount); + + effect eVis = EffectVisualEffect(VFX_IMP_FLAME_S); + effect eBolt; + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_BOLT_FIRE)); + //Adjust the damage based on the Reflex Save, Evasion and Improved Evasion. + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nDC,SAVING_THROW_TYPE_FIRE); + //Make a ranged touch attack + int nTouch = TouchAttackRanged(oTarget); + if(nTouch > 0) + { + if(nTouch == 2) + { + nDamage *= 2; + } + //Set damage effect + eBolt = EffectDamage(nDamage, DAMAGE_TYPE_FIRE); + if(nDamage > 0) + { + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_INSTANT, eBolt, oTarget); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_bltintdr.ncs b/_haks/poa_exp_abilities/nw_s1_bltintdr.ncs new file mode 100644 index 0000000..33b3da4 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_bltintdr.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_bltintdr.nss b/_haks/poa_exp_abilities/nw_s1_bltintdr.nss new file mode 100644 index 0000000..f3ffbad --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_bltintdr.nss @@ -0,0 +1,48 @@ +//:://///////////////////////////////////////////// +//:: Bolt: Intelligence Drain +//:: NW_S1_BltIntDr +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Creature must make a ranged touch attack to hit + the intended target. Reflex or Will save is + needed to halve damage or avoid effect. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 11 , 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nCount = (nHD + 1) / 2; + if (nCount == 0) { nCount = 1; } + int nDamage = d6(nCount); + + effect eVis = EffectVisualEffect(VFX_IMP_NEGATIVE_ENERGY); + effect eBolt; + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_BOLT_ABILITY_DRAIN_INTELLIGENCE)); + //Make a saving throw check + if (!/*Fort Save*/ PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_NEGATIVE) && TouchAttackRanged(oTarget)) + { + eBolt = EffectAbilityDecrease(ABILITY_INTELLIGENCE, nCount); + eBolt = SupernaturalEffect(eBolt); + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_PERMANENT, eBolt, oTarget, RoundsToSeconds(nHD)); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_bltknckd.ncs b/_haks/poa_exp_abilities/nw_s1_bltknckd.ncs new file mode 100644 index 0000000..5c09819 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_bltknckd.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_bltknckd.nss b/_haks/poa_exp_abilities/nw_s1_bltknckd.nss new file mode 100644 index 0000000..6816964 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_bltknckd.nss @@ -0,0 +1,48 @@ +//:://///////////////////////////////////////////// +//:: Bolt: Knockdown +//:: NW_S1_BltKnckD +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Creature must make a ranged touch attack to hit + the intended target. Reflex or Will save is + needed to halve damage or avoid effect. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 11 , 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nCount = nHD/2; + if (nCount == 0) { nCount = 1; } + + effect eVis = EffectVisualEffect(VFX_IMP_SONIC); + effect eBolt = EffectKnockdown(); + effect eDam = EffectDamage(d6(), DAMAGE_TYPE_BLUDGEONING); + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_BOLT_KNOCKDOWN)); + + //Make a saving throw check + if (!/*Reflex Save*/ PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, nDC) && TouchAttackRanged(oTarget)) + { + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eBolt, oTarget, RoundsToSeconds(3)); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_bltlightn.ncs b/_haks/poa_exp_abilities/nw_s1_bltlightn.ncs new file mode 100644 index 0000000..9315527 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_bltlightn.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_bltlightn.nss b/_haks/poa_exp_abilities/nw_s1_bltlightn.nss new file mode 100644 index 0000000..024eafb --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_bltlightn.nss @@ -0,0 +1,59 @@ +//:://///////////////////////////////////////////// +//:: Bolt: Lightning +//:: NW_S1_BltLightn +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Does 1d6 per level to a single target. Reflex + save for half +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Aug 10, 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nCount = nHD/2; + if (nCount == 0) { nCount = 1; } + int nDamage = d6(nCount); + + effect eLightning = EffectBeam(VFX_BEAM_LIGHTNING, OBJECT_SELF,BODY_NODE_HAND); + effect eVis = EffectVisualEffect(VFX_IMP_LIGHTNING_S); + effect eBolt; + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELLABILITY_BOLT_LIGHTNING)); + //Adjust the damage based on the Reflex Save, Evasion and Improved Evasion. + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nDC,SAVING_THROW_TYPE_ELECTRICITY); + //Make a ranged touch attack + int nTouch = TouchAttackRanged(oTarget); + if(nTouch > 0) + { + if(nTouch == 2) + { + nDamage *= 2; + } + //Set damage effect + eBolt = EffectDamage(nDamage, DAMAGE_TYPE_ELECTRICAL); + if(nDamage > 0) + { + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_INSTANT, eBolt, oTarget); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLightning, oTarget, 1.7); + } + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_bltlvldr.ncs b/_haks/poa_exp_abilities/nw_s1_bltlvldr.ncs new file mode 100644 index 0000000..7f6d6ea Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_bltlvldr.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_bltlvldr.nss b/_haks/poa_exp_abilities/nw_s1_bltlvldr.nss new file mode 100644 index 0000000..e3f14ca --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_bltlvldr.nss @@ -0,0 +1,49 @@ +//:://///////////////////////////////////////////// +//:: Bolt: Level Drain +//:: NW_S1_BltLvlDr +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Creature must make a ranged touch attack to hit + the intended target. Reflex or Will save is + needed to halve damage or avoid effect. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 11 , 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nCount = nHD/5; + if (nCount == 0) { nCount = 1; } + int nDamage = d6(nCount); + + effect eVis = EffectVisualEffect(VFX_IMP_NEGATIVE_ENERGY); + effect eBolt = EffectNegativeLevel(1); + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_BOLT_LEVEL_DRAIN)); + + //Make a saving throw check + if (!/*Fort Save*/ PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_NEGATIVE) && TouchAttackRanged(oTarget)) + { + //eBolt = LEVEL DRAIN EFFECT + eBolt = SupernaturalEffect(eBolt); + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_INSTANT, eBolt, oTarget); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_bltparal.ncs b/_haks/poa_exp_abilities/nw_s1_bltparal.ncs new file mode 100644 index 0000000..352beb7 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_bltparal.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_bltparal.nss b/_haks/poa_exp_abilities/nw_s1_bltparal.nss new file mode 100644 index 0000000..e4a6b59 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_bltparal.nss @@ -0,0 +1,48 @@ +//:://///////////////////////////////////////////// +//:: Bolt: Paralyze +//:: NW_S1_BltParal +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Creature must make a ranged touch attack to hit + the intended target. Reflex or Will save is + needed to halve damage or avoid effect. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 11 , 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nCount = (nHD + 1) / 2; + if (nCount == 0) { nCount = 1; } + nCount = GetScaledDuration(nCount, oTarget); + + effect eVis = EffectVisualEffect(VFX_DUR_PARALYZED); + effect eBolt = EffectParalyze(); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eLink = EffectLinkEffects(eBolt, eDur); + eLink = EffectLinkEffects(eLink, eVis); + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_BOLT_PARALYZE)); + //Make a saving throw check + if (!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC) && TouchAttackRanged(oTarget)) + { + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nCount)); + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_bltpoison.ncs b/_haks/poa_exp_abilities/nw_s1_bltpoison.ncs new file mode 100644 index 0000000..d7368cb Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_bltpoison.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_bltpoison.nss b/_haks/poa_exp_abilities/nw_s1_bltpoison.nss new file mode 100644 index 0000000..8a34aca --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_bltpoison.nss @@ -0,0 +1,123 @@ +//:://///////////////////////////////////////////// +//:: Bolt: Poison +//:: NW_S1_BltPoison.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Must make a ranged touch attack. If successful + the target is struck down with poison that + scales with level. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 22, 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + int nHD = GetHitDice(oNPC); + int nRacial = MyPRCGetRacialType(OBJECT_SELF); + int nPoison; + + effect ePoison; + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_BOLT_POISON)); + + //Determine the poison type based on the Racial Type and HD + switch (nRacial) + { + case RACIAL_TYPE_OUTSIDER: + if (nHD <= 9) + { + nPoison = POISON_QUASIT_VENOM; + } + else if (nHD > 9 && nHD < 13) + { + nPoison = POISON_BEBILITH_VENOM; + } + else if (nHD >= 13) + { + nPoison = POISON_PIT_FIEND_ICHOR; + } + break; + case RACIAL_TYPE_VERMIN: + if (nHD < 3) + { + nPoison = POISON_TINY_SPIDER_VENOM; + } + else if (nHD <= 3 && nHD < 6) + { + nPoison = POISON_SMALL_SPIDER_VENOM; + } + else if (nHD <= 6 && nHD < 9) + { + nPoison = POISON_MEDIUM_SPIDER_VENOM; + } + else if (nHD <= 9 && nHD < 12) + { + nPoison = POISON_LARGE_SPIDER_VENOM; + } + else if (nHD <= 12 && nHD < 15) + { + nPoison = POISON_HUGE_SPIDER_VENOM; + } + else if (nHD <= 15 && nHD < 18) + { + nPoison = POISON_GARGANTUAN_SPIDER_VENOM; + } + else if (nHD >= 18) + { + nPoison = POISON_COLOSSAL_SPIDER_VENOM; + } + break; + default: + if (nHD < 3) + { + nPoison = POISON_NIGHTSHADE; + } + else if (nHD <= 3 && nHD < 6) + { + nPoison = POISON_BLADE_BANE; + } + else if (nHD <= 6 && nHD < 9) + { + nPoison = POISON_BLOODROOT; + } + else if (nHD <= 9 && nHD < 12) + { + nPoison = POISON_LARGE_SPIDER_VENOM; + } + else if (nHD <= 12 && nHD < 15) + { + nPoison = POISON_LICH_DUST; + } + else if (nHD <= 15 && nHD < 18) + { + nPoison = POISON_DARK_REAVER_POWDER; + } + else if (nHD >= 18 ) + { + nPoison = POISON_BLACK_LOTUS_EXTRACT; + } + + break; + } + //Make a ranged touch attack + if (TouchAttackRanged (oTarget)) + { + ePoison = EffectPoison(nPoison); + //Apply effects + ApplyEffectToObject(DURATION_TYPE_PERMANENT, ePoison, oTarget); + } +} + diff --git a/_haks/poa_exp_abilities/nw_s1_bltshards.ncs b/_haks/poa_exp_abilities/nw_s1_bltshards.ncs new file mode 100644 index 0000000..b260bb7 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_bltshards.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_bltshards.nss b/_haks/poa_exp_abilities/nw_s1_bltshards.nss new file mode 100644 index 0000000..1b96e2b --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_bltshards.nss @@ -0,0 +1,58 @@ +//:://///////////////////////////////////////////// +//:: Bolt: Shards +//:: NW_S1_BltShard +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Creature must make a ranged touch attack to hit + the intended target. Reflex or Will save is + needed to halve damage or avoid effect. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 11 , 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nCount = (nHD + 1) / 2; + if (nCount == 0) { nCount = 1; } + int nDamage = d6(nCount); + + effect eBolt; + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELLABILITY_BOLT_SHARDS)); + + //Adjust the damage based on the Reflex Save, Evasion and Improved Evasion. + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nDC); + + //Make a ranged touch attack + int nTouch = TouchAttackRanged(oTarget); + if(nTouch > 0) + { + if(nTouch == 2) + { + nDamage *= 2; + } + //Set damage effect + eBolt = EffectDamage(nDamage, DAMAGE_TYPE_PIERCING, DAMAGE_POWER_PLUS_ONE); + if(nDamage > 0) + { + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_INSTANT, eBolt, oTarget); + } + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_bltslow.ncs b/_haks/poa_exp_abilities/nw_s1_bltslow.ncs new file mode 100644 index 0000000..779dedd Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_bltslow.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_bltslow.nss b/_haks/poa_exp_abilities/nw_s1_bltslow.nss new file mode 100644 index 0000000..bf4813a --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_bltslow.nss @@ -0,0 +1,47 @@ +//:://///////////////////////////////////////////// +//:: Bolt: Slow +//:: NW_S1_BltSlow +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Creature must make a ranged touch attack to hit + the intended target. Reflex save is + needed to or avoid effect. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: June 18 , 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nCount = (nHD + 1) / 2; + if (nCount == 0) { nCount = 1; } + + effect eVis = EffectVisualEffect(VFX_IMP_SLOW); + effect eBolt = EffectSlow(); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eLink = EffectLinkEffects(eBolt, eDur); + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_BOLT_SLOW)); + //Make a saving throw check + if (!/*Will Save*/ PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_MIND_SPELLS) && TouchAttackRanged(oTarget)) + { + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nCount)); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_bltstrdr.ncs b/_haks/poa_exp_abilities/nw_s1_bltstrdr.ncs new file mode 100644 index 0000000..7ecf22e Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_bltstrdr.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_bltstrdr.nss b/_haks/poa_exp_abilities/nw_s1_bltstrdr.nss new file mode 100644 index 0000000..dd03161 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_bltstrdr.nss @@ -0,0 +1,48 @@ +//:://///////////////////////////////////////////// +//:: Bolt: Strength Drain +//:: NW_S1_BltStrDr +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Creature must make a ranged touch attack to hit + the intended target. Fort save is + needed to avoid effect. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 11 , 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nCount = (nHD + 1) / 2; + if (nCount == 0) { nCount = 1; } + int nDamage = d6(nCount); + + effect eVis = EffectVisualEffect(VFX_IMP_NEGATIVE_ENERGY); + effect eBolt; + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELLABILITY_BOLT_ABILITY_DRAIN_STRENGTH)); + //Make a saving throw check + if (!/*Fort Save*/ PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_NEGATIVE) && TouchAttackRanged(oTarget)) + { + eBolt = EffectAbilityDecrease(ABILITY_STRENGTH, nCount); + eBolt = SupernaturalEffect(eBolt); + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_PERMANENT, eBolt, oTarget, RoundsToSeconds(nHD)); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } +} \ No newline at end of file diff --git a/_haks/poa_exp_abilities/nw_s1_bltstun.ncs b/_haks/poa_exp_abilities/nw_s1_bltstun.ncs new file mode 100644 index 0000000..0b8993e Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_bltstun.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_bltstun.nss b/_haks/poa_exp_abilities/nw_s1_bltstun.nss new file mode 100644 index 0000000..1d77008 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_bltstun.nss @@ -0,0 +1,50 @@ +//:://///////////////////////////////////////////// +//:: Bolt: Stun +//:: NW_S1_BltStun +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Creature must make a ranged touch attack to hit + the intended target. Reflex or Will save is + needed to halve damage or avoid effect. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 11 , 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nCount = (nHD + 1) / 2; + if (nCount == 0) { nCount = 1; } + nCount = GetScaledDuration(nCount, oTarget); + int nDamage = d6(nCount); + + effect eVis = EffectVisualEffect(VFX_IMP_STUN); + effect eBolt = EffectStunned(); + eBolt = GetScaledEffect(eBolt, oTarget); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eLink = EffectLinkEffects(eBolt, eDur); + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_BOLT_STUN)); + //Make a saving throw check + if (!/*Will Save*/ PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_MIND_SPELLS) && TouchAttackRanged(oTarget)) + { + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nCount)); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_bltweb.ncs b/_haks/poa_exp_abilities/nw_s1_bltweb.ncs new file mode 100644 index 0000000..25d622a Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_bltweb.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_bltweb.nss b/_haks/poa_exp_abilities/nw_s1_bltweb.nss new file mode 100644 index 0000000..9ed210a --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_bltweb.nss @@ -0,0 +1,44 @@ +//:://///////////////////////////////////////////// +//:: Bolt: Web +//:: NW_S1_BltWeb +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Glues a single target to the ground with + sticky strands of webbing. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Jan 28, 2002 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + int nHD = GetHitDice(oNPC); + int nCONMod = GetAbilityModifier(ABILITY_CONSTITUTION, oNPC); + int nDC = 10 +nCONMod+ (nHD/2); + int nCount = 1 + (nHD /2); + if (nCount == 0) { nCount = 1; } + + effect eVis = EffectVisualEffect(VFX_DUR_WEB); + effect eStick = EffectEntangle(); + effect eLink = EffectLinkEffects(eVis, eStick); + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_BOLT_WEB)); + //Make a saving throw check + if (!PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, nDC) && TouchAttackRanged(oTarget)) + { + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nCount)); + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_bltwisdr.ncs b/_haks/poa_exp_abilities/nw_s1_bltwisdr.ncs new file mode 100644 index 0000000..f357cf1 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_bltwisdr.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_bltwisdr.nss b/_haks/poa_exp_abilities/nw_s1_bltwisdr.nss new file mode 100644 index 0000000..49643c0 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_bltwisdr.nss @@ -0,0 +1,48 @@ +//:://///////////////////////////////////////////// +//:: Bolt: Wisdom Drain +//:: NW_S1_BltWisDr +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Creature must make a ranged touch attack to hit + the intended target. Fort save is + needed to avoid effect. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 11 , 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nCount = (nHD /3); + if (nCount == 0) { nCount = 1; } + int nDamage = d6(nCount); + + effect eVis = EffectVisualEffect(VFX_IMP_NEGATIVE_ENERGY); + effect eBolt; + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_BOLT_ABILITY_DRAIN_WISDOM)); + //Make a saving throw check + if (!/*Fort Save*/ PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_NEGATIVE) && TouchAttackRanged(oTarget)) + { + eBolt = EffectAbilityDecrease(ABILITY_WISDOM, nCount); + eBolt = SupernaturalEffect(eBolt); + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_PERMANENT, eBolt, oTarget); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_coneacid.ncs b/_haks/poa_exp_abilities/nw_s1_coneacid.ncs new file mode 100644 index 0000000..bad0702 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_coneacid.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_coneacid.nss b/_haks/poa_exp_abilities/nw_s1_coneacid.nss new file mode 100644 index 0000000..2ab7dcf --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_coneacid.nss @@ -0,0 +1,76 @@ +//:://///////////////////////////////////////////// +//:: Cone: Acid +//:: NW_S1_ConeAcid +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + A cone of damage eminated from the monster. Does + a set amount of damage based upon the creatures HD + and can be halved with a Reflex Save. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 11, 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nDamage; + int nLoop = nHD / 3; + + float fDelay; + + if(nLoop == 0) + { + nLoop = 1; + } + + //Calculate the damage + for (nLoop; nLoop > 0; nLoop--) + { + nDamage = nDamage + d6(2); + } + location lTargetLocation = GetSpellTargetLocation(); + + effect eCone; + effect eVis = EffectVisualEffect(VFX_IMP_ACID_S); + + oTarget = GetFirstObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + //Get first target in spell area + while(GetIsObjectValid(oTarget)) + { + if(!GetIsReactionTypeFriendly(oTarget) && oTarget != oNPC) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_CONE_ACID)); + //Determine effect delay + fDelay = GetDistanceBetween(oNPC, oTarget)/20; + //Adjust the damage based on the Reflex Save, Evasion and Improved Evasion. + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nDC, SAVING_THROW_TYPE_ACID); + //Set damage effect + eCone = EffectDamage(nDamage, DAMAGE_TYPE_ACID); + if(nDamage > 0) + { + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eCone, oTarget)); + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + } +} + + diff --git a/_haks/poa_exp_abilities/nw_s1_conecold.ncs b/_haks/poa_exp_abilities/nw_s1_conecold.ncs new file mode 100644 index 0000000..21c9e7e Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_conecold.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_conecold.nss b/_haks/poa_exp_abilities/nw_s1_conecold.nss new file mode 100644 index 0000000..24cc011 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_conecold.nss @@ -0,0 +1,76 @@ +//:://///////////////////////////////////////////// +//:: Cone: Cold +//:: NW_S1_ConeCold +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + A cone of damage eminated from the monster. Does + a set amount of damage based upon the creatures HD + and can be halved with a Reflex Save. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 11, 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nDamage; + int nLoop = nHD / 3; + + float fDelay; + + if(nLoop == 0) + { + nLoop = 1; + } + + //Calculate the damage + for (nLoop; nLoop > 0; nLoop--) + { + nDamage = nDamage + d6(2); + } + location lTargetLocation = GetSpellTargetLocation(); + + effect eCone; + effect eVis = EffectVisualEffect(VFX_IMP_FROST_S); + + oTarget = GetFirstObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + //Get first target in spell area + while(GetIsObjectValid(oTarget)) + { + if(!GetIsReactionTypeFriendly(oTarget) && oTarget != oNPC) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_CONE_COLD)); + //Determine effect delay + fDelay = GetDistanceBetween(oNPC, oTarget)/20; + //Adjust the damage based on the Reflex Save, Evasion and Improved Evasion. + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nDC, SAVING_THROW_TYPE_COLD); + //Set damage effect + eCone = EffectDamage(nDamage, DAMAGE_TYPE_COLD); + if(nDamage > 0) + { + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eCone, oTarget)); + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPELLCONE, 11.0, lTargetLocation, TRUE); + } +} + + diff --git a/_haks/poa_exp_abilities/nw_s1_conedisea.ncs b/_haks/poa_exp_abilities/nw_s1_conedisea.ncs new file mode 100644 index 0000000..3bac3eb Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_conedisea.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_conedisea.nss b/_haks/poa_exp_abilities/nw_s1_conedisea.nss new file mode 100644 index 0000000..9abedbb --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_conedisea.nss @@ -0,0 +1,99 @@ +//:://///////////////////////////////////////////// +//:: Cone: Disease +//:: NW_S1_ConeDisea +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Creature spits out a cone of disease that cannot + be avoided unless a Reflex save is made. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 22, 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nRacial = MyPRCGetRacialType(oNPC); + int nDisease; + + location lTargetLocation = GetSpellTargetLocation(); + + float fDelay; + + effect eCone = EffectDisease(nDisease); + effect eVis = EffectVisualEffect(VFX_IMP_DISEASE_S); + + + //Determine the disease type based on the Racial Type and HD + switch (nRacial) + { + case RACIAL_TYPE_OUTSIDER: + nDisease = DISEASE_DEMON_FEVER; + break; + case RACIAL_TYPE_VERMIN: + nDisease = DISEASE_VERMIN_MADNESS; + break; + case RACIAL_TYPE_UNDEAD: + if(nHD <= 3) + { + nDisease = DISEASE_ZOMBIE_CREEP; + } + else if (nHD > 3 && nHD <= 10) + { + nDisease = DISEASE_GHOUL_ROT; + } + else if(nHD > 10) + { + nDisease = DISEASE_MUMMY_ROT; + } + default: + if(nHD <= 3) + { + nDisease = DISEASE_MINDFIRE; + } + else if (nHD > 3 && nHD <= 10) + { + nDisease = DISEASE_RED_ACHE; + } + else if(nHD > 10) + { + nDisease = DISEASE_SHAKES; + } + + + break; + } + + oTarget = GetFirstObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + //Get first target in spell area + while(GetIsObjectValid(oTarget)) + { + if(!GetIsReactionTypeFriendly(oTarget) && oTarget != OBJECT_SELF) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELLABILITY_CONE_DISEASE)); + //Get the delay time + fDelay = GetDistanceBetween(OBJECT_SELF, oTarget)/20; + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eCone, oTarget)); + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPELLCONE, 11.0, lTargetLocation, TRUE); + + } +} + + + diff --git a/_haks/poa_exp_abilities/nw_s1_coneelec.ncs b/_haks/poa_exp_abilities/nw_s1_coneelec.ncs new file mode 100644 index 0000000..f1cfdc7 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_coneelec.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_coneelec.nss b/_haks/poa_exp_abilities/nw_s1_coneelec.nss new file mode 100644 index 0000000..a4fa75b --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_coneelec.nss @@ -0,0 +1,78 @@ +//:://///////////////////////////////////////////// +//:: Cone: Lightning +//:: NW_S1_ConeElec +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + A cone of damage eminates from the monster. Does + a set amount of damage based upon the creatures HD + and can be halved with a Reflex Save. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 11, 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nDamage; + int nLoop = nHD / 3; + + float fDelay; + + if(nLoop == 0) + { + nLoop = 1; + } + + //Calculate the damage + for (nLoop; nLoop > 0; nLoop--) + { + nDamage = nDamage + d6(2); + } + location lTargetLocation = GetSpellTargetLocation(); + + effect eLightning = EffectBeam(VFX_BEAM_LIGHTNING, oNPC, BODY_NODE_HAND); + effect eCone; + effect eVis = EffectVisualEffect(VFX_IMP_LIGHTNING_S); + + oTarget = GetFirstObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + //Get first target in spell area + while(GetIsObjectValid(oTarget)) + { + if(!GetIsReactionTypeFriendly(oTarget) && oTarget != oNPC) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_CONE_LIGHTNING)); + //Determine effect delay + fDelay = GetDistanceBetween(oNPC, oTarget)/20; + //Adjust the damage based on the Reflex Save, Evasion and Improved Evasion. + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nDC, SAVING_THROW_TYPE_ELECTRICITY); + //Set damage effect + eCone = EffectDamage(nDamage, DAMAGE_TYPE_ELECTRICAL); + if(nDamage > 0) + { + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_TEMPORARY,eLightning,oTarget,0.5)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eCone, oTarget)); + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPELLCONE, 11.0, lTargetLocation, TRUE); + } +} + + diff --git a/_haks/poa_exp_abilities/nw_s1_conesonic.ncs b/_haks/poa_exp_abilities/nw_s1_conesonic.ncs new file mode 100644 index 0000000..f7b256b Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_conesonic.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_conesonic.nss b/_haks/poa_exp_abilities/nw_s1_conesonic.nss new file mode 100644 index 0000000..79c1d46 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_conesonic.nss @@ -0,0 +1,75 @@ +//:://///////////////////////////////////////////// +//:: Cone: Sonic +//:: NW_S1_ConeSonic +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + A cone of damage eminated from the monster. Does + a set amount of damage based upon the creatures HD + and can be halved with a Reflex Save. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 11, 2001 +//::////////////////////////////////////////////// +#include "prc_inc_spells" +#include "NW_I0_SPELLS" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nDamage; + int nLoop = nHD / 3; + + float fDelay; + + if(nLoop == 0) + { + nLoop = 1; + } + + //Calculate the damage + for (nLoop; nLoop > 0; nLoop--) + { + nDamage = nDamage + d6(2); + } + location lTargetLocation = GetSpellTargetLocation(); + + effect eCone; + effect eVis = EffectVisualEffect(VFX_IMP_SONIC); + + oTarget = GetFirstObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + //Get first target in spell area + while(GetIsObjectValid(oTarget)) + { + if(!GetIsReactionTypeFriendly(oTarget) && oTarget != OBJECT_SELF) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELLABILITY_CONE_SONIC)); + //Determine effect delay + fDelay = GetDistanceBetween(OBJECT_SELF, oTarget)/20; + //Adjust the damage based on the Reflex Save, Evasion and Improved Evasion. + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nDC,DAMAGE_TYPE_SONIC); + //Set damage effect + eCone = EffectDamage(nDamage, DAMAGE_TYPE_SONIC); + if(nDamage > 0) + { + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eCone, oTarget)); + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPELLCONE, 11.0, lTargetLocation, TRUE); + } +} + diff --git a/_haks/poa_exp_abilities/nw_s1_dragacid.ncs b/_haks/poa_exp_abilities/nw_s1_dragacid.ncs new file mode 100644 index 0000000..9a9f109 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_dragacid.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_dragacid.nss b/_haks/poa_exp_abilities/nw_s1_dragacid.nss new file mode 100644 index 0000000..94cbc97 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_dragacid.nss @@ -0,0 +1,253 @@ +//:://///////////////////////////////////////////// +//:: Dragon Breath Acid +//:: NW_S1_DragAcid +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Calculates the proper damage and DC Save for the + breath weapon based on the HD of the dragon. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 9, 2001 +//::////////////////////////////////////////////// + +const string DRAGBREATHLOCK = "DragonBreathLock"; + + +//modified to use the breath include - Fox +#include "prc_inc_spells" +#include "prc_inc_breath" + +void main() +{ + // Check the dragon breath delay lock + if(GetLocalInt(OBJECT_SELF, DRAGBREATHLOCK)) + { + SendMessageToPC(OBJECT_SELF, "You cannot use your breath weapon again so soon"); + return; + } + + //Declare major variables + int nAge = GetHitDice(OBJECT_SELF); + int nDCBoost = nAge / 2; + int nDamageDice; + struct breath AcidBreath; + + //Use the HD of the creature to determine damage and save DC + if (nAge <= 6) //Wyrmling + { + nDamageDice = 2; + } + else if (nAge >= 7 && nAge <= 9) //Very Young + { + nDamageDice = 4; + } + else if (nAge >= 10 && nAge <= 12) //Young + { + nDamageDice = 6; + } + else if (nAge >= 13 && nAge <= 15) //Juvenile + { + nDamageDice = 8; + } + else if (nAge >= 16 && nAge <= 18) //Young Adult + { + nDamageDice = 10; + } + else if (nAge >= 19 && nAge <= 21) //Adult + { + nDamageDice = 12; + } + else if (nAge >= 22 && nAge <= 24) //Mature Adult + { + nDamageDice = 14; + } + else if (nAge >= 25 && nAge <= 27) //Old + { + nDamageDice = 16; + } + else if (nAge >= 28 && nAge <= 30) //Very Old + { + nDamageDice = 18; + } + else if (nAge >= 31 && nAge <= 33) //Ancient + { + nDamageDice = 20; + } + else if (nAge >= 34 && nAge <= 37) //Wyrm + { + nDamageDice = 22; + } + else if (nAge >= 38 && nAge <= 41) //Great Wyrm + { + nDamageDice = 24; + } + else if (nAge >= 42 && nAge <= 45) //Great Wyrm + { + nDamageDice = 26; + } + else if (nAge >= 46 && nAge <= 49) //Great Wyrm + { + nDamageDice = 28; + } + + else if (nAge >= 50 && nAge <= 53) //Great Wyrm + { + nDamageDice = 30; + } + else if (nAge >= 54 && nAge <= 57) //Great Wyrm + { + nDamageDice = 32; + } + else if (nAge >= 58 && nAge <= 61) //Great Wyrm + { + nDamageDice = 34; + } + else if (nAge >= 62 && nAge <= 65) //Great Wyrm + { + nDamageDice = 36; + } + else if (nAge >= 66 && nAge <= 69) //Great Wyrm + { + nDamageDice = 38; + } + else if (nAge >= 70 && nAge <= 73) //Great Wyrm + { + nDamageDice = 40; + } + else if (nAge >= 74 && nAge <= 77) //Great Wyrm + { + nDamageDice = 42; + } + else if (nAge >= 78 && nAge <= 81) //Great Wyrm + { + nDamageDice = 44; + } + else if (nAge >= 82 && nAge <= 85) //Great Wyrm + { + nDamageDice = 46; + } + + else if (nAge >= 86 && nAge <= 89) //Great Wyrm + { + nDamageDice = 48; + } + + else if (nAge >= 90 && nAge <= 93) //Great Wyrm + { + nDamageDice = 50; + } + + else if (nAge >= 94 && nAge <= 97) //Great Wyrm + { + nDamageDice = 52; + } + + else if (nAge >= 98 && nAge <= 101) //Great Wyrm + { + nDamageDice = 54; + } + else if (nAge >= 102 && nAge <= 105) //Great Wyrm + { + nDamageDice = 56; + } + else if (nAge >= 106 && nAge <= 109) //Great Wyrm + { + nDamageDice = 58; + } + else if (nAge >= 110 && nAge <= 113) //Great Wyrm + { + nDamageDice = 60; + } + else if (nAge >= 114 && nAge <= 117) //Great Wyrm + { + nDamageDice = 62; + } + else if (nAge >= 118 && nAge <= 121) //Great Wyrm + { + nDamageDice = 64; + } + else if (nAge >= 122 && nAge <= 125) //Great Wyrm + { + nDamageDice = 66; + } + else if (nAge >= 126 && nAge <= 129) //Great Wyrm + { + nDamageDice = 68; + } + else if (nAge >= 130 && nAge <= 133) //Great Wyrm + { + nDamageDice = 70; + } + else if (nAge >= 134 && nAge <= 137) //Great Wyrm + { + nDamageDice = 72; + } + else if (nAge >= 138 && nAge <= 141) //Great Wyrm + { + nDamageDice = 74; + } + else if (nAge >= 142 && nAge <= 145) //Great Wyrm + { + nDamageDice = 76; + } + else if (nAge >= 146 && nAge <= 149) //Great Wyrm + { + nDamageDice = 78; + } + else if (nAge >= 150 && nAge <= 153) //Great Wyrm + { + nDamageDice = 80; + } + else if (nAge >= 154 && nAge <= 157) //Great Wyrm + { + nDamageDice = 82; + } + + else if (nAge >= 158 && nAge <= 161) //Great Wyrm + { + nDamageDice = 84; + } + else if (nAge >= 162 && nAge <= 165) //Great Wyrm + { + nDamageDice = 86; + } + else if (nAge >= 166 && nAge <= 169) //Great Wyrm + { + nDamageDice = 88; + } + + else if (nAge >= 170 && nAge <= 173) //Great Wyrm + { + nDamageDice = 90; + } + else if (nAge >= 174 && nAge <= 177) //Great Wyrm + { + nDamageDice = 92; + } + else if (nAge > 178 ) //Great Wyrm + { + nDamageDice = 94; + } + + //create the breath - 40' ~ 14m? - should set it based on size later + //was a cone originally, changed to line to match PnP + AcidBreath = CreateBreath(OBJECT_SELF, TRUE, 80.0, DAMAGE_TYPE_ACID, 4, nDamageDice, ABILITY_CONSTITUTION, nDCBoost); + + //Apply the breath + PRCPlayDragonBattleCry(); + ApplyBreath(AcidBreath, PRCGetSpellTargetLocation()); + + //Apply the recharge lock + SetLocalInt(OBJECT_SELF, DRAGBREATHLOCK, TRUE); + + // Schedule opening the delay lock + float fDelay = RoundsToSeconds(AcidBreath.nRoundsUntilRecharge); + SendMessageToPC(OBJECT_SELF, "Your breath weapon will be ready again in " + IntToString(AcidBreath.nRoundsUntilRecharge) + " rounds."); + + DelayCommand(fDelay, DeleteLocalInt(OBJECT_SELF, DRAGBREATHLOCK)); + DelayCommand(fDelay, SendMessageToPC(OBJECT_SELF, "Your breath weapon is ready now")); +} + + diff --git a/_haks/poa_exp_abilities/nw_s1_dragcold.ncs b/_haks/poa_exp_abilities/nw_s1_dragcold.ncs new file mode 100644 index 0000000..d72ee7e Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_dragcold.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_dragcold.nss b/_haks/poa_exp_abilities/nw_s1_dragcold.nss new file mode 100644 index 0000000..8ea150d --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_dragcold.nss @@ -0,0 +1,251 @@ +//:://///////////////////////////////////////////// +//:: Dragon Breath Cold +//:: NW_S1_DragCold +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Calculates the proper damage and DC Save for the + breath weapon based on the HD of the dragon. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 9, 2001 +//::////////////////////////////////////////////// + +const string DRAGBREATHLOCK = "DragonBreathLock"; + + +//modified to use the breath include - Fox +#include "prc_inc_spells" +#include "prc_inc_breath" + +void main() +{ + // Check the dragon breath delay lock + if(GetLocalInt(OBJECT_SELF, DRAGBREATHLOCK)) + { + SendMessageToPC(OBJECT_SELF, "You cannot use your breath weapon again so soon"); + return; + } + + //Declare major variables + int nAge = GetHitDice(OBJECT_SELF); + int nDCBoost = nAge / 2; + int nDamageDice; + struct breath ColdBreath; + + //Use the HD of the creature to determine damage and save DC + if (nAge <= 6) //Wyrmling + { + nDamageDice = 1; + } + else if (nAge >= 7 && nAge <= 9) //Very Young + { + nDamageDice = 2; + } + else if (nAge >= 10 && nAge <= 12) //Young + { + nDamageDice = 3; + } + else if (nAge >= 13 && nAge <= 15) //Juvenile + { + nDamageDice = 4; + } + else if (nAge >= 16 && nAge <= 18) //Young Adult + { + nDamageDice = 5; + } + else if (nAge >= 19 && nAge <= 21) //Adult + { + nDamageDice = 6; + } + else if (nAge >= 22 && nAge <= 24) //Mature Adult + { + nDamageDice = 7; + } + else if (nAge >= 25 && nAge <= 27) //Old + { + nDamageDice = 8; + } + else if (nAge >= 28 && nAge <= 30) //Very Old + { + nDamageDice = 9; + } + else if (nAge >= 31 && nAge <= 33) //Ancient + { + nDamageDice = 10; + } + else if (nAge >= 34 && nAge <= 37) //Wyrm + { + nDamageDice = 11; + } +else if (nAge >= 38 && nAge <= 41) //Great Wyrm + { + nDamageDice = 12; + } + else if (nAge >= 42 && nAge <= 45) //Great Wyrm + { + nDamageDice = 13; + } + else if (nAge >= 46 && nAge <= 49) //Great Wyrm + { + nDamageDice = 14; + } + + else if (nAge >= 50 && nAge <= 53) //Great Wyrm + { + nDamageDice = 15; + } + else if (nAge >= 54 && nAge <= 57) //Great Wyrm + { + nDamageDice = 16; + } + else if (nAge >= 58 && nAge <= 61) //Great Wyrm + { + nDamageDice = 17; + } + else if (nAge >= 62 && nAge <= 65) //Great Wyrm + { + nDamageDice = 18; + } + else if (nAge >= 66 && nAge <= 69) //Great Wyrm + { + nDamageDice = 19; + } + else if (nAge >= 70 && nAge <= 73) //Great Wyrm + { + nDamageDice = 20; + } + else if (nAge >= 74 && nAge <= 77) //Great Wyrm + { + nDamageDice = 21; + } + else if (nAge >= 78 && nAge <= 81) //Great Wyrm + { + nDamageDice = 22; + } + else if (nAge >= 82 && nAge <= 85) //Great Wyrm + { + nDamageDice = 23; + } + + else if (nAge >= 86 && nAge <= 89) //Great Wyrm + { + nDamageDice = 24; + } + + else if (nAge >= 90 && nAge <= 93) //Great Wyrm + { + nDamageDice = 25; + } + + else if (nAge >= 94 && nAge <= 97) //Great Wyrm + { + nDamageDice = 26; + } + + else if (nAge >= 98 && nAge <= 101) //Great Wyrm + { + nDamageDice = 27; + } + else if (nAge >= 102 && nAge <= 105) //Great Wyrm + { + nDamageDice = 28; + } + else if (nAge >= 106 && nAge <= 109) //Great Wyrm + { + nDamageDice = 29; + } + else if (nAge >= 110 && nAge <= 113) //Great Wyrm + { + nDamageDice = 30; + } + else if (nAge >= 114 && nAge <= 117) //Great Wyrm + { + nDamageDice = 31; + } + else if (nAge >= 118 && nAge <= 121) //Great Wyrm + { + nDamageDice = 32; + } + else if (nAge >= 122 && nAge <= 125) //Great Wyrm + { + nDamageDice = 33; + } + else if (nAge >= 126 && nAge <= 129) //Great Wyrm + { + nDamageDice = 34; + } + else if (nAge >= 130 && nAge <= 133) //Great Wyrm + { + nDamageDice = 35; + } + else if (nAge >= 134 && nAge <= 137) //Great Wyrm + { + nDamageDice = 36; + } + else if (nAge >= 138 && nAge <= 141) //Great Wyrm + { + nDamageDice = 37; + } + else if (nAge >= 142 && nAge <= 145) //Great Wyrm + { + nDamageDice = 38; + } + else if (nAge >= 146 && nAge <= 149) //Great Wyrm + { + nDamageDice = 39; + } + else if (nAge >= 150 && nAge <= 153) //Great Wyrm + { + nDamageDice = 40; + } + else if (nAge >= 154 && nAge <= 157) //Great Wyrm + { + nDamageDice = 41; + } + + else if (nAge >= 158 && nAge <= 161) //Great Wyrm + { + nDamageDice = 42; + } + else if (nAge >= 162 && nAge <= 165) //Great Wyrm + { + nDamageDice = 43; + } + else if (nAge >= 166 && nAge <= 169) //Great Wyrm + { + nDamageDice = 44; + } + + else if (nAge >= 170 && nAge <= 173) //Great Wyrm + { + nDamageDice = 45; + } + else if (nAge >= 174 && nAge <= 177) //Great Wyrm + { + nDamageDice = 46; + } + else if (nAge > 178 ) //Great Wyrm + { + nDamageDice = 47; + } + //create the breath - 40' ~ 14m? - should set it based on size later + ColdBreath = CreateBreath(OBJECT_SELF, FALSE, 40.0, DAMAGE_TYPE_COLD, 6, nDamageDice, ABILITY_CONSTITUTION, nDCBoost); + + //Apply the breath + PRCPlayDragonBattleCry(); + ApplyBreath(ColdBreath, PRCGetSpellTargetLocation()); + + //Apply the recharge lock + SetLocalInt(OBJECT_SELF, DRAGBREATHLOCK, TRUE); + + // Schedule opening the delay lock + float fDelay = RoundsToSeconds(ColdBreath.nRoundsUntilRecharge); + SendMessageToPC(OBJECT_SELF, "Your breath weapon will be ready again in " + IntToString(ColdBreath.nRoundsUntilRecharge) + " rounds."); + + DelayCommand(fDelay, DeleteLocalInt(OBJECT_SELF, DRAGBREATHLOCK)); + DelayCommand(fDelay, SendMessageToPC(OBJECT_SELF, "Your breath weapon is ready now")); +} + + diff --git a/_haks/poa_exp_abilities/nw_s1_dragfear.ncs b/_haks/poa_exp_abilities/nw_s1_dragfear.ncs new file mode 100644 index 0000000..e0a66af Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_dragfear.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_dragfear.nss b/_haks/poa_exp_abilities/nw_s1_dragfear.nss new file mode 100644 index 0000000..f95e397 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_dragfear.nss @@ -0,0 +1,119 @@ +//:://///////////////////////////////////////////// +//:: Dragon Breath Fear +//:: NW_S1_DragFear +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Calculates the proper DC Save for the + breath weapon based on the HD of the dragon. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 9, 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" +void main() +{ + //if (WildMagicOverride()) { return; } + //Declare major variables + int nAge = GetHitDice(OBJECT_SELF); + int nCount; + int nDC; + float fDelay; + object oTarget; + effect eBreath = EffectFrightened(); + effect eFear = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_FEAR); + effect eVis = EffectVisualEffect(VFX_IMP_FEAR_S); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eLink = EffectLinkEffects(eBreath, eDur); + eLink = EffectLinkEffects(eLink, eFear); + + //Determine the duration and save DC + if (nAge <= 6) //Wyrmling + { + nDC = 13; + nCount = 1; + } + else if (nAge >= 7 && nAge <= 9) //Very Young + { + nDC = 15; + nCount = 2; + } + else if (nAge >= 10 && nAge <= 12) //Young + { + nDC = 17; + nCount = 3; + } + else if (nAge >= 13 && nAge <= 15) //Juvenile + { + nDC = 19; + nCount = 4; + } + else if (nAge >= 16 && nAge <= 18) //Young Adult + { + nDC = 21; + nCount = 5; + } + else if (nAge >= 19 && nAge <= 21) //Adult + { + nDC = 24; + nCount = 6; + } + else if (nAge >= 22 && nAge <= 24) //Mature Adult + { + nDC = 27; + nCount = 7; + } + else if (nAge >= 25 && nAge <= 27) //Old + { + nDC = 28; + nCount = 8; + } + else if (nAge >= 28 && nAge <= 30) //Very Old + { + nDC = 30; + nCount = 9; + } + else if (nAge >= 31 && nAge <= 33) //Ancient + { + nDC = 32; + nCount = 10; + } + else if (nAge >= 34 && nAge <= 37) //Wyrm + { + nDC = 34; + nCount = 11; + } + else if (nAge > 37) //Great Wyrm + { + nDC = 37; + nCount = 12; + } + PlayDragonBattleCry(); + oTarget = GetFirstObjectInShape(SHAPE_SPELLCONE, 14.0, GetSpellTargetLocation(), TRUE); + //Get first target in spell area + while(GetIsObjectValid(oTarget)) + { + if(oTarget != OBJECT_SELF && !GetIsReactionTypeFriendly(oTarget)) + { + nCount = GetScaledDuration(nCount, oTarget); + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELLABILITY_DRAGON_BREATH_FEAR)); + //Determine the effect delay time + fDelay = GetDistanceBetween(oTarget, OBJECT_SELF)/20; + //Make a saving throw check + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_FEAR, OBJECT_SELF, fDelay)) + { + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nCount))); + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPELLCONE, 14.0, GetSpellTargetLocation(), TRUE); + } +} + + diff --git a/_haks/poa_exp_abilities/nw_s1_dragfeara.ncs b/_haks/poa_exp_abilities/nw_s1_dragfeara.ncs new file mode 100644 index 0000000..717ef4f Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_dragfeara.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_dragfeara.nss b/_haks/poa_exp_abilities/nw_s1_dragfeara.nss new file mode 100644 index 0000000..2bb5009 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_dragfeara.nss @@ -0,0 +1,45 @@ +//:://///////////////////////////////////////////// +//:: Aura of Fear On Enter +//:: NW_S1_DragFearA.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Upon entering the aura of the creature the player + must make a will save or be struck with fear because + of the creatures presence. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 25, 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +//#include "wm_include" +#include "prc_inc_spells" +void main() +{ + //Declare major variables + object oTarget = GetEnteringObject(); + //if (NullMagicOverride(GetArea(oTarget), oTarget, oTarget)) {return;} + effect eVis = EffectVisualEffect(VFX_IMP_FEAR_S); + effect eDur = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_FEAR); + effect eDur2 = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eFear = EffectFrightened(); + effect eLink = EffectLinkEffects(eFear, eDur); + eLink = EffectLinkEffects(eLink, eDur2); + + int nHD = GetHitDice(GetAreaOfEffectCreator()); + int nDC = 10 + GetHitDice(GetAreaOfEffectCreator())/3; + int nDuration = GetScaledDuration(nHD, oTarget); + if(GetIsEnemy(oTarget, GetAreaOfEffectCreator())) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(GetAreaOfEffectCreator(), SPELLABILITY_AURA_FEAR)); + //Make a saving throw check + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_FEAR)) + { + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration)); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_dragfire.ncs b/_haks/poa_exp_abilities/nw_s1_dragfire.ncs new file mode 100644 index 0000000..7a50490 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_dragfire.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_dragfire.nss b/_haks/poa_exp_abilities/nw_s1_dragfire.nss new file mode 100644 index 0000000..efae0a6 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_dragfire.nss @@ -0,0 +1,251 @@ +//:://///////////////////////////////////////////// +//:: Dragon Breath Fire +//:: NW_S1_DragFire +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Calculates the proper damage and DC Save for the + breath weapon based on the HD of the dragon. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 9, 2001 +//::////////////////////////////////////////////// + +const string DRAGBREATHLOCK = "DragonBreathLock"; + + +//modified to use the breath include - Fox +#include "prc_inc_spells" +#include "prc_inc_breath" + +void main() +{ + // Check the dragon breath delay lock + if(GetLocalInt(OBJECT_SELF, DRAGBREATHLOCK)) + { + SendMessageToPC(OBJECT_SELF, "You cannot use your breath weapon again so soon"); + return; + } + + //Declare major variables + int nAge = GetHitDice(OBJECT_SELF); + int nDCBoost = nAge / 2; + int nDamageDice; + struct breath FireBreath; + + //Use the HD of the creature to determine damage and save DC + if (nAge <= 6) //Wyrmling + { + nDamageDice = 2; + } + else if (nAge >= 7 && nAge <= 9) //Very Young + { + nDamageDice = 4; + } + else if (nAge >= 10 && nAge <= 12) //Young + { + nDamageDice = 6; + } + else if (nAge >= 13 && nAge <= 15) //Juvenile + { + nDamageDice = 8; + } + else if (nAge >= 16 && nAge <= 18) //Young Adult + { + nDamageDice = 10; + } + else if (nAge >= 19 && nAge <= 21) //Adult + { + nDamageDice = 12; + } + else if (nAge >= 22 && nAge <= 24) //Mature Adult + { + nDamageDice = 14; + } + else if (nAge >= 25 && nAge <= 27) //Old + { + nDamageDice = 16; + } + else if (nAge >= 28 && nAge <= 30) //Very Old + { + nDamageDice = 18; + } + else if (nAge >= 31 && nAge <= 33) //Ancient + { + nDamageDice = 20; + } + else if (nAge >= 34 && nAge <= 37) //Wyrm + { + nDamageDice = 22; + } + else if (nAge >= 38 && nAge <= 41) //Great Wyrm + { + nDamageDice = 24; + } + else if (nAge >= 42 && nAge <= 45) //Great Wyrm + { + nDamageDice = 26; + } + else if (nAge >= 46 && nAge <= 49) //Great Wyrm + { + nDamageDice = 28; + } + + else if (nAge >= 50 && nAge <= 53) //Great Wyrm + { + nDamageDice = 30; + } + else if (nAge >= 54 && nAge <= 57) //Great Wyrm + { + nDamageDice = 32; + } + else if (nAge >= 58 && nAge <= 61) //Great Wyrm + { + nDamageDice = 34; + } + else if (nAge >= 62 && nAge <= 65) //Great Wyrm + { + nDamageDice = 36; + } + else if (nAge >= 66 && nAge <= 69) //Great Wyrm + { + nDamageDice = 38; + } + else if (nAge >= 70 && nAge <= 73) //Great Wyrm + { + nDamageDice = 40; + } + else if (nAge >= 74 && nAge <= 77) //Great Wyrm + { + nDamageDice = 42; + } + else if (nAge >= 78 && nAge <= 81) //Great Wyrm + { + nDamageDice = 44; + } + else if (nAge >= 82 && nAge <= 85) //Great Wyrm + { + nDamageDice = 46; + } + + else if (nAge >= 86 && nAge <= 89) //Great Wyrm + { + nDamageDice = 48; + } + + else if (nAge >= 90 && nAge <= 93) //Great Wyrm + { + nDamageDice = 50; + } + + else if (nAge >= 94 && nAge <= 97) //Great Wyrm + { + nDamageDice = 52; + } + + else if (nAge >= 98 && nAge <= 101) //Great Wyrm + { + nDamageDice = 54; + } + else if (nAge >= 102 && nAge <= 105) //Great Wyrm + { + nDamageDice = 56; + } + else if (nAge >= 106 && nAge <= 109) //Great Wyrm + { + nDamageDice = 58; + } + else if (nAge >= 110 && nAge <= 113) //Great Wyrm + { + nDamageDice = 60; + } + else if (nAge >= 114 && nAge <= 117) //Great Wyrm + { + nDamageDice = 62; + } + else if (nAge >= 118 && nAge <= 121) //Great Wyrm + { + nDamageDice = 64; + } + else if (nAge >= 122 && nAge <= 125) //Great Wyrm + { + nDamageDice = 66; + } + else if (nAge >= 126 && nAge <= 129) //Great Wyrm + { + nDamageDice = 68; + } + else if (nAge >= 130 && nAge <= 133) //Great Wyrm + { + nDamageDice = 70; + } + else if (nAge >= 134 && nAge <= 137) //Great Wyrm + { + nDamageDice = 72; + } + else if (nAge >= 138 && nAge <= 141) //Great Wyrm + { + nDamageDice = 74; + } + else if (nAge >= 142 && nAge <= 145) //Great Wyrm + { + nDamageDice = 76; + } + else if (nAge >= 146 && nAge <= 149) //Great Wyrm + { + nDamageDice = 78; + } + else if (nAge >= 150 && nAge <= 153) //Great Wyrm + { + nDamageDice = 80; + } + else if (nAge >= 154 && nAge <= 157) //Great Wyrm + { + nDamageDice = 82; + } + + else if (nAge >= 158 && nAge <= 161) //Great Wyrm + { + nDamageDice = 84; + } + else if (nAge >= 162 && nAge <= 165) //Great Wyrm + { + nDamageDice = 86; + } + else if (nAge >= 166 && nAge <= 169) //Great Wyrm + { + nDamageDice = 88; + } + + else if (nAge >= 170 && nAge <= 173) //Great Wyrm + { + nDamageDice = 90; + } + else if (nAge >= 174 && nAge <= 177) //Great Wyrm + { + nDamageDice = 92; + } + else if (nAge > 178 ) //Great Wyrm + { + nDamageDice = 94; + } + //create the breath - 40' ~ 14m? - should set it based on size later + FireBreath = CreateBreath(OBJECT_SELF, FALSE, 40.0, DAMAGE_TYPE_FIRE, 10, nDamageDice, ABILITY_CONSTITUTION, nDCBoost); + + //Apply the breath + PRCPlayDragonBattleCry(); + ApplyBreath(FireBreath, PRCGetSpellTargetLocation()); + + //Apply the recharge lock + SetLocalInt(OBJECT_SELF, DRAGBREATHLOCK, TRUE); + + // Schedule opening the delay lock + float fDelay = RoundsToSeconds(FireBreath.nRoundsUntilRecharge); + SendMessageToPC(OBJECT_SELF, "Your breath weapon will be ready again in " + IntToString(FireBreath.nRoundsUntilRecharge) + " rounds."); + + DelayCommand(fDelay, DeleteLocalInt(OBJECT_SELF, DRAGBREATHLOCK)); + DelayCommand(fDelay, SendMessageToPC(OBJECT_SELF, "Your breath weapon is ready now")); +} + + diff --git a/_haks/poa_exp_abilities/nw_s1_draggas.ncs b/_haks/poa_exp_abilities/nw_s1_draggas.ncs new file mode 100644 index 0000000..1921e1a Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_draggas.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_draggas.nss b/_haks/poa_exp_abilities/nw_s1_draggas.nss new file mode 100644 index 0000000..4769ac2 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_draggas.nss @@ -0,0 +1,251 @@ +//:://///////////////////////////////////////////// +//:: Dragon Breath Gas Cloud +//:: NW_S1_DragGas +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Calculates the proper damage and DC Save for the + breath weapon based on the HD of the dragon. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 9, 2001 +//::////////////////////////////////////////////// + +const string DRAGBREATHLOCK = "DragonBreathLock"; + + +//modified to use the breath include - Fox +#include "prc_inc_spells" +#include "prc_inc_breath" + +void main() +{ + // Check the dragon breath delay lock + if(GetLocalInt(OBJECT_SELF, DRAGBREATHLOCK)) + { + SendMessageToPC(OBJECT_SELF, "You cannot use your breath weapon again so soon"); + return; + } + + //Declare major variables + int nAge = GetHitDice(OBJECT_SELF); + int nDCBoost = nAge / 2; + int nDamageDice; + struct breath GasBreath; + + //Use the HD of the creature to determine damage and save DC + if (nAge <= 6) //Wyrmling + { + nDamageDice = 2; + } + else if (nAge >= 7 && nAge <= 9) //Very Young + { + nDamageDice = 4; + } + else if (nAge >= 10 && nAge <= 12) //Young + { + nDamageDice = 6; + } + else if (nAge >= 13 && nAge <= 15) //Juvenile + { + nDamageDice = 8; + } + else if (nAge >= 16 && nAge <= 18) //Young Adult + { + nDamageDice = 10; + } + else if (nAge >= 19 && nAge <= 21) //Adult + { + nDamageDice = 12; + } + else if (nAge >= 22 && nAge <= 24) //Mature Adult + { + nDamageDice = 14; + } + else if (nAge >= 25 && nAge <= 27) //Old + { + nDamageDice = 16; + } + else if (nAge >= 28 && nAge <= 30) //Very Old + { + nDamageDice = 18; + } + else if (nAge >= 31 && nAge <= 33) //Ancient + { + nDamageDice = 20; + } + else if (nAge >= 34 && nAge <= 37) //Wyrm + { + nDamageDice = 22; + } + else if (nAge >= 38 && nAge <= 41) //Great Wyrm + { + nDamageDice = 24; + } + else if (nAge >= 42 && nAge <= 45) //Great Wyrm + { + nDamageDice = 26; + } + else if (nAge >= 46 && nAge <= 49) //Great Wyrm + { + nDamageDice = 28; + } + + else if (nAge >= 50 && nAge <= 53) //Great Wyrm + { + nDamageDice = 30; + } + else if (nAge >= 54 && nAge <= 57) //Great Wyrm + { + nDamageDice = 32; + } + else if (nAge >= 58 && nAge <= 61) //Great Wyrm + { + nDamageDice = 34; + } + else if (nAge >= 62 && nAge <= 65) //Great Wyrm + { + nDamageDice = 36; + } + else if (nAge >= 66 && nAge <= 69) //Great Wyrm + { + nDamageDice = 38; + } + else if (nAge >= 70 && nAge <= 73) //Great Wyrm + { + nDamageDice = 40; + } + else if (nAge >= 74 && nAge <= 77) //Great Wyrm + { + nDamageDice = 42; + } + else if (nAge >= 78 && nAge <= 81) //Great Wyrm + { + nDamageDice = 44; + } + else if (nAge >= 82 && nAge <= 85) //Great Wyrm + { + nDamageDice = 46; + } + + else if (nAge >= 86 && nAge <= 89) //Great Wyrm + { + nDamageDice = 48; + } + + else if (nAge >= 90 && nAge <= 93) //Great Wyrm + { + nDamageDice = 50; + } + + else if (nAge >= 94 && nAge <= 97) //Great Wyrm + { + nDamageDice = 52; + } + + else if (nAge >= 98 && nAge <= 101) //Great Wyrm + { + nDamageDice = 54; + } + else if (nAge >= 102 && nAge <= 105) //Great Wyrm + { + nDamageDice = 56; + } + else if (nAge >= 106 && nAge <= 109) //Great Wyrm + { + nDamageDice = 58; + } + else if (nAge >= 110 && nAge <= 113) //Great Wyrm + { + nDamageDice = 60; + } + else if (nAge >= 114 && nAge <= 117) //Great Wyrm + { + nDamageDice = 62; + } + else if (nAge >= 118 && nAge <= 121) //Great Wyrm + { + nDamageDice = 64; + } + else if (nAge >= 122 && nAge <= 125) //Great Wyrm + { + nDamageDice = 66; + } + else if (nAge >= 126 && nAge <= 129) //Great Wyrm + { + nDamageDice = 68; + } + else if (nAge >= 130 && nAge <= 133) //Great Wyrm + { + nDamageDice = 70; + } + else if (nAge >= 134 && nAge <= 137) //Great Wyrm + { + nDamageDice = 72; + } + else if (nAge >= 138 && nAge <= 141) //Great Wyrm + { + nDamageDice = 74; + } + else if (nAge >= 142 && nAge <= 145) //Great Wyrm + { + nDamageDice = 76; + } + else if (nAge >= 146 && nAge <= 149) //Great Wyrm + { + nDamageDice = 78; + } + else if (nAge >= 150 && nAge <= 153) //Great Wyrm + { + nDamageDice = 80; + } + else if (nAge >= 154 && nAge <= 157) //Great Wyrm + { + nDamageDice = 82; + } + + else if (nAge >= 158 && nAge <= 161) //Great Wyrm + { + nDamageDice = 84; + } + else if (nAge >= 162 && nAge <= 165) //Great Wyrm + { + nDamageDice = 86; + } + else if (nAge >= 166 && nAge <= 169) //Great Wyrm + { + nDamageDice = 88; + } + + else if (nAge >= 170 && nAge <= 173) //Great Wyrm + { + nDamageDice = 90; + } + else if (nAge >= 174 && nAge <= 177) //Great Wyrm + { + nDamageDice = 92; + } + else if (nAge > 178 ) //Great Wyrm + { + nDamageDice = 94; + } + //create the breath - 40' ~ 14m? - should set it based on size later + GasBreath = CreateBreath(OBJECT_SELF, FALSE, 40.0, DAMAGE_TYPE_ACID, 6, nDamageDice, ABILITY_CONSTITUTION, nDCBoost, BREATH_TOPAZ); + + //Apply the breath + PRCPlayDragonBattleCry(); + ApplyBreath(GasBreath, PRCGetSpellTargetLocation()); + + //Apply the recharge lock + SetLocalInt(OBJECT_SELF, DRAGBREATHLOCK, TRUE); + + // Schedule opening the delay lock + float fDelay = RoundsToSeconds(GasBreath.nRoundsUntilRecharge); + SendMessageToPC(OBJECT_SELF, "Your breath weapon will be ready again in " + IntToString(GasBreath.nRoundsUntilRecharge) + " rounds."); + + DelayCommand(fDelay, DeleteLocalInt(OBJECT_SELF, DRAGBREATHLOCK)); + DelayCommand(fDelay, SendMessageToPC(OBJECT_SELF, "Your breath weapon is ready now")); +} + + diff --git a/_haks/poa_exp_abilities/nw_s1_draglight.ncs b/_haks/poa_exp_abilities/nw_s1_draglight.ncs new file mode 100644 index 0000000..80fe60f Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_draglight.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_draglight.nss b/_haks/poa_exp_abilities/nw_s1_draglight.nss new file mode 100644 index 0000000..c283a41 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_draglight.nss @@ -0,0 +1,252 @@ +//:://///////////////////////////////////////////// +//:: Dragon Breath Lightning +//:: NW_S1_DragLightn +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Calculates the proper damage and DC Save for the + breath weapon based on the HD of the dragon. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 9, 2001 +//::////////////////////////////////////////////// + +const string DRAGBREATHLOCK = "DragonBreathLock"; + + +//modified to use the breath include - Fox +#include "prc_inc_spells" +#include "prc_inc_breath" + +void main() +{ + // Check the dragon breath delay lock + if(GetLocalInt(OBJECT_SELF, DRAGBREATHLOCK)) + { + SendMessageToPC(OBJECT_SELF, "You cannot use your breath weapon again so soon"); + return; + } + + //Declare major variables + int nAge = GetHitDice(OBJECT_SELF); + int nDCBoost = nAge / 2; + int nDamageDice; + struct breath ElecBreath; + + //Use the HD of the creature to determine damage and save DC + if (nAge <= 6) //Wyrmling + { + nDamageDice = 2; + } + else if (nAge >= 7 && nAge <= 9) //Very Young + { + nDamageDice = 4; + } + else if (nAge >= 10 && nAge <= 12) //Young + { + nDamageDice = 6; + } + else if (nAge >= 13 && nAge <= 15) //Juvenile + { + nDamageDice = 8; + } + else if (nAge >= 16 && nAge <= 18) //Young Adult + { + nDamageDice = 10; + } + else if (nAge >= 19 && nAge <= 21) //Adult + { + nDamageDice = 12; + } + else if (nAge >= 22 && nAge <= 24) //Mature Adult + { + nDamageDice = 14; + } + else if (nAge >= 25 && nAge <= 27) //Old + { + nDamageDice = 16; + } + else if (nAge >= 28 && nAge <= 30) //Very Old + { + nDamageDice = 18; + } + else if (nAge >= 31 && nAge <= 33) //Ancient + { + nDamageDice = 20; + } + else if (nAge >= 34 && nAge <= 37) //Wyrm + { + nDamageDice = 22; + } + else if (nAge >= 38 && nAge <= 41) //Great Wyrm + { + nDamageDice = 24; + } + else if (nAge >= 42 && nAge <= 45) //Great Wyrm + { + nDamageDice = 26; + } + else if (nAge >= 46 && nAge <= 49) //Great Wyrm + { + nDamageDice = 28; + } + + else if (nAge >= 50 && nAge <= 53) //Great Wyrm + { + nDamageDice = 30; + } + else if (nAge >= 54 && nAge <= 57) //Great Wyrm + { + nDamageDice = 32; + } + else if (nAge >= 58 && nAge <= 61) //Great Wyrm + { + nDamageDice = 34; + } + else if (nAge >= 62 && nAge <= 65) //Great Wyrm + { + nDamageDice = 36; + } + else if (nAge >= 66 && nAge <= 69) //Great Wyrm + { + nDamageDice = 38; + } + else if (nAge >= 70 && nAge <= 73) //Great Wyrm + { + nDamageDice = 40; + } + else if (nAge >= 74 && nAge <= 77) //Great Wyrm + { + nDamageDice = 42; + } + else if (nAge >= 78 && nAge <= 81) //Great Wyrm + { + nDamageDice = 44; + } + else if (nAge >= 82 && nAge <= 85) //Great Wyrm + { + nDamageDice = 46; + } + + else if (nAge >= 86 && nAge <= 89) //Great Wyrm + { + nDamageDice = 48; + } + + else if (nAge >= 90 && nAge <= 93) //Great Wyrm + { + nDamageDice = 50; + } + + else if (nAge >= 94 && nAge <= 97) //Great Wyrm + { + nDamageDice = 52; + } + + else if (nAge >= 98 && nAge <= 101) //Great Wyrm + { + nDamageDice = 54; + } + else if (nAge >= 102 && nAge <= 105) //Great Wyrm + { + nDamageDice = 56; + } + else if (nAge >= 106 && nAge <= 109) //Great Wyrm + { + nDamageDice = 58; + } + else if (nAge >= 110 && nAge <= 113) //Great Wyrm + { + nDamageDice = 60; + } + else if (nAge >= 114 && nAge <= 117) //Great Wyrm + { + nDamageDice = 62; + } + else if (nAge >= 118 && nAge <= 121) //Great Wyrm + { + nDamageDice = 64; + } + else if (nAge >= 122 && nAge <= 125) //Great Wyrm + { + nDamageDice = 66; + } + else if (nAge >= 126 && nAge <= 129) //Great Wyrm + { + nDamageDice = 68; + } + else if (nAge >= 130 && nAge <= 133) //Great Wyrm + { + nDamageDice = 70; + } + else if (nAge >= 134 && nAge <= 137) //Great Wyrm + { + nDamageDice = 72; + } + else if (nAge >= 138 && nAge <= 141) //Great Wyrm + { + nDamageDice = 74; + } + else if (nAge >= 142 && nAge <= 145) //Great Wyrm + { + nDamageDice = 76; + } + else if (nAge >= 146 && nAge <= 149) //Great Wyrm + { + nDamageDice = 78; + } + else if (nAge >= 150 && nAge <= 153) //Great Wyrm + { + nDamageDice = 80; + } + else if (nAge >= 154 && nAge <= 157) //Great Wyrm + { + nDamageDice = 82; + } + + else if (nAge >= 158 && nAge <= 161) //Great Wyrm + { + nDamageDice = 84; + } + else if (nAge >= 162 && nAge <= 165) //Great Wyrm + { + nDamageDice = 86; + } + else if (nAge >= 166 && nAge <= 169) //Great Wyrm + { + nDamageDice = 88; + } + + else if (nAge >= 170 && nAge <= 173) //Great Wyrm + { + nDamageDice = 90; + } + else if (nAge >= 174 && nAge <= 177) //Great Wyrm + { + nDamageDice = 92; + } + else if (nAge > 178 ) //Great Wyrm + { + nDamageDice = 94; + } + //create the breath - 40' ~ 14m? - should set it based on size later + //was implemented using a cone before, changed to line + ElecBreath = CreateBreath(OBJECT_SELF, TRUE, 80.0, DAMAGE_TYPE_ELECTRICAL, 8, nDamageDice, ABILITY_CONSTITUTION, nDCBoost); + + //Apply the breath + PRCPlayDragonBattleCry(); + ApplyBreath(ElecBreath, PRCGetSpellTargetLocation()); + + //Apply the recharge lock + SetLocalInt(OBJECT_SELF, DRAGBREATHLOCK, TRUE); + + // Schedule opening the delay lock + float fDelay = RoundsToSeconds(ElecBreath.nRoundsUntilRecharge); + SendMessageToPC(OBJECT_SELF, "Your breath weapon will be ready again in " + IntToString(ElecBreath.nRoundsUntilRecharge) + " rounds."); + + DelayCommand(fDelay, DeleteLocalInt(OBJECT_SELF, DRAGBREATHLOCK)); + DelayCommand(fDelay, SendMessageToPC(OBJECT_SELF, "Your breath weapon is ready now")); +} + + diff --git a/_haks/poa_exp_abilities/nw_s1_dragparal.ncs b/_haks/poa_exp_abilities/nw_s1_dragparal.ncs new file mode 100644 index 0000000..b1be0de Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_dragparal.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_dragparal.nss b/_haks/poa_exp_abilities/nw_s1_dragparal.nss new file mode 100644 index 0000000..03ae3ca --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_dragparal.nss @@ -0,0 +1,251 @@ +//:://///////////////////////////////////////////// +//:: Dragon Breath Paralyze +//:: NW_S1_DragParal +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Calculates the proper DC Save for the + breath weapon based on the HD of the dragon. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 9, 2001 +//::////////////////////////////////////////////// + +const string DRAGBREATHLOCK = "DragonBreathLock"; + + +//modified to use the breath include - Fox +#include "prc_inc_spells" +#include "prc_inc_breath" + +void main() +{ + // Check the dragon breath delay lock + if(GetLocalInt(OBJECT_SELF, DRAGBREATHLOCK)) + { + SendMessageToPC(OBJECT_SELF, "You cannot use your breath weapon again so soon"); + return; + } + + //Declare major variables + int nAge = GetHitDice(OBJECT_SELF); + int nDCBoost = nAge / 2; + int nCount = d6(); + struct breath ParalBreath; + + //Determine save DC and duration of effect + if (nAge <= 6) //Wyrmling + { + nCount += 1; + } + else if (nAge >= 7 && nAge <= 9) //Very Young + { + nCount += 2; + } + else if (nAge >= 10 && nAge <= 12) //Young + { + nCount += 3; + } + else if (nAge >= 13 && nAge <= 15) //Juvenile + { + nCount += 4; + } + else if (nAge >= 16 && nAge <= 18) //Young Adult + { + nCount += 5; + } + else if (nAge >= 19 && nAge <= 21) //Adult + { + nCount += 6; + } + else if (nAge >= 22 && nAge <= 24) //Mature Adult + { + nCount += 7; + } + else if (nAge >= 25 && nAge <= 27) //Old + { + nCount += 8; + } + else if (nAge >= 28 && nAge <= 30) //Very Old + { + nCount += 9; + } + else if (nAge >= 31 && nAge <= 33) //Ancient + { + nCount += 10; + } + else if (nAge >= 34 && nAge <= 37) //Wyrm + { + nCount += 11; + } +else if (nAge >= 38 && nAge <= 41) //Great Wyrm + { + nCount += 12; + } + else if (nAge >= 42 && nAge <= 45) //Great Wyrm + { + nCount += 13; + } + else if (nAge >= 46 && nAge <= 49) //Great Wyrm + { + nCount += 14; + } + + else if (nAge >= 50 && nAge <= 53) //Great Wyrm + { + nCount += 15; + } + else if (nAge >= 54 && nAge <= 57) //Great Wyrm + { + nCount += 16; + } + else if (nAge >= 58 && nAge <= 61) //Great Wyrm + { + nCount += 17; + } + else if (nAge >= 62 && nAge <= 65) //Great Wyrm + { + nCount += 18; + } + else if (nAge >= 66 && nAge <= 69) //Great Wyrm + { + nCount += 19; + } + else if (nAge >= 70 && nAge <= 73) //Great Wyrm + { + nCount += 20; + } + else if (nAge >= 74 && nAge <= 77) //Great Wyrm + { + nCount += 21; + } + else if (nAge >= 78 && nAge <= 81) //Great Wyrm + { + nCount += 22; + } + else if (nAge >= 82 && nAge <= 85) //Great Wyrm + { + nCount += 23; + } + + else if (nAge >= 86 && nAge <= 89) //Great Wyrm + { + nCount += 24; + } + + else if (nAge >= 90 && nAge <= 93) //Great Wyrm + { + nCount += 25; + } + + else if (nAge >= 94 && nAge <= 97) //Great Wyrm + { + nCount += 26; + } + + else if (nAge >= 98 && nAge <= 101) //Great Wyrm + { + nCount += 27; + } + else if (nAge >= 102 && nAge <= 105) //Great Wyrm + { + nCount += 28; + } + else if (nAge >= 106 && nAge <= 109) //Great Wyrm + { + nCount += 29; + } + else if (nAge >= 110 && nAge <= 113) //Great Wyrm + { + nCount += 30; + } + else if (nAge >= 114 && nAge <= 117) //Great Wyrm + { + nCount += 31; + } + else if (nAge >= 118 && nAge <= 121) //Great Wyrm + { + nCount += 32; + } + else if (nAge >= 122 && nAge <= 125) //Great Wyrm + { + nCount += 33; + } + else if (nAge >= 126 && nAge <= 129) //Great Wyrm + { + nCount += 34; + } + else if (nAge >= 130 && nAge <= 133) //Great Wyrm + { + nCount += 35; + } + else if (nAge >= 134 && nAge <= 137) //Great Wyrm + { + nCount += 36; + } + else if (nAge >= 138 && nAge <= 141) //Great Wyrm + { + nCount += 37; + } + else if (nAge >= 142 && nAge <= 145) //Great Wyrm + { + nCount += 38; + } + else if (nAge >= 146 && nAge <= 149) //Great Wyrm + { + nCount += 39; + } + else if (nAge >= 150 && nAge <= 153) //Great Wyrm + { + nCount += 40; + } + else if (nAge >= 154 && nAge <= 157) //Great Wyrm + { + nCount += 41; + } + + else if (nAge >= 158 && nAge <= 161) //Great Wyrm + { + nCount += 42; + } + else if (nAge >= 162 && nAge <= 165) //Great Wyrm + { + nCount += 43; + } + else if (nAge >= 166 && nAge <= 169) //Great Wyrm + { + nCount += 44; + } + + else if (nAge >= 170 && nAge <= 173) //Great Wyrm + { + nCount += 45; + } + else if (nAge >= 174 && nAge <= 177) //Great Wyrm + { + nCount += 46; + } + else if (nAge > 178 ) //Great Wyrm + { + nCount += 47; + } + //create the breath - 40' ~ 14m? - should set it based on size later + ParalBreath = CreateBreath(OBJECT_SELF, FALSE, 40.0, -1, 10, nCount, ABILITY_CONSTITUTION, nDCBoost, BREATH_PARALYZE); + + //Apply the breath + PRCPlayDragonBattleCry(); + ApplyBreath(ParalBreath, PRCGetSpellTargetLocation()); + + //Apply the recharge lock + SetLocalInt(OBJECT_SELF, DRAGBREATHLOCK, TRUE); + + // Schedule opening the delay lock + float fDelay = RoundsToSeconds(ParalBreath.nRoundsUntilRecharge); + SendMessageToPC(OBJECT_SELF, "Your breath weapon will be ready again in " + IntToString(ParalBreath.nRoundsUntilRecharge) + " rounds."); + + DelayCommand(fDelay, DeleteLocalInt(OBJECT_SELF, DRAGBREATHLOCK)); + DelayCommand(fDelay, SendMessageToPC(OBJECT_SELF, "Your breath weapon is ready now")); +} + + diff --git a/_haks/poa_exp_abilities/nw_s1_dragsleep.ncs b/_haks/poa_exp_abilities/nw_s1_dragsleep.ncs new file mode 100644 index 0000000..aaeebf8 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_dragsleep.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_dragsleep.nss b/_haks/poa_exp_abilities/nw_s1_dragsleep.nss new file mode 100644 index 0000000..249f6be --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_dragsleep.nss @@ -0,0 +1,252 @@ +//:://///////////////////////////////////////////// +//:: Dragon Breath Sleep +//:: NW_S1_DragSleep +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Calculates the proper DC Save for the + breath weapon based on the HD of the dragon. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 9, 2001 +//::////////////////////////////////////////////// + +const string DRAGBREATHLOCK = "DragonBreathLock"; + + +//modified to use the breath include - Fox +#include "prc_inc_spells" +#include "prc_inc_breath" + +void main() +{ + // Check the dragon breath delay lock + if(GetLocalInt(OBJECT_SELF, DRAGBREATHLOCK)) + { + SendMessageToPC(OBJECT_SELF, "You cannot use your breath weapon again so soon"); + return; + } + + //Declare major variables + int nAge = GetHitDice(OBJECT_SELF); + int nDCBoost = nAge / 2; + int nCount = d6(); + struct breath SleepBreath; + + //Determine save DC and duration of effect + if (nAge <= 6) //Wyrmling + { + nCount += 1; + } + else if (nAge >= 7 && nAge <= 9) //Very Young + { + nCount += 2; + } + else if (nAge >= 10 && nAge <= 12) //Young + { + nCount += 3; + } + else if (nAge >= 13 && nAge <= 15) //Juvenile + { + nCount += 4; + } + else if (nAge >= 16 && nAge <= 18) //Young Adult + { + nCount += 5; + } + else if (nAge >= 19 && nAge <= 21) //Adult + { + nCount += 6; + } + else if (nAge >= 22 && nAge <= 24) //Mature Adult + { + nCount += 7; + } + else if (nAge >= 25 && nAge <= 27) //Old + { + nCount += 8; + } + else if (nAge >= 28 && nAge <= 30) //Very Old + { + nCount += 9; + } + else if (nAge >= 31 && nAge <= 33) //Ancient + { + nCount += 10; + } + else if (nAge >= 34 && nAge <= 37) //Wyrm + { + nCount += 11; + } + +else if (nAge >= 38 && nAge <= 41) //Great Wyrm + { + nCount += 12; + } + else if (nAge >= 42 && nAge <= 45) //Great Wyrm + { + nCount += 13; + } + else if (nAge >= 46 && nAge <= 49) //Great Wyrm + { + nCount += 14; + } + + else if (nAge >= 50 && nAge <= 53) //Great Wyrm + { + nCount += 15; + } + else if (nAge >= 54 && nAge <= 57) //Great Wyrm + { + nCount += 16; + } + else if (nAge >= 58 && nAge <= 61) //Great Wyrm + { + nCount += 17; + } + else if (nAge >= 62 && nAge <= 65) //Great Wyrm + { + nCount += 18; + } + else if (nAge >= 66 && nAge <= 69) //Great Wyrm + { + nCount += 19; + } + else if (nAge >= 70 && nAge <= 73) //Great Wyrm + { + nCount += 20; + } + else if (nAge >= 74 && nAge <= 77) //Great Wyrm + { + nCount += 21; + } + else if (nAge >= 78 && nAge <= 81) //Great Wyrm + { + nCount += 22; + } + else if (nAge >= 82 && nAge <= 85) //Great Wyrm + { + nCount += 23; + } + + else if (nAge >= 86 && nAge <= 89) //Great Wyrm + { + nCount += 24; + } + + else if (nAge >= 90 && nAge <= 93) //Great Wyrm + { + nCount += 25; + } + + else if (nAge >= 94 && nAge <= 97) //Great Wyrm + { + nCount += 26; + } + + else if (nAge >= 98 && nAge <= 101) //Great Wyrm + { + nCount += 27; + } + else if (nAge >= 102 && nAge <= 105) //Great Wyrm + { + nCount += 28; + } + else if (nAge >= 106 && nAge <= 109) //Great Wyrm + { + nCount += 29; + } + else if (nAge >= 110 && nAge <= 113) //Great Wyrm + { + nCount += 30; + } + else if (nAge >= 114 && nAge <= 117) //Great Wyrm + { + nCount += 31; + } + else if (nAge >= 118 && nAge <= 121) //Great Wyrm + { + nCount += 32; + } + else if (nAge >= 122 && nAge <= 125) //Great Wyrm + { + nCount += 33; + } + else if (nAge >= 126 && nAge <= 129) //Great Wyrm + { + nCount += 34; + } + else if (nAge >= 130 && nAge <= 133) //Great Wyrm + { + nCount += 35; + } + else if (nAge >= 134 && nAge <= 137) //Great Wyrm + { + nCount += 36; + } + else if (nAge >= 138 && nAge <= 141) //Great Wyrm + { + nCount += 37; + } + else if (nAge >= 142 && nAge <= 145) //Great Wyrm + { + nCount += 38; + } + else if (nAge >= 146 && nAge <= 149) //Great Wyrm + { + nCount += 39; + } + else if (nAge >= 150 && nAge <= 153) //Great Wyrm + { + nCount += 40; + } + else if (nAge >= 154 && nAge <= 157) //Great Wyrm + { + nCount += 41; + } + + else if (nAge >= 158 && nAge <= 161) //Great Wyrm + { + nCount += 42; + } + else if (nAge >= 162 && nAge <= 165) //Great Wyrm + { + nCount += 43; + } + else if (nAge >= 166 && nAge <= 169) //Great Wyrm + { + nCount += 44; + } + + else if (nAge >= 170 && nAge <= 173) //Great Wyrm + { + nCount += 45; + } + else if (nAge >= 174 && nAge <= 177) //Great Wyrm + { + nCount += 46; + } + else if (nAge > 178 ) //Great Wyrm + { + nCount += 47; + } + //create the breath - 40' ~ 14m? - should set it based on size later + SleepBreath = CreateBreath(OBJECT_SELF, FALSE, 40.0, -1, 10, nCount, ABILITY_CONSTITUTION, nDCBoost, BREATH_SLEEP); + + //Apply the breath + PRCPlayDragonBattleCry(); + ApplyBreath(SleepBreath, PRCGetSpellTargetLocation()); + + //Apply the recharge lock + SetLocalInt(OBJECT_SELF, DRAGBREATHLOCK, TRUE); + + // Schedule opening the delay lock + float fDelay = RoundsToSeconds(SleepBreath.nRoundsUntilRecharge); + SendMessageToPC(OBJECT_SELF, "Your breath weapon will be ready again in " + IntToString(SleepBreath.nRoundsUntilRecharge) + " rounds."); + + DelayCommand(fDelay, DeleteLocalInt(OBJECT_SELF, DRAGBREATHLOCK)); + DelayCommand(fDelay, SendMessageToPC(OBJECT_SELF, "Your breath weapon is ready now")); +} + + diff --git a/_haks/poa_exp_abilities/nw_s1_dragslow.ncs b/_haks/poa_exp_abilities/nw_s1_dragslow.ncs new file mode 100644 index 0000000..186c19e Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_dragslow.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_dragslow.nss b/_haks/poa_exp_abilities/nw_s1_dragslow.nss new file mode 100644 index 0000000..1263d0c --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_dragslow.nss @@ -0,0 +1,251 @@ +//:://///////////////////////////////////////////// +//:: Dragon Breath Slow +//:: NW_S1_DragSlow +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Calculates the proper DC Save for the + breath weapon based on the HD of the dragon. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Aug 13, 2001 +//::////////////////////////////////////////////// + +const string DRAGBREATHLOCK = "DragonBreathLock"; + + +//modified to use the breath include - Fox +#include "prc_inc_spells" +#include "prc_inc_breath" + +void main() +{ + // Check the dragon breath delay lock + if(GetLocalInt(OBJECT_SELF, DRAGBREATHLOCK)) + { + SendMessageToPC(OBJECT_SELF, "You cannot use your breath weapon again so soon"); + return; + } + + //Declare major variables + int nAge = GetHitDice(OBJECT_SELF); + int nDCBoost = nAge / 2; + int nCount = d6(); + struct breath SlowBreath; + + //Determine save DC and duration of effect + if (nAge <= 6) //Wyrmling + { + nCount += 1; + } + else if (nAge >= 7 && nAge <= 9) //Very Young + { + nCount += 2; + } + else if (nAge >= 10 && nAge <= 12) //Young + { + nCount += 3; + } + else if (nAge >= 13 && nAge <= 15) //Juvenile + { + nCount += 4; + } + else if (nAge >= 16 && nAge <= 18) //Young Adult + { + nCount += 5; + } + else if (nAge >= 19 && nAge <= 21) //Adult + { + nCount += 6; + } + else if (nAge >= 22 && nAge <= 24) //Mature Adult + { + nCount += 7; + } + else if (nAge >= 25 && nAge <= 27) //Old + { + nCount += 8; + } + else if (nAge >= 28 && nAge <= 30) //Very Old + { + nCount += 9; + } + else if (nAge >= 31 && nAge <= 33) //Ancient + { + nCount += 10; + } + else if (nAge >= 34 && nAge <= 37) //Wyrm + { + nCount += 11; + } +else if (nAge >= 38 && nAge <= 41) //Great Wyrm + { + nCount += 12; + } + else if (nAge >= 42 && nAge <= 45) //Great Wyrm + { + nCount += 13; + } + else if (nAge >= 46 && nAge <= 49) //Great Wyrm + { + nCount += 14; + } + + else if (nAge >= 50 && nAge <= 53) //Great Wyrm + { + nCount += 15; + } + else if (nAge >= 54 && nAge <= 57) //Great Wyrm + { + nCount += 16; + } + else if (nAge >= 58 && nAge <= 61) //Great Wyrm + { + nCount += 17; + } + else if (nAge >= 62 && nAge <= 65) //Great Wyrm + { + nCount += 18; + } + else if (nAge >= 66 && nAge <= 69) //Great Wyrm + { + nCount += 19; + } + else if (nAge >= 70 && nAge <= 73) //Great Wyrm + { + nCount += 20; + } + else if (nAge >= 74 && nAge <= 77) //Great Wyrm + { + nCount += 21; + } + else if (nAge >= 78 && nAge <= 81) //Great Wyrm + { + nCount += 22; + } + else if (nAge >= 82 && nAge <= 85) //Great Wyrm + { + nCount += 23; + } + + else if (nAge >= 86 && nAge <= 89) //Great Wyrm + { + nCount += 24; + } + + else if (nAge >= 90 && nAge <= 93) //Great Wyrm + { + nCount += 25; + } + + else if (nAge >= 94 && nAge <= 97) //Great Wyrm + { + nCount += 26; + } + + else if (nAge >= 98 && nAge <= 101) //Great Wyrm + { + nCount += 27; + } + else if (nAge >= 102 && nAge <= 105) //Great Wyrm + { + nCount += 28; + } + else if (nAge >= 106 && nAge <= 109) //Great Wyrm + { + nCount += 29; + } + else if (nAge >= 110 && nAge <= 113) //Great Wyrm + { + nCount += 30; + } + else if (nAge >= 114 && nAge <= 117) //Great Wyrm + { + nCount += 31; + } + else if (nAge >= 118 && nAge <= 121) //Great Wyrm + { + nCount += 32; + } + else if (nAge >= 122 && nAge <= 125) //Great Wyrm + { + nCount += 33; + } + else if (nAge >= 126 && nAge <= 129) //Great Wyrm + { + nCount += 34; + } + else if (nAge >= 130 && nAge <= 133) //Great Wyrm + { + nCount += 35; + } + else if (nAge >= 134 && nAge <= 137) //Great Wyrm + { + nCount += 36; + } + else if (nAge >= 138 && nAge <= 141) //Great Wyrm + { + nCount += 37; + } + else if (nAge >= 142 && nAge <= 145) //Great Wyrm + { + nCount += 38; + } + else if (nAge >= 146 && nAge <= 149) //Great Wyrm + { + nCount += 39; + } + else if (nAge >= 150 && nAge <= 153) //Great Wyrm + { + nCount += 40; + } + else if (nAge >= 154 && nAge <= 157) //Great Wyrm + { + nCount += 41; + } + + else if (nAge >= 158 && nAge <= 161) //Great Wyrm + { + nCount += 42; + } + else if (nAge >= 162 && nAge <= 165) //Great Wyrm + { + nCount += 43; + } + else if (nAge >= 166 && nAge <= 169) //Great Wyrm + { + nCount += 44; + } + + else if (nAge >= 170 && nAge <= 173) //Great Wyrm + { + nCount += 45; + } + else if (nAge >= 174 && nAge <= 177) //Great Wyrm + { + nCount += 46; + } + else if (nAge > 178 ) //Great Wyrm + { + nCount += 47; + } + //create the breath - 40' ~ 14m? - should set it based on size later + SlowBreath = CreateBreath(OBJECT_SELF, FALSE, 40.0, -1, 10, nCount, ABILITY_CONSTITUTION, nDCBoost, BREATH_SLOW); + + //Apply the breath + PRCPlayDragonBattleCry(); + ApplyBreath(SlowBreath, PRCGetSpellTargetLocation()); + + //Apply the recharge lock + SetLocalInt(OBJECT_SELF, DRAGBREATHLOCK, TRUE); + + // Schedule opening the delay lock + float fDelay = RoundsToSeconds(SlowBreath.nRoundsUntilRecharge); + SendMessageToPC(OBJECT_SELF, "Your breath weapon will be ready again in " + IntToString(SlowBreath.nRoundsUntilRecharge) + " rounds."); + + DelayCommand(fDelay, DeleteLocalInt(OBJECT_SELF, DRAGBREATHLOCK)); + DelayCommand(fDelay, SendMessageToPC(OBJECT_SELF, "Your breath weapon is ready now")); +} + + diff --git a/_haks/poa_exp_abilities/nw_s1_dragweak.ncs b/_haks/poa_exp_abilities/nw_s1_dragweak.ncs new file mode 100644 index 0000000..a1071d4 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_dragweak.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_dragweak.nss b/_haks/poa_exp_abilities/nw_s1_dragweak.nss new file mode 100644 index 0000000..06209a5 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_dragweak.nss @@ -0,0 +1,254 @@ +//:://///////////////////////////////////////////// +//:: Dragon Breath Weaken +//:: NW_S1_DragWeak +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Calculates the proper damage and DC Save for the + breath weapon based on the HD of the dragon. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 9, 2001 +//::////////////////////////////////////////////// + +const string DRAGBREATHLOCK = "DragonBreathLock"; + + +//modified to use the breath include - Fox +#include "prc_inc_spells" +#include "prc_inc_breath" + +void main() +{ + // Check the dragon breath delay lock + if(GetLocalInt(OBJECT_SELF, DRAGBREATHLOCK)) + { + SendMessageToPC(OBJECT_SELF, "You cannot use your breath weapon again so soon"); + return; + } + + //Declare major variables + int nAge = GetHitDice(OBJECT_SELF); + int nDCBoost = nAge / 2; + int nDamage = 0; + struct breath WeakBreath; + + //Determine save DC and ability damage + if (nAge <= 6) //Wyrmling + { + nDamage += 1; + } + else if (nAge >= 7 && nAge <= 9) //Very Young + { + nDamage += 2; + } + else if (nAge >= 10 && nAge <= 12) //Young + { + nDamage += 3; + } + else if (nAge >= 13 && nAge <= 15) //Juvenile + { + nDamage += 4; + } + else if (nAge >= 16 && nAge <= 18) //Young Adult + { + nDamage += 5; + } + else if (nAge >= 19 && nAge <= 21) //Adult + { + nDamage += 6; + } + else if (nAge >= 22 && nAge <= 24) //Mature Adult + { + nDamage += 7; + } + else if (nAge >= 25 && nAge <= 27) //Old + { + nDamage += 8; + } + else if (nAge >= 28 && nAge <= 30) //Very Old + { + nDamage += 9; + } + else if (nAge >= 31 && nAge <= 33) //Ancient + { + nDamage += 10; + } + else if (nAge >= 34 && nAge <= 37) //Wyrm + { + nDamage += 11; + } + else if (nAge >= 38 && nAge <= 41) //Great Wyrm + { + nDamage += 12; + } + else if (nAge >= 42 && nAge <= 45) //Great Wyrm + { + nDamage += 13; + } + else if (nAge >= 46 && nAge <= 49) //Great Wyrm + { + nDamage += 14; + } + + else if (nAge >= 50 && nAge <= 53) //Great Wyrm + { + nDamage += 15; + } + else if (nAge >= 54 && nAge <= 57) //Great Wyrm + { + nDamage += 16; + } + else if (nAge >= 58 && nAge <= 61) //Great Wyrm + { + nDamage += 17; + } + else if (nAge >= 62 && nAge <= 65) //Great Wyrm + { + nDamage += 18; + } + else if (nAge >= 66 && nAge <= 69) //Great Wyrm + { + nDamage += 19; + } + else if (nAge >= 70 && nAge <= 73) //Great Wyrm + { + nDamage += 20; + } + else if (nAge >= 74 && nAge <= 77) //Great Wyrm + { + nDamage += 21; + } + else if (nAge >= 78 && nAge <= 81) //Great Wyrm + { + nDamage += 22; + } + else if (nAge >= 82 && nAge <= 85) //Great Wyrm + { + nDamage += 23; + } + + else if (nAge >= 86 && nAge <= 89) //Great Wyrm + { + nDamage += 24; + } + + else if (nAge >= 90 && nAge <= 93) //Great Wyrm + { + nDamage += 25; + } + + else if (nAge >= 94 && nAge <= 97) //Great Wyrm + { + nDamage += 26; + } + + else if (nAge >= 98 && nAge <= 101) //Great Wyrm + { + nDamage += 27; + } + else if (nAge >= 102 && nAge <= 105) //Great Wyrm + { + nDamage += 28; + } + else if (nAge >= 106 && nAge <= 109) //Great Wyrm + { + nDamage += 29; + } + else if (nAge >= 110 && nAge <= 113) //Great Wyrm + { + nDamage += 30; + } + else if (nAge >= 114 && nAge <= 117) //Great Wyrm + { + nDamage += 31; + } + else if (nAge >= 118 && nAge <= 121) //Great Wyrm + { + nDamage += 32; + } + else if (nAge >= 122 && nAge <= 125) //Great Wyrm + { + nDamage += 33; + } + else if (nAge >= 126 && nAge <= 129) //Great Wyrm + { + nDamage += 34; + } + else if (nAge >= 130 && nAge <= 133) //Great Wyrm + { + nDamage += 35; + } + else if (nAge >= 134 && nAge <= 137) //Great Wyrm + { + nDamage += 36; + } + else if (nAge >= 138 && nAge <= 141) //Great Wyrm + { + nDamage += 37; + } + else if (nAge >= 142 && nAge <= 145) //Great Wyrm + { + nDamage += 38; + } + else if (nAge >= 146 && nAge <= 149) //Great Wyrm + { + nDamage += 39; + } + else if (nAge >= 150 && nAge <= 153) //Great Wyrm + { + nDamage += 40; + } + else if (nAge >= 154 && nAge <= 157) //Great Wyrm + { + nDamage += 41; + } + + else if (nAge >= 158 && nAge <= 161) //Great Wyrm + { + nDamage += 42; + } + else if (nAge >= 162 && nAge <= 165) //Great Wyrm + { + nDamage += 43; + } + else if (nAge >= 166 && nAge <= 169) //Great Wyrm + { + nDamage += 44; + } + + else if (nAge >= 170 && nAge <= 173) //Great Wyrm + { + nDamage += 45; + } + else if (nAge >= 174 && nAge <= 177) //Great Wyrm + { + nDamage += 46; + } + else if (nAge > 178 ) //Great Wyrm + { + nDamage += 47; + } + + + + //create the breath - 40' ~ 14m? - should set it based on size later + WeakBreath = CreateBreath(OBJECT_SELF, FALSE, 40.0, -1, 10, nDamage, ABILITY_CONSTITUTION, nDCBoost, BREATH_WEAKENING); + + //Apply the breath + PRCPlayDragonBattleCry(); + ApplyBreath(WeakBreath, PRCGetSpellTargetLocation()); + + //Apply the recharge lock + SetLocalInt(OBJECT_SELF, DRAGBREATHLOCK, TRUE); + + // Schedule opening the delay lock + float fDelay = RoundsToSeconds(WeakBreath.nRoundsUntilRecharge); + SendMessageToPC(OBJECT_SELF, "Your breath weapon will be ready again in " + IntToString(WeakBreath.nRoundsUntilRecharge) + " rounds."); + + DelayCommand(fDelay, DeleteLocalInt(OBJECT_SELF, DRAGBREATHLOCK)); + DelayCommand(fDelay, SendMessageToPC(OBJECT_SELF, "Your breath weapon is ready now")); +} + + diff --git a/_haks/poa_exp_abilities/nw_s1_feroc3.ncs b/_haks/poa_exp_abilities/nw_s1_feroc3.ncs new file mode 100644 index 0000000..25681cd Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_feroc3.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_feroc3.nss b/_haks/poa_exp_abilities/nw_s1_feroc3.nss new file mode 100644 index 0000000..58a44cb --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_feroc3.nss @@ -0,0 +1,41 @@ +//:://///////////////////////////////////////////// +//:: Ferocity 3 +//:: NW_S1_Feroc3 +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + The Dex and Str of the target increases +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Aug 13, 2001 +//::////////////////////////////////////////////// + +void main() +{ +//:: Declare major variables + object oNPC = OBJECT_SELF; + + int nHD = GetHitDice(oNPC); + int nCONMod = GetAbilityModifier(ABILITY_CONSTITUTION); //:: Determine the duration by getting the con modifier + int nIncrease = 9; + int nDuration = 1 + nCONMod; + if(nDuration == 0) { nDuration = 1; } + + + effect eDex = EffectAbilityIncrease(ABILITY_DEXTERITY, nIncrease); + effect eStr = EffectAbilityIncrease(ABILITY_STRENGTH, nIncrease); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE); + effect eLink = EffectLinkEffects(eStr, eDex); + eLink = EffectLinkEffects(eLink, eDur); + eLink = ExtraordinaryEffect(eLink); //:: Make effect extraordinary + + //effect eVis = EffectVisualEffect(VFX_IMP_IMPROVE_ABILITY_SCORE); + SignalEvent(oNPC, EventSpellCastAt(oNPC, SPELLABILITY_FEROCITY_3, FALSE)); + if (nCONMod > 0) + { + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oNPC, RoundsToSeconds(nDuration)); + //ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, OBJECT_SELF) ; + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_gazechaos.ncs b/_haks/poa_exp_abilities/nw_s1_gazechaos.ncs new file mode 100644 index 0000000..584a1fd Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_gazechaos.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_gazechaos.nss b/_haks/poa_exp_abilities/nw_s1_gazechaos.nss new file mode 100644 index 0000000..950ce62 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_gazechaos.nss @@ -0,0 +1,69 @@ +//:://///////////////////////////////////////////// +//:: Gaze: Destroy Law +//:: NW_S1_GazeChaos +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Cone shape that affects all within the AoE if they + fail a Will Save and are of Lawful alignment. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 13, 2001 +//::////////////////////////////////////////////// +#include "prc_inc_spells" +#include "NW_I0_SPELLS" +//#include "wm_include" +#include "x0_i0_match" + +void main() +{ +//-------------------------------------------------------------------------- +// Make sure we are not blind +//-------------------------------------------------------------------------- + if (GetHasEffect(EFFECT_TYPE_BLINDNESS, OBJECT_SELF)) + { + FloatingTextStrRefOnCreature(84530, OBJECT_SELF, FALSE); + return; + } + + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + + location lTargetLocation = GetSpellTargetLocation(); + + effect eGaze = EffectDeath(); + effect eVis = EffectVisualEffect(VFX_IMP_DEATH); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + while(GetIsObjectValid(oTarget)) + { + if(!GetIsReactionTypeFriendly(oTarget) && oTarget != oNPC) + { + if(GetAlignmentLawChaos(oTarget) == ALIGNMENT_LAWFUL) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_GAZE_DESTROY_LAW)); + //Determine effect delay + float fDelay = GetDistanceBetween(oNPC, oTarget)/20; + if(!/*WillSave*/PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_DEATH, oNPC, fDelay)) + { + //Apply the VFX impact and effects + //DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eGaze, oTarget)); + } + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + } +} + diff --git a/_haks/poa_exp_abilities/nw_s1_gazecharm.ncs b/_haks/poa_exp_abilities/nw_s1_gazecharm.ncs new file mode 100644 index 0000000..b27cd59 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_gazecharm.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_gazecharm.nss b/_haks/poa_exp_abilities/nw_s1_gazecharm.nss new file mode 100644 index 0000000..e4a0622 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_gazecharm.nss @@ -0,0 +1,76 @@ +//:://///////////////////////////////////////////// +//:: Gaze: Charm +//:: NW_S1_GazeCharm +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Cone shape that affects all within the AoE if they + fail a Will Save. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 9, 2001 +//::////////////////////////////////////////////// +#include "prc_inc_spells" +#include "NW_I0_SPELLS" +//#include "wm_include" +#include "x0_i0_match" + +void main() +{ +//-------------------------------------------------------------------------- +// Make sure we are not blind +//-------------------------------------------------------------------------- + if (GetHasEffect(EFFECT_TYPE_BLINDNESS, OBJECT_SELF)) + { + FloatingTextStrRefOnCreature(84530, OBJECT_SELF, FALSE); + return; + } + + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nDuration = 1 + (nHD / 3); + if(nDuration == 0) { nDuration = 1; } + + location lTargetLocation = GetSpellTargetLocation(); + + effect eGaze = EffectCharmed(); + + effect eVis = EffectVisualEffect(VFX_IMP_CHARM); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eVisDur = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_NEGATIVE); + effect eLink = EffectLinkEffects(eDur, eVisDur); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + while(GetIsObjectValid(oTarget)) + { + if(!GetIsReactionTypeFriendly(oTarget) && oTarget != OBJECT_SELF) + { + nDuration = GetScaledDuration(nDuration, oTarget); + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_GAZE_CHARM)); + //Determine effect delay + float fDelay = GetDistanceBetween(oNPC, oTarget)/20; + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_MIND_SPELLS, oNPC, fDelay)) + { + eGaze = GetScaledEffect(eGaze, oTarget); + eLink = EffectLinkEffects(eLink, eGaze); + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration))); + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + } +} + + diff --git a/_haks/poa_exp_abilities/nw_s1_gazeconfu.ncs b/_haks/poa_exp_abilities/nw_s1_gazeconfu.ncs new file mode 100644 index 0000000..f5a010f Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_gazeconfu.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_gazeconfu.nss b/_haks/poa_exp_abilities/nw_s1_gazeconfu.nss new file mode 100644 index 0000000..4add32f --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_gazeconfu.nss @@ -0,0 +1,77 @@ +//:://///////////////////////////////////////////// +//:: Gaze: Confusion +//:: NW_S1_GazeConfu +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Cone shape that affects all within the AoE if they + fail a Will Save. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 9, 2001 +//::////////////////////////////////////////////// +#include "prc_inc_spells" +#include "NW_I0_SPELLS" +//#include "wm_include" +#include "x0_i0_match" + +void main() +{ +//-------------------------------------------------------------------------- +// Make sure we are not blind +//-------------------------------------------------------------------------- + if (GetHasEffect(EFFECT_TYPE_BLINDNESS, OBJECT_SELF)) + { + FloatingTextStrRefOnCreature(84530, OBJECT_SELF, FALSE); + return; + } + + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nDuration = 1 + (nHD / 3); + if(nDuration == 0) { nDuration = 1; } + + location lTargetLocation = GetSpellTargetLocation(); + + effect eGaze = EffectConfused(); + effect eVis = EffectVisualEffect(VFX_IMP_CONFUSION_S); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eVisDur = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_DISABLED); + effect eLink = EffectLinkEffects(eDur, eVisDur); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + while(GetIsObjectValid(oTarget)) + { + if(!GetIsReactionTypeFriendly(oTarget) && oTarget != oNPC) + { + if(oTarget != oNPC) + { + nDuration = GetScaledDuration(nDuration , oTarget); + //Determine effect delay + float fDelay = GetDistanceBetween(oNPC, oTarget)/20; + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_GAZE_CONFUSION)); + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_MIND_SPELLS, oNPC, fDelay)) + { + eGaze = GetScaledEffect(eGaze, oTarget); + eLink = EffectLinkEffects(eLink, eGaze); + + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration))); + } + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + } +} \ No newline at end of file diff --git a/_haks/poa_exp_abilities/nw_s1_gazedaze.ncs b/_haks/poa_exp_abilities/nw_s1_gazedaze.ncs new file mode 100644 index 0000000..d63fc80 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_gazedaze.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_gazedaze.nss b/_haks/poa_exp_abilities/nw_s1_gazedaze.nss new file mode 100644 index 0000000..f0a8c2d --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_gazedaze.nss @@ -0,0 +1,74 @@ +//:://///////////////////////////////////////////// +//:: Gaze: Daze +//:: NW_S1_GazeDaze +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Cone shape that affects all within the AoE if they + fail a Will Save. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 11, 2001 +//::////////////////////////////////////////////// +#include "prc_inc_spells" +#include "NW_I0_SPELLS" +//#include "wm_include" +#include "x0_i0_match" + +void main() +{ +//-------------------------------------------------------------------------- +// Make sure we are not blind +//-------------------------------------------------------------------------- + if (GetHasEffect(EFFECT_TYPE_BLINDNESS, OBJECT_SELF)) + { + FloatingTextStrRefOnCreature(84530, OBJECT_SELF, FALSE); + return; + } + + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nDuration = 1 + (nHD / 3); + if(nDuration == 0) { nDuration = 1; } + + location lTargetLocation = GetSpellTargetLocation(); + + effect eGaze = EffectDazed(); + effect eVis = EffectVisualEffect(VFX_IMP_DAZED_S); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eVisDur = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_DISABLED); + effect eLink = EffectLinkEffects(eGaze, eVisDur); + eLink = EffectLinkEffects(eLink, eDur); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + while(GetIsObjectValid(oTarget)) + { + if(!GetIsReactionTypeFriendly(oTarget) && oTarget != oNPC) + { + nDuration = GetScaledDuration(nDuration , oTarget); + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_GAZE_DAZE)); + + //Determine effect delay + float fDelay = GetDistanceBetween(oNPC, oTarget)/20; + if(!/*WillSave*/PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_MIND_SPELLS, oNPC, fDelay)) + { + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration))); + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + } +} + diff --git a/_haks/poa_exp_abilities/nw_s1_gazedeath.ncs b/_haks/poa_exp_abilities/nw_s1_gazedeath.ncs new file mode 100644 index 0000000..149369a Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_gazedeath.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_gazedeath.nss b/_haks/poa_exp_abilities/nw_s1_gazedeath.nss new file mode 100644 index 0000000..635ee53 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_gazedeath.nss @@ -0,0 +1,66 @@ +//:://///////////////////////////////////////////// +//:: Gaze: Death +//:: NW_S1_GazeDeath +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Cone shape that affects all within the AoE if they + fail a Will Save. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 9, 2001 +//::////////////////////////////////////////////// +#include "prc_inc_spells" +#include "NW_I0_SPELLS" +//#include "wm_include" +#include "x0_i0_match" + +void main() +{ +//-------------------------------------------------------------------------- +// Make sure we are not blind +//-------------------------------------------------------------------------- + if (GetHasEffect(EFFECT_TYPE_BLINDNESS, OBJECT_SELF)) + { + FloatingTextStrRefOnCreature(84530, OBJECT_SELF, FALSE); + return; + } + + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + + location lTargetLocation = GetSpellTargetLocation(); + + effect eGaze = EffectDeath(); + effect eVis = EffectVisualEffect(VFX_IMP_DEATH); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + while(GetIsObjectValid(oTarget)) + { + if(!GetIsReactionTypeFriendly(oTarget) || oTarget != oNPC) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_GAZE_DEATH)); + //Determine effect delay + float fDelay = GetDistanceBetween(oNPC, oTarget)/20; + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_DEATH, oNPC, fDelay)) + { + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eGaze, oTarget)); + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + } +} + diff --git a/_haks/poa_exp_abilities/nw_s1_gazedomn.ncs b/_haks/poa_exp_abilities/nw_s1_gazedomn.ncs new file mode 100644 index 0000000..ec2f33f Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_gazedomn.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_gazedomn.nss b/_haks/poa_exp_abilities/nw_s1_gazedomn.nss new file mode 100644 index 0000000..56e56e0 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_gazedomn.nss @@ -0,0 +1,78 @@ +//:://///////////////////////////////////////////// +//:: Gaze: Dominate +//:: NW_S1_GazeDomn +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Cone shape that affects all within the AoE if they + fail a Will Save. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 9, 2001 +//::////////////////////////////////////////////// +#include "prc_inc_spells" +#include "NW_I0_SPELLS" +//#include "wm_include" +#include "x0_i0_match" + +void main() +{ +//-------------------------------------------------------------------------- +// Make sure we are not blind +//-------------------------------------------------------------------------- + if (GetHasEffect(EFFECT_TYPE_BLINDNESS, OBJECT_SELF)) + { + FloatingTextStrRefOnCreature(84530, OBJECT_SELF, FALSE); + return; + } + + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nDuration = 1 + (nHD / 3); + if(nDuration == 0) { nDuration = 1; } + + location lTargetLocation = GetSpellTargetLocation(); + + effect eGaze = EffectDominated(); + effect eVis = EffectVisualEffect(VFX_IMP_DOMINATE_S); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eVisDur = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_DOMINATED); + effect eLink = EffectLinkEffects(eDur, eVisDur); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + while(GetIsObjectValid(oTarget)) + { + if(!GetIsReactionTypeFriendly(oTarget) && oTarget != oNPC) + { + nDuration = GetScaledDuration(nDuration , oTarget); + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_GAZE_DOMINATE)); + //Determine effect delay + float fDelay = GetDistanceBetween(oNPC, oTarget)/20; + if(GetIsEnemy(oTarget)) + { + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_MIND_SPELLS, oNPC, fDelay)) + { + eGaze = GetScaledEffect(eGaze, oTarget); + eLink = EffectLinkEffects(eLink, eGaze); + + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration))); + } + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + } +} + diff --git a/_haks/poa_exp_abilities/nw_s1_gazedoom.ncs b/_haks/poa_exp_abilities/nw_s1_gazedoom.ncs new file mode 100644 index 0000000..9b0f39a Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_gazedoom.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_gazedoom.nss b/_haks/poa_exp_abilities/nw_s1_gazedoom.nss new file mode 100644 index 0000000..cb359b5 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_gazedoom.nss @@ -0,0 +1,74 @@ +//:://///////////////////////////////////////////// +//:: Gaze of Doom +//:: NW_S1_GazeDoom.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + If the target fails a save they recieve a -2 + penalty to all saves, attack rolls, damage and + skill checks for the duration of the spell. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Oct 22, 2001 +//::////////////////////////////////////////////// +#include "prc_inc_spells" +#include "NW_I0_SPELLS" +//#include "wm_include" +#include "x0_i0_match" + +void main() +{ +//-------------------------------------------------------------------------- +// Make sure we are not blind +//-------------------------------------------------------------------------- + if (GetHasEffect(EFFECT_TYPE_BLINDNESS, OBJECT_SELF)) + { + FloatingTextStrRefOnCreature(84530, OBJECT_SELF, FALSE); + return; + } + + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nDuration = 1 + (nHD / 3); + if(nDuration == 0) { nDuration = 1; } + + location lTargetLocation = GetSpellTargetLocation(); + + effect eVis = EffectVisualEffect(VFX_IMP_DOOM); + effect eSaves = EffectSavingThrowDecrease(SAVING_THROW_ALL, 2); + effect eAttack = EffectAttackDecrease(2); + effect eDamage = EffectDamageDecrease(2); + effect eSkill = EffectSkillDecrease(SKILL_ALL_SKILLS, 2); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eLink = EffectLinkEffects(eAttack, eDamage); + eLink = EffectLinkEffects(eLink, eSaves); + eLink = EffectLinkEffects(eLink, eSkill); + eLink = EffectLinkEffects(eLink, eDur); + + oTarget = GetFirstObjectInShape(SHAPE_SPELLCONE, 10.0, GetSpellTargetLocation()); + while(GetIsObjectValid(oTarget)) + { + if(!GetIsReactionTypeFriendly(oTarget) && oTarget != oNPC) + { + if(oTarget != oNPC) + { + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_GAZE_DOOM)); + //Spell Resistance and Saving throw + if (!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC)) + { + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink , oTarget, RoundsToSeconds(nDuration)); + } + } + } + oTarget = GetNextObjectInShape(SHAPE_SPELLCONE, 10.0, GetSpellTargetLocation()); + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_gazeevil.ncs b/_haks/poa_exp_abilities/nw_s1_gazeevil.ncs new file mode 100644 index 0000000..d5e209d Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_gazeevil.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_gazeevil.nss b/_haks/poa_exp_abilities/nw_s1_gazeevil.nss new file mode 100644 index 0000000..eb2a269 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_gazeevil.nss @@ -0,0 +1,70 @@ +//:://///////////////////////////////////////////// +//:: Gaze: Deatroy Good +//:: NW_S1_GazeEvil +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Cone shape that affects all within the AoE if they + fail a Will Save. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 13, 2001 +//::////////////////////////////////////////////// +#include "prc_inc_spells" +#include "NW_I0_SPELLS" +//#include "wm_include" +#include "x0_i0_match" + +void main() +{ +//-------------------------------------------------------------------------- +// Make sure we are not blind +//-------------------------------------------------------------------------- + if (GetHasEffect(EFFECT_TYPE_BLINDNESS, OBJECT_SELF)) + { + FloatingTextStrRefOnCreature(84530, OBJECT_SELF, FALSE); + return; + } + + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nDuration = 1 + (nHD / 3); + + location lTargetLocation = GetSpellTargetLocation(); + + effect eGaze = EffectDeath(); + effect eVis = EffectVisualEffect(VFX_IMP_DEATH); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + while(GetIsObjectValid(oTarget)) + { + if(!GetIsReactionTypeFriendly(oTarget) && oTarget != oNPC) + { + if(GetAlignmentGoodEvil(oTarget) == ALIGNMENT_GOOD) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_GAZE_DEATH)); + //Determine effect delay + float fDelay = GetDistanceBetween(oNPC, oTarget)/20; + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_DEATH, oNPC, fDelay)) + { + //Apply the VFX impact and effects + //DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eGaze, oTarget)); + } + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + } +} + diff --git a/_haks/poa_exp_abilities/nw_s1_gazefear.ncs b/_haks/poa_exp_abilities/nw_s1_gazefear.ncs new file mode 100644 index 0000000..bb9fe90 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_gazefear.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_gazefear.nss b/_haks/poa_exp_abilities/nw_s1_gazefear.nss new file mode 100644 index 0000000..333d85c --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_gazefear.nss @@ -0,0 +1,74 @@ +//:://///////////////////////////////////////////// +//:: Gaze: Fear +//:: NW_S1_GazeFear +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Cone shape that affects all within the AoE if they + fail a Will Save. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 9, 2001 +//::////////////////////////////////////////////// +#include "prc_inc_spells" +#include "NW_I0_SPELLS" +//#include "wm_include" +#include "x0_i0_match" + +void main() +{ +//-------------------------------------------------------------------------- +// Make sure we are not blind +//-------------------------------------------------------------------------- + if (GetHasEffect(EFFECT_TYPE_BLINDNESS, OBJECT_SELF)) + { + FloatingTextStrRefOnCreature(84530, OBJECT_SELF, FALSE); + return; + } + + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nDuration = 1 + (nHD / 3); + if(nDuration == 0) { nDuration = 1; } + nDuration = GetScaledDuration(nDuration , oTarget); + + location lTargetLocation = GetSpellTargetLocation(); + + effect eGaze = EffectFrightened(); + effect eVis = EffectVisualEffect(VFX_IMP_FEAR_S); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eVisDur = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_FEAR); + effect eLink = EffectLinkEffects(eGaze, eVisDur); + eLink = EffectLinkEffects(eLink, eDur); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + while(GetIsObjectValid(oTarget)) + { + nDuration = GetScaledDuration(nDuration , oTarget); + if(!GetIsReactionTypeFriendly(oTarget) && oTarget != oNPC) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_GAZE_FEAR)); + //Determine effect delay + float fDelay = GetDistanceBetween(oNPC, oTarget)/20; + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_FEAR, oNPC, fDelay)) + { + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration))); + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + } +} + diff --git a/_haks/poa_exp_abilities/nw_s1_gazegood.ncs b/_haks/poa_exp_abilities/nw_s1_gazegood.ncs new file mode 100644 index 0000000..33deeef Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_gazegood.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_gazegood.nss b/_haks/poa_exp_abilities/nw_s1_gazegood.nss new file mode 100644 index 0000000..6ce014d --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_gazegood.nss @@ -0,0 +1,70 @@ +//:://///////////////////////////////////////////// +//:: Gaze: Deatroy Evil +//:: NW_S1_GazeGood +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Cone shape that affects all within the AoE if they + fail a Will Save. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 13, 2001 +//::////////////////////////////////////////////// +#include "prc_inc_spells" +#include "NW_I0_SPELLS" +//#include "wm_include" +#include "x0_i0_match" + +void main() +{ +//-------------------------------------------------------------------------- +// Make sure we are not blind +//-------------------------------------------------------------------------- + if (GetHasEffect(EFFECT_TYPE_BLINDNESS, OBJECT_SELF)) + { + FloatingTextStrRefOnCreature(84530, OBJECT_SELF, FALSE); + return; + } + + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nDuration = 1 + (nHD / 3); + + location lTargetLocation = GetSpellTargetLocation(); + + effect eGaze = EffectDeath(); + effect eVis = EffectVisualEffect(VFX_IMP_DEATH); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + while(GetIsObjectValid(oTarget)) + { + if(!GetIsReactionTypeFriendly(oTarget) && oTarget != oNPC) + { + if(GetAlignmentGoodEvil(oTarget) == ALIGNMENT_EVIL) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_GAZE_DEATH)); + //Determine effect delay + float fDelay = GetDistanceBetween(oNPC, oTarget)/20; + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_DEATH, oNPC, fDelay)) + { + //Apply the VFX impact and effects + //DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eGaze, oTarget)); + } + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + } +} + diff --git a/_haks/poa_exp_abilities/nw_s1_gazelaw.ncs b/_haks/poa_exp_abilities/nw_s1_gazelaw.ncs new file mode 100644 index 0000000..c4d06dc Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_gazelaw.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_gazelaw.nss b/_haks/poa_exp_abilities/nw_s1_gazelaw.nss new file mode 100644 index 0000000..14a9401 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_gazelaw.nss @@ -0,0 +1,71 @@ +//:://///////////////////////////////////////////// +//:: Gaze: Deatroy Chaos +//:: NW_S1_GazeLaw +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Cone shape that affects all within the AoE if they + fail a Will Save. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 13, 2001 +//::////////////////////////////////////////////// +#include "prc_inc_spells" +#include "NW_I0_SPELLS" +//#include "wm_include" +#include "x0_i0_match" + +void main() +{ +//-------------------------------------------------------------------------- +// Make sure we are not blind +//-------------------------------------------------------------------------- + if (GetHasEffect(EFFECT_TYPE_BLINDNESS, OBJECT_SELF)) + { + FloatingTextStrRefOnCreature(84530, OBJECT_SELF, FALSE); + return; + } + + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nDuration = 1 + (nHD / 3); + if(nDuration == 0) { nDuration = 1; } + + location lTargetLocation = GetSpellTargetLocation(); + + effect eGaze = EffectDeath(); + effect eVis = EffectVisualEffect(VFX_IMP_DEATH); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + while(GetIsObjectValid(oTarget)) + { + if(!GetIsReactionTypeFriendly(oTarget) && oTarget != oNPC) + { + if(GetAlignmentLawChaos(oTarget) == ALIGNMENT_CHAOTIC) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_GAZE_DESTROY_LAW)); + //Determine effect delay + float fDelay = GetDistanceBetween(oNPC, oTarget)/20; + if(!/*WillSave*/PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_DEATH, oNPC, fDelay)) + { + //Apply the VFX impact and effects + //DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eGaze, oTarget)); + } + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + } +} + diff --git a/_haks/poa_exp_abilities/nw_s1_gazestun.ncs b/_haks/poa_exp_abilities/nw_s1_gazestun.ncs new file mode 100644 index 0000000..717ed05 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_gazestun.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_gazestun.nss b/_haks/poa_exp_abilities/nw_s1_gazestun.nss new file mode 100644 index 0000000..8c44399 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_gazestun.nss @@ -0,0 +1,73 @@ +//:://///////////////////////////////////////////// +//:: Gaze: Stun +//:: NW_S1_GazeStun +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Cone shape that affects all within the AoE if they + fail a Will Save. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 9, 2001 +//::////////////////////////////////////////////// +#include "prc_inc_spells" +#include "NW_I0_SPELLS" +//#include "wm_include" +#include "x0_i0_match" + +void main() +{ +//-------------------------------------------------------------------------- +// Make sure we are not blind +//-------------------------------------------------------------------------- + if (GetHasEffect(EFFECT_TYPE_BLINDNESS, OBJECT_SELF)) + { + FloatingTextStrRefOnCreature(84530, OBJECT_SELF, FALSE); + return; + } + + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nDuration = 1 + (nHD / 3); + + location lTargetLocation = GetSpellTargetLocation(); + + effect eGaze = EffectStunned(); + effect eVis = EffectVisualEffect(VFX_IMP_STUN); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eVisDur = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_DISABLED); + effect eLink = EffectLinkEffects(eDur, eVisDur); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + while(GetIsObjectValid(oTarget)) + { + if(!GetIsReactionTypeFriendly(oTarget) && oTarget != oNPC) + { + nDuration = GetScaledDuration(nDuration , oTarget); + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_GAZE_STUNNED)); + //Determine effect delay + float fDelay = GetDistanceBetween(oNPC, oTarget)/20; + if(!/*WillSave*/PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_MIND_SPELLS, oNPC, fDelay)) + { + eGaze = GetScaledEffect(eGaze, oTarget); + eLink = EffectLinkEffects(eLink, eGaze); + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration))); + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + } +} + diff --git a/_haks/poa_exp_abilities/nw_s1_golemgas.ncs b/_haks/poa_exp_abilities/nw_s1_golemgas.ncs new file mode 100644 index 0000000..5d6dbb8 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_golemgas.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_golemgas.nss b/_haks/poa_exp_abilities/nw_s1_golemgas.nss new file mode 100644 index 0000000..6fb1495 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_golemgas.nss @@ -0,0 +1,41 @@ +//:://///////////////////////////////////////////// +//:: Golem Breath +//:: NW_S1_GolemGas +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Iron Golem spits out a cone of poison. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 22, 2001 +//::////////////////////////////////////////////// + +//#include "wm_include" +void main() +{ + //if (WildMagicOverride()) { return; } + //Declare major variables + location lTargetLocation = GetSpellTargetLocation(); + object oTarget; + effect eCone = EffectPoison(POISON_IRON_GOLEM); + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + while(GetIsObjectValid(oTarget)) + { + if(!GetIsReactionTypeFriendly(oTarget) && oTarget != OBJECT_SELF) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELLABILITY_GOLEM_BREATH_GAS)); + //Determine effect delay + float fDelay = GetDistanceBetween(OBJECT_SELF, oTarget)/20; + //Apply poison effect + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eCone, oTarget)); + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPELLCONE, 10.0, lTargetLocation, TRUE); + } +} + + + diff --git a/_haks/poa_exp_abilities/nw_s1_hndbreath.ncs b/_haks/poa_exp_abilities/nw_s1_hndbreath.ncs new file mode 100644 index 0000000..aa1ea7e Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_hndbreath.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_hndbreath.nss b/_haks/poa_exp_abilities/nw_s1_hndbreath.nss new file mode 100644 index 0000000..e142797 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_hndbreath.nss @@ -0,0 +1,66 @@ +//:://///////////////////////////////////////////// +//:: Hell Hound Fire Breath +//:: NW_S1_HndBreath +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + A cone of fire eminates from the hound. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 14, 2001 +//::////////////////////////////////////////////// +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCONMod = GetAbilityModifier(ABILITY_CONSTITUTION, oNPC); + int nDC = 10 +nCONMod+ (nHD/2); + int nDamage = d6(2); + + float fDelay; + + location lTargetLocation = GetSpellTargetLocation(); + + effect eCone; + effect eVis = EffectVisualEffect(VFX_IMP_FLAME_S); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPELLCONE, 11.0, lTargetLocation, TRUE); + while(GetIsObjectValid(oTarget)) + { + if(!GetIsReactionTypeFriendly(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_HELL_HOUND_FIREBREATH)); + + //Adjust the damage based on the Reflex Save, Evasion and Improved Evasion. + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nDC, SAVING_THROW_TYPE_FIRE); + + //Determine effect delay + fDelay = GetDistanceBetween(oNPC, oTarget)/20; + + //Set damage effect + eCone = EffectDamage(nDamage, DAMAGE_TYPE_FIRE); + if(nDamage > 0) + { + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eCone, oTarget)); + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPELLCONE, 11.0, lTargetLocation, TRUE); + } +} + + + diff --git a/_haks/poa_exp_abilities/nw_s1_howlconf.ncs b/_haks/poa_exp_abilities/nw_s1_howlconf.ncs new file mode 100644 index 0000000..10cd020 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_howlconf.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_howlconf.nss b/_haks/poa_exp_abilities/nw_s1_howlconf.nss new file mode 100644 index 0000000..f9d770e --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_howlconf.nss @@ -0,0 +1,67 @@ +//:://///////////////////////////////////////////// +//:: Howl: Confuse +//:: NW_S1_HowlConf +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + A howl emanates from the creature which affects + all within 20ft unless they make a save. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 14, 2000 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +//#include "wm_include" +#include "prc_inc_spells" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/4); + int nDuration = 1 + (nHD/4); + if(nDuration == 0) { nDuration = 1; } + + float fDelay; + + effect eVis = EffectVisualEffect(VFX_IMP_CONFUSION_S); + effect eHowl = EffectConfused(); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eDur2 = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_DISABLED); + effect eImpact = EffectVisualEffect(VFX_FNF_HOWL_MIND); + effect eLink = EffectLinkEffects(eHowl, eDur); + eLink = EffectLinkEffects(eLink, eDur2); + + ApplyEffectToObject(DURATION_TYPE_INSTANT, eImpact, oNPC); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, GetLocation(oNPC)); + while(GetIsObjectValid(oTarget)) + { + if(!GetIsReactionTypeFriendly(oTarget) && !GetIsFriend(oTarget) && oTarget != oNPC) + { + nDuration = GetScaledDuration(nDuration , oTarget); + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_HOWL_CONFUSE)); + fDelay = GetDistanceToObject(oTarget)/10; + //Make a saving throw check + if(!/*Will Save*/ PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_MIND_SPELLS, oNPC, fDelay)) + { + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration))); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, GetLocation(oNPC)); + } +} + + diff --git a/_haks/poa_exp_abilities/nw_s1_howldaze.ncs b/_haks/poa_exp_abilities/nw_s1_howldaze.ncs new file mode 100644 index 0000000..82237ef Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_howldaze.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_howldaze.nss b/_haks/poa_exp_abilities/nw_s1_howldaze.nss new file mode 100644 index 0000000..bd8e20c --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_howldaze.nss @@ -0,0 +1,65 @@ +//:://///////////////////////////////////////////// +//:: Howl: Daze +//:: NW_S1_HowlDaze +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + A howl emanates from the creature which affects + all within 10ft unless they make a save. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 14, 2000 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +//#include "wm_include" +#include "prc_inc_spells" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/4); + int nDuration = 1 + (nHD/4); + if(nDuration == 0) { nDuration = 1; } + + float fDelay; + + effect eVis = EffectVisualEffect(VFX_IMP_DAZED_S); + effect eHowl = EffectDazed(); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eDur2 = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_DISABLED); + effect eImpact = EffectVisualEffect(VFX_FNF_HOWL_MIND); + effect eLink = EffectLinkEffects(eHowl, eDur); + eLink = EffectLinkEffects(eLink, eDur2); + + ApplyEffectToObject(DURATION_TYPE_INSTANT, eImpact, oNPC); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, GetLocation(oNPC)); + while(GetIsObjectValid(oTarget)) + { + if(!GetIsReactionTypeFriendly(oTarget) && !GetIsFriend(oTarget) && oTarget != oNPC) + { + nDuration = GetScaledDuration(nDuration , oTarget); + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_HOWL_DAZE)); + fDelay = GetDistanceToObject(oTarget)/10; + //Make a saving throw check + if(!/*Will Save*/ PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_MIND_SPELLS, oNPC, fDelay)) + { + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration))); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, GetLocation(oNPC)); + } +} \ No newline at end of file diff --git a/_haks/poa_exp_abilities/nw_s1_howldeath.ncs b/_haks/poa_exp_abilities/nw_s1_howldeath.ncs new file mode 100644 index 0000000..06fe047 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_howldeath.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_howldeath.nss b/_haks/poa_exp_abilities/nw_s1_howldeath.nss new file mode 100644 index 0000000..5730647 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_howldeath.nss @@ -0,0 +1,59 @@ +//:://///////////////////////////////////////////// +//:: Howl: Death +//:: NW_S1_HowlDeath +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + A howl emanates from the creature which affects + all within 10ft unless they make a save. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 14, 2000 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +//#include "wm_include" +#include "prc_inc_spells" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/4); + + float fDelay; + + effect eVis = EffectVisualEffect(VFX_IMP_DEATH); + effect eImpact = EffectVisualEffect(VFX_FNF_HOWL_ODD); + effect eHowl = EffectDeath(); + + ApplyEffectToObject(DURATION_TYPE_INSTANT, eImpact, oNPC); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, GetLocation(oNPC)); + while(GetIsObjectValid(oTarget)) + { + if(!GetIsReactionTypeFriendly(oTarget) && !GetIsFriend(oTarget) && oTarget != oNPC) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_HOWL_DEATH)); + fDelay = GetDistanceToObject(oTarget)/10; + //Make a saving throw check + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_DEATH, oNPC, fDelay)) + { + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eHowl, oTarget)); + //ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, GetLocation(oNPC)); + } +} + diff --git a/_haks/poa_exp_abilities/nw_s1_howlfear.ncs b/_haks/poa_exp_abilities/nw_s1_howlfear.ncs new file mode 100644 index 0000000..a2af6c1 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_howlfear.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_howlfear.nss b/_haks/poa_exp_abilities/nw_s1_howlfear.nss new file mode 100644 index 0000000..13dcfaf --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_howlfear.nss @@ -0,0 +1,68 @@ +//:://///////////////////////////////////////////// +//:: Howl: Fear +//:: NW_S1_HowlFear +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + A howl emanates from the creature which affects + all within 10ft unless they make a save. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 14, 2000 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +//#include "wm_include" +#include "prc_inc_spells" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/4); + int nDuration = 1 + (nHD/4); + if(nDuration == 0) { nDuration = 1; } + + float fDelay; + + effect eVis = EffectVisualEffect(VFX_IMP_FEAR_S); + effect eHowl = EffectFrightened(); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eDur2 = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_FEAR); + effect eImpact = EffectVisualEffect(VFX_FNF_HOWL_MIND); + effect eLink = EffectLinkEffects(eHowl, eDur); + eLink = EffectLinkEffects(eLink, eDur2); + + + ApplyEffectToObject(DURATION_TYPE_INSTANT, eImpact, oNPC); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, GetLocation(oNPC)); + while(GetIsObjectValid(oTarget)) + { + if(!GetIsReactionTypeFriendly(oTarget) && !GetIsFriend(oTarget) && oTarget != oNPC) + { + fDelay = GetDistanceToObject(oTarget)/10; + nDuration = GetScaledDuration(nDuration , oTarget); + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_HOWL_FEAR)); + + //Make a saving throw check + if(!/*Will Save*/ PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_FEAR)) + { + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration))); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, GetLocation(oNPC)); + } +} + diff --git a/_haks/poa_exp_abilities/nw_s1_howlparal.ncs b/_haks/poa_exp_abilities/nw_s1_howlparal.ncs new file mode 100644 index 0000000..aed4415 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_howlparal.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_howlparal.nss b/_haks/poa_exp_abilities/nw_s1_howlparal.nss new file mode 100644 index 0000000..b0ecd43 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_howlparal.nss @@ -0,0 +1,65 @@ +//:://///////////////////////////////////////////// +//:: Howl: Paralysis +//:: NW_S1_HowlParal +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + A howl emanates from the creature which affects + all within 10ft unless they make a save. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 14, 2000 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +//#include "wm_include" +#include "prc_inc_spells" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/4); + int nDuration = 1 + (nHD/4); + if(nDuration == 0) { nDuration = 1; } + + float fDelay; + + effect eHowl = EffectParalyze(); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eDur2 = EffectVisualEffect(VFX_DUR_PARALYZE_HOLD); + effect eImpact = EffectVisualEffect(VFX_FNF_HOWL_ODD); + effect eLink = EffectLinkEffects(eHowl, eDur); + eLink = EffectLinkEffects(eLink, eDur2); + + ApplyEffectToObject(DURATION_TYPE_INSTANT, eImpact, oNPC); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, GetLocation(oNPC)); + while(GetIsObjectValid(oTarget)) + { + if(!GetIsReactionTypeFriendly(oTarget) && !GetIsFriend(oTarget) && oTarget != oNPC) + { + fDelay = GetDistanceToObject(oTarget)/10; + nDuration = GetScaledDuration(nDuration , oTarget); + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_HOWL_PARALYSIS)); + + //Make a saving throw check + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_NONE, oNPC, fDelay)) + { + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration))); + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, GetLocation(oNPC)); + } +} + diff --git a/_haks/poa_exp_abilities/nw_s1_howlsonic.ncs b/_haks/poa_exp_abilities/nw_s1_howlsonic.ncs new file mode 100644 index 0000000..62c8872 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_howlsonic.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_howlsonic.nss b/_haks/poa_exp_abilities/nw_s1_howlsonic.nss new file mode 100644 index 0000000..4de9768 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_howlsonic.nss @@ -0,0 +1,65 @@ +//:://///////////////////////////////////////////// +//:: Howl: Sonic +//:: NW_S1_HowlSonic +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + A howl emanates from the creature which affects + all within 10ft unless they make a save. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 14, 2000 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +//#include "wm_include" +#include "prc_inc_spells" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/4); + int nDamage; + int nSonic = nHD/4; + if(nSonic == 0) { nSonic = 1; } + + effect eVis = EffectVisualEffect(VFX_IMP_SONIC); + effect eHowl; + effect eImpact = EffectVisualEffect(VFX_FNF_HOWL_WAR_CRY); + + float fDelay; + + ApplyEffectToObject(DURATION_TYPE_INSTANT, eImpact, oNPC); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, GetLocation(oNPC)); + while(GetIsObjectValid(oTarget)) + { + if(!GetIsFriend(oTarget) && oTarget != oNPC) + { + fDelay = GetDistanceToObject(oTarget)/20; + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_HOWL_SONIC)); + nDamage = d6(nSonic); + //Make a saving throw check + if(PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_SONIC, oNPC, fDelay)) + { + nDamage = nDamage / 2; + } + //Set damage effect + eHowl = EffectDamage(nDamage, DAMAGE_TYPE_SONIC); + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eHowl, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, GetLocation(oNPC)); + } +} \ No newline at end of file diff --git a/_haks/poa_exp_abilities/nw_s1_howlstun.ncs b/_haks/poa_exp_abilities/nw_s1_howlstun.ncs new file mode 100644 index 0000000..28a19f6 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_howlstun.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_howlstun.nss b/_haks/poa_exp_abilities/nw_s1_howlstun.nss new file mode 100644 index 0000000..962d9b9 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_howlstun.nss @@ -0,0 +1,66 @@ +//:://///////////////////////////////////////////// +//:: Howl: Stun +//:: NW_S1_HowlStun +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + A howl emanates from the creature which affects + all within 10ft unless they make a save. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 14, 2000 +//::////////////////////////////////////////////// +//#include "wm_include" +#include "NW_I0_SPELLS" +#include "prc_inc_spells" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/4); + int nDuration = 1 + (nHD/4); + + float fDelay; + + effect eVis = EffectVisualEffect(VFX_IMP_STUN); + effect eHowl = EffectStunned(); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eDur2 = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_DISABLED); + effect eImpact = EffectVisualEffect(VFX_FNF_HOWL_MIND); + effect eLink = EffectLinkEffects(eHowl, eDur); + eLink = EffectLinkEffects(eLink, eDur2); + + ApplyEffectToObject(DURATION_TYPE_INSTANT, eImpact, oNPC); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, GetLocation(oNPC)); + while(GetIsObjectValid(oTarget)) + { + if(!GetIsReactionTypeFriendly(oTarget) && !GetIsFriend(oTarget) && oTarget != oNPC) + { + fDelay = GetDistanceToObject(oTarget)/10; + nDuration = GetScaledDuration(nDuration , oTarget); + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_HOWL_STUN)); + + //Make a saving throw check + if(!/*Will Save*/ PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_MIND_SPELLS)) + { + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration))); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, GetLocation(oNPC)); + } +} + diff --git a/_haks/poa_exp_abilities/nw_s1_krenscare.ncs b/_haks/poa_exp_abilities/nw_s1_krenscare.ncs new file mode 100644 index 0000000..484b807 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_krenscare.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_krenscare.nss b/_haks/poa_exp_abilities/nw_s1_krenscare.nss new file mode 100644 index 0000000..7909916 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_krenscare.nss @@ -0,0 +1,61 @@ +//:://///////////////////////////////////////////// +//:: Krenshar Fear Stare +//:: NW_S1_KrenScare +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Causes those in the gaze to be struck with fear +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Jan 8, 2002 +//::////////////////////////////////////////////// +//#include "wm_include" +#include "prc_inc_spells" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nMetaMagic = PRCGetMetaMagicFeat(); + + float fDelay; + + effect eVis = EffectVisualEffect(VFX_IMP_FEAR_S); + effect eFear = EffectFrightened(); + effect eMind = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_FEAR); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + //Link the fear and mind effects + effect eLink = EffectLinkEffects(eFear, eMind); + eLink = EffectLinkEffects(eLink, eDur); + + + //Get first target in the spell cone + oTarget = GetFirstObjectInShape(SHAPE_CONE, 10.0, GetSpellTargetLocation(), TRUE); + while(GetIsObjectValid(oTarget)) + { + //Make faction check + if(GetIsEnemy(oTarget)) + { + fDelay = GetDistanceToObject(oTarget)/20; + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_KRENSHAR_SCARE)); + //Make a will save + if(!/*Will Save*/ PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_FEAR)) + { + //Apply the linked effects and the VFX impact + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(3))); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + //Get next target in the spell cone + oTarget = GetNextObjectInShape(SHAPE_CONE, 10.0, GetSpellTargetLocation(), TRUE); + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_mephsalt.ncs b/_haks/poa_exp_abilities/nw_s1_mephsalt.ncs new file mode 100644 index 0000000..0e92ae3 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_mephsalt.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_mephsalt.nss b/_haks/poa_exp_abilities/nw_s1_mephsalt.nss new file mode 100644 index 0000000..03b0b97 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_mephsalt.nss @@ -0,0 +1,63 @@ +//:://///////////////////////////////////////////// +//:: Salt Mephit Breath +//:: NW_S1_MephSalt +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Salt Mephit shoots out a bolt of corrosive material + that causes 1d4 damage and reduces AC and Attack by 2 + + This should be a cone - Jaysyn +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 11, 2001 +//::////////////////////////////////////////////// +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + int nHD = GetHitDice(oNPC); + int nCONMod = GetAbilityModifier(ABILITY_CONSTITUTION, oNPC); + int nDC = 10 +nCONMod+ (nHD/2); + int nDamage = d4(); + + effect eVis = EffectVisualEffect(VFX_IMP_ACID_S); + effect eBolt, eAttack, eAC; + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + + //Adjust the damage based on the Reflex Save, Evasion and Improved Evasion. + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nDC, SAVING_THROW_TYPE_ACID); + + //Make a ranged touch attack + int nTouch = TouchAttackRanged(oTarget); + if(nDamage == 0) {nTouch = 0;} + if(nTouch > 0) + { + if(nTouch == 2) + { + nDamage *= 2; + } + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_MEPHIT_SALT_BREATH)); + + //Set damage, AC mod and attack mod effects + eBolt = EffectDamage(nDamage, DAMAGE_TYPE_ACID); + eAC = EffectACDecrease(2); + eAttack = EffectAttackDecrease(2); + effect eLink = EffectLinkEffects(eAttack, eAC); + eLink = EffectLinkEffects(eLink, eDur); + + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(3)); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eBolt, oTarget); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_mephsteam.ncs b/_haks/poa_exp_abilities/nw_s1_mephsteam.ncs new file mode 100644 index 0000000..91107e1 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_mephsteam.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_mephsteam.nss b/_haks/poa_exp_abilities/nw_s1_mephsteam.nss new file mode 100644 index 0000000..9b46d89 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_mephsteam.nss @@ -0,0 +1,67 @@ +//:://///////////////////////////////////////////// +//:: Steam Mephit Breath +//:: NW_S1_MephSteam +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Steam Mephit shoots out a bolt of steam + that causes 1d4 damage and reduces AC by 4 + and Attack by 2 + + This should be a cone - Jaysyn +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 11, 2001 +//::////////////////////////////////////////////// +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + int nHD = GetHitDice(oNPC); + int nCONMod = GetAbilityModifier(ABILITY_CONSTITUTION, oNPC); + int nDC = 10 +nCONMod+ (nHD/2); + int nDamage = d4(); + + + effect eVis = EffectVisualEffect(VFX_IMP_ACID_S); + effect eBolt, eAttack, eAC; + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + + + //Adjust the damage based on the Reflex Save, Evasion and Improved Evasion. + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nDC, SAVING_THROW_TYPE_FIRE); + + //Make a ranged touch attack + int nTouch = TouchAttackRanged(oTarget); + if(nDamage == 0) {nTouch = 0;} + + if(nTouch > 0) + { + if(nTouch == 2) + { + nDamage *= 2; + } + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_MEPHIT_STEAM_BREATH)); + + //Set damage, AC mod and attack mod effects + eBolt = EffectDamage(nDamage, DAMAGE_TYPE_FIRE); + eAC = EffectACDecrease(4); + eAttack = EffectAttackDecrease(2); + effect eLink = EffectLinkEffects(eAC, eAttack); + eLink = EffectLinkEffects(eLink, eDur); + + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(3)); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eBolt, oTarget); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_mumundead.ncs b/_haks/poa_exp_abilities/nw_s1_mumundead.ncs new file mode 100644 index 0000000..6897b90 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_mumundead.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_mumundead.nss b/_haks/poa_exp_abilities/nw_s1_mumundead.nss new file mode 100644 index 0000000..f11db57 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_mumundead.nss @@ -0,0 +1,53 @@ +//:://///////////////////////////////////////////// +//:: Bolster Undead +//:: NW_S1_MumUndead +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + This spell increases the Turn Resistance of + all undead around the caster by an amount + scaled with HD. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 22, 2002 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nScaling = nHD / 4; + + if(nScaling == 0) {nScaling = 1;} + + float fDelay; + + effect eTurn = EffectTurnResistanceIncrease(nScaling); + effect eVis = EffectVisualEffect(VFX_IMP_HEAD_EVIL); + effect eImpact = EffectVisualEffect(VFX_FNF_LOS_EVIL_30); + + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eImpact, GetLocation(oNPC)); + + oTarget = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, GetLocation(oNPC)); + while(GetIsObjectValid(oTarget)) + { + if(GetIsFriend(oTarget)) + { + fDelay = GetRandomDelay(); + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_MUMMY_BOLSTER_UNDEAD, FALSE)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eTurn, oTarget, RoundsToSeconds(10))); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + oTarget = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, GetLocation(oNPC)); + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_pulschrdr.ncs b/_haks/poa_exp_abilities/nw_s1_pulschrdr.ncs new file mode 100644 index 0000000..e3f8c5a Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_pulschrdr.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_pulschrdr.nss b/_haks/poa_exp_abilities/nw_s1_pulschrdr.nss new file mode 100644 index 0000000..b55902c --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_pulschrdr.nss @@ -0,0 +1,73 @@ +//:://///////////////////////////////////////////// +//:: Pulse: Charisma Drain +//:: NW_S1_PulsDeath +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + A wave of energy emanates from the creature which affects + all within 10ft. Damage can be reduced by half for all + damaging variants. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 14, 2000 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + + int nDamage = nHD/5; + + if (nDamage == 0) {nDamage = 1;} + + float fDelay; + + effect eVis = EffectVisualEffect(VFX_IMP_NEGATIVE_ENERGY); + effect eHowl; + effect eImpact = EffectVisualEffect(VFX_IMP_PULSE_NEGATIVE); + + ApplyEffectToObject(DURATION_TYPE_INSTANT, eImpact, oNPC); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(oNPC)); + while(GetIsObjectValid(oTarget)) + { + if(oTarget != oNPC) + { + if(!GetIsReactionTypeFriendly(oTarget)) + { + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_PULSE_ABILITY_DRAIN_CHARISMA)); + //Determine effect delay + fDelay = GetDistanceBetween(oNPC, oTarget)/20; + //Make a saving throw check + if(!/*FortSave*/PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_NEGATIVE, oNPC, fDelay)) + { + //Set the Ability mod and change to supernatural effect + eHowl = EffectAbilityDecrease(ABILITY_CHARISMA, nDamage); + eHowl = SupernaturalEffect(eHowl); + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_PERMANENT, eHowl, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + } + //Get first target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(oNPC)); + } +} + + diff --git a/_haks/poa_exp_abilities/nw_s1_pulscold.ncs b/_haks/poa_exp_abilities/nw_s1_pulscold.ncs new file mode 100644 index 0000000..b17e5af Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_pulscold.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_pulscold.nss b/_haks/poa_exp_abilities/nw_s1_pulscold.nss new file mode 100644 index 0000000..c5ff7d2 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_pulscold.nss @@ -0,0 +1,68 @@ +//:://///////////////////////////////////////////// +//:: Pulse: Cold +//:: NW_S1_PulsCold +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + A wave of energy emanates from the creature which affects + all within 10ft. Damage can be reduced by half for all + damaging variants. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 14, 2000 +//::////////////////////////////////////////////// +//#include "wm_include" +#include "prc_inc_spells" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nDamage = d6(nHD); + + float fDelay; + + effect eVis = EffectVisualEffect(VFX_IMP_FROST_S); + effect eHowl; + effect eImpact = EffectVisualEffect(VFX_IMP_PULSE_COLD); + + ApplyEffectToObject(DURATION_TYPE_INSTANT, eImpact, oNPC); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(oNPC)); + while(GetIsObjectValid(oTarget)) + { + if(oTarget != oNPC) + { + if(!GetIsReactionTypeFriendly(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_PULSE_COLD)); + + //Adjust the damage based on the Reflex Save, Evasion and Improved Evasion. + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nDC, SAVING_THROW_TYPE_COLD); + //Determine effect delay + fDelay = GetDistanceBetween(oNPC, oTarget)/20; + eHowl = EffectDamage(nDamage, DAMAGE_TYPE_COLD); + if(nDamage > 0) + { + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eHowl, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(oNPC)); + } +} + + diff --git a/_haks/poa_exp_abilities/nw_s1_pulscondr.ncs b/_haks/poa_exp_abilities/nw_s1_pulscondr.ncs new file mode 100644 index 0000000..a130192 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_pulscondr.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_pulscondr.nss b/_haks/poa_exp_abilities/nw_s1_pulscondr.nss new file mode 100644 index 0000000..bfdbfcf --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_pulscondr.nss @@ -0,0 +1,71 @@ +//:://///////////////////////////////////////////// +//:: Pulse: Constitution Drain +//:: NW_S1_PulsDeath +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + A wave of energy emanates from the creature which affects + all within 10ft. Damage can be reduced by half for all + damaging variants. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 14, 2000 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + + int nDamage = nHD/5; + + if (nDamage == 0) {nDamage = 1;} + + float fDelay; + + effect eVis = EffectVisualEffect(VFX_IMP_NEGATIVE_ENERGY); + effect eHowl; + effect eImpact = EffectVisualEffect(VFX_IMP_PULSE_NEGATIVE); + + ApplyEffectToObject(DURATION_TYPE_INSTANT, eImpact, oNPC); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(oNPC)); + while(GetIsObjectValid(oTarget)) + { + if(oTarget != oNPC) + { + if(!GetIsReactionTypeFriendly(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_PULSE_ABILITY_DRAIN_CONSTITUTION)); + //Determine effect delay + fDelay = GetDistanceBetween(oNPC, oTarget)/20; + //Make a saving throw check + if(!/*FortSave*/PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_NEGATIVE, oNPC, fDelay)) + { + //Set the Ability mod and change to supernatural effect + eHowl = EffectAbilityDecrease(ABILITY_CONSTITUTION, nDamage); + eHowl = SupernaturalEffect(eHowl); + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_PERMANENT, eHowl, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + } + //Get first target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(oNPC)); + } +} + diff --git a/_haks/poa_exp_abilities/nw_s1_pulsdeath.ncs b/_haks/poa_exp_abilities/nw_s1_pulsdeath.ncs new file mode 100644 index 0000000..230f564 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_pulsdeath.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_pulsdeath.nss b/_haks/poa_exp_abilities/nw_s1_pulsdeath.nss new file mode 100644 index 0000000..7c949d1 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_pulsdeath.nss @@ -0,0 +1,68 @@ +//:://///////////////////////////////////////////// +//:: Pulse: Death +//:: NW_S1_PulsDeath +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + A wave of energy emanates from the creature which affects + all within 10ft. Damage can be reduced by half for all + damaging variants. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 14, 2000 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + + int nDamage = nHD/5; + + if (nDamage == 0) {nDamage = 1;} + + float fDelay; + + effect eVis = EffectVisualEffect(VFX_IMP_DEATH); + effect eHowl = EffectDeath(); + effect eImpact = EffectVisualEffect(VFX_IMP_PULSE_NEGATIVE); + + ApplyEffectToObject(DURATION_TYPE_INSTANT, eImpact, oNPC); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(oNPC)); + while(GetIsObjectValid(oTarget)) + { + if(!GetIsReactionTypeFriendly(oTarget)) + { + if(oTarget != OBJECT_SELF) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_PULSE_DEATH)); + //Determine effect delay + fDelay = GetDistanceBetween(oNPC, oTarget)/20; + if(!/*FortSave*/PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_DEATH, oNPC, fDelay)) + { + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eHowl, oTarget)); + //DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(oNPC)); + } +} + + diff --git a/_haks/poa_exp_abilities/nw_s1_pulsdexdr.ncs b/_haks/poa_exp_abilities/nw_s1_pulsdexdr.ncs new file mode 100644 index 0000000..a2fd884 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_pulsdexdr.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_pulsdexdr.nss b/_haks/poa_exp_abilities/nw_s1_pulsdexdr.nss new file mode 100644 index 0000000..d29872a --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_pulsdexdr.nss @@ -0,0 +1,70 @@ +//:://///////////////////////////////////////////// +//:: Pulse: Dexterity Drain +//:: NW_S1_PulsDeath +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + A wave of energy emanates from the creature which affects + all within 10ft. Damage can be reduced by half for all + damaging variants. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 14, 2000 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + + int nDamage = nHD/5; + + if (nDamage == 0) {nDamage = 1;} + + float fDelay; + + effect eVis = EffectVisualEffect(VFX_IMP_NEGATIVE_ENERGY); + effect eHowl; + effect eImpact = EffectVisualEffect(VFX_IMP_PULSE_NEGATIVE); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eImpact, oNPC); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(oNPC)); + while(GetIsObjectValid(oTarget)) + { + if(oTarget != oNPC) + { + if(!GetIsReactionTypeFriendly(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_PULSE_ABILITY_DRAIN_DEXTERITY)); + //Determine effect delay + fDelay = GetDistanceBetween(oNPC, oTarget)/20; + //Make a saving throw check + if(!/*FortSave*/PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_NEGATIVE, oNPC, fDelay)) + { + //Set the Ability mod and change to supernatural effect + eHowl = EffectAbilityDecrease(ABILITY_DEXTERITY, nDamage); + eHowl = SupernaturalEffect(eHowl); + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_PERMANENT, eHowl, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + } + //Get first target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(oNPC)); + } +} + diff --git a/_haks/poa_exp_abilities/nw_s1_pulsdis.ncs b/_haks/poa_exp_abilities/nw_s1_pulsdis.ncs new file mode 100644 index 0000000..80e023b Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_pulsdis.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_pulsdis.nss b/_haks/poa_exp_abilities/nw_s1_pulsdis.nss new file mode 100644 index 0000000..f81568c --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_pulsdis.nss @@ -0,0 +1,85 @@ +//:://///////////////////////////////////////////// +//:: Pulse: Disease +//:: NW_S1_PulsDis +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + A wave of disease spreads out from the creature + and infects all those within 10ft +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Aug 14, 2000 +//::////////////////////////////////////////////// +//#include "wm_include" +#include "prc_inc_spells" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nRacial = MyPRCGetRacialType(oNPC); + int nHD = GetHitDice(oNPC); + int nDamage = d6(nHD); + int nDisease; + + float fDelay; + + effect eDisease; + effect ePulse = EffectVisualEffect(266); + effect eImpact = EffectVisualEffect(VFX_IMP_PULSE_NATURE); + + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, ePulse, GetLocation(oNPC)); + + //Determine the disease type based on the Racial Type + switch (nRacial) + { + case RACIAL_TYPE_VERMIN: + nDisease = DISEASE_VERMIN_MADNESS; + break; + case RACIAL_TYPE_UNDEAD: + nDisease = DISEASE_FILTH_FEVER; + break; + case RACIAL_TYPE_OUTSIDER: + nDisease = DISEASE_DEMON_FEVER; + break; + case RACIAL_TYPE_MAGICAL_BEAST: + nDisease = DISEASE_SOLDIER_SHAKES; + break; + case RACIAL_TYPE_ABERRATION: + nDisease = DISEASE_BLINDING_SICKNESS; + break; + default: + nDisease = DISEASE_MINDFIRE; + break; + } + + ApplyEffectToObject(DURATION_TYPE_INSTANT, eImpact, oNPC); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(oNPC)); + while(GetIsObjectValid(oTarget)) + { + if(oTarget != oNPC) + { + if(!GetIsReactionTypeFriendly(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELLABILITY_PULSE_DISEASE)); + //Determine effect delay + fDelay = GetDistanceBetween(OBJECT_SELF, oTarget)/20; + eDisease = EffectDisease(nDisease); + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eDisease, oTarget)); + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(oNPC)); + } +} + + diff --git a/_haks/poa_exp_abilities/nw_s1_pulselec.ncs b/_haks/poa_exp_abilities/nw_s1_pulselec.ncs new file mode 100644 index 0000000..40fc5cf Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_pulselec.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_pulselec.nss b/_haks/poa_exp_abilities/nw_s1_pulselec.nss new file mode 100644 index 0000000..2f85614 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_pulselec.nss @@ -0,0 +1,68 @@ +//:://///////////////////////////////////////////// +//:: Pulse: Lightning +//:: NW_S0_CallLghtn.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + All creatures within 10ft of the creature take + 1d6 per HD up to 10d6 +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 22, 2001 +//::////////////////////////////////////////////// +//#include "wm_include" +#include "prc_inc_spells" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nDamage; + + effect eVis = EffectVisualEffect(VFX_IMP_LIGHTNING_S); + effect eLightning = EffectBeam(VFX_BEAM_LIGHTNING, oNPC, BODY_NODE_CHEST); + effect eHowl = EffectVisualEffect(VFX_IMP_PULSE_COLD); + + DelayCommand(0.5, ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eHowl, GetLocation(oNPC))); + + float fDelay; + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(oNPC)); + while(GetIsObjectValid(oTarget)) + { + if(oTarget != oNPC) + { + if(!GetIsReactionTypeFriendly(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_PULSE_LIGHTNING)); + //Roll the damage + nDamage = d6(nHD); + //Adjust the damage based on the Reflex Save, Evasion and Improved Evasion. + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nDC, SAVING_THROW_TYPE_ELECTRICITY); + //Determine effect delay + fDelay = GetDistanceBetween(oNPC, oTarget)/20; + eHowl = EffectDamage(nDamage, DAMAGE_TYPE_ELECTRICAL); + if(nDamage > 0) + { + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eHowl, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_TEMPORARY,eLightning,oTarget, 0.5)); + } + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(oNPC)); + } +} + diff --git a/_haks/poa_exp_abilities/nw_s1_pulsfire.ncs b/_haks/poa_exp_abilities/nw_s1_pulsfire.ncs new file mode 100644 index 0000000..20f097e Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_pulsfire.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_pulsfire.nss b/_haks/poa_exp_abilities/nw_s1_pulsfire.nss new file mode 100644 index 0000000..9270aa9 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_pulsfire.nss @@ -0,0 +1,69 @@ +//:://///////////////////////////////////////////// +//:: Pulse: Fire +//:: NW_S1_PulsFire +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + A wave of energy emanates from the creature which affects + all within 10ft. Damage can be reduced by half for all + damaging variants. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 14, 2000 +//::////////////////////////////////////////////// +//#include "wm_include" +#include "prc_inc_spells" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nDamage; + + float fDelay; + + effect eVis = EffectVisualEffect(VFX_IMP_FLAME_S); + effect eHowl; + effect eImpact = EffectVisualEffect(VFX_IMP_PULSE_FIRE); + + ApplyEffectToObject(DURATION_TYPE_INSTANT, eImpact, OBJECT_SELF); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(OBJECT_SELF)); + while(GetIsObjectValid(oTarget)) + { + if(oTarget != OBJECT_SELF) + { + if(!GetIsReactionTypeFriendly(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELLABILITY_PULSE_FIRE)); + //Roll the damage + nDamage = d6(nHD); + //Adjust the damage based on the Reflex Save, Evasion and Improved Evasion. + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nDC, SAVING_THROW_TYPE_FIRE); + //Determine effect delay + fDelay = GetDistanceBetween(OBJECT_SELF, oTarget)/20; + eHowl = EffectDamage(nDamage, DAMAGE_TYPE_FIRE); + if(nDamage > 0) + { + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eHowl, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(OBJECT_SELF)); + } +} + + diff --git a/_haks/poa_exp_abilities/nw_s1_pulsholy.ncs b/_haks/poa_exp_abilities/nw_s1_pulsholy.ncs new file mode 100644 index 0000000..c230207 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_pulsholy.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_pulsholy.nss b/_haks/poa_exp_abilities/nw_s1_pulsholy.nss new file mode 100644 index 0000000..20ae463 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_pulsholy.nss @@ -0,0 +1,89 @@ +//:://///////////////////////////////////////////// +//:: Pulse: Holy +//:: NW_S1_PulsHoly +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + A wave of energy emanates from the creature which affects + all within 10ft. Damage can be reduced by half for all + damaging variants. Undead are damaged, allies are healed. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 14, 2000 +//::////////////////////////////////////////////// +//#include "wm_include" +#include "prc_inc_spells" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nDamage; + + float fDelay; + + effect eVis = EffectVisualEffect(VFX_IMP_HEALING_M); + effect eVis2 = EffectVisualEffect(VFX_IMP_SUNSTRIKE); + effect eHowl; + effect eImpact = EffectVisualEffect(VFX_IMP_PULSE_HOLY); + + ApplyEffectToObject(DURATION_TYPE_INSTANT, eImpact, oNPC); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(oNPC)); + while(GetIsObjectValid(oTarget)) + { + + //Determine effect delay + fDelay = GetDistanceBetween(oNPC, oTarget)/20; + //Roll the amount to heal or damage + nDamage = d4(nHD); + //If the target is not undead + if (MyPRCGetRacialType(oTarget) != RACIAL_TYPE_UNDEAD) + { + //Make a faction check + if(oTarget != oNPC) + { + if(GetIsFriend(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_PULSE_HOLY, FALSE)); + //Set heal effect + eHowl = EffectHeal(nDamage); + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eHowl, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + } + else + { + if(!GetIsReactionTypeFriendly(oTarget)) + { + //Adjust the damage based on the Reflex Save, Evasion and Improved Evasion. + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nDC, SAVING_THROW_TYPE_DIVINE); + //Set damage effect + eHowl = EffectDamage(nDamage, DAMAGE_TYPE_DIVINE) ; + if(nDamage > 0) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_PULSE_HOLY)); + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eHowl, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis2, oTarget)); + } + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(oNPC)); + } +} + diff --git a/_haks/poa_exp_abilities/nw_s1_pulsintdr.ncs b/_haks/poa_exp_abilities/nw_s1_pulsintdr.ncs new file mode 100644 index 0000000..6730fc8 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_pulsintdr.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_pulsintdr.nss b/_haks/poa_exp_abilities/nw_s1_pulsintdr.nss new file mode 100644 index 0000000..8558364 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_pulsintdr.nss @@ -0,0 +1,72 @@ +//:://///////////////////////////////////////////// +//:: Pulse: Intelligence Drain +//:: NW_S1_PulsDeath +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + A wave of energy emanates from the creature which affects + all within 10ft. Damage can be reduced by half for all + damaging variants. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 14, 2000 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + + int nDamage = nHD/5; + + if (nDamage == 0) {nDamage = 1;} + + float fDelay; + + effect eVis = EffectVisualEffect(VFX_IMP_NEGATIVE_ENERGY); + effect eHowl; + effect eImpact = EffectVisualEffect(VFX_IMP_PULSE_NEGATIVE); + + ApplyEffectToObject(DURATION_TYPE_INSTANT, eImpact, oNPC); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(oNPC)); + while(GetIsObjectValid(oTarget)) + { + if(oTarget != oNPC) + { + if(!GetIsReactionTypeFriendly(oTarget)) + { + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_PULSE_ABILITY_DRAIN_INTELLIGENCE)); + //Determine effect delay + fDelay = GetDistanceBetween(oNPC, oTarget)/20; + //Make a saving throw check + if(!/*FortSave*/PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_NEGATIVE, oNPC, fDelay)) + { + //Set the Ability mod and change to supernatural effect + eHowl = EffectAbilityDecrease(ABILITY_INTELLIGENCE, nDamage); + eHowl = SupernaturalEffect(eHowl); + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_PERMANENT, eHowl, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + } + //Get first target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(OBJECT_SELF)); + } +} + diff --git a/_haks/poa_exp_abilities/nw_s1_pulslvldr.ncs b/_haks/poa_exp_abilities/nw_s1_pulslvldr.ncs new file mode 100644 index 0000000..de1184e Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_pulslvldr.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_pulslvldr.nss b/_haks/poa_exp_abilities/nw_s1_pulslvldr.nss new file mode 100644 index 0000000..f65e073 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_pulslvldr.nss @@ -0,0 +1,62 @@ +//:://///////////////////////////////////////////// +//:: Pulse: Level Drain +//:: NW_S1_PulsLvlDr +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + A wave of energy emanates from the creature which affects + all within 10ft. Damage can be reduced by half for all + damaging variants. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 14, 2000 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = GetAreaOfEffectCreator(); + object oTarget = GetEnteringObject(); + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + + float fDelay; + + effect eVis = EffectVisualEffect(VFX_IMP_NEGATIVE_ENERGY); + effect eHowl; + effect eImpact = EffectVisualEffect(VFX_IMP_PULSE_NEGATIVE); + + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eImpact, GetLocation(oNPC)); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(oNPC)); + + while(GetIsObjectValid(oTarget)) + { + if(oTarget != oNPC) + { + if(!GetIsReactionTypeFriendly(oTarget)) + { + fDelay = GetSpellEffectDelay(GetLocation(oNPC), oTarget)/20; + //Make a saving throw check + if(!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_NEGATIVE, oNPC, fDelay)) + { + //Apply the VFX impact and effects + eHowl = EffectNegativeLevel(1); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_PERMANENT, eHowl, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(oNPC)); + } +} + diff --git a/_haks/poa_exp_abilities/nw_s1_pulsneg.ncs b/_haks/poa_exp_abilities/nw_s1_pulsneg.ncs new file mode 100644 index 0000000..373c052 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_pulsneg.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_pulsneg.nss b/_haks/poa_exp_abilities/nw_s1_pulsneg.nss new file mode 100644 index 0000000..9bfa749 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_pulsneg.nss @@ -0,0 +1,87 @@ +//:://///////////////////////////////////////////// +//:: Pulse: Negative +//:: NW_S1_PulsDeath +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + A wave of energy emanates from the creature which affects + all within 10ft. Damage can be reduced by half for all + damaging variants. Undead are healed. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 14, 2000 +//::////////////////////////////////////////////// +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = GetAreaOfEffectCreator(); + object oTarget = GetEnteringObject(); + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + int nDamage; + + float fDelay; + + effect eVis = EffectVisualEffect(VFX_IMP_HEALING_M); + effect eVis2 = EffectVisualEffect(VFX_IMP_NEGATIVE_ENERGY); + effect eHowl; + effect eImpact = EffectVisualEffect(VFX_IMP_PULSE_NEGATIVE); + + ApplyEffectToObject(DURATION_TYPE_INSTANT, eImpact, oNPC); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(oNPC)); + while(GetIsObjectValid(oTarget)) + { + if(oTarget != oNPC) + { + //Determine effect delay + fDelay = GetDistanceBetween(oNPC, oTarget)/20; + //Roll the amount to heal or damage + nDamage = d4(nHD); + //If the target is undead + if (MyPRCGetRacialType(oTarget) == RACIAL_TYPE_UNDEAD) + { + //Make a faction check + if(GetIsFriend(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_PULSE_HOLY, FALSE)); + //Set heal effect + eHowl = EffectHeal(nDamage); + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eHowl, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + else + { + if(!GetIsReactionTypeFriendly(oTarget) && MyPRCGetRacialType(oTarget) != RACIAL_TYPE_UNDEAD) + { + //Adjust the damage based on the Reflex Save, Evasion and Improved Evasion. + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nDC, SAVING_THROW_TYPE_NEGATIVE); + //Set damage effect + eHowl = EffectDamage(nDamage, DAMAGE_TYPE_NEGATIVE); + if(nDamage > 0) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_PULSE_HOLY)); + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eHowl, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis2, oTarget)); + } + } + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(oNPC)); + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_pulspois.ncs b/_haks/poa_exp_abilities/nw_s1_pulspois.ncs new file mode 100644 index 0000000..cafb629 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_pulspois.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_pulspois.nss b/_haks/poa_exp_abilities/nw_s1_pulspois.nss new file mode 100644 index 0000000..252ae3a --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_pulspois.nss @@ -0,0 +1,138 @@ +//:://///////////////////////////////////////////// +//:: Pulse: Poison +//:: NW_S1_PulsPois +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + A wave of energy emanates from the creature which affects + all within 10ft. All who make a reflex save are not + poisoned. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 23, 2000 +//::////////////////////////////////////////////// +#include "prc_inc_racial" +//#include "wm_include" + +void main() +{ +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCONMod = GetAbilityModifier(ABILITY_CONSTITUTION, oNPC); + int nDC = 10 +nCONMod+ (nHD/2); + int nRacial = MyPRCGetRacialType(oNPC); + int nPoison; + + float fDelay; + + effect ePoison; + effect eImpact = EffectVisualEffect(VFX_IMP_PULSE_NATURE); + + //Determine the poison type based on the Racial Type and HD + switch (nRacial) + { + case RACIAL_TYPE_OUTSIDER: + if (nHD <= 9) + { + nPoison = POISON_QUASIT_VENOM; + } + else if (nHD > 9 && nHD < 13) + { + nPoison = POISON_BEBILITH_VENOM; + } + else if (nHD >= 13) + { + nPoison = POISON_PIT_FIEND_ICHOR; + } + break; + case RACIAL_TYPE_VERMIN: + if (nHD < 3) + { + nPoison = POISON_TINY_SPIDER_VENOM; + } + else if (nHD <= 3 && nHD < 6) + { + nPoison = POISON_SMALL_SPIDER_VENOM; + } + else if (nHD <= 6 && nHD < 9) + { + nPoison = POISON_MEDIUM_SPIDER_VENOM; + } + else if (nHD <= 9 && nHD < 12) + { + nPoison = POISON_LARGE_SPIDER_VENOM; + } + else if (nHD <= 12 && nHD < 15) + { + nPoison = POISON_HUGE_SPIDER_VENOM; + } + else if (nHD <= 15 && nHD < 18) + { + nPoison = POISON_GARGANTUAN_SPIDER_VENOM; + } + else if (nHD >= 18) + { + nPoison = POISON_COLOSSAL_SPIDER_VENOM; + } + break; + default: + if (nHD < 3) + { + nPoison = POISON_NIGHTSHADE; + } + else if (nHD <= 3 && nHD < 6) + { + nPoison = POISON_BLADE_BANE; + } + else if (nHD <= 6 && nHD < 9) + { + nPoison = POISON_BLOODROOT; + } + else if (nHD <= 9 && nHD < 12) + { + nPoison = POISON_LARGE_SPIDER_VENOM; + } + else if (nHD <= 12 && nHD < 15) + { + nPoison = POISON_LICH_DUST; + } + else if (nHD <= 15 && nHD < 18) + { + nPoison = POISON_DARK_REAVER_POWDER; + } + else if (nHD >= 18 ) + { + nPoison = POISON_BLACK_LOTUS_EXTRACT; + } + break; + } + + ApplyEffectToObject(DURATION_TYPE_INSTANT, eImpact, oNPC); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(oNPC)); + while(GetIsObjectValid(oTarget)) + { + if(oTarget != oNPC) + { + if(!GetIsReactionTypeFriendly(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_PULSE_POISON)); + //Determine effect delay + fDelay = GetDistanceBetween(oNPC, oTarget)/20; + ePoison = EffectPoison(nPoison); + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_PERMANENT, ePoison, oTarget)); + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(oNPC)); + } +} + + diff --git a/_haks/poa_exp_abilities/nw_s1_pulsspore.ncs b/_haks/poa_exp_abilities/nw_s1_pulsspore.ncs new file mode 100644 index 0000000..723d855 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_pulsspore.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_pulsspore.nss b/_haks/poa_exp_abilities/nw_s1_pulsspore.nss new file mode 100644 index 0000000..7e9e34d --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_pulsspore.nss @@ -0,0 +1,50 @@ +//:://///////////////////////////////////////////// +//:: Vrock Spores +//:: NW_S1_PulsSpore +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + A wave of disease spreads out from the creature + and infects all those within 10ft +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Jan 8, 2002 +//::////////////////////////////////////////////// +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + float fDelay; + effect eDisease; + effect eImpact = EffectVisualEffect(VFX_IMP_PULSE_NATURE); + + ApplyEffectToObject(DURATION_TYPE_INSTANT, eImpact, oNPC); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_MEDIUM, GetLocation(oNPC)); + while(GetIsObjectValid(oTarget)) + { + if(oTarget != oNPC) + { + if(!GetIsReactionTypeFriendly(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_PULSE_DISEASE)); + //Determine effect delay + fDelay = GetDistanceBetween(oNPC, oTarget)/20; + eDisease = EffectDisease(DISEASE_SOLDIER_SHAKES); + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eDisease, oTarget)); + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_MEDIUM, GetLocation(oNPC)); + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_pulsstrdr.ncs b/_haks/poa_exp_abilities/nw_s1_pulsstrdr.ncs new file mode 100644 index 0000000..aa85653 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_pulsstrdr.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_pulsstrdr.nss b/_haks/poa_exp_abilities/nw_s1_pulsstrdr.nss new file mode 100644 index 0000000..5f88eab --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_pulsstrdr.nss @@ -0,0 +1,71 @@ +//:://///////////////////////////////////////////// +//:: Pulse: Strength Drain +//:: NW_S1_PulsDeath +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + A wave of energy emanates from the creature which affects + all within 10ft. Damage can be reduced by half for all + damaging variants. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 14, 2000 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + + int nDamage = nHD/5; + + if (nDamage == 0) {nDamage = 1;} + + float fDelay; + + effect eImpact = EffectVisualEffect(VFX_IMP_PULSE_NEGATIVE); + effect eVis = EffectVisualEffect(VFX_IMP_NEGATIVE_ENERGY); + effect eHowl; + + ApplyEffectToObject(DURATION_TYPE_INSTANT, eImpact, oNPC); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(oNPC)); + while(GetIsObjectValid(oTarget)) + { + if(oTarget != oNPC) + { + if(!GetIsReactionTypeFriendly(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_PULSE_ABILITY_DRAIN_STRENGTH)); + //Determine effect delay + fDelay = GetDistanceBetween(oNPC, oTarget)/20; + //Make a saving throw check + if(!/*FortSave*/PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_NEGATIVE, oNPC, fDelay)) + { + //Set the Ability mod and change to supernatural effect + eHowl = EffectAbilityDecrease(ABILITY_STRENGTH, nDamage); + eHowl = SupernaturalEffect(eHowl); + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_PERMANENT, eHowl, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + } + //Get next target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(oNPC)); + } +} + diff --git a/_haks/poa_exp_abilities/nw_s1_pulswind.ncs b/_haks/poa_exp_abilities/nw_s1_pulswind.ncs new file mode 100644 index 0000000..92fccc7 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_pulswind.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_pulswind.nss b/_haks/poa_exp_abilities/nw_s1_pulswind.nss new file mode 100644 index 0000000..0572407 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_pulswind.nss @@ -0,0 +1,51 @@ +//:://///////////////////////////////////////////// +//:: Pulse Whirlwind +//:: NW_S1_PulsWind +//:: Copyright (c) 2001 Bioware Corp. +//:://///////////////////////////////////////////// +/* + All those that fail a save are knocked + down by the elemental whirlwind. +*/ +//:://///////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Jan 8, 2002 +//:://///////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nSTRMod = GetAbilityModifier(ABILITY_STRENGTH, oNPC); + int nDC = 10 +nSTRMod+ (nHD/2); + + effect eDown = EffectKnockdown(); + effect eImpact = EffectVisualEffect(VFX_IMP_PULSE_WIND); + + ApplyEffectToObject(DURATION_TYPE_INSTANT, eImpact, oNPC); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(oNPC)); + + while(GetIsObjectValid(oTarget)) + { + if(!GetIsReactionTypeFriendly(oTarget) && oTarget != oNPC) + { + //Make a saving throw check + if(!PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, nDC)) + { + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eDown, oTarget, 5.0); + } + //Get next target in spell area + } + oTarget = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, GetLocation(oNPC)); + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_pulswisdr.ncs b/_haks/poa_exp_abilities/nw_s1_pulswisdr.ncs new file mode 100644 index 0000000..19253de Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_pulswisdr.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_pulswisdr.nss b/_haks/poa_exp_abilities/nw_s1_pulswisdr.nss new file mode 100644 index 0000000..b1bf68c --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_pulswisdr.nss @@ -0,0 +1,68 @@ +//:://///////////////////////////////////////////// +//:: Pulse: Wisdom Drain +//:: NW_S1_PulsWisDr +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + A wave of energy emanates from the creature which affects + all within 10ft. Damage can be reduced by half for all + damaging variants. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 14, 2000 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget; + + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + + int nDamage = nHD/5; + + if (nDamage == 0) {nDamage = 1;} + + float fDelay; + + effect eVis = EffectVisualEffect(VFX_IMP_NEGATIVE_ENERGY); + effect eHowl; + effect eImpact = EffectVisualEffect(VFX_IMP_PULSE_NEGATIVE); + + ApplyEffectToObject(DURATION_TYPE_INSTANT, eImpact, OBJECT_SELF); + + //Get first target in spell area + oTarget = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_MEDIUM, GetLocation(OBJECT_SELF)); + while(GetIsObjectValid(oTarget)) + { + if(!GetIsReactionTypeFriendly(oTarget) && oTarget != OBJECT_SELF) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_PULSE_ABILITY_DRAIN_WISDOM)); + //Determine effect delay + fDelay = GetDistanceBetween(oNPC, oTarget)/20; + //Make a saving throw check + if(!/*FortSave*/PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_NEGATIVE, oNPC, fDelay)) + { + //Set the Ability mod and change to supernatural effect + eHowl = EffectAbilityDecrease(ABILITY_WISDOM, nDamage); + eHowl = SupernaturalEffect(eHowl); + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_PERMANENT, eHowl, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + //Get first target in spell area + oTarget = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_MEDIUM, GetLocation(OBJECT_SELF)); + } +} + diff --git a/_haks/poa_exp_abilities/nw_s1_smokeclaw.ncs b/_haks/poa_exp_abilities/nw_s1_smokeclaw.ncs new file mode 100644 index 0000000..ebed03b Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_smokeclaw.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_smokeclaw.nss b/_haks/poa_exp_abilities/nw_s1_smokeclaw.nss new file mode 100644 index 0000000..6db3666 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_smokeclaw.nss @@ -0,0 +1,64 @@ +//:://///////////////////////////////////////////// +//:: Smoke Claws +//:: NW_S1_SmokeClaw +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + If a Belker succeeds at a touch attack the + target breaths in part of the Belker and suffers + 3d4 damage per round until a Fortitude save is + made. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 23 , 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//#include "wm_include" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + int nHD = GetHitDice(oNPC); + int nCONMod = GetAbilityModifier(ABILITY_CONSTITUTION, oNPC); + int nDC = 10 +nCONMod+ (nHD/2); + + int bSave = FALSE; + + effect eVis = EffectVisualEffect(VFX_COM_BLOOD_REG_RED); + effect eSmoke; + float fDelay = 0.0; + + //Make a touch attack + if(TouchAttackMelee(oTarget)) + { + if(!GetIsReactionTypeFriendly(oTarget)) + { + //Make a saving throw check + while (bSave == FALSE) + { + //Make a saving throw check + if(!/*FortSave*/PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_NONE, oNPC, fDelay)) + { + bSave = TRUE; + } + else + { + //Set damage + eSmoke = EffectDamage(d4(3)); + //Apply the VFX impact and effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eSmoke, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + //Increment the delay + fDelay = fDelay + 6.0; + } + } + } + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_stink_a.ncs b/_haks/poa_exp_abilities/nw_s1_stink_a.ncs new file mode 100644 index 0000000..bb2bc5b Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_stink_a.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_stink_a.nss b/_haks/poa_exp_abilities/nw_s1_stink_a.nss new file mode 100644 index 0000000..67652dd --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_stink_a.nss @@ -0,0 +1,57 @@ +//:://///////////////////////////////////////////// +//:: Stinking Cloud On Enter +//:: NW_S1_Stink_A.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Those within the area of effect must make a + fortitude save or be dazed. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 17, 2001 +//::////////////////////////////////////////////// + +#include "NW_I0_SPELLS" +//#include "wm_include" +#include "prc_inc_spells" + +void main() +{ +//:: Declare major variables + object oNPC = GetAreaOfEffectCreator(); + object oTarget = GetEnteringObject(); //Get the first object in the persistant area + + int nHD = GetHitDice(oNPC); + int nCONMod = GetAbilityModifier(ABILITY_CONSTITUTION, oNPC); + int nDC = 10 +nCONMod+ (nHD/2); + + effect eStink = EffectDazed(); + effect eMind = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_DISABLED); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eLink = EffectLinkEffects(eMind, eStink); + eLink = EffectLinkEffects(eLink, eDur); + + effect eVis = EffectVisualEffect(VFX_IMP_DAZED_S); + + float fDelay; + + //if (NullMagicOverride(GetArea(oTarget), oTarget, oTarget)) {return;} + + if(MyPRCGetRacialType(oTarget) != RACIAL_TYPE_VERMIN) + { + if(GetIsEnemy(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_STINKING_CLOUD)); + //Make a Fort Save + if(!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_POISON)) + { + fDelay = GetRandomDelay(0.25, 1.0); + //Apply the VFX impact and linked effects + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(2))); + } + } + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_tyrantfga.ncs b/_haks/poa_exp_abilities/nw_s1_tyrantfga.ncs new file mode 100644 index 0000000..a28a1df Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_tyrantfga.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_tyrantfga.nss b/_haks/poa_exp_abilities/nw_s1_tyrantfga.nss new file mode 100644 index 0000000..a2752cb --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_tyrantfga.nss @@ -0,0 +1,56 @@ +//:://///////////////////////////////////////////// +//:: Tyrant Fog Zombie Mist Heartbeat +//:: NW_S1_TyrantFgA.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Creatures entering the area around the zombie + must save or take 1 point of Constitution + damage. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 25, 2001 +//::////////////////////////////////////////////// +#include "NW_I0_SPELLS" +//#include "wm_include" +#include "prc_inc_spells" + +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = GetAreaOfEffectCreator(); + object oTarget = GetEnteringObject(); + //if (NullMagicOverride(GetArea(oTarget), oTarget, oTarget)) {return;} + + int bAbsent = TRUE; + int nHD = GetHitDice(oNPC); + int nCHAMod = GetAbilityModifier(ABILITY_CHARISMA, oNPC); + int nDC = 10 +nCHAMod+ (nHD/2); + + effect eTest; + effect eCon = EffectAbilityDecrease(ABILITY_CONSTITUTION, 1); + eCon = ExtraordinaryEffect(eCon); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eLink = EffectLinkEffects(eCon, eDur); + + if(!GetHasSpellEffect(SPELLABILITY_TYRANT_FOG_MIST, oTarget)) + { + if(bAbsent == TRUE) + { + if(GetIsEnemy(oTarget, oNPC)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oNPC, SPELLABILITY_TYRANT_FOG_MIST)); + //Make a saving throw check + if(!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_POISON)) + { + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(5)); + } + } + } + } +} diff --git a/_haks/poa_exp_abilities/nw_s1_tyrantfog.ncs b/_haks/poa_exp_abilities/nw_s1_tyrantfog.ncs new file mode 100644 index 0000000..609cad3 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s1_tyrantfog.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s1_tyrantfog.nss b/_haks/poa_exp_abilities/nw_s1_tyrantfog.nss new file mode 100644 index 0000000..e3ab9e6 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s1_tyrantfog.nss @@ -0,0 +1,25 @@ +//:://///////////////////////////////////////////// +//:: Tyrant Fog Zombie Mist +//:: NW_S1_TyrantFog.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Creatures entering the area around the zombie + must save or take 1 point of Constitution + damage. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 25, 2001 +//::////////////////////////////////////////////// +//#include "wm_include" +#include "prc_inc_spells" + +void main() +{ + //if (WildMagicOverride()) { return; } + + //Declare and apply the AOE + effect eAOE = EffectAreaOfEffect(AOE_MOB_TYRANT_FOG); + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eAOE, OBJECT_SELF, HoursToSeconds(100)); +} diff --git a/_haks/poa_exp_abilities/nw_s2_bardsong.ncs b/_haks/poa_exp_abilities/nw_s2_bardsong.ncs new file mode 100644 index 0000000..2c2a620 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s2_bardsong.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s2_bardsong.nss b/_haks/poa_exp_abilities/nw_s2_bardsong.nss new file mode 100644 index 0000000..7805ffd --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s2_bardsong.nss @@ -0,0 +1,2222 @@ +//:://///////////////////////////////////////////// +//:: Bard Song +//:: NW_S2_BardSong +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + This spells applies bonuses to all of the + bard's allies within 30ft for a set duration of + 10 rounds. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Feb 25, 2002 +//::////////////////////////////////////////////// +//:: Last Updated By: Georg Zoeller Oct 1, 2003 +/* +bugfix by Kovi 2002.07.30 +- loosing temporary hp resulted in loosing the other bonuses +*/ + +#include "prc_inc_clsfunc" +#include "prc_inc_combat" //for Dragonfire type getting + +void ApplyDragonfire(int nAmount, int nDuration, object oPC, object oCaster) +{ + int nAppearanceType; + int nDamageType = GetDragonfireDamageType(oPC); + //find primary weapon to add to + object oItem = GetItemInSlot(INVENTORY_SLOT_RIGHTHAND, oPC); + switch(nDamageType) + { + case DAMAGE_TYPE_ACID: nAppearanceType = ITEM_VISUAL_ACID; break; + case DAMAGE_TYPE_COLD: nAppearanceType = ITEM_VISUAL_COLD; break; + case DAMAGE_TYPE_ELECTRICAL: nAppearanceType = ITEM_VISUAL_ELECTRICAL; break; + case DAMAGE_TYPE_SONIC: nAppearanceType = ITEM_VISUAL_SONIC; break; + case DAMAGE_TYPE_FIRE: nAppearanceType = ITEM_VISUAL_FIRE; break; + } + SetLocalInt(oItem, "Insp_Dam_Type", nDamageType); + SetLocalInt(oItem, "Insp_Dam_Dice", nAmount); + IPSafeAddItemProperty(oItem, ItemPropertyOnHitCastSpell(IP_CONST_ONHIT_CASTSPELL_DRAGONFIRE, nAmount), RoundsToSeconds(nDuration), X2_IP_ADDPROP_POLICY_REPLACE_EXISTING); + IPSafeAddItemProperty(oItem, ItemPropertyVisualEffect(nAppearanceType), RoundsToSeconds(nDuration), X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,FALSE,TRUE); + + //add to gloves and claws too + oItem = GetItemInSlot(INVENTORY_SLOT_ARMS, oPC); + SetLocalInt(oItem, "Insp_Dam_Type", nDamageType); + SetLocalInt(oItem, "Insp_Dam_Dice", nAmount); + IPSafeAddItemProperty(oItem, ItemPropertyOnHitCastSpell(IP_CONST_ONHIT_CASTSPELL_DRAGONFIRE, nAmount), RoundsToSeconds(nDuration), X2_IP_ADDPROP_POLICY_REPLACE_EXISTING); + oItem = GetItemInSlot(INVENTORY_SLOT_CWEAPON_R, oPC); + SetLocalInt(oItem, "Insp_Dam_Type", nDamageType); + SetLocalInt(oItem, "Insp_Dam_Dice", nAmount); + IPSafeAddItemProperty(oItem, ItemPropertyOnHitCastSpell(IP_CONST_ONHIT_CASTSPELL_DRAGONFIRE, nAmount), RoundsToSeconds(nDuration), X2_IP_ADDPROP_POLICY_REPLACE_EXISTING); + + //do ammo for ranged attacks + object oAmmo = GetItemInSlot(INVENTORY_SLOT_BOLTS, oPC); + SetLocalInt(oAmmo, "Insp_Dam_Type", nDamageType); + SetLocalInt(oAmmo, "Insp_Dam_Dice", nAmount); + IPSafeAddItemProperty(oAmmo, ItemPropertyOnHitCastSpell(IP_CONST_ONHIT_CASTSPELL_DRAGONFIRE, nAmount), RoundsToSeconds(nDuration), X2_IP_ADDPROP_POLICY_REPLACE_EXISTING); + + oAmmo = GetItemInSlot(INVENTORY_SLOT_BULLETS, oPC); + SetLocalInt(oAmmo, "Insp_Dam_Type", nDamageType); + SetLocalInt(oAmmo, "Insp_Dam_Dice", nAmount); + IPSafeAddItemProperty(oAmmo, ItemPropertyOnHitCastSpell(IP_CONST_ONHIT_CASTSPELL_DRAGONFIRE, nAmount), RoundsToSeconds(nDuration), X2_IP_ADDPROP_POLICY_REPLACE_EXISTING); + + oAmmo = GetItemInSlot(INVENTORY_SLOT_ARROWS, oPC); + SetLocalInt(oAmmo, "Insp_Dam_Type", nDamageType); + SetLocalInt(oAmmo, "Insp_Dam_Dice", nAmount); + IPSafeAddItemProperty(oAmmo, ItemPropertyOnHitCastSpell(IP_CONST_ONHIT_CASTSPELL_DRAGONFIRE, nAmount), RoundsToSeconds(nDuration), X2_IP_ADDPROP_POLICY_REPLACE_EXISTING); + + //now check offhand and bite + oItem = GetItemInSlot(INVENTORY_SLOT_CWEAPON_B, oPC); + SetLocalInt(oItem, "Insp_Dam_Type", nDamageType); + SetLocalInt(oItem, "Insp_Dam_Dice", nAmount); + IPSafeAddItemProperty(oItem, ItemPropertyOnHitCastSpell(IP_CONST_ONHIT_CASTSPELL_DRAGONFIRE, nAmount), RoundsToSeconds(nDuration), X2_IP_ADDPROP_POLICY_REPLACE_EXISTING); + oItem = GetItemInSlot(INVENTORY_SLOT_LEFTHAND, oPC); + if(!GetIsShield(oItem) && oItem != OBJECT_INVALID) + { + SetLocalInt(oItem, "Insp_Dam_Type", nDamageType); + SetLocalInt(oItem, "Insp_Dam_Dice", nAmount); + IPSafeAddItemProperty(oItem, ItemPropertyOnHitCastSpell(IP_CONST_ONHIT_CASTSPELL_DRAGONFIRE, nAmount), RoundsToSeconds(nDuration), X2_IP_ADDPROP_POLICY_REPLACE_EXISTING); + IPSafeAddItemProperty(oItem, ItemPropertyVisualEffect(nAppearanceType), RoundsToSeconds(nDuration), X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,FALSE,TRUE); + } + oItem = GetItemInSlot(INVENTORY_SLOT_CWEAPON_L, oPC); + SetLocalInt(oItem, "Insp_Dam_Type", nDamageType); + SetLocalInt(oItem, "Insp_Dam_Dice", nAmount); + IPSafeAddItemProperty(oItem, ItemPropertyOnHitCastSpell(IP_CONST_ONHIT_CASTSPELL_DRAGONFIRE, nAmount), RoundsToSeconds(nDuration), X2_IP_ADDPROP_POLICY_REPLACE_EXISTING); +} + +void main() +{ + if (PRCGetHasEffect(EFFECT_TYPE_SILENCE,OBJECT_SELF)) + { + FloatingTextStrRefOnCreature(85764,OBJECT_SELF); // not useable when silenced + return; + } + string sTag = GetTag(OBJECT_SELF); + + //RemoveOldSongEffects(OBJECT_SELF,GetSpellId()); + + if (sTag == "x0_hen_dee" || sTag == "x2_hen_deekin") + { + // * Deekin has a chance of singing a doom song + // * same effect, better tune + if (Random(5) == 2) + { + // the Xp2 Deekin knows more than one doom song + if (d3() == 1 && sTag == "x2_hen_deekin") + { + DelayCommand(0.0, PlaySound("vs_nx2deekM_050")); + } + else + { + DelayCommand(0.0, PlaySound("vs_nx0deekM_074")); + DelayCommand(5.0, PlaySound("vs_nx0deekM_074")); + } + } + } + + + //Declare major variables + int nLevel = GetLevelByClass(CLASS_TYPE_BARD) + + GetLevelByClass(CLASS_TYPE_MINSTREL_EDGE)/2 + + GetLevelByClass(CLASS_TYPE_DIRGESINGER) + + + GetLevelByClass(CLASS_TYPE_DRAGONSONG_LYRIST) + + GetLevelByClass(CLASS_TYPE_HEARTWARDER) + + GetLevelByClass(CLASS_TYPE_SPELLDANCER) + + GetLevelByClass(CLASS_TYPE_SUBLIME_CHORD) + + GetLevelByClass(CLASS_TYPE_BLADESINGER) + + GetLevelByClass(CLASS_TYPE_VIRTUOSO); + if (GetHasFeat(FEAT_SONG_WHITE_RAVEN, OBJECT_SELF)) + nLevel += GetLevelByClass(CLASS_TYPE_CRUSADER) + GetLevelByClass(CLASS_TYPE_WARBLADE); + + int nRanks = GetSkillRank(SKILL_PERFORM); + if (GetHasFeat(FEAT_DRAGONSONG, OBJECT_SELF)) nRanks+= 2; + int nChr = GetAbilityModifier(ABILITY_CHARISMA); + int nPerform = nRanks; + int nDuration = 10; //+ nChr; + + + effect eAttack; + effect eDamage; + effect eWill; + effect eFort; + effect eReflex; + effect eHP; + effect eAC; + effect eSkill; + + int nAttack; + int nDamage; + int nWill; + int nFort; + int nReflex; + int nHP; + int nAC; + int nSkill; + + // lingering song + if(GetHasFeat(FEAT_LINGERING_SONG)) + { + nDuration += 5; + } + + //Check to see if the caster has Lasting Impression and increase duration. + if(GetHasFeat(FEAT_EPIC_LASTING_INSPIRATION)) + { + nDuration *= 10; + } + + //SpeakString("Level: " + IntToString(nLevel) + " Ranks: " + IntToString(nRanks)); + + + + if(nPerform >= 125 && nLevel >= 180) + { + nAttack = 36; + nDamage = 36; + nWill = 18; + nFort = 18; + nReflex = 18; + nHP = 348; + nAC = 36; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 179) + { + nAttack = 36; + nDamage = 36; + nWill = 18; + nFort = 18; + nReflex = 18; + nHP = 346; + nAC = 35; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 178) + { + nAttack = 35; + nDamage = 36; + nWill = 18; + nFort = 18; + nReflex = 18; + nHP = 344; + nAC = 35; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 177) + { + nAttack = 35; + nDamage = 35; + nWill = 18; + nFort = 18; + nReflex = 18; + nHP = 342; + nAC = 35; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 176) + { + nAttack = 35; + nDamage = 35; + nWill = 18; + nFort = 18; + nReflex = 18; + nHP = 340; + nAC = 34; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 175) + { + nAttack = 34; + nDamage = 35; + nWill = 18; + nFort = 18; + nReflex = 18; + nHP = 338; + nAC = 34; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 174) + { + nAttack = 34; + nDamage = 34; + nWill = 18; + nFort = 18; + nReflex = 18; + nHP = 336; + nAC = 34; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 173) + { + nAttack = 34; + nDamage = 34; + nWill = 17; + nFort = 18; + nReflex = 18; + nHP = 334; + nAC = 34; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 172) + { + nAttack = 34; + nDamage = 34; + nWill = 17; + nFort = 17; + nReflex = 18; + nHP = 332; + nAC = 34; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 171) + { + nAttack = 34; + nDamage = 34; + nWill = 17; + nFort = 17; + nReflex = 17; + nHP = 330; + nAC = 34; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 170) + { + nAttack = 34; + nDamage = 34; + nWill = 17; + nFort = 17; + nReflex = 17; + nHP = 328; + nAC = 33; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 169) + { + nAttack = 33; + nDamage = 34; + nWill = 17; + nFort = 17; + nReflex = 17; + nHP = 326; + nAC = 33; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 168) + { + nAttack = 33; + nDamage = 33; + nWill = 17; + nFort = 17; + nReflex = 17; + nHP = 324; + nAC = 33; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 167) + { + nAttack = 33; + nDamage = 33; + nWill = 17; + nFort = 17; + nReflex = 17; + nHP = 322; + nAC = 32; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 166) + { + nAttack = 32; + nDamage = 33; + nWill = 17; + nFort = 17; + nReflex = 17; + nHP = 320; + nAC = 32; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 165) + { + nAttack = 32; + nDamage = 32; + nWill = 17; + nFort = 17; + nReflex = 17; + nHP = 318; + nAC = 32; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 164) + { + nAttack = 32; + nDamage = 32; + nWill = 16; + nFort = 17; + nReflex = 17; + nHP = 316; + nAC = 32; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 163) + { + nAttack = 32; + nDamage = 32; + nWill = 16; + nFort = 16; + nReflex = 17; + nHP = 314; + nAC = 32; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 162) + { + nAttack = 32; + nDamage = 32; + nWill = 16; + nFort = 16; + nReflex = 16; + nHP = 312; + nAC = 32; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 161) + { + nAttack = 31; + nDamage = 32; + nWill = 16; + nFort = 16; + nReflex = 16; + nHP = 310; + nAC = 32; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 160) + { + nAttack = 31; + nDamage = 31; + nWill = 16; + nFort = 16; + nReflex = 16; + nHP = 308; + nAC = 32; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 159) + { + nAttack = 30; + nDamage = 31; + nWill = 16; + nFort = 16; + nReflex = 16; + nHP = 306; + nAC = 32; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 158) + { + nAttack = 30; + nDamage = 30; + nWill = 16; + nFort = 16; + nReflex = 16; + nHP = 304; + nAC = 32; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 157) + { + nAttack = 30; + nDamage = 30; + nWill = 16; + nFort = 16; + nReflex = 16; + nHP = 302; + nAC = 31; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 156) + { + nAttack = 29; + nDamage = 30; + nWill = 16; + nFort = 16; + nReflex = 16; + nHP = 300; + nAC = 31; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 155) + { + nAttack = 29; + nDamage = 29; + nWill = 16; + nFort = 16; + nReflex = 16; + nHP = 298; + nAC = 31; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 154) + { + nAttack = 29; + nDamage = 29; + nWill = 16; + nFort = 16; + nReflex = 16; + nHP = 296; + nAC = 30; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 153) + { + nAttack = 29; + nDamage = 28; + nWill = 16; + nFort = 16; + nReflex = 16; + nHP = 294; + nAC = 30; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 152) + { + nAttack = 29; + nDamage = 28; + nWill = 15; + nFort = 16; + nReflex = 16; + nHP = 292; + nAC = 30; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 151) + { + nAttack = 29; + nDamage = 28; + nWill = 15; + nFort = 15; + nReflex = 16; + nHP = 290; + nAC = 30; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 150) + { + nAttack = 29; + nDamage = 28; + nWill = 15; + nFort = 15; + nReflex = 15; + nHP = 288; + nAC = 30; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 149) + { + nAttack = 29; + nDamage = 28; + nWill = 15; + nFort = 15; + nReflex = 15; + nHP = 286; + nAC = 29; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 148) + { + nAttack = 28; + nDamage = 28; + nWill = 15; + nFort = 15; + nReflex = 15; + nHP = 284; + nAC = 29; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 147) + { + nAttack = 28; + nDamage = 27; + nWill = 15; + nFort = 15; + nReflex = 15; + nHP = 282; + nAC = 29; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 146) + { + nAttack = 28; + nDamage = 27; + nWill = 15; + nFort = 15; + nReflex = 15; + nHP = 280; + nAC = 28; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 145) + { + nAttack = 27; + nDamage = 27; + nWill = 15; + nFort = 15; + nReflex = 15; + nHP = 278; + nAC = 28; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 144) + { + nAttack = 27; + nDamage = 26; + nWill = 15; + nFort = 15; + nReflex = 15; + nHP = 276; + nAC = 28; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 143) + { + nAttack = 27; + nDamage = 26; + nWill = 14; + nFort = 15; + nReflex = 15; + nHP = 274; + nAC = 28; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 142) + { + nAttack = 27; + nDamage = 26; + nWill = 14; + nFort = 14; + nReflex = 15; + nHP = 272; + nAC = 28; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 141) + { + nAttack = 27; + nDamage = 26; + nWill = 14; + nFort = 14; + nReflex = 14; + nHP = 270; + nAC = 28; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 140) + { + nAttack = 27; + nDamage = 26; + nWill = 14; + nFort = 14; + nReflex = 14; + nHP = 268; + nAC = 27; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 139) + { + nAttack = 27; + nDamage = 25; + nWill = 14; + nFort = 14; + nReflex = 14; + nHP = 266; + nAC = 27; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 138) + { + nAttack = 27; + nDamage = 25; + nWill = 14; + nFort = 14; + nReflex = 14; + nHP = 264; + nAC = 26; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 137) + { + nAttack = 26; + nDamage = 25; + nWill = 14; + nFort = 14; + nReflex = 14; + nHP = 262; + nAC = 26; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 136) + { + nAttack = 26; + nDamage = 24; + nWill = 14; + nFort = 14; + nReflex = 14; + nHP = 260; + nAC = 26; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 135) + { + nAttack = 26; + nDamage = 24; + nWill = 13; + nFort = 14; + nReflex = 14; + nHP = 258; + nAC = 26; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 134) + { + nAttack = 26; + nDamage = 24; + nWill = 13; + nFort = 13; + nReflex = 14; + nHP = 256; + nAC = 26; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 133) + { + nAttack = 26; + nDamage = 24; + nWill = 13; + nFort = 13; + nReflex = 13; + nHP = 254; + nAC = 26; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 132) + { + nAttack = 26; + nDamage = 23; + nWill = 13; + nFort = 13; + nReflex = 13; + nHP = 252; + nAC = 26; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 131) + { + nAttack = 26; + nDamage = 23; + nWill = 13; + nFort = 13; + nReflex = 13; + nHP = 250; + nAC = 25; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 130) + { + nAttack = 25; + nDamage = 23; + nWill = 13; + nFort = 13; + nReflex = 13; + nHP = 248; + nAC = 25; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 129) + { + nAttack = 25; + nDamage = 22; + nWill = 13; + nFort = 13; + nReflex = 13; + nHP = 246; + nAC = 25; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 128) + { + nAttack = 25; + nDamage = 22; + nWill = 12; + nFort = 13; + nReflex = 13; + nHP = 244; + nAC = 25; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 127) + { + nAttack = 25; + nDamage = 22; + nWill = 12; + nFort = 12; + nReflex = 13; + nHP = 242; + nAC = 25; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 126) + { + nAttack = 25; + nDamage = 22; + nWill = 12; + nFort = 12; + nReflex = 12; + nHP = 240; + nAC = 25; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 125) + { + nAttack = 25; + nDamage = 21; + nWill = 12; + nFort = 12; + nReflex = 12; + nHP = 238; + nAC = 25; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 124) + { + nAttack = 24; + nDamage = 21; + nWill = 12; + nFort = 12; + nReflex = 12; + nHP = 236; + nAC = 25; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 123) + { + nAttack = 24; + nDamage = 21; + nWill = 12; + nFort = 12; + nReflex = 12; + nHP = 234; + nAC = 24; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 122) + { + nAttack = 24; + nDamage = 20; + nWill = 12; + nFort = 12; + nReflex = 12; + nHP = 232; + nAC = 24; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 121) + { + nAttack = 23; + nDamage = 20; + nWill = 12; + nFort = 12; + nReflex = 12; + nHP = 230; + nAC = 24; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 120) + { + nAttack = 23; + nDamage = 19; + nWill = 12; + nFort = 12; + nReflex = 12; + nHP = 228; + nAC = 24; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 119) + { + nAttack = 23; + nDamage = 19; + nWill = 11; + nFort = 12; + nReflex = 12; + nHP = 226; + nAC = 24; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 118) + { + nAttack = 23; + nDamage = 19; + nWill = 11; + nFort = 11; + nReflex = 12; + nHP = 224; + nAC = 24; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 117) + { + nAttack = 23; + nDamage = 19; + nWill = 11; + nFort = 11; + nReflex = 11; + nHP = 222; + nAC = 24; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 116) + { + nAttack = 23; + nDamage = 19; + nWill = 11; + nFort = 11; + nReflex = 11; + nHP = 220; + nAC = 23; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 115) + { + nAttack = 22; + nDamage = 19; + nWill = 11; + nFort = 11; + nReflex = 11; + nHP = 218; + nAC = 23; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 114) + { + nAttack = 22; + nDamage = 18; + nWill = 11; + nFort = 11; + nReflex = 11; + nHP = 216; + nAC = 23; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 113) + { + nAttack = 22; + nDamage = 18; + nWill = 10; + nFort = 11; + nReflex = 11; + nHP = 214; + nAC = 23; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 112) + { + nAttack = 22; + nDamage = 18; + nWill = 10; + nFort = 10; + nReflex = 11; + nHP = 212; + nAC = 23; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 111) + { + nAttack = 22; + nDamage = 18; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 210; + nAC = 23; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 110) + { + nAttack = 22; + nDamage = 18; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 208; + nAC = 22; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 109) + { + nAttack = 22; + nDamage = 17; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 206; + nAC = 22; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 108) + { + nAttack = 21; + nDamage = 17; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 204; + nAC = 22; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 107) + { + nAttack = 21; + nDamage = 16; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 202; + nAC = 22; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 106) + { + nAttack = 21; + nDamage = 16; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 200; + nAC = 21; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 105) + { + nAttack = 21; + nDamage = 16; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 198; + nAC = 21; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 104) + { + nAttack = 20; + nDamage = 16; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 196; + nAC = 21; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 103) + { + nAttack = 20; + nDamage = 16; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 194; + nAC = 21; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 102) + { + nAttack = 20; + nDamage = 15; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 192; + nAC = 21; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 101) + { + nAttack = 20; + nDamage = 15; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 190; + nAC = 21; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 100) + { + nAttack = 20; + nDamage = 15; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 188; + nAC = 20; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 99) + { + nAttack = 20; + nDamage = 15; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 186; + nAC = 20; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 98) + { + nAttack = 20; + nDamage = 15; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 184; + nAC = 20; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 97) + { + nAttack = 20; + nDamage = 14; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 182; + nAC = 20; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 96) + { + nAttack = 19; + nDamage = 14; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 180; + nAC = 20; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 95) + { + nAttack = 19; + nDamage = 14; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 178; + nAC = 19; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 94) + { + nAttack = 19; + nDamage = 14; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 176; + nAC = 19; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 93) + { + nAttack = 18; + nDamage = 14; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 174; + nAC = 19; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 92) + { + nAttack = 18; + nDamage = 13; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 172; + nAC = 19; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 91) + { + nAttack = 18; + nDamage = 12; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 170; + nAC = 19; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 90) + { + nAttack = 18; + nDamage = 12; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 168; + nAC = 18; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 89) + { + nAttack = 18; + nDamage = 12; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 166; + nAC = 18; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 88) + { + nAttack = 17; + nDamage = 12; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 164; + nAC = 18; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 87) + { + nAttack = 17; + nDamage = 12; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 162; + nAC = 18; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 86) + { + nAttack = 17; + nDamage = 12; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 160; + nAC = 17; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 85) + { + nAttack = 17; + nDamage = 12; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 158; + nAC = 17; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 84) + { + nAttack = 16; + nDamage = 12; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 156; + nAC = 17; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 83) + { + nAttack = 15; + nDamage = 12; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 154; + nAC = 17; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 82) + { + nAttack = 14; + nDamage = 12; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 152; + nAC = 17; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 81) + { + nAttack = 14; + nDamage = 12; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 150; + nAC = 16; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 80) + { + nAttack = 13; + nDamage = 12; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 148; + nAC = 16; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 79) + { + nAttack = 12; + nDamage = 12; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 146; + nAC = 16; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 78) + { + nAttack = 12; + nDamage = 11; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 144; + nAC = 16; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 77) + { + nAttack = 11; + nDamage = 11; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 142; + nAC = 16; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 76) + { + nAttack = 11; + nDamage = 11; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 140; + nAC = 15; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 75) + { + nAttack = 11; + nDamage = 10; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 138; + nAC = 15; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 74) + { + nAttack = 10; + nDamage = 10; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 136; + nAC = 15; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 73) + { + nAttack = 10; + nDamage = 10; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 134; + nAC = 14; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 72) + { + nAttack = 10; + nDamage = 10; + nWill = 9; + nFort = 10; + nReflex = 10; + nHP = 132; + nAC = 14; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 71) + { + nAttack = 10; + nDamage = 10; + nWill = 9; + nFort = 9; + nReflex = 10; + nHP = 130; + nAC = 14; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 70) + { + nAttack = 10; + nDamage = 10; + nWill = 9; + nFort = 9; + nReflex = 9; + nHP = 128; + nAC = 14; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 69) + { + nAttack = 10; + nDamage = 9; + nWill = 9; + nFort = 9; + nReflex = 9; + nHP = 126; + nAC = 14; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 68) + { + nAttack = 9; + nDamage = 9; + nWill = 9; + nFort = 9; + nReflex = 9; + nHP = 124; + nAC = 14; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 67) + { + nAttack = 9; + nDamage = 9; + nWill = 9; + nFort = 9; + nReflex = 9; + nHP = 122; + nAC = 13; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 66) + { + nAttack = 9; + nDamage = 9; + nWill = 8; + nFort = 9; + nReflex = 9; + nHP = 120; + nAC = 13; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 65) + { + nAttack = 9; + nDamage = 9; + nWill = 8; + nFort = 8; + nReflex = 9; + nHP = 118; + nAC = 13; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 64) + { + nAttack = 9; + nDamage = 9; + nWill = 8; + nFort = 8; + nReflex = 8; + nHP = 116; + nAC = 13; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 63) + { + nAttack = 9; + nDamage = 8; + nWill = 8; + nFort = 8; + nReflex = 8; + nHP = 114; + nAC = 13; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 62) + { + nAttack = 8; + nDamage = 8; + nWill = 8; + nFort = 8; + nReflex = 8; + nHP = 112; + nAC = 13; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 61) + { + nAttack = 8; + nDamage = 8; + nWill = 8; + nFort = 8; + nReflex = 8; + nHP = 110; + nAC = 12; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 60) + { + nAttack = 8; + nDamage = 8; + nWill = 7; + nFort = 8; + nReflex = 8; + nHP = 108; + nAC = 12; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 59) + { + nAttack = 8; + nDamage = 8; + nWill = 7; + nFort = 7; + nReflex = 8; + nHP = 106; + nAC = 12; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 58) + { + nAttack = 8; + nDamage = 8; + nWill = 7; + nFort = 7; + nReflex = 7; + nHP = 104; + nAC = 12; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 57) + { + nAttack = 8; + nDamage = 7; + nWill = 7; + nFort = 7; + nReflex = 7; + nHP = 102; + nAC = 12; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 56) + { + nAttack = 7; + nDamage = 7; + nWill = 7; + nFort = 7; + nReflex = 7; + nHP = 100; + nAC = 12; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 55) + { + nAttack = 7; + nDamage = 7; + nWill = 7; + nFort = 7; + nReflex = 7; + nHP = 98; + nAC = 11; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 54) + { + nAttack = 7; + nDamage = 7; + nWill = 6; + nFort = 7; + nReflex = 7; + nHP = 96; + nAC = 11; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 53) + { + nAttack = 7; + nDamage = 7; + nWill = 6; + nFort = 6; + nReflex = 7; + nHP = 94; + nAC = 11; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 52) + { + nAttack = 7; + nDamage = 7; + nWill = 6; + nFort = 6; + nReflex = 6; + nHP = 92; + nAC = 11; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 51) + { + nAttack = 6; + nDamage = 7; + nWill = 6; + nFort = 6; + nReflex = 6; + nHP = 90; + nAC = 11; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 50) + { + nAttack = 6; + nDamage = 6; + nWill = 6; + nFort = 6; + nReflex = 6; + nHP = 88; + nAC = 11; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 49) + { + nAttack = 6; + nDamage = 6; + nWill = 6; + nFort = 6; + nReflex = 6; + nHP = 86; + nAC = 10; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 48) + { + nAttack = 6; + nDamage = 6; + nWill = 5; + nFort = 6; + nReflex = 6; + nHP = 84; + nAC = 10; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 47) + { + nAttack = 6; + nDamage = 6; + nWill = 5; + nFort = 5; + nReflex = 6; + nHP = 82; + nAC = 10; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 46) + { + nAttack = 6; + nDamage = 6; + nWill = 5; + nFort = 5; + nReflex = 5; + nHP = 80; + nAC = 10; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 45) + { + nAttack = 6; + nDamage = 5; + nWill = 5; + nFort = 5; + nReflex = 5; + nHP = 78; + nAC = 10; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 44) + { + nAttack = 5; + nDamage = 5; + nWill = 5; + nFort = 5; + nReflex = 5; + nHP = 76; + nAC = 10; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 43) + { + nAttack = 5; + nDamage = 5; + nWill = 5; + nFort = 5; + nReflex = 5; + nHP = 74; + nAC = 9; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 42) + { + nAttack = 4; + nDamage = 5; + nWill = 5; + nFort = 5; + nReflex = 5; + nHP = 72; + nAC = 9; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 41) + { + nAttack = 4; + nDamage = 4; + nWill = 5; + nFort = 5; + nReflex = 5; + nHP = 70; + nAC = 9; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 40) + { + nAttack = 4; + nDamage = 4; + nWill = 4; + nFort = 5; + nReflex = 5; + nHP = 68; + nAC = 9; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 39) + { + nAttack = 4; + nDamage = 4; + nWill = 4; + nFort = 4; + nReflex = 5; + nHP = 66; + nAC = 8; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 38) + { + nAttack = 4; + nDamage = 4; + nWill = 4; + nFort = 4; + nReflex = 4; + nHP = 64; + nAC = 8; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 37) + { + nAttack = 3; + nDamage = 4; + nWill = 4; + nFort = 4; + nReflex = 4; + nHP = 62; + nAC = 8; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 36) + { + nAttack = 3; + nDamage = 4; + nWill = 4; + nFort = 3; + nReflex = 4; + nHP = 60; + nAC = 8; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 35) + { + nAttack = 3; + nDamage = 4; + nWill = 4; + nFort = 3; + nReflex = 3; + nHP = 58; + nAC = 7; + nSkill = 20; + } + if(nPerform >= 120 && nLevel >= 34) + { + nAttack = 3; + nDamage = 4; + nWill = 3; + nFort = 3; + nReflex = 3; + nHP = 56; + nAC = 7; + nSkill = 20; + } + if(nPerform >= 115 && nLevel >= 33) + { + nAttack = 3; + nDamage = 3; + nWill = 3; + nFort = 3; + nReflex = 3; + nHP = 54; + nAC = 7; + nSkill = 20; + } + if(nPerform >= 110 && nLevel >= 32) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 3; + nReflex = 3; + nHP = 52; + nAC = 7; + nSkill = 20; + } + if(nPerform >= 105 && nLevel >= 31) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 3; + nHP = 50; + nAC = 7; + nSkill = 20; + } + + if(nPerform >= 100 && nLevel >= 30) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 48; + nAC = 7; + nSkill = 19; + } + else if(nPerform >= 95 && nLevel >= 29) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 46; + nAC = 6; + nSkill = 18; + } + else if(nPerform >= 90 && nLevel >= 28) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 44; + nAC = 6; + nSkill = 17; + } + else if(nPerform >= 85 && nLevel >= 27) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 42; + nAC = 6; + nSkill = 16; + } + else if(nPerform >= 80 && nLevel >= 26) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 40; + nAC = 6; + nSkill = 15; + } + else if(nPerform >= 75 && nLevel >= 25) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 38; + nAC = 6; + nSkill = 14; + } + else if(nPerform >= 70 && nLevel >= 24) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 36; + nAC = 5; + nSkill = 13; + } + else if(nPerform >= 65 && nLevel >= 23) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 34; + nAC = 5; + nSkill = 12; + } + else if(nPerform >= 60 && nLevel >= 22) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 32; + nAC = 5; + nSkill = 11; + } + else if(nPerform >= 55 && nLevel >= 21) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 30; + nAC = 5; + nSkill = 9; + } + else if(nPerform >= 50 && nLevel >= 20) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 28; + nAC = 5; + nSkill = 8; + } + else if(nPerform >= 45 && nLevel >= 19) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 26; + nAC = 5; + nSkill = 7; + } + else if(nPerform >= 40 && nLevel >= 18) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 24; + nAC = 5; + nSkill = 6; + } + else if(nPerform >= 35 && nLevel >= 17) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 22; + nAC = 5; + nSkill = 5; + } + else if(nPerform >= 30 && nLevel >= 16) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 20; + nAC = 5; + nSkill = 4; + } + else if(nPerform >= 24 && nLevel >= 15) + { + nAttack = 2; + nDamage = 3; + nWill = 2; + nFort = 2; + nReflex = 2; + nHP = 16; + nAC = 4; + nSkill = 3; + } + else if(nPerform >= 21 && nLevel >= 14) + { + nAttack = 2; + nDamage = 3; + nWill = 1; + nFort = 1; + nReflex = 1; + nHP = 16; + nAC = 3; + nSkill = 2; + } + else if(nPerform >= 18 && nLevel >= 11) + { + nAttack = 2; + nDamage = 2; + nWill = 1; + nFort = 1; + nReflex = 1; + nHP = 8; + nAC = 2; + nSkill = 2; + } + else if(nPerform >= 15 && nLevel >= 8) + { + nAttack = 2; + nDamage = 2; + nWill = 1; + nFort = 1; + nReflex = 1; + nHP = 8; + nAC = 0; + nSkill = 1; + } + else if(nPerform >= 12 && nLevel >= 6) + { + nAttack = 1; + nDamage = 2; + nWill = 1; + nFort = 1; + nReflex = 1; + nHP = 0; + nAC = 0; + nSkill = 1; + } + else if(nPerform >= 9 && nLevel >= 3) + { + nAttack = 1; + nDamage = 2; + nWill = 1; + nFort = 1; + nReflex = 0; + nHP = 0; + nAC = 0; + nSkill = 0; + } + else if(nPerform >= 6 && nLevel >= 2) + { + nAttack = 1; + nDamage = 1; + nWill = 1; + nFort = 0; + nReflex = 0; + nHP = 0; + nAC = 0; + nSkill = 0; + } + else if(nPerform >= 3 && nLevel >= 1) + { + nAttack = 1; + nDamage = 1; + nWill = 0; + nFort = 0; + nReflex = 0; + nHP = 0; + nAC = 0; + nSkill = 0; + } + effect eVis = EffectVisualEffect(VFX_DUR_BARD_SONG); + effect eLink; + + eAttack = EffectAttackIncrease(nAttack); + eDamage = EffectDamageIncrease(nDamage, DAMAGE_TYPE_BLUDGEONING); + + + if(GetLocalInt(OBJECT_SELF, "DragonFireInspOn")) + { + eLink = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE); + } + else + { + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE); + eLink = EffectLinkEffects(eAttack, eDamage); + eLink = EffectLinkEffects(eLink, eDur); + } + + if(nWill > 0) + { + eWill = EffectSavingThrowIncrease(SAVING_THROW_WILL, nWill); + eLink = EffectLinkEffects(eLink, eWill); + } + if(nFort > 0) + { + eFort = EffectSavingThrowIncrease(SAVING_THROW_FORT, nFort); + eLink = EffectLinkEffects(eLink, eFort); + } + if(nReflex > 0) + { + eReflex = EffectSavingThrowIncrease(SAVING_THROW_REFLEX, nReflex); + eLink = EffectLinkEffects(eLink, eReflex); + } + if(nHP > 0) + { + //SpeakString("HP Bonus " + IntToString(nHP)); + eHP = EffectTemporaryHitpoints(nHP); +// eLink = EffectLinkEffects(eLink, eHP); + } + if(nAC > 0) + { + eAC = EffectACIncrease(nAC, AC_DODGE_BONUS); + eLink = EffectLinkEffects(eLink, eAC); + } + if(nSkill > 0) + { + eSkill = EffectSkillIncrease(SKILL_ALL_SKILLS, nSkill); + eLink = EffectLinkEffects(eLink, eSkill); + } + + effect eImpact = EffectVisualEffect(VFX_IMP_HEAD_SONIC); + effect eFNF = EffectVisualEffect(VFX_FNF_LOS_NORMAL_30); + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eFNF, GetLocation(OBJECT_SELF)); + + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, GetLocation(OBJECT_SELF)); + + eHP = ExtraordinaryEffect(eHP); + eLink = ExtraordinaryEffect(eLink); + + int nRace; + + while(GetIsObjectValid(oTarget)) + { + // * GZ Oct 2003: If we are silenced, we can not benefit from bard song + if (!PRCGetHasEffect(EFFECT_TYPE_SILENCE,oTarget) && !PRCGetHasEffect(EFFECT_TYPE_DEAF,oTarget)) + { + RemoveSongEffects(GetSpellId(),OBJECT_SELF,oTarget); + nRace = MyPRCGetRacialType(oTarget); + + // Undead and Constructs are immune to mind effecting abilities. + // A bard with requiem can effect undead + if ((nRace == RACIAL_TYPE_UNDEAD && GetHasFeat(FEAT_REQUIEM, OBJECT_SELF)) || (nRace != RACIAL_TYPE_UNDEAD && nRace != RACIAL_TYPE_CONSTRUCT) || GetIsWarforged(oTarget)) + { + // Even with requiem, they have half duration + if (nRace == RACIAL_TYPE_UNDEAD) nDuration /= 2; + + if(oTarget == OBJECT_SELF) + { + effect eLinkBard = EffectLinkEffects(eLink, eVis); + eLinkBard = ExtraordinaryEffect(eLinkBard); + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLinkBard, oTarget, RoundsToSeconds(nDuration)); + //StoreSongRecipient(oTarget, OBJECT_SELF, GetSpellId(), nDuration); + if (nHP > 0) + { + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eHP, oTarget, RoundsToSeconds(nDuration)); + } + if(GetLocalInt(OBJECT_SELF, "DragonFireInspOn")) + { + ApplyDragonfire(nAttack, nDuration, OBJECT_SELF, OBJECT_SELF); + } + } + else if(GetIsFriend(oTarget)) + { + ApplyEffectToObject(DURATION_TYPE_INSTANT, eImpact, oTarget); + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration)); + //StoreSongRecipient(oTarget, OBJECT_SELF, GetSpellId(), nDuration); + if (nHP > 0) + { + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eHP, oTarget, RoundsToSeconds(nDuration)); + } + if(GetLocalInt(OBJECT_SELF, "DragonFireInspOn")) + { + ApplyDragonfire(nAttack, nDuration, oTarget, OBJECT_SELF); + } + } + } + } + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, GetLocation(OBJECT_SELF)); + } +//:: Crystal Echoblade + effect eEffect = GetFirstEffect(OBJECT_SELF); + + //:: Prevent stacking + while(GetIsEffectValid(eEffect)) + { + if(GetEffectTag(eEffect) == "Echoblade") + RemoveEffect(OBJECT_SELF, eEffect); + eEffect = GetNextEffect(OBJECT_SELF); + } + + if(IPGetHasItemPropertyByConst(ITEM_PROPERTY_ECHOBLADE, GetItemInSlot(INVENTORY_SLOT_RIGHTHAND, OBJECT_SELF)) || //:: 104/*ITEM_PROPERTY_ECHOBLADE*/ + (IPGetHasItemPropertyByConst(ITEM_PROPERTY_ECHOBLADE, GetItemInSlot(INVENTORY_SLOT_LEFTHAND, OBJECT_SELF)))) + { + int nSonic = IPGetDamageBonusConstantFromNumber(nLevel / 2); + effect eEchoblade = EffectDamageIncrease(nSonic, DAMAGE_TYPE_SONIC); + eEchoblade = ExtraordinaryEffect(eEchoblade); + eEchoblade = TagEffect(eEchoblade, "Echoblade"); + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eEchoblade, OBJECT_SELF, RoundsToSeconds(nDuration)); + } +} diff --git a/_haks/poa_exp_abilities/nw_s2_divprot.ncs b/_haks/poa_exp_abilities/nw_s2_divprot.ncs new file mode 100644 index 0000000..f82e447 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s2_divprot.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s2_divprot.nss b/_haks/poa_exp_abilities/nw_s2_divprot.nss new file mode 100644 index 0000000..fff40ab --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s2_divprot.nss @@ -0,0 +1,45 @@ +//:://///////////////////////////////////////////// +//:: Divine Protection +//:: NW_S2_DivProt.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Makes the target creature invisible to hostile + creatures unless they make a Will Save to ignore + the Sanctuary Effect +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Jan 8, 2002 +//::////////////////////////////////////////////// +#include "prc_inc_spells" +//#include "wm_include" +void main() +{ + //if (WildMagicOverride()) { return; } + +//:: Declare major variables + object oNPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + effect eVis = EffectVisualEffect(VFX_DUR_SANCTUARY); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE); + int nDC = 10 + GetAbilityModifier(ABILITY_CHARISMA) + GetLevelByTypeDivine(oNPC); + effect eSanc = EffectSanctuary(nDC); + + effect eLink = EffectLinkEffects(eVis, eSanc); + eLink = EffectLinkEffects(eLink, eDur); + //Fire cast spell at event for the specified target + SignalEvent(OBJECT_SELF, EventSpellCastAt(oNPC, SPELLABILITY_DIVINE_PROTECTION, FALSE)); + + int nDuration = GetLevelByTypeDivine(oNPC); + //Enter Metamagic conditions + int nMetaMagic = PRCGetMetaMagicFeat(); + if (nMetaMagic == METAMAGIC_EXTEND) + { + nDuration = nDuration *2; //Duration is +100% + } + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration)); +} + diff --git a/_haks/poa_exp_abilities/nw_s2_elemshape.ncs b/_haks/poa_exp_abilities/nw_s2_elemshape.ncs new file mode 100644 index 0000000..2f1ba95 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s2_elemshape.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s2_elemshape.nss b/_haks/poa_exp_abilities/nw_s2_elemshape.nss new file mode 100644 index 0000000..1eb86b5 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s2_elemshape.nss @@ -0,0 +1,357 @@ +//:://///////////////////////////////////////////// +//:: Elemental Shape +//:: NW_S2_ElemShape +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Allows the Druid to change into elemental forms. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Jan 22, 2002 +//::////////////////////////////////////////////// +//:: Modified By: Iznoghoud - January 19 2004 +/* +What this script changes: +Allows druid elemental shapes to get stacking item properties carried over correctly +just like shifters. +See Iznoghoud's x2_s2_gwildshp script for an in-detail description. +Added fix for a Bioware Bug: Druids now get elder wildshapes at level 20 and above, +not just when exactly level 20. +*/ +//::////////////////////////////////////////////// + +#include "ws_inc_shifter" +//#include "x3_inc_horse" +#include "prc_alterations" +#include "pnp_shft_poly" + +void elemental_shape_shift(object oPC, int nShape) +{ + string sResRef = Get2DACache("prc_polymorph", "ResRef", nShape); + StoreCurrentAppearanceAsTrueAppearance(oPC, TRUE); + ShiftIntoResRef(oPC, SHIFTER_TYPE_DRUID, sResRef, TRUE); +} +void main() +{ + +if(GetLocalInt(GetArea(OBJECT_SELF), "NOCAST")==2 && !GetIsDM(OBJECT_SELF)) +{ + + FloatingTextStringOnCreature("All spells fizzle in town.", OBJECT_SELF); + + return; +} + //Declare major variables + int nSpell = GetSpellId(); + object oTarget = PRCGetSpellTargetObject(); + effect eVis = EffectVisualEffect(VFX_IMP_POLYMORPH); + effect ePoly; + int nPoly; + int nMetaMagic = GetMetaMagicFeat(); + int nDuration = GetCasterLevel(OBJECT_SELF); + int bElder = FALSE; + if (!GetLocalInt(GetModule(),"X3_NO_SHAPESHIFT_SPELL_CHECK")) + { // check to see if abort due to being mounted + if (PRCHorseGetIsMounted(oTarget)) + { // abort + if (GetIsPC(oTarget)) FloatingTextStrRefOnCreature(111982,oTarget,FALSE); + return; + } // abort + } // check to see if abort due to being mounted + + //this command will make shore that polymorph plays nice with the shifter + ShifterCheck(OBJECT_SELF); + + int nShape = GetPersistantLocalInt(OBJECT_SELF, PRC_PNP_SHIFTING + IntToString(nSpell)); + if(nShape > 0) + { + elemental_shape_shift(OBJECT_SELF, nShape); + return; + } + //Enter Metamagic conditions + if (nMetaMagic == METAMAGIC_EXTEND) + { + nDuration = nDuration *2; //Duration is +100% + } + if(GetLevelByClass(CLASS_TYPE_DRUID) >= 20) + { + bElder = TRUE; + } + //Determine Polymorph subradial type + if(bElder == FALSE) + { + if(nSpell == 397) + { + nPoly = POLYMORPH_TYPE_HUGE_FIRE_ELEMENTAL; + } + else if (nSpell == 398) + { + nPoly = POLYMORPH_TYPE_HUGE_WATER_ELEMENTAL; + } + else if (nSpell == 399) + { + nPoly = POLYMORPH_TYPE_HUGE_EARTH_ELEMENTAL; + } + else if (nSpell == 400) + { + nPoly = POLYMORPH_TYPE_HUGE_AIR_ELEMENTAL; + } + } + else + { + if(nSpell == 397) + { + nPoly = POLYMORPH_TYPE_ELDER_FIRE_ELEMENTAL; + } + else if (nSpell == 398) + { + nPoly = POLYMORPH_TYPE_ELDER_WATER_ELEMENTAL; + } + else if (nSpell == 399) + { + nPoly = POLYMORPH_TYPE_ELDER_EARTH_ELEMENTAL; + } + else if (nSpell == 400) + { + nPoly = POLYMORPH_TYPE_ELDER_AIR_ELEMENTAL; + } + } + + int bWeapon; + int bArmor; + int bItems; + int bCopyGlovesToClaws = FALSE; + + bWeapon = StringToInt(Get2DAString("polymorph","MergeW",nPoly)) == 1; + + if ( WS_ALWAYS_COPY_ARMOR_PROPS ) + bArmor = TRUE; + else + bArmor = StringToInt(Get2DAString("polymorph","MergeA",nPoly)) == 1; + + if ( WS_ALWAYS_COPY_ITEM_PROPS ) + bItems = TRUE; + else + bItems = StringToInt(Get2DAString("polymorph","MergeI",nPoly)) == 1; + + // Send message to PC about which items get merged to this form + string sMerge; + sMerge = "Merged: "; // : This is a color code that makes the text behind it sort of light blue. + if(bArmor) sMerge += "Armor, Helmet, Shield"; + if(bItems) sMerge += ", Rings, Amulet, Cloak, Boots, Belt, Bracers"; + if( bWeapon || WS_COPY_WEAPON_PROPS_TO_UNARMED == 1 ) + sMerge += ", Weapon"; + else if ( WS_COPY_WEAPON_PROPS_TO_UNARMED == 2 ) + sMerge += ", Gloves to unarmed attacks"; + else if (WS_COPY_WEAPON_PROPS_TO_UNARMED == 3 ) + sMerge += ", Weapon (if you had one equipped) or gloves to unarmed attacks"; + else + sMerge += ", No weapon or gloves to unarmed attacks"; + SendMessageToPC(oTarget,sMerge + "."); + + // Store which items should transfer to this polymorph type. (For exportallchar scripts) + SetLocalInt(oTarget, "GW_PolyID", nPoly); + SetLocalInt(oTarget, "GW_bWeapon", bWeapon ); + SetLocalInt(oTarget, "GW_bArmor", bArmor ); + SetLocalInt(oTarget, "GW_bItems", bItems ); + + //-------------------------------------------------------------------------- + // Store the old objects so we can access them after the character has + // changed into his new form + //-------------------------------------------------------------------------- + object oWeaponOld; + object oArmorOld; + object oRing1Old ; + object oRing2Old; + object oAmuletOld; + object oCloakOld ; + object oBootsOld ; + object oBeltOld ; + object oHelmetOld; + object oShield ; + object oBracerOld; + object oHideOld; + //Assume the normal shape doesn't have a creature skin object. + //If using a subracesystem or something else that places a skin on the normal shape + //another condition is needed to decide whether or not to store current items. + //One way could be to scan all effects to see whether one is a polymorph effect. + int nPolyed = GetIsObjectValid(GetItemInSlot(INVENTORY_SLOT_CARMOUR,OBJECT_SELF)); + // If there is a creature armor see if it is a creature hide put + // on the unpolymorphed player by scanning for a polymorph effect. + if ( nPolyed ) + nPolyed = ( ScanForPolymorphEffect(OBJECT_SELF) != -2 ); + if(! nPolyed) + { + //if not polymorphed get items worn and store on player. + oWeaponOld = GetItemInSlot(INVENTORY_SLOT_RIGHTHAND,OBJECT_SELF); + oArmorOld = GetItemInSlot(INVENTORY_SLOT_CHEST,OBJECT_SELF); + oRing1Old = GetItemInSlot(INVENTORY_SLOT_LEFTRING,OBJECT_SELF); + oRing2Old = GetItemInSlot(INVENTORY_SLOT_RIGHTRING,OBJECT_SELF); + oAmuletOld = GetItemInSlot(INVENTORY_SLOT_NECK,OBJECT_SELF); + oCloakOld = GetItemInSlot(INVENTORY_SLOT_CLOAK,OBJECT_SELF); + oBootsOld = GetItemInSlot(INVENTORY_SLOT_BOOTS,OBJECT_SELF); + oBeltOld = GetItemInSlot(INVENTORY_SLOT_BELT,OBJECT_SELF); + oHelmetOld = GetItemInSlot(INVENTORY_SLOT_HEAD,OBJECT_SELF); + oShield = GetItemInSlot(INVENTORY_SLOT_LEFTHAND,OBJECT_SELF); + oBracerOld = GetItemInSlot(INVENTORY_SLOT_ARMS,OBJECT_SELF); + oHideOld = GetItemInSlot(INVENTORY_SLOT_CARMOUR,OBJECT_SELF); + SetLocalObject(OBJECT_SELF,"GW_OldWeapon",oWeaponOld); + SetLocalObject(OBJECT_SELF,"GW_OldArmor",oArmorOld); + SetLocalObject(OBJECT_SELF,"GW_OldRing1",oRing1Old); + SetLocalObject(OBJECT_SELF,"GW_OldRing2",oRing2Old); + SetLocalObject(OBJECT_SELF,"GW_OldAmulet",oAmuletOld); + SetLocalObject(OBJECT_SELF,"GW_OldCloak",oCloakOld); + SetLocalObject(OBJECT_SELF,"GW_OldBoots",oBootsOld); + SetLocalObject(OBJECT_SELF,"GW_OldBelt",oBeltOld); + SetLocalObject(OBJECT_SELF,"GW_OldHelmet",oHelmetOld); + SetLocalObject(OBJECT_SELF,"GW_OldBracer",oBracerOld); + SetLocalObject(OBJECT_SELF,"GW_OldHide",oHideOld); + if (GetIsObjectValid(oShield)) + { + if (GetBaseItemType(oShield) !=BASE_ITEM_LARGESHIELD && + GetBaseItemType(oShield) !=BASE_ITEM_SMALLSHIELD && + GetBaseItemType(oShield) !=BASE_ITEM_TOWERSHIELD) + { + oShield = OBJECT_INVALID; + } + } + SetLocalObject(OBJECT_SELF,"GW_OldShield",oShield); + + } + else + { + //if already polymorphed use items stored earlier. + oWeaponOld = GetLocalObject(OBJECT_SELF,"GW_OldWeapon"); + oArmorOld = GetLocalObject(OBJECT_SELF,"GW_OldArmor"); + oRing1Old = GetLocalObject(OBJECT_SELF,"GW_OldRing1"); + oRing2Old = GetLocalObject(OBJECT_SELF,"GW_OldRing2"); + oAmuletOld = GetLocalObject(OBJECT_SELF,"GW_OldAmulet"); + oCloakOld = GetLocalObject(OBJECT_SELF,"GW_OldCloak"); + oBootsOld = GetLocalObject(OBJECT_SELF,"GW_OldBoots"); + oBeltOld = GetLocalObject(OBJECT_SELF,"GW_OldBelt"); + oHelmetOld = GetLocalObject(OBJECT_SELF,"GW_OldHelmet"); + oShield = GetLocalObject(OBJECT_SELF,"GW_OldShield"); + oBracerOld = GetLocalObject(OBJECT_SELF,"GW_OldBracer"); + oHideOld = GetLocalObject(OBJECT_SELF,"GW_OldHide"); + } + + //-------------------------------------------------------------------------- + // Here the actual polymorphing is done + //-------------------------------------------------------------------------- + ePoly = EffectPolymorph(nPoly); + //-------------------------------------------------------------------------- + // Iznoghoud: Link the stackable properties as permanent bonuses to the + // Polymorph effect, instead of putting them on the creature hide. They will + // properly disappear as soon as the polymorph is ended. + //-------------------------------------------------------------------------- + ePoly = AddStackablePropertiesToPoly ( oTarget, ePoly, bWeapon, bItems, bArmor, oArmorOld, oRing1Old, oRing2Old, oAmuletOld, oCloakOld, oBracerOld, oBootsOld, oBeltOld, oHelmetOld, oShield, oWeaponOld, oHideOld); + ePoly = ExtraordinaryEffect(ePoly); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, OBJECT_SELF); + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, ePoly, OBJECT_SELF, HoursToSeconds(nDuration)); + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELLABILITY_ELEMENTAL_SHAPE, FALSE)); + //-------------------------------------------------------------------------- + // This code handles the merging of item properties + //-------------------------------------------------------------------------- + object oWeaponNew = GetItemInSlot(INVENTORY_SLOT_RIGHTHAND,OBJECT_SELF); + object oArmorNew = GetItemInSlot(INVENTORY_SLOT_CARMOUR,OBJECT_SELF); + object oClawLeft = GetItemInSlot(INVENTORY_SLOT_CWEAPON_L,OBJECT_SELF); + object oClawRight = GetItemInSlot(INVENTORY_SLOT_CWEAPON_R,OBJECT_SELF); + object oBite = GetItemInSlot(INVENTORY_SLOT_CWEAPON_B,OBJECT_SELF); + //-------------------------------------------------------------------------- + // ...Weapons + //-------------------------------------------------------------------------- + if (bWeapon) + { + //---------------------------------------------------------------------- + // GZ: 2003-10-20 + // Sorry, but I was forced to take that out, it was confusing people + // and there were problems with updating the stats sheet. + //---------------------------------------------------------------------- + /* if (!GetIsObjectValid(oWeaponOld)) + { + //------------------------------------------------------------------ + // If we had no weapon equipped before, remove the old weapon + // to allow monks to change into unarmed forms by not equipping any + // weapon before polymorphing + //------------------------------------------------------------------ + DestroyObject(oWeaponNew); + } + else*/ + { + //------------------------------------------------------------------ + // Merge item properties... + //------------------------------------------------------------------ + WildshapeCopyWeaponProperties(oTarget, oWeaponOld, oWeaponNew); + } + } + else { + switch ( WS_COPY_WEAPON_PROPS_TO_UNARMED ) + { + case 1: // Copy over weapon properties to claws/bite + WildshapeCopyNonStackProperties(oWeaponOld,oClawLeft, TRUE); + WildshapeCopyNonStackProperties(oWeaponOld,oClawRight, TRUE); + WildshapeCopyNonStackProperties(oWeaponOld,oBite, TRUE); + break; + case 2: // Copy over glove properties to claws/bite + WildshapeCopyNonStackProperties(oBracerOld,oClawLeft, FALSE); + WildshapeCopyNonStackProperties(oBracerOld,oClawRight, FALSE); + WildshapeCopyNonStackProperties(oBracerOld,oBite, FALSE); + bCopyGlovesToClaws = TRUE; + break; + case 3: // Copy over weapon properties to claws/bite if wearing a weapon, otherwise copy gloves + if ( GetIsObjectValid(oWeaponOld) ) + { + WildshapeCopyNonStackProperties(oWeaponOld,oClawLeft, TRUE); + WildshapeCopyNonStackProperties(oWeaponOld,oClawRight, TRUE); + WildshapeCopyNonStackProperties(oWeaponOld,oBite, TRUE); + } + else + { + WildshapeCopyNonStackProperties(oBracerOld,oClawLeft, FALSE); + WildshapeCopyNonStackProperties(oBracerOld,oClawRight, FALSE); + WildshapeCopyNonStackProperties(oBracerOld,oBite, FALSE); + bCopyGlovesToClaws = TRUE; + } + break; + default: // Do not copy over anything + break; + }; + } + //-------------------------------------------------------------------------- + // ...Armor + //-------------------------------------------------------------------------- + if (bArmor) + { + //---------------------------------------------------------------------- + // Merge item properties from armor and helmet... + //---------------------------------------------------------------------- + WildshapeCopyNonStackProperties(oArmorOld,oArmorNew); + WildshapeCopyNonStackProperties(oHelmetOld,oArmorNew); + WildshapeCopyNonStackProperties(oShield,oArmorNew); + WildshapeCopyNonStackProperties(oHideOld,oArmorNew); + } + //-------------------------------------------------------------------------- + // ...Magic Items + //-------------------------------------------------------------------------- + if (bItems) + { + //---------------------------------------------------------------------- + // Merge item properties from from rings, amulets, cloak, boots, belt + // Iz: And bracers, in case oBracerOld gets set to a valid object. + //---------------------------------------------------------------------- + WildshapeCopyNonStackProperties(oRing1Old,oArmorNew); + WildshapeCopyNonStackProperties(oRing2Old,oArmorNew); + WildshapeCopyNonStackProperties(oAmuletOld,oArmorNew); + WildshapeCopyNonStackProperties(oCloakOld,oArmorNew); + WildshapeCopyNonStackProperties(oBootsOld,oArmorNew); + WildshapeCopyNonStackProperties(oBeltOld,oArmorNew); + // Because Bracers can have On Hit Cast Spell type properties we should + // avoid copying the bracers twice. Otherwise the player can get that On + // Hit effect both when hitting, and getting hit. + if ( bCopyGlovesToClaws == FALSE ) + WildshapeCopyNonStackProperties(oBracerOld,oArmorNew); + } + +} diff --git a/_haks/poa_exp_abilities/nw_s2_layonhand.ncs b/_haks/poa_exp_abilities/nw_s2_layonhand.ncs new file mode 100644 index 0000000..a4dc22d Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s2_layonhand.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s2_layonhand.nss b/_haks/poa_exp_abilities/nw_s2_layonhand.nss new file mode 100644 index 0000000..81a4865 --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s2_layonhand.nss @@ -0,0 +1,150 @@ +//:://///////////////////////////////////////////// +//:: Lay_On_Hands +//:: NW_S2_LayOnHand.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + The Paladin is able to heal his Chr Bonus times + his level. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Aug 15, 2001 +//:: Updated On: Oct 20, 2003 +//::////////////////////////////////////////////// + +#include "prc_inc_sp_tch" +void main() +{ + + object oTarget = PRCGetSpellTargetObject(); + int nChr = GetAbilityModifier(ABILITY_CHARISMA); + + // Added by Starlight 2004-5-14 + // Check whether the character has "Hand of A Healer Feat" and + // with 13+ Charisma + // If yes, +2 to Charisma Score during casting Lay On Hands + // i.e. +1 bonus to Charisma Modifier + if (GetAlignmentGoodEvil(OBJECT_SELF) == ALIGNMENT_GOOD){ + if (GetHasFeat(FEAT_HAND_HEALER)){ + nChr = nChr + 1; + } + } + // End of Hand of Healer Code + + if (nChr < 0) + { + nChr = 0; + } + int nLevel = GetLevelByClass(CLASS_TYPE_PALADIN); + + //-------------------------------------------------------------------------- + // July 2003: Add Divine Champion levels to lay on hands ability + //-------------------------------------------------------------------------- + nLevel += GetLevelByClass(CLASS_TYPE_DIVINECHAMPION); + nLevel += GetLevelByClass(CLASS_TYPE_HOSPITALER); + nLevel += GetLevelByClass(CLASS_TYPE_COC); + nLevel += GetEssentiaInvestedFeat(OBJECT_SELF, FEAT_AZURE_TOUCH); + nLevel += GetLevelByClass(CLASS_TYPE_HEALER); + nLevel += GetLevelByClass(CLASS_TYPE_COMBAT_MEDIC); + //-------------------------------------------------------------------------- + // Caluclate the amount to heal, min is 1 hp + //-------------------------------------------------------------------------- + int nHeal = nLevel * nChr; + if(nHeal <= 0) + { + nHeal = 1; + } + effect eHeal = EffectHeal(nHeal); + effect eVis = EffectVisualEffect(VFX_IMP_HEALING_M); + effect eVis2 = EffectVisualEffect(VFX_IMP_SUNSTRIKE); + effect eEVis = EffectVisualEffect(VFX_IMP_REDUCE_ABILITY_SCORE); + effect eEVis2 = EffectVisualEffect(VFX_IMP_DESTRUCTION); + effect eDam; + int nTouch; + +// evil paladins should not heal non-undead, they should do damage, and heal undead. ~ Lock + + if (GetAlignmentGoodEvil(OBJECT_SELF) == ALIGNMENT_EVIL) + { + if(MyPRCGetRacialType(oTarget) == RACIAL_TYPE_UNDEAD || GetLevelByClass(CLASS_TYPE_UNDEAD,oTarget)>0 + || (GetHasFeat(FEAT_TOMB_TAINTED_SOUL, oTarget) && GetAlignmentGoodEvil(oTarget) != ALIGNMENT_GOOD)) + { + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELLABILITY_LAY_ON_HANDS, FALSE)); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eHeal, oTarget); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eEVis2, oTarget); + } + else + { + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELLABILITY_LAY_ON_HANDS)); + //Make a ranged touch attack + nTouch = PRCDoMeleeTouchAttack(oTarget);; + + //---------------------------------------------------------------------- + // GZ: The PhB classifies Lay on Hands as spell like ability, so it is + // subject to SR. No more cheesy demi lich kills on touch, sorry. + //---------------------------------------------------------------------- + int nResist = PRCDoResistSpell(OBJECT_SELF, oTarget, nLevel + SPGetPenetr()); + if (nResist == 0 ) + { + if(nTouch > 0) + { + if(nTouch == 2) + { + nHeal *= 2; + } + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELLABILITY_LAY_ON_HANDS)); + eDam = PRCEffectDamage(oTarget, nHeal, DAMAGE_TYPE_DIVINE); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eEVis, oTarget); + } + } + } + } + + //-------------------------------------------------------------------------- + // A good-aligned paladin can use his lay on hands ability to damage undead creatures + // having undead class levels qualifies as undead as well + //-------------------------------------------------------------------------- + +if (GetAlignmentGoodEvil(OBJECT_SELF) == ALIGNMENT_GOOD || GetAlignmentGoodEvil(OBJECT_SELF) == ALIGNMENT_NEUTRAL) +{ + if(MyPRCGetRacialType(oTarget) == RACIAL_TYPE_UNDEAD || GetLevelByClass(CLASS_TYPE_UNDEAD,oTarget)>0 + || (GetHasFeat(FEAT_TOMB_TAINTED_SOUL, oTarget) && GetAlignmentGoodEvil(oTarget) != ALIGNMENT_GOOD)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELLABILITY_LAY_ON_HANDS)); + //Make a ranged touch attack + nTouch = PRCDoMeleeTouchAttack(oTarget);; + + //---------------------------------------------------------------------- + // GZ: The PhB classifies Lay on Hands as spell like ability, so it is + // subject to SR. No more cheesy demi lich kills on touch, sorry. + //---------------------------------------------------------------------- + int nResist = PRCDoResistSpell(OBJECT_SELF, oTarget, nLevel + SPGetPenetr()); + if (nResist == 0 ) + { + if(nTouch > 0) + { + if(nTouch == 2) + { + nHeal *= 2; + } + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELLABILITY_LAY_ON_HANDS)); + eDam = PRCEffectDamage(oTarget, nHeal, DAMAGE_TYPE_DIVINE); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis2, oTarget); + } + } + } + else + { + + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELLABILITY_LAY_ON_HANDS, FALSE)); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eHeal, oTarget); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } +} + +} + diff --git a/_haks/poa_exp_abilities/nw_s2_wildshape.ncs b/_haks/poa_exp_abilities/nw_s2_wildshape.ncs new file mode 100644 index 0000000..2cff3ab Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s2_wildshape.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s2_wildshape.nss b/_haks/poa_exp_abilities/nw_s2_wildshape.nss new file mode 100644 index 0000000..d0fa22a --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s2_wildshape.nss @@ -0,0 +1,431 @@ +//:://///////////////////////////////////////////// +//:: Wild Shape +//:: NW_S2_WildShape +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Allows the Druid to change into animal forms. + + Updated: Sept 30 2003, Georg Z. + * Made Armor merge with druid to make forms + more useful. + +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Jan 22, 2002 +//::////////////////////////////////////////////// +//:: Modified By: Iznoghoud - January 19 2004 +/* +What this script changes: +Allows druid wildshapes to get stacking item properties carried over correctly +just like shifters. +See Iznoghoud's x2_s2_gwildshp script for an in-detail description. +*/ +//::////////////////////////////////////////////// + +#include "ws_inc_shifter" +//#include "x3_inc_horse" +#include "prc_alterations" +#include "pnp_shft_poly" + +void wild_shape_shift(object oPC, int nShape) +{ + string sResRef = Get2DACache("prc_polymorph", "ResRef", nShape); + StoreCurrentAppearanceAsTrueAppearance(oPC, TRUE); + ShiftIntoResRef(oPC, SHIFTER_TYPE_DRUID, sResRef); +} + +void main() +{ + +//Override in town, no casting! +if(GetLocalInt(GetArea(OBJECT_SELF), "NOCAST")==2 && !GetIsDM(OBJECT_SELF)) +{ + + FloatingTextStringOnCreature("All spells fizzle in town.", OBJECT_SELF); + + return; +} + + //Declare major variables + int nSpell = GetSpellId(); + object oTarget = PRCGetSpellTargetObject(); + object oPC = OBJECT_SELF; + effect eVis = EffectVisualEffect(VFX_IMP_POLYMORPH); + effect ePoly; + int nPoly; + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDuration = GetLevelByClass(CLASS_TYPE_DRUID, oPC) + + GetLevelByClass(CLASS_TYPE_ARCANE_HIEROPHANT, oPC); + if (!GetLocalInt(GetModule(),"X3_NO_SHAPESHIFT_SPELL_CHECK")) + { // check to see if abort due to being mounted + if (PRCHorseGetIsMounted(oTarget)) + { // abort + if (GetIsPC(oTarget)) FloatingTextStrRefOnCreature(111982,oTarget,FALSE); + return; + } // abort + } // check to see if abort due to being mounted + + //Enter Metamagic conditions + if (nMetaMagic == METAMAGIC_EXTEND) + { + nDuration = nDuration *2; //Duration is +100% + } + + //this command will make shore that polymorph plays nice with the shifter + ShifterCheck(OBJECT_SELF); + + int nShape = GetPersistantLocalInt(oPC, PRC_PNP_SHIFTING + IntToString(nSpell)); + if(nShape > 0) + { + wild_shape_shift(oPC, nShape); + return; + } + //Determine Polymorph subradial type + if(nSpell == 401) + { + nPoly = POLYMORPH_TYPE_BROWN_BEAR; + if (nDuration >= 12) + { + nPoly = POLYMORPH_TYPE_DIRE_BROWN_BEAR; + } + } + else if (nSpell == 402) + { + nPoly = POLYMORPH_TYPE_PANTHER; + if (nDuration >= 12) + { + nPoly = POLYMORPH_TYPE_DIRE_PANTHER; + } + } + else if (nSpell == 403) + { + nPoly = POLYMORPH_TYPE_WOLF; + + if (nDuration >= 12) + { + nPoly = POLYMORPH_TYPE_DIRE_WOLF; + } + } + else if (nSpell == 404) + { + nPoly = POLYMORPH_TYPE_BOAR; + if (nDuration >= 12) + { + nPoly = POLYMORPH_TYPE_DIRE_BOAR; + } + } + else if (nSpell == 405) + { + nPoly = POLYMORPH_TYPE_BADGER; + if (nDuration >= 12) + { + nPoly = POLYMORPH_TYPE_DIRE_BADGER; + } + } + + int bWeapon; + int bArmor; + int bItems; + int bCopyGlovesToClaws = FALSE; + + bWeapon = StringToInt(Get2DAString("polymorph","MergeW",nPoly)) == 1; + + if ( WS_ALWAYS_COPY_ARMOR_PROPS ) + bArmor = TRUE; + else + bArmor = StringToInt(Get2DAString("polymorph","MergeA",nPoly)) == 1; + + if ( WS_ALWAYS_COPY_ITEM_PROPS ) + bItems = TRUE; + else + bItems = StringToInt(Get2DAString("polymorph","MergeI",nPoly)) == 1; + + // Send message to PC about which items get merged to this form + string sMerge; + sMerge = "Merged: "; // : This is a color code that makes the text behind it blue. + if(bArmor) sMerge += "Armor, Helmet, Shield"; + if(bItems) sMerge += ", Rings, Amulet, Cloak, Boots, Belt, Bracers"; + if( bWeapon || WS_COPY_WEAPON_PROPS_TO_UNARMED == 1 ) + sMerge += ", Weapon"; + else if ( WS_COPY_WEAPON_PROPS_TO_UNARMED == 2 ) + sMerge += ", Gloves to unarmed attacks"; + else if (WS_COPY_WEAPON_PROPS_TO_UNARMED == 3 ) + sMerge += ", Weapon (if you had one equipped) or gloves to unarmed attacks"; + else + sMerge += ", No weapon or gloves to unarmed attacks"; + SendMessageToPC(oTarget,sMerge + "."); + + // Store which items should transfer to this polymorph type. (For exportallchar scripts) + SetLocalInt(oTarget, "GW_PolyID", nPoly); + SetLocalInt(oTarget, "GW_bWeapon", bWeapon ); + SetLocalInt(oTarget, "GW_bArmor", bArmor ); + SetLocalInt(oTarget, "GW_bItems", bItems ); + + //-------------------------------------------------------------------------- + // Store the old objects so we can access them after the character has + // changed into his new form + //-------------------------------------------------------------------------- + object oWeaponOld; + object oArmorOld; + object oRing1Old ; + object oRing2Old; + object oAmuletOld; + object oCloakOld ; + object oBootsOld ; + object oBeltOld ; + object oHelmetOld; + object oShield ; + object oBracerOld; + object oHideOld; + //Assume the normal shape doesn't have a creature skin object. + //If using a subracesystem or something else that places a skin on the normal shape + //another condition is needed to decide whether or not to store current items. + //One way could be to scan all effects to see whether one is a polymorph effect. + int nPolyed = GetIsObjectValid(GetItemInSlot(INVENTORY_SLOT_CARMOUR,OBJECT_SELF)); + // If there is a creature armor see if it is a creature hide put + // on the unpolymorphed player by scanning for a polymorph effect. + if ( nPolyed ) + nPolyed = ( ScanForPolymorphEffect(OBJECT_SELF) != -2 ); + if(! nPolyed) + { + //if not polymorphed get items worn and store on player. + oWeaponOld = GetItemInSlot(INVENTORY_SLOT_RIGHTHAND,OBJECT_SELF); + oArmorOld = GetItemInSlot(INVENTORY_SLOT_CHEST,OBJECT_SELF); + oRing1Old = GetItemInSlot(INVENTORY_SLOT_LEFTRING,OBJECT_SELF); + oRing2Old = GetItemInSlot(INVENTORY_SLOT_RIGHTRING,OBJECT_SELF); + oAmuletOld = GetItemInSlot(INVENTORY_SLOT_NECK,OBJECT_SELF); + oCloakOld = GetItemInSlot(INVENTORY_SLOT_CLOAK,OBJECT_SELF); + oBootsOld = GetItemInSlot(INVENTORY_SLOT_BOOTS,OBJECT_SELF); + oBeltOld = GetItemInSlot(INVENTORY_SLOT_BELT,OBJECT_SELF); + oHelmetOld = GetItemInSlot(INVENTORY_SLOT_HEAD,OBJECT_SELF); + oShield = GetItemInSlot(INVENTORY_SLOT_LEFTHAND,OBJECT_SELF); + oBracerOld = GetItemInSlot(INVENTORY_SLOT_ARMS,OBJECT_SELF); + oHideOld = GetItemInSlot(INVENTORY_SLOT_CARMOUR,OBJECT_SELF); + SetLocalObject(OBJECT_SELF,"GW_OldWeapon",oWeaponOld); + SetLocalObject(OBJECT_SELF,"GW_OldArmor",oArmorOld); + SetLocalObject(OBJECT_SELF,"GW_OldRing1",oRing1Old); + SetLocalObject(OBJECT_SELF,"GW_OldRing2",oRing2Old); + SetLocalObject(OBJECT_SELF,"GW_OldAmulet",oAmuletOld); + SetLocalObject(OBJECT_SELF,"GW_OldCloak",oCloakOld); + SetLocalObject(OBJECT_SELF,"GW_OldBoots",oBootsOld); + SetLocalObject(OBJECT_SELF,"GW_OldBelt",oBeltOld); + SetLocalObject(OBJECT_SELF,"GW_OldHelmet",oHelmetOld); + SetLocalObject(OBJECT_SELF,"GW_OldBracer",oBracerOld); + SetLocalObject(OBJECT_SELF,"GW_OldHide",oHideOld); + if (GetIsObjectValid(oShield)) + { + if (GetBaseItemType(oShield) !=BASE_ITEM_LARGESHIELD && + GetBaseItemType(oShield) !=BASE_ITEM_SMALLSHIELD && + GetBaseItemType(oShield) !=BASE_ITEM_TOWERSHIELD) + { + oShield = OBJECT_INVALID; + } + } + SetLocalObject(OBJECT_SELF,"GW_OldShield",oShield); + + } + else + { + //if already polymorphed use items stored earlier. + oWeaponOld = GetLocalObject(OBJECT_SELF,"GW_OldWeapon"); + oArmorOld = GetLocalObject(OBJECT_SELF,"GW_OldArmor"); + oRing1Old = GetLocalObject(OBJECT_SELF,"GW_OldRing1"); + oRing2Old = GetLocalObject(OBJECT_SELF,"GW_OldRing2"); + oAmuletOld = GetLocalObject(OBJECT_SELF,"GW_OldAmulet"); + oCloakOld = GetLocalObject(OBJECT_SELF,"GW_OldCloak"); + oBootsOld = GetLocalObject(OBJECT_SELF,"GW_OldBoots"); + oBeltOld = GetLocalObject(OBJECT_SELF,"GW_OldBelt"); + oHelmetOld = GetLocalObject(OBJECT_SELF,"GW_OldHelmet"); + oShield = GetLocalObject(OBJECT_SELF,"GW_OldShield"); + oBracerOld = GetLocalObject(OBJECT_SELF,"GW_OldBracer"); + oHideOld = GetLocalObject(OBJECT_SELF,"GW_OldHide"); + } + + //-------------------------------------------------------------------------- + // Here the actual polymorphing is done + //-------------------------------------------------------------------------- + ePoly = EffectPolymorph(nPoly); + //-------------------------------------------------------------------------- + // Iznoghoud: Link the stackable properties as permanent bonuses to the + // Polymorph effect, instead of putting them on the creature hide. They will + // properly disappear as soon as the polymorph is ended. + //-------------------------------------------------------------------------- + ePoly = AddStackablePropertiesToPoly ( oTarget, ePoly, bWeapon, bItems, bArmor, oArmorOld, oRing1Old, oRing2Old, oAmuletOld, oCloakOld, oBracerOld, oBootsOld, oBeltOld, oHelmetOld, oShield, oWeaponOld, oHideOld); + ePoly = ExtraordinaryEffect(ePoly); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, OBJECT_SELF); + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, ePoly, OBJECT_SELF, HoursToSeconds(nDuration)); + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELLABILITY_WILD_SHAPE, FALSE)); + //-------------------------------------------------------------------------- + // This code handles the merging of item properties + //-------------------------------------------------------------------------- + object oWeaponNew = GetItemInSlot(INVENTORY_SLOT_RIGHTHAND,OBJECT_SELF); + object oArmorNew = GetItemInSlot(INVENTORY_SLOT_CARMOUR,OBJECT_SELF); + object oClawLeft = GetItemInSlot(INVENTORY_SLOT_CWEAPON_L,OBJECT_SELF); + object oClawRight = GetItemInSlot(INVENTORY_SLOT_CWEAPON_R,OBJECT_SELF); + object oBite = GetItemInSlot(INVENTORY_SLOT_CWEAPON_B,OBJECT_SELF); + //-------------------------------------------------------------------------- + // ...Weapons + //-------------------------------------------------------------------------- + if (bWeapon) + { + //---------------------------------------------------------------------- + // GZ: 2003-10-20 + // Sorry, but I was forced to take that out, it was confusing people + // and there were problems with updating the stats sheet. + //---------------------------------------------------------------------- + /* if (!GetIsObjectValid(oWeaponOld)) + { + //------------------------------------------------------------------ + // If we had no weapon equipped before, remove the old weapon + // to allow monks to change into unarmed forms by not equipping any + // weapon before polymorphing + //------------------------------------------------------------------ + DestroyObject(oWeaponNew); + } + else*/ + { + //------------------------------------------------------------------ + // Merge item properties... + //------------------------------------------------------------------ + WildshapeCopyWeaponProperties(oTarget, oWeaponOld,oWeaponNew); + } + } + else { + switch ( WS_COPY_WEAPON_PROPS_TO_UNARMED ) + { + case 1: // Copy over weapon properties to claws/bite + WildshapeCopyNonStackProperties(oWeaponOld,oClawLeft, TRUE); + WildshapeCopyNonStackProperties(oWeaponOld,oClawRight, TRUE); + WildshapeCopyNonStackProperties(oWeaponOld,oBite, TRUE); + break; + case 2: // Copy over glove properties to claws/bite + WildshapeCopyNonStackProperties(oBracerOld,oClawLeft, FALSE); + WildshapeCopyNonStackProperties(oBracerOld,oClawRight, FALSE); + WildshapeCopyNonStackProperties(oBracerOld,oBite, FALSE); + bCopyGlovesToClaws = TRUE; + break; + case 3: // Copy over weapon properties to claws/bite if wearing a weapon, otherwise copy gloves + if ( GetIsObjectValid(oWeaponOld) ) + { + WildshapeCopyNonStackProperties(oWeaponOld,oClawLeft, TRUE); + WildshapeCopyNonStackProperties(oWeaponOld,oClawRight, TRUE); + WildshapeCopyNonStackProperties(oWeaponOld,oBite, TRUE); + } + else + { + WildshapeCopyNonStackProperties(oBracerOld,oClawLeft, FALSE); + WildshapeCopyNonStackProperties(oBracerOld,oClawRight, FALSE); + WildshapeCopyNonStackProperties(oBracerOld,oBite, FALSE); + bCopyGlovesToClaws = TRUE; + } + break; + default: // Do not copy over anything + break; + }; + } + //-------------------------------------------------------------------------- + // ...Armor + //-------------------------------------------------------------------------- + if (bArmor) + { + //---------------------------------------------------------------------- + // Merge item properties from armor and helmet... + //---------------------------------------------------------------------- + WildshapeCopyNonStackProperties(oArmorOld,oArmorNew); + WildshapeCopyNonStackProperties(oHelmetOld,oArmorNew); + WildshapeCopyNonStackProperties(oShield,oArmorNew); + WildshapeCopyNonStackProperties(oHideOld,oArmorNew); + } + //-------------------------------------------------------------------------- + // ...Magic Items + //-------------------------------------------------------------------------- + if (bItems) + { + //---------------------------------------------------------------------- + // Merge item properties from from rings, amulets, cloak, boots, belt + // Iz: And bracers, in case oBracerOld gets set to a valid object. + //---------------------------------------------------------------------- + WildshapeCopyNonStackProperties(oRing1Old,oArmorNew); + WildshapeCopyNonStackProperties(oRing2Old,oArmorNew); + WildshapeCopyNonStackProperties(oAmuletOld,oArmorNew); + WildshapeCopyNonStackProperties(oCloakOld,oArmorNew); + WildshapeCopyNonStackProperties(oBootsOld,oArmorNew); + WildshapeCopyNonStackProperties(oBeltOld,oArmorNew); + // Because Bracers can have On Hit Cast Spell type properties we should + // avoid copying the bracers twice. Otherwise the player can get that On + // Hit effect both when hitting, and getting hit. + if ( bCopyGlovesToClaws == FALSE ) + WildshapeCopyNonStackProperties(oBracerOld,oArmorNew); + } + +} + + + + + + + + +//============================================================================================ +/* + + object oWeaponOld = GetItemInSlot(INVENTORY_SLOT_RIGHTHAND,OBJECT_SELF); + object oArmorOld = GetItemInSlot(INVENTORY_SLOT_CHEST,OBJECT_SELF); + object oRing1Old = GetItemInSlot(INVENTORY_SLOT_LEFTRING,OBJECT_SELF); + object oRing2Old = GetItemInSlot(INVENTORY_SLOT_RIGHTRING,OBJECT_SELF); + object oAmuletOld = GetItemInSlot(INVENTORY_SLOT_NECK,OBJECT_SELF); + object oCloakOld = GetItemInSlot(INVENTORY_SLOT_CLOAK,OBJECT_SELF); + object oBootsOld = GetItemInSlot(INVENTORY_SLOT_BOOTS,OBJECT_SELF); + object oBeltOld = GetItemInSlot(INVENTORY_SLOT_BELT,OBJECT_SELF); + object oHelmetOld = GetItemInSlot(INVENTORY_SLOT_HEAD,OBJECT_SELF); + object oShield = GetItemInSlot(INVENTORY_SLOT_LEFTHAND,OBJECT_SELF); + if (GetIsObjectValid(oShield)) + { + if (GetBaseItemType(oShield) !=BASE_ITEM_LARGESHIELD && + GetBaseItemType(oShield) !=BASE_ITEM_SMALLSHIELD && + GetBaseItemType(oShield) !=BASE_ITEM_SMALLSHIELD) + { + oShield = OBJECT_INVALID; + } + } + + ClearAllActions(); // prevents an exploit + + + if (GetEssentiaInvestedFeat(OBJECT_SELF, FEAT_AZURE_WILD_SHAPE)) + ePoly = EffectLinkEffects(ePoly, EffectDamageIncrease(IPGetDamageBonusConstantFromNumber(GetEssentiaInvestedFeat(OBJECT_SELF, FEAT_AZURE_WILD_SHAPE)), DAMAGE_TYPE_BASE_WEAPON)); + + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, OBJECT_SELF); + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, ePoly, OBJECT_SELF, HoursToSeconds(nDuration)); + + object oWeaponNew = GetItemInSlot(INVENTORY_SLOT_RIGHTHAND,OBJECT_SELF); + object oArmorNew = GetItemInSlot(INVENTORY_SLOT_CARMOUR,OBJECT_SELF); + + if (bWeapon) + { + IPWildShapeCopyItemProperties(oWeaponOld,oWeaponNew, TRUE); + } + if (bArmor) + { + IPWildShapeCopyItemProperties(oShield,oArmorNew); + IPWildShapeCopyItemProperties(oHelmetOld,oArmorNew); + IPWildShapeCopyItemProperties(oArmorOld,oArmorNew); + } + if (bItems) + { + IPWildShapeCopyItemProperties(oRing1Old,oArmorNew); + IPWildShapeCopyItemProperties(oRing2Old,oArmorNew); + IPWildShapeCopyItemProperties(oAmuletOld,oArmorNew); + IPWildShapeCopyItemProperties(oCloakOld,oArmorNew); + IPWildShapeCopyItemProperties(oBootsOld,oArmorNew); + IPWildShapeCopyItemProperties(oBeltOld,oArmorNew); + } + + DelayCommand(1.5,ActionCastSpellOnSelf(SPELL_SHAPE_INCREASE_DAMAGE)); +} +*/ diff --git a/_haks/poa_exp_abilities/nw_s3_balordeth.ncs b/_haks/poa_exp_abilities/nw_s3_balordeth.ncs new file mode 100644 index 0000000..3ea0a56 Binary files /dev/null and b/_haks/poa_exp_abilities/nw_s3_balordeth.ncs differ diff --git a/_haks/poa_exp_abilities/nw_s3_balordeth.nss b/_haks/poa_exp_abilities/nw_s3_balordeth.nss new file mode 100644 index 0000000..96d0afb --- /dev/null +++ b/_haks/poa_exp_abilities/nw_s3_balordeth.nss @@ -0,0 +1,62 @@ +// HCR v3.2.0 - Execute default death script after fireball effects is complete. +//:://////////////////////////////////////////////////////////////////////////// +//:: FileName: NW_S3_BALORDETH +//:://////////////////////////////////////////////////////////////////////////// +/* + Fireball explosion does 50 damage to all within 20ft. +*/ +//:://////////////////////////////////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Jan 9, 2002 +//:://////////////////////////////////////////////////////////////////////////// +#include "NW_I0_SPELLS" +#include "prc_inc_spells" +//:://////////////////////////////////////////////////////////////////////////// +void main() +{ + // Declare major variables. + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDamage; + float fDelay; + effect eVis = EffectVisualEffect(VFX_IMP_FLAME_M); + effect eDam; + + // Apply the fireball explosion. + effect eExplode = EffectVisualEffect(VFX_FNF_FIREBALL); + location lTarget = GetLocation(OBJECT_SELF); + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eExplode, lTarget); + + // Cycle through the targets until an invalid object is captured. + object oTarget = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR); + while (GetIsObjectValid(oTarget)) + { + // Fire cast spell at event for the specified target. + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_FIREBALL)); + + // Calculate delay based on distance between explosion and the target. + fDelay = (GetDistanceBetweenLocations(lTarget, GetLocation(oTarget))/20); + if (!PRCDoResistSpell(OBJECT_SELF, oTarget, FloatToInt(fDelay))) + { + // Adjust damage based on Reflex Save, Evasion and Improved Evasion. + nDamage = PRCGetReflexAdjustedDamage(50, oTarget, GetSpellSaveDC(), SAVING_THROW_TYPE_FIRE); + if (nDamage > 0) + { + // Apply effects to the currently selected target. + eDam = EffectDamage(nDamage, DAMAGE_TYPE_FIRE); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget)); + + // This visual effect is applied to the target object not the + // location as above. This visual effect represents the flame that + // erupts on the target not on the ground. + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + + // Select the next target. + oTarget = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR); + } + + // HCR 3.0 - Call default death script. + ExecuteScript("nw_c2_default7", OBJECT_SELF); +} +//:://////////////////////////////////////////////////////////////////////////// diff --git a/_haks/poa_exp_abilities/prc_hexbl_comp_a.ncs b/_haks/poa_exp_abilities/prc_hexbl_comp_a.ncs new file mode 100644 index 0000000..1c7d42b Binary files /dev/null and b/_haks/poa_exp_abilities/prc_hexbl_comp_a.ncs differ diff --git a/_haks/poa_exp_abilities/prc_hexbl_comp_a.nss b/_haks/poa_exp_abilities/prc_hexbl_comp_a.nss new file mode 100644 index 0000000..65809ac --- /dev/null +++ b/_haks/poa_exp_abilities/prc_hexbl_comp_a.nss @@ -0,0 +1,42 @@ +/** + * Hexblade: Dark Companion + * 14/09/2005 + * Stratovarius + * Type of Feat: Class Specific + * Prerequisite: Hexblade level 4. + * Specifics: The Hexblade gains a dark companion. It is an illusionary creature that does not engage in combat, but all monsters near it take a -2 penalty to AC and Saves. + * Use: Selected. + */ + +#include "prc_class_const" + +void main() +{ + //Declare major variables + object oPC = GetAreaOfEffectCreator(); + object oTarget = GetEnteringObject(); + + // Apply the Dark Companion penalties. + // Doesn't affect allies + if(!GetIsFriend(oTarget, oPC)) + { + int nPen = GetLevelByClass(CLASS_TYPE_HEXBLADE, oPC) > 20 ? 4 : 2; + + if(GetLevelByClass(CLASS_TYPE_HEXBLADE, oPC) > 40) + { + nPen =6; + } + + if(GetLevelByClass(CLASS_TYPE_HEXBLADE, oPC) >= 60) + { + nPen =8; + } + if(GetLevelByClass(CLASS_TYPE_HEXBLADE, oPC) >= 80) + { + nPen =10; + } + effect eLink = EffectSavingThrowDecrease(SAVING_THROW_ALL, nPen); + eLink = EffectLinkEffects(eLink, EffectACDecrease(nPen)); + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, 6.0); + } +} \ No newline at end of file diff --git a/_haks/poa_exp_abilities/prc_hexbl_comp_c.ncs b/_haks/poa_exp_abilities/prc_hexbl_comp_c.ncs new file mode 100644 index 0000000..126ad6f Binary files /dev/null and b/_haks/poa_exp_abilities/prc_hexbl_comp_c.ncs differ diff --git a/_haks/poa_exp_abilities/prc_hexbl_comp_c.nss b/_haks/poa_exp_abilities/prc_hexbl_comp_c.nss new file mode 100644 index 0000000..c0d0369 --- /dev/null +++ b/_haks/poa_exp_abilities/prc_hexbl_comp_c.nss @@ -0,0 +1,47 @@ +/** + * Hexblade: Dark Companion + * 14/09/2005 + * Stratovarius + * Type of Feat: Class Specific + * Prerequisite: Hexblade level 4. + * Specifics: The Hexblade gains a dark companion. It is an illusionary creature that does not engage in combat, but all monsters near it take a -2 penalty to AC and Saves. + * Use: Selected. + */ + +#include "prc_class_const" + +void main() +{ + //Declare major variables + object oPC = GetAreaOfEffectCreator(); + int nPen = GetLevelByClass(CLASS_TYPE_HEXBLADE, oPC) > 20 ? 4 : 2; + + if(GetLevelByClass(CLASS_TYPE_HEXBLADE, oPC) > 40) + { + nPen =6; + } + + if(GetLevelByClass(CLASS_TYPE_HEXBLADE, oPC) >= 60) + { + nPen =8; + } + if(GetLevelByClass(CLASS_TYPE_HEXBLADE, oPC) >= 80) + { + nPen =10; + } + effect eLink = EffectSavingThrowDecrease(SAVING_THROW_ALL, nPen); + eLink = EffectLinkEffects(eLink, EffectACDecrease(nPen)); + + object oTarget = GetFirstInPersistentObject(OBJECT_SELF); + while(GetIsObjectValid(oTarget)) + { + // Apply the loss + // Doesn't affect allies + if(!GetIsFriend(oTarget, oPC)) + { + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, 6.0); + } + //Get next target. + oTarget = GetNextInPersistentObject(OBJECT_SELF); + } +} \ No newline at end of file diff --git a/_haks/poa_exp_abilities/prc_hexbl_curse.ncs b/_haks/poa_exp_abilities/prc_hexbl_curse.ncs new file mode 100644 index 0000000..084939a Binary files /dev/null and b/_haks/poa_exp_abilities/prc_hexbl_curse.ncs differ diff --git a/_haks/poa_exp_abilities/prc_hexbl_curse.nss b/_haks/poa_exp_abilities/prc_hexbl_curse.nss new file mode 100644 index 0000000..63e3b33 --- /dev/null +++ b/_haks/poa_exp_abilities/prc_hexbl_curse.nss @@ -0,0 +1,62 @@ +/* + prc_hexbl_curse + + Afflicted creatures save or suffer a large penalty to stats. +*/ + +#include "prc_inc_combat" + +void main() +{ + object oCaster = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + if(GetHasFeatEffect(FEAT_HEXCURSE, oTarget)) + { + FloatingTextStrRefOnCreature(100775, oCaster, FALSE);//"Target already has this effect!" + IncrementRemainingFeatUses(oCaster, FEAT_HEXCURSE); + return; + } + + if(!TakeSwiftAction(oCaster)) + { + FloatingTextStringOnCreature("You can use this ability only once per round!", oCaster, FALSE); + IncrementRemainingFeatUses(oCaster, FEAT_HEXCURSE); + return; + } + + int nClass = GetLevelByClass(CLASS_TYPE_HEXBLADE, oCaster); + int nDC = 10 + GetAbilityModifier(ABILITY_CHARISMA, oCaster) + (nClass / 2); + int nDmgType = GetWeaponDamageType(GetItemInSlot(INVENTORY_SLOT_RIGHTHAND, oTarget)); + if(nDmgType == -1) nDmgType = DAMAGE_TYPE_BLUDGEONING; + effect eVis = EffectVisualEffect(VFX_IMP_REDUCE_ABILITY_SCORE); + + int nPen = 2; + if (nClass > 96) nPen = 20; + else if (nClass > 88) nPen = 18; + else if (nClass > 76) nPen = 16; + else if (nClass > 68) nPen = 14; + else if (nClass > 56) nPen = 12; + else if (nClass > 48) nPen = 10; + else if (nClass > 36) nPen = 8; + else if (nClass > 18) nPen = 6; + else if (nClass >= 6) nPen = 4; + + //if(GetHasFeat(FEAT_EMPOWER_CURSE, oCaster)) + // nPen += 1; + + effect eLink = EffectLinkEffects(EffectAttackDecrease(nPen), EffectSavingThrowDecrease(SAVING_THROW_ALL, nPen)); + eLink = EffectLinkEffects(eLink, EffectDamageDecrease(nPen, nDmgType)); + eLink = EffectLinkEffects(eLink, EffectSkillDecrease(SKILL_ALL_SKILLS, nPen)); + eLink = SupernaturalEffect(eLink); + + //Make Will Save + if(!/*Will Save*/ PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC)) + { + //Apply Effect and VFX + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, HoursToSeconds(1)); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + else // Doesn't count as used if the target makes their save + IncrementRemainingFeatUses(oCaster, FEAT_HEXCURSE); +} \ No newline at end of file diff --git a/_haks/poa_exp_abilities/prc_kotmc_combat.ncs b/_haks/poa_exp_abilities/prc_kotmc_combat.ncs new file mode 100644 index 0000000..83b491c Binary files /dev/null and b/_haks/poa_exp_abilities/prc_kotmc_combat.ncs differ diff --git a/_haks/poa_exp_abilities/prc_kotmc_combat.nss b/_haks/poa_exp_abilities/prc_kotmc_combat.nss new file mode 100644 index 0000000..68abba3 --- /dev/null +++ b/_haks/poa_exp_abilities/prc_kotmc_combat.nss @@ -0,0 +1,232 @@ +//:://///////////////////////////////////////////// +//:: Knight of the Middle Circle - Combat Sense +//:: prc_kotmc_combat.nss +//::////////////////////////////////////////////// +//:: Applies a temporary AC and Attack bonus vs +//:: monsters of the targets racial type +//::////////////////////////////////////////////// +//:: Created By: Stratovarius +//:: Created On: July 16, 2004 +//::////////////////////////////////////////////// +#include "inc_item_props" //adicionado por mim, pq na versao 3.5 do prc essa biblioteca nao estava aqui. +#include "prc_alterations" +#include "prc_class_const" + + +/* +//adicionado essa funcao direto do prc 2.2c do inc_item_props pq o prc mais recente nao tinha essa funcao ou eu nao achei +object GetPCSkin(object oPC); + + +object GetPCSkinKMC(object oPC) +{ + object oSkin = GetItemInSlot(INVENTORY_SLOT_CARMOUR, oPC); + if (!GetIsObjectValid(oSkin)) + { + if ( GetHasItem(oPC, "base_prc_skin")) + { + oSkin = GetItemPossessedBy(oPC,"base_prc_skin"); + AssignCommand(oPC, ActionEquipItem(oSkin, INVENTORY_SLOT_CARMOUR)); + } + + //Added GetHasItem check to prevent creation of extra skins on module entry + else { + oSkin = CreateItemOnObject("base_prc_skin", oPC); + AssignCommand(oPC, ActionEquipItem(oSkin, INVENTORY_SLOT_CARMOUR)); + } + } + return oSkin; +} +*/ + + +void main() +{ + //Declare main variables. + object oPC = OBJECT_SELF; + object oSkin = GetPCSkin(oPC); + object oWeapon = GetItemInSlot(INVENTORY_SLOT_RIGHTHAND, oPC); + object oTarget = PRCGetSpellTargetObject(); + int nRace = MyPRCGetRacialType(oTarget); + int nClass = GetLevelByClass(CLASS_TYPE_KNIGHT_MIDDLECIRCLE, oPC) + GetLevelByClass(CLASS_TYPE_PALADIN, oPC); + int nDur = nClass + 3; + int nAC; + int nAttack; + + + + if (nClass >= 1) + { + nAC = 2; + nAttack = 2; + } + if (nClass >= 5) + { + nAC = 4; + nAttack = 4; + } + if (nClass >= 10) + { + nAC = 6; + nAttack = 6; + } + if (nClass >= 15) + { + nAC = 8; + nAttack = 8; + } + if (nClass >= 20) + { + nAC = 10; + nAttack = 10; + } + if (nClass >= 25) + { + nAC = 12; + nAttack = 12; + } + if (nClass >= 30) + { + nAC = 14; + nAttack = 14; + } + + if (nClass >= 35) + { + nAC = 16; + nAttack = 16; + } + + if (nClass >= 40) + { + nAC = 18; + nAttack = 18; + } + + if (nClass >= 45) + { + nAC = 20; + nAttack = 20; + } + + if (nClass >= 50) + { + nAC = 22; + nAttack = 22; + } + + if (nClass >= 55) + { + nAC = 24; + nAttack = 24; + } + + if (nClass >= 60) + { + nAC = 26; + nAttack = 26; + } + + if (nClass >= 65) + { + nAC = 28; + nAttack = 28; + } + + if (nClass >= 70) + { + nAC = 30; + nAttack = 30; + } + + if (nClass >= 75) + { + nAC = 32; + nAttack = 32; + } + + if (nClass >= 80) + { + nAC = 34; + nAttack = 34; + } + + + + + + + + +/* + //codigo antigo prc 2.2c + + if (GetLocalInt(oPC, "KOTMCCombat") == TRUE) return; + + effect eAttack = EffectAttackIncrease(nAttack); + effect eAC = EffectACIncrease(nAC); + + VersusRacialTypeEffect(eAttack, nRace); + VersusRacialTypeEffect(eAC, nRace); + + SetLocalInt(oPC, "KOTMCCombat", TRUE); + DelayCommand(RoundsToSeconds(nDur), DeleteLocalInt(oPC, "KOTMCCombat")); + */ + + + +/* //codigo prc 3.5 que nao funciona + + if (GetLocalInt(oPC, "KOTMCCombat") == TRUE) return; + + effect eAttack = EffectAttackIncrease(nAttack); + effect eAC = EffectACIncrease(nAC); + + eAttack = VersusRacialTypeEffect(eAttack, nRace); + eAC = VersusRacialTypeEffect(eAC, nRace); + + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eAttack, oPC, RoundsToSeconds(nDur)); + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eAC, oPC, RoundsToSeconds(nDur)); + + SetLocalInt(oPC, "KOTMCCombat", TRUE); + DelayCommand(RoundsToSeconds(nDur), DeleteLocalInt(oPC, "KOTMCCombat")); + + */ + + + if (GetLocalInt(oPC, "KOTMCCombat") == TRUE) return; + + //effect eVis = EffectVisualEffect(VFX_IMP_GOOD_HELP); + effect eAC = EffectACIncrease(nAC); + + eAC = VersusRacialTypeEffect(eAC, nRace); + + effect eAttack = EffectAttackIncrease(nAttack); + + eAttack = VersusRacialTypeEffect(eAttack, nRace); + + + // effect eImmune = EffectImmunity(IMMUNITY_TYPE_MIND_SPELLS); + // eImmune = VersusAlignmentEffect(eImmune,ALIGNMENT_ALL, nAlign); + effect eDur = EffectVisualEffect(VFX_DUR_PROTECTION_GOOD_MINOR); + effect eDur2 = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE); + + effect eLink = EffectLinkEffects( eAC, eAttack); + // eLink = EffectLinkEffects(eLink, eAC); + eLink = EffectLinkEffects(eLink, eDur); + eLink = EffectLinkEffects(eLink, eDur2); + + //Apply the VFX impact and effects + //Fire cast spell at event for the specified target + // SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_PROTECTION_FROM_EVIL, FALSE)); + //SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, HoursToSeconds(nDur),TRUE,-1,nClass); + + SetLocalInt(oPC, "KOTMCCombat", TRUE); + DelayCommand(RoundsToSeconds(nDur), DeleteLocalInt(oPC, "KOTMCCombat")); + + + + + +} diff --git a/_haks/poa_exp_abilities/psi_sk_manifmbld.ncs b/_haks/poa_exp_abilities/psi_sk_manifmbld.ncs new file mode 100644 index 0000000..b9fee17 Binary files /dev/null and b/_haks/poa_exp_abilities/psi_sk_manifmbld.ncs differ diff --git a/_haks/poa_exp_abilities/psi_sk_manifmbld.nss b/_haks/poa_exp_abilities/psi_sk_manifmbld.nss new file mode 100644 index 0000000..866382d --- /dev/null +++ b/_haks/poa_exp_abilities/psi_sk_manifmbld.nss @@ -0,0 +1,430 @@ +//:://///////////////////////////////////////////// +//:: Soulknife: Manifest Mindblade +//:: psi_sk_manifmbld +//:://///////////////////////////////////////////// +/** @file Soulknife: Manifest Mindblade + Handles creation of mindblades. + + + @author Ornedan + @date Created - 07.04.2005 + @date Modified - 01.09.2005 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_combat" +#include "psi_inc_soulkn" + +int LOCAL_DEBUG = DEBUG; + +////////////////////////////////////////////////// +/* Function prototypes */ +////////////////////////////////////////////////// + +// Handles adding in the enhancement bonuses and specials +// ====================================================== +// oMbld mindblade item +void BuildMindblade(object oPC, object oMbld, int nMbldType); + + +void main() +{ + if(LOCAL_DEBUG) DoDebug("Starting psi_sk_manifmbld"); + object oPC = OBJECT_SELF; + object oMbld; + int nMbldType = GetPersistantLocalInt(oPC, MBLADE_SHAPE); + int nHand = GetPersistantLocalInt(oPC, MBLADE_HAND); + + // If this is the very first time a PC is manifesting a mindblade, initialise the hand to be main hand + if(!nHand) + { + nHand = INVENTORY_SLOT_RIGHTHAND; + SetPersistantLocalInt(oPC, MBLADE_HAND, INVENTORY_SLOT_RIGHTHAND); + } + + // Generate the item based on type selection + switch(nMbldType) + { + case MBLADE_SHAPE_DUAL_SHORTSWORDS: + //SendMessageToPC(oPC, "psi_sk_manifmbld: First of dual shortswords - "); + // The first of dual mindblades always goes to mainhand + nHand = INVENTORY_SLOT_RIGHTHAND; + case MBLADE_SHAPE_SHORTSWORD: + //SendMessageToPC(oPC, "psi_sk_manifmbld: Created shortsword"); + oMbld = CreateItemOnObject("prc_sk_mblade_ss", oPC); + break; + case MBLADE_SHAPE_LONGSWORD: + //SendMessageToPC(oPC, "psi_sk_manifmbld: Created longsword"); + oMbld = CreateItemOnObject("prc_sk_mblade_ls", oPC); + break; + case MBLADE_SHAPE_BASTARDSWORD: + //SendMessageToPC(oPC, "psi_sk_manifmbld: Created bastardsword"); + oMbld = CreateItemOnObject("prc_sk_mblade_bs", oPC); + break; + case MBLADE_SHAPE_RANGED: + //SendMessageToPC(oPC, "psi_sk_manifmbld: Created throwing mindblade"); + // Create one more mindblade than needed in order to bypass the BW bug of the last thrown weapon in a stack no longer being a valid object in the OnHitCast script + oMbld = CreateItemOnObject("prc_sk_mblade_th", oPC, (GetHasFeat(FEAT_MULTIPLE_THROW, oPC) ? GetMainHandAttacks(oPC) : 1) + 1); + break; + + default: + WriteTimestampedLogEntry("Invalid value in MBLADE_SHAPE for " + GetName(oPC) + ": " + IntToString(nMbldType)); + return; + } + + // Construct the bonuses + /*DelayCommand(0.25f, */BuildMindblade(oPC, oMbld, nMbldType)/*)*/; + + // check for existing one before equipping and destroy + if(GetStringLeft(GetTag(GetItemInSlot(nHand, oPC)), 14) == "prc_sk_mblade_") + MyDestroyObject(GetItemInSlot(nHand, oPC)); + // Force equip + AssignCommand(oPC, ActionEquipItem(oMbld, nHand)); + + // Hook the mindblade into OnHit event + AddEventScript(oMbld, EVENT_ITEM_ONHIT, "psi_sk_onhit", TRUE, FALSE); + + // Make even more sure the mindblade cannot be dropped + SetDroppableFlag(oMbld, FALSE); + SetItemCursedFlag(oMbld, TRUE); + + // Generate the second mindblade if set to dual shortswords + if(nMbldType == MBLADE_SHAPE_DUAL_SHORTSWORDS) + { + oMbld = CreateItemOnObject("prc_sk_mblade_ss", oPC); + + //SendMessageToPC(oPC, "psi_sk_manifmbld: Created second mindblade - is valid: " + (GetIsObjectValid(oMbld) ? "TRUE":"FALSE")); + + DelayCommand(0.5f, BuildMindblade(oPC, oMbld, nMbldType)); // Delay a bit to prevent a lag spike + //BuildMindblade(oPC, oMbld, nMbldType); + AssignCommand(oPC, ActionDoCommand(ActionEquipItem(oMbld, INVENTORY_SLOT_LEFTHAND))); + //AssignCommand(oPC, ActionEquipItem(oMbld, INVENTORY_SLOT_LEFTHAND)); + AddEventScript(oMbld, EVENT_ITEM_ONHIT, "psi_sk_onhit", TRUE, FALSE); + + SetDroppableFlag(oMbld, FALSE); + SetItemCursedFlag(oMbld, TRUE); + } + // Not dual-wielding, so delete the second mindblade if they have such + else + { + // Get the other hand + int nOtherHand; + if(nHand == INVENTORY_SLOT_RIGHTHAND) + nOtherHand = INVENTORY_SLOT_LEFTHAND; + else + nOtherHand = INVENTORY_SLOT_RIGHTHAND; + // Check it's contents and take action if necessary + if(GetStringLeft(GetTag(GetItemInSlot(nOtherHand, oPC)), 14) == "prc_sk_mblade_") + MyDestroyObject(GetItemInSlot(nOtherHand, oPC)); + } + +/* Now in their own script - psi_sk_clseval + // Hook psi_sk_event to the mindblade-related events it handles + AddEventScript(oPC, EVENT_ONPLAYEREQUIPITEM, "psi_sk_event", TRUE, FALSE); + AddEventScript(oPC, EVENT_ONPLAYERUNEQUIPITEM, "psi_sk_event", TRUE, FALSE); + AddEventScript(oPC, EVENT_ONUNAQUIREITEM, "psi_sk_event", TRUE, FALSE); + AddEventScript(oPC, EVENT_ONPLAYERDEATH, "psi_sk_event", TRUE, FALSE); + AddEventScript(oPC, EVENT_ONPLAYERLEVELDOWN, "psi_sk_event", TRUE, FALSE); +*/ + if(LOCAL_DEBUG) DelayCommand(0.01f, DoDebug("Finished psi_sk_manifmbld")); // Wrap in delaycommand so that the game clock gets to update for the purposes of WriteTimestampedLogEntry +} + + +void BuildMindblade(object oPC, object oMbld, int nMbldType) +{ + /* Add normal stuff and VFX */ + /// Add enhancement bonus + int nSKLevel = GetLevelByClass(CLASS_TYPE_SOULKNIFE, oPC); +/* if(GetHasFeat(FEAT_PRACTICED_MIND_BLADE, oPC)){ + int nNonSoulKnifeLevels = GetHitDice(oPC) - nSKLevel; + nSKLevel += min(nNonSoulKnifeLevels, 4); + } */ + int nEnh; + // The first actual enhancement bonus is gained at L4, but the mindblade needs to + // have enhancement right from the beginning to pierce DR as per being magical + if(nSKLevel < 4) + { + nEnh = 1; + // The mindblade being magical should grant no benefits to attack or damage + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyAttackPenalty(1), oMbld); + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyDamagePenalty(1), oMbld); + } + else + { + nEnh = nSKLevel <= 20 ? + nSKLevel / 4: // Boni are granget +1 / 4 levels pre-epic + (nSKLevel - 20) / 5 + 5; // Boni are granted +1 / 5 levels epic + // Dual mindblades have one lower bonus + nEnh -= nMbldType == MBLADE_SHAPE_DUAL_SHORTSWORDS ? 1 : 0; + } + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyEnhancementBonus(nEnh), oMbld); + // In case of bastard sword, store the enhancement bonus for later for use in the 2-h handling code + if(nMbldType == MBLADE_SHAPE_BASTARDSWORD) + SetLocalInt(oMbld, "PRC_SK_BSwd_EnhBonus", nEnh); + + // Handle Greater Weapon Focus (mindblade) here. It grants +1 to attack with any shape of mindblade. + // Because of stacking issues, the actual value granted is enhancement bonus + 1. + if(GetHasFeat(FEAT_GREATER_WEAPON_FOCUS_MINDBLADE, oPC)) + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyAttackBonus(nEnh + 1), oMbld); + + /// Add in VFX + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyVisualEffect(GetAlignmentGoodEvil(oPC) == ALIGNMENT_GOOD ? ITEM_VISUAL_HOLY : + GetAlignmentGoodEvil(oPC) == ALIGNMENT_EVIL ? ITEM_VISUAL_EVIL : + ITEM_VISUAL_SONIC + ), oMbld); + + /* Add in common feats */ + //string sTag = GetTag(oMbld); + // For the purposes of the rest of this function, dual shortswords is the same as single shortsword + if(nMbldType == MBLADE_SHAPE_DUAL_SHORTSWORDS) nMbldType = MBLADE_SHAPE_SHORTSWORD; + + // Weapon Focus + /* Every soulknife has this, so it's automatically on the weapons now. Uncomment if for some reason another class with the mindblade class feature is added + if(GetHasFeat(FEAT_WEAPON_FOCUS_MINDBLADE, oPC)) + AddItemProperty(DURATION_TYPE_PERMANENT, PRCItemPropertyBonusFeat(nMbldType == MBLADE_SHAPE_SHORTSWORD ? IP_CONST_FEAT_WEAPON_FOCUS_SHORT_SWORD : + nMbldType == MBLADE_SHAPE_LONGSWORD ? IP_CONST_FEAT_WEAPON_FOCUS_LONG_SWORD : + nMbldType == MBLADE_SHAPE_BASTARDSWORD ? IP_CONST_FEAT_WEAPON_FOCUS_BASTARD_SWORD : + IP_CONST_FEAT_WEAPON_FOCUS_THROWING_AXE + ), oMbld);*/ + // Improved Critical + if(GetHasFeat(FEAT_IMPROVED_CRITICAL_MINDBLADE, oPC)) + AddItemProperty(DURATION_TYPE_PERMANENT, PRCItemPropertyBonusFeat(nMbldType == MBLADE_SHAPE_SHORTSWORD ? IP_CONST_FEAT_IMPROVED_CRITICAL_SHORT_SWORD : + nMbldType == MBLADE_SHAPE_LONGSWORD ? IP_CONST_FEAT_IMPROVED_CRITICAL_LONG_SWORD : + nMbldType == MBLADE_SHAPE_BASTARDSWORD ? IP_CONST_FEAT_IMPROVED_CRITICAL_BASTARD_SWORD : + IP_CONST_FEAT_IMPROVED_CRITICAL_THROWING_AXE + ), oMbld); + // Overwhelming Critical + if(GetHasFeat(FEAT_OVERWHELMING_CRITICAL_MINDBLADE, oPC)) + AddItemProperty(DURATION_TYPE_PERMANENT, PRCItemPropertyBonusFeat(nMbldType == MBLADE_SHAPE_SHORTSWORD ? IP_CONST_FEAT_EPIC_OVERWHELMING_CRITICAL_SHORTSWORD : + nMbldType == MBLADE_SHAPE_LONGSWORD ? IP_CONST_FEAT_EPIC_OVERWHELMING_CRITICAL_LONGSWORD : + nMbldType == MBLADE_SHAPE_BASTARDSWORD ? IP_CONST_FEAT_EPIC_OVERWHELMING_CRITICAL_BASTARDSWORD : + IP_CONST_FEAT_EPIC_OVERWHELMING_CRITICAL_THROWINGAXE + ), oMbld); + // Devastating Critical + if(GetHasFeat(FEAT_DEVASTATING_CRITICAL_MINDBLADE, oPC)) + AddItemProperty(DURATION_TYPE_PERMANENT, PRCItemPropertyBonusFeat(nMbldType == MBLADE_SHAPE_SHORTSWORD ? IP_CONST_FEAT_EPIC_DEVASTATING_CRITICAL_SHORTSWORD : + nMbldType == MBLADE_SHAPE_LONGSWORD ? IP_CONST_FEAT_EPIC_DEVASTATING_CRITICAL_LONGSWORD : + nMbldType == MBLADE_SHAPE_BASTARDSWORD ? IP_CONST_FEAT_EPIC_DEVASTATING_CRITICAL_BASTARDSWORD : + IP_CONST_FEAT_EPIC_DEVASTATING_CRITICAL_THROWINGAXE + ), oMbld); + // Weapon Specialization + if(GetHasFeat(FEAT_WEAPON_SPECIALIZATION_MINDBLADE, oPC)) + AddItemProperty(DURATION_TYPE_PERMANENT, PRCItemPropertyBonusFeat(nMbldType == MBLADE_SHAPE_SHORTSWORD ? IP_CONST_FEAT_WEAPON_SPECIALIZATION_SHORT_SWORD : + nMbldType == MBLADE_SHAPE_LONGSWORD ? IP_CONST_FEAT_WEAPON_SPECIALIZATION_LONG_SWORD : + nMbldType == MBLADE_SHAPE_BASTARDSWORD ? IP_CONST_FEAT_WEAPON_SPECIALIZATION_BASTARD_SWORD : + IP_CONST_FEAT_WEAPON_SPECIALIZATION_THROWING_AXE + ), oMbld); + // Epic Weapon Focus + if(GetHasFeat(FEAT_EPIC_WEAPON_FOCUS_MINDBLADE, oPC)) + AddItemProperty(DURATION_TYPE_PERMANENT, PRCItemPropertyBonusFeat(nMbldType == MBLADE_SHAPE_SHORTSWORD ? IP_CONST_FEAT_EPIC_WEAPON_FOCUS_SHORT_SWORD : + nMbldType == MBLADE_SHAPE_LONGSWORD ? IP_CONST_FEAT_EPIC_WEAPON_FOCUS_LONG_SWORD : + nMbldType == MBLADE_SHAPE_BASTARDSWORD ? IP_CONST_FEAT_EPIC_WEAPON_FOCUS_BASTARD_SWORD : + IP_CONST_FEAT_EPIC_WEAPON_FOCUS_THROWING_AXE + ), oMbld); + // Epic Weapon Specialization + if(GetHasFeat(FEAT_EPIC_WEAPON_SPECIALIZATION_MINDBLADE, oPC)) + AddItemProperty(DURATION_TYPE_PERMANENT, PRCItemPropertyBonusFeat(nMbldType == MBLADE_SHAPE_SHORTSWORD ? IP_CONST_FEAT_EPIC_WEAPON_SPECIALIZATION_SHORT_SWORD : + nMbldType == MBLADE_SHAPE_LONGSWORD ? IP_CONST_FEAT_EPIC_WEAPON_SPECIALIZATION_LONG_SWORD : + nMbldType == MBLADE_SHAPE_BASTARDSWORD ? IP_CONST_FEAT_EPIC_WEAPON_SPECIALIZATION_BASTARD_SWORD : + IP_CONST_FEAT_EPIC_WEAPON_SPECIALIZATION_THROWING_AXE + ), oMbld); + // Weapon of Choice + if(GetHasFeat(FEAT_WEAPON_OF_CHOICE_MINDBLADE, oPC) && nMbldType != MBLADE_SHAPE_RANGED) + AddItemProperty(DURATION_TYPE_PERMANENT, PRCItemPropertyBonusFeat(nMbldType == MBLADE_SHAPE_SHORTSWORD ? IP_CONST_FEAT_WEAPON_OF_CHOICE_SHORTSWORD : + nMbldType == MBLADE_SHAPE_LONGSWORD ? IP_CONST_FEAT_WEAPON_OF_CHOICE_LONGSWORD : + nMbldType == MBLADE_SHAPE_BASTARDSWORD ? IP_CONST_FEAT_WEAPON_OF_CHOICE_BASTARDSWORD : + -1 // This shouldn't ever be reached + ), oMbld); + // Bladewind: Due to some moron @ BioWare, calls to DoWhirlwindAttack() do not do anything if one + // does not have the feat. Therefore, we need to grant it as a bonus feat on the blade. + if(GetHasFeat(FEAT_BLADEWIND, oPC)) + AddItemProperty(DURATION_TYPE_PERMANENT, PRCItemPropertyBonusFeat(IP_CONST_FEAT_WHIRLWIND), oMbld); + + + /* Apply the enhancements */ + int nFlags = GetPersistantLocalInt(oPC, MBLADE_FLAGS); + int bLight = FALSE; + + if(nFlags & MBLADE_FLAG_LUCKY) + { + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyCastSpell(IP_CONST_CASTSPELL_MINDBLADE_LUCKY, IP_CONST_CASTSPELL_NUMUSES_1_USE_PER_DAY), oMbld); + } + if(nFlags & MBLADE_FLAG_DEFENDING) + { + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyACBonus(2+nEnh), oMbld); //adicionado o bonus de enhancement para o ac + } + if(nFlags & MBLADE_FLAG_KEEN) + { + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyKeen(), oMbld); + } + /*if(nFlags & MBLADE_FLAG_VICIOUS) + { OnHit + }*/ + if(nFlags & MBLADE_FLAG_PSYCHOKINETIC && !(nFlags & MBLADE_FLAG_PSYCHOKINETICBURST)) // Only Psychokinetic + { + if(nSKLevel <= 10) + { + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_MAGICAL, IP_CONST_DAMAGEBONUS_1d4), oMbld); + bLight = TRUE; + } + if(nSKLevel >= 11 && nSKLevel <= 20) + { + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_MAGICAL, IP_CONST_DAMAGEBONUS_1d6), oMbld); + bLight = TRUE; + } + if(nSKLevel >= 21 && nSKLevel <= 30) + { + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_MAGICAL, IP_CONST_DAMAGEBONUS_1d8), oMbld); + bLight = TRUE; + } + if(nSKLevel >= 31 && nSKLevel <= 40) + { + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_MAGICAL, IP_CONST_DAMAGEBONUS_1d10), oMbld); + bLight = TRUE; + } + if(nSKLevel >= 41) + { + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_MAGICAL, IP_CONST_DAMAGEBONUS_1d12), oMbld); + bLight = TRUE; + } + + } + if(nFlags & MBLADE_FLAG_MIGHTYCLEAVING) + { + if(GetHasFeat(FEAT_CLEAVE, oPC)) + AddItemProperty(DURATION_TYPE_PERMANENT, PRCItemPropertyBonusFeat(IP_CONST_FEAT_GREAT_CLEAVE), oMbld); + else + AddItemProperty(DURATION_TYPE_PERMANENT, PRCItemPropertyBonusFeat(IP_CONST_FEAT_CLEAVE), oMbld); + } + if(nFlags & MBLADE_FLAG_COLLISION) + { + if(nSKLevel <= 10) + { + if(LOCAL_DEBUG) DoDebug("Added Collision damage", oPC); + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_BLUDGEONING, IP_CONST_DAMAGEBONUS_5), oMbld); + } + if(nSKLevel >= 11 && nSKLevel <= 20) + { + if(LOCAL_DEBUG) DoDebug("Added Collision damage", oPC); + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_BLUDGEONING, IP_CONST_DAMAGEBONUS_6), oMbld); + } + if(nSKLevel >= 21 && nSKLevel <= 30) + { + if(LOCAL_DEBUG) DoDebug("Added Collision damage", oPC); + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_BLUDGEONING, IP_CONST_DAMAGEBONUS_7), oMbld); + } + if(nSKLevel >= 31 && nSKLevel <= 40) + { + if(LOCAL_DEBUG) DoDebug("Added Collision damage", oPC); + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_BLUDGEONING, IP_CONST_DAMAGEBONUS_8), oMbld); + } + if(nSKLevel >= 41 && nSKLevel <= 50) + { + if(LOCAL_DEBUG) DoDebug("Added Collision damage", oPC); + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_BLUDGEONING, IP_CONST_DAMAGEBONUS_9), oMbld); + } + if(nSKLevel >= 51 ) + { + if(LOCAL_DEBUG) DoDebug("Added Collision damage", oPC); + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_BLUDGEONING, IP_CONST_DAMAGEBONUS_10), oMbld); + } + } + /*if(nFlags & MBLADE_FLAG_MINDCRUSHER ) + { OnHit + }*/ + if(nFlags & MBLADE_FLAG_PSYCHOKINETICBURST && !(nFlags & MBLADE_FLAG_PSYCHOKINETIC)) // Only Psychokinetic Burst + { + if(nSKLevel <= 10) + { + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_MAGICAL, IP_CONST_DAMAGEBONUS_1d4), oMbld); + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyMassiveCritical(IP_CONST_DAMAGEBONUS_1d6), oMbld); + bLight = TRUE; + } + if(nSKLevel >= 11 && nSKLevel <= 20) + { + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_MAGICAL, IP_CONST_DAMAGEBONUS_1d6), oMbld); + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyMassiveCritical(IP_CONST_DAMAGEBONUS_1d8), oMbld); + bLight = TRUE; + } + if(nSKLevel >= 21 && nSKLevel <= 30) + { + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_MAGICAL, IP_CONST_DAMAGEBONUS_1d8), oMbld); + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyMassiveCritical(IP_CONST_DAMAGEBONUS_1d10), oMbld); + bLight = TRUE; + } + if(nSKLevel >= 31 && nSKLevel <= 40) + { + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_MAGICAL, IP_CONST_DAMAGEBONUS_1d10), oMbld); + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyMassiveCritical(IP_CONST_DAMAGEBONUS_1d12), oMbld); + bLight = TRUE; + } + if(nSKLevel >= 41) + { + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_MAGICAL, IP_CONST_DAMAGEBONUS_1d12), oMbld); + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyMassiveCritical(IP_CONST_DAMAGEBONUS_2d8), oMbld); + bLight = TRUE; + } + } + /*if(nFlags & MBLADE_FLAG_SUPPRESSION) + { OnHit + }*/ + /*if(nFlags & MBLADE_FLAG_WOUNDING) + { OnHit + }*/ + /*if(nFlags & MBLADE_FLAG_DISRUPTING) + { OnHit + } + if(nFlags & MBLADE_FLAG_SOULBREAKER) + { + }*/ + if((nFlags & MBLADE_FLAG_PSYCHOKINETICBURST) && (nFlags & MBLADE_FLAG_PSYCHOKINETIC)) // Both Psychokinetic and Psychokinetic Burst + { + if(nSKLevel <= 10) + { + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_MAGICAL, IP_CONST_DAMAGEBONUS_2d4), oMbld); + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyMassiveCritical(IP_CONST_DAMAGEBONUS_1d6), oMbld); + bLight = TRUE; + } + if(nSKLevel >= 11 && nSKLevel <=20) + { + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_MAGICAL, IP_CONST_DAMAGEBONUS_2d6), oMbld); + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyMassiveCritical(IP_CONST_DAMAGEBONUS_1d8), oMbld); + bLight = TRUE; + } + if(nSKLevel >= 21 && nSKLevel <=30) + { + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_MAGICAL, IP_CONST_DAMAGEBONUS_2d8), oMbld); + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyMassiveCritical(IP_CONST_DAMAGEBONUS_1d10), oMbld); + bLight = TRUE; + } + if(nSKLevel >= 31 && nSKLevel <=40) + { + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_MAGICAL, IP_CONST_DAMAGEBONUS_2d10), oMbld); + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyMassiveCritical(IP_CONST_DAMAGEBONUS_1d12), oMbld); + bLight = TRUE; + } + if(nSKLevel >= 41 && nSKLevel <=50) + { + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_MAGICAL, IP_CONST_DAMAGEBONUS_2d12), oMbld); + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyMassiveCritical(IP_CONST_DAMAGEBONUS_2d8), oMbld); + bLight = TRUE; + } + if(nSKLevel >= 51 && nSKLevel <=60) + { + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_MAGICAL, IP_CONST_DAMAGEBONUS_2d12), oMbld); + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyMassiveCritical(IP_CONST_DAMAGEBONUS_2d10), oMbld); + bLight = TRUE; + } + if(nSKLevel >= 61) + { + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_MAGICAL, IP_CONST_DAMAGEBONUS_2d12), oMbld); + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyMassiveCritical(IP_CONST_DAMAGEBONUS_2d12), oMbld); + bLight = TRUE; + } + + } + + if(bLight) + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyLight(IP_CONST_LIGHTBRIGHTNESS_NORMAL, IP_CONST_LIGHTCOLOR_WHITE), oMbld); +} \ No newline at end of file diff --git a/_haks/poa_exp_abilities/ws_inc_shifter.nss b/_haks/poa_exp_abilities/ws_inc_shifter.nss new file mode 100644 index 0000000..65ad7e5 --- /dev/null +++ b/_haks/poa_exp_abilities/ws_inc_shifter.nss @@ -0,0 +1,546 @@ +//::////////////////////////////// +//:: Created By: Iznoghoud +//:: Last modified: January 19 2004 +/* +What this script changes: +- Melee Weapon properties now carry over to the unarmed forms' claws and bite +attacks. +1) Now, items with an AC bonus (or penalty) carry over to the shifted form as +the correct type. This means if you wear an amulet of natural armor +4, and a +cloak of protection +5, and you shift to a form that gets all item properties +carried over, you will have the +4 natural armor bonus from the ammy, as well as +the +5 deflection bonus from the cloak. No longer will the highest one override +all the other AC bonuses even if they are a different type. +2) Other "stackable" item properties, like ability bonuses, skill bonuses and +saving throw bonuses, now correctly add up in shifted form. This means if you +have a ring that gives +2 strength, and a ring with +3 strength, and you shift +into a drow warrior, you get +5 strength in shifted form, where you used to get +only +3. (the highest) + + +This file contains the code that handles stacking item properties for the improved +Shifter and Druid wildshape scripts. +1 February 2004: +Added an option to allow or disallow AC stacking of different types. +*/ +//::////////////////////////////// + +//******** Begin Options ********* + +//***************** GENERAL OPTIONS ********************* + +// Set this to TRUE to allow differing types of AC bonuses on items to stack. +// (ie armor, deflection, natural) Warning: This can give shifters who multiclass +// with monk a godly AC depending on your module. +// With FALSE, AC will transfer as it did with the default Bioware shifter script. +const int GW_ALLOW_AC_STACKING = TRUE; + +//***************** FOR SHIFTER SHAPES ****************** + +// Set this to TRUE to merge properties of boots/rings/ammy/cloak/bracers regardless +// of what polymorph.2da indicates. +// FALSE uses the polymorph.2da to decide whether to copy +const int GW_ALWAYS_COPY_ITEM_PROPS = TRUE;//FALSE; + +// Set this to TRUE to merge armor/helmet properties regardless of what polymorph.2da indicates. +// FALSE uses the polymorph.2da to decide whether to copy +const int GW_ALWAYS_COPY_ARMOR_PROPS = TRUE; + +// - Set this to 1 to copy over weapon properties to claw/bite attacks. +// - Set this to 2 to copy over glove properties to claw/bite attacks. +// - Set this to 3 to copy over from either weapon or gloves depending on whether a +// weapon was worn at the time of shifting. +// - Set this to any other value ( eg 0 ) to not copy over anything to claw/bite attacks. +const int GW_COPY_WEAPON_PROPS_TO_UNARMED = 3; + + +//***************** FOR DRUID SHAPES ******************** +// These options do nothing if you have not imported the improved Druid wild- +// and elemental shape scripts + +// Set this to TRUE to merge properties of boots/rings/ammy/cloak/bracers regardless +// of what polymorph.2da indicates. +// FALSE uses the polymorph.2da to decide whether to copy +const int WS_ALWAYS_COPY_ITEM_PROPS = TRUE;//FALSE; + +// Set this to TRUE to merge armor/helmet properties regardless of what polymorph.2da indicates. +// FALSE uses the polymorph.2da to decide whether to copy +const int WS_ALWAYS_COPY_ARMOR_PROPS = TRUE; + +// - Set this to 1 to copy over weapon properties to claw/bite attacks. +// - Set this to 2 to copy over glove properties to claw/bite attacks. +// - Set this to 3 to copy over from either weapon or gloves depending on whether a +// weapon was worn at the time of shifting. +// - Set this to any other value ( eg 0 ) to not copy over anything to claw/bite attacks. +const int WS_COPY_WEAPON_PROPS_TO_UNARMED = 3; + +//******** End Options *********** + +// Includes for various shifter and item related functions +#include "prc_x2_itemprop" +#include "x2_inc_shifter" +#include "prc_inc_combat" + +// **** Begin Function prototypes **** +// Copies oOld's Properties to oNew, but only properties that do not stack +// with properties of the same type. If oOld is a weapon, then bWeapon must be TRUE. +void WildshapeCopyNonStackProperties(object oOld, object oNew, int bWeapon = FALSE); +// Returns TRUE if ip is an item property that will stack with other properties +// of the same type: Ability, AC, Saves, Skills. +int GetIsStackingProperty(itemproperty ip); +// Returns the AC bonus type of oItem: AC_*_BONUS +int GetItemACType(object oItem); +// Looks for Stackable Properties on oItem, and sets local variables to count the total bonus. +// Also links any found AC bonuses/penalties to ePoly. +effect ExamineStackableProperties (object oPC, effect ePoly, object oItem ); +// if bItems is TRUE, Adds the stackable properties on all the objects given to ePoly. +// if bArmor is TRUE, Adds the stackable properties on armor and helmet to ePoly. +effect AddStackablePropertiesToPoly ( object oPC, effect ePoly, int bWeapon, int bItems, int bArmor, object oArmorOld, object oRing1Old, + object oRing2Old, object oAmuletOld, object oCloakOld, object oBracerOld, + object oBootsOld, object oBeltOld, object oHelmetOld, object oShield, object oWeapon, object oHideOld); +// Returns the spell that applied a Polymorph Effect currently on the player. +// -1 if it was no spell, -2 if no polymorph effect found. +int ScanForPolymorphEffect(object oPC); + +// Converts a number from iprp_damagetype.2da to the corresponding +// DAMAGE_TYPE_* constants. +int ConvertNumToDamTypeConstant ( int iItemDamType ); + +// Converts a number from iprp_immuncost.2da to the corresponding percentage of immunity +int ConvertNumToImmunePercentage ( int iImmuneCost ); + +// Special function to copy over weapon properties, which deals with copying +// over ranged weapons correctly. +void WildshapeCopyWeaponProperties(object oPC, object oOld, object oNew); + +// Returns TRUE if oItem is a creature claw or bite. +int WS_GetIsCreatureWeapon( object oItem ); + +// **** End Function prototypes **** + +// **** Begin Functions, added by Iznoghoud **** +// Copies oOld's Properties to oNew, but only properties that do not stack +// with properties of the same type. If oOld is a weapon, then bWeapon must be TRUE. +void WildshapeCopyNonStackProperties(object oOld, object oNew, int bWeapon = FALSE) { + + if (GetIsObjectValid(oOld) && GetIsObjectValid(oNew)) + { + itemproperty ip = GetFirstItemProperty(oOld); + while (GetIsItemPropertyValid(ip)) // Loop through all the item properties. + { + if (bWeapon) // If a weapon, then we must make sure not to transfer between ranged and non-ranged weapons! + { + if (GetWeaponRanged(oOld) == GetWeaponRanged(oNew) ) + { + AddItemProperty(DURATION_TYPE_PERMANENT,ip,oNew); + } + } + else + { + // If not a stacking property, copy over the property. + // Dont copy on hit cast spell property unless the target is a claw/bite. + if ( !GetIsStackingProperty(ip) && ( !(GetItemPropertyType(ip) == ITEM_PROPERTY_ONHITCASTSPELL) || GetIsCreatureWeapon(oNew) ) ) + AddItemProperty(DURATION_TYPE_PERMANENT,ip,oNew); + } + ip = GetNextItemProperty(oOld); // Get next property + } + } +} +// Returns TRUE if ip is an item property that will stack with other properties +// of the same type: Ability, AC, Saves, Skills. +int GetIsStackingProperty(itemproperty ip) { + int iType = GetItemPropertyType(ip); + if ( iType == 0 || ( GW_ALLOW_AC_STACKING && (iType == 1) ) || // Bonus to Ability, AC + iType == 27 || ( GW_ALLOW_AC_STACKING && (iType == 28) ) || // Penalty to Ability, AC + iType == 40 || iType == 41 || // Bonus to saves (against element/universal, or fort/reflex/will) + iType == 49 || iType == 50 || // Penalty to saves (against element/universal, or fort/reflex/will) + iType == 52 || iType == 29 || // Skill Bonus, Penalty + iType == 51 || // Regeneration + iType == 20 || iType == 24 // Damage Immunity and Vulnerability + ) + return TRUE; + else + return FALSE; +} +// Returns the AC bonus type of oItem: AC_*_BONUS +int GetItemACType(object oItem) { + switch(GetBaseItemType(oItem)) { + case BASE_ITEM_ARMOR: // These item types always get an armor ac bonus + case BASE_ITEM_BRACER: + return AC_ARMOUR_ENCHANTMENT_BONUS; + break; + case BASE_ITEM_BELT: // These item types always get a deflection ac bonus. + case BASE_ITEM_CLOAK: + case BASE_ITEM_GLOVES: // Note that gloves and bracers equip in the same inventory slot, + case BASE_ITEM_HELMET: // but do not give the same AC bonus type!!! + case BASE_ITEM_RING: + case BASE_ITEM_TORCH: + return AC_DEFLECTION_BONUS; + break; + case BASE_ITEM_BOOTS: // Only boots give a dodge ac bonus + return AC_DODGE_BONUS; + break; + case BASE_ITEM_AMULET: // Only amulets give a natural AC bonus + return AC_NATURAL_BONUS; + break; + case BASE_ITEM_LARGESHIELD: // Shields give a shield AC bonus + case BASE_ITEM_SMALLSHIELD: + case BASE_ITEM_TOWERSHIELD: + return AC_SHIELD_ENCHANTMENT_BONUS; + break; + default: // It was a weapon, or a non default item, safest to default to deflection + return AC_DEFLECTION_BONUS; + break; + }; + return AC_DEFLECTION_BONUS; // This one would seem unneccesary but it won't compile otherwise. +} +// Looks for Stackable Properties on oItem, and sets local variables to count the total bonus. +// Also links any found AC bonuses/penalties to ePoly. +effect ExamineStackableProperties ( object oPC, effect ePoly, object oItem ) +{ + if ( !GetIsObjectValid(oItem) ) // If not valid, dont do any unneccesary work. + return ePoly; + itemproperty ip = GetFirstItemProperty(oItem); + int iSubType; + effect eTemp; + while ( GetIsItemPropertyValid(ip) ) // Loop through all the item properties + { + if ( GetIsStackingProperty(ip) ) // See if it's a stacking property + { + iSubType = GetItemPropertySubType(ip); // Get the item property subtype for later use. + // This contains whether a bonus is str, dex, + // concentration skill, universal saving throws, etc. + switch ( GetItemPropertyType(ip) ) // Which type of property is it? + { + // In the case of AC modifiers, add it directly to the Polymorphing effect. + // For the other cases, set local variables on the player to + // make a sum of all the bonuses/penalties. We use local + // variables here because there are no arrays in NWScript, and + // declaring a variable for every skill, ability type and saving + // throw type in here is a little overboard. + case 0: // Ability Bonus + SetLocalInt(oPC, "ws_ability_" + IntToString(iSubType), GetLocalInt(oPC, "ws_ability_" + IntToString(iSubType)) + GetItemPropertyCostTableValue(ip) ); + break; + case 1: // AC Bonus + ePoly = EffectLinkEffects(EffectACIncrease(GetItemPropertyCostTableValue(ip),GetItemACType(oItem)), ePoly); + break; + case 27: // Ability Penalty + SetLocalInt(oPC, "ws_ability_" + IntToString(iSubType), GetLocalInt(oPC, "ws_ability_" + IntToString(iSubType)) - GetItemPropertyCostTableValue(ip) ); + break; + case 28: // AC penalty + ePoly = EffectLinkEffects(EffectACDecrease(GetItemPropertyCostTableValue(ip)), ePoly); + break; + case 52: // Skill Bonus + SetLocalInt(oPC, "ws_skill_" + IntToString(iSubType), GetLocalInt(oPC, "ws_skill_" + IntToString(iSubType)) + GetItemPropertyCostTableValue(ip) ); + break; + case 29: // Skill Penalty + SetLocalInt(oPC, "ws_skill_" + IntToString(iSubType), GetLocalInt(oPC, "ws_skill_" + IntToString(iSubType)) - GetItemPropertyCostTableValue(ip) ); + break; + case 40: // Saving Throw Bonus vs Element(or universal) + SetLocalInt(oPC, "ws_save_elem_" + IntToString(iSubType), GetLocalInt(oPC, "ws_save_elem_" + IntToString(iSubType)) + GetItemPropertyCostTableValue(ip) ); + break; + case 41: // Saving Throw Bonus specific (fort/reflex/will) + SetLocalInt(oPC, "ws_save_spec_" + IntToString(iSubType), GetLocalInt(oPC, "ws_save_spec_" + IntToString(iSubType)) + GetItemPropertyCostTableValue(ip) ); + break; + case 49: // Saving Throw Penalty vs Element(or universal) + SetLocalInt(oPC, "ws_save_elem_" + IntToString(iSubType), GetLocalInt(oPC, "ws_save_elem_" + IntToString(iSubType)) - GetItemPropertyCostTableValue(ip) ); + break; + case 50: // Saving Throw Penalty specific (fort/reflex/will) + SetLocalInt(oPC, "ws_save_spec_" + IntToString(iSubType), GetLocalInt(oPC, "ws_save_spec_" + IntToString(iSubType)) - GetItemPropertyCostTableValue(ip) ); + break; + case 51: // Regeneration + SetLocalInt(oPC, "ws_regen", GetLocalInt(OBJECT_SELF, "ws_regen") + GetItemPropertyCostTableValue(ip) ); + break; + case 20: // Damage Immunity + SetLocalInt(oPC, "ws_dam_immun_" + IntToString(iSubType), GetLocalInt(oPC, "ws_dam_immun_" + IntToString(iSubType)) + ConvertNumToImmunePercentage(GetItemPropertyCostTableValue(ip)) ); + break; + case 24: // Damage Vulnerability + SetLocalInt(oPC, "ws_dam_immun_" + IntToString(iSubType), GetLocalInt(oPC, "ws_dam_immun_" + IntToString(iSubType)) - ConvertNumToImmunePercentage(GetItemPropertyCostTableValue(ip)) ); + break; + }; + } + ip = GetNextItemProperty(oItem); + } + return ePoly; +} +// if bItems is TRUE, Adds all the stackable properties on all the objects given to ePoly. +// if bItems is FALSE, Adds only the stackable properties on armor and helmet to ePoly. +effect AddStackablePropertiesToPoly ( object oPC, effect ePoly, int bWeapon, int bItems, int bArmor, object oArmorOld, object oRing1Old, + object oRing2Old, object oAmuletOld, object oCloakOld, object oBracerOld, + object oBootsOld, object oBeltOld, object oHelmetOld, object oShield, object oWeapon, object oHideOld) +{ + if (bArmor ) // Armor properties get carried over + { + ePoly = ExamineStackableProperties ( oPC, ePoly, oArmorOld ); + ePoly = ExamineStackableProperties ( oPC, ePoly, oHelmetOld ); + ePoly = ExamineStackableProperties ( oPC, ePoly, oShield ); + ePoly = ExamineStackableProperties ( oPC, ePoly, oHideOld ); + } + if ( bItems ) // Item properties get carried over + { + ePoly = ExamineStackableProperties ( oPC, ePoly, oRing1Old ); + ePoly = ExamineStackableProperties ( oPC, ePoly, oRing2Old ); + ePoly = ExamineStackableProperties ( oPC, ePoly, oAmuletOld ); + ePoly = ExamineStackableProperties ( oPC, ePoly, oCloakOld ); + ePoly = ExamineStackableProperties ( oPC, ePoly, oBootsOld ); + ePoly = ExamineStackableProperties ( oPC, ePoly, oBeltOld ); + ePoly = ExamineStackableProperties ( oPC, ePoly, oBracerOld ); + } + // AC bonuses are attached to ePoly inside ExamineStackableProperties + int i; // This will loop over all the different ability subtypes (eg str, dex, con, etc) + int j; // This will contain the sum of the stackable bonus type we're looking at + for ( i = 0; i <= 5; i++ ) // **** Handle Ability Bonuses **** + { + j = GetLocalInt(oPC, "ws_ability_" + IntToString(i)); + // Add the sum of this ability bonus to the polymorph effect. + if ( j > 0 ) // Sum was Positive + ePoly = EffectLinkEffects(EffectAbilityIncrease(i, j), ePoly); + else if ( j < 0 ) // Sum was Negative + ePoly = EffectLinkEffects(EffectAbilityDecrease(i, -j), ePoly); + DeleteLocalInt(oPC, "ws_ability_" + IntToString(i)); + } + for ( i = 0; i <= 26; i++ ) // **** Handle Skill Bonuses **** + { + j = GetLocalInt(oPC, "ws_skill_" + IntToString(i)); + // Add the sum of this skill bonus to the polymorph effect. + if ( j > 0 ) // Sum was Positive + ePoly = EffectLinkEffects(EffectSkillIncrease(i, j), ePoly); + else if ( j < 0 ) // Sum was Negative + ePoly = EffectLinkEffects(EffectSkillDecrease(i, -j), ePoly); + DeleteLocalInt(oPC, "ws_skill_" + IntToString(i)); + } + for ( i = 0; i <= 21; i++ ) // **** Handle Saving Throw vs element Bonuses **** + { + j = GetLocalInt(oPC, "ws_save_elem_" + IntToString(i)); + // Add the sum of this saving throw bonus to the polymorph effect. + if ( j > 0 ) // Sum was Positive + ePoly = EffectLinkEffects(EffectSavingThrowIncrease(SAVING_THROW_ALL, j, i), ePoly); + else if ( j < 0 ) // Sum was Negative + ePoly = EffectLinkEffects(EffectSavingThrowDecrease(SAVING_THROW_ALL, -j, i), ePoly); + DeleteLocalInt(oPC, "ws_save_elem_" + IntToString(i)); + } + for ( i = 0; i <= 3; i++ ) // **** Handle Saving Throw specific Bonuses **** + { + j = GetLocalInt(oPC, "ws_save_spec_" + IntToString(i)); + // Add the sum of this saving throw bonus to the polymorph effect. + if ( j > 0 ) // Sum was Positive + ePoly = EffectLinkEffects(EffectSavingThrowIncrease(i, j), ePoly); + else if ( j < 0 ) // Sum was Negative + ePoly = EffectLinkEffects(EffectSavingThrowDecrease(i, -j), ePoly); + DeleteLocalInt(oPC, "ws_save_spec_" + IntToString(i)); + } + j = GetLocalInt(oPC, "ws_regen"); + if ( j > 0 ) + { + ePoly = EffectLinkEffects(EffectRegenerate(j, 6.0), ePoly); + DeleteLocalInt(oPC, "ws_regen" ); + } + for ( i = 0; i <= 13; i++ ) // **** Handle Damage Immunity and Vulnerability **** + { + j = GetLocalInt(oPC, "ws_dam_immun_" + IntToString(i)); + // Add the sum of this Damage Immunity/Vulnerability to the polymorph effect. + if ( j > 0 ) // Sum was Positive + ePoly = EffectLinkEffects(EffectDamageImmunityIncrease(ConvertNumToDamTypeConstant ( i ), j), ePoly); + else if ( j < 0 ) // Sum was Negative + ePoly = EffectLinkEffects(EffectDamageImmunityDecrease(ConvertNumToDamTypeConstant ( i ), -j), ePoly); + DeleteLocalInt(oPC, "ws_dam_immun_" + IntToString(i)); + } + + return ePoly; // Finally, we have the entire (possibly huge :P ) effect to be applied to the shifter. +} + +// Returns the spell that applied a Polymorph Effect currently on the player. +// -1 if it was no spell, -2 if no polymorph effect found. +int ScanForPolymorphEffect(object oPC) +{ + effect eEffect = GetFirstEffect(oPC); + while ( GetIsEffectValid(eEffect) ) + { + if ( GetEffectType( eEffect ) == EFFECT_TYPE_POLYMORPH ) + { + return GetEffectSpellId(eEffect); + } + eEffect = GetNextEffect(oPC); + } + return -2; +} + +// Converts a number from iprp_damagetype.2da to the corresponding +// DAMAGE_TYPE_* constants. +int ConvertNumToDamTypeConstant ( int iItemDamType ) +{ + switch ( iItemDamType ) + { + case 0: + return DAMAGE_TYPE_BLUDGEONING; + break; + case 1: + return DAMAGE_TYPE_PIERCING; + break; + case 2: + return DAMAGE_TYPE_SLASHING; + break; + case 5: + return DAMAGE_TYPE_MAGICAL; + break; + case 6: + return DAMAGE_TYPE_ACID; + break; + case 7: + return DAMAGE_TYPE_COLD; + break; + case 8: + return DAMAGE_TYPE_DIVINE; + break; + case 9: + return DAMAGE_TYPE_ELECTRICAL; + break; + case 10: + return DAMAGE_TYPE_FIRE; + break; + case 11: + return DAMAGE_TYPE_NEGATIVE; + break; + case 12: + return DAMAGE_TYPE_POSITIVE; + break; + case 13: + return DAMAGE_TYPE_SONIC; + break; + default: + return DAMAGE_TYPE_POSITIVE; + break; + }; + // This one might seem unneccesary but it wont compile otherwise + return DAMAGE_TYPE_POSITIVE; +} + +// Converts a number from iprp_immuncost.2da to the corresponding percentage of immunity +int ConvertNumToImmunePercentage ( int iImmuneCost ) +{ + switch ( iImmuneCost ) + { + case 1: + return 5; + break; + case 2: + return 10; + break; + case 3: + return 25; + break; + case 4: + return 50; + break; + case 5: + return 75; + break; + case 6: + return 90; + break; + case 7: + return 100; + break; + default: + return 0; + break; + }; + return 0; +} + +void WildshapeCopyWeaponProperties(object oPC, object oOld, object oNew) +{ + if (GetIsObjectValid(oOld) && GetIsObjectValid(oNew)) + { + itemproperty ip = GetFirstItemProperty(oOld); + // If both are Melee Weapons + if ( !GetWeaponRanged(oOld) && !GetWeaponRanged(oNew) ) + { + while (GetIsItemPropertyValid(ip)) + { + AddItemProperty(DURATION_TYPE_PERMANENT,ip,oNew); + ip = GetNextItemProperty(oOld); + }// while + } + + // If both are Ranged Weapons + else if ( GetWeaponRanged(oOld) && GetWeaponRanged(oNew) ) + { + int bUnlimitedAmmoFound = FALSE; + itemproperty ipNew; + int iOldMightyValue = 0; + object oAmmo; + while (GetIsItemPropertyValid(ip)) + { + if ( GetItemPropertyType(ip) == 61 ) // 61 = Unlimited Ammo + { + // For some reason, when removing/replacing an unlimited + // ammo property, the corresponding missile type will get + // dropped in the player's inventory, so we have to remove + // that missile again to prevent abuse. + bUnlimitedAmmoFound = TRUE; + oAmmo = GetItemInSlot(INVENTORY_SLOT_ARROWS, oPC); + if ( !GetIsObjectValid( oAmmo ) ) + oAmmo = GetItemInSlot(INVENTORY_SLOT_BOLTS, oPC); + if ( !GetIsObjectValid( oAmmo ) ) + oAmmo = GetItemInSlot(INVENTORY_SLOT_BULLETS, oPC); + IPRemoveMatchingItemProperties(oNew, ITEM_PROPERTY_UNLIMITED_AMMUNITION, DURATION_TYPE_PERMANENT ); + AddItemProperty(DURATION_TYPE_PERMANENT,ip,oNew); + DestroyObject(oAmmo); + } + else if ( GetItemPropertyType(ip) == 45 ) // 45 = Mighty + { + ipNew = GetFirstItemProperty(oNew); + // Find the mighty value of the Polymorph's weapon + while ( GetIsItemPropertyValid(ipNew) ) + { + if ( GetItemPropertyType( ipNew ) == 45 ) + { + iOldMightyValue = GetItemPropertyCostTableValue( ipNew ); + break; + } + ipNew = GetNextItemProperty(oNew); + } // while + // If new mighty value bigger, remove old one and add new one. + if ( GetItemPropertyCostTableValue(ip) > iOldMightyValue ) + { + RemoveItemProperty(oNew, ipNew); + AddItemProperty(DURATION_TYPE_PERMANENT,ip,oNew); + } + } + else + AddItemProperty(DURATION_TYPE_PERMANENT,ip,oNew); + + ip = GetNextItemProperty(oOld); + } // while + // Add basic unlimited ammo if neccesary + if ( bUnlimitedAmmoFound == FALSE && !GetItemHasItemProperty(oNew, ITEM_PROPERTY_UNLIMITED_AMMUNITION ) ) + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyUnlimitedAmmo(), oNew); + } + } + else if ( GetWeaponRanged(oNew) ) + { + // Add basic unlimited ammo if neccesary + if ( !GetItemHasItemProperty(oNew, ITEM_PROPERTY_UNLIMITED_AMMUNITION ) ) + AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyUnlimitedAmmo(), oNew); + } +} + +// Returns TRUE if oItem is a creature claw or bite. +int WS_GetIsCreatureWeapon( object oItem ) +{ + int iBaseItemType = GetBaseItemType(oItem); + switch ( iBaseItemType ) + { + case BASE_ITEM_CBLUDGWEAPON: + case BASE_ITEM_CPIERCWEAPON: + case BASE_ITEM_CSLASHWEAPON: + case BASE_ITEM_CSLSHPRCWEAP: + return TRUE; + default: + return FALSE; + }; + return FALSE; +} + +// **** End Functions, added by Iznoghoud **** diff --git a/_haks/poa_exp_abilities/x0_s2_daze.ncs b/_haks/poa_exp_abilities/x0_s2_daze.ncs new file mode 100644 index 0000000..aa14a76 Binary files /dev/null and b/_haks/poa_exp_abilities/x0_s2_daze.ncs differ diff --git a/_haks/poa_exp_abilities/x0_s2_daze.nss b/_haks/poa_exp_abilities/x0_s2_daze.nss new file mode 100644 index 0000000..a72b8e6 --- /dev/null +++ b/_haks/poa_exp_abilities/x0_s2_daze.nss @@ -0,0 +1,55 @@ +//:://///////////////////////////////////////////// +//:: [Shadow Daze] +//:: [x0_S2_Daze.nss] +//:: Copyright (c) 2000 Bioware Corp. +//::////////////////////////////////////////////// +//:: Shadow dancer. +//:: Will save or be dazed for 5 rounds. +//:: Can only daze humanoid-type creatures +//::////////////////////////////////////////////// +//:: Created By: Brent +//:: Created On: September 23, 2002 +//::////////////////////////////////////////////// +//:: Update Pass By: +//:: March 2003: Removed humanoid and level checks to +//:: make this a more powerful daze +#include "X0_I0_SPELLS" +void main() +{ + //Declare major variables + object oTarget = GetSpellTargetObject(); + effect eMind = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_NEGATIVE); + effect eDaze = EffectDazed(); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + + effect eLink = EffectLinkEffects(eMind, eDaze); + eLink = EffectLinkEffects(eLink, eDur); + + effect eVis = EffectVisualEffect(VFX_IMP_DAZED_S); + int nMetaMagic = GetMetaMagicFeat(); + int nDuration = 5; + int nRacial = GetRacialType(oTarget); + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, 475)); + //check meta magic for extend + if (nMetaMagic == METAMAGIC_EXTEND) + { + nDuration = 4; + } + if(spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF)) + { + //Make SR check + if (!MyResistSpell(OBJECT_SELF, oTarget)) + { + //Make Will Save to negate effect + if (!/*Will Save*/ MySavingThrow(SAVING_THROW_WILL, oTarget, GetSpellSaveDC()+10, SAVING_THROW_TYPE_MIND_SPELLS)) + { + //Apply VFX Impact and daze effect + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration)); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + } + } +} + + diff --git a/_haks/poa_exp_abilities/x0_s2_shadsum.ncs b/_haks/poa_exp_abilities/x0_s2_shadsum.ncs new file mode 100644 index 0000000..18b4706 Binary files /dev/null and b/_haks/poa_exp_abilities/x0_s2_shadsum.ncs differ diff --git a/_haks/poa_exp_abilities/x0_s2_shadsum.nss b/_haks/poa_exp_abilities/x0_s2_shadsum.nss new file mode 100644 index 0000000..b38a93b --- /dev/null +++ b/_haks/poa_exp_abilities/x0_s2_shadsum.nss @@ -0,0 +1,55 @@ +//:://///////////////////////////////////////////// +//:: Summon Shadow +//:: X0_S2_ShadSum.nss +//:: Copyright (c) 2002 Bioware Corp. +//::////////////////////////////////////////////// +/* + PRESTIGE CLASS VERSION + Spell powerful ally from the shadow plane to + battle for the wizard +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Oct 26, 2001 +//::////////////////////////////////////////////// + +void main() +{ + //Declare major variables + int nMetaMagic = GetMetaMagicFeat(); + int nCasterLevel = GetLevelByClass(27); + int nDuration = nCasterLevel; + effect eSummon; + + + + //Set the summoned undead to the appropriate template based on the caster level + if (nCasterLevel <= 5) + { + eSummon = EffectSummonCreature("shadow01",VFX_FNF_SUMMON_UNDEAD); + } + else if (nCasterLevel <= 8) + { + eSummon = EffectSummonCreature("shadhound01",VFX_FNF_SUMMON_UNDEAD); + } + else if (nCasterLevel <=10) + { + eSummon = EffectSummonCreature("shadlord01",VFX_FNF_SUMMON_UNDEAD); + } + else + { + if (GetHasFeat(1002,OBJECT_SELF))// has epic shadowlord feat + { + //GZ 2003-07-24: Epic shadow lord + eSummon = EffectSummonCreature("shadlord02",VFX_FNF_SUMMON_UNDEAD); + } + else + { + eSummon = EffectSummonCreature("shadlord01",VFX_FNF_SUMMON_UNDEAD); + } + + } + + //Apply VFX impact and summon effect + ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY, eSummon, GetSpellTargetLocation(), HoursToSeconds(nDuration)); +} diff --git a/_haks/poa_exp_abilities/x0_s3_summonelem.ncs b/_haks/poa_exp_abilities/x0_s3_summonelem.ncs new file mode 100644 index 0000000..3325627 Binary files /dev/null and b/_haks/poa_exp_abilities/x0_s3_summonelem.ncs differ diff --git a/_haks/poa_exp_abilities/x0_s3_summonelem.nss b/_haks/poa_exp_abilities/x0_s3_summonelem.nss new file mode 100644 index 0000000..ca755ef --- /dev/null +++ b/_haks/poa_exp_abilities/x0_s3_summonelem.nss @@ -0,0 +1,44 @@ +//:://///////////////////////////////////////////// +//:: Summon Huge Elemental +//:: x0_s3_summonelem +//:: Copyright (c) 2002 Floodgate Entertainment +//::////////////////////////////////////////////// +/* + This spell is used for the various elemental-summoning + items. + It does not consider metamagic as it is only used for + item properties. +*/ +//::////////////////////////////////////////////// +//:: Created By: Nathaniel Blumberg +//:: Created On: 12/13/02 +//::////////////////////////////////////////////// +//:: Latest Update: Andrew Nobbs April 9, 2003 + +void main() +{ + // Level 1: Air elemental + // Level 2: Water elemental + // Level 3: Earth elemental + // Level 4: Fire elemental + + //Declare major variables + object oCaster = OBJECT_SELF; + string sResRef; + int nLevel = GetCasterLevel(oCaster) - 4; + float fDuration = 606.0; // Ten turns + one round + + // Figure out which creature to summon + switch (nLevel) + { + case 1: sResRef = "airelder7"; break; + case 2: sResRef = "watereleder7"; break; + case 3: sResRef = "earthelder7"; break; + case 4: sResRef = "fireelder1"; break; + } + + // 0.5 sec delay between VFX and creature creation + effect eSummon = EffectSummonCreature(sResRef, VFX_FNF_SUMMON_MONSTER_3, 0.5); + + ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY, eSummon, GetSpellTargetLocation(), fDuration); +} diff --git a/_haks/poa_exp_abilities/x1_s2_deatharrow.ncs b/_haks/poa_exp_abilities/x1_s2_deatharrow.ncs new file mode 100644 index 0000000..67d898d Binary files /dev/null and b/_haks/poa_exp_abilities/x1_s2_deatharrow.ncs differ diff --git a/_haks/poa_exp_abilities/x1_s2_deatharrow.nss b/_haks/poa_exp_abilities/x1_s2_deatharrow.nss new file mode 100644 index 0000000..ea0a0ad --- /dev/null +++ b/_haks/poa_exp_abilities/x1_s2_deatharrow.nss @@ -0,0 +1,56 @@ +//:://///////////////////////////////////////////// +//:: x1_s2_deatharrow +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Seeker Arrow + - creates an arrow that automatically hits target. + - At level 4 the arrow does +2 magic damage + - at level 5 the arrow does +3 magic damage + + - normal arrow damage, based on base item type + + - Must have shortbow or longbow in hand. +*/ +//::////////////////////////////////////////////// +//:: Created By: +//:: Created On: +//::////////////////////////////////////////////// +#include "X0_I0_SPELLS" +#include "x2_inc_itemprop" + +void main() +{ + int nBonus = nBonus = ArcaneArcherCalculateBonus(); + + object oTarget = GetSpellTargetObject(); + + if (GetIsObjectValid(oTarget) == TRUE) + { + // * Roll Touch Attack + int nTouch = TouchAttackRanged(oTarget, TRUE); + if (nTouch > 0) + { + int nDamage = ArcaneArcherDamageDoneByBow((nTouch ==2)); + if (nDamage > 0) + { + effect ePhysical = EffectDamage(nDamage +10, DAMAGE_TYPE_PIERCING,IPGetDamagePowerConstantFromNumber(nBonus)); + effect eMagic = EffectDamage(nBonus +10, DAMAGE_TYPE_MAGICAL); + ApplyEffectToObject(DURATION_TYPE_INSTANT, ePhysical, oTarget); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eMagic, oTarget); + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, GetSpellId())); + + // * if target fails a save DC30 they die + if (MySavingThrow(SAVING_THROW_FORT, oTarget, 30) == 0) + { + effect eSlay = EffectDeath(); + eSlay = SupernaturalEffect(eSlay); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eSlay, oTarget); + } + } + } + } +} + diff --git a/_haks/poa_exp_abilities/x1_s2_hailarrow.ncs b/_haks/poa_exp_abilities/x1_s2_hailarrow.ncs new file mode 100644 index 0000000..c30f267 Binary files /dev/null and b/_haks/poa_exp_abilities/x1_s2_hailarrow.ncs differ diff --git a/_haks/poa_exp_abilities/x1_s2_hailarrow.nss b/_haks/poa_exp_abilities/x1_s2_hailarrow.nss new file mode 100644 index 0000000..ed2a3ef --- /dev/null +++ b/_haks/poa_exp_abilities/x1_s2_hailarrow.nss @@ -0,0 +1,65 @@ +//:://///////////////////////////////////////////// +//:: x1_s2_hailarrow +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + One arrow per arcane archer level at all targets + + GZ SEPTEMBER 2003 + Added damage penetration + +*/ +//::////////////////////////////////////////////// +//:: Created By: +//:: Created On: +//::////////////////////////////////////////////// +#include "x0_i0_spells" + +// GZ: 2003-07-23 fixed criticals not being honored +void DoAttack(object oTarget) +{ + int nBonus = ArcaneArcherCalculateBonus(); + int nDamage; + // * Roll Touch Attack + int nTouch = TouchAttackRanged(oTarget, TRUE); + if (nTouch > 0) + { + nDamage = ArcaneArcherDamageDoneByBow(nTouch ==2); + if (nDamage > 0) + { + // * GZ: Added correct damage power + effect ePhysical = EffectDamage(nDamage +10, DAMAGE_TYPE_PIERCING, IPGetDamagePowerConstantFromNumber(nBonus)); + effect eMagic = EffectDamage(nBonus +10, DAMAGE_TYPE_MAGICAL); + ApplyEffectToObject(DURATION_TYPE_INSTANT, ePhysical, oTarget); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eMagic, oTarget); + } + } +} + +void main() +{ + + object oTarget; + + int nLevel = GetLevelByClass(CLASS_TYPE_ARCANE_ARCHER, OBJECT_SELF); + int i = 0; + float fDist = 0.0; + float fDelay = 0.0; + + for (i = 1; i <= nLevel; i++) + { + oTarget = GetNearestCreature(CREATURE_TYPE_REPUTATION, REPUTATION_TYPE_ENEMY, OBJECT_SELF, i); + if (GetIsObjectValid(oTarget) == TRUE) + { + fDist = GetDistanceBetween(OBJECT_SELF, oTarget); + fDelay = fDist/(3.0 * log(fDist) + 2.0); + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, 603)); + effect eArrow = EffectVisualEffect(357); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eArrow, oTarget); + DelayCommand(fDelay, DoAttack(oTarget)); + } + } + +} diff --git a/_haks/poa_exp_abilities/x2_s1_dragneg.ncs b/_haks/poa_exp_abilities/x2_s1_dragneg.ncs new file mode 100644 index 0000000..c0f688f Binary files /dev/null and b/_haks/poa_exp_abilities/x2_s1_dragneg.ncs differ diff --git a/_haks/poa_exp_abilities/x2_s1_dragneg.nss b/_haks/poa_exp_abilities/x2_s1_dragneg.nss new file mode 100644 index 0000000..a1b34e9 --- /dev/null +++ b/_haks/poa_exp_abilities/x2_s1_dragneg.nss @@ -0,0 +1,299 @@ +//:://///////////////////////////////////////////// +//:: Dragon Breath Negative Energy +//:: NW_S1_DragNeg +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Calculates the proper damage and DC Save for the + breath weapon based on the HD of the dragon. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 9, 2001 +//::////////////////////////////////////////////// + +const string DRAGBREATHLOCK = "DragonBreathLock"; + + +//modified to use the breath include - Fox +#include "prc_inc_spells" +#include "prc_inc_breath" + +void main() +{ + // Check the dragon breath delay lock + if(GetLocalInt(OBJECT_SELF, DRAGBREATHLOCK)) + { + SendMessageToPC(OBJECT_SELF, "You cannot use your breath weapon again so soon"); + return; + } + + //Declare major variables + int nAge = GetHitDice(OBJECT_SELF); + int nDCBoost = nAge / 2; + int nDamageDice; + int nLevelDrain; //drain was commented out, kept just in case + struct breath NegBreath; + + //Determine save DC and ability damage + if (nAge <= 6) //Wyrmling + { + nLevelDrain = 1; + nDamageDice = 2; + } + else if (nAge >= 7 && nAge <= 9) //Very Young + { + nLevelDrain = 1; + nDamageDice = 4; + } + else if (nAge >= 10 && nAge <= 12) //Young + { + nLevelDrain = 1; + nDamageDice = 6; + } + else if (nAge >= 13 && nAge <= 15) //Juvenile + { + nLevelDrain = 2; + nDamageDice = 8; + } + else if (nAge >= 16 && nAge <= 18) //Young Adult + { + nLevelDrain = 2; + nDamageDice = 10; + } + else if (nAge >= 19 && nAge <= 21) //Adult + { + nLevelDrain = 3; + nDamageDice = 12; + } + else if (nAge >= 22 && nAge <= 24) //Mature Adult + { + nLevelDrain = 4; + nDamageDice = 14; + } + else if (nAge >= 25 && nAge <= 27) //Old + { + nLevelDrain = 5; + nDamageDice = 16; + } + else if (nAge >= 28 && nAge <= 30) //Very Old + { + nLevelDrain = 5; + nDamageDice = 18; + } + else if (nAge >= 31 && nAge <= 33) //Ancient + { + nLevelDrain = 6; + nDamageDice = 20; + } + else if (nAge >= 34 && nAge <= 37) //Wyrm + { + nLevelDrain = 7; + nDamageDice = 22; + } +else if (nAge >= 38 && nAge <= 41) //Great Wyrm + { + nDamageDice = 24; + nLevelDrain = 8; + } + else if (nAge >= 42 && nAge <= 45) //Great Wyrm + { + nDamageDice = 26; + nLevelDrain = 9; + } + else if (nAge >= 46 && nAge <= 49) //Great Wyrm + { + nDamageDice = 28; + nLevelDrain = 10; + } + + else if (nAge >= 50 && nAge <= 53) //Great Wyrm + { + nDamageDice = 30; + nLevelDrain = 11; + } + else if (nAge >= 54 && nAge <= 57) //Great Wyrm + { + nDamageDice = 32; + nLevelDrain = 12; + } + else if (nAge >= 58 && nAge <= 61) //Great Wyrm + { + nDamageDice = 34; + nLevelDrain = 13; + } + else if (nAge >= 62 && nAge <= 65) //Great Wyrm + { + nDamageDice = 36; + nLevelDrain = 14; + } + else if (nAge >= 66 && nAge <= 69) //Great Wyrm + { + nDamageDice = 38; + nLevelDrain = 15; + } + else if (nAge >= 70 && nAge <= 73) //Great Wyrm + { + nDamageDice = 40; + nLevelDrain = 16; + } + else if (nAge >= 74 && nAge <= 77) //Great Wyrm + { + nDamageDice = 42; + nLevelDrain = 17; + } + else if (nAge >= 78 && nAge <= 81) //Great Wyrm + { + nDamageDice = 44; + nLevelDrain = 18; + } + else if (nAge >= 82 && nAge <= 85) //Great Wyrm + { + nDamageDice = 46; + nLevelDrain = 19; + } + + else if (nAge >= 86 && nAge <= 89) //Great Wyrm + { + nDamageDice = 48; + nLevelDrain = 20; + } + + else if (nAge >= 90 && nAge <= 93) //Great Wyrm + { + nDamageDice = 50; + nLevelDrain = 21; + } + + else if (nAge >= 94 && nAge <= 97) //Great Wyrm + { + nDamageDice = 52; + nLevelDrain = 22; + } + + else if (nAge >= 98 && nAge <= 101) //Great Wyrm + { + nDamageDice = 54; + nLevelDrain = 23; + } + else if (nAge >= 102 && nAge <= 105) //Great Wyrm + { + nDamageDice = 56; + nLevelDrain = 24; + } + else if (nAge >= 106 && nAge <= 109) //Great Wyrm + { + nDamageDice = 58; + nLevelDrain = 25; + } + else if (nAge >= 110 && nAge <= 113) //Great Wyrm + { + nDamageDice = 60; + nLevelDrain = 26; + } + else if (nAge >= 114 && nAge <= 117) //Great Wyrm + { + nDamageDice = 62; + nLevelDrain = 27; + } + else if (nAge >= 118 && nAge <= 121) //Great Wyrm + { + nDamageDice = 64; + nLevelDrain = 28; + } + else if (nAge >= 122 && nAge <= 125) //Great Wyrm + { + nDamageDice = 66; + nLevelDrain = 29; + } + else if (nAge >= 126 && nAge <= 129) //Great Wyrm + { + nDamageDice = 68; + nLevelDrain = 30; + } + else if (nAge >= 130 && nAge <= 133) //Great Wyrm + { + nDamageDice = 70; + nLevelDrain = 31; + } + else if (nAge >= 134 && nAge <= 137) //Great Wyrm + { + nDamageDice = 72; + nLevelDrain = 32; + } + else if (nAge >= 138 && nAge <= 141) //Great Wyrm + { + nDamageDice = 74; + nLevelDrain = 33; + } + else if (nAge >= 142 && nAge <= 145) //Great Wyrm + { + nDamageDice = 76; + nLevelDrain = 34; + } + else if (nAge >= 146 && nAge <= 149) //Great Wyrm + { + nDamageDice = 78; + nLevelDrain = 35; + } + else if (nAge >= 150 && nAge <= 153) //Great Wyrm + { + nDamageDice = 80; + nLevelDrain = 36; + } + else if (nAge >= 154 && nAge <= 157) //Great Wyrm + { + nDamageDice = 82; + nLevelDrain = 37; + } + + else if (nAge >= 158 && nAge <= 161) //Great Wyrm + { + nDamageDice = 84; + nLevelDrain = 38; + } + else if (nAge >= 162 && nAge <= 165) //Great Wyrm + { + nDamageDice = 86; + nLevelDrain = 39; + } + else if (nAge >= 166 && nAge <= 169) //Great Wyrm + { + nDamageDice = 88; + nLevelDrain = 40; + } + + else if (nAge >= 170 && nAge <= 173) //Great Wyrm + { + nDamageDice = 90; + nLevelDrain = 41; + } + else if (nAge >= 174 && nAge <= 177) //Great Wyrm + { + nDamageDice = 92; + nLevelDrain = 42; + } + else if (nAge > 178 ) //Great Wyrm + { + nDamageDice = 94; + nLevelDrain = 43; + } + + //create the breath - 40' ~ 14m? - should set it based on size later + NegBreath = CreateBreath(OBJECT_SELF, FALSE, 40.0, DAMAGE_TYPE_NEGATIVE, 8, nDamageDice, ABILITY_CONSTITUTION, nDCBoost); + + //Apply the breath - note: Level drain was included but commented out in the original, thus not currently implemented in the include. + //Information on the level drain amount is kept just in case. + PRCPlayDragonBattleCry(); + ApplyBreath(NegBreath, PRCGetSpellTargetLocation()); + + //Apply the recharge lock + SetLocalInt(OBJECT_SELF, DRAGBREATHLOCK, TRUE); + + // Schedule opening the delay lock + float fDelay = RoundsToSeconds(NegBreath.nRoundsUntilRecharge); + SendMessageToPC(OBJECT_SELF, "Your breath weapon will be ready again in " + IntToString(NegBreath.nRoundsUntilRecharge) + " rounds."); + + DelayCommand(fDelay, DeleteLocalInt(OBJECT_SELF, DRAGBREATHLOCK)); + DelayCommand(fDelay, SendMessageToPC(OBJECT_SELF, "Your breath weapon is ready now")); +} \ No newline at end of file diff --git a/_haks/poa_exp_abilities/x2_s2_cursesong.ncs b/_haks/poa_exp_abilities/x2_s2_cursesong.ncs new file mode 100644 index 0000000..05011c7 Binary files /dev/null and b/_haks/poa_exp_abilities/x2_s2_cursesong.ncs differ diff --git a/_haks/poa_exp_abilities/x2_s2_cursesong.nss b/_haks/poa_exp_abilities/x2_s2_cursesong.nss new file mode 100644 index 0000000..c3c17b2 --- /dev/null +++ b/_haks/poa_exp_abilities/x2_s2_cursesong.nss @@ -0,0 +1,2095 @@ +//:://///////////////////////////////////////////// +//:: Curse Song +//:: X2_S2_CurseSong +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + This spells applies penalties to all of the + bard's enemies within 30ft for a set duration of + 10 rounds. +*/ +//::////////////////////////////////////////////// +//:: Created By: Andrew Nobbs +//:: Created On: May 16, 2003 +//::////////////////////////////////////////////// +//:: Last Updated By: Andrew Nobbs May 20, 2003 + +#include "prc_inc_clsfunc" + +void main() +{ + + if (!GetHasFeat(FEAT_BARD_SONGS, OBJECT_SELF)) + { + FloatingTextStrRefOnCreature(85587,OBJECT_SELF); // no more bardsong uses left + return; + } + + if (PRCGetHasEffect(EFFECT_TYPE_SILENCE,OBJECT_SELF)) + { + FloatingTextStrRefOnCreature(85764,OBJECT_SELF); // not useable when silenced + return; + } + + //RemoveOldSongEffects(OBJECT_SELF,GetSpellId()); + + //Declare major variables + int nLevel = GetLevelByClass(CLASS_TYPE_BARD) + + GetLevelByClass(CLASS_TYPE_MINSTREL_EDGE)/2 + + GetLevelByClass(CLASS_TYPE_DIRGESINGER) + + + GetLevelByClass(CLASS_TYPE_DRAGONSONG_LYRIST) + + GetLevelByClass(CLASS_TYPE_HEARTWARDER) + + GetLevelByClass(CLASS_TYPE_SPELLDANCER) + + GetLevelByClass(CLASS_TYPE_SUBLIME_CHORD) + + GetLevelByClass(CLASS_TYPE_BLADESINGER) + + GetLevelByClass(CLASS_TYPE_VIRTUOSO); + + int nRanks = GetSkillRank(SKILL_PERFORM); + if (GetHasFeat(FEAT_DRAGONSONG, OBJECT_SELF)) nRanks+= 2; + int nPerform = nRanks; + int nDuration = 10; //+ nChr; + + effect eAttack; + effect eDamage; + effect eWill; + effect eFort; + effect eReflex; + effect eHP; + effect eAC; + effect eSkill; + + int nAttack; + int nDamage; + int nWill; + int nFort; + int nReflex; + int nHP; + int nAC; + int nSkill; + //Check to see if the caster has Lasting Impression and increase duration. + if(GetHasFeat(870)) + { + nDuration *= 10; + } + + if(GetHasFeat(424)) // lingering song + { + nDuration += 5; + } + + + + if(nPerform >= 125 && nLevel >= 180) + { + nAttack = 36; + nDamage = 36; + nWill = 18; + nFort = 18; + nReflex = 18; + nHP = 348; + nAC = 36; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 179) + { + nAttack = 36; + nDamage = 36; + nWill = 18; + nFort = 18; + nReflex = 18; + nHP = 346; + nAC = 35; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 178) + { + nAttack = 35; + nDamage = 36; + nWill = 18; + nFort = 18; + nReflex = 18; + nHP = 344; + nAC = 35; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 177) + { + nAttack = 35; + nDamage = 35; + nWill = 18; + nFort = 18; + nReflex = 18; + nHP = 342; + nAC = 35; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 176) + { + nAttack = 35; + nDamage = 35; + nWill = 18; + nFort = 18; + nReflex = 18; + nHP = 340; + nAC = 34; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 175) + { + nAttack = 34; + nDamage = 35; + nWill = 18; + nFort = 18; + nReflex = 18; + nHP = 338; + nAC = 34; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 174) + { + nAttack = 34; + nDamage = 34; + nWill = 18; + nFort = 18; + nReflex = 18; + nHP = 336; + nAC = 34; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 173) + { + nAttack = 34; + nDamage = 34; + nWill = 17; + nFort = 18; + nReflex = 18; + nHP = 334; + nAC = 34; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 172) + { + nAttack = 34; + nDamage = 34; + nWill = 17; + nFort = 17; + nReflex = 18; + nHP = 332; + nAC = 34; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 171) + { + nAttack = 34; + nDamage = 34; + nWill = 17; + nFort = 17; + nReflex = 17; + nHP = 330; + nAC = 34; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 170) + { + nAttack = 34; + nDamage = 34; + nWill = 17; + nFort = 17; + nReflex = 17; + nHP = 328; + nAC = 33; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 169) + { + nAttack = 33; + nDamage = 34; + nWill = 17; + nFort = 17; + nReflex = 17; + nHP = 326; + nAC = 33; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 168) + { + nAttack = 33; + nDamage = 33; + nWill = 17; + nFort = 17; + nReflex = 17; + nHP = 324; + nAC = 33; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 167) + { + nAttack = 33; + nDamage = 33; + nWill = 17; + nFort = 17; + nReflex = 17; + nHP = 322; + nAC = 32; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 166) + { + nAttack = 32; + nDamage = 33; + nWill = 17; + nFort = 17; + nReflex = 17; + nHP = 320; + nAC = 32; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 165) + { + nAttack = 32; + nDamage = 32; + nWill = 17; + nFort = 17; + nReflex = 17; + nHP = 318; + nAC = 32; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 164) + { + nAttack = 32; + nDamage = 32; + nWill = 16; + nFort = 17; + nReflex = 17; + nHP = 316; + nAC = 32; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 163) + { + nAttack = 32; + nDamage = 32; + nWill = 16; + nFort = 16; + nReflex = 17; + nHP = 314; + nAC = 32; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 162) + { + nAttack = 32; + nDamage = 32; + nWill = 16; + nFort = 16; + nReflex = 16; + nHP = 312; + nAC = 32; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 161) + { + nAttack = 31; + nDamage = 32; + nWill = 16; + nFort = 16; + nReflex = 16; + nHP = 310; + nAC = 32; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 160) + { + nAttack = 31; + nDamage = 31; + nWill = 16; + nFort = 16; + nReflex = 16; + nHP = 308; + nAC = 32; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 159) + { + nAttack = 30; + nDamage = 31; + nWill = 16; + nFort = 16; + nReflex = 16; + nHP = 306; + nAC = 32; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 158) + { + nAttack = 30; + nDamage = 30; + nWill = 16; + nFort = 16; + nReflex = 16; + nHP = 304; + nAC = 32; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 157) + { + nAttack = 30; + nDamage = 30; + nWill = 16; + nFort = 16; + nReflex = 16; + nHP = 302; + nAC = 31; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 156) + { + nAttack = 29; + nDamage = 30; + nWill = 16; + nFort = 16; + nReflex = 16; + nHP = 300; + nAC = 31; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 155) + { + nAttack = 29; + nDamage = 29; + nWill = 16; + nFort = 16; + nReflex = 16; + nHP = 298; + nAC = 31; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 154) + { + nAttack = 29; + nDamage = 29; + nWill = 16; + nFort = 16; + nReflex = 16; + nHP = 296; + nAC = 30; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 153) + { + nAttack = 29; + nDamage = 28; + nWill = 16; + nFort = 16; + nReflex = 16; + nHP = 294; + nAC = 30; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 152) + { + nAttack = 29; + nDamage = 28; + nWill = 15; + nFort = 16; + nReflex = 16; + nHP = 292; + nAC = 30; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 151) + { + nAttack = 29; + nDamage = 28; + nWill = 15; + nFort = 15; + nReflex = 16; + nHP = 290; + nAC = 30; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 150) + { + nAttack = 29; + nDamage = 28; + nWill = 15; + nFort = 15; + nReflex = 15; + nHP = 288; + nAC = 30; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 149) + { + nAttack = 29; + nDamage = 28; + nWill = 15; + nFort = 15; + nReflex = 15; + nHP = 286; + nAC = 29; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 148) + { + nAttack = 28; + nDamage = 28; + nWill = 15; + nFort = 15; + nReflex = 15; + nHP = 284; + nAC = 29; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 147) + { + nAttack = 28; + nDamage = 27; + nWill = 15; + nFort = 15; + nReflex = 15; + nHP = 282; + nAC = 29; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 146) + { + nAttack = 28; + nDamage = 27; + nWill = 15; + nFort = 15; + nReflex = 15; + nHP = 280; + nAC = 28; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 145) + { + nAttack = 27; + nDamage = 27; + nWill = 15; + nFort = 15; + nReflex = 15; + nHP = 278; + nAC = 28; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 144) + { + nAttack = 27; + nDamage = 26; + nWill = 15; + nFort = 15; + nReflex = 15; + nHP = 276; + nAC = 28; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 143) + { + nAttack = 27; + nDamage = 26; + nWill = 14; + nFort = 15; + nReflex = 15; + nHP = 274; + nAC = 28; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 142) + { + nAttack = 27; + nDamage = 26; + nWill = 14; + nFort = 14; + nReflex = 15; + nHP = 272; + nAC = 28; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 141) + { + nAttack = 27; + nDamage = 26; + nWill = 14; + nFort = 14; + nReflex = 14; + nHP = 270; + nAC = 28; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 140) + { + nAttack = 27; + nDamage = 26; + nWill = 14; + nFort = 14; + nReflex = 14; + nHP = 268; + nAC = 27; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 139) + { + nAttack = 27; + nDamage = 25; + nWill = 14; + nFort = 14; + nReflex = 14; + nHP = 266; + nAC = 27; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 138) + { + nAttack = 27; + nDamage = 25; + nWill = 14; + nFort = 14; + nReflex = 14; + nHP = 264; + nAC = 26; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 137) + { + nAttack = 26; + nDamage = 25; + nWill = 14; + nFort = 14; + nReflex = 14; + nHP = 262; + nAC = 26; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 136) + { + nAttack = 26; + nDamage = 24; + nWill = 14; + nFort = 14; + nReflex = 14; + nHP = 260; + nAC = 26; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 135) + { + nAttack = 26; + nDamage = 24; + nWill = 13; + nFort = 14; + nReflex = 14; + nHP = 258; + nAC = 26; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 134) + { + nAttack = 26; + nDamage = 24; + nWill = 13; + nFort = 13; + nReflex = 14; + nHP = 256; + nAC = 26; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 133) + { + nAttack = 26; + nDamage = 24; + nWill = 13; + nFort = 13; + nReflex = 13; + nHP = 254; + nAC = 26; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 132) + { + nAttack = 26; + nDamage = 23; + nWill = 13; + nFort = 13; + nReflex = 13; + nHP = 252; + nAC = 26; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 131) + { + nAttack = 26; + nDamage = 23; + nWill = 13; + nFort = 13; + nReflex = 13; + nHP = 250; + nAC = 25; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 130) + { + nAttack = 25; + nDamage = 23; + nWill = 13; + nFort = 13; + nReflex = 13; + nHP = 248; + nAC = 25; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 129) + { + nAttack = 25; + nDamage = 22; + nWill = 13; + nFort = 13; + nReflex = 13; + nHP = 246; + nAC = 25; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 128) + { + nAttack = 25; + nDamage = 22; + nWill = 12; + nFort = 13; + nReflex = 13; + nHP = 244; + nAC = 25; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 127) + { + nAttack = 25; + nDamage = 22; + nWill = 12; + nFort = 12; + nReflex = 13; + nHP = 242; + nAC = 25; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 126) + { + nAttack = 25; + nDamage = 22; + nWill = 12; + nFort = 12; + nReflex = 12; + nHP = 240; + nAC = 25; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 125) + { + nAttack = 25; + nDamage = 21; + nWill = 12; + nFort = 12; + nReflex = 12; + nHP = 238; + nAC = 25; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 124) + { + nAttack = 24; + nDamage = 21; + nWill = 12; + nFort = 12; + nReflex = 12; + nHP = 236; + nAC = 25; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 123) + { + nAttack = 24; + nDamage = 21; + nWill = 12; + nFort = 12; + nReflex = 12; + nHP = 234; + nAC = 24; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 122) + { + nAttack = 24; + nDamage = 20; + nWill = 12; + nFort = 12; + nReflex = 12; + nHP = 232; + nAC = 24; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 121) + { + nAttack = 23; + nDamage = 20; + nWill = 12; + nFort = 12; + nReflex = 12; + nHP = 230; + nAC = 24; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 120) + { + nAttack = 23; + nDamage = 19; + nWill = 12; + nFort = 12; + nReflex = 12; + nHP = 228; + nAC = 24; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 119) + { + nAttack = 23; + nDamage = 19; + nWill = 11; + nFort = 12; + nReflex = 12; + nHP = 226; + nAC = 24; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 118) + { + nAttack = 23; + nDamage = 19; + nWill = 11; + nFort = 11; + nReflex = 12; + nHP = 224; + nAC = 24; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 117) + { + nAttack = 23; + nDamage = 19; + nWill = 11; + nFort = 11; + nReflex = 11; + nHP = 222; + nAC = 24; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 116) + { + nAttack = 23; + nDamage = 19; + nWill = 11; + nFort = 11; + nReflex = 11; + nHP = 220; + nAC = 23; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 115) + { + nAttack = 22; + nDamage = 19; + nWill = 11; + nFort = 11; + nReflex = 11; + nHP = 218; + nAC = 23; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 114) + { + nAttack = 22; + nDamage = 18; + nWill = 11; + nFort = 11; + nReflex = 11; + nHP = 216; + nAC = 23; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 113) + { + nAttack = 22; + nDamage = 18; + nWill = 10; + nFort = 11; + nReflex = 11; + nHP = 214; + nAC = 23; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 112) + { + nAttack = 22; + nDamage = 18; + nWill = 10; + nFort = 10; + nReflex = 11; + nHP = 212; + nAC = 23; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 111) + { + nAttack = 22; + nDamage = 18; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 210; + nAC = 23; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 110) + { + nAttack = 22; + nDamage = 18; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 208; + nAC = 22; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 109) + { + nAttack = 22; + nDamage = 17; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 206; + nAC = 22; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 108) + { + nAttack = 21; + nDamage = 17; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 204; + nAC = 22; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 107) + { + nAttack = 21; + nDamage = 16; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 202; + nAC = 22; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 106) + { + nAttack = 21; + nDamage = 16; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 200; + nAC = 21; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 105) + { + nAttack = 21; + nDamage = 16; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 198; + nAC = 21; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 104) + { + nAttack = 20; + nDamage = 16; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 196; + nAC = 21; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 103) + { + nAttack = 20; + nDamage = 16; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 194; + nAC = 21; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 102) + { + nAttack = 20; + nDamage = 15; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 192; + nAC = 21; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 101) + { + nAttack = 20; + nDamage = 15; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 190; + nAC = 21; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 100) + { + nAttack = 20; + nDamage = 15; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 188; + nAC = 20; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 99) + { + nAttack = 20; + nDamage = 15; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 186; + nAC = 20; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 98) + { + nAttack = 20; + nDamage = 15; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 184; + nAC = 20; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 97) + { + nAttack = 20; + nDamage = 14; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 182; + nAC = 20; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 96) + { + nAttack = 19; + nDamage = 14; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 180; + nAC = 20; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 95) + { + nAttack = 19; + nDamage = 14; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 178; + nAC = 19; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 94) + { + nAttack = 19; + nDamage = 14; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 176; + nAC = 19; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 93) + { + nAttack = 18; + nDamage = 14; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 174; + nAC = 19; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 92) + { + nAttack = 18; + nDamage = 13; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 172; + nAC = 19; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 91) + { + nAttack = 18; + nDamage = 12; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 170; + nAC = 19; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 90) + { + nAttack = 18; + nDamage = 12; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 168; + nAC = 18; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 89) + { + nAttack = 18; + nDamage = 12; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 166; + nAC = 18; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 88) + { + nAttack = 17; + nDamage = 12; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 164; + nAC = 18; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 87) + { + nAttack = 17; + nDamage = 12; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 162; + nAC = 18; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 86) + { + nAttack = 17; + nDamage = 12; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 160; + nAC = 17; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 85) + { + nAttack = 17; + nDamage = 12; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 158; + nAC = 17; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 84) + { + nAttack = 16; + nDamage = 12; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 156; + nAC = 17; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 83) + { + nAttack = 15; + nDamage = 12; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 154; + nAC = 17; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 82) + { + nAttack = 14; + nDamage = 12; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 152; + nAC = 17; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 81) + { + nAttack = 14; + nDamage = 12; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 150; + nAC = 16; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 80) + { + nAttack = 13; + nDamage = 12; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 148; + nAC = 16; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 79) + { + nAttack = 12; + nDamage = 12; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 146; + nAC = 16; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 78) + { + nAttack = 12; + nDamage = 11; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 144; + nAC = 16; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 77) + { + nAttack = 11; + nDamage = 11; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 142; + nAC = 16; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 76) + { + nAttack = 11; + nDamage = 11; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 140; + nAC = 15; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 75) + { + nAttack = 11; + nDamage = 10; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 138; + nAC = 15; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 74) + { + nAttack = 10; + nDamage = 10; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 136; + nAC = 15; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 73) + { + nAttack = 10; + nDamage = 10; + nWill = 10; + nFort = 10; + nReflex = 10; + nHP = 134; + nAC = 14; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 72) + { + nAttack = 10; + nDamage = 10; + nWill = 9; + nFort = 10; + nReflex = 10; + nHP = 132; + nAC = 14; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 71) + { + nAttack = 10; + nDamage = 10; + nWill = 9; + nFort = 9; + nReflex = 10; + nHP = 130; + nAC = 14; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 70) + { + nAttack = 10; + nDamage = 10; + nWill = 9; + nFort = 9; + nReflex = 9; + nHP = 128; + nAC = 14; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 69) + { + nAttack = 10; + nDamage = 9; + nWill = 9; + nFort = 9; + nReflex = 9; + nHP = 126; + nAC = 14; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 68) + { + nAttack = 9; + nDamage = 9; + nWill = 9; + nFort = 9; + nReflex = 9; + nHP = 124; + nAC = 14; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 67) + { + nAttack = 9; + nDamage = 9; + nWill = 9; + nFort = 9; + nReflex = 9; + nHP = 122; + nAC = 13; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 66) + { + nAttack = 9; + nDamage = 9; + nWill = 8; + nFort = 9; + nReflex = 9; + nHP = 120; + nAC = 13; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 65) + { + nAttack = 9; + nDamage = 9; + nWill = 8; + nFort = 8; + nReflex = 9; + nHP = 118; + nAC = 13; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 64) + { + nAttack = 9; + nDamage = 9; + nWill = 8; + nFort = 8; + nReflex = 8; + nHP = 116; + nAC = 13; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 63) + { + nAttack = 9; + nDamage = 8; + nWill = 8; + nFort = 8; + nReflex = 8; + nHP = 114; + nAC = 13; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 62) + { + nAttack = 8; + nDamage = 8; + nWill = 8; + nFort = 8; + nReflex = 8; + nHP = 112; + nAC = 13; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 61) + { + nAttack = 8; + nDamage = 8; + nWill = 8; + nFort = 8; + nReflex = 8; + nHP = 110; + nAC = 12; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 60) + { + nAttack = 8; + nDamage = 8; + nWill = 7; + nFort = 8; + nReflex = 8; + nHP = 108; + nAC = 12; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 59) + { + nAttack = 8; + nDamage = 8; + nWill = 7; + nFort = 7; + nReflex = 8; + nHP = 106; + nAC = 12; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 58) + { + nAttack = 8; + nDamage = 8; + nWill = 7; + nFort = 7; + nReflex = 7; + nHP = 104; + nAC = 12; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 57) + { + nAttack = 8; + nDamage = 7; + nWill = 7; + nFort = 7; + nReflex = 7; + nHP = 102; + nAC = 12; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 56) + { + nAttack = 7; + nDamage = 7; + nWill = 7; + nFort = 7; + nReflex = 7; + nHP = 100; + nAC = 12; + nSkill = 20; + } + + if(nPerform >= 125 && nLevel >= 55) + { + nAttack = 7; + nDamage = 7; + nWill = 7; + nFort = 7; + nReflex = 7; + nHP = 98; + nAC = 11; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 54) + { + nAttack = 7; + nDamage = 7; + nWill = 6; + nFort = 7; + nReflex = 7; + nHP = 96; + nAC = 11; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 53) + { + nAttack = 7; + nDamage = 7; + nWill = 6; + nFort = 6; + nReflex = 7; + nHP = 94; + nAC = 11; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 52) + { + nAttack = 7; + nDamage = 7; + nWill = 6; + nFort = 6; + nReflex = 6; + nHP = 92; + nAC = 11; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 51) + { + nAttack = 6; + nDamage = 7; + nWill = 6; + nFort = 6; + nReflex = 6; + nHP = 90; + nAC = 11; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 50) + { + nAttack = 6; + nDamage = 6; + nWill = 6; + nFort = 6; + nReflex = 6; + nHP = 88; + nAC = 11; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 49) + { + nAttack = 6; + nDamage = 6; + nWill = 6; + nFort = 6; + nReflex = 6; + nHP = 86; + nAC = 10; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 48) + { + nAttack = 6; + nDamage = 6; + nWill = 5; + nFort = 6; + nReflex = 6; + nHP = 84; + nAC = 10; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 47) + { + nAttack = 6; + nDamage = 6; + nWill = 5; + nFort = 5; + nReflex = 6; + nHP = 82; + nAC = 10; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 46) + { + nAttack = 6; + nDamage = 6; + nWill = 5; + nFort = 5; + nReflex = 5; + nHP = 80; + nAC = 10; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 45) + { + nAttack = 6; + nDamage = 5; + nWill = 5; + nFort = 5; + nReflex = 5; + nHP = 78; + nAC = 10; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 44) + { + nAttack = 5; + nDamage = 5; + nWill = 5; + nFort = 5; + nReflex = 5; + nHP = 76; + nAC = 10; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 43) + { + nAttack = 5; + nDamage = 5; + nWill = 5; + nFort = 5; + nReflex = 5; + nHP = 74; + nAC = 9; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 42) + { + nAttack = 4; + nDamage = 5; + nWill = 5; + nFort = 5; + nReflex = 5; + nHP = 72; + nAC = 9; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 41) + { + nAttack = 4; + nDamage = 4; + nWill = 5; + nFort = 5; + nReflex = 5; + nHP = 70; + nAC = 9; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 40) + { + nAttack = 4; + nDamage = 4; + nWill = 4; + nFort = 5; + nReflex = 5; + nHP = 68; + nAC = 9; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 39) + { + nAttack = 4; + nDamage = 4; + nWill = 4; + nFort = 4; + nReflex = 5; + nHP = 66; + nAC = 8; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 38) + { + nAttack = 4; + nDamage = 4; + nWill = 4; + nFort = 4; + nReflex = 4; + nHP = 64; + nAC = 8; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 37) + { + nAttack = 3; + nDamage = 4; + nWill = 4; + nFort = 4; + nReflex = 4; + nHP = 62; + nAC = 8; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 36) + { + nAttack = 3; + nDamage = 4; + nWill = 4; + nFort = 3; + nReflex = 4; + nHP = 60; + nAC = 8; + nSkill = 20; + } + if(nPerform >= 125 && nLevel >= 35) + { + nAttack = 3; + nDamage = 4; + nWill = 4; + nFort = 3; + nReflex = 3; + nHP = 58; + nAC = 7; + nSkill = 20; + } + if(nPerform >= 120 && nLevel >= 34) + { + nAttack = 3; + nDamage = 4; + nWill = 3; + nFort = 3; + nReflex = 3; + nHP = 56; + nAC = 7; + nSkill = 20; + } + if(nPerform >= 115 && nLevel >= 33) + { + nAttack = 3; + nDamage = 3; + nWill = 3; + nFort = 3; + nReflex = 3; + nHP = 54; + nAC = 7; + nSkill = 20; + } + if(nPerform >= 110 && nLevel >= 32) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 3; + nReflex = 3; + nHP = 52; + nAC = 7; + nSkill = 20; + } + if(nPerform >= 105 && nLevel >= 31) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 3; + nHP = 50; + nAC = 7; + nSkill = 20; + } + + if(nPerform >= 100 && nLevel >= 30) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 48; + nAC = 7; + nSkill = 18; + } + else if(nPerform >= 95 && nLevel >= 29) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 46; + nAC = 6; + nSkill = 17; + } + else if(nPerform >= 90 && nLevel >= 28) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 44; + nAC = 6; + nSkill = 16; + } + else if(nPerform >= 85 && nLevel >= 27) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 42; + nAC = 6; + nSkill = 15; + } + else if(nPerform >= 80 && nLevel >= 26) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 40; + nAC = 6; + nSkill = 14; + } + else if(nPerform >= 75 && nLevel >= 25) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 38; + nAC = 6; + nSkill = 13; + } + else if(nPerform >= 70 && nLevel >= 24) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 36; + nAC = 5; + nSkill = 12; + } + else if(nPerform >= 65 && nLevel >= 23) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 34; + nAC = 5; + nSkill = 11; + } + else if(nPerform >= 60 && nLevel >= 22) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 32; + nAC = 5; + nSkill = 10; + } + else if(nPerform >= 55 && nLevel >= 21) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 30; + nAC = 5; + nSkill = 9; + } + else if(nPerform >= 50 && nLevel >= 20) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 28; + nAC = 5; + nSkill = 8; + } + else if(nPerform >= 45 && nLevel >= 19) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 26; + nAC = 5; + nSkill = 7; + } + else if(nPerform >= 40 && nLevel >= 18) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 24; + nAC = 5; + nSkill = 6; + } + else if(nPerform >= 35 && nLevel >= 17) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 22; + nAC = 5; + nSkill = 5; + } + else if(nPerform >= 30 && nLevel >= 16) + { + nAttack = 2; + nDamage = 3; + nWill = 3; + nFort = 2; + nReflex = 2; + nHP = 20; + nAC = 5; + nSkill = 4; + } + else if(nPerform >= 24 && nLevel >= 15) + { + nAttack = 2; + nDamage = 3; + nWill = 2; + nFort = 2; + nReflex = 2; + nHP = 16; + nAC = 4; + nSkill = 3; + } + else if(nPerform >= 21 && nLevel >= 14) + { + nAttack = 2; + nDamage = 3; + nWill = 1; + nFort = 1; + nReflex = 1; + nHP = 16; + nAC = 3; + nSkill = 2; + } + else if(nPerform >= 18 && nLevel >= 11) + { + nAttack = 2; + nDamage = 2; + nWill = 1; + nFort = 1; + nReflex = 1; + nHP = 8; + nAC = 2; + nSkill = 2; + } + else if(nPerform >= 15 && nLevel >= 8) + { + nAttack = 2; + nDamage = 2; + nWill = 1; + nFort = 1; + nReflex = 1; + nHP = 8; + nAC = 0; + nSkill = 1; + } + else if(nPerform >= 12 && nLevel >= 6) + { + nAttack = 1; + nDamage = 2; + nWill = 1; + nFort = 1; + nReflex = 1; + nHP = 0; + nAC = 0; + nSkill = 1; + } + else if(nPerform >= 9 && nLevel >= 3) + { + nAttack = 1; + nDamage = 2; + nWill = 1; + nFort = 1; + nReflex = 0; + nHP = 0; + nAC = 0; + nSkill = 0; + } + else if(nPerform >= 6 && nLevel >= 2) + { + nAttack = 1; + nDamage = 1; + nWill = 1; + nFort = 0; + nReflex = 0; + nHP = 0; + nAC = 0; + nSkill = 0; + } + else if(nPerform >= 3 && nLevel >= 1) + { + nAttack = 1; + nDamage = 1; + nWill = 0; + nFort = 0; + nReflex = 0; + nHP = 0; + nAC = 0; + nSkill = 0; + } + effect eVis = EffectVisualEffect(VFX_IMP_DOOM); + + eAttack = EffectAttackDecrease(nAttack); + eDamage = EffectDamageDecrease(nDamage, DAMAGE_TYPE_BLUDGEONING|DAMAGE_TYPE_PIERCING|DAMAGE_TYPE_SLASHING); + effect eLink = EffectLinkEffects(eAttack, eDamage); + + if(nWill > 0) + { + eWill = EffectSavingThrowDecrease(SAVING_THROW_WILL, nWill); + eLink = EffectLinkEffects(eLink, eWill); + } + if(nFort > 0) + { + eFort = EffectSavingThrowDecrease(SAVING_THROW_FORT, nFort); + eLink = EffectLinkEffects(eLink, eFort); + } + if(nReflex > 0) + { + eReflex = EffectSavingThrowDecrease(SAVING_THROW_REFLEX, nReflex); + eLink = EffectLinkEffects(eLink, eReflex); + } + if(nAC > 0) + { + eAC = EffectACDecrease(nAC, AC_DODGE_BONUS); + eLink = EffectLinkEffects(eLink, eAC); + } + if(nSkill > 0) + { + eSkill = EffectSkillDecrease(SKILL_ALL_SKILLS, nSkill); + eLink = EffectLinkEffects(eLink, eSkill); + } + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eDur2 = EffectVisualEffect(507); + eLink = EffectLinkEffects(eLink, eDur); + + effect eImpact = EffectVisualEffect(VFX_IMP_HEAD_SONIC); + effect eFNF = EffectVisualEffect(VFX_FNF_LOS_EVIL_30); + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eFNF, GetLocation(OBJECT_SELF)); + + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, GetLocation(OBJECT_SELF)); + + eHP = ExtraordinaryEffect(eHP); + eLink = ExtraordinaryEffect(eLink); + + string sCurseSongHP = "CURSE_SONG_HP_" + ObjectToString(OBJECT_SELF); + + RemoveSongEffects(GetSpellId(),OBJECT_SELF,OBJECT_SELF); + + float fDelay; + while(GetIsObjectValid(oTarget)) + { + if(spellsIsTarget(oTarget, SPELL_TARGET_SELECTIVEHOSTILE, OBJECT_SELF)) + { + // * GZ Oct 2003: If we are deaf, we do not have negative effects from curse song + if (!PRCGetHasEffect(EFFECT_TYPE_SILENCE,oTarget) && !PRCGetHasEffect(EFFECT_TYPE_DEAF,oTarget)) + { + RemoveSongEffects(GetSpellId(),OBJECT_SELF,oTarget); + int nRace = MyPRCGetRacialType(oTarget); + + // Undead and Constructs are immune to mind effecting abilities. + // A bard with requiem can effect undead + if ((nRace == RACIAL_TYPE_UNDEAD && GetHasFeat(FEAT_REQUIEM, OBJECT_SELF)) || nRace != RACIAL_TYPE_UNDEAD && nRace != RACIAL_TYPE_CONSTRUCT || GetIsWarforged(oTarget)) + { + // Even with requiem, they have half duration + if (nRace == RACIAL_TYPE_UNDEAD) nDuration /= 2; + + if (nHP > 0 && !GetLocalInt(oTarget, sCurseSongHP)) + { + eHP = PRCEffectDamage(oTarget, nHP, DAMAGE_TYPE_SONIC, DAMAGE_POWER_NORMAL); + ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_SONIC), oTarget); + DelayCommand(0.01, ApplyEffectToObject(DURATION_TYPE_INSTANT, eHP, oTarget)); + SetLocalInt(oTarget, sCurseSongHP, TRUE); + DelayCommand(RoundsToSeconds(nDuration),DeleteLocalInt(oTarget, sCurseSongHP)); + } + + if (!GetIsDead(oTarget)) + { + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration)); + DelayCommand(PRCGetRandomDelay(0.1,0.5), ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + //StoreSongRecipient(oTarget, OBJECT_SELF, GetSpellId(), nDuration); + } + + } + } + else + { + ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_MAGIC_RESISTANCE_USE), oTarget); + } + } + + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, GetLocation(OBJECT_SELF)); + } + DecrementRemainingFeatUses(OBJECT_SELF, FEAT_BARD_SONGS); +} \ No newline at end of file diff --git a/_haks/poa_exp_abilities/x2_s2_discbreath.ncs b/_haks/poa_exp_abilities/x2_s2_discbreath.ncs new file mode 100644 index 0000000..8617928 Binary files /dev/null and b/_haks/poa_exp_abilities/x2_s2_discbreath.ncs differ diff --git a/_haks/poa_exp_abilities/x2_s2_discbreath.nss b/_haks/poa_exp_abilities/x2_s2_discbreath.nss new file mode 100644 index 0000000..76cc85d --- /dev/null +++ b/_haks/poa_exp_abilities/x2_s2_discbreath.nss @@ -0,0 +1,260 @@ +/* +This is the edited script I had made changes to before Silver reverted to +the original. It has: + +Round delays for metabreath/multiple uses +Line breath (working) +Pyroclastic being 50% of each +PRCGetReflexAdjustedDamage to interact better with other systems +Range dependant on size +Less code duplication by using dedicated functions. Easier to fix/find bugs. +Moved breath VFX so when different ones for different colors are done they can be easily implemented + +Moved to a new script so its not lost permanently. Feel free to refer to this if you want. + +Primogenitor + +//:: edited by Fox on 1/19/08 + +Script has been rewritten to use the new breath include. Most of the above has +been subsumed into said include where appropriate. + +//:://///////////////////////////////////////////// +//:: Breath Weapon for Dragon Disciple Class +//:: x2_s2_discbreath +//:: Copyright (c) 2003Bioware Corp. +//::////////////////////////////////////////////// + +//::////////////////////////////////////////////// +//:: Created By: Georg Zoeller (modified by Silver) +//:: Created On: June, 17, 2003 (June, 7, 2005) +//::////////////////////////////////////////////// +*/ +#include "prc_inc_spells" +#include "prc_inc_breath" +#include "prc_inc_combat" + +////////////////////////// +// Constant Definitions // +////////////////////////// + + +int IsLineBreath() +{ + object oDD = OBJECT_SELF; + if(GetHasFeat(FEAT_BLACK_DRAGON, oDD) + || GetHasFeat(FEAT_BLUE_DRAGON, oDD) + || GetHasFeat(FEAT_BRASS_DRAGON, oDD) + || GetHasFeat(FEAT_BRONZE_DRAGON, oDD) + || GetHasFeat(FEAT_COPPER_DRAGON, oDD) + || GetHasFeat(FEAT_AMETHYST_DRAGON, oDD) + || GetHasFeat(FEAT_BROWN_DRAGON, oDD) + || GetHasFeat(FEAT_CHAOS_DRAGON, oDD) + || GetHasFeat(FEAT_OCEANUS_DRAGON, oDD) + || GetHasFeat(FEAT_RADIANT_DRAGON, oDD) + || GetHasFeat(FEAT_RUST_DRAGON, oDD) + || GetHasFeat(FEAT_STYX_DRAGON, oDD) + || GetHasFeat(FEAT_TARTIAN_DRAGON, oDD) + ) + return TRUE; + return FALSE; +} + +//Returns range in feet for breath struct. Conversion to meters is +//handled internally in the include +float GetRangeFromSize(int nSize) +{ + float fRange = 30.0; + switch(nSize) + { + case CREATURE_SIZE_FINE: + case CREATURE_SIZE_DIMINUTIVE: + case CREATURE_SIZE_TINY: fRange = 15.0; break; + case CREATURE_SIZE_SMALL: fRange = 20.0; break; + case CREATURE_SIZE_MEDIUM: fRange = 30.0; break; + case CREATURE_SIZE_LARGE: fRange = 40.0; break; + case CREATURE_SIZE_HUGE: fRange = 50.0; break; + case CREATURE_SIZE_GARGANTUAN: fRange = 60.0; break; + case CREATURE_SIZE_COLOSSAL: fRange = 70.0; break; + } + return fRange; +} + +void BreathRecharge(object oPC) +{ + IncrementRemainingFeatUses(oPC, FEAT_DRAGON_DIS_BREATH); + SendMessageToPC(oPC, "Your breath weapon is ready now"); +} + +void main() +{ + //Declare main variables. + object oPC = OBJECT_SELF; + int nLevel = GetLevelByClass(CLASS_TYPE_DRAGON_DISCIPLE, oPC); + location lTarget = PRCGetSpellTargetLocation(); + struct breath DiscBreath; + int bLine = IsLineBreath(); + int nVis; + + //range calculation + float fRange = GetRangeFromSize(PRCGetCreatureSize(oPC)); + if(bLine) fRange *= 2.0; + + //Li Lung dragons have a 'roar' instead of breath weapon + /*if(GetHasFeat(FEAT_LI_LUNG_DRAGON, oPC)) + { + if(nUses < 3) + { + IncrementRemainingFeatUses(oPC, FEAT_DRAGON_DIS_BREATH); + nUses++; + lTarget = GetLocation(oPC); + fRange = FeetToMeters(fRange); + float fDuration = RoundsToSeconds(nLevel); + PlaySound("c_dragnold_atk1"); + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_HOWL_WAR_CRY), lTarget); + + object oTarget = GetFirstObjectInShape(SHAPE_SPHERE, fRange, lTarget, FALSE, OBJECT_TYPE_CREATURE); + while(GetIsObjectValid(oTarget)) + { + float fDelay = GetDistanceBetweenLocations(lTarget, GetLocation(oTarget))/20; + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectDeaf(), oTarget, fDuration)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_SONIC), oTarget)); + + oTarget = GetNextObjectInShape(SHAPE_SPHERE, fRange, lTarget, FALSE, OBJECT_TYPE_CREATURE); + } + SetLocalInt(oPC, SPECIAL_BREATH_USES, nUses); + } + return; + } + else if(GetHasFeat(FEAT_FANG_DRAGON, oPC)) + { + + else if(nUses < 2) + { + IncrementRemainingFeatUses(oPC, FEAT_DRAGON_DIS_BREATH); + nUses++; + object oBite = GetItemInSlot(INVENTORY_SLOT_CWEAPON_B, oPC); + int AttackRoll = GetAttackRoll(oTarget, oPC, oBite); + int nDamage = d4(1) * AttackRoll; + + if(nDamage) + { + ApplyAbilityDamage(oTarget, ABILITY_CONSTITUTION, nDamage, DURATION_TYPE_PERMANENT, TRUE); + ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_REDUCE_ABILITY_SCORE), oTarget); + } + SetLocalInt(oPC, SPECIAL_BREATH_USES, nUses); + } + return; + }*/ + + //Sets the save DC for Dragon Breath attacks. This is a reflex save to halve the damage. + //Save is 10+CON+1/2 DD level. Gains +1 at level 13, and every 3 levels after. + int nSaveDCBonus = ((nLevel)/2) + max((nLevel - 10) / 3, 0); + + //Sets damage levels for Dragon Breath attacks. 2d10 at level 3, + //4d10 at level 7, and then an additional 2d10 every 3 levels (10, 13, 16, ect) + int nDice; + + if (nLevel >= 3) nDice += 2; + if (nLevel >= 7) nDice += 2; + if (nLevel >= 10) nDice += 2; + if (nLevel >= 13) nDice += 2; + if (nLevel >= 16) nDice += 2; + if (nLevel >= 19) nDice += 2; + if (nLevel >= 22) nDice += 2; + if (nLevel >= 25) nDice += 2; + if (nLevel >= 28) nDice += 2; + if (nLevel >= 31) nDice += 2; +if (nLevel >= 34) nDice += 2; +if (nLevel >= 37) nDice += 2; +if (nLevel >= 40) nDice += 2; +if (nLevel >= 43) nDice += 2; +if (nLevel >= 46) nDice += 2; +if (nLevel >= 49) nDice += 2; +if (nLevel >= 52) nDice += 2; +if (nLevel >= 55) nDice += 2; +if (nLevel >= 58) nDice += 2; +if (nLevel >= 60) nDice += 2; + //Only Dragons with Breath Weapons will have damage caused by their breath attack. + //Any Dragon type not listed here will have a breath attack, but it will not + //cause damage or create a visual effect. + int DBREED = GetHasFeat(FEAT_RED_DRAGON, oPC) ? DAMAGE_TYPE_FIRE : + GetHasFeat(FEAT_BRASS_DRAGON, oPC) ? DAMAGE_TYPE_FIRE : + GetHasFeat(FEAT_GOLD_DRAGON, oPC) ? DAMAGE_TYPE_FIRE : + GetHasFeat(FEAT_LUNG_WANG_DRAGON, oPC) ? DAMAGE_TYPE_FIRE : + GetHasFeat(FEAT_TIEN_LUNG_DRAGON, oPC) ? DAMAGE_TYPE_FIRE : + GetHasFeat(FEAT_PYROCLASTIC_DRAGON, oPC) ? DAMAGE_TYPE_FIRE : + GetHasFeat(FEAT_BLACK_DRAGON, oPC) ? DAMAGE_TYPE_ACID : + GetHasFeat(FEAT_GREEN_DRAGON, oPC) ? DAMAGE_TYPE_ACID : + GetHasFeat(FEAT_COPPER_DRAGON, oPC) ? DAMAGE_TYPE_ACID : + GetHasFeat(FEAT_BROWN_DRAGON, oPC) ? DAMAGE_TYPE_ACID : + GetHasFeat(FEAT_DEEP_DRAGON, oPC) ? DAMAGE_TYPE_ACID : + GetHasFeat(FEAT_RUST_DRAGON, oPC) ? DAMAGE_TYPE_ACID : + GetHasFeat(FEAT_STYX_DRAGON, oPC) ? DAMAGE_TYPE_ACID : + GetHasFeat(FEAT_SILVER_DRAGON, oPC) ? DAMAGE_TYPE_COLD : + GetHasFeat(FEAT_WHITE_DRAGON, oPC) ? DAMAGE_TYPE_COLD : + GetHasFeat(FEAT_BLUE_DRAGON, oPC) ? DAMAGE_TYPE_ELECTRICAL : + GetHasFeat(FEAT_BRONZE_DRAGON, oPC) ? DAMAGE_TYPE_ELECTRICAL : + GetHasFeat(FEAT_OCEANUS_DRAGON, oPC) ? DAMAGE_TYPE_ELECTRICAL : + GetHasFeat(FEAT_SONG_DRAGON, oPC) ? DAMAGE_TYPE_ELECTRICAL : + GetHasFeat(FEAT_EMERALD_DRAGON, oPC) ? DAMAGE_TYPE_SONIC : + GetHasFeat(FEAT_SAPPHIRE_DRAGON, oPC) ? DAMAGE_TYPE_SONIC : + GetHasFeat(FEAT_BATTLE_DRAGON, oPC) ? DAMAGE_TYPE_SONIC : + GetHasFeat(FEAT_HOWLING_DRAGON, oPC) ? DAMAGE_TYPE_SONIC : + GetHasFeat(FEAT_CRYSTAL_DRAGON, oPC) ? DAMAGE_TYPE_POSITIVE : + GetHasFeat(FEAT_AMETHYST_DRAGON, oPC) ? DAMAGE_TYPE_MAGICAL : + GetHasFeat(FEAT_TOPAZ_DRAGON, oPC) ? DAMAGE_TYPE_MAGICAL : + GetHasFeat(FEAT_ETHEREAL_DRAGON, oPC) ? DAMAGE_TYPE_MAGICAL : + GetHasFeat(FEAT_RADIANT_DRAGON, oPC) ? DAMAGE_TYPE_MAGICAL : + GetHasFeat(FEAT_TARTIAN_DRAGON, oPC) ? DAMAGE_TYPE_MAGICAL : + -1; + + if(GetHasFeat(FEAT_CHAOS_DRAGON, oPC)) + { + //Sets the random Element factor of the Chaos Dragons Breath Weapon. + //Affects damage, saving throw, and impact visual. + switch(Random(5)) + { + case 0: DBREED = DAMAGE_TYPE_COLD; + case 1: DBREED = DAMAGE_TYPE_ACID; + case 2: DBREED = DAMAGE_TYPE_FIRE; + case 3: DBREED = DAMAGE_TYPE_SONIC; + case 4: DBREED = DAMAGE_TYPE_ELECTRICAL; + } + } + + DiscBreath = CreateBreath(oPC, bLine, fRange, DBREED, 10, nDice, ABILITY_CONSTITUTION, nSaveDCBonus); + + //activate override for special breath weapons + DiscBreath.nOverrideSpecial = GetHasFeat(FEAT_SHADOW_DRAGON, oPC) ? BREATH_SHADOW : + GetHasFeat(FEAT_PYROCLASTIC_DRAGON, oPC) ? BREATH_PYROCLASTIC : + GetHasFeat(FEAT_TOPAZ_DRAGON, oPC) ? BREATH_TOPAZ : + 0; + + //vfx + switch(DBREED) + { + case DAMAGE_TYPE_FIRE: nVis = VFX_FNF_DRAGBREATHGROUND; break; + case DAMAGE_TYPE_ACID: nVis = VFX_FNF_DRAGBREATHACID; break; + case DAMAGE_TYPE_COLD: nVis = VFX_FNF_DRAGBREATHCOLD; break; + case DAMAGE_TYPE_ELECTRICAL: nVis = VFX_FNF_DRAGBREATHMIND; break;//VFX_FNF_DRAGBREATHELEC + case DAMAGE_TYPE_SONIC: nVis = VFX_FNF_DRAGBREATHSONIC; break; + case DAMAGE_TYPE_POSITIVE: nVis = VFX_FNF_DRAGBREATHHOLY; break; + default: nVis = VFX_FNF_DRAGBREATHODD; break; + } + + //actual breath effect + ApplyBreath(DiscBreath, lTarget); + + //breath VFX + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, EffectVisualEffect(nVis), lTarget); + + if(GetHasFeat(FEAT_FULL_DRAGON_BREATH, oPC)) + { + // Schedule opening the delay lock + float fDelay = RoundsToSeconds(DiscBreath.nRoundsUntilRecharge); + SendMessageToPC(oPC, "Your breath weapon will be ready again in " + IntToString(DiscBreath.nRoundsUntilRecharge) + " rounds."); + + DelayCommand(fDelay, BreathRecharge(oPC)); + } +} \ No newline at end of file diff --git a/_haks/poa_exp_abilities/x2_s2_epicward.ncs b/_haks/poa_exp_abilities/x2_s2_epicward.ncs new file mode 100644 index 0000000..9a63405 Binary files /dev/null and b/_haks/poa_exp_abilities/x2_s2_epicward.ncs differ diff --git a/_haks/poa_exp_abilities/x2_s2_epicward.nss b/_haks/poa_exp_abilities/x2_s2_epicward.nss new file mode 100644 index 0000000..b5e97d2 --- /dev/null +++ b/_haks/poa_exp_abilities/x2_s2_epicward.nss @@ -0,0 +1,61 @@ +//:://///////////////////////////////////////////// +//:: Epic Ward +//:: X2_S2_EpicWard. +//:: Copyright (c) 2003 Bioware Corp. +//::////////////////////////////////////////////// +/* + Makes the caster invulnerable to damage + (equals damage reduction 50/+20) + Lasts 1 round per level + +*/ +//::////////////////////////////////////////////// +//:: Created By: Georg Zoeller +//:: Created On: Aug 12, 2003 +//::////////////////////////////////////////////// + +//:: modified by mr_bumpkin Dec 15, 2003 for PRC stuff +#include "prc_inc_spells" + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_ABJURATION); + +/* + Spellcast Hook Code + Added 2003-06-23 by GeorgZ + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + //Declare major variables + object oTarget = PRCGetSpellTargetObject(); + int nDuration = PRCGetCasterLevel(OBJECT_SELF); + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, GetSpellId(), FALSE)); + int nLimit = 50*nDuration; + effect eDur = EffectVisualEffect(495); + effect eProt = EffectDamageReduction(10+(nDuration/2) , DAMAGE_POWER_PLUS_TWENTY, nLimit); + effect eLink = EffectLinkEffects(eDur, eProt); + eLink = EffectLinkEffects(eLink, eDur); + + // * Brent, Nov 24, making extraodinary so cannot be dispelled + eLink = ExtraordinaryEffect(eLink); + + PRCRemoveEffectsFromSpell(OBJECT_SELF, GetSpellId()); + //Apply the armor bonuses and the VFX impact + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration)); + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the local integer storing the spellschool name + +} diff --git a/_haks/poa_exp_abilities/x2_s2_epmagearm.ncs b/_haks/poa_exp_abilities/x2_s2_epmagearm.ncs new file mode 100644 index 0000000..e8ebde7 Binary files /dev/null and b/_haks/poa_exp_abilities/x2_s2_epmagearm.ncs differ diff --git a/_haks/poa_exp_abilities/x2_s2_epmagearm.nss b/_haks/poa_exp_abilities/x2_s2_epmagearm.nss new file mode 100644 index 0000000..982033f --- /dev/null +++ b/_haks/poa_exp_abilities/x2_s2_epmagearm.nss @@ -0,0 +1,73 @@ +//:://///////////////////////////////////////////// +//:: Epic Mage Armor +//:: X2_S2_EpMageArm +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Gives the target +20 AC Bonus to Deflection, + Armor Enchantment, Natural Armor and Dodge. +*/ +//::////////////////////////////////////////////// +//:: Created By: Andrew Nobbs +//:: Created On: Feb 07, 2003 +//::////////////////////////////////////////////// + +//:: modified by mr_bumpkin Dec 15, 2003 for PRC stuff +#include "prc_inc_spells" + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_CONJURATION); + + /* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + + */ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + + //Declare major variables + object oTarget = PRCGetSpellTargetObject(); + int nDuration = PRCGetCasterLevel(OBJECT_SELF); + int nMetaMagic = PRCGetMetaMagicFeat(); + effect eVis = EffectVisualEffect(495); + effect eAC1, eAC2, eAC3, eAC4; + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, GetSpellId(), FALSE)); + //Check for metamagic extend + if (CheckMetaMagic(nMetaMagic, METAMAGIC_EXTEND)) //Duration is +100% + { + nDuration = nDuration * 2; + } + //Set the four unique armor bonuses + eAC1 = EffectACIncrease(nDuration/4, AC_ARMOUR_ENCHANTMENT_BONUS); + eAC2 = EffectACIncrease(nDuration/4, AC_DEFLECTION_BONUS); + eAC3 = EffectACIncrease(nDuration/4, AC_DODGE_BONUS); + eAC4 = EffectACIncrease(nDuration/4, AC_NATURAL_BONUS); + effect eDur = EffectVisualEffect(VFX_DUR_SANCTUARY); + + effect eLink = EffectLinkEffects(eAC1, eAC2); + eLink = EffectLinkEffects(eLink, eAC3); + eLink = EffectLinkEffects(eLink, eAC4); + eLink = EffectLinkEffects(eLink, eDur); + + PRCRemoveEffectsFromSpell(oTarget, GetSpellId()); + + // * Brent, Nov 24, making extraodinary so cannot be dispelled + eLink = ExtraordinaryEffect(eLink); + + //Apply the armor bonuses and the VFX impact + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, HoursToSeconds(nDuration)); + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eVis, oTarget,1.0); + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the local integer storing the spellschool name +} diff --git a/_haks/poa_exp_spells/disease.2da b/_haks/poa_exp_spells/disease.2da new file mode 100644 index 0000000..e1ca039 --- /dev/null +++ b/_haks/poa_exp_spells/disease.2da @@ -0,0 +1,66 @@ +2DA V2.0 + + Label Name First_Save Subs_Save Incu_Hours Dice_1 Dam_1 Type_1 Dice_2 Dam_2 Type_2 Dice_3 Dam_3 Type_3 Type End_Incu_Script 24_Hour_Script +0 Blinding_Sickness 4689 26 26 1 4 1 0 **** **** **** **** **** **** EXTRA **** NW_S3_BlindSick +1 Cackle_Fever 4690 26 26 1 6 1 4 **** **** **** **** **** **** EXTRA **** **** +2 Demon_Fever 4691 28 28 1 6 1 2 **** **** **** **** **** **** SUPER **** Nw_S3_DemonFev +3 Devil_Chills 4692 24 24 1 4 1 0 **** **** **** **** **** **** SUPER **** **** +4 Filth_Fever 4693 22 22 1 3 1 3 3 1 2 **** **** **** EXTRA **** **** +5 Mindfire 4694 22 22 1 4 1 3 **** **** **** **** **** **** EXTRA **** **** +6 Mummy_Rot 4695 30 30 1 6 1 2 **** **** **** **** **** **** SUPER **** **** +7 Red_Ache 4696 25 25 1 6 1 0 **** **** **** **** **** **** EXTRA **** **** +8 Shakes 4697 23 23 1 6 1 0 **** **** **** **** **** **** EXTRA **** **** +9 Slimy_Doom 4698 24 24 1 4 1 1 **** **** **** **** **** **** EXTRA **** **** +10 Red_Slaad_Eggs 4699 27 27 1 6 2 1 6 2 0 6 2 2 EXTRA NW_S3_SlaadEgg **** +11 Ghoul_Rot 4700 28 28 1 6 1 2 6 1 0 **** **** **** SUPER **** **** +12 Zombie_Creep 4701 25 25 1 4 1 2 4 1 1 **** **** **** SUPER **** **** +13 Dread_Blisters 4702 23 23 1 4 1 2 4 1 5 **** **** **** SUPER **** **** +14 Burrow_Maggots 4703 27 27 1 4 1 3 4 1 4 **** **** **** SUPER **** **** +15 Soldier_Shakes 4704 35 35 1 **** **** **** **** **** **** **** **** **** **** **** Nw_S3_SoldShake +16 Vermin_Madness 4705 23 13 1 1 1 3 1 1 4 1 1 5 EXTRA **** **** +17 **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** +18 **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** +19 **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** +20 Contagion_Blinding_Sickness 4689 127 16 1 4 1 0 **** **** **** **** **** **** EXTRA **** NW_S3_BlindSick +21 Contagion_Cackle_Fever 4690 127 16 1 6 1 4 **** **** **** **** **** **** EXTRA **** **** +22 Contagion_Filth_Fever 4693 127 12 1 3 1 3 3 1 2 **** **** **** EXTRA **** **** +23 Contagion_Mindfire 4694 127 12 1 4 1 3 **** **** **** **** **** **** EXTRA **** **** +24 Contagion_Red_Ache 4696 127 15 1 6 1 0 **** **** **** **** **** **** EXTRA **** **** +25 Contagion_Shakes 4697 127 13 1 6 1 0 **** **** **** **** **** **** EXTRA **** **** +26 Contagion_Slimy_Doom 4698 127 14 1 4 1 1 **** **** **** **** **** **** EXTRA **** **** +27 **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** +28 **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** +29 **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** +30 **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** +31 **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** +32 **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** +33 **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** +34 **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** +35 **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** +36 **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** +37 **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** +38 **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** +39 **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** +40 **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** +41 **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** +42 **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** +43 **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** +44 **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** +45 **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** +46 **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** +47 **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** +48 **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** +49 **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** +50 **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** +51 Pestilence_disease 16826251 127 127 0 **** **** **** **** **** **** **** **** **** SUPER **** sp_pest_aux +52 Talonas_Blight 16824947 127 127 2 1 4 2 1 4 5 **** **** **** SUPER **** prc_talona +53 Blue_guts 16829286 127 127 0 **** **** **** **** **** **** **** **** **** SUPER **** prc_blue_guts +54 Soul_Rot 16829287 127 127 0 **** **** **** **** **** **** **** **** **** SUPER **** prc_soul_rot +55 Agony_Addiction **** 127 127 0 **** **** **** **** **** **** **** **** **** SUPER **** prc_addct_ag +56 Baccaran_Addiction **** 127 127 0 **** **** **** **** **** **** **** **** **** SUPER **** prc_addct_bac +57 Devilweed_Addiction **** 127 127 0 **** **** **** **** **** **** **** **** **** SUPER **** prc_addct_dw +58 Luhix_Addiction **** 127 127 0 **** **** **** **** **** **** **** **** **** SUPER **** prc_addct_lhx +59 Mushroom_powder_Addiction **** 127 127 0 **** **** **** **** **** **** **** **** **** SUPER **** prc_addct_msh +60 Sannish_Addiction **** 127 127 0 **** **** **** **** **** **** **** **** **** SUPER **** prc_addct_snh +61 Terran_Brandy_Addiction **** 127 127 0 **** **** **** **** **** **** **** **** **** SUPER **** prc_addct_tb +62 Vodare_Addiction **** 127 127 0 **** **** **** **** **** **** **** **** **** SUPER **** prc_addct_vdr diff --git a/_haks/poa_exp_spells/nw_s0_aid.ncs b/_haks/poa_exp_spells/nw_s0_aid.ncs new file mode 100644 index 0000000..3e0560b Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_aid.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_aid.nss b/_haks/poa_exp_spells/nw_s0_aid.nss new file mode 100644 index 0000000..7fc3975 --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_aid.nss @@ -0,0 +1,131 @@ +//:://///////////////////////////////////////////// +//:: Name Aid/Mass Aid +//:: FileName nw_s0_aid.nss +/*::////////////////////////////////////////////// +Aid +Enchantment (Compulsion) [Mind-Affecting] +Level: Clr 2, Good 2, Luck 2 +Components: V, S, DF +Casting Time: 1 standard action +Range: Touch +Target: Living creature touched +Duration: 1 min./level +Saving Throw: None +Spell Resistance: Yes (harmless) + +Aid grants the target a +1 morale bonus on attack +rolls and saves against fear effects, plus +temporary hit points equal to 1d8 + caster level +(to a maximum of 1d8 + 10 temporary hit points at +caster level 10th). + +Mass Aid +Enchantment (Compulsion) [Mind-Affecting] +Level: Clr 3 +Range: Close (25 ft. + 5 ft./2 levels) +Targets: One or more creatures within a 30 ft. range. +Components: V, S, DF +Casting Time: 1 standard action +Duration: 1 min./level +Saving Throw: None +Spell Resistance: Yes (harmless) + +Subjects gain +1 morale bonus on attack rolls and +saves against fear effects, plus temporary hit +points equal to 1d8 + caster level (to a maximum +of 1d8 + 15 at caster level 15). +//::*///////////////////////////////////////////// + +#include "prc_sp_func" + +void StripBuff(object oTarget, int nBuffSpellID, int nMassBuffSpellID) +{ + effect eEffect = GetFirstEffect(oTarget); + while (GetIsEffectValid(eEffect)) + { + int nSpellID = GetEffectSpellId(eEffect); + if (nBuffSpellID == nSpellID || nMassBuffSpellID == nSpellID) + RemoveEffect(oTarget, eEffect); + eEffect = GetNextEffect(oTarget); + } +} + +int DoSpell(object oCaster, object oTarget, int nCasterLevel, int nSpellID) +{ + //Declare major variables + location lTarget; + int nMetaMagic = PRCGetMetaMagicFeat(); + int bMass = nSpellID == SPELL_MASS_AID; + int nBonusLimit = bMass ? 20 : 15; + float fDuration = TurnsToSeconds(nCasterLevel); + if(nMetaMagic & METAMAGIC_EXTEND) fDuration *= 2; + + effect eVis = EffectVisualEffect(VFX_IMP_HOLY_AID); + effect eAttack = EffectAttackIncrease(1); + effect eSave = EffectSavingThrowIncrease(SAVING_THROW_ALL, 1, SAVING_THROW_TYPE_FEAR); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE); + effect eLink = EffectLinkEffects(eAttack, eSave); + eLink = EffectLinkEffects(eLink, eDur); + + if(bMass) + { + lTarget = PRCGetSpellTargetLocation(); + oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, lTarget, TRUE, OBJECT_TYPE_CREATURE); + } + while(GetIsObjectValid(oTarget)) + { + if(((!bMass) || (spellsIsTarget(oTarget, SPELL_TARGET_ALLALLIES, oCaster))) && PRCGetIsAliveCreature(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oCaster, nSpellID, FALSE)); + + int nBonus = d8(1); + if(nMetaMagic & METAMAGIC_MAXIMIZE) nBonus = 8; + if(nMetaMagic & METAMAGIC_EMPOWER) nBonus += (nBonus / 2); + nBonus += nBonusLimit > nCasterLevel ? nCasterLevel : nBonusLimit; + + effect eHP = EffectTemporaryHitpoints(nBonus); + + // Remove pervious castings of it + StripBuff(oTarget, SPELL_AID, SPELL_MASS_AID); + + //Apply the VFX impact and effects + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, fDuration, TRUE, nSpellID, nCasterLevel, oCaster); + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eHP, oTarget, fDuration); + } + if(!bMass) break; + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, lTarget, TRUE, OBJECT_TYPE_CREATURE); + } + + return TRUE; //return TRUE if spell charges should be decremented +} + +void main() +{ + if (!X2PreSpellCastCode()) return; + PRCSetSchool(SPELL_SCHOOL_ENCHANTMENT); + object oCaster = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nSpellID = PRCGetSpellId(); + int nCasterLevel = PRCGetCasterLevel(oCaster); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if(GetLocalInt(oCaster, PRC_SPELL_HOLD) && oCaster == oTarget && IsTouchSpell(nSpellID)) + { //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + DoSpell(oCaster, oTarget, nCasterLevel, nSpellID); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel, nSpellID)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/nw_s0_awaken.ncs b/_haks/poa_exp_spells/nw_s0_awaken.ncs new file mode 100644 index 0000000..efbea1e Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_awaken.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_awaken.nss b/_haks/poa_exp_spells/nw_s0_awaken.nss new file mode 100644 index 0000000..17d25ac --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_awaken.nss @@ -0,0 +1,92 @@ +/* + nw_s0_awaken + + This spell makes an animal ally more + powerful, intelligent and robust for the + duration of the spell. Requires the caster to + make a Will save to succeed. + + By: Preston Watamaniuk + Created: Aug 10, 2001 + Modified: Jun 12, 2006 +*/ + +#include "prc_sp_func" +#include "inc_npc" + +//Implements the spell impact, put code here +// if called in many places, return TRUE if +// stored charges should be decreased +// eg. touch attack hits +// +// Variables passed may be changed if necessary +int DoSpell(object oCaster, object oTarget, int nCasterLevel, int nEvent) +{ + //Declare major variables + effect eStr = EffectAbilityIncrease(ABILITY_STRENGTH, d4(4)); + effect eCon = EffectAbilityIncrease(ABILITY_CONSTITUTION, d4(4)); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE); + effect eInt; + effect eAttack = EffectAttackIncrease(d4(2)); + effect eVis = EffectVisualEffect(VFX_IMP_HOLY_AID); + int nInt = d10(); + //int nDuration = 24; + int nMetaMagic = PRCGetMetaMagicFeat(); + + if(GetAssociateTypeNPC(oTarget) == ASSOCIATE_TYPE_ANIMALCOMPANION && GetMasterNPC(oTarget) == oCaster) + { + if(!GetHasSpellEffect(SPELL_AWAKEN)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oCaster, SPELL_AWAKEN, FALSE)); + //Enter Metamagic conditions + if(nMetaMagic & METAMAGIC_MAXIMIZE) + nInt = 10;//Damage is at max + if(nMetaMagic & METAMAGIC_EMPOWER) + nInt += (nInt/2); //Damage/Healing is +50% + //if(nMetaMagic & METAMAGIC_EXTEND) + // nDuration *= 2; //Duration is +100% + + eInt = EffectAbilityIncrease(ABILITY_WISDOM, nInt); + + effect eLink = EffectLinkEffects(eStr, eCon); + eLink = EffectLinkEffects(eLink, eAttack); + eLink = EffectLinkEffects(eLink, eInt); + eLink = EffectLinkEffects(eLink, eDur); + eLink = SupernaturalEffect(eLink); + //Apply the VFX impact and effects + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + SPApplyEffectToObject(DURATION_TYPE_PERMANENT, eLink, oTarget, 0.0f, TRUE, SPELL_AWAKEN, nCasterLevel); + } + } + + return TRUE; //return TRUE if spell charges should be decremented +} + +void main() +{ + if(!X2PreSpellCastCode()) return; + PRCSetSchool(SPELL_SCHOOL_TRANSMUTATION); + object oCaster = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nCasterLevel = PRCGetCasterLevel(oCaster); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if(GetLocalInt(oCaster, PRC_SPELL_HOLD) && oCaster == oTarget) + { //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + DoSpell(oCaster, oTarget, nCasterLevel, nEvent); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel, nEvent)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/nw_s0_barkskin.ncs b/_haks/poa_exp_spells/nw_s0_barkskin.ncs new file mode 100644 index 0000000..cdf36d9 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_barkskin.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_barkskin.nss b/_haks/poa_exp_spells/nw_s0_barkskin.nss new file mode 100644 index 0000000..9e899b4 --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_barkskin.nss @@ -0,0 +1,95 @@ +//:://///////////////////////////////////////////// +//:: Barkskin +//:: nw_s0_barkskin.nss +//:://///////////////////////////////////////////// +/* +Transmutation +Level: Drd 2, Rgr 2, Plant 2 +Components: V, S, DF +Casting Time: 1 standard action +Range: Touch +Target: Living creature touched +Duration: 10 min./level +Saving Throw: None +Spell Resistance: Yes (harmless) + +Barkskin toughens a creature’s skin. The effect +grants a +2 enhancement bonus to the creature’s +existing natural armor bonus. This enhancement +bonus increases by 1 for every three caster levels +above 3rd, to a maximum of +5 at caster level 12th. + +The enhancement bonus provided by barkskin stacks +with the target’s natural armor bonus, but not with +other enhancement bonuses to natural armor. A +creature without natural armor has an effective +natural armor bonus of +0. +*/ +//::////////////////////////////////////////////// +//:: By: Preston Watamaniuk +//:: Created: Feb 21, 2001 +//:: Modified: Jun 12, 2006 +//::////////////////////////////////////////////// + +#include "prc_sp_func" + +int DoSpell(object oCaster, object oTarget, int nCasterLevel) +{ + if(!PRCGetIsAliveCreature(oTarget)) + { + FloatingTextStringOnCreature("Selected target is not a living creature.", oCaster, FALSE); + return FALSE; + } + + float fDuration = TurnsToSeconds(nCasterLevel) * 10; + //Enter Metamagic conditions + int nMetaMagic = PRCGetMetaMagicFeat(); + if(nMetaMagic & METAMAGIC_EXTEND) //Duration is +100% + fDuration *= 2; + + //Determine AC Bonus based Level. + int nBonus = (nCasterLevel / 3) + 1; + if(nBonus > 20) + nBonus = 20; + + //Make sure the Armor Bonus is of type Natural + effect eLink = EffectACIncrease(nBonus, AC_NATURAL_BONUS); + eLink = EffectLinkEffects(eLink, EffectVisualEffect(VFX_DUR_PROT_BARKSKIN)); + eLink = EffectLinkEffects(eLink, EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE)); + effect eHead = EffectVisualEffect(VFX_IMP_HEAD_NATURE); + + //Signal spell cast at event + SignalEvent(oTarget, EventSpellCastAt(oCaster, SPELL_BARKSKIN, FALSE)); + + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, fDuration, TRUE, SPELL_BARKSKIN, nCasterLevel); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eHead, oTarget); + + return TRUE; //return TRUE if spell charges should be decremented +} + +void main() +{ + if (!X2PreSpellCastCode()) return; + PRCSetSchool(SPELL_SCHOOL_TRANSMUTATION); + object oTarget = PRCGetSpellTargetObject(); + int nCasterLevel = PRCGetCasterLevel(); + int nEvent = GetLocalInt(OBJECT_SELF, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if(GetLocalInt(OBJECT_SELF, PRC_SPELL_HOLD) && OBJECT_SELF == oTarget) + { //holding the charge, casting spell on self + SetLocalSpellVariables(OBJECT_SELF, 1); //change 1 to number of charges + return; + } + DoSpell(OBJECT_SELF, oTarget, nCasterLevel); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(OBJECT_SELF, oTarget, nCasterLevel)) + DecrementSpellCharges(OBJECT_SELF); + } + } + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/nw_s0_bladebara.ncs b/_haks/poa_exp_spells/nw_s0_bladebara.ncs new file mode 100644 index 0000000..060296b Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_bladebara.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_bladebara.nss b/_haks/poa_exp_spells/nw_s0_bladebara.nss new file mode 100644 index 0000000..0e9e10f --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_bladebara.nss @@ -0,0 +1,81 @@ +//:://///////////////////////////////////////////// +//:: Blade Barrier: On Enter +//:: NW_S0_BladeBarA.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Creates a wall 10m long and 2m thick of whirling + blades that hack and slice anything moving into + them. Anything caught in the blades takes + 2d6 per caster level. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: July 20, 2001 +//::////////////////////////////////////////////// + + +//:: modified by mr_bumpkin Dec 4, 2003 +#include "prc_inc_spells" +#include "prc_add_spell_dc" + + + +void main() +{ + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION); + + //Declare major variables + object oTarget = GetEnteringObject(); + effect eDam; + effect eVis = EffectVisualEffect(VFX_COM_BLOOD_LRG_RED); + object aoeCreator = GetAreaOfEffectCreator(); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nLevel = GetLocalInt(OBJECT_SELF, "X2_AoE_Caster_Level"); + int CasterLvl = nLevel; + + int nPenetr = SPGetPenetrAOE(aoeCreator,CasterLvl); + + //Make level check + if (nLevel > 40) + { + nLevel = 40; + } + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, aoeCreator)) + { + //Fire spell cast at event + SignalEvent(oTarget, EventSpellCastAt(aoeCreator, SPELL_BLADE_BARRIER)); + //Roll Damage + int nDamage = d6(nLevel); + //Enter Metamagic conditions + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDamage = nLevel * 6;//Damage is at max + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDamage = nDamage + (nDamage/2); + } + //nDamage += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF, FALSE); + //Make SR Check + if (!PRCDoResistSpell(aoeCreator, oTarget,nPenetr) ) + { + // 1.69 change + //Adjust damage according to Reflex Save, Evasion or Improved Evasion + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, PRCGetSaveDC(oTarget,aoeCreator),SAVING_THROW_TYPE_SPELL); + + //Set damage effect + eDam = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_SLASHING); + //Apply damage and VFX + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + } + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the local integer storing the spellschool name +} + diff --git a/_haks/poa_exp_spells/nw_s0_bladebarc.ncs b/_haks/poa_exp_spells/nw_s0_bladebarc.ncs new file mode 100644 index 0000000..33bcd33 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_bladebarc.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_bladebarc.nss b/_haks/poa_exp_spells/nw_s0_bladebarc.nss new file mode 100644 index 0000000..da49e69 --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_bladebarc.nss @@ -0,0 +1,102 @@ +//:://///////////////////////////////////////////// +//:: Blade Barrier: Heartbeat +//:: NW_S0_BladeBarA.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Creates a wall 10m long and 2m thick of whirling + blades that hack and slice anything moving into + them. Anything caught in the blades takes + 2d6 per caster level. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: July 20, 2001 +//::////////////////////////////////////////////// + + +//:: modified by mr_bumpkin Dec 4, 2003 +#include "prc_inc_spells" +#include "prc_add_spell_dc" + + + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION); + + //Declare major variables + object oTarget; + effect eDam; + effect eVis = EffectVisualEffect(VFX_COM_BLOOD_LRG_RED); + object aoeCreator = GetAreaOfEffectCreator(); + int nMetaMagic = PRCGetMetaMagicFeat(); + int CasterLvl = GetLocalInt(OBJECT_SELF, "X2_AoE_Caster_Level"); + int nLevel = CasterLvl; + //Make level check + if (nLevel > 40) + { + nLevel = 40; + } + + int nPenetr = SPGetPenetrAOE(aoeCreator,CasterLvl); + + + //-------------------------------------------------------------------------- + // GZ 2003-Oct-15 + // Add damage to placeables/doors now that the command support bit fields + //-------------------------------------------------------------------------- + oTarget = GetFirstInPersistentObject(OBJECT_SELF,OBJECT_TYPE_CREATURE | OBJECT_TYPE_PLACEABLE | OBJECT_TYPE_DOOR); + + //-------------------------------------------------------------------------- + // GZ 2003-Oct-15 + // When the caster is no longer there, all functions calling + // GetAreaOfEffectCreator will fail. Its better to remove the barrier then + //-------------------------------------------------------------------------- + if (!GetIsObjectValid(aoeCreator)) + { + DestroyObject(OBJECT_SELF); + return; + } + + while(GetIsObjectValid(oTarget)) + { + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, aoeCreator)) + { + //Fire spell cast at event + SignalEvent(oTarget, EventSpellCastAt(aoeCreator, SPELL_BLADE_BARRIER)); + //Make SR Check + if (!PRCDoResistSpell(aoeCreator, oTarget,CasterLvl) ) + { + int nDC = PRCGetSaveDC(oTarget,aoeCreator); + //Roll Damage + int nDamage = d6(nLevel); + //Enter Metamagic conditions + if((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDamage = nLevel * 6;//Damage is at max + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDamage = nDamage + (nDamage/2); + } + //nDamage += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF, FALSE); + // 1.69 change + //Adjust damage according to Reflex Save, Evasion or Improved Evasion + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, PRCGetSaveDC(oTarget,aoeCreator),SAVING_THROW_TYPE_SPELL); + //Set damage effect + eDam = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_SLASHING); + //Apply damage and VFX + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + } + oTarget = GetNextInPersistentObject(OBJECT_SELF,OBJECT_TYPE_CREATURE | OBJECT_TYPE_PLACEABLE | OBJECT_TYPE_DOOR); + } + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the local integer storing the spellschool name + +} + diff --git a/_haks/poa_exp_spells/nw_s0_burnhand.ncs b/_haks/poa_exp_spells/nw_s0_burnhand.ncs new file mode 100644 index 0000000..70c0d0a Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_burnhand.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_burnhand.nss b/_haks/poa_exp_spells/nw_s0_burnhand.nss new file mode 100644 index 0000000..95ec18c --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_burnhand.nss @@ -0,0 +1,98 @@ +//:://///////////////////////////////////////////// +//:: Burning Hands +//:: NW_S0_BurnHand +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* +Evocation [Fire] +Level: Fire 1, Sor/Wiz 1 +Components: V, S +Casting Time: 1 standard action +Range: 15 ft. +Area: Cone-shaped burst +Duration: Instantaneous +Saving Throw: Reflex half +Spell Resistance: Yes + +A cone of searing flame shoots from your fingertips. +Any creature in the area of the flames takes 1d4 +points of fire damage per caster level (maximum 5d4). +Flammable materials burn if the flames touch them. +A character can extinguish burning items as a +full-round action. + +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: April 5, 2001 +//::////////////////////////////////////////////// +//:: Last Updated On: April 5th, 2001 +//:: VFX Pass By: Preston W, On: June 20, 2001 +//:: Update Pass By: Preston W, On: July 23, 2001 +//:: modified by mr_bumpkin Dec 4, 2003 + +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void main() +{ + if (!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_TRANSMUTATION); + + //Declare major variables + object oCaster = OBJECT_SELF; + location lTarget = PRCGetSpellTargetLocation(); + int nCasterLevel = PRCGetCasterLevel(oCaster); + int nPenetr = nCasterLevel + SPGetPenetr(); + int nMetaMagic = PRCGetMetaMagicFeat(); + int EleDmg = ChangedElementalDamage(oCaster, DAMAGE_TYPE_FIRE); + int nSaveType = ChangedSaveType(EleDmg); + int nDice = min(20, nCasterLevel); + int nDamage; + float fDist; + + //Declare and assign personal impact visual effect. + effect eVis = EffectVisualEffect(VFX_IMP_FLAME_S); + + //Declare the spell shape, size and the location. Capture the first target object in the shape. + object oTarget = MyFirstObjectInShape(SHAPE_SPELLCONE, 10.0, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + + //Cycle through the targets within the spell shape until an invalid object is captured. + while(GetIsObjectValid(oTarget)) + { + if(spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, oCaster)) + { + //Signal spell cast at event to fire. + SignalEvent(oTarget, EventSpellCastAt(oCaster, SPELL_BURNING_HANDS)); + //Calculate the delay time on the application of effects based on the distance + //between the caster and the target + fDist = GetDistanceBetween(oCaster, oTarget)/20; + //Make SR check, and appropriate saving throw. + if(!PRCDoResistSpell(oCaster, oTarget, nPenetr, fDist) && oTarget != oCaster) + { + nDamage = d4(nDice); + //Enter Metamagic conditions + if(nMetaMagic & METAMAGIC_MAXIMIZE) + nDamage = 4 * nDice;//Damage is at max + if(nMetaMagic & METAMAGIC_EMPOWER) + nDamage += nDamage / 2; //Damage/Healing is +50% + + //Run the damage through the various reflex save and evasion feats + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, PRCGetSaveDC(oTarget, oCaster), nSaveType); + if(nDamage > 0) + { + effect eFire = PRCEffectDamage(oTarget, nDamage, EleDmg); + + // Apply effects to the currently selected target. + DelayCommand(fDist, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + DelayCommand(fDist, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eFire, oTarget)); + PRCBonusDamage(oTarget); + } + } + } + //Select the next target within the spell shape. + oTarget = MyNextObjectInShape(SHAPE_SPELLCONE, 10.0, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + } + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/nw_s0_calllghtn.ncs b/_haks/poa_exp_spells/nw_s0_calllghtn.ncs new file mode 100644 index 0000000..8cb8776 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_calllghtn.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_calllghtn.nss b/_haks/poa_exp_spells/nw_s0_calllghtn.nss new file mode 100644 index 0000000..513e277 --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_calllghtn.nss @@ -0,0 +1,112 @@ +//:://///////////////////////////////////////////// +//:: Call Lightning +//:: NW_S0_CallLghtn.nss +//:: Copyright (c) 2001 Bioware Corp. +//:://///////////////////////////////////////////// +/* +Evocation [Electricity] +Level: Drd 3 +Components: V, S +Casting Time: 1 round +Range: Medium (100 ft. + 10 ft./level) +Effect: One or more 30-ft.-long vertical lines of lightning +Duration: 1 min./level +Saving Throw: Reflex half +Spell Resistance: Yes + +Immediately upon completion of the spell, and once +per round thereafter, you may call down a 5-foot-wide, +30-foot-long, vertical bolt of lightning that deals +3d6 points of electricity damage. The bolt of lightning +flashes down in a vertical stroke at whatever target +point you choose within the spell’s range (measured +from your position at the time). Any creature in the +target square or in the path of the bolt is affected. + +You need not call a bolt of lightning immediately; +other actions, even spellcasting, can be performed. +However, each round after the first you may use a +standard action (concentrating on the spell) to call +a bolt. You may call a total number of bolts equal to +your caster level (maximum 10 bolts). + +If you are outdoors and in a stormy area—a rain shower, +clouds and wind, hot and cloudy conditions, or even a +tornado (including a whirlwind formed by a djinni or an +air elemental of at least Large size)—each bolt deals +3d10 points of electricity damage instead of 3d6. + +This spell functions indoors or underground but not +underwater. + +*/ +//::////////////////////////////////////////////// +//:: Notes: totally not like PnP version, +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 22, 2001 +//::////////////////////////////////////////////// +//:: VFX Pass By: Preston W, On: June 20, 2001 +//:: modified by mr_bumpkin Dec 4, 2003 + +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void main() +{ + if (!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + //Declare major variables + object oCaster = OBJECT_SELF; + location lTarget = PRCGetSpellTargetLocation(); + int nCasterLvl = PRCGetCasterLevel(oCaster); + int nPenetr = nCasterLvl + SPGetPenetr(); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDice = min(20, nCasterLvl); + int EleDmg = ChangedElementalDamage(oCaster, DAMAGE_TYPE_ELECTRICAL); + int nSaveType = ChangedSaveType(EleDmg); + + effect eVis = EffectVisualEffect(VFX_IMP_LIGHTNING_M); + + //Declare the spell shape, size and the location. Capture the first target object in the shape. + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + //Cycle through the targets within the spell shape until an invalid object is captured. + while (GetIsObjectValid(oTarget)) + { + if(spellsIsTarget(oTarget, SPELL_TARGET_SELECTIVEHOSTILE, oCaster)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oCaster, SPELL_CALL_LIGHTNING)); + //Get the distance between the explosion and the target to calculate delay + float fDelay = PRCGetRandomDelay(0.4, 1.75); + if (!PRCDoResistSpell(oCaster, oTarget, nPenetr, fDelay)) + { + //Roll damage for each target + int nDamage = d6(nDice); + //Resolve metamagic + if(nMetaMagic & METAMAGIC_MAXIMIZE) + nDamage = 6 * nDice; + if(nMetaMagic & METAMAGIC_EMPOWER) + nDamage += nDamage / 2; + + //Adjust the damage based on the Reflex Save, Evasion and Improved Evasion. + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, PRCGetSaveDC(oTarget, oCaster), nSaveType); + if(nDamage > 0) + { + //Set the damage effect + effect eDam = PRCEffectDamage(oTarget, nDamage, EleDmg); + + // Apply effects to the currently selected target. + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget)); + PRCBonusDamage(oTarget); + } + } + } + //Select the next target within the spell shape. + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + } + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/nw_s0_chlightn.ncs b/_haks/poa_exp_spells/nw_s0_chlightn.ncs new file mode 100644 index 0000000..812b292 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_chlightn.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_chlightn.nss b/_haks/poa_exp_spells/nw_s0_chlightn.nss new file mode 100644 index 0000000..b98fa9d --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_chlightn.nss @@ -0,0 +1,204 @@ +//:://///////////////////////////////////////////// +//:: Chain Lightning +//:: NW_S0_ChLightn +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + The primary target is struck with 1d6 per caster, + 1/2 with a reflex save. 1 secondary target per + level is struck for 1d6 / 2 caster levels. No + repeat targets can be chosen. +*/ +//::////////////////////////////////////////////// +//:: Created By: Brennon Holmes +//:: Created On: March 8, 2001 +//::////////////////////////////////////////////// +//:: Last Updated By: Preston Watamaniuk, On: April 26, 2001 +//:: Update Pass By: Preston W, On: July 26, 2001 + +/* +bugfix by Kovi 2002.07.28 +- successful saving throw and (improved) evasion was ignored for + secondary targets, +- all secondary targets suffered exactly the same damage +2002.08.25 +- primary target was not effected +*/ + + +//:: modified by mr_bumpkin Dec 4, 2003 +#include "prc_inc_spells" +#include "prc_add_spell_dc" + + + + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION); +/* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + + //Declare major variables + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + int nCasterLevel = CasterLvl; + //Limit caster level + // June 2/04 - Bugfix: Cap the level BEFORE the damage calculation, not after. Doh. + if (nCasterLevel > 40) //alterado cap de 20 para 40 rafael + { + nCasterLevel = 40; + } + + int nDamage = d6(nCasterLevel); + int nDamStrike; + int nNumAffected = 0; + int nMetaMagic = PRCGetMetaMagicFeat(); + //Declare lightning effect connected the casters hands + effect eLightning = EffectBeam(VFX_BEAM_LIGHTNING, OBJECT_SELF, BODY_NODE_HAND);; + effect eVis = EffectVisualEffect(VFX_IMP_LIGHTNING_S); + effect eDamage; + object oFirstTarget = PRCGetSpellTargetObject(); + object oHolder; + object oTarget; + location lSpellLocation; + + //Enter Metamagic conditions + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDamage = 6 * nCasterLevel;//Damage is at max + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDamage = nDamage + (nDamage/2); //Damage/is +50% + } + //nDamage += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF, FALSE); + + CasterLvl +=SPGetPenetr(); + + int EleDmg = ChangedElementalDamage(OBJECT_SELF, DAMAGE_TYPE_ELECTRICAL); + + //Damage the initial target + if (spellsIsTarget(oFirstTarget, SPELL_TARGET_SELECTIVEHOSTILE, OBJECT_SELF)) + { + //Fire cast spell at event for the specified target + SignalEvent(oFirstTarget, EventSpellCastAt(OBJECT_SELF, SPELL_CHAIN_LIGHTNING)); + //Make an SR Check + if (!PRCDoResistSpell(OBJECT_SELF, oFirstTarget,CasterLvl)) + { + int nDC = PRCGetSaveDC(oTarget,OBJECT_SELF); + //Adjust damage via Reflex Save or Evasion or Improved Evasion + nDamStrike = PRCGetReflexAdjustedDamage(nDamage, oFirstTarget, nDC, SAVING_THROW_TYPE_ELECTRICITY); + //Set the damage effect for the first target + eDamage = PRCEffectDamage(oTarget, nDamStrike, EleDmg); + //Apply damage to the first target and the VFX impact. + if(nDamStrike > 0) + { + SPApplyEffectToObject(DURATION_TYPE_INSTANT,eDamage,oFirstTarget); + PRCBonusDamage(oFirstTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT,eVis,oFirstTarget); + } + } + } + //Apply the lightning stream effect to the first target, connecting it with the caster + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY,eLightning,oFirstTarget,0.5,FALSE); + + + //Reinitialize the lightning effect so that it travels from the first target to the next target + eLightning = EffectBeam(VFX_BEAM_LIGHTNING, oFirstTarget, BODY_NODE_CHEST); + + + float fDelay = 0.2; + int nCnt = 0; + + + // * + // * Secondary Targets + // * + + + //Get the first target in the spell shape + oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, GetLocation(oFirstTarget), TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + while (GetIsObjectValid(oTarget) && nCnt < nCasterLevel) + { + //Make sure the caster's faction is not hit and the first target is not hit + if (oTarget != oFirstTarget && spellsIsTarget(oTarget, SPELL_TARGET_SELECTIVEHOSTILE, OBJECT_SELF) && oTarget != OBJECT_SELF) + { + //Connect the new lightning stream to the older target and the new target + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY,eLightning,oTarget,0.5,FALSE)); + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_CHAIN_LIGHTNING)); + //Do an SR check + if (!PRCDoResistSpell(OBJECT_SELF, oTarget,CasterLvl, fDelay)) + { + int nDC = PRCGetSaveDC(oTarget,OBJECT_SELF); + nDamage = d6(nCasterLevel) ; + + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDamage = 6 * nCasterLevel;//Damage is at max + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDamage = nDamage + (nDamage/2); //Damage/is +50% + } + //Adjust damage via Reflex Save or Evasion or Improved Evasion + nDamStrike = PRCGetReflexAdjustedDamage(nDamage, oTarget, nDC, SAVING_THROW_TYPE_ELECTRICITY); + //Apply the damage and VFX impact to the current target + eDamage = PRCEffectDamage(oTarget, nDamStrike /2, EleDmg); + if(nDamStrike > 0) //age > 0) + { + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT,eDamage,oTarget)); + PRCBonusDamage(oTarget); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT,eVis,oTarget)); + } + } + oHolder = oTarget; + + //change the currect holder of the lightning stream to the current target + if (GetObjectType(oTarget) == OBJECT_TYPE_CREATURE) + { + eLightning = EffectBeam(VFX_BEAM_LIGHTNING, oHolder, BODY_NODE_CHEST); + } + else + { + // * April 2003 trying to make sure beams originate correctly + effect eNewLightning = EffectBeam(VFX_BEAM_LIGHTNING, oHolder, BODY_NODE_CHEST); + if(GetIsEffectValid(eNewLightning)) + { + eLightning = eNewLightning; + } + } + + fDelay = fDelay + 0.1f; + } + //Count the number of targets that have been hit. + if(GetObjectType(oTarget) == OBJECT_TYPE_CREATURE) + { + nCnt++; + } + + // April 2003: Setting the new origin for the beam + // oFirstTarget = oTarget; + + //Get the next target in the shape. + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, GetLocation(oFirstTarget), TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + } + + + } diff --git a/_haks/poa_exp_spells/nw_s0_circdeath.ncs b/_haks/poa_exp_spells/nw_s0_circdeath.ncs new file mode 100644 index 0000000..ff00c2a Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_circdeath.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_circdeath.nss b/_haks/poa_exp_spells/nw_s0_circdeath.nss new file mode 100644 index 0000000..b933b3b --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_circdeath.nss @@ -0,0 +1,152 @@ +//:://///////////////////////////////////////////// +//:: Circle of Death +//:: NW_S0_CircDeath +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + The caster slays a number of HD worth of creatures + equal to 1d4 times level. The creature gets a + Fort Save or dies. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: June 1, 2001 +//::////////////////////////////////////////////// +//:: Last Updated By: Aidan Scanlan +//:: VFX Pass By: Preston W, On: June 20, 2001 +//:: Update Pass By: Preston W, On: July 25, 2001 + + +//:: modified by mr_bumpkin Dec 4, 2003 +#include "prc_inc_spells" +#include "prc_add_spell_dc" + + + + + +void main() +{ + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_NECROMANCY); +/* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + + //Declare major variables + object oTarget; + object oLowest; + effect eDeath = EffectDeath(); + effect eVis = EffectVisualEffect(VFX_IMP_DEATH); + effect eFNF = EffectVisualEffect(VFX_FNF_LOS_EVIL_20); + int bContinueLoop = FALSE; //Used to determine if we have a next valid target + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + + int nHD = d4(CasterLvl); //Roll to see how many HD worth of creature will be killed + int nMetaMagic = PRCGetMetaMagicFeat(); + int nCurrentHD; + int bAlreadyAffected; + int nMax = 40;// maximun hd creature affected, set this to 9 so that a lower HD creature is chosen automatically + //Also 9 is the maximum HD a creature can have and still be affected by the spell + float fDelay; + string sIdentifier = GetTag(OBJECT_SELF); + + //Enter Metamagic conditions + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nHD = 4 * CasterLvl; + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nHD = nHD + (nHD/2); //Damage/Healing is +50% + } + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eFNF, PRCGetSpellTargetLocation()); + //Check for at least one valid object to start the main loop + oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, PRCGetSpellTargetLocation()); + if (GetIsObjectValid(oTarget)) + { + bContinueLoop = TRUE; + } + // The above checks to see if there is at least one valid target. If no value target exists we do not enter + // the loop. + + + CasterLvl +=SPGetPenetr(); + + + while ((nHD > 0) && (bContinueLoop)) + { + int nLow = nMax; //Set nLow to the lowest HD creature in the last pass through the loop + bContinueLoop = FALSE; //Set this to false so that the loop only continues in the case of new low HD creature + //Get first target creature in loop + oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, PRCGetSpellTargetLocation()); + while (GetIsObjectValid(oTarget)) + { + //Make sure the currect target is not an enemy + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF) && oTarget != OBJECT_SELF) + { + //Get a local set on the creature that checks if the spell has already allowed them to save + bAlreadyAffected = GetLocalInt(oTarget, "bDEATH" + sIdentifier); + if (!bAlreadyAffected) + { + nCurrentHD = GetHitDice(oTarget); + //If the selected creature is of lower HD then the current nLow value and + //the HD of the creature is of less HD than the number of HD available for + //the spell to affect then set the creature as the currect primary target + if(nCurrentHD < nLow && nCurrentHD <= nHD) + { + nLow = nCurrentHD; + oLowest = oTarget; + bContinueLoop = TRUE; + } + } + } + //Get next target in shape to test for a new + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, PRCGetSpellTargetLocation()); + } + //Check to make sure that oLowest has changed + if(bContinueLoop == TRUE) + { + //Fire cast spell at event for the specified target + SignalEvent(oLowest, EventSpellCastAt(OBJECT_SELF, SPELL_CIRCLE_OF_DEATH)); + fDelay = PRCGetRandomDelay(); + if(!PRCDoResistSpell(OBJECT_SELF, oLowest,CasterLvl, fDelay)) + { + int nDC = PRCGetSaveDC(oTarget,OBJECT_SELF); + //Make a Fort Save versus death effects + if(!PRCMySavingThrow(SAVING_THROW_FORT, oLowest, nDC, SAVING_THROW_TYPE_DEATH, OBJECT_SELF, fDelay)) + { + DeathlessFrenzyCheck(oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDeath, oLowest); + //DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oLowest)); + } + } + //Even if the target made their save mark them as having been affected by the spell + SetLocalInt(oLowest, "bDEATH" + sIdentifier, TRUE); + //Destroy the local after 1/4 of a second in case other Circles of Death are cast on + //the creature laster + DelayCommand(fDelay + 0.25, DeleteLocalInt(oLowest, "bDEATH" + sIdentifier)); + //Adjust the number of HD that have been affected by the spell + nHD = nHD - GetHitDice(oLowest); + oLowest = OBJECT_INVALID; + } + } + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the local integer storing the spellschool name +} diff --git a/_haks/poa_exp_spells/nw_s0_cloudkilla.ncs b/_haks/poa_exp_spells/nw_s0_cloudkilla.ncs new file mode 100644 index 0000000..b431518 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_cloudkilla.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_cloudkilla.nss b/_haks/poa_exp_spells/nw_s0_cloudkilla.nss new file mode 100644 index 0000000..fe0ca39 --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_cloudkilla.nss @@ -0,0 +1,115 @@ +//:://///////////////////////////////////////////// +//:: Cloudkill: On Enter +//:: NW_S0_CloudKillA.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + All creatures with 3 or less HD die, those with + 4 to 6 HD must make a save Fortitude Save or die. + Those with more than 6 HD take 1d10 Poison damage + every round. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 17, 2001 +//::////////////////////////////////////////////// + + +//:: modified by mr_bumpkin Dec 4, 2003 +//:: modified by Ornedan Dec 22, 2004 to PnP rules +#include "prc_inc_spells" + +#include "prc_add_spell_dc" + + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_CONJURATION); + + + //Declare major variables + object oTarget = GetEnteringObject(); + int nHD = GetHitDice(oTarget); + effect eDeath = EffectDeath(); + effect eVis = EffectVisualEffect(VFX_IMP_DEATH); + effect eNeg = EffectVisualEffect(VFX_IMP_NEGATIVE_ENERGY); + effect eConceal = EffectConcealment(20); + effect eVis2 = EffectVisualEffect(VFX_DUR_GHOST_TRANSPARENT); + effect eLink = EffectLinkEffects(eConceal, eVis2); + + //effect eDam; + int nDam = d4(); + int nMetaMagic = PRCGetMetaMagicFeat(); + + object aoeCreator = GetAreaOfEffectCreator(); + int CasterLvl = GetLocalInt(OBJECT_SELF, "X2_AoE_Caster_Level"); + + //int nPenetr = SPGetPenetrAOE(aoeCreator,CasterLvl); + + //Enter Metamagic conditions + if(nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 4;//Damage is at max + } + if(nMetaMagic & METAMAGIC_EMPOWER) + { + nDam = nDam + (nDam/2); //Damage/Healing is +50% + } + + if(spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, aoeCreator)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_CLOUDKILL)); + + //Concealement by fog happens no matter what + SPApplyEffectToObject(DURATION_TYPE_PERMANENT, eConceal, oTarget, 0.0f, FALSE); + + //Determine spell effect based on the targets HD + if (nHD <= 20) + { + if(!GetIsImmune(oTarget, IMMUNITY_TYPE_DEATH)) + { + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDeath, oTarget); + } + } + else if (nHD >= 21 && nHD <= 40) + { + //Make a save or die + if(!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, PRCGetSaveDC(oTarget, aoeCreator), SAVING_THROW_TYPE_DEATH, OBJECT_SELF)) + { + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDeath, oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + else + { + if (GetHasMettle(oTarget, SAVING_THROW_FORT)) + // This script does nothing if it has Mettle, bail + return; + AssignCommand(aoeCreator, ApplyAbilityDamage(oTarget, ABILITY_CONSTITUTION, nDam, DURATION_TYPE_TEMPORARY, TRUE, -1.0f)); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eNeg, oTarget); + } + } + else + { + if(!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, PRCGetSaveDC(oTarget, aoeCreator), SAVING_THROW_TYPE_SPELL, OBJECT_SELF)) + { + AssignCommand(aoeCreator, ApplyAbilityDamage(oTarget, ABILITY_CONSTITUTION, nDam, DURATION_TYPE_TEMPORARY, TRUE, -1.0f)); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eNeg, oTarget); + } + else + { + if (GetHasMettle(oTarget, SAVING_THROW_FORT)) + // This script does nothing if it has Mettle, bail + return; + // Halve the damage on succesfull save. + AssignCommand(aoeCreator, ApplyAbilityDamage(oTarget, ABILITY_CONSTITUTION, nDam / 2, DURATION_TYPE_TEMPORARY, TRUE, -1.0f)); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eNeg, oTarget); + } + } + } + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the local integer storing the spellschool name +} diff --git a/_haks/poa_exp_spells/nw_s0_cloudkillc.ncs b/_haks/poa_exp_spells/nw_s0_cloudkillc.ncs new file mode 100644 index 0000000..bcaf0dc Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_cloudkillc.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_cloudkillc.nss b/_haks/poa_exp_spells/nw_s0_cloudkillc.nss new file mode 100644 index 0000000..9ca56a6 --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_cloudkillc.nss @@ -0,0 +1,109 @@ +//:://///////////////////////////////////////////// +//:: Cloudkill: Heartbeat +//:: NW_S0_CloudKillC.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + All creatures with 3 or less HD die, those with + 4 to 6 HD must make a save Fortitude Save or die. + Those with more than 6 HD take 1d10 Poison damage + every round. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 17, 2001 +//::////////////////////////////////////////////// + + +//:: modified by mr_bumpkin Dec 4, 2003 +//:: modified by Ornedan Dec 22, 2004 to PnP rules +#include "prc_inc_spells" +#include "prc_add_spell_dc" + + + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_CONJURATION); + + + //Declare major variables + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDamage = d4(); + //effect eDam; + effect eVis = EffectVisualEffect(VFX_IMP_NEGATIVE_ENERGY); + object oTarget; + int nHD; + float fDelay; + + //Enter Metamagic conditions + if(nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDamage = 4;//Damage is at max + } + if(nMetaMagic & METAMAGIC_EMPOWER) + { + nDamage = nDamage + (nDamage/2); //Damage/Healing is +50% + } + + //-------------------------------------------------------------------------- + // GZ 2003-Oct-15 + // When the caster is no longer there, all functions calling + // GetAreaOfEffectCreator will fail. Its better to remove the barrier then + //-------------------------------------------------------------------------- + if (!GetIsObjectValid(GetAreaOfEffectCreator())) + { + DestroyObject(OBJECT_SELF); + return; + } + + object aoeCreator = GetAreaOfEffectCreator(); + int CasterLvl = GetLocalInt(OBJECT_SELF, "X2_AoE_Caster_Level"); + int nPenetr = SPGetPenetrAOE(aoeCreator,CasterLvl); + + + //Set damage effect + //Get the first object in the persistant AOE + oTarget = GetFirstInPersistentObject(); + while(GetIsObjectValid(oTarget)) + { + fDelay = PRCGetRandomDelay(); + if(spellsIsTarget(oTarget,SPELL_TARGET_STANDARDHOSTILE , aoeCreator) ) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_CLOUDKILL)); + + nHD = GetHitDice(oTarget); + + //Apply VFX impact and damage + //Creatures with less than 6 HD take full damage automatically + //Any with more than 6 get to save (Fortitued) for half + if (nHD < 40) + { + AssignCommand(aoeCreator, ApplyAbilityDamage(oTarget, ABILITY_CONSTITUTION, nDamage, DURATION_TYPE_TEMPORARY, TRUE, -1.0f)); + } + else + { + if(!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, (PRCGetSaveDC(oTarget,aoeCreator)), SAVING_THROW_TYPE_SPELL, OBJECT_SELF)) + { + AssignCommand(aoeCreator, ApplyAbilityDamage(oTarget, ABILITY_CONSTITUTION, nDamage, DURATION_TYPE_TEMPORARY, TRUE, -1.0f)); + } + else + { + if (GetHasMettle(oTarget, SAVING_THROW_FORT)) + // This script does nothing if it has Mettle, bail + nDamage = 0; + // Halve the damage on succesfull save. + AssignCommand(aoeCreator, ApplyAbilityDamage(oTarget, ABILITY_CONSTITUTION, nDamage / 2, DURATION_TYPE_TEMPORARY, TRUE, -1.0f)); + } + } + } + //Get the next target in the AOE + oTarget = GetNextInPersistentObject(); + } + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the local integer storing the spellschool name +} diff --git a/_haks/poa_exp_spells/nw_s0_colspray.ncs b/_haks/poa_exp_spells/nw_s0_colspray.ncs new file mode 100644 index 0000000..bcdb487 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_colspray.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_colspray.nss b/_haks/poa_exp_spells/nw_s0_colspray.nss new file mode 100644 index 0000000..74f19ec --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_colspray.nss @@ -0,0 +1,137 @@ +//:://///////////////////////////////////////////// +//:: Color Spray +//:: NW_S0_ColSpray.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + A cone of sparkling lights flashes out in a cone + from the casters hands affecting all those within + the Area of Effect. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: July 25, 2001 +//::////////////////////////////////////////////// + + +//:: modified by mr_bumpkin Dec 4, 2003 +#include "prc_inc_spells" +#include "prc_add_spell_dc" + + + + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_ILLUSION); + +/* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + + //Declare major variables + int nMetaMagic = PRCGetMetaMagicFeat(); + int nHD; + int nDuration; + float fDelay; + object oTarget; + effect eSleep = EffectSleep(); + effect eStun = EffectStunned(); + effect eBlind = EffectBlindness(); + effect eMind = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_NEGATIVE); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + + effect eLink1 = EffectLinkEffects(eSleep, eMind); + + effect eLink2 = EffectLinkEffects(eStun, eMind); + eLink2 = EffectLinkEffects(eLink2, eDur); + + effect eLink3 = EffectLinkEffects(eBlind, eMind); + + effect eVis1 = EffectVisualEffect(VFX_IMP_SLEEP); + effect eVis2 = EffectVisualEffect(VFX_IMP_STUN); + effect eVis3 = EffectVisualEffect(VFX_IMP_BLIND_DEAF_M); + + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + int nPenetr = CasterLvl + SPGetPenetr(); + + + //Get first object in the spell cone + oTarget = MyFirstObjectInShape(SHAPE_SPELLCONE, 10.0, PRCGetSpellTargetLocation(), TRUE); + //Cycle through the target until the current object is invalid + while (GetIsObjectValid(oTarget)) + { + if(spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF) + && !PRCGetHasEffect(EFFECT_TYPE_BLINDNESS, oTarget) + && oTarget != OBJECT_SELF) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_COLOR_SPRAY)); + fDelay = GetDistanceBetween(OBJECT_SELF, oTarget)/30; + if(!PRCDoResistSpell(OBJECT_SELF, oTarget, nPenetr, fDelay)) + { + int nDC = PRCGetSaveDC(oTarget,OBJECT_SELF); + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_MIND_SPELLS, OBJECT_SELF, fDelay)) + { + nDuration = 3 + d4(); + //Enter Metamagic conditions + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDuration = 7;//Damage is at max + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDuration = nDuration + (nDuration/2); //Damage/Healing is +50% + } + if ((nMetaMagic & METAMAGIC_EXTEND)) + { + nDuration = nDuration *2; //Duration is +100% + } + + nHD = GetHitDice(oTarget); + if(nHD <= 20) + { + //Apply the VFX impact and effects + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis1, oTarget)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink1, oTarget, RoundsToSeconds(nDuration),TRUE,-1,CasterLvl)); + } + else if(nHD > 20 && nHD < 30) + { + nDuration = nDuration - 1; + //Apply the VFX impact and effects + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis3, oTarget)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink3, oTarget, RoundsToSeconds(nDuration),TRUE,-1,CasterLvl)); } + else + { + nDuration = nDuration - 2; + //Apply the VFX impact and effects + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis2, oTarget)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink2, oTarget, RoundsToSeconds(nDuration),TRUE,-1,CasterLvl)); + } + } + } + } + //Get next target in spell area + oTarget = MyNextObjectInShape(SHAPE_SPELLCONE, 10.0, PRCGetSpellTargetLocation(), TRUE); + } + + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the local integer storing the spellschool name +} + diff --git a/_haks/poa_exp_spells/nw_s0_conecold.ncs b/_haks/poa_exp_spells/nw_s0_conecold.ncs new file mode 100644 index 0000000..89a3148 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_conecold.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_conecold.nss b/_haks/poa_exp_spells/nw_s0_conecold.nss new file mode 100644 index 0000000..4cb3fa3 --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_conecold.nss @@ -0,0 +1,125 @@ +//:://///////////////////////////////////////////// +//:: Cone of Cold +//:: NW_S0_ConeCold +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* +// Cone of cold creates an area of extreme cold, +// originating at your hand and extending outward +// in a cone. It drains heat, causing 1d6 points of +// cold damage per caster level (maximum 15d6). +*/ +//::////////////////////////////////////////////// +//:: Created By: Noel Borstad +//:: Created On: 10/18/02000 +//::////////////////////////////////////////////// +//:: Last Updated By: Aidan Scanlan On: April 11, 2001 +//:: Update Pass By: Preston W, On: July 25, 2001 + + +//:: modified by mr_bumpkin Dec 4, 2003 +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +float SpellDelay (object oTarget, int nShape); + + + + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION); + + +/* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + + //Declare major variables + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + + int nCasterLevel = CasterLvl; + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDamage; + float fDelay; + location lTargetLocation = PRCGetSpellTargetLocation(); + object oTarget; + //Limit Caster level for the purposes of damage. + if (nCasterLevel > 40) + { + nCasterLevel = 40; + } + + CasterLvl +=SPGetPenetr(); + + int EleDmg = ChangedElementalDamage(OBJECT_SELF, DAMAGE_TYPE_COLD); + + //Declare the spell shape, size and the location. Capture the first target object in the shape. + oTarget = MyFirstObjectInShape(SHAPE_SPELLCONE, 11.0, lTargetLocation, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + //Cycle through the targets within the spell shape until an invalid object is captured. + while(GetIsObjectValid(oTarget)) + { + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF)) + { + // March 2003. Removed this as part of the reputation pass + // if((PRCGetSpellId() == 340 && !GetIsFriend(oTarget)) || PRCGetSpellId() == 25) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_CONE_OF_COLD)); + //Get the distance between the target and caster to delay the application of effects + fDelay = GetDistanceBetween(OBJECT_SELF, oTarget)/20.0; + //Make SR check, and appropriate saving throw(s). + if(!PRCDoResistSpell(OBJECT_SELF, oTarget,CasterLvl, fDelay) && (oTarget != OBJECT_SELF)) + { + int nDC = PRCGetSaveDC(oTarget,OBJECT_SELF); + //Detemine damage + nDamage = d6(nCasterLevel); + //Enter Metamagic conditions + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDamage = 6 * nCasterLevel;//Damage is at max + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDamage = nDamage + (nDamage/2); //Damage/Healing is +50% + } + //nDamage += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF, FALSE); + //Adjust damage according to Reflex Save, Evasion or Improved Evasion + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nDC, SAVING_THROW_TYPE_COLD); + + // Apply effects to the currently selected target. + effect eCold = PRCEffectDamage(oTarget, nDamage, EleDmg); + effect eVis = EffectVisualEffect(VFX_IMP_FROST_L); + if(nDamage > 0) + { + //Apply delayed effects + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eCold, oTarget)); + PRCBonusDamage(oTarget); + } + } + } + } + //Select the next target within the spell shape. + oTarget = MyNextObjectInShape(SHAPE_SPELLCONE, 11.0, lTargetLocation, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + } + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the local integer storing the spellschool name +} + diff --git a/_haks/poa_exp_spells/nw_s0_daze.ncs b/_haks/poa_exp_spells/nw_s0_daze.ncs new file mode 100644 index 0000000..03420d9 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_daze.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_daze.nss b/_haks/poa_exp_spells/nw_s0_daze.nss new file mode 100644 index 0000000..ecbd25f --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_daze.nss @@ -0,0 +1,140 @@ +/*:://///////////////////////////////////////////// +//:: [Daze] +//:: [NW_S0_Daze.nss] +//:: Copyright (c) 2000 Bioware Corp. +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Jan 15, 2001 +//:: Update Pass By: Preston W, On: July 27, 2001 +//:: modified by mr_bumpkin Dec 4, 2003 +//:: modified by xwarren Jul 22, 2010 +//::////////////////////////////////////////////// +//:: +//:: Daze +//:: +//:: Enchantment (Compulsion) [Mind-Affecting] +//:: Level: Brd 0, Sor/Wiz 0 +//:: Components: V, S, M +//:: Casting Time: 1 standard action +//:: Range: Close (25 ft. + 5 ft./2 levels) +//:: Target: One humanoid creature of 4 HD or less +//:: Duration: 1 round +//:: Saving Throw: Will negates +//:: Spell Resistance: Yes +//:: +//:: This enchantment clouds the mind of a humanoid +//:: creature with 4 or fewer Hit Dice so that it +//:: takes no actions. Humanoids of 5 or more HD are +//:: not affected. A dazed subject is not stunned, +//:: so attackers get no special advantage against it. +//:: +//:: Material Component +//:: A pinch of wool or similar substance. +//:: +//::////////////////////////////////////////////// +//:: +//:: Daze Monster +//:: +//:: Enchantment (Compulsion) [Mind-Affecting] +//:: Level: Beguiler 2, Brd 2, Sor/Wiz 2 +//:: Components: V, S, M +//:: Casting Time: 1 standard action +//:: Range: Medium (100 ft. + 10 ft./level) +//:: Target: One living creature of 6 HD or less +//:: Duration: 1 round +//:: Saving Throw: Will negates +//:: Spell Resistance: Yes +//:: +//:: This enchantment clouds the mind of +//:: a living creature with 6 or fewer Hit +//:: Dice so that it takes no actions. Creatures +//:: of 7 or more HD are not affected. A dazed +//:: subject is not stunned, so attackers get no +//:: special advantage against it. +//:: +//:: Material Component +//:: A pinch of wool or similar substance. +//:: +//::////////////////////////////////////////////*/ + +#include "prc_inc_spells" +#include "prc_add_spell_dc" +#include "prc_sp_func" + +int DoSpell(object oCaster, object oTarget, int nCasterLevel, int nEvent) +{ + //Declare major variables + effect eMind = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_NEGATIVE); + effect eDaze = EffectDazed(); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + + effect eLink = EffectLinkEffects(eMind, eDaze); + eLink = EffectLinkEffects(eLink, eDur); + + effect eVis = EffectVisualEffect(VFX_IMP_DAZED_S); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDuration = 2; + //check meta magic for extend + if ((nMetaMagic & METAMAGIC_EXTEND)) + { + nDuration = 4; + } + int nSpellID = GetSpellId(); + int nMaxHD = nSpellID == SPELL_DAZE ? 4+(nCasterLevel/2) : 6+(nCasterLevel/2); + int nPenetr = nCasterLevel + SPGetPenetr(); + + //Make sure the target of Daze spell is a humaniod + if(nSpellID == SPELL_DAZE && PRCAmIAHumanoid(oTarget) != TRUE) + return TRUE; + //Make sure the target of Daze Monster spell is a living creature + if(nSpellID == SPELL_DAZE_MONSTER && PRCGetIsAliveCreature(oTarget) != TRUE) + return TRUE; + if(GetHitDice(oTarget) <= nMaxHD) + { + if(!GetIsReactionTypeFriendly(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, nSpellID)); + //Make SR check + if (!PRCDoResistSpell(oCaster, oTarget,nPenetr)) + { + //Make Will Save to negate effect + if (!/*Will Save*/ PRCMySavingThrow(SAVING_THROW_WILL, oTarget, PRCGetSaveDC(oTarget, oCaster), SAVING_THROW_TYPE_MIND_SPELLS)) + { + //Apply VFX Impact and daze effect + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration),TRUE,-1,nCasterLevel); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + } + } + } + return TRUE; //return TRUE if spell charges should be decremented +} + +void main() +{ + PRCSetSchool(SPELL_SCHOOL_ENCHANTMENT); + if (!X2PreSpellCastCode()) return; + object oCaster = OBJECT_SELF; + int nCasterLevel = PRCGetCasterLevel(oCaster); + object oTarget = PRCGetSpellTargetObject(); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if(GetLocalInt(oCaster, PRC_SPELL_HOLD) && oCaster == oTarget) + { //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + DoSpell(oCaster, oTarget, nCasterLevel, nEvent); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel, nEvent)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/nw_s0_delfirea.ncs b/_haks/poa_exp_spells/nw_s0_delfirea.ncs new file mode 100644 index 0000000..04127f0 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_delfirea.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_delfirea.nss b/_haks/poa_exp_spells/nw_s0_delfirea.nss new file mode 100644 index 0000000..a9b2d3b --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_delfirea.nss @@ -0,0 +1,97 @@ +//:://///////////////////////////////////////////// +//:: Delayed Blast Fireball: On Enter +//:: NW_S0_DelFireA.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + The caster creates a trapped area which detects + the entrance of enemy creatures into 3 m area + around the spell location. When tripped it + causes a fiery explosion that does 1d6 per + caster level up to a max of 20d6 damage. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: July 27, 2001 +//::////////////////////////////////////////////// +//:: modified by mr_bumpkin Dec 4, 2003 +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION); + + //Declare major variables + object oTarget = GetEnteringObject(); + object oCaster = GetAreaOfEffectCreator(); + location lTarget = GetLocation(OBJECT_SELF); + int nDamage; + int nMetaMagic = PRCGetMetaMagicFeat(); + int CasterLvl = GetLocalInt(OBJECT_SELF, "X2_AoE_Caster_Level"); + + int nCasterLevel = CasterLvl; + //Limit caster level + if (nCasterLevel > 60) + nCasterLevel = 60; + + CasterLvl += SPGetPenetr(); + + int EleDmg = GetLocalInt(OBJECT_SELF, "DelayedBlastFireballDamage"); + int nSaveType = ChangedSaveType(EleDmg); + + effect eDam; + effect eExplode = EffectVisualEffect(VFX_FNF_FIREBALL); + effect eVis = EffectVisualEffect(VFX_IMP_FLAME_M); + //Check the faction of the entering object to make sure the entering object is not in the casters faction + if(!GetLocalInt(OBJECT_SELF, "NW_SPELL_DELAY_BLAST_FIREBALL") && spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, oCaster)) + { + SetLocalInt(OBJECT_SELF, "NW_SPELL_DELAY_BLAST_FIREBALL",TRUE); + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eExplode, lTarget); + //Cycle through the targets in the explosion area + oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + while(GetIsObjectValid(oTarget)) + { + if(spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, oCaster)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oCaster, SPELL_DELAYED_BLAST_FIREBALL)); + //Make SR check + if (!PRCDoResistSpell(oCaster, oTarget,CasterLvl)) + { + //Enter Metamagic conditions + if(nMetaMagic & METAMAGIC_MAXIMIZE) + nDamage = 6 * nCasterLevel;//Damage is at max + else + nDamage = d6(nCasterLevel); + + if(nMetaMagic & METAMAGIC_EMPOWER) + nDamage += nDamage/2;//Damage/Healing is +50% + + //nDamage += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF, FALSE); + //Change damage according to Reflex, Evasion and Improved Evasion + int nDC = PRCGetSaveDC(oTarget, oCaster, -1); + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nDC, nSaveType, GetAreaOfEffectCreator()); + if(nDamage > 0) + { + //Set up the damage effect + eDam = PRCEffectDamage(oTarget, nDamage, EleDmg); + + //Apply VFX impact and damage effect + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + DelayCommand(0.01, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget)); + PRCBonusDamage(oTarget); + } + } + } + //Get next target in the sequence + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + } + DestroyObject(OBJECT_SELF, 1.0); + } + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the local integer storing the spellschool name +} diff --git a/_haks/poa_exp_spells/nw_s0_destruc.ncs b/_haks/poa_exp_spells/nw_s0_destruc.ncs new file mode 100644 index 0000000..4993316 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_destruc.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_destruc.nss b/_haks/poa_exp_spells/nw_s0_destruc.nss new file mode 100644 index 0000000..4afafc8 --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_destruc.nss @@ -0,0 +1,101 @@ +//:://///////////////////////////////////////////// +//:: Destruction +//:: NW_S0_Destruc +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + The target creature is destroyed if it fails a + Fort save, otherwise it takes 10d6 damage. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Aug 13, 2001 +//::////////////////////////////////////////////// + + +//:: modified by mr_bumpkin Dec 4, 2003 +#include "prc_inc_spells" +#include "prc_add_spell_dc" + + + + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_NECROMANCY); + +/* + Spellcast Hook Code + Added 2003-06-23 by GeorgZ + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + + //Declare major variables + object oTarget = PRCGetSpellTargetObject(); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDamage; + effect eDeath = EffectDeath(); + effect eDam; + effect eVis = EffectVisualEffect(234); + + + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + CasterLvl +=SPGetPenetr(); + + if(!GetIsReactionTypeFriendly(oTarget) && PRCGetIsAliveCreature(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_DESTRUCTION)); + //Make SR check + if(!PRCDoResistSpell(OBJECT_SELF, oTarget,CasterLvl)) + { + //Make a saving throw check + if(!/*Fort Save*/ PRCMySavingThrow(SAVING_THROW_FORT, oTarget, PRCGetSaveDC(oTarget, OBJECT_SELF))) + { + DeathlessFrenzyCheck(oTarget); + + //Apply the VFX impact and effects + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDeath, oTarget); + } + else if (GetHasMettle(oTarget, SAVING_THROW_FORT)) + { + // This script does nothing if it has Mettle, bail + return; + } + else + { + nDamage = d6(60); + //Enter Metamagic conditions + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDamage = 360;//Damage is at max + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDamage = nDamage + (nDamage/2); //Damage/Healing is +50% + } + //nDamage += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF); + //Set damage effect + eDam = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_DIVINE); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + } + //Apply VFX impact + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + } + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the local integer storing the spellschool name +} diff --git a/_haks/poa_exp_spells/nw_s0_dismagic.ncs b/_haks/poa_exp_spells/nw_s0_dismagic.ncs new file mode 100644 index 0000000..2927b63 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_dismagic.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_dismagic.nss b/_haks/poa_exp_spells/nw_s0_dismagic.nss new file mode 100644 index 0000000..9325b04 --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_dismagic.nss @@ -0,0 +1,111 @@ +//:://///////////////////////////////////////////// +//:: Dispel Magic +//:: NW_S0_DisMagic.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +//:: Attempts to dispel all magic on a targeted +//:: object, or simply the most powerful that it +//:: can on every object in an area if no target +//:: specified. +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Jan 7, 2002 +//:: Updated On: Oct 20, 2003, Georg Zoeller +//::////////////////////////////////////////////// + + +//:: modified by mr_bumpkin Dec 4, 2003 +#include "inc_dispel" + + + + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_ABJURATION); + + //-------------------------------------------------------------------------- + /* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + */ + //-------------------------------------------------------------------------- + if (!X2PreSpellCastCode()) + { + return; + } + // End of Spell Cast Hook + + effect eVis = EffectVisualEffect(VFX_IMP_BREACH); + effect eImpact = EffectVisualEffect(VFX_FNF_DISPEL); + object oTarget = PRCGetSpellTargetObject(); + location lLocal = PRCGetSpellTargetLocation(); + int nCasterLevel = PRCGetCasterLevel(OBJECT_SELF); + int iTypeDispel = GetLocalInt(GetModule(),"BIODispel"); + + //-------------------------------------------------------------------------- + // Dispel Magic is capped at caster level 10 + //-------------------------------------------------------------------------- + if(nCasterLevel > 10) + { + nCasterLevel = 10; + } + + if (GetIsObjectValid(oTarget)) + { + //---------------------------------------------------------------------- + // Targeted Dispel - Dispel all + //---------------------------------------------------------------------- + if (iTypeDispel) + spellsDispelMagic(oTarget, nCasterLevel, eVis, eImpact); + else + spellsDispelMagicMod(oTarget, nCasterLevel, eVis, eImpact); + + } + else + { + //---------------------------------------------------------------------- + // Area of Effect - Only dispel best effect + //---------------------------------------------------------------------- + + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eImpact, PRCGetSpellTargetLocation()); + oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, lLocal, FALSE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_AREA_OF_EFFECT | OBJECT_TYPE_PLACEABLE ); + while (GetIsObjectValid(oTarget)) + { + if(GetObjectType(oTarget) == OBJECT_TYPE_AREA_OF_EFFECT) + { + //-------------------------------------------------------------- + // Handle Area of Effects + //-------------------------------------------------------------- + if (iTypeDispel) + spellsDispelAoE(oTarget, OBJECT_SELF,nCasterLevel); + else + spellsDispelAoEMod(oTarget, OBJECT_SELF,nCasterLevel); + + } + else if (GetObjectType(oTarget) == OBJECT_TYPE_PLACEABLE) + { + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, GetSpellId())); + } + else + { + + if (iTypeDispel) + spellsDispelMagic(oTarget, nCasterLevel, eVis, eImpact, FALSE); + else + spellsDispelMagicMod(oTarget, nCasterLevel, eVis, eImpact, FALSE); + } + + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE,lLocal, FALSE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_AREA_OF_EFFECT | OBJECT_TYPE_PLACEABLE); + } + } + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the local integer storing the spellschool name +} + + + diff --git a/_haks/poa_exp_spells/nw_s0_enedrain.ncs b/_haks/poa_exp_spells/nw_s0_enedrain.ncs new file mode 100644 index 0000000..ed6cff8 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_enedrain.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_enedrain.nss b/_haks/poa_exp_spells/nw_s0_enedrain.nss new file mode 100644 index 0000000..3bc8168 --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_enedrain.nss @@ -0,0 +1,107 @@ +//:://///////////////////////////////////////////// +//:: Energy Drain +//:: NW_S0_EneDrain.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Target loses 2d4 levels. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Jan 7, 2002 +//::////////////////////////////////////////////// + +//:: modified by mr_bumpkin Dec 4, 2003 for PRC stuff + +//::Added code to maximize for Faith Healing and Blast Infidel +//::Aaon Graywolf - Jan 7, 2003 + +//::Added hold ray functionality - HackyKid + +#include "prc_sp_func" +#include "prc_inc_function" +#include "prc_add_spell_dc" + +//Implements the spell impact, put code here +// if called in many places, return TRUE if +// stored charges should be decreased +// eg. touch attack hits +// +// Variables passed may be changed if necessary +int DoSpell(object oCaster, object oTarget, int nCasterLevel, int nEvent) +{ + int nMetaMagic = PRCGetMetaMagicFeat(); + int nSaveDC = PRCGetSaveDC(oTarget, oCaster); + int nPenetr = nCasterLevel + SPGetPenetr(); + int nDrain = d4(2); + + effect eVis = EffectVisualEffect(VFX_IMP_REDUCE_ABILITY_SCORE); + + //Undead Gain HP from Energy Drain + int nHP = d4(2) + (nPenetr/2); + nHP = nHP + nHP + nHP + nHP +nHP; + effect eHP = EffectTemporaryHitpoints(nHP); + + //Enter Metamagic conditions + int iBlastFaith = BlastInfidelOrFaithHeal(OBJECT_SELF, oTarget, DAMAGE_TYPE_NEGATIVE, TRUE); + if ((nMetaMagic & METAMAGIC_MAXIMIZE) || iBlastFaith) + { + nDrain = 8;//Damage is at max + } + if (nMetaMagic & METAMAGIC_EMPOWER) + { + nDrain = nDrain + (nDrain/2); //Damage/Healing is +50% + } + effect eDrain = EffectNegativeLevel(nDrain); + eDrain = SupernaturalEffect(eDrain); + + if (MyPRCGetRacialType(oTarget) == RACIAL_TYPE_UNDEAD) + { + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eHP, oTarget, HoursToSeconds(1),TRUE,-1,nCasterLevel); + } + else if(!GetIsReactionTypeFriendly(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_ENERGY_DRAIN)); + if(!PRCDoResistSpell(OBJECT_SELF, oTarget, nPenetr)) + { + + if(!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, PRCGetSaveDC(oTarget,OBJECT_SELF), SAVING_THROW_TYPE_NEGATIVE)) + { + SPApplyEffectToObject(DURATION_TYPE_PERMANENT, eDrain, oTarget,0.0f,TRUE,-1,nCasterLevel); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + } + } + + return TRUE; //return TRUE if spell charges should be decremented +} + +void main() +{ + object oCaster = OBJECT_SELF; + int nCasterLevel = PRCGetCasterLevel(oCaster); + PRCSetSchool(GetSpellSchool(PRCGetSpellId())); + if (!X2PreSpellCastCode()) return; + object oTarget = PRCGetSpellTargetObject(); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if (GetLocalInt(oCaster, PRC_SPELL_HOLD) && GetHasFeat(FEAT_EF_HOLD_RAY, oCaster) && oCaster == oTarget) + { //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + if (oCaster != oTarget) //cant target self with this spell, only when holding charge + DoSpell(oCaster, oTarget, nCasterLevel, nEvent); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel, nEvent)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/nw_s0_enervat.ncs b/_haks/poa_exp_spells/nw_s0_enervat.ncs new file mode 100644 index 0000000..3f3c6d7 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_enervat.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_enervat.nss b/_haks/poa_exp_spells/nw_s0_enervat.nss new file mode 100644 index 0000000..e495588 --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_enervat.nss @@ -0,0 +1,125 @@ +//:://///////////////////////////////////////////// +//:: Enervation +//:: NW_S0_Enervat.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Target Loses 1d4 levels for 1 hour per caster + level +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Jan 7, 2002 +//::////////////////////////////////////////////// + +//:: modified by mr_bumpkin Dec 4, 2003 for PRC stuff + +//::Added code to maximize for Faith Healing and Blast Infidel +//::Aaon Graywolf - Jan 7, 2003 + + +#include "prc_inc_sp_tch" +#include "prc_inc_function" +#include "prc_sp_func" +#include "prc_add_spell_dc" +//Implements the spell impact, put code here +// if called in many places, return TRUE if +// stored charges should be decreased +// eg. touch attack hits +// +// Variables passed may be changed if necessary +int DoSpell(object oCaster, object oTarget, int nCasterLevel, int nEvent) +{ + int nMetaMagic = PRCGetMetaMagicFeat(); + int nSaveDC = PRCGetSaveDC(oTarget, oCaster); + int nPenetr = nCasterLevel + SPGetPenetr(); + int nDrain = d4(); + int nDuration = nCasterLevel; + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eVis = EffectVisualEffect(VFX_IMP_REDUCE_ABILITY_SCORE); + + //Undead Gain HP from Enervation + int nHP = ((nCasterLevel/2) * 5); + if (nHP > 125) + { + nHP = 125; + } + + effect eHP = EffectTemporaryHitpoints(nHP); + + //Enter Metamagic conditions + int iBlastFaith = BlastInfidelOrFaithHeal(OBJECT_SELF, oTarget, DAMAGE_TYPE_NEGATIVE, TRUE); + if ((nMetaMagic & METAMAGIC_MAXIMIZE) || iBlastFaith) + { + nDrain = 4;//Damage is at max + } + if (nMetaMagic & METAMAGIC_EMPOWER) + { + nDrain = nDrain + (nDrain/2); //Damage/Healing is +50% + } + if (nMetaMagic & METAMAGIC_EXTEND) + { + nDuration = nDuration *2; //Duration is +100% + } + + effect eDrain = EffectNegativeLevel(nDrain); + effect eLink = EffectLinkEffects(eDrain, eDur); + + int iAttackRoll = PRCDoRangedTouchAttack(oTarget);; + if(iAttackRoll > 0) + { + if (MyPRCGetRacialType(oTarget) == RACIAL_TYPE_UNDEAD) + { + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eHP, oTarget, HoursToSeconds(1),TRUE,-1,nCasterLevel); + } + + if(!GetIsReactionTypeFriendly(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_ENERVATION)); + //Resist magic check + if(!PRCDoResistSpell(OBJECT_SELF, oTarget, nPenetr)) + { + if(!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, PRCGetSaveDC(oTarget, OBJECT_SELF), SAVING_THROW_TYPE_NEGATIVE)) + { + //Apply the VFX impact and effects + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, HoursToSeconds(nDuration),TRUE,-1,nCasterLevel); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + + ApplyTouchAttackDamage(OBJECT_SELF, oTarget, iAttackRoll, 0, DAMAGE_TYPE_NEGATIVE); + } + } + } + + return iAttackRoll; //return TRUE if spell charges should be decremented +} + +void main() +{ + object oCaster = OBJECT_SELF; + int nCasterLevel = PRCGetCasterLevel(oCaster); + PRCSetSchool(GetSpellSchool(PRCGetSpellId())); + if (!X2PreSpellCastCode()) return; + object oTarget = PRCGetSpellTargetObject(); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if (GetLocalInt(oCaster, PRC_SPELL_HOLD) && GetHasFeat(FEAT_EF_HOLD_RAY, oCaster) && oCaster == oTarget) + { //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + if (oCaster != oTarget) //cant target self with this spell, only when holding charge + DoSpell(oCaster, oTarget, nCasterLevel, nEvent); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel, nEvent)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/nw_s0_fireball.ncs b/_haks/poa_exp_spells/nw_s0_fireball.ncs new file mode 100644 index 0000000..30d21bb Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_fireball.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_fireball.nss b/_haks/poa_exp_spells/nw_s0_fireball.nss new file mode 100644 index 0000000..81d21fd --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_fireball.nss @@ -0,0 +1,96 @@ +//:://///////////////////////////////////////////// +//:: Fireball +//:: NW_S0_Fireball +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* +// A fireball is a burst of flame that detonates with +// a low roar and inflicts 1d6 points of damage per +// caster level (maximum of 10d6) to all creatures +// within the area. Unattended objects also take +// damage. The explosion creates almost no pressure. +*/ +//::////////////////////////////////////////////// +//:: Created By: Noel Borstad +//:: Created On: Oct 18 , 2000 +//::////////////////////////////////////////////// +//:: Last Updated By: Preston Watamaniuk, On: April 6, 2001 +//:: Last Updated By: AidanScanlan, On: April 11, 2001 +//:: Last Updated By: Preston Watamaniuk, On: May 25, 2001 + +//:: modified by mr_bumpkin Dec 4, 2003 for PRC stuff +#include "prc_inc_spells" +#include "prc_add_spell_dc" + + + + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + //Declare major variables + object oCaster = OBJECT_SELF; + location lTarget = PRCGetSpellTargetLocation(); + int nCasterLvl = PRCGetCasterLevel(oCaster); + int EleDmg = ChangedElementalDamage(oCaster, DAMAGE_TYPE_FIRE); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDamage; + float fDelay; + effect eExplode = EffectVisualEffect(VFX_FNF_FIREBALL); + effect eVis = EffectVisualEffect(VFX_IMP_FLAME_M); + effect eDam; + //Limit Caster level for the purposes of damage + int nDice = min(20, nCasterLvl); //alterado rafael era 10 mudei para 20 d6 + + nCasterLvl += SPGetPenetr(); + + //Apply the fireball explosion at the location captured above. + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eExplode, lTarget); + //Declare the spell shape, size and the location. Capture the first target object in the shape. + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + //Cycle through the targets within the spell shape until an invalid object is captured. + while (GetIsObjectValid(oTarget)) + { + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oCaster, SPELL_FIREBALL)); + //Get the distance between the explosion and the target to calculate delay + fDelay = GetDistanceBetweenLocations(lTarget, GetLocation(oTarget))/20; + if (!PRCDoResistSpell(oCaster, oTarget, nCasterLvl, fDelay)) + { + //Resolve metamagic + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + nDamage = 6 * nDice; + else + //Roll damage for each target + nDamage = d6(nDice); + if ((nMetaMagic & METAMAGIC_EMPOWER)) + nDamage += nDamage / 2; + + //nDamage += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF, FALSE); + //Adjust the damage based on the Reflex Save, Evasion and Improved Evasion. + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, (PRCGetSaveDC(oTarget, oCaster)), SAVING_THROW_TYPE_FIRE); + if(nDamage > 0) + { + //Set the damage effect + eDam = PRCEffectDamage(oTarget, nDamage, EleDmg); + // Apply effects to the currently selected target. + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget)); + PRCBonusDamage(oTarget); + //This visual effect is applied to the target object not the location as above. This visual effect + //represents the flame that erupts on the target not on the ground. + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + } + //Select the next target within the spell shape. + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + } + + PRCSetSchool(); +} + diff --git a/_haks/poa_exp_spells/nw_s0_firestrm.ncs b/_haks/poa_exp_spells/nw_s0_firestrm.ncs new file mode 100644 index 0000000..7d1e2dd Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_firestrm.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_firestrm.nss b/_haks/poa_exp_spells/nw_s0_firestrm.nss new file mode 100644 index 0000000..89a42f3 --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_firestrm.nss @@ -0,0 +1,98 @@ +//:://///////////////////////////////////////////// +//:: Fire Storm +//:: NW_S0_FireStm +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Creates a zone of destruction around the caster + within which all living creatures are pummeled + with fire. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: April 11, 2001 +//::////////////////////////////////////////////// +//:: VFX Pass By: Preston W, On: June 21, 2001 + +//:: modified by mr_bumpkin Dec 4, 2003 for PRC stuff +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + //Declare major variables + object oCaster = OBJECT_SELF; + location lTarget = GetLocation(oCaster); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDamage; + int nDamage2; + + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + + + int EleDmg = ChangedElementalDamage(OBJECT_SELF, DAMAGE_TYPE_FIRE); + + + int nCasterLevel = CasterLvl; + if(nCasterLevel > 60) + { + nCasterLevel = 60; //bugfix, was == 20 + } + effect eVis = EffectVisualEffect(VFX_IMP_FLAME_M); + effect eFireStorm = EffectVisualEffect(VFX_FNF_FIRESTORM); + float fDelay; + CasterLvl +=SPGetPenetr(); + + //Apply Fire and Forget Visual in the area; + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eFireStorm, lTarget); + //Declare the spell shape, size and the location. Capture the first target object in the shape. + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, lTarget, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + //Cycle through the targets within the spell shape until an invalid object is captured. + while(GetIsObjectValid(oTarget)) + { + //This spell smites everyone who is more than 2 meters away from the caster. + //if (GetDistanceBetween(oTarget, OBJECT_SELF) > 2.0) + //{ + if (spellsIsTarget(oTarget, SPELL_TARGET_SELECTIVEHOSTILE, OBJECT_SELF) && oTarget != OBJECT_SELF) + { + fDelay = PRCGetRandomDelay(1.5, 2.5); + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_FIRE_STORM)); + //Make SR check, and appropriate saving throw(s). + if (!PRCDoResistSpell(OBJECT_SELF, oTarget,CasterLvl, fDelay)) + { + //Roll Damage + nDamage = d6(nCasterLevel); + //Enter Metamagic conditions + if(nMetaMagic & METAMAGIC_MAXIMIZE) + nDamage = 6 * nCasterLevel;//Damage is at max + if(nMetaMagic & METAMAGIC_EMPOWER) + nDamage = nDamage + (nDamage/2);//Damage/Healing is +50% + int nDC = PRCGetSaveDC(oTarget,OBJECT_SELF); + //Save versus both holy and fire damage + //nDamage2 += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF, FALSE); + nDamage2 = PRCGetReflexAdjustedDamage(nDamage/2, oTarget, (nDC), SAVING_THROW_TYPE_DIVINE); + nDamage = PRCGetReflexAdjustedDamage(nDamage/2, oTarget, (nDC), SAVING_THROW_TYPE_FIRE); + if(nDamage) + { + // Apply effects to the currently selected target. For this spell we have used + //both Divine and Fire damage. + effect eDivine = PRCEffectDamage(oTarget, nDamage2, DAMAGE_TYPE_DIVINE); + effect eFire = PRCEffectDamage(oTarget, nDamage, EleDmg); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eFire, oTarget)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDivine, oTarget)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + //} + } + //Select the next target within the spell shape. + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, lTarget, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + } + + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/nw_s0_flmstrike.ncs b/_haks/poa_exp_spells/nw_s0_flmstrike.ncs new file mode 100644 index 0000000..6b1af8f Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_flmstrike.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_flmstrike.nss b/_haks/poa_exp_spells/nw_s0_flmstrike.nss new file mode 100644 index 0000000..02417b3 --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_flmstrike.nss @@ -0,0 +1,96 @@ +//:://///////////////////////////////////////////// +//:: Flame Strike +//:: NW_S0_FlmStrike +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* +// A flame strike is a vertical column of divine fire +// roaring downward. The spell deals 1d6 points of +// damage per level, to a maximum of 15d6. Half the +// damage is fire damage, but the rest of the damage +// results directly from divine power and is therefore +// not subject to protection from elements (fire), +// fire shield (chill shield), etc. +*/ +//::////////////////////////////////////////////// +//:: Created By: Noel Borstad +//:: Created On: Oct 19, 2000 +//::////////////////////////////////////////////// +//:: VFX Pass By: Preston W, On: June 20, 2001 +//:: Update Pass By: Preston W, On: Aug 1, 2001 +//:: modified by mr_bumpkin Dec 4, 2003 for PRC stuff +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + //Declare major variables + object oCaster = OBJECT_SELF; + location lTarget = PRCGetSpellTargetLocation(); + int nCasterLvl = PRCGetCasterLevel(oCaster); + int nPenetr = nCasterLvl + SPGetPenetr(); + int nMetaMagic = PRCGetMetaMagicFeat(); + int EleDmg = ChangedElementalDamage(oCaster, DAMAGE_TYPE_FIRE); + int nSaveType = ChangedSaveType(EleDmg); + int nDice = min(40, nCasterLvl); + + int nDamage, nDamage2; + effect eStrike = EffectVisualEffect(VFX_IMP_DIVINE_STRIKE_FIRE); + effect eVis = EffectVisualEffect(VFX_IMP_FLAME_S); + effect eHoly, eFire; + + //Apply the location impact visual to the caster location instead of caster target creature. + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eStrike, lTarget); + + //Declare the spell shape, size and the location. Capture the first target object in the shape. + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_MEDIUM, lTarget, FALSE, OBJECT_TYPE_CREATURE|OBJECT_TYPE_PLACEABLE|OBJECT_TYPE_DOOR); + //Cycle through the targets within the spell shape until an invalid object is captured. + while(GetIsObjectValid(oTarget)) + { + if(spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, oCaster)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oCaster, SPELL_FLAME_STRIKE)); + + //Make SR check, and appropriate saving throw(s). + if(!PRCDoResistSpell(oCaster, oTarget, nPenetr, 0.6)) + { + nDamage = d6(nDice); + if(nMetaMagic & METAMAGIC_MAXIMIZE) + nDamage = 6 * nDice; + if(nMetaMagic & METAMAGIC_EMPOWER) + nDamage = nDamage + (nDamage/2); + + //Adjust the damage based on Reflex Save, Evasion and Improved Evasion + int nDC = PRCGetSaveDC(oTarget, oCaster); + nDamage2 = PRCGetReflexAdjustedDamage(nDamage/2, oTarget, nDC, nSaveType); + + //Make a faction check so that only enemies receieve the full brunt of the damage. + if(!GetIsFriend(oTarget)) + { + nDamage = PRCGetReflexAdjustedDamage(nDamage/2, oTarget, nDC, SAVING_THROW_TYPE_DIVINE); + if(nDamage) + { + eHoly = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_DIVINE); + DelayCommand(0.6, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eHoly, oTarget)); + } + } + // Apply effects to the currently selected target. + if(nDamage2) + { + eFire = PRCEffectDamage(oTarget, nDamage2, EleDmg); + DelayCommand(0.6, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eFire, oTarget)); + DelayCommand(0.6, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + } + //Select the next target within the spell shape. + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_MEDIUM, lTarget, FALSE, OBJECT_TYPE_CREATURE|OBJECT_TYPE_PLACEABLE|OBJECT_TYPE_DOOR); + } + + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/nw_s0_grdispel.ncs b/_haks/poa_exp_spells/nw_s0_grdispel.ncs new file mode 100644 index 0000000..ee54459 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_grdispel.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_grdispel.nss b/_haks/poa_exp_spells/nw_s0_grdispel.nss new file mode 100644 index 0000000..828e2c3 --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_grdispel.nss @@ -0,0 +1,95 @@ +//:://///////////////////////////////////////////// +//:: Greater Dispelling +//:: NW_S0_GrDispel.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Jan 7, 2002 +//:: Updated On: Oct 20, 2003, Georg Zoeller +//::////////////////////////////////////////////// + +//:: modified by mr_bumpkin Dec 4, 2003 for PRC stuff +#include "inc_dispel" + +void main() +{ + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_ABJURATION); + + //-------------------------------------------------------------------------- + /* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + */ + //-------------------------------------------------------------------------- + if (!X2PreSpellCastCode()) + { + return; + } + // End of Spell Cast Hook + + effect eVis = EffectVisualEffect( VFX_IMP_BREACH ); + effect eImpact = EffectVisualEffect( VFX_FNF_DISPEL_GREATER ); + int nCasterLevel = PRCGetCasterLevel(OBJECT_SELF); + object oTarget = PRCGetSpellTargetObject(); + location lLocal = PRCGetSpellTargetLocation(); + int iTypeDispel = GetLocalInt(GetModule(),"BIODispel"); + + //-------------------------------------------------------------------------- + // Greater Dispel Magic is capped at caster level 20 + //-------------------------------------------------------------------------- + if(nCasterLevel >20 ) + { + nCasterLevel = 20; + } + + if (GetIsObjectValid(oTarget)) + { + //---------------------------------------------------------------------- + // Targeted Dispel - Dispel all + //---------------------------------------------------------------------- + if (iTypeDispel) + spellsDispelMagic(oTarget, nCasterLevel, eVis, eImpact); + else + spellsDispelMagicMod(oTarget, nCasterLevel, eVis, eImpact); + } + else + { + //---------------------------------------------------------------------- + // Area of Effect - Only dispel best effect + //---------------------------------------------------------------------- + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eImpact, PRCGetSpellTargetLocation()); + oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, lLocal, FALSE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_AREA_OF_EFFECT | OBJECT_TYPE_PLACEABLE); + while (GetIsObjectValid(oTarget)) + { + if(GetObjectType(oTarget) == OBJECT_TYPE_AREA_OF_EFFECT) + { + //-------------------------------------------------------------- + // Handle Area of Effects + //-------------------------------------------------------------- + if (iTypeDispel) + spellsDispelAoE(oTarget, OBJECT_SELF,nCasterLevel); + else + spellsDispelAoEMod(oTarget, OBJECT_SELF,nCasterLevel); + + } + else if (GetObjectType(oTarget) == OBJECT_TYPE_PLACEABLE) + { + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, GetSpellId())); + } + else + { + if (iTypeDispel) + spellsDispelMagic(oTarget, nCasterLevel, eVis, eImpact, FALSE); + else + spellsDispelMagicMod(oTarget, nCasterLevel, eVis, eImpact, FALSE); + } + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE,lLocal, FALSE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_AREA_OF_EFFECT | OBJECT_TYPE_PLACEABLE); + } + } +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the local integer storing the spellschool name +} diff --git a/_haks/poa_exp_spells/nw_s0_hammgods.ncs b/_haks/poa_exp_spells/nw_s0_hammgods.ncs new file mode 100644 index 0000000..a7a5e67 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_hammgods.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_hammgods.nss b/_haks/poa_exp_spells/nw_s0_hammgods.nss new file mode 100644 index 0000000..0c045da --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_hammgods.nss @@ -0,0 +1,130 @@ +//:://///////////////////////////////////////////// +//:: Hammer of the Gods +//:: [NW_S0_HammGods.nss] +//:: Copyright (c) 2000 Bioware Corp. +//::////////////////////////////////////////////// +//:: Does 1d8 damage to all enemies within the +//:: spells 20m radius and dazes them if a +//:: Will save is failed. +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Jan 12, 2001 +//::////////////////////////////////////////////// +//:: VFX Pass By: Preston W, On: June 21, 2001 +//:: Update Pass By: Preston W, On: Aug 1, 2001 + +//:: modified by mr_bumpkin Dec 4, 2003 for PRC stuff +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION); +/* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + + //Declare major variables + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + + + + + int nCasterLvl = CasterLvl; + int nMetaMagic = PRCGetMetaMagicFeat(); + effect eDam; + effect eDaze = EffectDazed(); + effect eMind = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_NEGATIVE); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + + effect eLink = EffectLinkEffects(eMind, eDaze); + eLink = EffectLinkEffects(eLink, eDur); + + effect eVis = EffectVisualEffect(VFX_IMP_DIVINE_STRIKE_HOLY); + effect eStrike = EffectVisualEffect(VFX_FNF_STRIKE_HOLY); + float fDelay; + int nDamageDice = nCasterLvl/2; + if(nDamageDice == 0) + { + nDamageDice = 1; + } + //Limit caster level + if (nDamageDice > 40) + { + nDamageDice = 40; + } + int nDamage; + int nPenetr = CasterLvl +SPGetPenetr(); + + //Apply the holy strike VFX + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eStrike, PRCGetSpellTargetLocation()); + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, PRCGetSpellTargetLocation()); + while (GetIsObjectValid(oTarget)) + { + //Make faction checks + if (spellsIsTarget(oTarget, SPELL_TARGET_SELECTIVEHOSTILE, OBJECT_SELF)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_HAMMER_OF_THE_GODS)); + //Make SR Check + if (!PRCDoResistSpell(OBJECT_SELF, oTarget,nPenetr)) + { + fDelay = PRCGetRandomDelay(0.6, 1.3); + //Roll damage + nDamage = d8(nDamageDice); + //Make metamagic checks + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDamage = 8 * nDamageDice; + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDamage = FloatToInt( IntToFloat(nDamage) * 1.5 ); + } + //nDamage += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF, FALSE); + int nDC = PRCGetSaveDC(oTarget,OBJECT_SELF); + + //Make a will save for half damage and negation of daze effect + if (PRCMySavingThrow(SAVING_THROW_WILL, oTarget, (nDC), SAVING_THROW_TYPE_DIVINE, OBJECT_SELF, 0.5)) + { + nDamage = nDamage / 2; + } + else if (GetHasMettle(oTarget, SAVING_THROW_WILL)) // Ignores partial effects + { + nDamage = 0; + } + else + { + //Apply daze effect + DelayCommand(0.5, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(d6()),TRUE,-1,CasterLvl)); + } + //Set damage effect + eDam = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_DIVINE ); + //Apply the VFX impact and damage effect + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + //Get next target in shape + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, PRCGetSpellTargetLocation()); + } + + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the local integer storing the spellschool name +} diff --git a/_haks/poa_exp_spells/nw_s0_healcirc.ncs b/_haks/poa_exp_spells/nw_s0_healcirc.ncs new file mode 100644 index 0000000..bfe908d Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_healcirc.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_healcirc.nss b/_haks/poa_exp_spells/nw_s0_healcirc.nss new file mode 100644 index 0000000..2f3120e --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_healcirc.nss @@ -0,0 +1,160 @@ +//:://///////////////////////////////////////////// +//:: Healing Circle +//:: NW_S0_HealCirc +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* +// Positive energy spreads out in all directions +// from the point of origin, curing 1d8 points of +// damage plus 1 point per caster level (maximum +20) +// to nearby living allies. +// +// Like cure spells, healing circle damages undead in +// its area rather than curing them. +*/ +//::////////////////////////////////////////////// +//:: Created By: Noel Borstad +//:: Created On: Oct 18,2000 +//::////////////////////////////////////////////// +//:: VFX Pass By: Preston W, On: June 20, 2001 +//:: Update Pass By: Preston W, On: Aug 1, 2001 + +//:: modified by mr_bumpkin Dec 4, 2003 for PRC stuff + +//::Added code to maximize for Faith Healing and Blast Infidel +//::Aaon Graywolf - Jan 7, 2004 + +#include "prc_inc_function" +#include "prc_inc_spells" +#include "prc_add_spell_dc" + + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_CONJURATION); +/* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + + //Declare major variables + object oTarget; + + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + + + + + int nCasterLvl = CasterLvl; + int nDamagen, nModify, nHP; + int nMetaMagic = PRCGetMetaMagicFeat(); + effect eKill; + effect eHeal; + effect eVis = EffectVisualEffect(VFX_IMP_SUNSTRIKE); + effect eVis2 = EffectVisualEffect(VFX_IMP_HEALING_M); + effect eImpact = EffectVisualEffect(VFX_FNF_LOS_HOLY_20); + float fDelay; + //Limit caster level + if (nCasterLvl > 40) + { + nCasterLvl = 40; + } + + CasterLvl +=SPGetPenetr(); + + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eImpact, PRCGetSpellTargetLocation()); + //Get first target in shape + oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, PRCGetSpellTargetLocation()); + while (GetIsObjectValid(oTarget)) + { + fDelay = PRCGetRandomDelay(); + //Check if racial type is undead + if(MyPRCGetRacialType(oTarget) == RACIAL_TYPE_UNDEAD + || (GetHasFeat(FEAT_TOMB_TAINTED_SOUL, oTarget) && GetAlignmentGoodEvil(oTarget) != ALIGNMENT_GOOD)) + { + if(!GetIsReactionTypeFriendly(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_HEALING_CIRCLE)); + //Make SR check + if (!PRCDoResistSpell(OBJECT_SELF, oTarget,CasterLvl, fDelay)) + { + int nDC = PRCGetSaveDC(oTarget,OBJECT_SELF); + nModify = d8() + nCasterLvl; + //Make metamagic check + int iBlastFaith = BlastInfidelOrFaithHeal(OBJECT_SELF, oTarget, DAMAGE_TYPE_POSITIVE, FALSE); + if ((nMetaMagic & METAMAGIC_MAXIMIZE) || iBlastFaith) + { + nModify = 8 + nCasterLvl; + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nModify += (nModify/2); //Damage/Healing is +50% + } + if (GetLevelByClass(CLASS_TYPE_HEALER, OBJECT_SELF)) + nModify += GetAbilityModifier(ABILITY_CHARISMA, OBJECT_SELF); + //Make Fort save + if (PRCMySavingThrow(SAVING_THROW_FORT, oTarget, (nDC), SAVING_THROW_TYPE_NONE, OBJECT_SELF, fDelay)) + { + if (GetHasMettle(oTarget, SAVING_THROW_FORT)) + // This script does nothing if it has Mettle, bail + nModify = 0;; + nModify /= 2; + } + //Set damage effect + eKill = PRCEffectDamage(oTarget, nModify, DAMAGE_TYPE_POSITIVE); + //Apply damage effect and VFX impact + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eKill, oTarget)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + } + else + { + // * May 2003: Heal Neutrals as well + if(!GetIsReactionTypeHostile(oTarget) || GetFactionEqual(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_HEALING_CIRCLE, FALSE)); + nHP = d8() + nCasterLvl; + //Enter Metamagic conditions + int iBlastFaith = BlastInfidelOrFaithHeal(OBJECT_SELF, oTarget, DAMAGE_TYPE_POSITIVE, FALSE); + if ((nMetaMagic & METAMAGIC_MAXIMIZE) || iBlastFaith) + { + nHP = 8 + nCasterLvl;//Damage is at max + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nHP = nHP + (nHP/2); //Damage/Healing is +50% + } + //Set healing effect + if (GetLevelByClass(CLASS_TYPE_HEALER, OBJECT_SELF)) + nHP += GetAbilityModifier(ABILITY_CHARISMA, OBJECT_SELF); + eHeal = PRCEffectHeal(nHP, oTarget); + //Apply heal effect and VFX impact + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eHeal, oTarget)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis2, oTarget)); + } + } + //Get next target in the shape + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, PRCGetSpellTargetLocation()); + } + + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the local integer storing the spellschool name +} diff --git a/_haks/poa_exp_spells/nw_s0_healharm.ncs b/_haks/poa_exp_spells/nw_s0_healharm.ncs new file mode 100644 index 0000000..1549fce Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_healharm.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_healharm.nss b/_haks/poa_exp_spells/nw_s0_healharm.nss new file mode 100644 index 0000000..871e2e3 --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_healharm.nss @@ -0,0 +1,194 @@ +/* + nw_s0_healharm + + Heal/Harm in the one script + + By: Flaming_Sword + Created: Jun 14, 2006 + Modified: Nov 21, 2006 + + Consolidation of heal/harm scripts + Mass Heal vfx on target looks like heal + added greater harm, mass harm +*/ + +#include "prc_sp_func" +#include "prc_inc_sp_tch" +#include "prc_inc_function" +#include "prc_add_spell_dc" +#include "inc_dispel" + +//Implements the spell impact, put code here +// if called in many places, return TRUE if +// stored charges should be decreased +// eg. touch attack hits +// +// Variables passed may be changed if necessary +int DoSpell(object oCaster, object oTarget, int nSpellID) +{ + int bIsHeal = IsHeal(nSpellID); //whether it is a heal or harm spell + int bMass = IsMassHealHarm(nSpellID); + int nCasterLevel = PRCGetCasterLevel(oCaster); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nHealVFX, nHurtVFX, nEnergyType, nDice, iBlastFaith, nHeal; + float fRadius; + string nSwitch; + int nCap = 150 + nCasterLevel; + if(bIsHeal) + { + nHealVFX = VFX_IMP_HEALING_X; + nHurtVFX = VFX_IMP_SUNSTRIKE; + nEnergyType = DAMAGE_TYPE_POSITIVE; + nSwitch = PRC_BIOWARE_HEAL; + fRadius = RADIUS_SIZE_COLOSSAL; + if(nSpellID == SPELL_MASS_HEAL) + { + nSwitch = PRC_BIOWARE_MASS_HEAL; + nCap = 250 + nCasterLevel; + } + } + else + { + nHealVFX = VFX_IMP_HEALING_G; + nHurtVFX = 246; + nEnergyType = DAMAGE_TYPE_NEGATIVE; + nSwitch = PRC_BIOWARE_HARM; + fRadius = RADIUS_SIZE_HUGE; + } + int iHeal; + int iAttackRoll = 1; + if((nSpellID == SPELL_MASS_HARM) || (nSpellID == SPELL_GREATER_HARM)) + { + nDice = (nCasterLevel > 40) ? 40 : nCasterLevel; + nHeal = d12(nDice); + if((nMetaMagic & METAMAGIC_MAXIMIZE) || BlastInfidelOrFaithHeal(oCaster, oTarget, nEnergyType, TRUE)) + nHeal = 12 * nDice; //in case higher level spell slots are available + } + else + { + nHeal = 10 * nCasterLevel; + } + if(nHeal > nCap && !GetPRCSwitch(nSwitch)) + nHeal = nCap; + location lLoc; + if(bMass) + { + lLoc = (nSpellID == SPELL_MASS_HARM) ? GetLocation(oCaster) : PRCGetSpellTargetLocation(); + oTarget = MyFirstObjectInShape(SHAPE_SPHERE, fRadius, lLoc); + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, EffectVisualEffect(bIsHeal ? VFX_FNF_LOS_HOLY_30 : VFX_FNF_LOS_EVIL_20), lLoc); + } + float fDelay = 0.0; + + while(GetIsObjectValid(oTarget)) + { + if(bMass) fDelay = PRCGetRandomDelay(); + int iTombTainted = GetHasFeat(FEAT_TOMB_TAINTED_SOUL, oTarget) && GetAlignmentGoodEvil(oTarget) != ALIGNMENT_GOOD; + + iHeal = GetObjectType(oTarget) == OBJECT_TYPE_CREATURE && + ((!bIsHeal && (MyPRCGetRacialType(oTarget) == RACIAL_TYPE_UNDEAD || iTombTainted)) || + (bIsHeal && MyPRCGetRacialType(oTarget) != RACIAL_TYPE_UNDEAD && !iTombTainted)); + if (GetLocalInt(oTarget, "AcererakHealing")) iHeal = TRUE; + + if(iHeal && (spellsIsTarget(oTarget, SPELL_TARGET_ALLALLIES, oCaster) || (GetIsDead(oTarget) && (GetCurrentHitPoints(oTarget) > -10)))) + { + SignalEvent(oTarget, EventSpellCastAt(oCaster, nSpellID, FALSE)); + + //Warforged are only healed for half, none if they have Improved Fortification + if(GetIsWarforged(oTarget)) nHeal /= 2; + if(GetHasFeat(FEAT_IMPROVED_FORTIFICATION, oTarget)) nHeal = 0; + + + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectHeal(nHeal, oTarget), oTarget)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(nHealVFX), oTarget)); + // Code for FB to remove damage that would be caused at end of Frenzy + SetLocalInt(oTarget, "PC_Damage", 0); + } + else if((GetObjectType(oTarget) != OBJECT_TYPE_CREATURE && !bIsHeal) || + (GetObjectType(oTarget) == OBJECT_TYPE_CREATURE && !iHeal)) + { + if(!GetIsReactionTypeFriendly(oTarget) && oTarget != oCaster) + { + SignalEvent(oTarget, EventSpellCastAt(oCaster, nSpellID)); + iAttackRoll = PRCDoMeleeTouchAttack(oTarget); + if(iAttackRoll) + { + if (!PRCDoResistSpell(oCaster, oTarget, nCasterLevel + SPGetPenetr())) + { + int nModify = d4(); + iBlastFaith = BlastInfidelOrFaithHeal(oCaster, oTarget, nEnergyType, TRUE); + if((nMetaMagic & METAMAGIC_MAXIMIZE) || iBlastFaith) + { + nModify = 1; + } + if((nSpellID == SPELL_MASS_HARM) || (nSpellID == SPELL_GREATER_HARM)) + { + nHeal = d12(nDice); + if((nMetaMagic & METAMAGIC_MAXIMIZE) || iBlastFaith) + nHeal = 12 * nDice; + } + else + { + nHeal = 10 * nCasterLevel; + } + if(nHeal > nCap && !GetPRCSwitch(nSwitch)) + nHeal = nCap; + + if(PRCMySavingThrow(SAVING_THROW_WILL, oTarget, PRCGetSaveDC(oTarget, OBJECT_SELF))) + { + nHeal /= 2; + if (GetHasMettle(oTarget, SAVING_THROW_WILL)) // Ignores partial effects + nHeal = 0; + } + int nHP = GetCurrentHitPoints(oTarget); + if (nHeal > nHP - nModify) + nHeal = nHP - nModify; + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nHeal, nEnergyType), oTarget)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(nHurtVFX), oTarget)); + } + } + } + } + if(!bMass) break; + oTarget = MyNextObjectInShape(SHAPE_SPHERE, fRadius, lLoc); + } + //Spell Removal Check + SpellRemovalCheck(oCaster, oTarget); + return iAttackRoll; //return TRUE if spell charges should be decremented +} + +void main() +{ + if (DEBUG) DoDebug("nw_s0_healharm running "+IntToString(GetIsPC(OBJECT_SELF))); + int nSpellID = PRCGetSpellId(); + PRCSetSchool(GetSpellSchool(nSpellID)); + + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + if(X2PreSpellCastCode()) + { + object oCaster = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if (DEBUG )DoDebug("nw_s0_healharm running normal casting"); + if(IsTouchSpell(nSpellID) && GetLocalInt(oCaster, PRC_SPELL_HOLD) && oCaster == oTarget) + { //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + if (DEBUG) DoDebug("nw_s0_healharm running returning"); + return; + } + if (DEBUG) DoDebug("nw_s0_healharm running DoSpell"); + DoSpell(oCaster, oTarget, nSpellID); + } + else + { + if (DEBUG) DoDebug("nw_s0_healharm running else casting"); + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nSpellID)) + DecrementSpellCharges(oCaster); + } + } + } + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/nw_s0_horrwilt.ncs b/_haks/poa_exp_spells/nw_s0_horrwilt.ncs new file mode 100644 index 0000000..f025610 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_horrwilt.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_horrwilt.nss b/_haks/poa_exp_spells/nw_s0_horrwilt.nss new file mode 100644 index 0000000..f178533 --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_horrwilt.nss @@ -0,0 +1,121 @@ +//:://///////////////////////////////////////////// +//:: Horrid Wilting +//:: NW_S0_HorrWilt +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + All living creatures (not undead or constructs) + suffer 1d8 damage per caster level to a maximum + of 25d8 damage. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Sept 12 , 2001 +//::////////////////////////////////////////////// + +//:: modified by mr_bumpkin Dec 4, 2003 for PRC stuff +#include "prc_inc_spells" +#include "prc_add_spell_dc" + + + + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_NECROMANCY); +/* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + + //Declare major variables + object oCaster = OBJECT_SELF; + int nCasterLvl = PRCGetCasterLevel(oCaster); + + int CasterLvl = nCasterLvl; + + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDamage; + float fDelay; + effect eExplode = EffectVisualEffect(VFX_FNF_HORRID_WILTING); + effect eVis = EffectVisualEffect(VFX_IMP_NEGATIVE_ENERGY); + effect eDam; + //Get the spell target location as opposed to the spell target. + location lTarget = PRCGetSpellTargetLocation(); + //Limit Caster level for the purposes of damage + if (nCasterLvl > 60) + { + nCasterLvl = 60; + } + + CasterLvl +=SPGetPenetr(); + + //Apply the horrid wilting explosion at the location captured above. + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eExplode, lTarget); + //Declare the spell shape, size and the location. Capture the first target object in the shape. + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget); + //Cycle through the targets within the spell shape until an invalid object is captured. + while (GetIsObjectValid(oTarget)) + { + // GZ: Not much fun if the caster is always killing himself + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF) && oTarget != OBJECT_SELF) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_HORRID_WILTING)); + //Get the distance between the explosion and the target to calculate delay + fDelay = PRCGetRandomDelay(1.5, 2.5); + if (!PRCDoResistSpell(OBJECT_SELF, oTarget,CasterLvl, fDelay)) + { + if(PRCGetIsAliveCreature(oTarget)) + { + int nDC = PRCGetSaveDC(oTarget,OBJECT_SELF); + //Roll damage for each target + nDamage = d8(nCasterLvl); + //Resolve metamagic + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDamage = 8 * nCasterLvl; + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDamage = nDamage + nDamage / 2; + } + if(/*Fort Save*/ PRCMySavingThrow(SAVING_THROW_FORT, oTarget, (nDC), SAVING_THROW_TYPE_NONE, OBJECT_SELF, fDelay)) + { + if (GetHasMettle(oTarget, SAVING_THROW_FORT)) + // This script does nothing if it has Mettle, bail + nDamage = 0; + nDamage = nDamage/2; + } + //nDamage += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF, FALSE); + //Set the damage effect + eDam = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_MAGICAL); + // Apply effects to the currently selected target. + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + PRCBonusDamage(oTarget); + //This visual effect is applied to the target object not the location as above. This visual effect + //represents the flame that erupts on the target not on the ground. + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + } + //Select the next target within the spell shape. + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget); + } + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the local integer storing the spellschool name +} diff --git a/_haks/poa_exp_spells/nw_s0_imprinvis.ncs b/_haks/poa_exp_spells/nw_s0_imprinvis.ncs new file mode 100644 index 0000000..4a6f70b Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_imprinvis.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_imprinvis.nss b/_haks/poa_exp_spells/nw_s0_imprinvis.nss new file mode 100644 index 0000000..fe19382 --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_imprinvis.nss @@ -0,0 +1,90 @@ +/* + nw_s0_imprinvis + + Target creature can attack and cast spells while + invisible + + By: Preston Watamaniuk + Created: Jan 7, 2002 + Modified: Jun 12, 2006 +*/ + +void ReapplyInvis(object oTarget, effect eInvis, float fDur, int CasterLvl); + +#include "prc_sp_func" + +void ReapplyInvis(object oTarget, effect eInvis, float fDur, int CasterLvl) +{ + if(!PRCGetHasEffect(EFFECT_TYPE_INVISIBILITY, oTarget) && GetHasSpellEffect(SPELL_IMPROVED_INVISIBILITY)) + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eInvis, oTarget, fDur,TRUE,-1,CasterLvl); + DelayCommand(1.0, ReapplyInvis(oTarget, eInvis, fDur-1.0, CasterLvl)); +} + +//Implements the spell impact, put code here +// if called in many places, return TRUE if +// stored charges should be decreased +// eg. touch attack hits +// +// Variables passed may be changed if necessary +int DoSpell(object oCaster, object oTarget, int nCasterLevel, int nEvent) +{ + int bBio = GetPRCSwitch(PRC_BIOWARE_INVISIBILITY); + float fDur; + effect eImpact = EffectVisualEffect(VFX_IMP_HEAD_MIND); + effect eVis = EffectVisualEffect(VFX_DUR_INVISIBILITY); + effect eInvis = EffectInvisibility(bBio ? INVISIBILITY_TYPE_NORMAL : INVISIBILITY_TYPE_IMPROVED); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE); + effect eCover = EffectConcealment(25 + (nCasterLevel/10) ); //era 50 diminui para 25 +castrlvl/10 + effect eLink = EffectLinkEffects(eDur, eCover); + eLink = EffectLinkEffects(eLink, eVis); + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_IMPROVED_INVISIBILITY, FALSE)); + int CasterLvl = nCasterLevel; + int nDuration = CasterLvl/4; //alterei aqui para metade da duracao + if (GetHasFeat(FEAT_INSIDIOUSMAGIC,OBJECT_SELF) && GetHasFeat(FEAT_SHADOWWEAVE,oTarget)) + nDuration = nDuration*2; + int nMetaMagic = PRCGetMetaMagicFeat(); + //Enter Metamagic conditions + if (CheckMetaMagic(nMetaMagic, METAMAGIC_EXTEND)) + { + nDuration = nDuration *2; //Duration is +100% + } + fDur = bBio ? TurnsToSeconds(nDuration) : RoundsToSeconds(nDuration); + //Apply the VFX impact and effects + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eImpact, oTarget); + + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, fDur,TRUE,-1,CasterLvl); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eInvis, oTarget, fDur,TRUE,-1,CasterLvl); + DelayCommand(1.0, ReapplyInvis(oTarget, eInvis, fDur, CasterLvl)); + + return TRUE; //return TRUE if spell charges should be decremented +} + +void main() +{ + object oCaster = OBJECT_SELF; + int nCasterLevel = PRCGetCasterLevel(oCaster); + PRCSetSchool(GetSpellSchool(PRCGetSpellId())); + if (!X2PreSpellCastCode()) return; + object oTarget = PRCGetSpellTargetObject(); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if(GetLocalInt(oCaster, PRC_SPELL_HOLD) && oCaster == oTarget) + { //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + DoSpell(oCaster, oTarget, nCasterLevel, nEvent); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel, nEvent)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/nw_s0_incclouda.ncs b/_haks/poa_exp_spells/nw_s0_incclouda.ncs new file mode 100644 index 0000000..29f8b0b Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_incclouda.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_incclouda.nss b/_haks/poa_exp_spells/nw_s0_incclouda.nss new file mode 100644 index 0000000..83e3097 --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_incclouda.nss @@ -0,0 +1,81 @@ +//:://///////////////////////////////////////////// +//:: Incendiary Cloud +//:: NW_S0_IncCloud.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Person within the AoE take 4d6 fire damage + per round. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 17, 2001 +//::////////////////////////////////////////////// +//:: March 2003: Removed movement speed penalty + +//:: modified by mr_bumpkin Dec 4, 2003 for PRC stuff +#include "prc_inc_spells" +#include "prc_add_spell_dc" + + + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION); + + //Declare major variables + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDamage; + effect eDam; + object oTarget; + //Declare and assign personal impact visual effect. + effect eVis = EffectVisualEffect(VFX_IMP_FLAME_S); + // effect eSpeed = EffectMovementSpeedDecrease(50); + effect eVis2 = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eLink = eVis2; //EffectLinkEffects(eSpeed, eVis2); + float fDelay; + //Capture the first target object in the shape. + oTarget = GetEnteringObject(); + + int nPenetr = SPGetPenetrAOE(GetAreaOfEffectCreator()); +int CasterLvl = PRCGetCasterLevel(); + + //Declare the spell shape, size and the location. + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, GetAreaOfEffectCreator())) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_INCENDIARY_CLOUD)); + //Make SR check, and appropriate saving throw(s). + if(!PRCDoResistSpell(GetAreaOfEffectCreator(), oTarget,nPenetr, fDelay)) + { + fDelay = PRCGetRandomDelay(0.5, 2.0); + //Roll damage. + nDamage = d6(CasterLvl); + //Enter Metamagic conditions + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDamage = 6 * CasterLvl;//Damage is at max + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDamage = nDamage + (nDamage/2); //Damage/Healing is +50% + } + //nDamage += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF, FALSE); + //Adjust damage for Reflex Save, Evasion and Improved Evasion + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, PRCGetSaveDC(oTarget, GetAreaOfEffectCreator(), SPELL_INCENDIARY_CLOUD), SAVING_THROW_TYPE_FIRE, GetAreaOfEffectCreator()); + // Apply effects to the currently selected target. + eDam = PRCEffectDamage(oTarget, nDamage, GetLocalInt(OBJECT_SELF, "IC_Damage")); + if(nDamage > 0) + { + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget)); + PRCBonusDamage(oTarget); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + // SPApplyEffectToObject(DURATION_TYPE_PERMANENT, eSpeed, oTarget); + } + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the local integer storing the spellschool name +} diff --git a/_haks/poa_exp_spells/nw_s0_inccloudc.ncs b/_haks/poa_exp_spells/nw_s0_inccloudc.ncs new file mode 100644 index 0000000..8179b2d Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_inccloudc.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_inccloudc.nss b/_haks/poa_exp_spells/nw_s0_inccloudc.nss new file mode 100644 index 0000000..73e8fd8 --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_inccloudc.nss @@ -0,0 +1,100 @@ +//:://///////////////////////////////////////////// +//:: Incendiary Cloud +//:: NW_S0_IncCloudC.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Objects within the AoE take 4d6 fire damage + per round. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 17, 2001 +//::////////////////////////////////////////////// +//:: Updated By: GeorgZ 2003-08-21: Now affects doors and placeables as well + + +//:: modified by mr_bumpkin Dec 4, 2003 for PRC stuff +#include "prc_inc_spells" +#include "prc_add_spell_dc" + + + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION); + + //Declare major variables + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDamage; + effect eDam; + object oTarget; + //Declare and assign personal impact visual effect. + effect eVis = EffectVisualEffect(VFX_IMP_FLAME_S); + float fDelay; + //Capture the first target object in the shape. + + //-------------------------------------------------------------------------- + // GZ 2003-Oct-15 + // When the caster is no longer there, all functions calling + // GetAreaOfEffectCreator will fail. Its better to remove the barrier then + //-------------------------------------------------------------------------- + object aoeCreator = GetAreaOfEffectCreator(); + if (!GetIsObjectValid(aoeCreator)) + { + DestroyObject(OBJECT_SELF); + return; + } + + int CasterLvl = PRCGetCasterLevel(aoeCreator); + + int nPenetr = SPGetPenetrAOE(aoeCreator,CasterLvl); + + int EleDmg = GetLocalInt(OBJECT_SELF, "IC_Damage"); + + + oTarget = GetFirstInPersistentObject(OBJECT_SELF,OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + //Declare the spell shape, size and the location. + while(GetIsObjectValid(oTarget)) + { + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, aoeCreator)) + { + fDelay = PRCGetRandomDelay(0.5, 2.0); + //Make SR check, and appropriate saving throw(s). + if(!PRCDoResistSpell(aoeCreator, oTarget,nPenetr, fDelay)) + { + SignalEvent(oTarget, EventSpellCastAt(aoeCreator, SPELL_INCENDIARY_CLOUD)); + //Roll damage. + nDamage = d6(CasterLvl); + //Enter Metamagic conditions + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDamage = 6 * CasterLvl;//Damage is at max + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDamage = nDamage + (nDamage/2); //Damage/Healing is +50% + } + //nDamage += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF, FALSE); + int nDC = PRCGetSaveDC(oTarget,aoeCreator); + //Adjust damage for Reflex Save, Evasion and Improved Evasion + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nDC,SAVING_THROW_TYPE_FIRE, aoeCreator); + // Apply effects to the currently selected target. + eDam = PRCEffectDamage(oTarget, nDamage, EleDmg); + if(nDamage > 0) + { + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget)); + PRCBonusDamage(oTarget); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + } + //Select the next target within the spell shape. + oTarget = GetNextInPersistentObject(OBJECT_SELF,OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + } + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the local integer storing the spellschool name +} diff --git a/_haks/poa_exp_spells/nw_s0_lghtnbolt.ncs b/_haks/poa_exp_spells/nw_s0_lghtnbolt.ncs new file mode 100644 index 0000000..4090caf Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_lghtnbolt.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_lghtnbolt.nss b/_haks/poa_exp_spells/nw_s0_lghtnbolt.nss new file mode 100644 index 0000000..9246dd2 --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_lghtnbolt.nss @@ -0,0 +1,132 @@ +//:://///////////////////////////////////////////// +//:: Lightning Bolt +//:: NW_S0_LightnBolt +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Does 1d6 per level in a 5ft tube for 30m +*/ +//::////////////////////////////////////////////// +//:: Created By: Noel Borstad +//:: Created On: March 8, 2001 +//::////////////////////////////////////////////// +//:: Last Updated By: Preston Watamaniuk, On: May 2, 2001 + +//:: modified by mr_bumpkin Dec 4, 2003 for PRC stuff +#include "prc_inc_spells" +#include "prc_add_spell_dc" + + + + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION); + +/* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + + //Declare major variables + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + + + + int EleDmg = ChangedElementalDamage(OBJECT_SELF, DAMAGE_TYPE_ELECTRICAL); + + int nCasterLevel = CasterLvl; + //Limit caster level + if (nCasterLevel > 20) // cap era 10 mudei para 20 + { + nCasterLevel = 20; + } + int nDamage; + int nMetaMagic = PRCGetMetaMagicFeat(); + //Set the lightning stream to start at the caster's hands + effect eLightning = EffectBeam(VFX_BEAM_LIGHTNING, OBJECT_SELF, BODY_NODE_HAND); + effect eVis = EffectVisualEffect(VFX_IMP_LIGHTNING_S); + effect eDamage; + object oTarget = PRCGetSpellTargetObject(); + location lTarget = GetLocation(oTarget); + object oNextTarget, oTarget2; + float fDelay; + int nCnt = 1; + + CasterLvl +=SPGetPenetr(); + + oTarget2 = GetNearestObject(OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE, OBJECT_SELF, nCnt); + while(GetIsObjectValid(oTarget2) && GetDistanceToObject(oTarget2) <= 30.0) + { + //Get first target in the lightning area by passing in the location of first target and the casters vector (position) + oTarget = MyFirstObjectInShape(SHAPE_SPELLCYLINDER, 30.0, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE, GetPosition(OBJECT_SELF)); + while (GetIsObjectValid(oTarget)) + { + //Exclude the caster from the damage effects + if (oTarget != OBJECT_SELF && oTarget2 == oTarget) + { + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_LIGHTNING_BOLT)); + //Make an SR check + if (!PRCDoResistSpell(OBJECT_SELF, oTarget,CasterLvl)) + { + int nDC = PRCGetSaveDC(oTarget,OBJECT_SELF); + //Roll damage + nDamage = d6(nCasterLevel); + //Enter Metamagic conditions + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDamage = 6 * nCasterLevel;//Damage is at max + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDamage = nDamage + (nDamage/2); //Damage/Healing is +50% + } + //nDamage += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF, FALSE); + //Adjust damage based on Reflex Save, Evasion and Improved Evasion + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nDC,SAVING_THROW_TYPE_ELECTRICITY); + //Set damage effect + eDamage = PRCEffectDamage(oTarget, nDamage, EleDmg); + if(nDamage > 0) + { + fDelay = PRCGetSpellEffectDelay(GetLocation(oTarget), oTarget); + //Apply VFX impcat, damage effect and lightning effect + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT,eDamage,oTarget)); + PRCBonusDamage(oTarget); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT,eVis,oTarget)); + } + } + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY,eLightning,oTarget,1.0,FALSE); + //Set the currect target as the holder of the lightning effect + oNextTarget = oTarget; + eLightning = EffectBeam(VFX_BEAM_LIGHTNING, oNextTarget, BODY_NODE_CHEST); + } + } + //Get the next object in the lightning cylinder + oTarget = MyNextObjectInShape(SHAPE_SPELLCYLINDER, 30.0, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE, GetPosition(OBJECT_SELF)); + } + nCnt++; + oTarget2 = GetNearestObject(OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE, OBJECT_SELF, nCnt); + } + + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the local integer storing the spellschool name +} + diff --git a/_haks/poa_exp_spells/nw_s0_magmiss.ncs b/_haks/poa_exp_spells/nw_s0_magmiss.ncs new file mode 100644 index 0000000..6bd8123 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_magmiss.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_magmiss.nss b/_haks/poa_exp_spells/nw_s0_magmiss.nss new file mode 100644 index 0000000..b78075f --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_magmiss.nss @@ -0,0 +1,109 @@ + //:://///////////////////////////////////////////// +//:: Magic Missile +//:: NW_S0_MagMiss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* +// A missile of magical energy darts forth from your +// fingertip and unerringly strikes its target. The +// missile deals 1d4+1 points of damage. +// +// For every two extra levels of experience past 1st, you +// gain an additional missile. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: April 10, 2001 +//::////////////////////////////////////////////// +//:: Last Updated By: Preston Watamaniuk, On: May 8, 2001 + +//:: modified by mr_bumpkin Dec 4, 2003 for PRC stuff +#include "prc_inc_spells" + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION); + + if (!X2PreSpellCastCode()) + return; + + //Declare major variables ( fDist / (3.0f * log( fDist ) + 2.0f) ) + object oTarget = PRCGetSpellTargetObject(); + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + int nCasterLvl = CasterLvl; + int nDamage = 0; + int nMetaMagic = PRCGetMetaMagicFeat(); + int nCnt; + effect eMissile = EffectVisualEffect(VFX_IMP_MIRV); + effect eVis = EffectVisualEffect(VFX_IMP_MAGBLUE); + int nMissiles = (nCasterLvl + 1)/2; + float fDist = GetDistanceBetween(OBJECT_SELF, oTarget); + float fDelay = fDist/(3.0 * log(fDist) + 2.0); + float fDelay2, fTime; + + CasterLvl +=SPGetPenetr(); + int nClass = GetLevelByClass(CLASS_TYPE_FMM); + if (GetIsObjectValid(PRCGetSpellCastItem())) nClass = 0; // The FMM boosts don't apply to wands/scrolls/etc. + if (nClass >= 3) + CasterLvl += 2; + + if(!GetIsReactionTypeFriendly(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_MAGIC_MISSILE)); + //Limit missiles to five + if (nMissiles > 20) + nMissiles = 20; + + // Force missile mage adds a bonus missile at 1st and 5th levels + if (nClass) nMissiles++; + if (nClass >= 5) nMissiles++; + if (nClass >= 10) nMissiles++; + if (nClass >= 15) nMissiles++; + if (nClass >= 20) nMissiles++; + if (nClass >= 25) nMissiles++; + if (nClass >= 30) nMissiles++; + if (nClass >= 35) nMissiles++; + if (nClass >= 40) nMissiles++; + if (nClass >= 45) nMissiles++; + if (nClass >= 50) nMissiles++; + if (nClass >= 55) nMissiles++; + if (nClass >= 60) nMissiles++; + //Make SR Check + if (!PRCDoResistSpell(OBJECT_SELF, oTarget,CasterLvl, fDelay)) + { + //Apply a single damage hit for each missile instead of as a single mass + for (nCnt = 1; nCnt <= nMissiles; nCnt++) + { + //Roll damage + int nDam = d4(nMissiles/4) + 1; + //Enter Metamagic conditions + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + nDam = 4*(nMissiles/4)+1;//Damage is at max + if ((nMetaMagic & METAMAGIC_EMPOWER)) + nDam = nDam + nDam/2; //Damage/Healing is +50% + + fTime = fDelay; + fDelay2 += 0.1; + fTime += fDelay2; + + //Apply the MIRV and damage effect + effect eDam = PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_MAGICAL); + DelayCommand(fTime, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget)); + DelayCommand(fTime, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eVis, oTarget,0.0f,FALSE)); + DelayCommand(fDelay2, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eMissile, oTarget)); + } + } + else + { + for (nCnt = 1; nCnt <= nMissiles; nCnt++) + { + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eMissile, oTarget); + } + } + } + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the local integer storing the spellschool name +} diff --git a/_haks/poa_exp_spells/nw_s0_metswarm.ncs b/_haks/poa_exp_spells/nw_s0_metswarm.ncs new file mode 100644 index 0000000..917ee17 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_metswarm.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_metswarm.nss b/_haks/poa_exp_spells/nw_s0_metswarm.nss new file mode 100644 index 0000000..47bde87 --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_metswarm.nss @@ -0,0 +1,112 @@ +//:://///////////////////////////////////////////// +//:: Meteor Swarm +//:: NW_S0_MetSwarm +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Everyone in a 50ft radius around the caster + takes 20d6 fire damage. Those within 6ft of the + caster will take no damage. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 24 , 2001 +//::////////////////////////////////////////////// +//:: VFX Pass By: Preston W, On: June 22, 2001 + +//:: modified by mr_bumpkin Dec 4, 2003 for PRC stuff +#include "prc_inc_spells" +#include "prc_add_spell_dc" + + + + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION); +/* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + + CasterLvl +=SPGetPenetr(); + + int EleDmg = ChangedElementalDamage(OBJECT_SELF, DAMAGE_TYPE_FIRE); + + + //Declare major variables + int nMetaMagic; + int nDamage; + effect eFire; + effect eMeteor = EffectVisualEffect(VFX_FNF_METEOR_SWARM); + effect eVis = EffectVisualEffect(VFX_IMP_FLAME_M); + //Apply the meteor swarm VFX area impact + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eMeteor, GetLocation(OBJECT_SELF)); + //Get first object in the spell area + float fDelay; + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, GetLocation(OBJECT_SELF)); + while(GetIsObjectValid(oTarget)) + { + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF) && oTarget != OBJECT_SELF) + { + fDelay = PRCGetRandomDelay(); + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_METEOR_SWARM)); + //Make sure the target is outside the 2m safe zone + if (GetDistanceBetween(oTarget, OBJECT_SELF) > 2.0) + { + //Make SR check + if (!PRCDoResistSpell(OBJECT_SELF, oTarget,CasterLvl, 0.5)) + { + int nDC = PRCGetSaveDC(oTarget,OBJECT_SELF); + //Roll damage + nDamage = d6(CasterLvl); //alterado rafael antes era 20 troquei pelo caster lvl + + //Enter Metamagic conditions + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDamage = 6 * CasterLvl;//Damage is at max //alterado rafael antes era 20 troquei pelo caster lvl + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDamage = nDamage + (nDamage/2); //Damage/Healing is +50% + } + //nDamage += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF, FALSE); + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, (nDC),SAVING_THROW_TYPE_FIRE); + //Set the damage effect + eFire = PRCEffectDamage(oTarget, nDamage, EleDmg); + if(nDamage > 0) + { + //Apply damage effect and VFX impact. + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eFire, oTarget)); + PRCBonusDamage(oTarget); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + } + } + //Get next target in the spell area + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, GetLocation(OBJECT_SELF)); + } + + + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the local integer storing the spellschool name +} + diff --git a/_haks/poa_exp_spells/nw_s0_phankill.ncs b/_haks/poa_exp_spells/nw_s0_phankill.ncs new file mode 100644 index 0000000..3949174 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_phankill.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_phankill.nss b/_haks/poa_exp_spells/nw_s0_phankill.nss new file mode 100644 index 0000000..0abbafe --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_phankill.nss @@ -0,0 +1,161 @@ +//:://///////////////////////////////////////////// +//:: Phantasmal Killer +//:: NW_S0_PhantKill +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Target of the spell must make 2 saves or die. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Dec 14 , 2001 +//::////////////////////////////////////////////// +//:: VFX Pass By: Preston W, On: June 22, 2001 +//:: Update Pass By: Preston W, On: Aug 3, 2001 + +//:: modified by mr_bumpkin Dec 4, 2003 for PRC stuff +#include "prc_inc_spells" +#include "prc_add_spell_dc" + + + +int PRCMySavingThrow2(int nSavingThrow, object oTarget, int nDC, int nSaveType=SAVING_THROW_TYPE_NONE, object oSaveVersus = OBJECT_SELF, float fDelay = 0.0); + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_ILLUSION); +/* + Spellcast Hook Code + Added 2003-06-23 by GeorgZ + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + + //Declare major variables + int nDamage = d6(7); + int nMetaMagic = PRCGetMetaMagicFeat(); + object oTarget = PRCGetSpellTargetObject(); + effect eDam; + effect eVis = EffectVisualEffect(VFX_IMP_DEATH); + effect eVis2 = EffectVisualEffect(VFX_IMP_SONIC); + if(!GetIsReactionTypeFriendly(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_PHANTASMAL_KILLER)); + //Make an SR check + if(!PRCDoResistSpell(OBJECT_SELF, oTarget) && !GetIsImmune(oTarget, IMMUNITY_TYPE_MIND_SPELLS)) + { + //Make a Will save + // Feb 17, 2004 + // !MySavingThrow does not work here, because it does not take into account whether + // the creature is immune to the effect. If immune, it still does the fort save, so + // the target will still take damage or die. To avoid messing with things too much, + // I've made a copy of the function in this script, with an edit to return the proper + // value if the spell was resisted. + //Make a Will save + if (!PRCMySavingThrow2(SAVING_THROW_WILL, oTarget, PRCGetSaveDC(oTarget, OBJECT_SELF), SAVING_THROW_TYPE_MIND_SPELLS)) + { + // Immunity to fear, makes you immune to Phantasmal Killer. + if ( GetIsImmune( oTarget, IMMUNITY_TYPE_FEAR ) == FALSE ) + { + //Make a Fort save + if (PRCMySavingThrow(SAVING_THROW_FORT, oTarget, PRCGetSaveDC(oTarget, OBJECT_SELF),SAVING_THROW_TYPE_DEATH)) + { + if (GetHasMettle(oTarget, SAVING_THROW_FORT)) + // This script does nothing if it has Mettle, bail + return; + //Check for metamagic + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDamage = 42; + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDamage = FloatToInt( IntToFloat(nDamage) * 1.5 ); + } + //nDamage += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF); + //Set the damage property + eDam = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_MAGICAL); + //Apply the damage effect and VFX impact + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis2, oTarget); + } + else + { + DeathlessFrenzyCheck(oTarget); + effect eDeath = EffectDeath(); + if(!GetPRCSwitch(PRC_165_DEATH_IMMUNITY)) + eDeath = SupernaturalEffect(eDeath); + //Apply the death effect and VFX impact + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDeath, oTarget); + //SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + } + } + } + } + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the integer used to hold the spells spell school +} + +int PRCMySavingThrow2(int nSavingThrow, object oTarget, int nDC, int nSaveType=SAVING_THROW_TYPE_NONE, object oSaveVersus = OBJECT_SELF, float fDelay = 0.0) +{ + + object oCaster = GetLastSpellCaster(); + int iRW = GetLevelByClass(CLASS_TYPE_RED_WIZARD, oCaster); + int iTK = GetLevelByClass(CLASS_TYPE_THAYAN_KNIGHT, oTarget); + int iRedWizard = GetLevelByClass(CLASS_TYPE_RED_WIZARD, oTarget); + int nSpell = PRCGetSpellId(); + + // Handle the target having Force of Will and being targeted by a psionic power + if(nSavingThrow != SAVING_THROW_WILL && + nSpell > 14000 && nSpell < 14360 && + GetHasFeat(FEAT_FORCE_OF_WILL, oTarget) && + !GetLocalInt(oTarget, "ForceOfWillUsed") && + // Only use will save if it's better + (nSavingThrow == SAVING_THROW_FORT ? GetFortitudeSavingThrow(oTarget) : GetReflexSavingThrow(oTarget)) > GetWillSavingThrow(oTarget) + ) + { + nSavingThrow = SAVING_THROW_WILL; + SetLocalInt(oTarget, "ForceOfWillUsed", TRUE); + DelayCommand(6.0f, DeleteLocalInt(oTarget, "ForceOfWillUsed")); + SendMessageToPC(oTarget, "Force Of Will used"); + } + + if (iRW > 0 && iTK > 0 && nSaveType == SAVING_THROW_TYPE_MIND_SPELLS) + { + return 0; + } + + + //racial pack code + if(nSaveType == SAVING_THROW_TYPE_FIRE && GetHasFeat(FEAT_HARD_FIRE, oTarget) ) + { nDC -= 1+(GetHitDice(oTarget)/5); } + else if(nSaveType == SAVING_THROW_TYPE_COLD && GetHasFeat(FEAT_HARD_WATER, oTarget) ) + { nDC -= 1+(GetHitDice(oTarget)/5); } + else if(nSaveType == SAVING_THROW_TYPE_ELECTRICITY ) + { + if(GetHasFeat(FEAT_HARD_AIR, oTarget)) + nDC -= 1+(GetHitDice(oTarget)/5); + else if(GetHasFeat(FEAT_HARD_ELEC, oTarget)) + nDC -= 2; + } + else if(nSaveType == SAVING_THROW_TYPE_POISON && GetHasFeat(FEAT_POISON_3, oTarget) ) + { nDC -= 3; } + else if(nSaveType == SAVING_THROW_TYPE_ACID && GetHasFeat(FEAT_HARD_EARTH, oTarget) ) + { nDC -= 1+(GetHitDice(oTarget)/5); } + + return BWSavingThrow(nSavingThrow, oTarget, nDC, nSaveType, oSaveVersus, fDelay); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/nw_s0_pwstun.ncs b/_haks/poa_exp_spells/nw_s0_pwstun.ncs new file mode 100644 index 0000000..0531a69 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_pwstun.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_pwstun.nss b/_haks/poa_exp_spells/nw_s0_pwstun.nss new file mode 100644 index 0000000..f339d54 --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_pwstun.nss @@ -0,0 +1,125 @@ +//:://///////////////////////////////////////////// +//:: [Power Word Stun] +//:: [NW_S0_PWStun.nss] +//:: Copyright (c) 2000 Bioware Corp. +//::////////////////////////////////////////////// +/* + The creature is stunned for a certain number of + rounds depending on its HP. No save. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Feb 4, 2001 +//::////////////////////////////////////////////// +//:: VFX Pass By: Preston W, On: June 22, 2001 + +/* +bugfix by Kovi 2002.07.28 +- =151HP stunned for 4d4 rounds +- >151HP sometimes stunned for indefinit duration +*/ + +//:: modified by mr_bumpkin Dec 4, 2003 for PRC stuff +#include "prc_inc_spells" + + + + + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_DIVINATION); +/* + Spellcast Hook Code + Added 2003-06-23 by GeorgZ + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + + //Declare major variables + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + object oTarget = PRCGetSpellTargetObject(); + int nHP = GetCurrentHitPoints(oTarget); + effect eStun = EffectStunned(); + effect eMind = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_DISABLED); + effect eLink = EffectLinkEffects(eMind, eStun); + effect eVis = EffectVisualEffect(VFX_IMP_STUN); + effect eWord = EffectVisualEffect(VFX_FNF_PWSTUN); + int nDuration; + int nMetaMagic = PRCGetMetaMagicFeat(); + int nMeta; + //Apply the VFX impact + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eWord, PRCGetSpellTargetLocation()); + //Determine the number rounds the creature will be stunned + if (nHP >= 201) + { + nDuration = 1; + nMeta = 1; + } + else if (nHP >= 151 && nHP <= 200) + { + nDuration = d2(1); + nMeta = 2; + } + else if (nHP >= 101 && nHP <= 150) + { + nDuration = d4(1); + nMeta = 4; + } + else if (nHP >= 51 && nHP <= 100) + { + nDuration = d4(2); + nMeta = 8; + } + else + { + nDuration = d4(4); + nMeta = 16; + } + + //Enter Metamagic conditions + if (CheckMetaMagic(nMetaMagic, METAMAGIC_MAXIMIZE)) + { + nDuration = nMeta;//Damage is at max + } + if (CheckMetaMagic(nMetaMagic, METAMAGIC_EMPOWER)) + { + nDuration = nDuration + (nDuration/2); //Damage/Healing is +50% + } + if (CheckMetaMagic(nMetaMagic, METAMAGIC_EXTEND)) + { + nDuration = nDuration * 2; //Duration is +100% + } + + if(!GetIsReactionTypeFriendly(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_POWER_WORD_STUN)); + //Make an SR check + if(!PRCDoResistSpell(OBJECT_SELF, oTarget)) + { + if (nDuration>0) + { + //Apply linked effect and the VFX impact + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration),TRUE,-1,CasterLvl); + } + } + } + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the integer used to hold the spells spell school +} + diff --git a/_haks/poa_exp_spells/nw_s0_rayfrost.ncs b/_haks/poa_exp_spells/nw_s0_rayfrost.ncs new file mode 100644 index 0000000..d19f6dc Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_rayfrost.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_rayfrost.nss b/_haks/poa_exp_spells/nw_s0_rayfrost.nss new file mode 100644 index 0000000..5dd1a2a --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_rayfrost.nss @@ -0,0 +1,99 @@ +//:://///////////////////////////////////////////// +//:: Ray of Frost +//:: [NW_S0_RayFrost.nss] +//:: Copyright (c) 2000 Bioware Corp. +//:://///////////////////////////////////////////// +/* +Evocation [Cold] +Level: Sor/Wiz 0 +Components: V, S +Casting Time: 1 standard action +Range: Close (25 ft. + 5 ft./2 levels) +Effect: Ray +Duration: Instantaneous +Saving Throw: None +Spell Resistance: Yes + +A ray of freezing air and ice projects from your +pointing finger. You must succeed on a ranged +touch attack with the ray to deal damage to a +target. The ray deals 1d3 points of cold damage. + +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: feb 4, 2001 +//::////////////////////////////////////////////// +//:: Bug Fix: Andrew Nobbs, April 17, 2003 +//:: Notes: Took out ranged attack roll. +//::////////////////////////////////////////////// +//:: modified by mr_bumpkin Dec 4, 2003 for PRC stuff +//:: added hold ray functionality - HackyKid + +#include "prc_inc_sp_tch" +#include "prc_sp_func" + +int DoSpell(object oCaster, object oTarget, int nCasterLevel) +{ + //Declare major variables + int nPenetr = nCasterLevel + SPGetPenetr(); + int nMetaMagic = PRCGetMetaMagicFeat(); + int EleDmg = ChangedElementalDamage(oCaster, DAMAGE_TYPE_COLD); + int iAttackRoll = 0;//placeholder + effect eVis = EffectVisualEffect(VFX_IMP_FROST_S); + + if(!GetIsReactionTypeFriendly(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oCaster, SPELL_RAY_OF_FROST)); + + iAttackRoll = PRCDoRangedTouchAttack(oTarget); + if(iAttackRoll > 0) + { + //Make SR Check + if(!PRCDoResistSpell(oCaster, oTarget, nPenetr)) + { + int nDamage = PRCMaximizeOrEmpower(nPenetr, 1, nMetaMagic); //alterei o 3 para nPenetr + + //Apply the VFX impact and damage effect + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + + // perform ranged touch attack and apply sneak attack if any exists + ApplyTouchAttackDamage(oCaster, oTarget, iAttackRoll, nDamage, EleDmg); + PRCBonusDamage(oTarget); + } + } + effect eRay = EffectBeam(VFX_BEAM_COLD, oCaster, BODY_NODE_HAND, !iAttackRoll); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eRay, oTarget, 1.7, FALSE); + } + return iAttackRoll; //return TRUE if spell charges should be decremented +} + +void main() +{ + if (!X2PreSpellCastCode()) return; + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + object oCaster = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nCasterLevel = PRCGetCasterLevel(oCaster); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if (GetLocalInt(oCaster, PRC_SPELL_HOLD) && GetHasFeat(FEAT_EF_HOLD_RAY, oCaster) && oCaster == oTarget) + { //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + if (oCaster != oTarget) //cant target self with this spell, only when holding charge + DoSpell(oCaster, oTarget, nCasterLevel); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/nw_s0_regen.ncs b/_haks/poa_exp_spells/nw_s0_regen.ncs new file mode 100644 index 0000000..868f4d6 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_regen.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_regen.nss b/_haks/poa_exp_spells/nw_s0_regen.nss new file mode 100644 index 0000000..5f49ece --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_regen.nss @@ -0,0 +1,78 @@ +/* + nw_s0_regen + + Grants the selected target 6 HP of regeneration + every round. + + By: Preston Watamaniuk + Created: Oct 22, 2001 + Modified: Jun 16, 2006 +*/ + +#include "prc_sp_func" + +//Implements the spell impact, put code here +// if called in many places, return TRUE if +// stored charges should be decreased +// eg. touch attack hits +// +// Variables passed may be changed if necessary +int DoSpell(object oCaster, object oTarget, int nCasterLevel, int nEvent) +{ + int nDur = PRCGetCasterLevel(OBJECT_SELF); + effect eRegen = EffectRegenerate(6 + (nDur/2), 6.0); + effect eVis = EffectVisualEffect(VFX_IMP_HEAD_NATURE); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE); + effect eLink = EffectLinkEffects(eRegen, eDur); + int nMeta = PRCGetMetaMagicFeat(); + + //Meta-Magic Checks + if (nMeta & METAMAGIC_EXTEND) + nDur *= 2; + + PRCRemoveEffectsFromSpell(oTarget, SPELL_REGENERATE); + + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_REGENERATE, FALSE)); + //Apply effects and VFX + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDur),TRUE,-1,nCasterLevel); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + + //Regrow fingers + if(GetPersistantLocalInt(OBJECT_SELF, "FINGERS_LEFT_HAND")) + { + SetPersistantLocalInt(OBJECT_SELF, "FINGERS_LEFT_HAND", 6); + SetPersistantLocalInt(OBJECT_SELF, "FINGERS_RIGHT_HAND", 6); + DeletePersistantLocalInt(OBJECT_SELF, "LEFT_HAND_USELESS"); + DeletePersistantLocalInt(OBJECT_SELF, "RIGHT_HAND_USELESS"); + } + + return TRUE; //return TRUE if spell charges should be decremented +} + +void main() +{ + object oCaster = OBJECT_SELF; + int nCasterLevel = PRCGetCasterLevel(oCaster); + PRCSetSchool(GetSpellSchool(PRCGetSpellId())); + if (!X2PreSpellCastCode()) return; + object oTarget = PRCGetSpellTargetObject(); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if(GetLocalInt(oCaster, PRC_SPELL_HOLD) && oCaster == oTarget) + { //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + DoSpell(oCaster, oTarget, nCasterLevel, nEvent); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel, nEvent)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/nw_s0_sanctuary.ncs b/_haks/poa_exp_spells/nw_s0_sanctuary.ncs new file mode 100644 index 0000000..3449411 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_sanctuary.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_sanctuary.nss b/_haks/poa_exp_spells/nw_s0_sanctuary.nss new file mode 100644 index 0000000..8dd9f0f --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_sanctuary.nss @@ -0,0 +1,109 @@ +/* + nw_s0_sanctuary + + Makes the target creature invisible to hostile + creatures unless they make a Will Save to ignore + the Sanctuary Effect + + By: Preston Watamaniuk + Created: Jan 7, 2002 + Modified: Jun 29, 2006 + + Flaming_Sword: added greater sanctuary + cleaned up +*/ + +#include "prc_sp_func" +#include "prc_inc_teleport" +#include "prc_add_spell_dc" + +//Implements the spell impact, put code here +// if called in many places, return TRUE if +// stored charges should be decreased +// eg. touch attack hits +// +// Variables passed may be changed if necessary +int DoSpell(object oCaster, object oTarget, int nCasterLevel, int nEvent) +{ + int nSpellID = PRCGetSpellId(); + int bSanc = (nSpellID == SPELL_SANCTUARY); + effect eSanc = bSanc ? EffectSanctuary((PRCGetSaveDC(oTarget,oCaster))) : EffectEthereal(); + effect eLink = EffectLinkEffects(EffectVisualEffect(VFX_DUR_SANCTUARY), eSanc); + eLink = EffectLinkEffects(eLink, EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE)); + float fDuration = bSanc ? RoundsToSeconds(1+(nCasterLevel/10)) : TurnsToSeconds(1+(nCasterLevel/10)); + int nMetaMagic = PRCGetMetaMagicFeat(); + if (CheckMetaMagic(nMetaMagic, METAMAGIC_EXTEND)) + fDuration *= 2; //Duration is +100% + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, nSpellID, FALSE)); + if(bSanc || GetCanTeleport(oTarget, GetLocation(oTarget), FALSE, TRUE)) + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, fDuration,TRUE,-1,nCasterLevel); + + return TRUE; //return TRUE if spell charges should be decremented +} + +void main() +{ + //teste cooldown + //Spell Time Lock duration (in seconds, use float values) + float iLockTimer = 240.0; + //Defining time variables + float f120togo = ( 120 - iLockTimer ) * -1; + float f60togo = ( 60 - iLockTimer ) * -1; + float f10togo = ( 10 - iLockTimer ) * -1; + + //Checking spell's caster + object oTarget = PRCGetSpellTargetObject(); + //Checking if he used GS recently + int iTimer = GetLocalInt(oTarget, "GSTimer"); + + + + +if (iTimer == 0) //teste + { + SetLocalInt(oTarget, "GSTimer", 1); + //Change: Checking target's area + object oArea = GetArea(oTarget); + + + + object oCaster = OBJECT_SELF; + int nCasterLevel = PRCGetCasterLevel(oCaster); + PRCSetSchool(GetSpellSchool(PRCGetSpellId())); + if (!X2PreSpellCastCode()) return; + //object oTarget = PRCGetSpellTargetObject(); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if(GetLocalInt(oCaster, PRC_SPELL_HOLD) && oCaster == oTarget) + { //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + DoSpell(oCaster, oTarget, nCasterLevel, nEvent); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel, nEvent)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); + + + SendMessageToAllDMs("Player "+ObjectToString(oCaster)+" has just cast Greater Sanctuary. He is currently in "+ObjectToString(oArea)+"."); + SendMessageToPC(oTarget, "Greater Sanctuary has a timer of "+FloatToString(iLockTimer, 3, 1)+" seconds. You may not use GS again for this period of time. Attempting to do so will spend the spell while producing no effect."); + DelayCommand(f120togo, SendMessageToPC(oTarget, "You have two minutes left on your Greater Sanctuary Lock Timer.")); + DelayCommand(f60togo, SendMessageToPC(oTarget, "You have one minute left on your Greater Sanctuary Lock Timer.")); + DelayCommand(f10togo, SendMessageToPC(oTarget, "You have 10 seconds left on your Greater Sanctuary Lock Timer.")); + DelayCommand(iLockTimer, SendMessageToPC(oTarget, "Greater Sanctuary is once again available for use.")); + DelayCommand(iLockTimer, SetLocalInt(oTarget, "GSTimer", 0)); + } + else + { + SendMessageToPC(oTarget, "You have used Greater Sanctuary too recently, the effect has been cancelled"); + } + +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/nw_s0_searlght.ncs b/_haks/poa_exp_spells/nw_s0_searlght.ncs new file mode 100644 index 0000000..7e04be7 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_searlght.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_searlght.nss b/_haks/poa_exp_spells/nw_s0_searlght.nss new file mode 100644 index 0000000..13fc472 --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_searlght.nss @@ -0,0 +1,139 @@ +//:://///////////////////////////////////////////// +//:: Searing Light +//:: s_SearLght.nss +//:: Copyright (c) 2000 Bioware Corp. +//::////////////////////////////////////////////// +//:: Focusing holy power like a ray of the sun, you project +//:: a blast of light from your open palm. You must succeed +//:: at a ranged touch attack to strike your target. A creature +//:: struck by this ray of light suffers 1d8 points of damage +//:: per two caster levels (maximum 5d8). Undead creatures suffer +//:: 1d6 points of damage per caster level (maximum 10d6), and +//:: undead creatures particularly vulnerable to sunlight, such +//:: as vampires, suffer 1d8 points of damage per caster level +//:: (maximum 10d8). Constructs and inanimate objects suffer only +//:: 1d6 points of damage per two caster levels (maximum 5d6). +//::////////////////////////////////////////////// +//:: Created By: Keith Soleski +//:: Created On: 02/05/2001 +//::////////////////////////////////////////////// +//:: VFX Pass By: Preston W, On: June 25, 2001 + +//:: modified by mr_bumpkin Dec 4, 2003 for PRC stuff + +//:: Added hold ray functionality - HackyKid + +#include "prc_sp_func" +#include "prc_add_spell_dc" + +//Implements the spell impact, put code here +// if called in many places, return TRUE if +// stored charges should be decreased +// eg. touch attack hits +// +// Variables passed may be changed if necessary +int DoSpell(object oCaster, object oTarget, int nCasterLevel, int nEvent) +{ + int nMetaMagic = PRCGetMetaMagicFeat(); + int nSaveDC = PRCGetSaveDC(oTarget, oCaster); + int nPenetr = nCasterLevel + SPGetPenetr(); + int nDamage; + int nMax; + effect eDam; + effect eVis = EffectVisualEffect(VFX_IMP_SUNSTRIKE); + effect eRay = EffectBeam(VFX_BEAM_HOLY, OBJECT_SELF, BODY_NODE_HAND); + + if(!GetIsReactionTypeFriendly(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_SEARING_LIGHT)); + eRay = EffectBeam(VFX_BEAM_HOLY, OBJECT_SELF, BODY_NODE_HAND); + //Make an SR Check + if (!PRCDoResistSpell(oCaster, oTarget, nPenetr)) + { + //Limit caster level + if (nCasterLevel > 20) + { + nCasterLevel = 20; + } + //Check for racial type undead + if (MyPRCGetRacialType(oTarget) == RACIAL_TYPE_UNDEAD) + { + nDamage = d8(nCasterLevel); + nMax = 8; + } + //Check for racial type construct + else if (MyPRCGetRacialType(oTarget) == RACIAL_TYPE_CONSTRUCT) + { + nCasterLevel /= 2; + if(nCasterLevel == 0) + { + nCasterLevel = 1; + } + nDamage = d6(nCasterLevel); + nMax = 6; + } + else + { + nCasterLevel = nCasterLevel/2; + if(nCasterLevel == 0) + { + nCasterLevel = 1; + } + nDamage = d8(nCasterLevel); + nMax = 8; + } + + //Make metamagic checks + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDamage = nMax * nCasterLevel; + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDamage = nDamage + (nDamage/2); + } + + //nDamage += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF, FALSE); + //Set the damage effect + eDam = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_DIVINE); + //Apply the damage effect and VFX impact + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + DelayCommand(0.5, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + //SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eRay, oTarget, 1.0); + } + } + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eRay, oTarget, 1.7,FALSE); + + return !GetIsReactionTypeFriendly(oTarget); //return TRUE if spell charges should be decremented +} + +void main() +{ + object oCaster = OBJECT_SELF; + int nCasterLevel = PRCGetCasterLevel(oCaster); + PRCSetSchool(GetSpellSchool(PRCGetSpellId())); + if (!X2PreSpellCastCode()) return; + object oTarget = PRCGetSpellTargetObject(); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if (GetLocalInt(oCaster, PRC_SPELL_HOLD) && GetHasFeat(FEAT_EF_HOLD_RAY, oCaster) && oCaster == oTarget) + { //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + if (oCaster != oTarget) //cant target self with this spell, only when holding charge + DoSpell(oCaster, oTarget, nCasterLevel, nEvent); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel, nEvent)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); +} + diff --git a/_haks/poa_exp_spells/nw_s0_shadshld.ncs b/_haks/poa_exp_spells/nw_s0_shadshld.ncs new file mode 100644 index 0000000..b10f9a7 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_shadshld.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_shadshld.nss b/_haks/poa_exp_spells/nw_s0_shadshld.nss new file mode 100644 index 0000000..f7f3c7c --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_shadshld.nss @@ -0,0 +1,81 @@ +//:://///////////////////////////////////////////// +//:: Shadow Shield +//:: NW_S0_ShadShld.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Grants the caster +5 AC and 10 / +3 Damage + Reduction and immunity to death effects + and negative energy damage for 3 Turns per level. + Makes the caster immune Necromancy Spells + +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 22, 2001 +//::////////////////////////////////////////////// + +//:: modified by mr_bumpkin Dec 4, 2003 +#include "prc_inc_spells" + + + + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_ILLUSION); +/* + Spellcast Hook Code + Added 2003-06-23 by GeorgZ + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + + //Declare major variables + object oTarget = PRCGetSpellTargetObject(); + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + int nDuration = CasterLvl; + int nMetaMagic = PRCGetMetaMagicFeat(); + //Do metamagic extend check + if (CheckMetaMagic(nMetaMagic, METAMAGIC_EXTEND)) + { + nDuration *= 2; //Duration is +100% + } + effect eStone = EffectDamageReduction(CasterLvl, DAMAGE_POWER_PLUS_THREE); + effect eAC = EffectACIncrease(5, AC_NATURAL_BONUS); + effect eVis = EffectVisualEffect(VFX_IMP_DEATH_WARD); + effect eShadow = EffectVisualEffect(VFX_DUR_PROT_SHADOW_ARMOR); + effect eSpell = EffectSpellLevelAbsorption(9, 0, SPELL_SCHOOL_NECROMANCY); + effect eImmDeath = EffectImmunity(IMMUNITY_TYPE_DEATH); + effect eImmNeg = EffectDamageImmunityIncrease(DAMAGE_TYPE_NEGATIVE, 100); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE); + + //Link major effects + effect eLink = EffectLinkEffects(eStone, eAC); + eLink = EffectLinkEffects(eLink, eVis); + eLink = EffectLinkEffects(eLink, eShadow); + eLink = EffectLinkEffects(eLink, eImmDeath); + eLink = EffectLinkEffects(eLink, eImmNeg); + eLink = EffectLinkEffects(eLink, eDur); + eLink = EffectLinkEffects(eLink, eSpell); + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_SHADOW_SHIELD, FALSE)); + //Apply linked effect + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, TurnsToSeconds(nDuration),TRUE,-1,CasterLvl); + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the integer used to hold the spells spell school +} + diff --git a/_haks/poa_exp_spells/nw_s0_sleep.ncs b/_haks/poa_exp_spells/nw_s0_sleep.ncs new file mode 100644 index 0000000..90b9463 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_sleep.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_sleep.nss b/_haks/poa_exp_spells/nw_s0_sleep.nss new file mode 100644 index 0000000..221f373 --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_sleep.nss @@ -0,0 +1,172 @@ +//:://///////////////////////////////////////////// +//:: Sleep +//:: NW_S0_Sleep +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Goes through the area and sleeps the lowest 4+d4 + HD of creatures first. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: March 7 , 2001 +//::////////////////////////////////////////////// +//:: Last Updated By: Preston Watamaniuk, On: April 11, 2001 +//:: VFX Pass By: Preston W, On: June 25, 2001 + +//:: modified by mr_bumpkin Dec 4, 2003 +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_ENCHANTMENT); +/* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + + //Declare major variables + object oTarget; + object oLowest; + effect eImpact = EffectVisualEffect(VFX_FNF_LOS_NORMAL_20); + effect eSleep = EffectSleep(); + effect eMind = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_NEGATIVE); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eVis = EffectVisualEffect(VFX_IMP_SLEEP); + + effect eLink = EffectLinkEffects(eSleep, eMind); + eLink = EffectLinkEffects(eLink, eDur); + + // * Moved the linking for the ZZZZs into the later code + // * so that they won't appear if creature immune + + int bContinueLoop; + int nHD = 1 + d20(); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nCurrentHD; + int bAlreadyAffected; + int nMax = 21;// maximun hd creature affected + int nLow; + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + + + + int nDuration = CasterLvl; + int nScaledDuration; + nDuration = 3 + nDuration; + int nPenetr = CasterLvl + SPGetPenetr(); + + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eImpact, PRCGetSpellTargetLocation()); + string sSpellLocal = "BIOWARE_SPELL_LOCAL_SLEEP_" + ObjectToString(OBJECT_SELF); + //Enter Metamagic conditions + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nHD = 21;//Damage is at max + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nHD = nHD + (nHD/2); //Damage/Healing is +50% + } + if ((nMetaMagic & METAMAGIC_EXTEND)) + { + nDuration = nDuration *2; //Duration is +100% + } + nDuration += 2; + //Get the first target in the spell area + oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, PRCGetSpellTargetLocation()); + //If no valid targets exists ignore the loop + if (GetIsObjectValid(oTarget)) + { + bContinueLoop = TRUE; + } + // The above checks to see if there is at least one valid target. + while ((nHD > 0) && (bContinueLoop)) + { + nLow = nMax; + bContinueLoop = FALSE; + //Get the first creature in the spell area + oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, PRCGetSpellTargetLocation()); + while (GetIsObjectValid(oTarget)) + { + //Make faction check to ignore allies + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF) + && MyPRCGetRacialType(oTarget) != RACIAL_TYPE_CONSTRUCT + && MyPRCGetRacialType(oTarget) != RACIAL_TYPE_UNDEAD) + { + //Get the local variable off the target and determined if the spell has already checked them. + bAlreadyAffected = GetLocalInt(oTarget, sSpellLocal); + if (!bAlreadyAffected) + { + //Get the current HD of the target creature + nCurrentHD = GetHitDice(oTarget); + //Check to see if the HD are lower than the current Lowest HD stored and that the + //HD of the monster are lower than the number of HD left to use up. + if(nCurrentHD < nLow + && nCurrentHD <= nHD + && (nCurrentHD < 2 || GetPRCSwitch(PRC_SLEEP_NO_HD_CAP))) + { + nLow = nCurrentHD; + oLowest = oTarget; + bContinueLoop = TRUE; + } + } + } + //Get the next target in the shape + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, PRCGetSpellTargetLocation()); + } + //Check to see if oLowest returned a valid object + if(oLowest != OBJECT_INVALID) + { + //Fire cast spell at event for the specified target + SignalEvent(oLowest, EventSpellCastAt(OBJECT_SELF, SPELL_SLEEP)); + //Make SR check + if (!PRCDoResistSpell(OBJECT_SELF, oLowest,nPenetr)) + { + int nDC = PRCGetSaveDC(oTarget,OBJECT_SELF); + //Make Fort save + if(!PRCMySavingThrow(SAVING_THROW_WILL, oLowest, (nDC), SAVING_THROW_TYPE_MIND_SPELLS)) + { + //SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oLowest); + if (GetIsImmune(oLowest, IMMUNITY_TYPE_SLEEP) == FALSE) + { + effect eLink2 = EffectLinkEffects(eLink, eVis); + nScaledDuration = PRCGetScaledDuration(nDuration, oLowest); + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink2, oLowest, RoundsToSeconds(nScaledDuration)); + } + else + // * even though I am immune apply just the sleep effect for the immunity message + { + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eSleep, oLowest, RoundsToSeconds(nDuration),TRUE,-1,CasterLvl); + } + + } + } + } + //Set a local int to make sure the creature is not used twice in the pass. Destroy that variable in + //.3 seconds to remove it from the creature + SetLocalInt(oLowest, sSpellLocal, TRUE); + DelayCommand(0.5, SetLocalInt(oLowest, sSpellLocal, FALSE)); + DelayCommand(0.5, DeleteLocalInt(oLowest, sSpellLocal)); + //Remove the HD of the creature from the total + nHD = nHD - GetHitDice(oLowest); + oLowest = OBJECT_INVALID; + } + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the integer used to hold the spells spell school +} diff --git a/_haks/poa_exp_spells/nw_s0_sndburst.ncs b/_haks/poa_exp_spells/nw_s0_sndburst.ncs new file mode 100644 index 0000000..5c1f40e Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_sndburst.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_sndburst.nss b/_haks/poa_exp_spells/nw_s0_sndburst.nss new file mode 100644 index 0000000..61c04d3 --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_sndburst.nss @@ -0,0 +1,104 @@ +//:://///////////////////////////////////////////// +//:: [Sound Burst] +//:: [NW_S0_SndBurst.nss] +//:: Copyright (c) 2000 Bioware Corp. +//::////////////////////////////////////////////// +/* +Evocation [Sonic] +Level: Brd 2, Clr 2 +Components: V, S, F/DF +Casting Time: 1 standard action +Range: Close (25 ft. + 5 ft./2 levels) +Area: 10-ft.-radius spread +Duration: Instantaneous +Saving Throw: Fortitude partial +Spell Resistance: Yes + +You blast an area with a tremendous cacophony. +Every creature in the area takes 1d8 points of +sonic damage and must succeed on a Fortitude save +to avoid being stunned for 1 round. + +Creatures that cannot hear are not stunned but +are still damaged. + +Arcane Focus +A musical instrument. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Jan 31, 2001 +//::////////////////////////////////////////////// +//:: Last Updated By: Georg Z, Oct. 2003 +//:: modified by mr_bumpkin Dec 4, 2003 + +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + //Declare major variables + object oCaster = OBJECT_SELF; + location lLoc = PRCGetSpellTargetLocation(); + int nCasterLevel = PRCGetCasterLevel(oCaster); + int nPenetr = nCasterLevel + SPGetPenetr(); + int nMetaMagic = PRCGetMetaMagicFeat(); + int EleDmg = ChangedElementalDamage(oCaster, DAMAGE_TYPE_SONIC); + int nSaveType = ChangedSaveType(EleDmg); + + effect eFNF = EffectVisualEffect(VFX_FNF_SOUND_BURST); + effect eVis = EffectVisualEffect(VFX_IMP_SONIC); + + effect eStun = EffectStunned(); + effect eMind = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_NEGATIVE); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eLink = EffectLinkEffects(eStun, eMind); + eLink = EffectLinkEffects(eLink, eDur); + + //Apply the FNF to the spell location + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eFNF, lLoc); + + //Get the first target in the spell area + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_MEDIUM, lLoc); + while(GetIsObjectValid(oTarget)) + { + if(spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, oCaster)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oCaster, SPELL_SOUND_BURST)); + //Make a SR check + if(!PRCDoResistSpell(oCaster, oTarget, nPenetr)) + { + // Should not work on creatures already deafened or silenced + if(!PRCGetHasEffect(EFFECT_TYPE_DEAF, oTarget) && !PRCGetHasEffect(EFFECT_TYPE_SILENCE, oTarget)) + { + int nDC = PRCGetSaveDC(oTarget, oCaster); + //Make a Fortitude roll to avoid being stunned + if(!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, nSaveType)) + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(2), TRUE, SPELL_SOUND_BURST, nCasterLevel); + } + + //Roll damage + int nDamage = d8() +(nPenetr/4) ; + //Make meta magic checks + if(nMetaMagic & METAMAGIC_MAXIMIZE) + nDamage = 8 +(nPenetr/4) ; + if(nMetaMagic & METAMAGIC_EMPOWER) + nDamage += nDamage / 2; + + //Set the damage effect + effect eDam = PRCEffectDamage(oTarget, nDamage, EleDmg); + //Apply the VFX impact and damage effect + DelayCommand(0.01, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget)); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + } + //Get the next target in the spell area + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_MEDIUM, lLoc); + } + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/nw_s0_spmantle.ncs b/_haks/poa_exp_spells/nw_s0_spmantle.ncs new file mode 100644 index 0000000..c0027d5 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_spmantle.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_spmantle.nss b/_haks/poa_exp_spells/nw_s0_spmantle.nss new file mode 100644 index 0000000..9212a93 --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_spmantle.nss @@ -0,0 +1,78 @@ +//:://///////////////////////////////////////////// +//:: Spell Turning +//:: NW_S0_SpTurn.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Absorbes 1d8 + 8 spell levels before disapearing. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Jan 7, 2002 +//::////////////////////////////////////////////// + +//:: modified by mr_bumpkin Dec 4, 2003 +#include "prc_inc_spells" + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_ABJURATION); +/* + Spellcast Hook Code + Added 2003-06-23 by GeorgZ + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + + //Declare major variables + object oTarget = PRCGetSpellTargetObject(); + effect eVis = EffectVisualEffect(VFX_DUR_SPELLTURNING); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE); + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + int nDuration = CasterLvl; + int nAbsorb = d8() + 8; + int nMetaMagic = PRCGetMetaMagicFeat(); + + PRCRemoveEffectsFromSpell(oTarget, GetSpellId()); + PRCRemoveEffectsFromSpell(oTarget, SPELL_LESSER_SPELL_MANTLE); + PRCRemoveEffectsFromSpell(oTarget, SPELL_GREATER_SPELL_MANTLE); + + //Enter Metamagic conditions + if (CheckMetaMagic(nMetaMagic, METAMAGIC_MAXIMIZE)) + { + nAbsorb = 16;//Damage is at max + } + if (CheckMetaMagic(nMetaMagic, METAMAGIC_EMPOWER)) + { + nAbsorb = nAbsorb + (nAbsorb/2); //Damage/Healing is +50% + } + if (CheckMetaMagic(nMetaMagic, METAMAGIC_EXTEND)) + { + nDuration = nDuration *2; //Duration is +100% + } + //Link Effects + effect eAbsob = EffectSpellLevelAbsorption(9, nAbsorb); + effect eLink = EffectLinkEffects(eVis, eAbsob); + eLink = EffectLinkEffects(eLink, eDur); + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_SPELL_MANTLE, FALSE)); + + //Apply the VFX impact and effects + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration),TRUE,-1,CasterLvl); + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the integer used to hold the spells spell school +} + + diff --git a/_haks/poa_exp_spells/nw_s0_stormvenc.ncs b/_haks/poa_exp_spells/nw_s0_stormvenc.ncs new file mode 100644 index 0000000..e9d2f21 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_stormvenc.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_stormvenc.nss b/_haks/poa_exp_spells/nw_s0_stormvenc.nss new file mode 100644 index 0000000..2a43611 --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_stormvenc.nss @@ -0,0 +1,100 @@ +//:://///////////////////////////////////////////// +//:: Storm of Vengeance: Heartbeat +//:: NW_S0_StormVenC.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Creates an AOE that decimates the enemies of + the cleric over a 30ft radius around the caster +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Nov 8, 2001 +//::////////////////////////////////////////////// + +//:: modified by mr_bumpkin Dec 4, 2003 +//:: Elemental Damage note: Only made the lightning aspect variable, the acid aspect is always acid. +//:: the Lightning part seemed like the better of the 2 to go with because it accounts for more +//:: of the total damage than the acid does. + +#include "prc_inc_spells" +#include "prc_add_spell_dc" + + + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_CONJURATION); + + //Declare major variables + effect eStun = EffectStunned(); + effect eVisAcid = EffectVisualEffect(VFX_IMP_ACID_S); + effect eVisElec = EffectVisualEffect(VFX_IMP_LIGHTNING_M); + effect eVisStun = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_DISABLED); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eLink = EffectLinkEffects(eStun, eVisStun); + eLink = EffectLinkEffects(eLink, eDur); + float fDelay; + + int CasterLvl = PRCGetCasterLevel(GetAreaOfEffectCreator()); + int nPenetr = SPGetPenetrAOE(GetAreaOfEffectCreator(),CasterLvl); + + + + //Get first target in spell area + object oTarget = GetFirstInPersistentObject(OBJECT_SELF,OBJECT_TYPE_CREATURE); + while(GetIsObjectValid(oTarget)) + { + int nDamage = d6(CasterLvl) + ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF, FALSE); + effect eElec = PRCEffectDamage(oTarget, nDamage, ChangedElementalDamage(GetAreaOfEffectCreator(), DAMAGE_TYPE_ELECTRICAL)); + + if (spellsIsTarget(oTarget, SPELL_TARGET_SELECTIVEHOSTILE, GetAreaOfEffectCreator())) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(GetAreaOfEffectCreator(), SPELL_STORM_OF_VENGEANCE)); + //Make an SR Check + fDelay = PRCGetRandomDelay(0.5, 2.0); + if(PRCDoResistSpell(GetAreaOfEffectCreator(), oTarget,nPenetr, fDelay) == 0) + { + int nDC = PRCGetSaveDC(oTarget,GetAreaOfEffectCreator()); + int nAcid = d6(CasterLvl/2); + // Acid Sheath adds +1 damage per die to acid descriptor spells + if (GetHasDescriptor(SPELL_STORM_OF_VENGEANCE, DESCRIPTOR_ACID) && GetHasSpellEffect(SPELL_MESTILS_ACID_SHEATH, GetAreaOfEffectCreator())) + nAcid += 3; + effect eAcid = PRCEffectDamage(oTarget, nAcid, DAMAGE_TYPE_ACID); + + //Make a saving throw check + // * if the saving throw is made they still suffer acid damage. + // * if they fail the saving throw, they suffer Electrical damage too + if(PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, (nDC), SAVING_THROW_TYPE_ELECTRICITY, GetAreaOfEffectCreator(), fDelay)) + { + //Apply the VFX impact and effects + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVisAcid, oTarget)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eAcid, oTarget)); + if (d2()==1) + { + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVisElec, oTarget)); + } + } + else + { + //Apply the VFX impact and effects + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVisAcid, oTarget)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eAcid, oTarget)); + //Apply the VFX impact and effects + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVisElec, oTarget)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eElec, oTarget)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(2))); + } + } + } + //Get next target in spell area + oTarget = GetNextInPersistentObject(OBJECT_SELF,OBJECT_TYPE_CREATURE); + } + + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the integer used to hold the spells spell school +} diff --git a/_haks/poa_exp_spells/nw_s0_sunbeam.ncs b/_haks/poa_exp_spells/nw_s0_sunbeam.ncs new file mode 100644 index 0000000..1b499a0 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_sunbeam.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_sunbeam.nss b/_haks/poa_exp_spells/nw_s0_sunbeam.nss new file mode 100644 index 0000000..99a459b --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_sunbeam.nss @@ -0,0 +1,147 @@ +//:://///////////////////////////////////////////// +//:: Sunbeam +//:: s_Sunbeam.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +//:: All creatures in the beam are struck blind and suffer 4d6 points of damage. (A successful +//:: Reflex save negates the blindness and reduces the damage by half.) Creatures to whom sunlight +//:: is harmful or unnatural suffer double damage. +//:: +//:: Undead creatures caught within the ray are dealt 1d6 points of damage per caster level +//:: (maximum 20d6), or half damage if a Reflex save is successful. In addition, the ray results in +//:: the total destruction of undead creatures specifically affected by sunlight if they fail their saves. +//::////////////////////////////////////////////// +//:: Created By: Keith Soleski +//:: Created On: Feb 22, 2001 +//::////////////////////////////////////////////// +//:: Last Modified By: Keith Soleski, On: March 21, 2001 +//:: VFX Pass By: Preston W, On: June 25, 2001 + +//:: modified by mr_bumpkin Dec 4, 2003 +#include "prc_inc_spells" +#include "prc_add_spell_dc" + + + + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION); +/* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + + //Declare major variables + int nMetaMagic = PRCGetMetaMagicFeat(); + effect eVis = EffectVisualEffect(VFX_IMP_DEATH); + effect eVis2 = EffectVisualEffect(VFX_IMP_SUNSTRIKE); + effect eStrike = EffectVisualEffect(VFX_FNF_SUNBEAM); + effect eDam; + effect eBlind = EffectBlindness(); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eLink = EffectLinkEffects(eBlind, eDur); + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + int nDamage; + int nOrgDam; + int nMax; + float fDelay; + int nBlindLength = 3; + + + int nPenetr = CasterLvl + SPGetPenetr(); + + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eStrike, PRCGetSpellTargetLocation()); + //Get the first target in the spell area + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, PRCGetSpellTargetLocation()); + while(GetIsObjectValid(oTarget)) + { + + int nCasterLevel= CasterLvl; + //Limit caster level + if (nCasterLevel > 60) + { + nCasterLevel = 60; + } + + // Make a faction check + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF)) + { + fDelay = PRCGetRandomDelay(1.0, 2.0); + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_SUNBEAM)); + //Make an SR check + if ( ! PRCDoResistSpell(OBJECT_SELF, oTarget,nPenetr, 1.0)) + { + //Check if the target is an undead + if (MyPRCGetRacialType(oTarget) == RACIAL_TYPE_UNDEAD) + { + //Roll damage and save + nDamage = d6(nCasterLevel); + nMax = 360; + } + else + { + //Roll damage and save + nDamage = d6(nCasterLevel/3); + nOrgDam = nDamage; + nMax = 160; + nCasterLevel = 3; + //Get the adjusted damage due to Reflex Save, Evasion or Improved Evasion + } + + //Do metamagic checks + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDamage = nMax * nCasterLevel; + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDamage = nDamage + (nDamage/2); + } + + //nDamage += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF, FALSE); + int nDC = PRCGetSaveDC(oTarget,OBJECT_SELF); + + //Check that a reflex save was made. + if(PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, (nDC), SAVING_THROW_TYPE_DIVINE, OBJECT_SELF, 1.0) == 0) + { + DelayCommand(1.0, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nBlindLength),TRUE,-1,CasterLvl)); + } + else + { + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, 0, SAVING_THROW_TYPE_DIVINE); + } + //Set damage effect + eDam = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_DIVINE); + if(nDamage > 0) + { + //Apply the damage effect and VFX impact + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis2, oTarget)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget)); + PRCBonusDamage(oTarget); + } + } + } + //Get the next target in the spell area + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, PRCGetSpellTargetLocation()); + } + + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the integer used to hold the spells spell school +} diff --git a/_haks/poa_exp_spells/nw_s0_vamptch.ncs b/_haks/poa_exp_spells/nw_s0_vamptch.ncs new file mode 100644 index 0000000..7c0f8f8 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_vamptch.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_vamptch.nss b/_haks/poa_exp_spells/nw_s0_vamptch.nss new file mode 100644 index 0000000..bcca642 --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_vamptch.nss @@ -0,0 +1,127 @@ +/* + nw_s0_vamptch + + drain 1d6 + HP per 2 caster levels from the target. + + By: Preston Watamaniuk + Created: Oct 29, 2001 + Modified: Jun 28, 2006 + + Cleaned up +*/ + +//------------------------------------------------------------------------------ +// GZ: gets rids of temporary hit points so that they will not stack +//------------------------------------------------------------------------------ +void PRCRemoveTempHitPoints() +{ + effect eProtection; + int nCnt = 0; + + eProtection = GetFirstEffect(OBJECT_SELF); + while (GetIsEffectValid(eProtection)) + { + if(GetEffectType(eProtection) == EFFECT_TYPE_TEMPORARY_HITPOINTS) + RemoveEffect(OBJECT_SELF, eProtection); + eProtection = GetNextEffect(OBJECT_SELF); + } +} + +#include "prc_sp_func" +#include "prc_inc_sp_tch" + +//Implements the spell impact, put code here +// if called in many places, return TRUE if +// stored charges should be decreased +// eg. touch attack hits +// +// Variables passed may be changed if necessary +int DoSpell(object oCaster, object oTarget, int nCasterLevel, int nEvent) +{ + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDDice = nCasterLevel / 2; + if ((nDDice) == 0) + nDDice = 1; + else if (nDDice > 20) + nDDice = 20; + + int nDamage = PRCMaximizeOrEmpower(6,nDDice,nMetaMagic); + int nDuration = nCasterLevel/2; + + if ((nMetaMagic & METAMAGIC_EXTEND)) + nDuration *= 2; + + int nMax = GetCurrentHitPoints(oTarget) + 10; + if(nMax < nDamage) + nDamage = nMax; + + + effect eHeal = EffectTemporaryHitpoints(nDamage); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE); + effect eLink = EffectLinkEffects(eHeal, eDur); + + //effect eDamage = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_NEGATIVE); + effect eVis = EffectVisualEffect(VFX_IMP_NEGATIVE_ENERGY); + effect eVisHeal = EffectVisualEffect(VFX_IMP_HEALING_M); + + int nPenetr = nCasterLevel + SPGetPenetr(); + int iAttackRoll; + if(GetObjectType(oTarget) == OBJECT_TYPE_CREATURE) + { + if(!GetIsReactionTypeFriendly(oTarget) && + MyPRCGetRacialType(oTarget) != RACIAL_TYPE_UNDEAD && + !(GetHasFeat(FEAT_TOMB_TAINTED_SOUL, oTarget) && GetAlignmentGoodEvil(oTarget) != ALIGNMENT_GOOD) && + MyPRCGetRacialType(oTarget) != RACIAL_TYPE_CONSTRUCT && + !GetHasSpellEffect(SPELL_NEGATIVE_ENERGY_PROTECTION, oTarget)) + { + SignalEvent(oCaster, EventSpellCastAt(OBJECT_SELF, SPELL_VAMPIRIC_TOUCH, FALSE)); + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_VAMPIRIC_TOUCH, TRUE)); + + iAttackRoll = PRCDoMeleeTouchAttack(oTarget); + + if (iAttackRoll > 0) + { + if(!PRCDoResistSpell(oCaster, oTarget, nPenetr)) + { + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + ApplyTouchAttackDamage(oCaster, oTarget, iAttackRoll, nDamage, DAMAGE_TYPE_NEGATIVE); + PRCBonusDamage(oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVisHeal, oCaster); + PRCRemoveTempHitPoints(); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oCaster, HoursToSeconds(nDuration),TRUE,-1,nCasterLevel); + } + } + } + } + + return iAttackRoll; //return TRUE if spell charges should be decremented +} + +void main() +{ + object oCaster = OBJECT_SELF; + int nCasterLevel = PRCGetCasterLevel(oCaster); + PRCSetSchool(GetSpellSchool(PRCGetSpellId())); + if (!X2PreSpellCastCode()) return; + object oTarget = PRCGetSpellTargetObject(); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if(GetLocalInt(oCaster, PRC_SPELL_HOLD) && oCaster == oTarget) + { //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + DoSpell(oCaster, oTarget, nCasterLevel, nEvent); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel, nEvent)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/nw_s0_virtue.ncs b/_haks/poa_exp_spells/nw_s0_virtue.ncs new file mode 100644 index 0000000..b275e0f Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_virtue.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_virtue.nss b/_haks/poa_exp_spells/nw_s0_virtue.nss new file mode 100644 index 0000000..18eb47c --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_virtue.nss @@ -0,0 +1,60 @@ +/* + nw_s0_virtue + + Target gains 1 temporary HP + + By: Preston Watamaniuk + Created: Sept 6, 2001 + Modified: Jun 28, 2006 + + Cleaned up +*/ + +#include "prc_sp_func" + +//Implements the spell impact, put code here +// if called in many places, return TRUE if +// stored charges should be decreased +// eg. touch attack hits +// +// Variables passed may be changed if necessary +int DoSpell(object oCaster, object oTarget, int nCasterLevel, int nEvent) +{ + int nDuration = nCasterLevel; + int nMetaMagic = PRCGetMetaMagicFeat(); + effect eVis = EffectVisualEffect(VFX_IMP_HOLY_AID); + effect eLink = EffectLinkEffects(EffectTemporaryHitpoints(nCasterLevel), EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE)); + if (CheckMetaMagic(nMetaMagic, METAMAGIC_EXTEND)) nDuration *= 2; //Duration is +100% + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_VIRTUE, FALSE)); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, TurnsToSeconds(nDuration),TRUE,-1,nCasterLevel); + return TRUE; //return TRUE if spell charges should be decremented +} + +void main() +{ + object oCaster = OBJECT_SELF; + int nCasterLevel = PRCGetCasterLevel(oCaster); + PRCSetSchool(GetSpellSchool(PRCGetSpellId())); + if (!X2PreSpellCastCode()) return; + object oTarget = PRCGetSpellTargetObject(); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if(GetLocalInt(oCaster, PRC_SPELL_HOLD) && oCaster == oTarget) + { //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + DoSpell(oCaster, oTarget, nCasterLevel, nEvent); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel, nEvent)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/nw_s0_wallfirea.ncs b/_haks/poa_exp_spells/nw_s0_wallfirea.ncs new file mode 100644 index 0000000..a6b2140 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_wallfirea.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_wallfirea.nss b/_haks/poa_exp_spells/nw_s0_wallfirea.nss new file mode 100644 index 0000000..6fa2385 --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_wallfirea.nss @@ -0,0 +1,71 @@ +//:://///////////////////////////////////////////// +//:: Wall of Fire: On Enter +//:: NW_S0_WallFireA.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Person within the AoE take 4d6 fire damage + per round. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 17, 2001 +//::////////////////////////////////////////////// + +//:: modified by mr_bumpkin Dec 4, 2003 +#include "prc_inc_spells" +#include "prc_add_spell_dc" + + + +void main() +{ + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION); + + //Declare major variables + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDamage; + effect eDam; + object oTarget; + //Declare and assign personal impact visual effect. + effect eVis = EffectVisualEffect(VFX_IMP_FLAME_M); + int nPenetr = SPGetPenetrAOE(GetAreaOfEffectCreator()); + int CasterLvl = PRCGetCasterLevel(GetAreaOfEffectCreator()); + //Capture the first target object in the shape. + oTarget = GetEnteringObject(); + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, GetAreaOfEffectCreator())) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_WALL_OF_FIRE)); + //Make SR check, and appropriate saving throw(s). + if(!PRCDoResistSpell(GetAreaOfEffectCreator(), oTarget,nPenetr)) + { + //Roll damage. + nDamage = d6(4) + (CasterLvl/2); + //Enter Metamagic conditions + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDamage = 24 + (CasterLvl/2);//Damage is at max + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDamage = nDamage + (nDamage/2); //Damage/Healing is +50% + } + //nDamage += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF, FALSE); + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, (PRCGetSaveDC(oTarget,GetAreaOfEffectCreator())), SAVING_THROW_TYPE_FIRE); + if(nDamage > 0) + { + // Apply effects to the currently selected target. + eDam = PRCEffectDamage(oTarget, nDamage, GetLocalInt(OBJECT_SELF, "Wall_Fire_Damage")); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + PRCBonusDamage(oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + } + } + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the integer used to hold the spells spell school +} diff --git a/_haks/poa_exp_spells/nw_s0_wallfirec.ncs b/_haks/poa_exp_spells/nw_s0_wallfirec.ncs new file mode 100644 index 0000000..5c4bdd3 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_wallfirec.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_wallfirec.nss b/_haks/poa_exp_spells/nw_s0_wallfirec.nss new file mode 100644 index 0000000..339c63d --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_wallfirec.nss @@ -0,0 +1,98 @@ +//:://///////////////////////////////////////////// +//:: Wall of Fire: Heartbeat +//:: NW_S0_WallFireA.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Person within the AoE take 4d6 fire damage + per round. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: May 17, 2001 +//::////////////////////////////////////////////// + +//:: modified by mr_bumpkin Dec 4, 2003 +#include "prc_inc_spells" +#include "prc_add_spell_dc" + + + +void main() +{ + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION); + + //Declare major variables + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDamage; + effect eDam; + object oTarget; + //Declare and assign personal impact visual effect. + effect eVis = EffectVisualEffect(VFX_IMP_FLAME_M); + //Capture the first target object in the shape. + + //-------------------------------------------------------------------------- + // GZ 2003-Oct-15 + // When the caster is no longer there, all functions calling + // GetAreaOfEffectCreator will fail. Its better to remove the barrier then + //-------------------------------------------------------------------------- + if (!GetIsObjectValid(GetAreaOfEffectCreator())) + { + DestroyObject(OBJECT_SELF); + return; + } + + int CasterLvl = PRCGetCasterLevel(GetAreaOfEffectCreator()); + + int nPenetr = SPGetPenetrAOE(GetAreaOfEffectCreator(),CasterLvl); + int EleDmg = GetLocalInt(OBJECT_SELF, "Wall_Fire_Damage"); + + oTarget = GetFirstInPersistentObject(OBJECT_SELF,OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + //Declare the spell shape, size and the location. + while(GetIsObjectValid(oTarget)) + { + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, GetAreaOfEffectCreator())) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_WALL_OF_FIRE)); + //Make SR check, and appropriate saving throw(s). + if(!PRCDoResistSpell(GetAreaOfEffectCreator(), oTarget,nPenetr)) + { + //Roll damage. + nDamage = d6(4) + (CasterLvl/2); + //Enter Metamagic conditions + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDamage = 24 + (CasterLvl/2);//Damage is at max + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDamage = nDamage + (nDamage/2); //Damage/Healing is +50% + } + + //nDamage += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF, FALSE); + + int nDC = PRCGetSaveDC(oTarget,GetAreaOfEffectCreator()); + + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, (nDC), SAVING_THROW_TYPE_FIRE); + if(nDamage > 0) + { + // Apply effects to the currently selected target. + eDam = PRCEffectDamage(oTarget, nDamage, EleDmg); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + PRCBonusDamage(oTarget); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eVis, oTarget, 1.0,FALSE); + } + } + } + //Select the next target within the spell shape. + oTarget = GetNextInPersistentObject(OBJECT_SELF,OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + } + + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the integer used to hold the spells spell school +} diff --git a/_haks/poa_exp_spells/nw_s0_weird.ncs b/_haks/poa_exp_spells/nw_s0_weird.ncs new file mode 100644 index 0000000..3463727 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_weird.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_weird.nss b/_haks/poa_exp_spells/nw_s0_weird.nss new file mode 100644 index 0000000..766324c --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_weird.nss @@ -0,0 +1,156 @@ +//:://///////////////////////////////////////////// +//:: Weird +//:: NW_S0_Weird +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + All enemies in LOS of the spell must make 2 saves or die. + Even IF the fortitude save is succesful, they will still take + 3d6 damage. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: DEc 14 , 2001 +//::////////////////////////////////////////////// +//:: Last Updated By: Preston Watamaniuk, On: April 10, 2001 +//:: VFX Pass By: Preston W, On: June 27, 2001 + +//:: modified by mr_bumpkin Dec 4, 2003 +#include "prc_inc_spells" +#include "prc_add_spell_dc" + + + + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_ILLUSION); +/* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + + //Declare major variables + object oTarget; + effect eDam; + effect eVis = EffectVisualEffect(VFX_IMP_SONIC); + effect eVis2 = EffectVisualEffect(VFX_IMP_DEATH); + effect eWeird = EffectVisualEffect(VFX_FNF_WEIRD); + effect eAbyss = EffectVisualEffect(VFX_DUR_ANTI_LIGHT_10); + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + + + + + int nCasterLvl =CasterLvl; + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDamage; + float fDelay; + + CasterLvl +=SPGetPenetr(); + + //Apply the FNF VFX impact + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eWeird, PRCGetSpellTargetLocation()); + //Get the first target in the spell area + oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, PRCGetSpellTargetLocation(), TRUE); + while (GetIsObjectValid(oTarget)) + { + //Make a faction check + if (spellsIsTarget(oTarget, SPELL_TARGET_SELECTIVEHOSTILE, OBJECT_SELF)) + { + fDelay = PRCGetRandomDelay(3.0, 4.0); + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_WEIRD)); + //Make an SR Check + if(!PRCDoResistSpell(OBJECT_SELF, oTarget,CasterLvl, fDelay)) + { + if ( !GetIsImmune(oTarget, IMMUNITY_TYPE_MIND_SPELLS,OBJECT_SELF) && + !GetIsImmune(oTarget, IMMUNITY_TYPE_FEAR,OBJECT_SELF)) + { + if(GetHitDice(oTarget) >= 4) + { + int nDC =PRCGetSaveDC(oTarget,OBJECT_SELF); + //Make a Will save against mind-affecting + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, (nDC), SAVING_THROW_TYPE_MIND_SPELLS, OBJECT_SELF, fDelay)) + { + //Make a fortitude save against death + if(PRCMySavingThrow(SAVING_THROW_FORT, oTarget, (nDC), SAVING_THROW_TYPE_DEATH, OBJECT_SELF, fDelay)) + { + if (GetHasMettle(oTarget, SAVING_THROW_FORT)) + // This script does nothing if it has Mettle, bail + return; + + //Roll damage + nDamage = d6(3) + nCasterLvl; + //Make metamagic check + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDamage = 18 + nCasterLvl; + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDamage = FloatToInt( IntToFloat(nDamage) * 1.5 ); + } + + //nDamage += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF, FALSE); + + //Set damage effect + eDam = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_MAGICAL); + //Apply VFX Impact and damage effect + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget)); + } + else + { + // * I failed BOTH saving throws. Now I die. + + DeathlessFrenzyCheck(oTarget); + + //Apply VFX impact and death effect + //DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis2, oTarget)); + effect eDeath = EffectDeath(); + if(!GetPRCSwitch(PRC_165_DEATH_IMMUNITY)) + eDeath = SupernaturalEffect(eDeath); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDeath, oTarget)); + } + } // Will save + } + else + { + // * I have less than 4HD, I die. + + DeathlessFrenzyCheck(oTarget); + effect eDeath = EffectDeath(); + if(!GetPRCSwitch(PRC_165_DEATH_IMMUNITY)) + eDeath = SupernaturalEffect(eDeath); + + //Apply VFX impact and death effect + //DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis2, oTarget)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDeath, oTarget)); + } + } + } + } + //Get next target in spell area + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, PRCGetSpellTargetLocation(), TRUE); + } + + + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the integer used to hold the spells spell school +} diff --git a/_haks/poa_exp_spells/nw_s0_wordfaith.ncs b/_haks/poa_exp_spells/nw_s0_wordfaith.ncs new file mode 100644 index 0000000..3f623d4 Binary files /dev/null and b/_haks/poa_exp_spells/nw_s0_wordfaith.ncs differ diff --git a/_haks/poa_exp_spells/nw_s0_wordfaith.nss b/_haks/poa_exp_spells/nw_s0_wordfaith.nss new file mode 100644 index 0000000..ec4c70b --- /dev/null +++ b/_haks/poa_exp_spells/nw_s0_wordfaith.nss @@ -0,0 +1,166 @@ +//:://///////////////////////////////////////////// +//:: Word of Faith +//:: [NW_S0_WordFaith.nss] +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + A 30ft blast of divine energy rushs out from the + Cleric blasting all enemies with varying effects + depending on their HD. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Feb 5, 2001 +//::////////////////////////////////////////////// +//:: Last Updated By: Preston Watamaniuk, On: April 11, 2001 +//:: Sep 2002: fixed the 'level 8' instantkill problem +//:: description is slightly inaccurate but I won't change it +//:: Georg: It's nerf time! oh yes. The spell now matches it's description. + + +//:: modified by mr_bumpkin Dec 4, 2003 +#include "prc_inc_spells" + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION); +/* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + //DeleteLocalInt(OBJECT_SELF, "specific_spellschool_number"); + //SetLocalInt(OBJECT_SELF, "specific_spellschool_number", + + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + + //Declare major variables + object oTarget; + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + + + effect eBlind = EffectBlindness(); + effect eStun = EffectStunned(); + effect eConfuse = PRCEffectConfused(); + effect eDeath = EffectDeath(); + effect eVis = EffectVisualEffect(VFX_IMP_DEATH); + effect eSmite = EffectVisualEffect(VFX_FNF_WORD); + effect eSonic = EffectVisualEffect(VFX_IMP_SONIC); + effect eUnsummon = EffectVisualEffect(VFX_IMP_UNSUMMON); + effect eMind = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_DISABLED); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eKill; + effect eLink; + int nHD; + float fDelay; + int nDuration = CasterLvl / 2; + + int nPenetr = CasterLvl + SPGetPenetr(); + + //Apply the FNF VFX impact to the target location + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eSmite, PRCGetSpellTargetLocation()); + //Get the first target in the spell area + oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, PRCGetSpellTargetLocation()); + while (GetIsObjectValid(oTarget)) + { + //Make a faction check + if (spellsIsTarget(oTarget, SPELL_TARGET_SELECTIVEHOSTILE, OBJECT_SELF)) + { + fDelay = PRCGetRandomDelay(0.5, 2.0); + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_WORD_OF_FAITH)); + //Make SR check + if(!PRCDoResistSpell(OBJECT_SELF, oTarget,nPenetr, fDelay)) + { + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eSonic, oTarget); + //---------------------------------------------------------- + //Check if the target is an outsider + //GZ: And do nothing anymore. This was not supposed to happen + //---------------------------------------------------------- + /*if (MyPRCGetRacialType(oTarget) == RACIAL_TYPE_OUTSIDER || MyPRCGetRacialType(oTarget) == RACIAL_TYPE_ELEMENTAL) + { + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eUnsummon, oTarget)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDeath, oTarget)); + }*/ + + ///---------------------------------------------------------- + // And this is the part where the divine power smashes the + // unholy summoned creature and makes it return to its homeplane + //---------------------------------------------------------- + if (GetIsObjectValid(GetMaster(oTarget))) + { + if (GetAssociateType(oTarget) == ASSOCIATE_TYPE_SUMMONED) + { + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eUnsummon, oTarget)); + if(!GetIsImmune(oTarget, IMMUNITY_TYPE_DEATH)) + { + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDeath, oTarget)); + } + else + { + eKill = PRCEffectDamage(oTarget, GetCurrentHitPoints(oTarget)+10); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eKill, oTarget)); + } + } + } + else + { + //Check the HD of the creature + nHD = GetHitDice(oTarget); + //Apply the appropriate effects based on HD + if (nHD >= 40) + { + eLink = EffectLinkEffects(eStun, eDur); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eBlind, oTarget, RoundsToSeconds(nDuration),TRUE,-1,CasterLvl)); + } + else if (nHD >= 30 && nHD < 40) + { + eLink = EffectLinkEffects(eStun, eMind); + eLink = EffectLinkEffects(eLink, eDur); + eLink = EffectLinkEffects(eLink, eBlind); + + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration),TRUE,-1,CasterLvl)); + } + else if (nHD > 20 && nHD < 30) + { + eLink = EffectLinkEffects(eStun, eMind); + eLink = EffectLinkEffects(eLink, eDur); + eLink = EffectLinkEffects(eLink, eConfuse); + eLink = EffectLinkEffects(eLink, eBlind); + + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration),TRUE,-1,CasterLvl)); + } + else + { + DeathlessFrenzyCheck(oTarget); + + if(!GetIsImmune(oTarget, IMMUNITY_TYPE_DEATH)) + { + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDeath, oTarget)); + } + } + } + } + //Get the next target in the spell area + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, PRCGetSpellTargetLocation()); + } + + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the integer used to hold the spells spell school +} diff --git a/_haks/poa_exp_spells/sp_aberrate.ncs b/_haks/poa_exp_spells/sp_aberrate.ncs new file mode 100644 index 0000000..5e8857a Binary files /dev/null and b/_haks/poa_exp_spells/sp_aberrate.ncs differ diff --git a/_haks/poa_exp_spells/sp_aberrate.nss b/_haks/poa_exp_spells/sp_aberrate.nss new file mode 100644 index 0000000..0bfdd68 --- /dev/null +++ b/_haks/poa_exp_spells/sp_aberrate.nss @@ -0,0 +1,141 @@ +//:://///////////////////////////////////////////// +//:: Name Aberrate +//:: FileName sp_aberrate.nss +//::////////////////////////////////////////////// +/**@file Aberrate +Transmutation [Evil] +Level: Sor/Wiz 1 +Components: V, S, Fiend +Casting Time: 1 action +Range: Touch +Target: One living creature +Duration: 10 minutes/level +Saving Throw: Fortitude negates +Spell Resistance: Yes + +The caster transforms one creature into an aberration. +The subject's form twists and mutates into a hideous +mockery of itself. The subject's type changes to +aberration, and it gains a +1 natural armor bonus to +AC (due to the toughening and twisting of the flesh) +for every four levels the caster has, up to a maximum +of +5. + +Author: Tenjac +Created: +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_sp_tch" +#include "prc_sp_func" +#include "prc_add_spell_dc" + +int DoSpell(object oCaster, object oTarget, int nCasterLvl, int nEvent) +{ + object oSkin = GetPCSkin(oTarget); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDC = PRCGetSaveDC(oTarget, oCaster); + float fDur = (600.0f * nCasterLvl); + if(nMetaMagic & METAMAGIC_EXTEND) + fDur = fDur * 2; + int bFriendly = TRUE; + if(oCaster == oTarget) bFriendly = FALSE; + + //Signal spell firing + PRCSignalSpellEvent(oTarget, bFriendly, SPELL_ABERRATE, oCaster); + + //if friendly + if(GetIsReactionTypeFriendly(oTarget, oCaster) || + //or failed SR check + (!PRCDoResistSpell(oCaster, oTarget, nCasterLvl + SPGetPenetr())) && PRCGetIsAliveCreature(oTarget)) + { + //if friendly + if(GetIsReactionTypeFriendly(oTarget, oCaster) || + //or failed save + (!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_EVIL))) + { + int nBonus = 1; + + if(nCasterLvl > 7) nBonus = 2; + + if(nCasterLvl > 11) nBonus = 3; + + if(nCasterLvl > 15) nBonus = 4; + + if(nCasterLvl > 19) nBonus = 5; + //alteracao rafael 1/6/2021 adicionado progressao da magia ate nivel 79 de caster + if(nCasterLvl > 23) nBonus = 6; + + if(nCasterLvl > 27) nBonus = 7; + + if(nCasterLvl > 31) nBonus = 8; + + if(nCasterLvl > 35) nBonus = 9; + + if(nCasterLvl > 39) nBonus = 10; + + if(nCasterLvl > 43) nBonus = 11; + + if(nCasterLvl > 47) nBonus = 12; + + if(nCasterLvl > 51) nBonus = 13; + + if(nCasterLvl > 55) nBonus = 14; + + if(nCasterLvl > 59) nBonus = 15; + + if(nCasterLvl > 63) nBonus = 16; + + if(nCasterLvl > 67) nBonus = 17; + + if(nCasterLvl > 71) nBonus = 18; + + if(nCasterLvl > 75) nBonus = 19; + + if(nCasterLvl > 79) nBonus = 20; + + if(nCasterLvl > 83) nBonus = 21; + + itemproperty ipRace = PRCItemPropertyBonusFeat(FEAT_ABERRATION); + effect eArmor = EffectACIncrease(nBonus, AC_NATURAL_BONUS); + effect eVis = EffectVisualEffect(VFX_FNF_SUMMON_MONSTER_2); + + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + AddItemProperty(DURATION_TYPE_TEMPORARY, ipRace, oSkin, fDur); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eArmor, oTarget, fDur, TRUE, SPELL_ABERRATE, nCasterLvl, oCaster); + } + } + //SPEvilShift(oCaster); + + return TRUE;// return TRUE if spell charges should be decremented +} + +void main() +{ + if (!X2PreSpellCastCode()) return; + PRCSetSchool(SPELL_SCHOOL_TRANSMUTATION); + object oCaster = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nCasterLevel = PRCGetCasterLevel(oCaster); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if(GetLocalInt(oCaster, PRC_SPELL_HOLD) && oCaster == oTarget) + { + //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + DoSpell(oCaster, oTarget, nCasterLevel, nEvent); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel, nEvent)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/sp_acidstorm.ncs b/_haks/poa_exp_spells/sp_acidstorm.ncs new file mode 100644 index 0000000..5640628 Binary files /dev/null and b/_haks/poa_exp_spells/sp_acidstorm.ncs differ diff --git a/_haks/poa_exp_spells/sp_acidstorm.nss b/_haks/poa_exp_spells/sp_acidstorm.nss new file mode 100644 index 0000000..faa04e9 --- /dev/null +++ b/_haks/poa_exp_spells/sp_acidstorm.nss @@ -0,0 +1,24 @@ + +#include "spinc_burst" +#include "prc_inc_spells" +#include "prc_add_spell_dc" +void main() +{ + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + if (!X2PreSpellCastCode()) return; + + // Get the number of damage dice. + int nCasterLvl = PRCGetCasterLevel(OBJECT_SELF); + + int nDice = nCasterLvl; + if (nDice > 40) nDice = 40; + + // Acid storm is a huge burst doing 1d6 / lvl acid damage (15 cap) + DoBurst (nCasterLvl,6, 0, nDice, + VFX_FNF_ACIDSTORM, VFX_IMP_ACID_S, + RADIUS_SIZE_HUGE, DAMAGE_TYPE_ACID, DAMAGE_TYPE_ACID, SAVING_THROW_TYPE_ACID, + FALSE, SPELL_SCHOOL_EVOCATION, GetSpellId()); + + // Add some extra sfx. + //PlaySound("sco_swar3blue"); +} diff --git a/_haks/poa_exp_spells/sp_agnazscorch.ncs b/_haks/poa_exp_spells/sp_agnazscorch.ncs new file mode 100644 index 0000000..c755dfb Binary files /dev/null and b/_haks/poa_exp_spells/sp_agnazscorch.ncs differ diff --git a/_haks/poa_exp_spells/sp_agnazscorch.nss b/_haks/poa_exp_spells/sp_agnazscorch.nss new file mode 100644 index 0000000..ce35a64 --- /dev/null +++ b/_haks/poa_exp_spells/sp_agnazscorch.nss @@ -0,0 +1,17 @@ +#include "prc_inc_spells" +#include "spinc_bolt" +#include "prc_add_spell_dc" + +void main() +{ + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + if (!X2PreSpellCastCode()) return; + + // Get the number of damage dice. + int nCasterLevel = PRCGetCasterLevel(OBJECT_SELF); + int nDice = (nCasterLevel + 1) / 2; + if (nDice > 20) nDice = 20; + + DoBolt (nCasterLevel,8, 0, nDice, VFX_BEAM_FIRE_LASH, VFX_IMP_FLAME_S, + DAMAGE_TYPE_FIRE, SAVING_THROW_TYPE_FIRE); +} diff --git a/_haks/poa_exp_spells/sp_apoc_sky.ncs b/_haks/poa_exp_spells/sp_apoc_sky.ncs new file mode 100644 index 0000000..1dbf19c Binary files /dev/null and b/_haks/poa_exp_spells/sp_apoc_sky.ncs differ diff --git a/_haks/poa_exp_spells/sp_apoc_sky.nss b/_haks/poa_exp_spells/sp_apoc_sky.nss new file mode 100644 index 0000000..f019711 --- /dev/null +++ b/_haks/poa_exp_spells/sp_apoc_sky.nss @@ -0,0 +1,117 @@ +//:://///////////////////////////////////////////// +//:: Name Apocalypse from the Sky +//:: FileName sp_apoc_sky.nss +//::////////////////////////////////////////////// +/**@file Apocalypse from the Sky +Conjuration (Creation) [Evil] +Level: Corrupt 9 +Components: V, S, M, Corrupt +Casting Time: 1 day +Range: Personal +Area: 10-mile radius/level, centered on caster +Duration: Instantaneous +Saving Throw: None +Spell Resistance: Yes + +The caster calls upon the darkest forces in all +existence to rain destruction down upon the land. +All creatures and objects in the spell's area take +10d6 points of fire, acid, or sonic damage +(caster's choice). This damage typically levels +forests, sends mountains tumbling, and wipes out +entire populations of living creatures. The caster +is subject to the damage as well as the corruption +cost. + +Material Component: An artifact, usually one of good +perverted to this corrupt use. + +Corruption Cost: 3d6 points of Constitution damage +and 4d6 points of Wisdom drain. Just preparing this +spell deals 1d3 points of wisdom damage, with another +1d3 points of Wisdom damage for each day it remains +among the caster's prepared spells. + +Author: Tenjac +Created: +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_alterations" +#include "prc_inc_spells" +#include "prc_spell_const" +#include "prc_add_spell_dc" + +void main() +{ + PRCSetSchool(SPELL_SCHOOL_CONJURATION); + + // Run the spellhook. + if (!X2PreSpellCastCode()) return; + + //define vars + object oPC = OBJECT_SELF; + object oArea = GetArea(oPC); + int nDam; + int nDamType; + int nSpell = GetSpellId(); + effect eVis; + int nCasterLevel = PRCGetCasterLevel(oPC); + //Handle damage types + if(nSpell == SPELL_APOCALYPSE_FROM_THE_SKY_FIRE) + { + nDamType = DAMAGE_TYPE_FIRE; + eVis = EffectVisualEffect(VFX_FNF_METEOR_SWARM); + } + + if(nSpell == SPELL_APOCALYPSE_FROM_THE_SKY_ACID) + { + nDamType = DAMAGE_TYPE_ACID; + eVis = EffectVisualEffect(VFX_FNF_STORM); + } + + if(nSpell == SPELL_APOCALYPSE_FROM_THE_SKY_SONIC) + { + nDamType = DAMAGE_TYPE_SONIC; + eVis = EffectVisualEffect(VFX_FNF_SOUND_BURST); + } + + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oPC); + + object oObject = GetFirstObjectInArea(oArea); + + //Loop + while(GetIsObjectValid(oObject)) + { + nDam = d6(nCasterLevel); + + //if extra damage switch set, ndam=d4(40) + if(GetPRCSwitch("PRC_AFTS_EXTRA_DAMAGE")) + { + nDam = d8(nCasterLevel); + } + + effect eDam = PRCEffectDamage(oObject, nDam, nDamType); + + //Apply + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oObject); + + oObject = GetNextObjectInArea(); + } + + //SPEvilShift(oPC); + + //Corruption cost + int nDam1 = d6(3); + int nDam2 = d6(4); + + DoCorruptionCost(oPC, ABILITY_CONSTITUTION, nDam1, 0); + DoCorruptionCost(oPC, ABILITY_WISDOM, nDam2, 1); + + //Corrupt spells get mandatory 10 pt evil adjustment, regardless of switch + AdjustAlignment(oPC, ALIGNMENT_EVIL, 10, FALSE); + + PRCSetSchool(); +} + diff --git a/_haks/poa_exp_spells/sp_armordark.ncs b/_haks/poa_exp_spells/sp_armordark.ncs new file mode 100644 index 0000000..f7fa133 Binary files /dev/null and b/_haks/poa_exp_spells/sp_armordark.ncs differ diff --git a/_haks/poa_exp_spells/sp_armordark.nss b/_haks/poa_exp_spells/sp_armordark.nss new file mode 100644 index 0000000..68d438f --- /dev/null +++ b/_haks/poa_exp_spells/sp_armordark.nss @@ -0,0 +1,80 @@ +/* + sp_armordark + + lvl 4 + +3 bonus to ac plus additional +1 per every 4 lvl of caster to max of +8 . + Gives Darkvision , +2 save against holy , light , or good spells. + + By: ??? + Created: ??? + Modified: Jul 1, 2006 +*/ + +#include "prc_sp_func" + +//Implements the spell impact, put code here +// if called in many places, return TRUE if +// stored charges should be decreased +// eg. touch attack hits +// +// Variables passed may be changed if necessary +int DoSpell(object oCaster, object oTarget, int nCasterLevel, int nEvent) +{ + int nCasterLvl = nCasterLevel; + int nMetaMagic = PRCGetMetaMagicFeat(); + float fDuration = PRCGetMetaMagicDuration(TenMinutesToSeconds(nCasterLvl)); + + int iAC = 3 + nCasterLvl/4; + if (iAC >25) iAC = 25; + + effect eAC=EffectACIncrease(iAC,AC_DEFLECTION_BONUS); + effect eUltravision = EffectUltravision(); + effect eSaveG=EffectSavingThrowIncrease(2,SAVING_THROW_ALL,SAVING_THROW_TYPE_GOOD); + effect eSaveD=EffectSavingThrowIncrease(2,SAVING_THROW_ALL,SAVING_THROW_TYPE_DIVINE); + + effect eLinks=EffectLinkEffects(eAC,eUltravision); + eLinks=EffectLinkEffects(eLinks,eSaveG); + eLinks=EffectLinkEffects(eLinks,eSaveD); + + object oTarget=PRCGetSpellTargetObject(); + + //Fire cast spell at event for the specified target + PRCSignalSpellEvent(oTarget, FALSE); + + if(MyPRCGetRacialType(oTarget) == RACIAL_TYPE_UNDEAD) + { + effect eTurn=EffectTurnResistanceIncrease(4); + eLinks=EffectLinkEffects(eLinks,eTurn); + } + + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLinks, oTarget, fDuration,TRUE,-1,nCasterLevel); + return TRUE; //return TRUE if spell charges should be decremented +} + +void main() +{ + object oCaster = OBJECT_SELF; + int nCasterLevel = PRCGetCasterLevel(oCaster); + PRCSetSchool(GetSpellSchool(PRCGetSpellId())); + if (!X2PreSpellCastCode()) return; + object oTarget = PRCGetSpellTargetObject(); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if(GetLocalInt(oCaster, PRC_SPELL_HOLD) && oCaster == oTarget) + { //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + DoSpell(oCaster, oTarget, nCasterLevel, nEvent); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel, nEvent)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_ayailla_rb.ncs b/_haks/poa_exp_spells/sp_ayailla_rb.ncs new file mode 100644 index 0000000..222837f Binary files /dev/null and b/_haks/poa_exp_spells/sp_ayailla_rb.ncs differ diff --git a/_haks/poa_exp_spells/sp_ayailla_rb.nss b/_haks/poa_exp_spells/sp_ayailla_rb.nss new file mode 100644 index 0000000..e33383c --- /dev/null +++ b/_haks/poa_exp_spells/sp_ayailla_rb.nss @@ -0,0 +1,107 @@ +//:://///////////////////////////////////////////// +//:: Name Ayailla's Radiant Burst +//:: FileName sp_ayaiila_rb.nss +//::////////////////////////////////////////////// +/**@file Ayailla's Radiant Burst +Evocation [Good] +Level: Sanctified 2 +Components: V, S, Sacrifice +Casting Time: 1 standard action +Range: 60 ft. +Area: Cone-shaped burst +Duration: Instantaneous +Saving Throw: Fortitude negates (blindness) and +Reflex half (shards) +Spell Resistance: Yes + +Shards of heavenly light spray from your fingertips, +blinding evil creatures in their path for 1 round. +A successful Fortitude save negates the blindness. +The luminous shards also sear the flesh of evil +creatures, dealing 1d6 points of damage per two +caster levels (maximum 5d6). A successful Reflex +save halves the damage, which is of divine origin. + +Sacrifice: 1d2 points of Strength damage. + +Author: Tenjac +Created: 6/1/06 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + object oPC = OBJECT_SELF; + int nCasterLvl = PRCGetCasterLevel(oPC); + int nDC; + int nDam; + int nMetaMagic = PRCGetMetaMagicFeat(); + location lLoc = PRCGetSpellTargetLocation(); + object oTarget = MyFirstObjectInShape(SHAPE_SPELLCONE, 18.28f, lLoc, TRUE, OBJECT_TYPE_CREATURE); + float fDur = 6.0f; + + //Metamagic extend + if(nMetaMagic & METAMAGIC_EXTEND) + { + fDur = fDur * 2; + } + + while(GetIsObjectValid(oTarget)) + { + //make sure it's not the PC + if(oTarget != oPC) + { + if(!PRCDoResistSpell(oPC, oTarget, nCasterLvl + SPGetPenetr()) && GetAlignmentGoodEvil(oTarget) == ALIGNMENT_EVIL) + { + nDC = PRCGetSaveDC(oTarget, oPC); + + if(PRCGetIsAliveCreature(oTarget)) + { + if(!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC)) + { + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectBlindness(), oTarget, fDur); + } + } + + //evil take damage, separate saving throw + nDam = d6(min(5, nCasterLvl/2)); + + //maximize + if(nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 6 * (min(20, nCasterLvl/2)); + } + + //empower + if(nMetaMagic & METAMAGIC_EMPOWER) + { + nDam += (nDam/2); + } + + if(PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, nDC)) nDam = (nDam/2); + + //Apply damage + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_DIVINE), oTarget); + } + } + oTarget = MyNextObjectInShape(SHAPE_SPELLCONE, 18.28f, lLoc, TRUE, OBJECT_TYPE_CREATURE); + } + + //Bwahah... yes, it's secretly Corruption cost and not Sacrifice :P + DoCorruptionCost(oPC, ABILITY_STRENGTH, d2(), 0); + + //Sanctified spells get mandatory 10 pt good adjustment, regardless of switch + AdjustAlignment(oPC, ALIGNMENT_GOOD, 10, FALSE); + + //SPGoodShift(oPC); + + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_bigby_sf.ncs b/_haks/poa_exp_spells/sp_bigby_sf.ncs new file mode 100644 index 0000000..b6703df Binary files /dev/null and b/_haks/poa_exp_spells/sp_bigby_sf.ncs differ diff --git a/_haks/poa_exp_spells/sp_bigby_sf.nss b/_haks/poa_exp_spells/sp_bigby_sf.nss new file mode 100644 index 0000000..fe3314d --- /dev/null +++ b/_haks/poa_exp_spells/sp_bigby_sf.nss @@ -0,0 +1,199 @@ +//:://///////////////////////////////////////////// +//:: Name Bigby's Striking Fist +//:: FileName sp_bigby_sf.nss +//::////////////////////////////////////////////// +/**@file Bigby's Striking Fist +Evocation [Force] +Level: Duskblade 2, sorcerer/wizard 2 +Components: V,S,M +Casting Time: 1 standard action +Range: Medium +Target: One creature +Duration: Instantaneous +Saving Throw: Reflex partial +Spell Resistance: Yes + +The attack bonus of this striking fist equals your +caster level + your key ability modifier + 2 for the +hand's Strength score (14). The fist deals 1d6 points +of nonlethal damage per two caster levels (maximum 5d6) +and attempts a bull rush. The fist has a bonus of +4 +plus +1 per two caster levels on the bull rush attempt, +and if successful it knocks the subject back in a +direction of your choice. This movement does not +provoke attacks of opportunity. A subject that +succeeds on its Reflex save takes half damage and is +not subject to the bull rush attempt. + +Material Components: Three glass beads. +**/ +/////////////////////////////////////////////////////// +// Author: Tenjac +// Date: 27.9.06 +/////////////////////////////////////////////////////// + +int DoBullRushAttack(object oTarget, int nAttackBonus, int nCasterLevel); +void DoPush(object oTarget, object oCreator, int nReverse = FALSE); +int EvalSizeBonus(object oSubject); + +#include "prc_inc_combat" +#include "prc_add_spell_dc" + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + object oPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nCasterLevel = PRCGetCasterLevel(oPC); + int nDisplayFeedback; + + int nClassType = PRCGetLastSpellCastClass(); + + int nAbilityScore = GetAbilityScoreForClass(nClassType, oPC); + int nAttackBonus = (2 + nCasterLevel + (nAbilityScore - 10)/2); + + int iAttackRoll = GetAttackRoll(oTarget, OBJECT_INVALID, OBJECT_INVALID, 0, nAttackBonus,0,nDisplayFeedback, 0.0, TOUCH_ATTACK_MELEE_SPELL); + + if (iAttackRoll > 0) + { + int nDam = d6(min(20, (nCasterLevel/2))); + + if(nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 6 * (min(20, (nCasterLevel/2))); + } + + if(nMetaMagic & METAMAGIC_EMPOWER) + { + nDam += (nDam/2); + } + + //save + if(!PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, PRCGetSaveDC(oTarget, oPC), SAVING_THROW_TYPE_SPELL)) + { + //Bull Rush + if(DoBullRushAttack(oTarget, nAttackBonus, nCasterLevel)) + { + DoPush(oTarget, oPC); + } + } + + else + { + nDam = (nDam / 2); + } + + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_MAGICAL), oTarget); + } + PRCSetSchool(); +} + + +int DoBullRushAttack(object oTarget, int nAttackBonus, int nCasterLevel) +{ + int nSuccess = 0; + int nSizeBonus = EvalSizeBonus(oTarget); + int nBullRushFist = 14 + (4 + (nCasterLevel/2)); + int nBullRushOpposed = GetAbilityScore(oTarget, ABILITY_STRENGTH) + nSizeBonus; + + if(nBullRushFist > nBullRushOpposed) + { + nSuccess = 1; + } + return nSuccess; +} + +void DoPush(object oTarget, object oCreator, int nReverse = FALSE) +{ + // Calculate how far the creature gets pushed + float fDistance = FeetToMeters(10.0f); + // Determine if they hit a wall on the way + location lCreator = GetLocation(oCreator); + location lTargetOrigin = GetLocation(oTarget); + vector vAngle = AngleToVector(GetRelativeAngleBetweenLocations(lCreator, lTargetOrigin)); + vector vTargetOrigin = GetPosition(oTarget); + vector vTarget = vTargetOrigin + (vAngle * fDistance); + + if(!LineOfSightVector(vTargetOrigin, vTarget)) + { + // Hit a wall, binary search for the wall + float fEpsilon = 1.0f; // Search precision + float fLowerBound = 0.0f; // The lower search bound, initialise to 0 + float fUpperBound = fDistance; // The upper search bound, initialise to the initial distance + fDistance = fDistance / 2; // The search position, set to middle of the range + + do{ + // Create test vector for this iteration + vTarget = vTargetOrigin + (vAngle * fDistance); + + // Determine which bound to move. + if(LineOfSightVector(vTargetOrigin, vTarget)) + fLowerBound = fDistance; + else + fUpperBound = fDistance; + + // Get the new middle point + fDistance = (fUpperBound + fLowerBound) / 2; + }while(fabs(fUpperBound - fLowerBound) > fEpsilon); + } + + // Create the final target vector + vTarget = vTargetOrigin + (vAngle * fDistance); + + // Move the target + location lTargetDestination = Location(GetArea(oTarget), vTarget, GetFacing(oTarget)); + AssignCommand(oTarget, ClearAllActions(TRUE)); + AssignCommand(oTarget, JumpToLocation(lTargetDestination)); +} + +int EvalSizeBonus(object oSubject) +{ + int nSize = PRCGetCreatureSize(oSubject); + int nBonus; + + //Eval size + + if(nSize == CREATURE_SIZE_LARGE) + { + nBonus = 4; + } + else if(nSize == CREATURE_SIZE_HUGE) + { + nBonus = 8; + } + else if(nSize == CREATURE_SIZE_GARGANTUAN) + { + nBonus = 12; + } + else if(nSize == CREATURE_SIZE_COLOSSAL) + { + nBonus = 16; + } + else if(nSize == CREATURE_SIZE_SMALL) + { + nBonus = -4; + } + else if(nSize == CREATURE_SIZE_TINY) + { + nBonus = -8; + } + else if(nSize == CREATURE_SIZE_DIMINUTIVE) + { + nBonus = -12; + } + else if (nSize == CREATURE_SIZE_FINE) + { + nBonus = -16; + } + else + { + nBonus = 0; + } + + return nBonus; +} + diff --git a/_haks/poa_exp_spells/sp_bigby_trip.ncs b/_haks/poa_exp_spells/sp_bigby_trip.ncs new file mode 100644 index 0000000..ae94253 Binary files /dev/null and b/_haks/poa_exp_spells/sp_bigby_trip.ncs differ diff --git a/_haks/poa_exp_spells/sp_bigby_trip.nss b/_haks/poa_exp_spells/sp_bigby_trip.nss new file mode 100644 index 0000000..186a70e --- /dev/null +++ b/_haks/poa_exp_spells/sp_bigby_trip.nss @@ -0,0 +1,128 @@ +//:://///////////////////////////////////////////// +//:: Name Bibgy's Tripping Hand +//:: FileName sp_bigby_trip.nss +//::////////////////////////////////////////////// +/**@file Bigby's Tripping Hand +Evocation[Force] +Level: Duskblade 1, sorcerer/wizard 1 +Components: V,S,M +Casting Time: 1 standard action +Range: Medium +Target: One creature +Duration: Intantaneous +Saving Throw: Reflex negates +Spell Resistance: Yes + +The large hand sweeps at the target creature's legs in +a tripping maneuver. This trip attempt does not provoke +attacks of opportunity. Its attack bonus equals your +caster level + your key ability modifier + 2 for the +hand's Strength score (14). The hand has a bonus of +1 +on the trip attempt for every three caster levels, to a +maximum of +5 at 15th level. + +Material component: Three glass beads +**/ + +int EvalSizeBonus(object oSubject); + +#include "prc_inc_combat" +#include "prc_add_spell_dc" + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + object oPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nCasterLvl = PRCGetCasterLevel(oPC); + int nClassType = PRCGetLastSpellCastClass(); + int nDisplayFeedback; + + // Let the AI know + PRCSignalSpellEvent(oTarget, TRUE, SPELL_BIGBYS_TRIPPING_HAND, oPC); + + /*If your attack succeeds, make a Strength check opposed by the + defender’s Dexterity or Strength check (whichever ability score + has the higher modifier). A combatant gets a +4 bonus for every + size category he is larger than Medium or a -4 penalty for every + size category he is smaller than Medium. The defender gets a +4 + bonus on his check if he has more than two legs or is otherwise + more stable than a normal humanoid. If you win, you trip the + defender. + */ + int nAbilityScore = GetAbilityScoreForClass(nClassType, oPC); + + int nAttackBonus = (2 + nCasterLvl + (nAbilityScore - 10)/2 ); + int nTripBonus = min(20,(nCasterLvl/3)); + + int iAttackRoll = GetAttackRoll(oTarget, OBJECT_INVALID, OBJECT_INVALID, 0, nAttackBonus,0,nDisplayFeedback, 0.0, TOUCH_ATTACK_MELEE_SPELL); + if (iAttackRoll > 0) + { + //SR + if(!PRCDoResistSpell(oPC, oTarget, nCasterLvl + SPGetPenetr())) + { + //save + if(!PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, PRCGetSaveDC(oTarget, oPC), SAVING_THROW_TYPE_SPELL)) + { + int nOpposing = d20() + (max(GetAbilityModifier(ABILITY_STRENGTH, oTarget), GetAbilityModifier(ABILITY_DEXTERITY, oTarget))) + EvalSizeBonus(oTarget); + int nCheck = d20() + 2 + nTripBonus; + + if(nCheck > nOpposing) + { + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectKnockdown(), oTarget, 6.0f); + } + } + } + } + PRCSetSchool(); +} + +int EvalSizeBonus(object oSubject) +{ + int nSize = PRCGetCreatureSize(oSubject); + int nBonus; + + //Eval size + + if(nSize == CREATURE_SIZE_LARGE) + { + nBonus = 4; + } + else if(nSize == CREATURE_SIZE_HUGE) + { + nBonus = 8; + } + else if(nSize == CREATURE_SIZE_GARGANTUAN) + { + nBonus = 12; + } + else if(nSize == CREATURE_SIZE_COLOSSAL) + { + nBonus = 16; + } + else if(nSize == CREATURE_SIZE_SMALL) + { + nBonus = -4; + } + else if(nSize == CREATURE_SIZE_TINY) + { + nBonus = -8; + } + else if(nSize == CREATURE_SIZE_DIMINUTIVE) + { + nBonus = -12; + } + else if (nSize == CREATURE_SIZE_FINE) + { + nBonus = -16; + } + else + { + nBonus = 0; + } + + return nBonus; +} diff --git a/_haks/poa_exp_spells/sp_blastfrc.ncs b/_haks/poa_exp_spells/sp_blastfrc.ncs new file mode 100644 index 0000000..0eeebb8 Binary files /dev/null and b/_haks/poa_exp_spells/sp_blastfrc.ncs differ diff --git a/_haks/poa_exp_spells/sp_blastfrc.nss b/_haks/poa_exp_spells/sp_blastfrc.nss new file mode 100644 index 0000000..fbe0452 --- /dev/null +++ b/_haks/poa_exp_spells/sp_blastfrc.nss @@ -0,0 +1,109 @@ +//:: Name Blast of Force +//:: FileName sp_blastfrc.nss +//::////////////////////////////////////////////// +/** @file +Evocation [Force] +Level: Sorcerer 2, Wizard 2, Force 3, +Components: V, S,\line Casting Time: 1 standard action +Range: Medium (100 ft. + 10 ft./level) +Effect: Ray +Duration: Instantaneous +Saving Throw: Fortitude partial +Spell Resistance: Yes + +Drawing upon magic in its purest form, you send invisible energy whistling through the air to batter your foe. +You must succeed on a ranged touch attack with the ray to strike a target. A blast of force deals 1d6 points +of damage per two caster levels (maximum 5d6). In addition, a successful hit forces the subject to make a +Fortitude save or be knocked prone (size and stability modifiers apply to the saving throw as if the spell +were a bull rush). +*/ +//::////////////////////////////////////////////// +//:: Created By: Tenjac +//:: Created On: 1/20/21//:: +//::////////////////////////////////////////////// + +#include "prc_inc_sp_tch" +#include "prc_sp_func" +#include "prc_add_spell_dc" +#include "prc_inc_combmove" +//Implements the spell impact, put code here +// if called in many places, return TRUE if +// stored charges should be decreased +// eg. touch attack hits +// +// Variables passed may be changed if necessary + +int DoSpell(object oCaster, object oTarget, int nCasterLevel, int nEvent) +{ + int nMetaMagic = PRCGetMetaMagicFeat(); + int nSaveDC = PRCGetSaveDC(oTarget, oCaster); + // Applying Bull Rush bonuses to defender + nSaveDC -= GetCombatMoveCheckBonus(oTarget, COMBAT_MOVE_BULLRUSH, TRUE); + int nPenetr = nCasterLevel + SPGetPenetr(); + PRCSignalSpellEvent(oTarget, TRUE, SPELL_BLASTOFFORCE, oCaster); + + //Make touch attack + int iAttackRoll = PRCDoRangedTouchAttack(oTarget); + //No VFX + if (iAttackRoll) + { + if (!PRCDoResistSpell(oCaster, oTarget, nPenetr)) + { + int nDice= min(nCasterLevel/2, 20); + int nDam = d6(nDice); + if(nMetaMagic & METAMAGIC_MAXIMIZE) nDam = 6 * nDice; + if(nMetaMagic & METAMAGIC_EMPOWER) nDam += (nDam/2); + + if (PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nSaveDC, SAVING_THROW_TYPE_SPELL)) + { + nDam /= 2; + if(GetHasMettle(oTarget, SAVING_THROW_FORT)) + nDam = 0; + } + else + { + effect eKnock = EffectKnockdown(); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eKnock, oTarget, 3.0); + } + + effect eDam = PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_MAGICAL); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_DESTRUCTION), oTarget); + } + } + return iAttackRoll; //return TRUE if spell charges should be decremented +} + +void main() +{ + object oCaster = OBJECT_SELF; + int nCasterLevel = PRCGetCasterLevel(oCaster); + PRCSetSchool(GetSpellSchool(PRCGetSpellId())); + + if (!X2PreSpellCastCode()) return; + object oTarget = PRCGetSpellTargetObject(); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if (GetLocalInt(oCaster, PRC_SPELL_HOLD) && GetHasFeat(FEAT_EF_HOLD_RAY, oCaster) && oCaster == oTarget) + { + //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + + if (oCaster != oTarget)//cant target self with this spell, only when holding charge + { + DoSpell(oCaster, oTarget, nCasterLevel, nEvent); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel, nEvent)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); + } +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_blessbahamut.ncs b/_haks/poa_exp_spells/sp_blessbahamut.ncs new file mode 100644 index 0000000..e48b1b9 Binary files /dev/null and b/_haks/poa_exp_spells/sp_blessbahamut.ncs differ diff --git a/_haks/poa_exp_spells/sp_blessbahamut.nss b/_haks/poa_exp_spells/sp_blessbahamut.nss new file mode 100644 index 0000000..1c2cd9c --- /dev/null +++ b/_haks/poa_exp_spells/sp_blessbahamut.nss @@ -0,0 +1,36 @@ +#include "prc_inc_spells" + +void main() +{ + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + if (!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_ABJURATION); + + // Declare major variables + object oTarget = PRCGetSpellTargetObject(); + + // Signal the spell cast at event + PRCSignalSpellEvent(oTarget, FALSE); + + int nCasterLevel = PRCGetCasterLevel(OBJECT_SELF); + + // DR 10/-. + effect eStone = EffectDamageReduction(10+ (nCasterLevel/2), DAMAGE_POWER_ENERGY); + eStone = EffectLinkEffects(eStone, EffectVisualEffect(VFX_DUR_PROT_SHADOW_ARMOR)); + + // Get duration, 1 round / level unless extended. + float fDuration = PRCGetMetaMagicDuration(RoundsToSeconds(nCasterLevel)); + + // Build the list of fancy visual effects to apply when the spell goes off. + effect eVFX = EffectVisualEffect(VFX_IMP_DEATH_WARD); + + // Remove existing effect, if any. + PRCRemoveEffectsFromSpell(oTarget, GetSpellId()); + + // Apply effects and VFX to target + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eStone, oTarget, fDuration,TRUE,-1,nCasterLevel); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVFX, oTarget); + + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/sp_blsflm.ncs b/_haks/poa_exp_spells/sp_blsflm.ncs new file mode 100644 index 0000000..94faa07 Binary files /dev/null and b/_haks/poa_exp_spells/sp_blsflm.ncs differ diff --git a/_haks/poa_exp_spells/sp_blsflm.nss b/_haks/poa_exp_spells/sp_blsflm.nss new file mode 100644 index 0000000..c4d1e29 --- /dev/null +++ b/_haks/poa_exp_spells/sp_blsflm.nss @@ -0,0 +1,17 @@ +///////////////////////////////////////////////////////////////////// +// +// Blast of Flame - Cone of fire damage 1d6 / level, cap 10. +// +///////////////////////////////////////////////////////////////////// + +#include "prc_inc_spells" +#include "spinc_cone" + +void main() +{ + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + if (!X2PreSpellCastCode()) return; + + DoCone (6, 0, 40, -1, VFX_IMP_FLAME_S, + DAMAGE_TYPE_FIRE, SAVING_THROW_TYPE_FIRE); +} diff --git a/_haks/poa_exp_spells/sp_bolt_glory.ncs b/_haks/poa_exp_spells/sp_bolt_glory.ncs new file mode 100644 index 0000000..88ba499 Binary files /dev/null and b/_haks/poa_exp_spells/sp_bolt_glory.ncs differ diff --git a/_haks/poa_exp_spells/sp_bolt_glory.nss b/_haks/poa_exp_spells/sp_bolt_glory.nss new file mode 100644 index 0000000..bda34d4 --- /dev/null +++ b/_haks/poa_exp_spells/sp_bolt_glory.nss @@ -0,0 +1,108 @@ +//:://///////////////////////////////////////////// +//:: Name Bolt of Glory +//:: FileName sp_bolt_glory +//::////////////////////////////////////////////// +/**@file Bolt of Glory +Evocation [Good] +Level: Exalted arcanist 6, Glory 6 +Components: V, S, DF +Casting Time: 1 standard action +Range: Close (25 ft. + 5 ft./level) +Effect: Ray +Duration: Instantaneous +Saving Throw: None +Spell Resistance: Yes + +By casting this spell, you project a bolt of +energy from the Positive Energy Plane against one +creature. You must succeed on a ranged touch +attack to strike your target. A creature struck +takes varying damage, depending on its nature, +home plane of existence and your level: + +Creature's Origin Damage + +Material Plane, +Elemental, +neutral outsider 1d6/2 levels (7d6 maximum) + +Positive Energy Plane, +good outsider none + +Evil outsider, +undead creature, +Negative Energy Plane 1d6/level (15d6 maximum) + + +Author: Tenjac +Created: +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_sp_tch" + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + object oPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nTouch = PRCDoRangedTouchAttack(oTarget); + int nCasterLevel = PRCGetCasterLevel(oPC); + int nRace = MyPRCGetRacialType(oTarget); + int nAlign = GetAlignmentGoodEvil(oTarget); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDam; + + PRCSignalSpellEvent(oTarget,TRUE, SPELL_BOLT_OF_GLORY, oPC); + + //Beam VFX. Ornedan is my hero. + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectBeam(VFX_BEAM_HOLY, oPC, BODY_NODE_HAND, !nTouch), oTarget, 1.0f); + + //Crits automatic? + if(nTouch) + { + //SR + if(!PRCDoResistSpell(OBJECT_SELF, oTarget, nCasterLevel + SPGetPenetr())) + { + if((nRace == RACIAL_TYPE_UNDEAD) || (nRace == RACIAL_TYPE_OUTSIDER && nAlign == ALIGNMENT_EVIL)) + { + nDam = d6(min(nCasterLevel, 40)); + + if(nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 6 * min(nCasterLevel, 40); + } + if(nMetaMagic & METAMAGIC_EMPOWER) + { + nDam += (nDam/2); + } + } + + if((nRace == RACIAL_TYPE_ELEMENTAL) || + //neutral outsider + (nRace == RACIAL_TYPE_OUTSIDER && nAlign == ALIGNMENT_NEUTRAL) || + //Material native and living + (nRace != RACIAL_TYPE_OUTSIDER && nRace != RACIAL_TYPE_UNDEAD && nRace != RACIAL_TYPE_CONSTRUCT)) + { + nDam = d6(min(nCasterLevel/2, 30)); + + if(nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 6 * min(nCasterLevel/2, 30); + } + if(nMetaMagic & METAMAGIC_EMPOWER) + { + nDam += (nDam/2); + } + } + + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_DIVINE), oTarget); + } + } + //SPGoodShift(oPC); + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/sp_celest_bld.ncs b/_haks/poa_exp_spells/sp_celest_bld.ncs new file mode 100644 index 0000000..41d6a8e Binary files /dev/null and b/_haks/poa_exp_spells/sp_celest_bld.ncs differ diff --git a/_haks/poa_exp_spells/sp_celest_bld.nss b/_haks/poa_exp_spells/sp_celest_bld.nss new file mode 100644 index 0000000..bab3255 --- /dev/null +++ b/_haks/poa_exp_spells/sp_celest_bld.nss @@ -0,0 +1,89 @@ +//:://///////////////////////////////////////////// +//:: Name Celestial blood +//:: FileName sp_celest_bld.nss +//::////////////////////////////////////////////// +/**@file Celestial Blood +Abjuration [Good] +Level: Apostle of peace 6, Clr 6, Pleasure 6 +Components: V, S, M +Casting Time: 1 round +Range: Touch +Target: Non-evil creature touched +Duration: 1 minute/level +Saving Throw: None +Spell Resistance: Yes (harmless) + +You channel holy power to grant the subject some of +the protection enjoyed by celestial creatures. The +subject gains resistance 10 to acid, cold, and +electricity, a +4 bonus on saving throws against +poison, and damage reduction 10/evil. + +Material Component: A vial of holy water, with +which you anoint the subject's head. + +Author: Tenjac +Created: 6/16/06 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_sp_func" + +int DoSpell(object oCaster, object oTarget, int nCasterLevel) +{ + int nMetaMagic = PRCGetMetaMagicFeat(); + float fDur = TurnsToSeconds(nCasterLevel); + if(nMetaMagic & METAMAGIC_EXTEND) + fDur *= 2; + + if(GetAlignmentGoodEvil(oTarget) != ALIGNMENT_EVIL) + { + SignalEvent(oTarget, EventSpellCastAt(oCaster, SPELL_CELESTIAL_BLOOD, FALSE)); + + effect eVis = EffectVisualEffect(VFX_IMP_HOLY_AID); + + effect eLink = EffectDamageResistance(DAMAGE_TYPE_ACID, 10, 0); + eLink = EffectLinkEffects(eLink, EffectDamageResistance(DAMAGE_TYPE_COLD, 10+(nCasterLevel/2), 0)); + eLink = EffectLinkEffects(eLink, EffectDamageResistance(DAMAGE_TYPE_ELECTRICAL, 10+(nCasterLevel/2), 0)); + eLink = EffectLinkEffects(eLink, EffectSavingThrowIncrease(SAVING_THROW_ALL, 4, SAVING_THROW_TYPE_POISON)); + eLink = EffectLinkEffects(eLink, EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE)); + + //Can't do DR 10/evil + eLink = EffectLinkEffects(eLink, EffectDamageReduction(10+(nCasterLevel/2), DAMAGE_POWER_PLUS_TWO)); + + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, fDur, TRUE, SPELL_CELESTIAL_BLOOD, nCasterLevel, oCaster); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + //SPGoodShift(oCaster); + + return TRUE; +} + +void main() +{ + if (!X2PreSpellCastCode()) return; + PRCSetSchool(SPELL_SCHOOL_ABJURATION); + object oCaster = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nCasterLevel = PRCGetCasterLevel(oCaster); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if(GetLocalInt(oCaster, PRC_SPELL_HOLD) && oCaster == oTarget) + { //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + DoSpell(oCaster, oTarget, nCasterLevel); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_chaavs_lgh.ncs b/_haks/poa_exp_spells/sp_chaavs_lgh.ncs new file mode 100644 index 0000000..2b1e7a9 Binary files /dev/null and b/_haks/poa_exp_spells/sp_chaavs_lgh.ncs differ diff --git a/_haks/poa_exp_spells/sp_chaavs_lgh.nss b/_haks/poa_exp_spells/sp_chaavs_lgh.nss new file mode 100644 index 0000000..2e69bed --- /dev/null +++ b/_haks/poa_exp_spells/sp_chaavs_lgh.nss @@ -0,0 +1,111 @@ +//:://///////////////////////////////////////////// +//:: Name Chaav's Laugh +//:: FileName sp_chaavs_lgh.nss +//::////////////////////////////////////////////// +/**@file Chaav's Laugh +Enchantment (Compulsion)[Good, Mind-Affecting] +Level: Cleric 5, Joy 5 +Components: V +Casting Time: 1 standard action +Range: 40ft +Area: 40-ft-radius spread centered on you +Duration: 1 minute/level +Saving Throw: Will negates +Spell Resistance: Yes + +You release a joyous, boistrous laugh that +strengthens the resolve of good creatures and +weakens the resolve of evil creatures. + +Good creatures within the spell's area gain the +following benefits for the duration of the spell: +a +2 morale bonus on attack rolls an saves against +fear effects. plus temporary hit points equal to +1d8 + caster level(to a maximum of 1d8 +20 at level +20). + +Evil creatures within the spell's are that fail a +Will save take a -2 morale penalty on attack rolls +and saves against fear effects for the duration of +the spell. + +Creatures must beable to hear the laugh to be +affected by the spell. Creatures that are neither +good nor evil are anaffected by Chaav's Laugh. + +Author: Tenjac +Created: 7/10/06 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_ENCHANTMENT); + + object oPC = OBJECT_SELF; + location lLoc = GetLocation(oPC); + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, 12.19f, lLoc, TRUE, OBJECT_TYPE_CREATURE); + int nCasterLvl = PRCGetCasterLevel(oPC); + int nDC; + int nAlign; + int nMetaMagic = PRCGetMetaMagicFeat(); + int nModify = 2; + float fDur = (60.0f * nCasterLvl); + + if(nMetaMagic & METAMAGIC_EMPOWER) + { + nModify = 3; + } + + if(nMetaMagic & METAMAGIC_EXTEND) + { + fDur += fDur; + } + + effect eVilLink = EffectLinkEffects(EffectAttackDecrease(nModify, ATTACK_BONUS_MISC), EffectSavingThrowDecrease(SAVING_THROW_ALL, nModify, SAVING_THROW_TYPE_FEAR)); + effect eGoodLink = EffectLinkEffects(EffectAttackIncrease(nModify, ATTACK_BONUS_MISC), EffectSavingThrowIncrease(SAVING_THROW_ALL, nModify, SAVING_THROW_TYPE_FEAR)); + eGoodLink = EffectLinkEffects(eGoodLink, EffectTemporaryHitpoints(d8(1) + min(40, nCasterLvl))); + + while(GetIsObjectValid(oTarget)) + { + nAlign = GetAlignmentGoodEvil(oTarget); + nDC = PRCGetSaveDC(oTarget, oPC); + + if(!PRCGetHasEffect(EFFECT_TYPE_DEAF, oTarget)) + { + + if (nAlign == ALIGNMENT_EVIL) + { + //SR + if(!PRCDoResistSpell(oPC, oTarget, nCasterLvl + SPGetPenetr())) + { + //Save + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_MIND_SPELLS)) + { + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eVilLink, oTarget, fDur); + } + } + } + + if(nAlign == ALIGNMENT_GOOD) + { + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eGoodLink, oTarget, fDur); + } + } + oTarget = MyNextObjectInShape(SHAPE_SPHERE, 12.19f, lLoc, TRUE, OBJECT_TYPE_CREATURE); + } + //SPGoodShift(oPC); + PRCSetSchool(); +} + + + + + + \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_chan_pyrob.ncs b/_haks/poa_exp_spells/sp_chan_pyrob.ncs new file mode 100644 index 0000000..ef037a4 Binary files /dev/null and b/_haks/poa_exp_spells/sp_chan_pyrob.ncs differ diff --git a/_haks/poa_exp_spells/sp_chan_pyrob.nss b/_haks/poa_exp_spells/sp_chan_pyrob.nss new file mode 100644 index 0000000..5ec0b1a --- /dev/null +++ b/_haks/poa_exp_spells/sp_chan_pyrob.nss @@ -0,0 +1,162 @@ +//:://///////////////////////////////////////////// +//:: Name Channeled Pyroburst +//:: FileName sp_chan_pyrob.nss +//::////////////////////////////////////////////// +/**@file Channeled Pyroburst +Evocation [Fire] +Level: Duskblade 4, sorcerer/wizard 4 +Components: V,S +Casting Time: See text +Range: Medium +Area: See text +Duration: Instantaneous +Saving Throw: Reflex half +Spell Resistance: Yes + +This spell creates a bolt of fiery energy that blasts +your enemies. The spell's strength depends on the +amount of time you spend channeling energy into it. + +If you cast this spell as a swift action, it deals +1d4 points of fire damage per two caster levels +(maximum 10d4) against a single target of your choice. + +If you cast this spell as a standard action, it deals +1d6 points of fire damage per caster level +(maximum 10d6) to all creatures in a 10-foot-radius +spread. + +If you cast this spell as a full-round action, it deals +1d8 points of fire damage per caster level +(maximum 10d8) to all creatures in a 15-foot-radius +spread. + +If you spend 2 rounds casting this spell, it deals 1d10 +points of fire damage per caster level (maximum 10d10) +to all creatures in a 20-foot-radius spread. + +You do not need to declare ahead of time how long you +want to spend casting the spell. When you begin casting +the spell, you decide that you are finished casting after +the appropriate time has passed. + +**/ + +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + object oPC = OBJECT_SELF; + int nSpell = PRCGetSpellId(); + int nCasterLvl = PRCGetCasterLevel(oPC); + object oTarget = PRCGetSpellTargetObject(); + location lLoc = PRCGetSpellTargetLocation(); + int nDC = PRCGetSaveDC(oTarget, oPC); + int nDam; + int nMetaMagic = PRCGetMetaMagicFeat(); + float fRadius = 0.0f; + + PRCSignalSpellEvent(oTarget, TRUE, SPELL_CHANNELED_PYROBURST, oPC); + + //Check Spell Resistance + if(!PRCDoResistSpell(oPC, oTarget, nCasterLvl + SPGetPenetr())) + { + //swift + if(nSpell == SPELL_CHANNELED_PYROBURST_1) + { + if(!TakeSwiftAction(oPC)) + { + return; + } + + nDam = d4(min((nCasterLvl/2), 40)); + + if(nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 4 * (min((nCasterLvl/2), 40)); + } + } + + //standard + else if(nSpell == SPELL_CHANNELED_PYROBURST_2) + { + nDam = d6(min(40, nCasterLvl)); + fRadius = 3.048f; + + if(nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 6 * (min(40, nCasterLvl)); + } + } + + //full round + else if(nSpell == SPELL_CHANNELED_PYROBURST_3) + { + nDam = d8(min(40, nCasterLvl)); + fRadius = 4.57f; + + if(nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 8 * (min(40, nCasterLvl)); + } + } + + //two rounds + else if(nSpell == SPELL_CHANNELED_PYROBURST_4) + { + nDam = d10(min(40, nCasterLvl)); + fRadius = 6.10f; + + if(nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 10 * (min(40, nCasterLvl)); + } + } + + else + { + PRCSetSchool(); + return; + } + + //Metamagic Empower + if(nMetaMagic & METAMAGIC_EMPOWER) + { + nDam += (nDam/2); + } + + if(PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, nDC, SAVING_THROW_TYPE_FIRE)) + { + nDam = nDam/2; + } + + effect eDam = PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_FIRE); + + if(fRadius == 0.0f) + { + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + } + + else + { + oTarget = MyFirstObjectInShape(SHAPE_SPHERE, fRadius, lLoc, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + + while(GetIsObjectValid(oTarget)) + { + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + + oTarget = MyNextObjectInShape(SHAPE_SPHERE, fRadius, lLoc, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + } + } + } + PRCSetSchool(); +} + + + + diff --git a/_haks/poa_exp_spells/sp_close_wounds.ncs b/_haks/poa_exp_spells/sp_close_wounds.ncs new file mode 100644 index 0000000..88b865f Binary files /dev/null and b/_haks/poa_exp_spells/sp_close_wounds.ncs differ diff --git a/_haks/poa_exp_spells/sp_close_wounds.nss b/_haks/poa_exp_spells/sp_close_wounds.nss new file mode 100644 index 0000000..a70bcc2 --- /dev/null +++ b/_haks/poa_exp_spells/sp_close_wounds.nss @@ -0,0 +1,70 @@ +//:://///////////////////////////////////////////// +//:: Name Close Wounds +//:: FileName sp_close_wounds.nss +//::////////////////////////////////////////////// +/** @file Close Wounds +Conjuration (Healing) +Level: Clr 3, Hlr 3 +Components: V +Casting Time: 1 swift action +Range: Close +Target: One creature +Duration: Instantaneous +Saving Throw: Will half (harmless) +Spell Resistance: Yes (harmless) + +This spell cures 2d4 points of damage. You can cast +this spell with an instant utterance. + +Used against an undead creature, close wounds deals +damage instea of curing the creature (which takes half +damage if it makes a Will saving throw). +**/ +////////////////////////////////////////////////// +// Author: Tenjac +// Date: 5.10.06 +/////////////////////////////////////////////////// + +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_CONJURATION); + + object oPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nMetaMagic = PRCGetMetaMagicFeat(); + + int nCasterLvl = PRCGetCasterLevel(oPC); +int nHeal = d4(nCasterLvl)+8; + if(nMetaMagic & METAMAGIC_MAXIMIZE) + nHeal = 8+ (nCasterLvl*4); + + if(nMetaMagic & METAMAGIC_EMPOWER) + nHeal += (nHeal/2); + + //Damage if undead + if(MyPRCGetRacialType(oTarget) == RACIAL_TYPE_UNDEAD + || (GetHasFeat(FEAT_TOMB_TAINTED_SOUL, oTarget) && GetAlignmentGoodEvil(oTarget) != ALIGNMENT_GOOD)) + { + //SR + if(!PRCDoResistSpell(oPC, oTarget, nCasterLvl + SPGetPenetr())) + { + //save for 1/2 dam + if(PRCMySavingThrow(SAVING_THROW_WILL, oTarget, PRCGetSaveDC(oTarget, oPC), SAVING_THROW_TYPE_POSITIVE)) + nHeal = nHeal/2; + + SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_HEALING_S), oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nHeal, DAMAGE_TYPE_POSITIVE), oTarget); + } + } + else + { + SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_HEALING_S), oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectHeal(nHeal, oTarget), oTarget); + } + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_cloud_achaiA.ncs b/_haks/poa_exp_spells/sp_cloud_achaiA.ncs new file mode 100644 index 0000000..df84e9b Binary files /dev/null and b/_haks/poa_exp_spells/sp_cloud_achaiA.ncs differ diff --git a/_haks/poa_exp_spells/sp_cloud_achaiA.nss b/_haks/poa_exp_spells/sp_cloud_achaiA.nss new file mode 100644 index 0000000..5cb6d65 --- /dev/null +++ b/_haks/poa_exp_spells/sp_cloud_achaiA.nss @@ -0,0 +1,77 @@ +//:://///////////////////////////////////////////// +//:: Cloud of the Achaierai: On Enter +//:: sp_cloud_achaiA.nss +//:: +//::////////////////////////////////////////////// +/* + +*/ +//::////////////////////////////////////////////// +//:: Created By: Tenjac +//:: Created On: 3/24/06 +//::////////////////////////////////////////////// + + +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void main() +{ + PRCSetSchool(SPELL_SCHOOL_CONJURATION); + + object oTarget = GetEnteringObject(); + object oPC = GetAreaOfEffectCreator(); + int nMetaMagic = PRCGetMetaMagicFeat(); + effect eDark = EffectDarkness(); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eLink = EffectLinkEffects(eDark, eDur); + effect eConf = PRCEffectConfused(); + effect eLinkConf = EffectLinkEffects(eLink, eConf); + int nCasterLvl = PRCGetCasterLevel(oPC); + float fDuration = (nCasterLvl * 600.0f); + int nDam = d6(nCasterLvl/2)+2; + int nDC = PRCGetSaveDC(oTarget, oPC); + + //Enter Metamagic conditions + if ((nMetaMagic & METAMAGIC_EXTEND)) + { + fDuration = fDuration *2; //Duration is +100% + } + + // * July 2003: If has darkness then do not put it on it again + // Primogenitor: Yes, what about overlapping darkness effects by different casters? + //if (PRCGetHasEffect(EFFECT_TYPE_DARKNESS, oTarget) == TRUE) + //{ + // return; + //} + + //if valid and not caster + if(GetIsObjectValid(oTarget) && oTarget != oPC) + { + //Spell resistance + if(!PRCDoResistSpell(oPC, oTarget, nCasterLvl + SPGetPenetr())) + { + //Save + if(!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_SPELL)) + { + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLinkConf, oTarget, fDuration); + } + else + { + if(!GetHasMettle(oTarget, SAVING_THROW_FORT)) + { + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, fDuration); + } + } + + //Damage + effect eDam = PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_MAGICAL); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + } + } + + PRCSetSchool(); +} + + + diff --git a/_haks/poa_exp_spells/sp_clutch_orcus.ncs b/_haks/poa_exp_spells/sp_clutch_orcus.ncs new file mode 100644 index 0000000..3f83ddd Binary files /dev/null and b/_haks/poa_exp_spells/sp_clutch_orcus.ncs differ diff --git a/_haks/poa_exp_spells/sp_clutch_orcus.nss b/_haks/poa_exp_spells/sp_clutch_orcus.nss new file mode 100644 index 0000000..6dca8b7 --- /dev/null +++ b/_haks/poa_exp_spells/sp_clutch_orcus.nss @@ -0,0 +1,101 @@ +//:://///////////////////////////////////////////// +//:: Name Clutch of Orcus +//:: FileName sp_clutch_orcus.nss +//::////////////////////////////////////////////// +/**@file Clutch of Orcus +Necromancy [Evil] +Level: Clr 3 +Components: V, S +Casting Time: 1 action +Range: Medium (100 ft. + 10 ft./level) +Target: One humanoid +Duration: Concentration (see text) +Saving Throw: Fortitude negates (see text) +Spell Resistance: Yes + +The caster creates a magical force that grips the +subject's heart (or similar vital organ) and +begins crushing it. The victim is paralyzed +(as if having a heart attack) and takes 1d3 points +of damage per round. + +Each round, the caster must concentrate to +maintain the spell. In addition, a conscious +victim gains a new saving throw each round to stop +the spell. If the victim dies as a result of this +spell, his chest ruptures and bursts, and his +smoking heart appears in the caster's hand. + +Author: Tenjac +Created: 3/28/05 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void CrushLoop(object oTarget, object oPC, int bEndSpell, int nDC) +{ +int nCasterLvl = PRCGetCasterLevel(oPC); + //Conc check + if(GetBreakConcentrationCheck(oPC)) + { + bEndSpell = TRUE; + } + + //if makes save, abort + if(PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_EVIL)) + { + bEndSpell = TRUE; + } + + //if Conc and failed save... + if(bEndSpell = FALSE) + { + //Paral + effect ePar = EffectParalyze(); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, ePar, oTarget, 6.0f); + + //damage + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, d3(nCasterLvl/4)+1, DAMAGE_TYPE_MAGICAL), oTarget); + + //if dead, end effect + if(GetIsDead(oTarget)) + { + effect eChunky = EffectVisualEffect(VFX_COM_CHUNK_RED_MEDIUM); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eChunky, oTarget); + + //End loop next time so it doesn't keep going forever + bEndSpell = TRUE; + } + + DelayCommand(6.0f, CrushLoop(oTarget, oPC, bEndSpell, nDC)); + } +} + +void main() +{ + // Run the spellhook. + if (!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_NECROMANCY); + + object oPC = OBJECT_SELF; + object oTarget= PRCGetSpellTargetObject(); + int bEndSpell = FALSE; + int nDC = PRCGetSaveDC(oTarget, oPC); + int nCasterLvl = PRCGetCasterLevel(oPC); + + PRCSignalSpellEvent(oTarget, TRUE, SPELL_CLUTCH_OF_ORCUS, oPC); + + //Check spell resistance + if(!PRCDoResistSpell(oPC, oTarget, nCasterLvl + SPGetPenetr())) + { + //start loop + CrushLoop(oTarget, oPC, bEndSpell, nDC); + } + + //SPEvilShift(oPC); + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_curimpbl.ncs b/_haks/poa_exp_spells/sp_curimpbl.ncs new file mode 100644 index 0000000..4d6878a Binary files /dev/null and b/_haks/poa_exp_spells/sp_curimpbl.ncs differ diff --git a/_haks/poa_exp_spells/sp_curimpbl.nss b/_haks/poa_exp_spells/sp_curimpbl.nss new file mode 100644 index 0000000..9a9a466 --- /dev/null +++ b/_haks/poa_exp_spells/sp_curimpbl.nss @@ -0,0 +1,40 @@ +///////////////////////////////////////////////////////////////////// +// +// Curse of Impending Blades - Target receives a -2 to AC penalty. +// +///////////////////////////////////////////////////////////////////// + +#include "prc_inc_spells" + +void main() +{ + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + if (!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_NECROMANCY); + + int nCasterLvl = PRCGetCasterLevel(OBJECT_SELF); + + object oTarget = PRCGetSpellTargetObject(); + if(spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF)) + { + // Get the target and raise the spell cast event. + PRCSignalSpellEvent(oTarget); + + // Determine the spell's duration, taking metamagic feats into account. + float fDuration = PRCGetMetaMagicDuration(MinutesToSeconds(PRCGetCasterLevel())); + + // Determine the save bonus. + int nBonus = 2 + (nCasterLvl / 6); + if (nBonus > 20) nBonus = 20; + + // Apply the curse and vfx. + effect eCurse = EffectACDecrease(2); + eCurse = EffectLinkEffects(eCurse, EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE)); + eCurse = EffectLinkEffects(eCurse, EffectVisualEffect(VFX_DUR_PROTECTION_EVIL_MINOR)); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eCurse, oTarget, fDuration,TRUE,-1,nCasterLvl); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_REDUCE_ABILITY_SCORE), oTarget); + } + + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/sp_curpfail.ncs b/_haks/poa_exp_spells/sp_curpfail.ncs new file mode 100644 index 0000000..8806934 Binary files /dev/null and b/_haks/poa_exp_spells/sp_curpfail.ncs differ diff --git a/_haks/poa_exp_spells/sp_curpfail.nss b/_haks/poa_exp_spells/sp_curpfail.nss new file mode 100644 index 0000000..ec5568b --- /dev/null +++ b/_haks/poa_exp_spells/sp_curpfail.nss @@ -0,0 +1,41 @@ +///////////////////////////////////////////////////////////////////// +// +// Curse of Petty Failing - Target takes a -2 penalty to attacks +// and saves. +// +///////////////////////////////////////////////////////////////////// + +#include "prc_inc_spells" + +void main() +{ + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + if (!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_NECROMANCY); + + object oTarget = PRCGetSpellTargetObject(); + if(spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF)) + { + // Get the target and raise the spell cast event. + PRCSignalSpellEvent(oTarget); + + // Determine the spell's duration, taking metamagic feats into account. + float fDuration = PRCGetMetaMagicDuration(MinutesToSeconds(PRCGetCasterLevel())); + + // Determine the save bonus. + int nCasterLvl = PRCGetCasterLevel(OBJECT_SELF); + int nBonus = 2 + (nCasterLvl / 6); + if (nBonus > 20) nBonus = 20; + + // Apply the curse and vfx. + effect eCurse = EffectSavingThrowDecrease(SAVING_THROW_ALL, 2); + eCurse = EffectLinkEffects(eCurse, EffectAttackDecrease(2)); + eCurse = EffectLinkEffects(eCurse, EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE)); + eCurse = EffectLinkEffects(eCurse, EffectVisualEffect(VFX_DUR_PROTECTION_EVIL_MINOR)); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eCurse, oTarget, fDuration,TRUE,-1,nCasterLvl); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_REDUCE_ABILITY_SCORE), oTarget); + } + + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/sp_damng_darkA.ncs b/_haks/poa_exp_spells/sp_damng_darkA.ncs new file mode 100644 index 0000000..d90a497 Binary files /dev/null and b/_haks/poa_exp_spells/sp_damng_darkA.ncs differ diff --git a/_haks/poa_exp_spells/sp_damng_darkA.nss b/_haks/poa_exp_spells/sp_damng_darkA.nss new file mode 100644 index 0000000..5f64ccc --- /dev/null +++ b/_haks/poa_exp_spells/sp_damng_darkA.nss @@ -0,0 +1,86 @@ +//:://///////////////////////////////////////////// +//:: Name Damning Darkness +//:: FileName sp_damng_dark.nss +//::////////////////////////////////////////////// +/**@file Damning Darkness +Evocation [Darkness, Evil] +Level: Clr 4, Darkness 4, Sor/Wiz 4 +Components: V, M/DF +Casting Time: 1 action +Range: Touch +Target: Object touched +Duration: 10 minutes/level (D) +Saving Throw: None +Spell Resistance: No + +This spell is similar to darkness, except that those +within the area of darkness also take unholy damage. +Creatures of good alignment take 2d6 points of +damage per round in the darkness, and creatures +neither good nor evil take 1d6 points of damage. As +with the darkness spell, the area of darkness is a +20-foot radius, and the object that serves as the +spell's target can be shrouded to block the darkness +(and thus the dam­aging effect). + +Damning darkness counters or dispels any light spell +of equal or lower level. + +Arcane Material Component: A dollop of pitch with a +tiny needle hidden inside it. + +Author: Tenjac +Created: 6/12/06 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// +void DarkLoop(object oTarget); + + +#include "prc_alterations" +#include "prc_inc_spells" + +void main() +{ + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + object oTarget = GetEnteringObject(); + object oPC = GetAreaOfEffectCreator(); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nCasterLvl = PRCGetCasterLevel(oPC); + effect eDark = EffectDarkness(); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eLink = EffectLinkEffects(eDark, eDur); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, (600.0f * nCasterLvl)); + + DarkLoop(oTarget); + + PRCSetSchool(); +} + +void DarkLoop(object oTarget) +{ +object oPC = GetAreaOfEffectCreator(); +int nCasterLvl = PRCGetCasterLevel(oPC); + + if(GetIsObjectValid(oTarget)) + { + if(GetAlignmentGoodEvil(oTarget) == ALIGNMENT_GOOD) + { + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, d6(nCasterLvl/2)+2, DAMAGE_TYPE_DIVINE), oTarget); + } + + else if(GetAlignmentGoodEvil(oTarget) == ALIGNMENT_NEUTRAL) + { + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, d6(nCasterLvl/2)+2, DAMAGE_TYPE_DIVINE), oTarget); + } + + else + { + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE), oTarget, 1.0f); + } + + } + DelayCommand(6.0f, DarkLoop(oTarget)); + +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_dancg_web.ncs b/_haks/poa_exp_spells/sp_dancg_web.ncs new file mode 100644 index 0000000..21a7780 Binary files /dev/null and b/_haks/poa_exp_spells/sp_dancg_web.ncs differ diff --git a/_haks/poa_exp_spells/sp_dancg_web.nss b/_haks/poa_exp_spells/sp_dancg_web.nss new file mode 100644 index 0000000..287e0cd --- /dev/null +++ b/_haks/poa_exp_spells/sp_dancg_web.nss @@ -0,0 +1,97 @@ +//:://///////////////////////////////////////////// +//:: Name Dancing Web +//:: FileName sp_dancg_web.nss +//::////////////////////////////////////////////// +/**@file Dancing Web +Evocation [Good] +Level: Clr 5, Drd 5, Sor/Wiz 4 +Components: V, S, M/DF +Casting Time: 1 standard action +Range: Medium (100 ft. + 10 ft./level) +Area: 20-ft.-radius burst +Duration: Instantaneous +Saving Throw: Reflex half; see text +Spell Resistance: Yes + +This spell creates a burst of magical energy that +deals 1d6 points per level of non-lethal damage +maximum 10d6). Further, evil creatures that fail +their saving throw become entangled by lingering +threads of magical energy for 1d6 rounds. An +entangled creature takes a -2 penalty on attack +rolls and a -4 penalty to effective Dexterity; +the entangled target can move at half speed but +can't run or charge. + +Arcane Material Component: A bit of spider's web. + +Author: Tenjac +Created: 7/6/06 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + object oPC = OBJECT_SELF; + location lLoc = PRCGetSpellTargetLocation(); + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, 6.10f, lLoc, TRUE, OBJECT_TYPE_CREATURE); + float fDur; + int nMetaMagic = PRCGetMetaMagicFeat(); + int nCasterLvl = PRCGetCasterLevel(oPC); + int nMin = min(40, nCasterLvl); + int nDam; + int nDC = PRCGetSaveDC(oTarget, oPC); + + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_DISPEL_DISJUNCTION), lLoc); + + while(GetIsObjectValid(oTarget)) + { + //SR + if(!PRCDoResistSpell(oPC, oTarget, nCasterLvl + SPGetPenetr())) + { + //Should be non-lethal + nDam = d6(nMin); + + if(nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 6 * nMin; + fDur = RoundsToSeconds(6); + } + + if(nMetaMagic & METAMAGIC_EMPOWER) + { + nDam += (nDam/2); + } + + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_MAGICAL), oTarget); + + if(GetAlignmentGoodEvil(oTarget) == ALIGNMENT_EVIL) + { + if(!PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, nDC, SAVING_THROW_TYPE_GOOD)) + { + fDur = RoundsToSeconds(d6(1)); + + if(nMetaMagic & METAMAGIC_EXTEND) + { + fDur += fDur; + } + + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectEntangle(), oTarget, fDur); + } + } + } + oTarget = MyNextObjectInShape(SHAPE_SPHERE, 6.10f, lLoc, TRUE, OBJECT_TYPE_CREATURE); + } + + //SPGoodShift(oPC); + + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_darkbolt.ncs b/_haks/poa_exp_spells/sp_darkbolt.ncs new file mode 100644 index 0000000..85f2843 Binary files /dev/null and b/_haks/poa_exp_spells/sp_darkbolt.ncs differ diff --git a/_haks/poa_exp_spells/sp_darkbolt.nss b/_haks/poa_exp_spells/sp_darkbolt.nss new file mode 100644 index 0000000..1ec8a59 --- /dev/null +++ b/_haks/poa_exp_spells/sp_darkbolt.nss @@ -0,0 +1,96 @@ +#include "prc_inc_spells" +#include "prc_add_spell_dc" +void main() +{ + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + if (!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_NECROMANCY); + object oTarget = PRCGetSpellTargetObject(); + int nCasterLvl = PRCGetCasterLevel(); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nPenetr = nCasterLvl + SPGetPenetr(); + + int nMissiles = nCasterLvl/2; + float fDist = GetDistanceBetween(OBJECT_SELF, oTarget); + float fDelay = fDist/(3.0 * log(fDist) + 2.0); + float fDelay2, fTime; + int nCnt; + + effect eBolt = EffectBeam(VFX_BEAM_EVIL, OBJECT_SELF, BODY_NODE_HAND); + effect eMissile = EffectVisualEffect(VFX_BEAM_EVIL); + effect eVis = EffectVisualEffect(VFX_IMP_NEGATIVE_ENERGY); + effect eDazed=EffectDazed(); + + effect eVis2 = EffectVisualEffect(VFX_IMP_DAZED_S); + + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_RAY_OF_ENFEEBLEMENT)); + //Limit missiles to 7 + if (nMissiles > 40) nMissiles = 40; + + //Make SR Check + if (!PRCDoResistSpell(OBJECT_SELF, oTarget,nPenetr)) + { + //Apply a single damage hit for each missile instead of as a single mass + for (nCnt = 1; nCnt <= nMissiles; nCnt++) + { + //Roll damage + int nDam = d8(2); + //Enter Metamagic conditions + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDam = 16;//Damage is at max + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDam = nDam + nDam/2; //Damage/Healing is +50% + } + + fTime = fDelay; + fDelay2 += 0.1; + fTime += fDelay2; + + //Set damage effect + effect eDam = PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_MAGICAL); + + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eBolt, oTarget, 1.0,FALSE); + + if(MyPRCGetRacialType(oTarget) != RACIAL_TYPE_UNDEAD) + { + DelayCommand(fTime, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget)); + PRCBonusDamage(oTarget); + DelayCommand(fTime, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eVis, oTarget,0.0,FALSE)); + //DelayCommand(fDelay2, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eBolt, oTarget,1.0)); + + } + + + } + //Make reflex save + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, PRCGetSaveDC(oTarget,OBJECT_SELF))) + { + DelayCommand(fTime, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eVis, oTarget,6.0)); + + if(!GetIsImmune(oTarget,IMMUNITY_TYPE_MIND_SPELLS)) + { + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eDazed, oTarget,6.0)); + // FloatingTextStringOnCreature("no immune " , OBJECT_SELF, FALSE); + } + else + { + // FloatingTextStringOnCreature("immune " , OBJECT_SELF, FALSE); + + AssignCommand(oTarget,ClearAllActions(TRUE)); + AssignCommand(oTarget,ActionPlayAnimation(ANIMATION_LOOPING_PAUSE,1.0,6.0)); + DelayCommand(0.2,SetCommandable(FALSE,oTarget)); + DelayCommand(6.2,SetCommandable(TRUE,oTarget)); + } + } + } + + + PRCSetSchool(); + +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_darkbolt1.ncs b/_haks/poa_exp_spells/sp_darkbolt1.ncs new file mode 100644 index 0000000..a8c8587 Binary files /dev/null and b/_haks/poa_exp_spells/sp_darkbolt1.ncs differ diff --git a/_haks/poa_exp_spells/sp_darkbolt1.nss b/_haks/poa_exp_spells/sp_darkbolt1.nss new file mode 100644 index 0000000..3f5fa84 --- /dev/null +++ b/_haks/poa_exp_spells/sp_darkbolt1.nss @@ -0,0 +1,169 @@ +#include "prc_inc_spells" +#include "prc_add_spell_dc" +void DarkBolt(object oTarget,int nMissiles, int nDC , int nMetaMagic) +{ + if (GetIsDead(oTarget)) return; + + nMissiles--; + effect eMissile = EffectVisualEffect(VFX_BEAM_EVIL); + effect eVis = EffectVisualEffect(VFX_IMP_NEGATIVE_ENERGY); + effect eDazed=EffectDazed(); + effect eVis2 = EffectVisualEffect(VFX_IMP_DAZED_S); + //effect eBolt = EffectBeam(VFX_BEAM_EVIL, OBJECT_SELF, BODY_NODE_HAND); + effect eBolt = EffectVisualEffect(VFX_IMP_MIRV); + + float fDist = GetDistanceBetween(OBJECT_SELF, oTarget); + float fDelay = fDist/(3.0 * log(fDist) + 2.0); + float fDelay2, fTime; + + //Make SR Check + if (!PRCDoResistSpell(OBJECT_SELF, oTarget)) + { + //Roll damage + int nDam = d8(2); + //Enter Metamagic conditions + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDam = 16;//Damage is at max + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDam = nDam + nDam/2; //Damage/Healing is +50% + } + + fTime = fDelay; + fDelay2 += 0.1; + fTime += fDelay2; + + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eBolt, oTarget, 1.0,FALSE); + + //Set damage effect + effect eDam = PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_MAGICAL); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eBolt, oTarget, 1.0,FALSE); + + if(MyPRCGetRacialType(oTarget) != RACIAL_TYPE_UNDEAD) + { + DelayCommand(fTime, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget)); + PRCBonusDamage(oTarget); + DelayCommand(fTime, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eVis, oTarget,0.0,FALSE)); + //DelayCommand(fDelay2, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eMissile, oTarget,1.0)); + } + + //Make reflex save + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget,nDC)) + { + DelayCommand(fTime, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eVis, oTarget,6.0)); + + if(!GetIsImmune(oTarget,IMMUNITY_TYPE_MIND_SPELLS)) + { + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eDazed, oTarget,6.0)); + // FloatingTextStringOnCreature("no immune " , OBJECT_SELF, FALSE); + } + else + { + // FloatingTextStringOnCreature("immune " , OBJECT_SELF, FALSE); + + AssignCommand(oTarget,ClearAllActions(TRUE)); + AssignCommand(oTarget,ActionPlayAnimation(ANIMATION_LOOPING_PAUSE,1.0,6.0)); + DelayCommand(0.2,SetCommandable(FALSE,oTarget)); + DelayCommand(6.2,SetCommandable(TRUE,oTarget)); + } + } + } + + if (nMissiles>0) + DelayCommand(6.2,DarkBolt(oTarget,nMissiles,nDC,nMetaMagic)); + +} + + +void main() +{ + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + if (!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_NECROMANCY); + object oTarget = PRCGetSpellTargetObject(); + int nCasterLvl = PRCGetCasterLevel(); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nPenetr = nCasterLvl + SPGetPenetr(); + + int nMissiles = nCasterLvl/2; + float fDist = GetDistanceBetween(OBJECT_SELF, oTarget); + float fDelay = fDist/(3.0 * log(fDist) + 2.0); + float fDelay2, fTime; + int nCnt; + + effect eBolt = EffectBeam(VFX_BEAM_EVIL, OBJECT_SELF, BODY_NODE_HAND); + effect eMissile = EffectVisualEffect(VFX_BEAM_EVIL); + effect eVis = EffectVisualEffect(VFX_IMP_MAGBLUE); + effect eDazed=EffectDazed(); + + effect eVis2 = EffectVisualEffect(VFX_IMP_DAZED_S); + + int nDC = PRCGetSaveDC(oTarget,OBJECT_SELF); + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_RAY_OF_ENFEEBLEMENT)); + //Limit missiles to 7 + if (nMissiles > 40) nMissiles = 40; + + //Make SR Check + if (!PRCDoResistSpell(OBJECT_SELF, oTarget,nPenetr)) + { + + //Roll damage + int nDam = d8(2); + //Enter Metamagic conditions + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDam = 16;//Damage is at max + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDam = nDam + nDam/2; //Damage/Healing is +50% + } + + fTime = fDelay; + fDelay2 += 0.1; + fTime += fDelay2; + + //Set damage effect + effect eDam = PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_MAGICAL); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eBolt, oTarget, 1.0,FALSE); + + if(MyPRCGetRacialType(oTarget) != RACIAL_TYPE_UNDEAD) + { + DelayCommand(fTime, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget)); + DelayCommand(fTime, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eVis, oTarget,0.0,FALSE)); + // DelayCommand(fDelay2, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eMissile, oTarget,1.0)); + } + + + //Make reflex save + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget,nDC)) + { + DelayCommand(fTime, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eVis, oTarget,6.0)); + + if(!GetIsImmune(oTarget,IMMUNITY_TYPE_MIND_SPELLS)) + { + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eDazed, oTarget,6.0)); + // FloatingTextStringOnCreature("no immune " , OBJECT_SELF, FALSE); + } + else + { + // FloatingTextStringOnCreature("immune " , OBJECT_SELF, FALSE); + + AssignCommand(oTarget,ClearAllActions(TRUE)); + AssignCommand(oTarget,ActionPlayAnimation(ANIMATION_LOOPING_PAUSE,1.0,6.0)); + DelayCommand(0.2,SetCommandable(FALSE,oTarget)); + DelayCommand(6.2,SetCommandable(TRUE,oTarget)); + } + } + } + nMissiles--; + if (nMissiles>0) + DelayCommand(6.2,DarkBolt( oTarget,nMissiles,nDC,nMetaMagic)); + + PRCSetSchool(); + +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_deep_slumber.ncs b/_haks/poa_exp_spells/sp_deep_slumber.ncs new file mode 100644 index 0000000..baa3905 Binary files /dev/null and b/_haks/poa_exp_spells/sp_deep_slumber.ncs differ diff --git a/_haks/poa_exp_spells/sp_deep_slumber.nss b/_haks/poa_exp_spells/sp_deep_slumber.nss new file mode 100644 index 0000000..3231014 --- /dev/null +++ b/_haks/poa_exp_spells/sp_deep_slumber.nss @@ -0,0 +1,161 @@ +//:://///////////////////////////////////////////// +//:: Name Deep Slumber +//:: FileName sp_deep_slumber.nss +//::////////////////////////////////////////////// +/**@file Deep Slumber +Enchantment (Compulsion) [Mind-Affecting] +Level: Brd 3, Sor/Wiz 3, Hexblade 3 +Range: Close (25 ft. + 5 ft./2 levels) +This spell functions like sleep, except that it affects 10 HD of creatures. + +**/ + +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_ENCHANTMENT); +/* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + + //Declare major variables + object oTarget; + object oLowest; + effect eImpact = EffectVisualEffect(VFX_FNF_LOS_NORMAL_20); + effect eSleep = EffectSleep(); + effect eMind = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_NEGATIVE); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eVis = EffectVisualEffect(VFX_IMP_SLEEP); + + effect eLink = EffectLinkEffects(eSleep, eMind); + eLink = EffectLinkEffects(eLink, eDur); + + // * Moved the linking for the ZZZZs into the later code + // * so that they won't appear if creature immune + + int bContinueLoop; + int nHD = 20; + int nMetaMagic = PRCGetMetaMagicFeat(); + int nCurrentHD; + int bAlreadyAffected; + int nMax = 19;// maximun hd creature affected + int nLow; + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + int nDuration = CasterLvl; + int nScaledDuration; + nDuration = 3 + nDuration; + int nPenetr = CasterLvl + SPGetPenetr(); + + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eImpact, PRCGetSpellTargetLocation()); + string sSpellLocal = "BIOWARE_SPELL_LOCAL_SLEEP_" + ObjectToString(OBJECT_SELF); + //Enter Metamagic conditions + + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nHD = nHD + (nHD/2); //Damage/Healing is +50% + } + if ((nMetaMagic & METAMAGIC_EXTEND)) + { + nDuration = nDuration *2; //Duration is +100% + } + nDuration += 2; + //Get the first target in the spell area + oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, PRCGetSpellTargetLocation()); + //If no valid targets exists ignore the loop + if (GetIsObjectValid(oTarget)) + { + bContinueLoop = TRUE; + } + // The above checks to see if there is at least one valid target. + while ((nHD > 0) && (bContinueLoop)) + { + nLow = nMax; + bContinueLoop = FALSE; + //Get the first creature in the spell area + oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, PRCGetSpellTargetLocation()); + while (GetIsObjectValid(oTarget)) + { + //Make faction check to ignore allies + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF) + && MyPRCGetRacialType(oTarget) != RACIAL_TYPE_CONSTRUCT + && MyPRCGetRacialType(oTarget) != RACIAL_TYPE_UNDEAD) + { + //Get the local variable off the target and determined if the spell has already checked them. + bAlreadyAffected = GetLocalInt(oTarget, sSpellLocal); + if (!bAlreadyAffected) + { + //Get the current HD of the target creature + nCurrentHD = GetHitDice(oTarget); + //Check to see if the HD are lower than the current Lowest HD stored and that the + //HD of the monster are lower than the number of HD left to use up. + if(nCurrentHD < nLow + && nCurrentHD <= nHD + && (nCurrentHD < 5 || GetPRCSwitch(PRC_SLEEP_NO_HD_CAP))) + { + nLow = nCurrentHD; + oLowest = oTarget; + bContinueLoop = TRUE; + } + } + } + //Get the next target in the shape + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, PRCGetSpellTargetLocation()); + } + //Check to see if oLowest returned a valid object + if(oLowest != OBJECT_INVALID) + { + //Fire cast spell at event for the specified target + SignalEvent(oLowest, EventSpellCastAt(OBJECT_SELF, SPELL_DEEP_SLUMBER)); + //Make SR check + if (!PRCDoResistSpell(OBJECT_SELF, oLowest,nPenetr)) + { + int nDC = PRCGetSaveDC(oTarget,OBJECT_SELF); + //Make Fort save + if(!PRCMySavingThrow(SAVING_THROW_WILL, oLowest, (nDC), SAVING_THROW_TYPE_MIND_SPELLS)) + { + //SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oLowest); + if (GetIsImmune(oLowest, IMMUNITY_TYPE_SLEEP) == FALSE) + { + effect eLink2 = EffectLinkEffects(eLink, eVis); + nScaledDuration = PRCGetScaledDuration(nDuration, oLowest); + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink2, oLowest, RoundsToSeconds(nScaledDuration)); + } + else + // * even though I am immune apply just the sleep effect for the immunity message + { + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eSleep, oLowest, RoundsToSeconds(nDuration),TRUE,-1,CasterLvl); + } + + } + } + } + //Set a local int to make sure the creature is not used twice in the pass. Destroy that variable in + //.3 seconds to remove it from the creature + SetLocalInt(oLowest, sSpellLocal, TRUE); + DelayCommand(0.5, SetLocalInt(oLowest, sSpellLocal, FALSE)); + DelayCommand(0.5, DeleteLocalInt(oLowest, sSpellLocal)); + //Remove the HD of the creature from the total + nHD = nHD - GetHitDice(oLowest); + oLowest = OBJECT_INVALID; + } + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the integer used to hold the spells spell school +} diff --git a/_haks/poa_exp_spells/sp_deflect.ncs b/_haks/poa_exp_spells/sp_deflect.ncs new file mode 100644 index 0000000..3d0bbc8 Binary files /dev/null and b/_haks/poa_exp_spells/sp_deflect.ncs differ diff --git a/_haks/poa_exp_spells/sp_deflect.nss b/_haks/poa_exp_spells/sp_deflect.nss new file mode 100644 index 0000000..e9ecdca --- /dev/null +++ b/_haks/poa_exp_spells/sp_deflect.nss @@ -0,0 +1,68 @@ +//:://///////////////////////////////////////////// +//:: Name Lesser Deflect +//:: FileName sp_deflect.nss +//::////////////////////////////////////////////// +/**@file Lesser Deflect +Abjuration [Force] +Level: Duskblade 1, sorcerer/wizard 1 +Components: V +Casting Time: 1 immediate action +Range: Personal +Duration: 1 round or until discharged + +You project a field of ivisible force, creating a +short-lived protective barrier. You gain a +deflection bonus to your AC against a single attack; +this bonus is equal to +1 per three caster levels +(maximum +5). + +**/ + +//:://///////////////////////////////////////////// +//:: Name Deflect +//:: FileName sp_deflect.nss +//::////////////////////////////////////////////// +/**@file Deflect +Abjuration [Force] +Level: Duskblade 2, sorcerer/wizard 2 +Components: V +Casting Time: 1 immediate action +Range: Personal +Duration: 1 round or until discharged + + +You project a field of ivisible force, creating a +short-lived protective barrier. You gain a +deflection bonus to your AC against a single attack; +this bonus is equal to 1/2 your caster level +(round down). + +**/ + +#include "prc_alterations" +#include "prc_inc_spells" + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_ABJURATION); + + object oPC = OBJECT_SELF; + float fDur = RoundsToSeconds(1); + int nCasterLvl = PRCGetCasterLevel(oPC); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nSpell = PRCGetSpellId(); + int nBonus = nSpell == SPELL_DEFLECT ? nCasterLvl/2: + min(20, (nCasterLvl/3)); + + PRCSignalSpellEvent(oPC, FALSE, nSpell, oPC); + + if(nMetaMagic & METAMAGIC_EXTEND) + fDur *= 2; + + effect eBonus = EffectACIncrease(AC_DEFLECTION_BONUS, nBonus); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eBonus, oPC, fDur); + + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_dispell_tch.ncs b/_haks/poa_exp_spells/sp_dispell_tch.ncs new file mode 100644 index 0000000..ffe5307 Binary files /dev/null and b/_haks/poa_exp_spells/sp_dispell_tch.ncs differ diff --git a/_haks/poa_exp_spells/sp_dispell_tch.nss b/_haks/poa_exp_spells/sp_dispell_tch.nss new file mode 100644 index 0000000..811faed --- /dev/null +++ b/_haks/poa_exp_spells/sp_dispell_tch.nss @@ -0,0 +1,95 @@ +//:://///////////////////////////////////////////// +//:: Name Dispelling Touch +//:: FileName sp_dispell_tch.nss +//::////////////////////////////////////////////// +/**@file Dispelling Touch +Abjuration +Level: Duskblade 3, sorcerer/wizard 2 +Components: V,S +Casting Time: 1 standard action +Range: Touch +Target: One touched creature, object, or spell + effect +Duration: Instantaneous +Saving Throw: None +Spell Resistance: No + +You can use dispelling touch to end an ongoing +spell that has been cast on a creature or object, +or a spell tha has a noticeable ongoing effect. You +mkae a dispel check (1d20 + your caster level, max ++10) against the spell effect with the highest +caster level. If that check fails, you make dispel +checks against progressively weaker spells until +you dispel one spell or you fail all your checks. +Magic items carried by a creature are not affected. +**/ + +/* + PRC_SPELL_EVENT_ATTACK is set when a + touch or ranged attack is used + +*/ + +#include "inc_dispel" +#include "prc_inc_sp_tch" +#include "prc_sp_func" + +//Implements the spell impact, put code here +// if called in many places, return TRUE if +// stored charges should be decreased +// eg. touch attack hits +// +// Variables passed may be changed if necessary +int DoSpell(object oCaster, object oTarget, int nCasterLevel, int nEvent) +{ + int iTypeDispel = GetLocalInt(GetModule(),"BIODispel"); + // Dispel Magic is capped at caster level 10 + if(nCasterLevel > 20) + nCasterLevel = 20; + + effect eVis = EffectVisualEffect(VFX_IMP_BREACH); + effect eImpact = EffectVisualEffect(VFX_FNF_DISPEL); + + int iAttackRoll = PRCDoMeleeTouchAttack(oTarget); + if(iAttackRoll) + { + if(GetIsObjectValid(oTarget)) + { + if(iTypeDispel) + spellsDispelMagic(oTarget, nCasterLevel, eVis, eImpact); + else + spellsDispelMagicMod(oTarget, nCasterLevel, eVis, eImpact); + } + } + + return iAttackRoll; //return TRUE if spell charges should be decremented +} + +void main() +{ + if(!X2PreSpellCastCode()) return; + PRCSetSchool(SPELL_SCHOOL_ABJURATION); + object oCaster = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nCasterLevel = PRCGetCasterLevel(oCaster); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if(GetLocalInt(oCaster, PRC_SPELL_HOLD) && oCaster == oTarget) + { //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + DoSpell(oCaster, oTarget, nCasterLevel, nEvent); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel, nEvent)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_disrpt_undead.ncs b/_haks/poa_exp_spells/sp_disrpt_undead.ncs new file mode 100644 index 0000000..7b66d10 Binary files /dev/null and b/_haks/poa_exp_spells/sp_disrpt_undead.ncs differ diff --git a/_haks/poa_exp_spells/sp_disrpt_undead.nss b/_haks/poa_exp_spells/sp_disrpt_undead.nss new file mode 100644 index 0000000..5a0cd5b --- /dev/null +++ b/_haks/poa_exp_spells/sp_disrpt_undead.nss @@ -0,0 +1,127 @@ +//:://///////////////////////////////////////////// +//:: Name Disrupt Undead/Greater Disrupt Undead +//:: FileName sp_disrpt_undead.nss +//::////////////////////////////////////////////// +/**@file Disrupt Undead +Necromancy +Level: Sor/Wiz 0 +Components: V, S +Casting Time: 1 standard action +Range: Close (25 ft. + 5 ft./2 levels) +Effect: Ray +Duration: Instantaneous +Saving Throw: None +Spell Resistance: Yes + +You direct a ray of positive energy. You must make a +ranged touch attack to hit, and if the ray hits an +undead creature, it deals 1d6 points of damage to it. + +Greater Disrupt Undead +Necromancy +Level: Sorcerer/wizard 3 +Components: V, S +Casting Time: 1 standard action +Range: Close (25 ft. + 5 ft./2 levels) +Effect: Ray +Duration: Instantaneous +Saving Throw: None +Spell Resistance: Yes + +You must succeed on a ranged touch attack with the ray +to strike a target. This spell functions like disrupt +undead (PH 223), except that this ray deals 1d8 points +of damage per caster level to any undead, to a maximum +of 10d8. If the damage is sufficient to destroy the +first target, then you can redirect the ray to another +undead target within 15 feet of the first target. If +you make a successful ranged touch attack on the second +target, that target takes half of the damage rolled for +the first target. + +Author: Tenjac +Created: 7/6/07 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_sp_tch" + +void main() +{ + object oPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nSpell = GetSpellId(); + int nCasterLvl = PRCGetCasterLevel(oPC); + int nBeam; + int nDam; + int nMetaMagic = PRCGetMetaMagicFeat(); + int nTouch = PRCDoRangedTouchAttack(oTarget); + int nType = MyPRCGetRacialType(oTarget); + + if(nSpell == SPELL_DISRUPT_UNDEAD) + { + nBeam = VFX_BEAM_HOLY; + nDam = d6(1)+ (nCasterLvl/4); + + if(nMetaMagic & METAMAGIC_MAXIMIZE) nDam = 6+(nCasterLvl/4); + } + + if(nSpell == SPELL_GREATER_DISRUPT_UNDEAD) + { + nBeam = VFX_BEAM_BLACK; + nDam = d6(3)+ (nCasterLvl/3); + + if(nMetaMagic & METAMAGIC_MAXIMIZE) nDam = 18+ (nCasterLvl/3); + } + + if(nMetaMagic & METAMAGIC_EMPOWER) nDam += (nDam/2); + + //Beam that acts accordingly + effect eVis = EffectBeam(nBeam, oPC, BODY_NODE_HAND, !nTouch); + + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + + if(nTouch) + { + if(nType == RACIAL_TYPE_UNDEAD + || (GetHasFeat(FEAT_TOMB_TAINTED_SOUL, oTarget) && GetAlignmentGoodEvil(oTarget) != ALIGNMENT_GOOD)) + { + if(!PRCDoResistSpell(oPC, oTarget, nCasterLvl + SPGetPenetr())) + { + if(nSpell == SPELL_GREATER_DISRUPT_UNDEAD) + { + //Get hp before damage + int nHP = GetCurrentHitPoints(oTarget); + + //Apply Damage + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_POSITIVE), oTarget); + + //if enough to kill target, bounce + if(nDam >= nHP) + { + location lLoc = GetLocation(oTarget); + object oTarget2 = MyFirstObjectInShape(SHAPE_SPHERE, FeetToMeters(15.0), lLoc, TRUE); + + while(GetIsObjectValid(oTarget2)) + { + //Undead, enemy, and not the original target + if((GetRacialType(oTarget2) == RACIAL_TYPE_UNDEAD || (GetHasFeat(FEAT_TOMB_TAINTED_SOUL, oTarget2) && GetAlignmentGoodEvil(oTarget2) != ALIGNMENT_GOOD) + && GetIsEnemy(oTarget2, oPC) && (oTarget != oTarget2))) + { + //Black beam, origin chest of previous target + ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectBeam(VFX_BEAM_BLACK, oTarget, BODY_NODE_CHEST), oTarget2); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam/2, DAMAGE_TYPE_POSITIVE), oTarget2); + break; + } + + oTarget2 = MyNextObjectInShape(SHAPE_SPHERE, FeetToMeters(15.0), lLoc, TRUE); + } + } + } + else SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_POSITIVE), oTarget); + } + } + } + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_divprot.ncs b/_haks/poa_exp_spells/sp_divprot.ncs new file mode 100644 index 0000000..4a3a443 Binary files /dev/null and b/_haks/poa_exp_spells/sp_divprot.ncs differ diff --git a/_haks/poa_exp_spells/sp_divprot.nss b/_haks/poa_exp_spells/sp_divprot.nss new file mode 100644 index 0000000..30b1822 --- /dev/null +++ b/_haks/poa_exp_spells/sp_divprot.nss @@ -0,0 +1,55 @@ +///////////////////////////////////////////////////////////////////// +// +// Divine Protection - +1 to AC and saves to allies in a huge burst. +// +///////////////////////////////////////////////////////////////////// + +#include "prc_inc_spells" + +void main() +{ + PRCSetSchool(SPELL_SCHOOL_ENCHANTMENT); + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + if (!X2PreSpellCastCode()) return; + + // Get the spell target location as opposed to the spell target. + location lTarget = PRCGetSpellTargetLocation(); + + // Get the effective caster level. + int nCasterLvl = PRCGetCasterLevel(OBJECT_SELF); + + // Determine the save bonus. + int nBonus = 2 + (nCasterLvl / 6); + if (nBonus > 5) nBonus = 5; + + // Determine the spell's duration, taking metamagic feats into account. + float fDuration = PRCGetMetaMagicDuration(MinutesToSeconds(nCasterLvl)); + + // Declare the spell shape, size and the location. Capture the first target object in the shape. + // Cycle through the targets within the spell shape until an invalid object is captured. + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget, TRUE, OBJECT_TYPE_CREATURE); + while (GetIsObjectValid(oTarget)) + { + if (spellsIsTarget(oTarget, SPELL_TARGET_ALLALLIES, OBJECT_SELF)) + { + //Fire cast spell at event for the specified target + PRCSignalSpellEvent(oTarget, FALSE); + + PRCRemoveSpellEffects(GetSpellId(), OBJECT_SELF, oTarget); + + float fDelay = PRCGetSpellEffectDelay(lTarget, oTarget); + + // Apply the curse and vfx. + effect eCurse = EffectSavingThrowIncrease(SAVING_THROW_ALL, 1); + eCurse = EffectLinkEffects(eCurse, EffectACIncrease(1)); + eCurse = EffectLinkEffects(eCurse, EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE)); + eCurse = EffectLinkEffects(eCurse, EffectVisualEffect(VFX_DUR_PROTECTION_GOOD_MINOR)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eCurse, oTarget, fDuration,TRUE,-1,nCasterLvl)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_AC_BONUS), oTarget)); + } + + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget, TRUE, OBJECT_TYPE_CREATURE); + } + + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/sp_dmnd_spray.ncs b/_haks/poa_exp_spells/sp_dmnd_spray.ncs new file mode 100644 index 0000000..92df949 Binary files /dev/null and b/_haks/poa_exp_spells/sp_dmnd_spray.ncs differ diff --git a/_haks/poa_exp_spells/sp_dmnd_spray.nss b/_haks/poa_exp_spells/sp_dmnd_spray.nss new file mode 100644 index 0000000..d113e56 --- /dev/null +++ b/_haks/poa_exp_spells/sp_dmnd_spray.nss @@ -0,0 +1,101 @@ +//:://///////////////////////////////////////////// +//:: Name Diamond Spray +//:: FileName sp_dmnd_spray +//::////////////////////////////////////////////// +/**@file Diamond Spray +Evocation [Good] +Level: Sanctified 4 +Components: V, S, M +Casting Time: 1 standard action +Range: 60 ft. +Area: Cone-shaped burst +Duration: Instantaneous +Saving Throw: Reflex half +Spell Resistance: Yes + +A blast of diamond-like shards springs from your +hand and extends outward in a glittering cone. The +cone dazzles evil creatures in the area for 2d6 +rounds. The spell also deals 1d6 points of damage +per caster level (maximum 10d6). The damage +affects only evil creatures. A successful Reflex +save reduces the damage by half but does not +negate the dazzling effect. + +Material Component: Diamond dust worth at least 100 gp. + +Author: Tenjac +Created: 6/11/06 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + object oPC = OBJECT_SELF; + int nCasterLvl = PRCGetCasterLevel(oPC); + int nDC; + int nMetaMagic = PRCGetMetaMagicFeat(); + location lLoc = PRCGetSpellTargetLocation(); + object oTarget = MyFirstObjectInShape(SHAPE_SPELLCONE, 18.28f, lLoc, TRUE, OBJECT_TYPE_CREATURE); + float fDur = RoundsToSeconds(d6(2)); + + //make sure it's not the PC + if(oTarget == oPC) + { + oTarget = MyNextObjectInShape(SHAPE_SPELLCONE, 18.28f, lLoc, TRUE, OBJECT_TYPE_CREATURE); + } + + while(GetIsObjectValid(oTarget)) + { + if(!PRCDoResistSpell(oPC, oTarget, nCasterLvl + SPGetPenetr())) + { + int nDam = d6(min(nCasterLvl,40)); + + if(nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 6 * (min(nCasterLvl, 40)); + } + if(nMetaMagic & METAMAGIC_EMPOWER) + { + nDam += (nDam/2); + } + if(nMetaMagic & METAMAGIC_EXTEND) + { + fDur += fDur; + } + + if(GetAlignmentGoodEvil(oTarget) == ALIGNMENT_EVIL) + { + nDC = PRCGetSaveDC(oTarget, oPC); + + if(PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, nDC)) + { + nDam = nDam/2; + } + + //Apply appropriate damage + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_MAGICAL), oTarget); + + //Dazzled = -1 to Attack, Spot, and search + effect eDazzle = EffectLinkEffects(EffectDazzle(), EffectVisualEffect(VFX_DUR_MIND_AFFECTING_NEGATIVE)); + + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eDazzle, oTarget, fDur); + } + } + oTarget = MyNextObjectInShape(SHAPE_SPELLCONE, 18.28f, lLoc, TRUE, OBJECT_TYPE_CREATURE); + } + + //Sanctified spells get mandatory 10 pt good adjustment, regardless of switch + AdjustAlignment(oPC, ALIGNMENT_GOOD, 10, FALSE); + + //SPGoodShift(oPC); + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_doom_scarab.ncs b/_haks/poa_exp_spells/sp_doom_scarab.ncs new file mode 100644 index 0000000..e38c517 Binary files /dev/null and b/_haks/poa_exp_spells/sp_doom_scarab.ncs differ diff --git a/_haks/poa_exp_spells/sp_doom_scarab.nss b/_haks/poa_exp_spells/sp_doom_scarab.nss new file mode 100644 index 0000000..81ec381 --- /dev/null +++ b/_haks/poa_exp_spells/sp_doom_scarab.nss @@ -0,0 +1,108 @@ +//:://///////////////////////////////////////////// +//:: Name Doom Scarabs +//:: FileName sp_doom_scarab.nss +//::////////////////////////////////////////////// +/**@file Doom Scarabs +Conjuration/Necromancy +Level: Duskblade 3, sorcerer/wizard 4 +Components: V,S +Casting Time: 1 standard action +Range: 60ft +Area: Cone-shaped burst +Duration: Instantaneous +Saving Throw: Will half +Spell Resistance: See text + +This spell has two effects. It deals 1d6 points of +damage per two caster levels (maximum 10d6) to all +creatures in the area. Spell resistance does not +apply to this damage. However, spell resistance +does apply to the spell's secondary effect. If you +ovecome a creature's spell resistance, you gain 1d4 +temporary hit points as the scarabs feast on the +creature's arcane energy and bleed it back into you. +You gain these temporary hit points for each creature +whose spell resistance you overcome. You never gain +temporary hit points from creatures that do not have +spell resistance. + +The temporary hit points gained from this spell last +for up to 1 hour. + +**/ + +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_NECROMANCY); + + object oPC = OBJECT_SELF; + location lLoc = PRCGetSpellTargetLocation(); + object oTarget = MyFirstObjectInShape(SHAPE_SPELLCONE, 18.29f, lLoc, TRUE, OBJECT_TYPE_CREATURE); + int nCasterLvl = PRCGetCasterLevel(oPC); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nBonusDice; + int nDam; + int nDC; + float fDur = HoursToSeconds(1); + + //don't target the caster moron + if(oTarget == oPC) + { + oTarget = MyNextObjectInShape(SHAPE_SPELLCONE, 18.29f, lLoc, TRUE, OBJECT_TYPE_CREATURE); + } + + if(nMetaMagic & METAMAGIC_EXTEND) + { + fDur += fDur; + } + + while(GetIsObjectValid(oTarget)) + { + nDam = d6(min(nCasterLvl/2, 40)); + nDC = PRCGetSaveDC(oTarget, oPC); + + if(nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 6 * (min(nCasterLvl/2, 40)); + } + + if(nMetaMagic & METAMAGIC_EMPOWER) + { + nDam += (nDam/2); + } + + if(PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_SPELL)) + { + nDam = (nDam/2); + + if(GetHasMettle(oTarget, SAVING_THROW_WILL)) + { + PRCSetSchool(); + return; + } + } + + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_MAGICAL), oTarget); + + if(!PRCDoResistSpell(oPC, oTarget, nCasterLvl + SPGetPenetr())) + { + nBonusDice++; + } + + oTarget = MyNextObjectInShape(SHAPE_SPELLCONE, 18.29f, lLoc, TRUE, OBJECT_TYPE_CREATURE); + } + + effect eBonus = EffectTemporaryHitpoints(d4(nBonusDice)); + + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eBonus, oPC, fDur); + + PRCSetSchool(); +} + + + \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_elemstrike.ncs b/_haks/poa_exp_spells/sp_elemstrike.ncs new file mode 100644 index 0000000..d0d4f5a Binary files /dev/null and b/_haks/poa_exp_spells/sp_elemstrike.ncs differ diff --git a/_haks/poa_exp_spells/sp_elemstrike.nss b/_haks/poa_exp_spells/sp_elemstrike.nss new file mode 100644 index 0000000..a0d1f18 --- /dev/null +++ b/_haks/poa_exp_spells/sp_elemstrike.nss @@ -0,0 +1,149 @@ +//:://///////////////////////////////////////////// +//:: Elemental Strike +//:: sp_elemstrike.nss +//::////////////////////////////////////////////// +/* +Evocation [see text] +Level: Clr 5, Drd 4, Fiery Wrath 5, Tmp 5 +Components: V, S, DF +Casting Time: 1 standard action +Range: Medium (100 ft. + 10 ft./level) +Area: Cylinder (10-ft. radius, 40 ft. high) +Duration: Instantaneous +Saving Throw: Reflex half +Spell Resistance: Yes + +A column of divine and elemental energy shoots downward +from the point you designate, striking those caught +beneath it with the fury of your element. + +An elemental strike produces a vertical column. The +spell deals 1d6 points of damage per caster level +(maximum 15d6). Half the damage is energy damage, but +the other half results directly from divine power and is +therefore not subject to being reduced by resistance to +energy–based attacks. The type of energy damage, as well +as the energy descriptor of the spell, is chosen at the time +of casting. Clerics must choose the energy type that +corresponds to their patron element. + +Air: Sonic +Earth: Acid +Fire: Fire +Magma: Fire +Rain: Electricity +Silt: Acid +Sun: Fire +Water: Cold + +This spell’s subtype is the same as the type of energy +you cast. + +Note: This spell replaces the flame strike spell from the +Player’s Handbook. +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void main() +{ + if (!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + //Declare major variables + object oCaster = OBJECT_SELF; + location lTarget = PRCGetSpellTargetLocation(); + int nSpellID = PRCGetSpellId(); + int nCasterLvl = PRCGetCasterLevel(oCaster); + int nDice = min(40, nCasterLvl); + int nPenter = nCasterLvl + SPGetPenetr(); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDamageType, nImpVfx, nDamage, nDamage2; + effect eStrike; + + switch(nSpellID) + { + case SPELL_ELEMENTAL_STRIKE_ACID:{ + nDamageType = DAMAGE_TYPE_ACID; + nImpVfx = VFX_IMP_ACID_S; + eStrike = EffectVisualEffect(VFX_IMP_DIVINE_STRIKE_ACID); + break;} + case SPELL_ELEMENTAL_STRIKE_COLD:{ + nDamageType = DAMAGE_TYPE_COLD; + nImpVfx = VFX_IMP_FROST_S; + eStrike = EffectVisualEffect(VFX_IMP_DIVINE_STRIKE_COLD); + break;} + case SPELL_ELEMENTAL_STRIKE_ELECRICITY:{ + nDamageType = DAMAGE_TYPE_ELECTRICAL; + nImpVfx = VFX_IMP_LIGHTNING_S; + eStrike = EffectVisualEffect(VFX_IMP_LIGHTNING_M); + break;} + case SPELL_ELEMENTAL_STRIKE_SONIC:{ + nDamageType = DAMAGE_TYPE_SONIC; + nImpVfx = VFX_IMP_SONIC; + eStrike = EffectVisualEffect(VFX_IMP_DIVINE_STRIKE_SONIC); + break;} + default:{ + nDamageType = DAMAGE_TYPE_FIRE; + nImpVfx = VFX_IMP_FLAME_S; + eStrike = EffectVisualEffect(VFX_IMP_DIVINE_STRIKE_FIRE); + break;} + } + + int EleDmg = ChangedElementalDamage(oCaster, nDamageType); + int nSaveType = ChangedSaveType(EleDmg); + effect eVis = EffectVisualEffect(nImpVfx); + effect eHoly; + effect eElem; + + //Declare the spell shape, size and the location. Capture the first target object in the shape. + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_MEDIUM, lTarget, FALSE, OBJECT_TYPE_CREATURE|OBJECT_TYPE_PLACEABLE|OBJECT_TYPE_DOOR); + //Apply the location impact visual to the caster location instead of caster target creature. + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eStrike, lTarget); + //Cycle through the targets within the spell shape until an invalid object is captured. + while(GetIsObjectValid(oTarget)) + { + if(spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, oCaster)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oCaster, nSpellID)); + //Make SR check, and appropriate saving throw(s). + if(!PRCDoResistSpell(oCaster, oTarget, nPenter, 0.6)) + { + int nDC = PRCGetSaveDC(oTarget, oCaster); + nDamage = d6(nDice); + if(nMetaMagic & METAMAGIC_MAXIMIZE) + nDamage = 6 * nDice; + if(nMetaMagic & METAMAGIC_EMPOWER) + nDamage += (nDamage/2); + // Acid Sheath adds +1 damage per die to acid descriptor spells + if (GetHasDescriptor(nSpellID, DESCRIPTOR_ACID) && GetHasSpellEffect(SPELL_MESTILS_ACID_SHEATH, oCaster)) + nDamage += nDice; + //Adjust the damage based on Reflex Save, Evasion and Improved Evasion + nDamage2 = PRCGetReflexAdjustedDamage(nDamage/2, oTarget, (nDC), SAVING_THROW_TYPE_DIVINE); + nDamage = PRCGetReflexAdjustedDamage(nDamage/2, oTarget, (nDC), nSaveType); + //Make a faction check so that only enemies receieve the full brunt of the damage. + if(!GetIsFriend(oTarget)) + { + eHoly = PRCEffectDamage(oTarget, nDamage2, DAMAGE_TYPE_DIVINE); + DelayCommand(0.6, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eHoly, oTarget)); + } + // Apply effects to the currently selected target. + eElem = PRCEffectDamage(oTarget, nDamage, EleDmg); + if(nDamage > 0) + { + DelayCommand(0.6, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eElem, oTarget)); + DelayCommand(0.6, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + } + //Select the next target within the spell shape. + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_MEDIUM, lTarget, FALSE, OBJECT_TYPE_CREATURE|OBJECT_TYPE_PLACEABLE|OBJECT_TYPE_DOOR); + } + + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/sp_energz_ptn.ncs b/_haks/poa_exp_spells/sp_energz_ptn.ncs new file mode 100644 index 0000000..2ecc4b3 Binary files /dev/null and b/_haks/poa_exp_spells/sp_energz_ptn.ncs differ diff --git a/_haks/poa_exp_spells/sp_energz_ptn.nss b/_haks/poa_exp_spells/sp_energz_ptn.nss new file mode 100644 index 0000000..a70c31a --- /dev/null +++ b/_haks/poa_exp_spells/sp_energz_ptn.nss @@ -0,0 +1,145 @@ +//:://///////////////////////////////////////////// +//:: Name Energize Potion +//:: FileName sp_energz_ptn.nss +//::////////////////////////////////////////////// +/**@file Energize Potion +Transmutation +Level: Cleric 3, druid 3, sorc/wizard 2, Wrath 2 +Components: V,S,M +Casting Time: 1 standard action +Range: Close +Effect: 10ft radius +Duration: Instantaneous +Saving Throw: Reflex half +Spell Resistance: Yes + +This spell transforms a magic potion into a volatile +substance that can be hurled out to the specified +range. The spell destroys the potion and releases +a 10-foot-radius burst of energy at the point of +impact. The caster must specify the energy type +(acid, cold, electricity, fire, or sonic) when the +spell is cast. + +The potion deals 1d6 points of damage (of the +appropriate energy type) per spell level of the +potion (maximum 3d6). For example, a potion of +displacement transformed by this spell deals 3d6 +points of damage. An energized potion set to deal +fire damage ignites combustibles within the burst +radius. + +Author: Tenjac +Created: 7/6/06 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_TRANSMUTATION); + object oPC = OBJECT_SELF; + object oPotion = PRCGetSpellTargetObject(); + int nSpell = PRCGetSpellId(); + int nCasterLvl = PRCGetCasterLevel(oPC); + int nDC = GetSpellSaveDC(); + string sDamageType; + + if(GetBaseItemType(oPotion) != BASE_ITEM_POTIONS) + { + FloatingTextStringOnCreature("Invalid item type.", oPC, FALSE); + return; + } + + //Get spell level + int nLevel = 0; //define it outside the loop + itemproperty ipTest = GetFirstItemProperty(oPotion); + + while(GetIsItemPropertyValid(ipTest)) + { + if(GetItemPropertyType(ipTest) == ITEM_PROPERTY_CAST_SPELL) + { + //Get row + int nRow = GetItemPropertySubType(ipTest); + + //Get spell level + nLevel = StringToInt(Get2DACache("iprp_spells", "InnateLvl", nRow)); + if(DEBUG) DoDebug("Spell level read as: " + IntToString(nLevel)); + + //no need to check rest of the ips + break; + } + ipTest = GetNextItemProperty(oPotion); + } + + //Remove potion being converted + int nStack = GetItemStackSize(oPotion); + + if(nStack > 1) SetItemStackSize(oPotion, (nStack - 1)); + + else DestroyObject(oPotion); + + //Create the grenade + object oGrenade = CreateItemOnObject("prc_it_enrgpot", oPC, 1); + + if(nSpell == SPELL_ENERGIZE_POTION_ACID) + { + SetLocalInt(oGrenade, "PRC_GrenadeDamageType", DAMAGE_TYPE_ACID); + SetLocalInt(oGrenade, "PRC_EnergizedPotionSave", SAVING_THROW_TYPE_ACID); + sDamageType = "Acid"; + } + + else if(nSpell == SPELL_ENERGIZE_POTION_COLD) + { + SetLocalInt(oGrenade, "PRC_GrenadeDamageType", DAMAGE_TYPE_COLD); + SetLocalInt(oGrenade, "PRC_EnergizedPotionSave", SAVING_THROW_TYPE_COLD); + sDamageType = "Cold"; + } + + else if(nSpell == SPELL_ENERGIZE_POTION_ELECTRICITY) + { + SetLocalInt(oGrenade, "PRC_GrenadeDamageType", DAMAGE_TYPE_ELECTRICAL); + SetLocalInt(oGrenade, "PRC_EnergizedPotionSave", SAVING_THROW_TYPE_ELECTRICITY); + sDamageType = "Electrical"; + } + + else if(nSpell == SPELL_ENERGIZE_POTION_FIRE) + { + SetLocalInt(oGrenade, "PRC_GrenadeDamageType", DAMAGE_TYPE_FIRE); + SetLocalInt(oGrenade, "PRC_EnergizedPotionSave", SAVING_THROW_TYPE_FIRE); + sDamageType = "Fire"; + } + + else if(nSpell == SPELL_ENERGIZE_POTION_SONIC) + { + SetLocalInt(oGrenade, "PRC_GrenadeDamageType", DAMAGE_TYPE_SONIC); + SetLocalInt(oGrenade, "PRC_EnergizedPotionSave", SAVING_THROW_TYPE_SONIC); + sDamageType = "Sonic"; + } + nLevel = min(20, nLevel); + SetLocalInt(oGrenade, "PRC_GrenadeLevel", nLevel); + SetLocalInt(oGrenade, "PRC_EnPotSaveDC", nDC); + + string sStrength; + + //Get strength string + switch(nLevel) + { + case 0: break; + + case 1: sStrength = "Weak"; + break; + case 2: sStrength = "Moderate"; + break; + case 3: sStrength = "Strong"; + break; + } + + SetName(oGrenade, sStrength + " " + "Energized" + " " + sDamageType + " " + "Potion"); + + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_exalt_fury.ncs b/_haks/poa_exp_spells/sp_exalt_fury.ncs new file mode 100644 index 0000000..6508f1a Binary files /dev/null and b/_haks/poa_exp_spells/sp_exalt_fury.ncs differ diff --git a/_haks/poa_exp_spells/sp_exalt_fury.nss b/_haks/poa_exp_spells/sp_exalt_fury.nss new file mode 100644 index 0000000..2520c35 --- /dev/null +++ b/_haks/poa_exp_spells/sp_exalt_fury.nss @@ -0,0 +1,83 @@ +//:://///////////////////////////////////////////// +//:: Name Exalted Fury +//:: FileName sp_exalt_fury.nss +//::////////////////////////////////////////////// +/**@file Exalted Fury +Evocation [Good] +Level: Sanctified 9 +Components: V, Sacrifice +Casting Time: 1 standard action +Range: 40 ft. +Area: 40-ft. radius burst, centered on you +Duration: Instantaneous +Saving Throw: None +Spell Resistance: Yes + +Uttering a single, awesomely powerful syllable of +the Words of Creation, your body erupts in the same +holy power that shaped the universe at its birth. +All evil creatures within the area take damage equal +to your current hit points +50. + +Sacrifice: You die. You can be raised or resurrected +normally. + +Author: Tenjac +Created: +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + object oPC = OBJECT_SELF; + int nMetaMagic = PRCGetMetaMagicFeat(); + location lLoc = PRCGetSpellTargetLocation(); + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, 12.19f, lLoc, TRUE, OBJECT_TYPE_CREATURE); + effect eVisLink = EffectLinkEffects(EffectVisualEffect(VFX_FNF_STRIKE_HOLY), EffectVisualEffect(VFX_FNF_SCREEN_BUMP)); + eVisLink = EffectLinkEffects(eVisLink, EffectVisualEffect(VFX_FNF_SUNBEAM)); + int nCasterLvl = PRCGetCasterLevel(oPC); + + //Damage = Hitpoints + 50 + int nDam = (GetCurrentHitPoints(oPC) + 50 + nCasterLvl); + + if(nMetaMagic & METAMAGIC_EMPOWER) + { + nDam += (nDam/2); + } + + //You die, make it spectacular + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVisLink, oPC); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectDeath(TRUE), oPC); + + //Loop + while(GetIsObjectValid(oTarget)) + { + //only looking for evil + if(GetAlignmentGoodEvil(oTarget) == ALIGNMENT_EVIL) + { + //SR + if(!PRCDoResistSpell(OBJECT_SELF, oTarget, nCasterLvl + SPGetPenetr())) + { + //Hit 'em + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_MAGICAL), oTarget); + } + } + + //cycle + oTarget = MyNextObjectInShape(SHAPE_SPHERE, 12.19f, lLoc, TRUE, OBJECT_TYPE_CREATURE); + } + + //Sanctified spells get mandatory 10 pt good adjustment, regardless of switch + AdjustAlignment(oPC, ALIGNMENT_GOOD, 10, FALSE); + + //SPGoodShift(oPC); + + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_exaltd_raim.ncs b/_haks/poa_exp_spells/sp_exaltd_raim.ncs new file mode 100644 index 0000000..f86e236 Binary files /dev/null and b/_haks/poa_exp_spells/sp_exaltd_raim.ncs differ diff --git a/_haks/poa_exp_spells/sp_exaltd_raim.nss b/_haks/poa_exp_spells/sp_exaltd_raim.nss new file mode 100644 index 0000000..f6e822f --- /dev/null +++ b/_haks/poa_exp_spells/sp_exaltd_raim.nss @@ -0,0 +1,140 @@ +//:://///////////////////////////////////////////// +//:: Name Exalted Raiment +//:: FileName sp_exaltd_raim.nss +//::////////////////////////////////////////////// +/**@file Exalted Raiment +Abjuration +Level: Sanctified 6 +Components: V, DF, Sacrifice +Casting Time: 1 standard action +Range: Touch +Target: Robe, garment, or outfit touched +Duration: 1 minute/level +Saving Throw: Will negates (harmless, object) +Spell Resistance: Yes (harmless, object) + +You imbue a robe, priestly garment, or outfit of +regular clothing with divine power. The spell bestows +the following effects for the duration: + + - +1 sacred bonus to AC per five caster levels + (max +4 at 20th level) + + - Damage reduction 10/evil + + - Spell resistance 5 + 1/caster level (max SR 25 + at 20th level + + - Reduces ability damage due to spell casting by 1, + to a minimum of 1 point (but does not reduce the + sacrifice cost of this spell). + + Sacrifice: 1d4 points of Strength damage + +Author: Tenjac +Created: 6/28/06 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + + + +#include "prc_inc_spells" +#include "prc_ip_srcost.nss" + +int GetERSpellResistance(int nCasterLvl) +{ + int nSRBonus = min(nCasterLvl, 20); + int nIPConst; + + switch(nSRBonus) + { + case 0: break; + case 1: nIPConst = IP_CONST_SPELLRESISTANCEBONUS_6; break; + case 2: nIPConst = IP_CONST_SPELLRESISTANCEBONUS_7; break; + case 3: nIPConst = IP_CONST_SPELLRESISTANCEBONUS_8; break; + case 4: nIPConst = IP_CONST_SPELLRESISTANCEBONUS_9; break; + case 5: nIPConst = IP_CONST_SPELLRESISTANCEBONUS_10; break; + case 6: nIPConst = IP_CONST_SPELLRESISTANCEBONUS_11; break; + case 7: nIPConst = IP_CONST_SPELLRESISTANCEBONUS_12; break; + case 8: nIPConst = IP_CONST_SPELLRESISTANCEBONUS_13; break; + case 9: nIPConst = IP_CONST_SPELLRESISTANCEBONUS_14; break; + case 10: nIPConst = IP_CONST_SPELLRESISTANCEBONUS_15; break; + case 11: nIPConst = IP_CONST_SPELLRESISTANCEBONUS_16; break; + case 12: nIPConst = IP_CONST_SPELLRESISTANCEBONUS_17; break; + case 13: nIPConst = IP_CONST_SPELLRESISTANCEBONUS_18; break; + case 14: nIPConst = IP_CONST_SPELLRESISTANCEBONUS_19; break; + case 15: nIPConst = IP_CONST_SPELLRESISTANCEBONUS_20; break; + case 16: nIPConst = IP_CONST_SPELLRESISTANCEBONUS_21; break; + case 17: nIPConst = IP_CONST_SPELLRESISTANCEBONUS_22; break; + case 18: nIPConst = IP_CONST_SPELLRESISTANCEBONUS_23; break; + case 19: nIPConst = IP_CONST_SPELLRESISTANCEBONUS_24; break; + case 20: nIPConst = IP_CONST_SPELLRESISTANCEBONUS_25; break; + } + + return nIPConst; +} + +void main() +{ + object oPC = OBJECT_SELF; + object oMyArmor = IPGetTargetedOrEquippedArmor(FALSE); + int nCasterLvl = PRCGetCasterLevel(oPC); + int nSR = GetERSpellResistance(nCasterLvl); + int nArmor = min(nCasterLvl / 5, 8); + float fDur = (60.0f * nCasterLvl); + int nMetaMagic = PRCGetMetaMagicFeat(); + + if(nMetaMagic & METAMAGIC_EXTEND) + { + fDur += fDur; + } + + //check to make sure it has no AC + int nBaseAC = GetBaseAC(oMyArmor); + int nBonusAC = GetACBonus(oMyArmor); + int nLevel = GetLevelByClass(CLASS_TYPE_ABJURANT_CHAMPION); + + if(nLevel > 0) + { + nBonusAC += nLevel; + } + + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE); + itemproperty ipArmor = ItemPropertyACBonus(nBonusAC += nArmor); + itemproperty ipDR = ItemPropertyDamageReduction(IP_CONST_DAMAGEREDUCTION_2, IP_CONST_DAMAGESOAK_10_HP); + itemproperty ipSR = ItemPropertyBonusSpellResistance(nSR); + + //object is valid but has no AC value (clothes, robes, etc). + if((GetIsObjectValid(oMyArmor))) + { + if(nBaseAC < 1) + { + ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_SUPER_HEROISM), oPC); + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eDur, oMyArmor, fDur); + IPSafeAddItemProperty(oMyArmor, ipArmor, fDur); + IPSafeAddItemProperty(oMyArmor, ipDR, fDur); + IPSafeAddItemProperty(oMyArmor, ipSR, fDur); + //SetLocalInt(oMyArmor, "PRC_Has_Exalted_Raiment", 1); + //DelayCommand(fDur, DeleteLocalInt(oMyArmor, "PRC_Has_Exalted_Raiment")); + } + else + { + SendMessageToPC(oPC, "Invalid item: Base AC > 0"); + return; + } + } + else + { + SendMessageToPC(oPC, "Target creature has no armor!"); + return; + } + + //Sanctified spells get mandatory 10 pt good adjustment, regardless of switch + AdjustAlignment(oPC, ALIGNMENT_GOOD, 10, FALSE); + + //SPGoodShift(oPC); + + DoCorruptionCost(oPC, ABILITY_STRENGTH, d4(1), 0); + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_extr_wtrele.ncs b/_haks/poa_exp_spells/sp_extr_wtrele.ncs new file mode 100644 index 0000000..b380690 Binary files /dev/null and b/_haks/poa_exp_spells/sp_extr_wtrele.ncs differ diff --git a/_haks/poa_exp_spells/sp_extr_wtrele.nss b/_haks/poa_exp_spells/sp_extr_wtrele.nss new file mode 100644 index 0000000..9c3af96 --- /dev/null +++ b/_haks/poa_exp_spells/sp_extr_wtrele.nss @@ -0,0 +1,120 @@ +//:://///////////////////////////////////////////// +//:: Name Extract Water Elemental +//:: FileName sp_extr_wtrele.nss +//::////////////////////////////////////////////// +/**@file Extract Water Elemental +Transmutation [Water] +Level: Druid 6, sorcerer/wizard 6 +Components: V, S +Casting Time: 1 standard action +Range: Close (25 ft. + 5 ft./level) +Target: One living creature +Duration: Instantaneous +Saving Throw: Fortitude half +Spell Resistance: Yes + +This brutal spell causes the targeted +creature to dehydrate horribly as the +moisture in its body is forcibly extracted +through its eyes, nostrils, mouth, and +pores. This deals 1d6 points of damage +per caster level (maximum 20d6), or +half damage on a successful Fortitude +save. If the targeted creature is slain +by this spell, the extracted moisture is +transformed into a water elemental of +a size equal to the slain creature (up to +Huge). The water elemental is under +your control, as if you summoned it, +and disappears after 1 minute. + +Author: Tenjac +Created: 6/28/07 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +void SummonElemental(object oTarget, object oPC); + +#include "prc_inc_spells" +#include "prc_add_spell_dc" +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_TRANSMUTATION); + + object oPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nCasterLvl = PRCGetCasterLevel(oPC); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDam = d6(min(nCasterLvl, 40)); + int nSaveDC = PRCGetSaveDC(oTarget, oPC); + int nType = MyPRCGetRacialType(oTarget); + + if(!PRCGetIsAliveCreature(oTarget)) + + { + SendMessageToPC(oPC, "This spell must be cast on a living target"); + PRCSetSchool(); + return; + } + + if(nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 6*(min(nCasterLvl, 40)); + } + + if(nMetaMagic & METAMAGIC_EMPOWER) + { + nDam += (nDam/2); + } + + //SR check + if(!PRCDoResistSpell(oPC, oTarget, (nCasterLvl + SPGetPenetr()))) + { + //VFX + ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_PULSE_WATER), oTarget); + + if(PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nSaveDC, SAVING_THROW_TYPE_SPELL)) + { + nDam = nDam/2; + } + + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_MAGICAL), oTarget); + + if(GetIsDead(oTarget)) + { + SummonElemental(oTarget, oPC); + } + } + PRCSetSchool(); +} + +void SummonElemental(object oTarget, object oPC) +{ + location lLoc = GetLocation(oTarget); + int nSize = GetCreatureSize(oTarget); + string sResref; + + if(nSize == CREATURE_SIZE_HUGE) sResref = "nw_watergreat"; + + else if (nSize == CREATURE_SIZE_LARGE) sResref = "nw_waterhuge"; + + else if (nSize == CREATURE_SIZE_MEDIUM) sResref = "nw_water"; + + else if (nSize == CREATURE_SIZE_SMALL) sResref = "nw_water"; + + else if (nSize == CREATURE_SIZE_TINY) sResref = "nw_water"; + + else + { + SendMessageToPC(oPC, "Creature Size Invalid"); + return; + } + + MultisummonPreSummon(); + + effect eSummon = EffectSummonCreature(sResref, VFX_FNF_SUMMON_EPIC_UNDEAD); + ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY, eSummon, lLoc, 60.0f); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_false_life.ncs b/_haks/poa_exp_spells/sp_false_life.ncs new file mode 100644 index 0000000..dd0bff0 Binary files /dev/null and b/_haks/poa_exp_spells/sp_false_life.ncs differ diff --git a/_haks/poa_exp_spells/sp_false_life.nss b/_haks/poa_exp_spells/sp_false_life.nss new file mode 100644 index 0000000..b7931cb --- /dev/null +++ b/_haks/poa_exp_spells/sp_false_life.nss @@ -0,0 +1,61 @@ +//:://///////////////////////////////////////////// +//:: Name False Life +//:: FileName sp_false_life.nss +//::////////////////////////////////////////////// +/**@file False Life +Necromancy +Level: Sor/Wiz 2, Hexblade 2 +Components: V, S, M +Casting Time: 1 standard action +Range: Personal +Target: You +Duration: 1 hour/level or until discharged; see text + +You harness the power of unlife to grant yourself a +limited ability to avoid death. While this spell is +in effect, you gain temporary hit points equal to +1d10 +1 per caster level (maximum +10). + +Material Component: A small amount of alcohol or +distilled spirits, which you use to trace certain +sigils on your body during casting. These sigils +cannot be seen once the alcohol or spirits evaporate. + +**/ + +#include "prc_alterations" +#include "prc_inc_spells" + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_NECROMANCY); + + object oPC = OBJECT_SELF; + int nCasterLvl = PRCGetCasterLevel(oPC); + int nMetaMagic = PRCGetMetaMagicFeat(); + float fDur = HoursToSeconds(nCasterLvl); + if(nMetaMagic & METAMAGIC_EXTEND) + fDur *= 2; + + int nBonus = d10(1) + (min(20, nCasterLvl)); + if(nMetaMagic & METAMAGIC_MAXIMIZE) + nBonus = 10 + (min(20, nCasterLvl)); + if(nMetaMagic & METAMAGIC_EMPOWER) + nBonus += (nBonus/2); + + PRCRemoveEffectsFromSpell(oPC, SPELL_FALSE_LIFE); + + PRCSignalSpellEvent(oPC, FALSE, SPELL_FALSE_LIFE, oPC); + + effect eHP = EffectTemporaryHitpoints(nBonus); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE); + effect eLink = EffectLinkEffects(eHP, eDur); + effect eVis = EffectVisualEffect(VFX_IMP_HEAD_EVIL); + + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oPC, fDur, TRUE, SPELL_FALSE_LIFE, nCasterLvl, oPC); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oPC); + + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/sp_fester_death.ncs b/_haks/poa_exp_spells/sp_fester_death.ncs new file mode 100644 index 0000000..658ce7f Binary files /dev/null and b/_haks/poa_exp_spells/sp_fester_death.ncs differ diff --git a/_haks/poa_exp_spells/sp_fester_death.nss b/_haks/poa_exp_spells/sp_fester_death.nss new file mode 100644 index 0000000..fa82c02 --- /dev/null +++ b/_haks/poa_exp_spells/sp_fester_death.nss @@ -0,0 +1,91 @@ +//:://///////////////////////////////////////////// +//:: Name Song of Festering Death +//:: FileName sp_fester_death.nss +//::////////////////////////////////////////////// +/**@file Song of Festering Death +Evocation [Evil] +Level: Brd 2 +Components: V +Casting Time: 1 action +Range: Close (25 ft. + 5 ft./2 levels) +Target: One living creature +Duration: Concentration +Saving Throw: Fortitude negates +Spell Resistance: Yes + +The caster sings a wailing ululation, requiring a +successful Perform (singing) check (DC 20). If the +Perform check succeeds and the target fails a +Fortitude saving throw, the subject's flesh +bubbles and festers into pestilent blobs, dealing +the subject 2d6 points of damage each round. If the +subject dies, she bursts with a sickening pop as +steamy gore spills onto the ground. + +Author: Tenjac +Created: 3/26/05 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" +#include "prc_add_spell_dc" +void FesterLoop(object oTarget, int nConc, int nHP) +{ + if (nConc == FALSE) + { + return; + } + + int nDam = d6(20); + nHP = GetCurrentHitPoints(oTarget); + effect eDam = PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_MAGICAL); + + if(nDam > nHP) + { + //esplode! + DeathlessFrenzyCheck(oTarget); + effect eDeath = EffectDeath(TRUE, TRUE); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDeath, oTarget); + } + else + { + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + } + + //Loop + DelayCommand(6.0f, FesterLoop(oTarget, nConc, nHP)); + +} + + +void main() +{ + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + // Run the spellhook. + if (!X2PreSpellCastCode()) return; + + object oPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nConc = TRUE; + int nDC = PRCGetSaveDC(oTarget, oPC); + int nCasterLvl = PRCGetCasterLevel(oPC); + int nHP = GetCurrentHitPoints(oTarget); + + //Check for skill + if(GetIsSkillSuccessful(oPC, SKILL_PERFORM, 20) && PRCGetIsAliveCreature(oTarget)) + { + //Spell Resist + if(!PRCDoResistSpell(oPC, oTarget, nCasterLvl + SPGetPenetr())) + { + if(!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_EVIL, oPC, 1.0)) + { + FesterLoop(oTarget, nConc, nHP); + } + } + } + + //SPEvilShift(oPC); + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/sp_fire_trapA.ncs b/_haks/poa_exp_spells/sp_fire_trapA.ncs new file mode 100644 index 0000000..ba49f8e Binary files /dev/null and b/_haks/poa_exp_spells/sp_fire_trapA.ncs differ diff --git a/_haks/poa_exp_spells/sp_fire_trapA.nss b/_haks/poa_exp_spells/sp_fire_trapA.nss new file mode 100644 index 0000000..5e97ea1 --- /dev/null +++ b/_haks/poa_exp_spells/sp_fire_trapA.nss @@ -0,0 +1,107 @@ +//:://///////////////////////////////////////////// +//:: Name +//:: FileName sp_.nss +//::////////////////////////////////////////////// +/**@file Fire Trap +Abjuration [Fire] +Level: Drd 2, Sor/Wiz 4 +Components: V, S, M +Casting Time: 10 minutes +Range: Touch +Target: Area +Duration: Permanent until discharged (D) +Saving Throw: Reflex half; see text +Spell Resistance: Yes + +Fire trap creates a fiery explosion when an intruder +enters the area that the trap protects. + +When casting fire trap, you select a point as the spell’s +center. When someone other than you gets too close to that +point, a fiery explosion fills the area within a 5-foot radius around +the spell’s center. The flames deal 1d4 points of fire damage +1 +point per caster level (maximum +20). + +An unsuccessful dispel magic spell does not detonate the +spell. + +Underwater, this ward deals half damage and creates a +large cloud of steam. + +Material Component: A half-pound of gold dust (cost 25 gp) +sprinkled on the warded object. + +Author: Tenjac +Created: 7/6/07 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void main() +{ + object oTarget = GetEnteringObject(); + object oCaster = GetAreaOfEffectCreator(); + location lTarget = GetLocation(OBJECT_SELF); + int nDam; + int nMetaMagic = PRCGetMetaMagicFeat(); + int nCasterLvl = PRCGetCasterLevel(oCaster); + if(nCasterLvl > 40) nCasterLvl = 40; + + int nFire = GetLocalInt(OBJECT_SELF, "PRC_SPELL_FIRE_TRAP"); + + int EleDmg = ChangedElementalDamage(OBJECT_SELF, DAMAGE_TYPE_FIRE); + + effect eDam; + effect eExplode = EffectVisualEffect(VFX_FNF_FIREBALL); + effect eVis = EffectVisualEffect(VFX_IMP_FLAME_M); + //Check the faction of the entering object to make sure the entering object is not in the casters faction + if(nFire == 0) + { + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF)) + { + SetLocalInt(OBJECT_SELF, "PRC_SPELL_FIRE_TRAP",TRUE); + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eExplode, lTarget); + //Cycle through the targets in the explosion area + oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + while(GetIsObjectValid(oTarget)) + { + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oCaster, SPELL_FIRE_TRAP)); + //Make SR check + if(!PRCDoResistSpell(oCaster, oTarget,nCasterLvl + SPGetPenetr())) + { + int nDC = PRCGetSaveDC(oTarget,OBJECT_SELF); + nDam = d4(1) + nCasterLvl; + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDam = 4 + nCasterLvl; + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) nDam +=(nDam/2); + + //nDam += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF, FALSE); + //Change damage according to Reflex, Evasion and Improved Evasion + nDam = PRCGetReflexAdjustedDamage(nDam, oTarget, nDC, SAVING_THROW_TYPE_FIRE, GetAreaOfEffectCreator()); + //Set up the damage effect + eDam = PRCEffectDamage(oTarget, nDam, EleDmg); + if(nDam > 0) + { + //Apply VFX impact and damage effect + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + DelayCommand(0.01, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget)); + PRCBonusDamage(oTarget); + } + } + } + //Get next target in the sequence + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + } + DestroyObject(OBJECT_SELF, 1.0); + } + } + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/sp_fireburst.ncs b/_haks/poa_exp_spells/sp_fireburst.ncs new file mode 100644 index 0000000..bba3e1f Binary files /dev/null and b/_haks/poa_exp_spells/sp_fireburst.ncs differ diff --git a/_haks/poa_exp_spells/sp_fireburst.nss b/_haks/poa_exp_spells/sp_fireburst.nss new file mode 100644 index 0000000..c80c9f4 --- /dev/null +++ b/_haks/poa_exp_spells/sp_fireburst.nss @@ -0,0 +1,24 @@ +///////////////////////////////////////////////////////////////////// +// +// Firestorm - Burst of fire centered on the caster doing 1d8/lvl, +// max 5d8 +// +///////////////////////////////////////////////////////////////////// + +#include "prc_inc_spells" +#include "spinc_burst" + +void main() +{ + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + if (!X2PreSpellCastCode()) return; + + // Get the number of damage dice. + int nCasterLvl = PRCGetCasterLevel(OBJECT_SELF); + + int nDice = nCasterLvl; + if (nDice > 20) nDice = 20; + + DoBurst (nCasterLvl,8, 0, nDice, VFX_IMP_FLAME_M, VFX_IMP_FLAME_S, 2.0f, + DAMAGE_TYPE_FIRE, DAMAGE_TYPE_FIRE, SAVING_THROW_TYPE_FIRE, TRUE); +} diff --git a/_haks/poa_exp_spells/sp_flesh_armor.ncs b/_haks/poa_exp_spells/sp_flesh_armor.ncs new file mode 100644 index 0000000..4987a3d Binary files /dev/null and b/_haks/poa_exp_spells/sp_flesh_armor.ncs differ diff --git a/_haks/poa_exp_spells/sp_flesh_armor.nss b/_haks/poa_exp_spells/sp_flesh_armor.nss new file mode 100644 index 0000000..0c41b1f --- /dev/null +++ b/_haks/poa_exp_spells/sp_flesh_armor.nss @@ -0,0 +1,78 @@ +//:://///////////////////////////////////////////// +//:: Name Flesh Armor +//:: FileName sp_flesh_armor.nss +//::////////////////////////////////////////////// +/**@file Flesh Armor +Abjuration [Evil] +Level: Asn 4 +Components: V, S, M, F +Casting Time: 1 action +Range: Personal +Target: Caster +Duration: 10 minutes/level or until discharged + + Prior to casting flesh armor, the caster flays the + skin from a creature of his size and lays it upon + his own flesh, wearing it like clothing or armor. + Once the caster casts flesh armor, his skin develops + resistance to blows, cuts, stabs, and slashes. The + caster gains damage reduction 10/+1. Once the spell + has prevented a total of 5 points of damage per + caster level (maximum 50 points), it is discharged, + and the skin slowly rots, shedding in patches like + the skin of a molting snake. + + Material Component: A bit of flesh torn from + the caster's body during the casting (dealing 1 point + of damage). + + Focus: The entire freshly harvested skin of another + creature of the caster's size. + +Author: Tenjac +Created: 05/05/06 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" + +void main() +{ + object oPC = OBJECT_SELF; + int nCasterLvl = PRCGetCasterLevel(oPC); + float fDur= (600.0f * nCasterLvl); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nAmount = min(50 + (nCasterLvl/2), (5 * nCasterLvl)); + effect eDR = EffectDamageReduction(10 + (nCasterLvl/2), DAMAGE_POWER_PLUS_ONE, nAmount); + + //placeholder VFX + effect eVis = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + + //Spellhook + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_ABJURATION); + + //Meta Magic + if(nMetaMagic & METAMAGIC_EXTEND) + { + fDur = (fDur * 2); + } + + //Link and Apply + + effect eLink = EffectLinkEffects(eDR, eVis); + + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oPC, fDur); + + //SPEvilShift(oPC); + + PRCSetSchool(); + } + + + + + + \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_flesh_rip.ncs b/_haks/poa_exp_spells/sp_flesh_rip.ncs new file mode 100644 index 0000000..7d0b568 Binary files /dev/null and b/_haks/poa_exp_spells/sp_flesh_rip.ncs differ diff --git a/_haks/poa_exp_spells/sp_flesh_rip.nss b/_haks/poa_exp_spells/sp_flesh_rip.nss new file mode 100644 index 0000000..84899fb --- /dev/null +++ b/_haks/poa_exp_spells/sp_flesh_rip.nss @@ -0,0 +1,105 @@ +//:://///////////////////////////////////////////// +//:: Name Flesh Ripper +//:: FileName sp_flesh_rip +//::////////////////////////////////////////////// +/**@file Flesh Ripper +Evocation [Evil] +Level: Clr 3, Mortal Hunter 3 +Components: V, S, Undead, Fiend +Casting Time: 1 action +Range: Close (25 ft. + 5 ft./2 levels) +Target: One living creature +Duration: Instantaneous +Saving Throw: None +Spell Resistance: Yes + +The caster evokes pure evil power in the form of a +black claw that flies at the target. If a ranged +touch attack roll succeeds, the claw deals 1d8 +points of damage per caster level (maximum 10d8). +On a critical hit, in addition to dealing double +damage, the wound bleeds for 1 point of damage per +round until it is magically healed. + +Author: Tenjac +Created: +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_sp_tch" + +void main() +{ + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + //Spellhook + if (!X2PreSpellCastCode()) return; + + object oPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nCasterLvl = PRCGetCasterLevel(oPC); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nType = MyPRCGetRacialType(oPC); + int nType2 = MyPRCGetRacialType(oTarget); + int nDice = min(20, nCasterLvl); + + PRCSignalSpellEvent(oTarget,TRUE, SPELL_FLESH_RIPPER, oPC); + + //Caster must be undead. If not, hit 'em with alignment change anyway. + //Try reading the description of the spell moron. =P + + if(nType == RACIAL_TYPE_UNDEAD) + { + //check for living target + if(PRCGetIsAliveCreature(oTarget)) + { + //Check spell resistance + if(!PRCDoResistSpell(oPC, oTarget, nCasterLvl + SPGetPenetr())) + { + int nDam = d8(nDice); + + if(nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = (8 * nDice); + } + + if(nMetaMagic & METAMAGIC_EMPOWER) + { + nDam += (nDam/2); + } + + //Non-descript + effect eDam = PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_MAGICAL); + + //VFX + effect eVis = EffectBeam(VFX_BEAM_BLACK, oPC, BODY_NODE_HAND); + + //Make touch attack + int nTouch = PRCDoRangedTouchAttack(oTarget); + + if(nTouch > 0) + { + //Apply VFX + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + + //Apply damage + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + } + + if(nTouch = 2) + { + //Apply damage + nDam += nDam; + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + + //Wounding + effect eWound = EffectHitPointChangeWhenDying(1.0f); + SPApplyEffectToObject(DURATION_TYPE_PERMANENT, eWound, oTarget); + } + } + } + } + //SPEvilShift(oPC); + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_forceblast.ncs b/_haks/poa_exp_spells/sp_forceblast.ncs new file mode 100644 index 0000000..f3a67e3 Binary files /dev/null and b/_haks/poa_exp_spells/sp_forceblast.ncs differ diff --git a/_haks/poa_exp_spells/sp_forceblast.nss b/_haks/poa_exp_spells/sp_forceblast.nss new file mode 100644 index 0000000..6294221 --- /dev/null +++ b/_haks/poa_exp_spells/sp_forceblast.nss @@ -0,0 +1,17 @@ +#include "prc_inc_spells" +#include "spinc_bolt" + +void main() +{ + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + if (!X2PreSpellCastCode()) return; + + // Get the number of damage dice. + int nCasterLevel = PRCGetCasterLevel(OBJECT_SELF); + int nDice = nCasterLevel > 20 ? 20 : nCasterLevel; + + DoBolt (nCasterLevel,4, 0, nDice, VFX_BEAM_MIND, VFX_IMP_MAGBLUE, + DAMAGE_TYPE_MAGICAL, SAVING_THROW_TYPE_SPELL, + SPELL_SCHOOL_EVOCATION, TRUE, GetSpellId()); +} + diff --git a/_haks/poa_exp_spells/sp_forceorb.ncs b/_haks/poa_exp_spells/sp_forceorb.ncs new file mode 100644 index 0000000..71edb61 Binary files /dev/null and b/_haks/poa_exp_spells/sp_forceorb.ncs differ diff --git a/_haks/poa_exp_spells/sp_forceorb.nss b/_haks/poa_exp_spells/sp_forceorb.nss new file mode 100644 index 0000000..856e84a --- /dev/null +++ b/_haks/poa_exp_spells/sp_forceorb.nss @@ -0,0 +1,77 @@ +#include "prc_inc_spells" +#include "prc_add_spell_dc" +#include "prc_inc_sp_tch" + +void main() +{ + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + if (!X2PreSpellCastCode()) return; + object oCaster = OBJECT_SELF; + effect eVis = EffectVisualEffect(VFX_IMP_MAGBLUE); + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + int nSpellId = PRCGetSpellId(); + object oTarget = PRCGetSpellTargetObject(); + int nCasterLvl = PRCGetCasterLevel(oCaster); + int nPenetr = nCasterLvl + SPGetPenetr(); + int nDice = nCasterLvl; + if (nDice > 40) nDice = 40; + + int nAtk = PRCDoRangedTouchAttack(oTarget, TRUE, oCaster); + if(nAtk) + { + //Make SR Check + if (!PRCDoResistSpell(oCaster, oTarget, nCasterLvl)) + { + effect eMissile = EffectVisualEffect(VFX_IMP_MIRV); + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, oCaster)) + { + //Fire cast spell at event for the specified target + PRCSignalSpellEvent(oTarget, TRUE, nSpellId); + + //Roll damage for each target + int nDamage = PRCGetMetaMagicDamage(DAMAGE_TYPE_MAGICAL, nDice, 6); + // Succeeded on the save + if (PRCMySavingThrow(SAVING_THROW_FORT, oTarget, PRCGetSaveDC(oTarget, oCaster))) + nDamage = nDamage/2; + + // Apply the damage and the damage visible effect to the target. + ApplyTouchAttackDamage(oCaster, oTarget, nAtk, nDamage, DAMAGE_TYPE_MAGICAL); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + } + } + else // If it misses, it becomes an AoE + { + location lTarget = PRCGetSpellTargetLocation(); + oTarget = MyFirstObjectInShape(SHAPE_SPHERE, FeetToMeters(10.0), lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + //Cycle through the targets within the spell shape until an invalid object is captured. + while (GetIsObjectValid(oTarget)) + { + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, oCaster)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oCaster, nSpellId)); + //Get the distance between the explosion and the target to calculate delay + float fDelay = GetDistanceBetweenLocations(lTarget, GetLocation(oTarget))/20; + if (!PRCDoResistSpell(oCaster, oTarget, nCasterLvl, fDelay)) + { + int nDamage = nDice * 2; + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, (PRCGetSaveDC(oTarget, oCaster)), SAVING_THROW_TYPE_SPELL); + if(nDamage > 0) + { + //Set the damage effect + effect eDam = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_MAGICAL); + // Apply effects to the currently selected target. + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget)); + //This visual effect is applied to the target object not the location as above. This visual effect + //represents the flame that erupts on the target not on the ground. + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + } + //Select the next target within the spell shape. + oTarget = MyNextObjectInShape(SHAPE_SPHERE, FeetToMeters(10.0), lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + } + } + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/sp_gfireburst.ncs b/_haks/poa_exp_spells/sp_gfireburst.ncs new file mode 100644 index 0000000..fb37d13 Binary files /dev/null and b/_haks/poa_exp_spells/sp_gfireburst.ncs differ diff --git a/_haks/poa_exp_spells/sp_gfireburst.nss b/_haks/poa_exp_spells/sp_gfireburst.nss new file mode 100644 index 0000000..d63468c --- /dev/null +++ b/_haks/poa_exp_spells/sp_gfireburst.nss @@ -0,0 +1,24 @@ +///////////////////////////////////////////////////////////////////// +// +// Greater Firestorm - Burst of fire centered on the caster doing +// 1d8/lvl, max 15d8 +// +///////////////////////////////////////////////////////////////////// + +#include "prc_inc_spells" +#include "spinc_burst" + +void main() +{ + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + if (!X2PreSpellCastCode()) return; + + // Get the number of damage dice. + int nCasterLvl = PRCGetCasterLevel(OBJECT_SELF); + + int nDice = nCasterLvl; + if (nDice > 40) nDice = 40; + + DoBurst (nCasterLvl,8, 0, nDice, VFX_FNF_FIREBALL, VFX_IMP_FLAME_M, 4.0f, + DAMAGE_TYPE_FIRE, DAMAGE_TYPE_FIRE, SAVING_THROW_TYPE_FIRE, TRUE); +} diff --git a/_haks/poa_exp_spells/sp_gheroism.ncs b/_haks/poa_exp_spells/sp_gheroism.ncs new file mode 100644 index 0000000..df4786a Binary files /dev/null and b/_haks/poa_exp_spells/sp_gheroism.ncs differ diff --git a/_haks/poa_exp_spells/sp_gheroism.nss b/_haks/poa_exp_spells/sp_gheroism.nss new file mode 100644 index 0000000..9daae72 --- /dev/null +++ b/_haks/poa_exp_spells/sp_gheroism.nss @@ -0,0 +1,37 @@ +#include "prc_inc_spells" +#include "prc_spell_const" + +void main() +{ + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + if (!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_ENCHANTMENT); + + // Get the target and raise the spell cast event. + object oTarget = PRCGetSpellTargetObject(); + PRCSignalSpellEvent(oTarget, FALSE); + + if(GetHasSpellEffect(SPELL_HEROISM, oTarget)) + { + PRCRemoveSpellEffects(SPELL_HEROISM,OBJECT_SELF,OBJECT_SELF); + } + + // Determine the spell's duration, taking metamagic feats into account. + int nCasterlvl = PRCGetCasterLevel(); + float fDuration = PRCGetMetaMagicDuration(TenMinutesToSeconds(nCasterlvl)); + + // Create the chain of buffs to apply, including the vfx. + effect eBuff = EffectSavingThrowIncrease(SAVING_THROW_ALL, 4, SAVING_THROW_TYPE_ALL); + eBuff = EffectLinkEffects (eBuff, EffectAttackIncrease(4, ATTACK_BONUS_MISC)); + eBuff = EffectLinkEffects (eBuff, EffectSkillIncrease(SKILL_ALL_SKILLS, 4)); + eBuff = EffectLinkEffects (eBuff, EffectImmunity(IMMUNITY_TYPE_FEAR)); + //improperly removing gheroism when temp hp expire; fix by unlinking temp hp from other effect ~ Lockindal + effect eTempHP = EffectTemporaryHitpoints(nCasterlvl > 40 ? 40 : nCasterlvl); + + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eBuff, oTarget, fDuration,TRUE,-1,nCasterlvl); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eTempHP, oTarget, fDuration,TRUE,-1,nCasterlvl); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_RESTORATION), oTarget); + + PRCSetSchool(SPELL_SCHOOL_ENCHANTMENT); +} diff --git a/_haks/poa_exp_spells/sp_gutwrench.ncs b/_haks/poa_exp_spells/sp_gutwrench.ncs new file mode 100644 index 0000000..d431ad4 Binary files /dev/null and b/_haks/poa_exp_spells/sp_gutwrench.ncs differ diff --git a/_haks/poa_exp_spells/sp_gutwrench.nss b/_haks/poa_exp_spells/sp_gutwrench.nss new file mode 100644 index 0000000..3f36035 --- /dev/null +++ b/_haks/poa_exp_spells/sp_gutwrench.nss @@ -0,0 +1,121 @@ +//:://///////////////////////////////////////////// +//:: Name Gutwrench +//:: FileName sp_gutwrench.nss +//::////////////////////////////////////////////// +/**@file Gutwrench +Necromancy [Evil, Death] +Level: Sor/Wiz 8 +Components: V, S, Undead +Casting Time: 1 action +Range: Close (25 ft. + 5 ft./2 levels) +Target: One living creature +Duration: Instantaneous +Saving Throw: Fortitude partial +Spell Resistance: Yes + +The innards of the target creature roil. If the +target fails its saving throw, its intestines burst +forth, killing it. The intestines fly toward the +caster and are absorbed into her form, granting her +4d6 temporary hit points and a +4 enhancement bonus +to Strength. If the target's save is successful, it +takes 10d6 points of damage instead. + +A creature with no discernible anatomy is unaffected +by this spell. + +Author: Tenjac +Created: 16.3.2006 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void main() +{ + PRCSetSchool(SPELL_SCHOOL_NECROMANCY); + + //Spellhook + if (!X2PreSpellCastCode()) return; + + object oPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nCasterLvl = PRCGetCasterLevel(oPC); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nTargetType = MyPRCGetRacialType(oTarget); + int nDC = PRCGetSaveDC(oTarget, oPC); + + PRCSignalSpellEvent(oTarget,TRUE, SPELL_GUTWRENCH, oPC); + + //Caster must be undead. If not, hit 'em with alignment change anyway. + //Try reading the description of the spell moron. =P + + if(MyPRCGetRacialType(oPC) == RACIAL_TYPE_UNDEAD) + { + if(nTargetType != RACIAL_TYPE_OOZE && + nTargetType != RACIAL_TYPE_CONSTRUCT && + nTargetType != RACIAL_TYPE_UNDEAD && + nTargetType != RACIAL_TYPE_ELEMENTAL) + + { + if(!PRCDoResistSpell(OBJECT_SELF, oTarget, nCasterLvl + SPGetPenetr())) + { + if(!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_DEATH)) + { + //define effects + effect eDeath = EffectDeath(); + effect eGut = EffectBeam(VFX_BEAM_SILENT_EVIL, oTarget, BODY_NODE_CHEST); + effect eVis = EffectVisualEffect(VFX_IMP_IMPROVE_ABILITY_SCORE); + effect eBonus = EffectAbilityIncrease(ABILITY_STRENGTH, 4); + effect eLink = EffectLinkEffects(eDeath, eGut); + + //Apply to target + DeathlessFrenzyCheck(oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eLink, oTarget); + + //PC + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oPC); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eBonus, oPC, HoursToSeconds(24)); + } + + //Otherwise, take 10d6 damage, be thankful, and RUN. + else + { + if(!GetHasMettle(oTarget, SAVING_THROW_FORT)) + { + int nDam = d6(10)+nCasterLvl; + + //evaluate metamagic + if(nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 60+nCasterLvl; + } + + if(nMetaMagic & METAMAGIC_EMPOWER) + { + nDam += (nDam/2); + } + + //define damage + effect eDam = PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_MAGICAL); + + + //Apply damage + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + } + } + } + } + } + else + { + FloatingTextStringOnCreature("Caster is not Undead! Spell failed.", oPC, FALSE); + } + + //SPEvilShift(oPC); + + PRCSetSchool(); +} + diff --git a/_haks/poa_exp_spells/sp_hailofstone.ncs b/_haks/poa_exp_spells/sp_hailofstone.ncs new file mode 100644 index 0000000..5d77a41 Binary files /dev/null and b/_haks/poa_exp_spells/sp_hailofstone.ncs differ diff --git a/_haks/poa_exp_spells/sp_hailofstone.nss b/_haks/poa_exp_spells/sp_hailofstone.nss new file mode 100644 index 0000000..ae95ec9 --- /dev/null +++ b/_haks/poa_exp_spells/sp_hailofstone.nss @@ -0,0 +1,68 @@ +#include "prc_inc_sp_tch" + +void main() +{ + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + if (!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_CONJURATION); + + // Get the spell target location as opposed to the spell target. + location lTarget = PRCGetSpellTargetLocation(); + + // Apply area vfx. + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, + EffectVisualEffect(VFX_COM_CHUNK_STONE_SMALL), lTarget); + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, + EffectVisualEffect(356 /*VFX_FNF_SCREEN_SHAKE2*/), lTarget); + + float fDelay; + + // Determine damage dice. + int nCasterLvl = PRCGetCasterLevel(); + int nDice = nCasterLvl; + if (nDice > 20) nDice = 20; + int nPenetr = nCasterLvl + SPGetPenetr(); + + // Declare the spell shape, size and the location. Capture the first target object in the shape. + // Cycle through the targets within the spell shape until an invalid object is captured. + int nTargets = 0; + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_SMALL, lTarget, FALSE, + OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + while (GetIsObjectValid(oTarget)) + { + fDelay = PRCGetSpellEffectDelay(lTarget, oTarget); + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF)) + { + // Fire cast spell at event for the specified target + PRCSignalSpellEvent(oTarget); + + if (!PRCDoResistSpell(OBJECT_SELF, oTarget,nPenetr)) + { + // Make touch attack, saving result for possible critical + int nTouchAttack = PRCDoRangedTouchAttack(oTarget);; + if (nTouchAttack > 0) + { + // Roll the damage of (1d6+1) / level, doing double damage on a crit. + int nDamage = PRCGetMetaMagicDamage(DAMAGE_TYPE_BLUDGEONING, + 1 == nTouchAttack ? nDice : (nDice * 2), 4); + + //nDamage += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF, FALSE); + + // Apply the damage and the damage visible effect to the target. + SPApplyEffectToObject(DURATION_TYPE_INSTANT, + PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_BLUDGEONING), oTarget); + PRCBonusDamage(oTarget); +//TODO: need VFX +// SPApplyEffectToObject(DURATION_TYPE_INSTANT, +// EffectVisualEffect(VFX_IMP_FROST_S), oTarget); + } + } + } + + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_SMALL, lTarget, FALSE, + OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + } + + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/sp_healrbm.ncs b/_haks/poa_exp_spells/sp_healrbm.ncs new file mode 100644 index 0000000..c5927ca Binary files /dev/null and b/_haks/poa_exp_spells/sp_healrbm.ncs differ diff --git a/_haks/poa_exp_spells/sp_healrbm.nss b/_haks/poa_exp_spells/sp_healrbm.nss new file mode 100644 index 0000000..791c95a --- /dev/null +++ b/_haks/poa_exp_spells/sp_healrbm.nss @@ -0,0 +1,21 @@ +///////////////////////////////////////////////////////// +// Healer's Balm +// sp_healrbm.nss +///////////////////////////////////////////////////////// +/*Healer’s Balm: This smooth, sweet-smelling balm +allows a healer to better soothe the effects of wounds, disease, +and poison. Healer’s balm provides a +1 alchemical +bonus on Heal checks made to help an affected creature. +The effects of healer’s balm last for 1 minute. +One dose of healer’s balm is enough to coat one +Medium creature. Applying healer’s balm is a standard +action that provokes attacks of opportunity. It can be +applied as part of a standard action made to administer +first aid, treat a wound, or treat poison. */ + +void main() +{ + object oPC = OBJECT_SELF; + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectSkillIncrease(SKILL_HEAL, 5), oPC, TurnsToSeconds(1)); + SendMessageToPC(oPC, "You coat your hands in Healer's Balm."); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_hellfire.ncs b/_haks/poa_exp_spells/sp_hellfire.ncs new file mode 100644 index 0000000..c384051 Binary files /dev/null and b/_haks/poa_exp_spells/sp_hellfire.ncs differ diff --git a/_haks/poa_exp_spells/sp_hellfire.nss b/_haks/poa_exp_spells/sp_hellfire.nss new file mode 100644 index 0000000..e37ab87 --- /dev/null +++ b/_haks/poa_exp_spells/sp_hellfire.nss @@ -0,0 +1,87 @@ +//:://///////////////////////////////////////////// +//:: Name Hellfire +//:: FileName sp_hellfire.nss +//::////////////////////////////////////////////// +/**@file Hellfire +Evocation [Evil] +Level: Diabolic 4 +Components: V, S +Casting Time: 1 action +Range: Close (25 ft. + 5 ft./2 levels) +Area: 5-ft.-radius spread +Duration: Instantaneous +Saving Throw: None +Spell Resistance: Yes + +The caster creates a small explosion of brimstone +and fire that deals 3d6 points of special diabolic +fire damage. The diabolic flames are not subject +to being reduced by protection from elements +(fire), fire shield (chill shield), or similar +magic. + +Author: Tenjac +Created: 05/03/06 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" + + +void main() +{ + object oPC = OBJECT_SELF; + location lLoc = PRCGetSpellTargetLocation(); + effect eVis = EffectVisualEffect(806); + effect eExplode = EffectVisualEffect(VFX_FNF_HELLFIRE); + effect eDam; + int nCasterLvl = PRCGetCasterLevel(oPC); + int nDamage; + int nMetaMagic = PRCGetMetaMagicFeat(); + float fDelay; + + //Spellhook + if(!X2PreSpellCastCode()) return; + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + //Apply the fireball explosion at the location captured above. + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eExplode, lLoc); + + //get initial oTarget + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lLoc, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + + //damage loop + while(GetIsObjectValid(oTarget)) + { + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF)) + { + if(!PRCDoResistSpell(oPC, oTarget, nCasterLvl + SPGetPenetr())) + { + //Roll damage for each target + nDamage = d6(nCasterLvl/2)+3; + + //Resolve metamagic + if (nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDamage =(nCasterLvl/2)*6 +3; + } + if (nMetaMagic & METAMAGIC_EMPOWER) + { + nDamage = nDamage + nDamage / 2; + } + + //Set the damage effect + eDam = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_DIVINE); + + // Apply effects to the currently selected target. + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lLoc, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + } + + //SPEvilShift(oPC); + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_heroism.ncs b/_haks/poa_exp_spells/sp_heroism.ncs new file mode 100644 index 0000000..6c69ba9 Binary files /dev/null and b/_haks/poa_exp_spells/sp_heroism.ncs differ diff --git a/_haks/poa_exp_spells/sp_heroism.nss b/_haks/poa_exp_spells/sp_heroism.nss new file mode 100644 index 0000000..9921801 --- /dev/null +++ b/_haks/poa_exp_spells/sp_heroism.nss @@ -0,0 +1,78 @@ +/* + sp_heroism + + Consolidation of Heroism, Greater Heroism + + By: Flaming_Sword + Created: Jul 1, 2006 + Modified: Jul 1, 2006 + + Fixed typo +*/ + +#include "prc_sp_func" + +//Implements the spell impact, put code here +// if called in many places, return TRUE if +// stored charges should be decreased +// eg. touch attack hits +// +// Variables passed may be changed if necessary +int DoSpell(object oCaster, object oTarget, int nCasterLevel, int nEvent) +{ + int nSpellID = PRCGetSpellId(); + PRCSignalSpellEvent(oTarget, FALSE); + int bGreater = (nSpellID == SPELL_GREATER_HEROISM); + if(bGreater && GetHasSpellEffect(SPELL_HEROISM, oTarget)) + { + PRCRemoveSpellEffects(SPELL_HEROISM, oCaster, oTarget); + } + else if(!bGreater && GetHasSpellEffect(SPELL_GREATER_HEROISM, oTarget)) + { + FloatingTextStringOnCreature("Target already has Greater Heroism Effect!", oCaster); + return TRUE; + } + float fDuration = PRCGetMetaMagicDuration(TenMinutesToSeconds(nCasterLevel)); + int nBonus = (bGreater) ? 4 : 2; + // Create the chain of buffs to apply, including the vfx. + effect eBuff = EffectSavingThrowIncrease(SAVING_THROW_ALL, nBonus, SAVING_THROW_TYPE_ALL); + eBuff = EffectLinkEffects (eBuff, EffectAttackIncrease(nBonus, ATTACK_BONUS_MISC)); + eBuff = EffectLinkEffects (eBuff, EffectSkillIncrease(SKILL_ALL_SKILLS, nBonus)); + if(bGreater) + eBuff = EffectLinkEffects (eBuff, EffectImmunity(IMMUNITY_TYPE_FEAR)); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eBuff, oTarget, fDuration,TRUE,-1,nCasterLevel); + //improperly removing gheroism when temp hp expire; fix by unlinking temp hp from other effect ~ Lockindal + if(bGreater) + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectTemporaryHitpoints(nCasterLevel > 40 ? 40 : nCasterLevel), oTarget, fDuration,TRUE,-1,nCasterLevel); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_RESTORATION), oTarget); + + return TRUE; //return TRUE if spell charges should be decremented +} + +void main() +{ + object oCaster = OBJECT_SELF; + int nCasterLevel = PRCGetCasterLevel(oCaster); + PRCSetSchool(GetSpellSchool(PRCGetSpellId())); + if (!X2PreSpellCastCode()) return; + object oTarget = PRCGetSpellTargetObject(); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if(GetLocalInt(oCaster, PRC_SPELL_HOLD) && oCaster == oTarget) + { //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + DoSpell(oCaster, oTarget, nCasterLevel, nEvent); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel, nEvent)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_hf_storm.ncs b/_haks/poa_exp_spells/sp_hf_storm.ncs new file mode 100644 index 0000000..8f19672 Binary files /dev/null and b/_haks/poa_exp_spells/sp_hf_storm.ncs differ diff --git a/_haks/poa_exp_spells/sp_hf_storm.nss b/_haks/poa_exp_spells/sp_hf_storm.nss new file mode 100644 index 0000000..2d903a4 --- /dev/null +++ b/_haks/poa_exp_spells/sp_hf_storm.nss @@ -0,0 +1,85 @@ +//:://///////////////////////////////////////////// +//:: Name Hellfire Storm +//:: FileName sp_hf_storm.nss +//::////////////////////////////////////////////// +/**@file Hellfire Storm +Evocation [Evil] +Level: Diabolic 7 +Range: Medium (100 ft. + 10 ft./level) +Area: 20-ft.-radius spread + +As hellfire, except in area and range and that the +spell deals 5d6 points of special diabolic fire damage. + +Author: Tenjac +Created: +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" + +void main() +{ + //Declare major variables + object oPC = OBJECT_SELF; + int nCasterLvl = PRCGetCasterLevel(oPC); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDamage; + float fDelay; + effect eExplode = EffectVisualEffect(807); + effect eVis = EffectVisualEffect(VFX_FNF_HELLFIRESTORM); + effect eDam; + + //spellhook + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + //Get the spell target location as opposed to the spell target. + location lTarget = PRCGetSpellTargetLocation(); + + //Apply the fireball explosion at the location captured above. + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eExplode, lTarget); + + //Declare the spell shape, size and the location. Capture the first target object in the shape. + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + + //Cycle through the targets within the spell shape until an invalid object is captured. + while (GetIsObjectValid(oTarget)) + { + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF)) + { + //Get the distance between the explosion and the target to calculate delay + fDelay = GetDistanceBetweenLocations(lTarget, GetLocation(oTarget))/20; + if (!PRCDoResistSpell(OBJECT_SELF, oTarget, nCasterLvl)) + { + //Roll damage for each target + nDamage = d6(nCasterLvl)+5; + + //Resolve metamagic + if (nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDamage = 6*(nCasterLvl)+5; + } + if (nMetaMagic & METAMAGIC_EMPOWER) + { + nDamage = nDamage + nDamage / 2; + } + + //Set the damage effect + eDam = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_DIVINE); + if(nDamage > 0) + { + // Apply effects to the currently selected target. + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + } + //Select the next target within the spell shape. + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + } + //SPEvilShift(oPC); + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_ice_knife.ncs b/_haks/poa_exp_spells/sp_ice_knife.ncs new file mode 100644 index 0000000..9092a65 Binary files /dev/null and b/_haks/poa_exp_spells/sp_ice_knife.ncs differ diff --git a/_haks/poa_exp_spells/sp_ice_knife.nss b/_haks/poa_exp_spells/sp_ice_knife.nss new file mode 100644 index 0000000..48fa67b --- /dev/null +++ b/_haks/poa_exp_spells/sp_ice_knife.nss @@ -0,0 +1,130 @@ +//:://///////////////////////////////////////////// +//:: Name Ice Knife +//:: FileName sp_ice_knife.nss +//::////////////////////////////////////////////// +/**@file Ice Knife +Conjuration (Creation) [Cold] +Level: Assassin 2, wu jen 2 (water),warmage 2 +Components: S, M +Casting Time: 1 standard action +Range: Long (400 ft. + 40 ft./level) +Effect: One icy missile +Duration: Instantaneous +Saving Throw: See text +Spell Resistance: Yes + +A magical shard of ice blasts from your +hand and speeds to its target. You must +succeed on a normal ranged attack to +hit (with a +2 bonus on the attack roll +for every two caster levels). If it hits, +an ice knife deals 2d8 points of cold +damage plus 2 points of Dexterity damage +(no Dexterity damage on a successful +Fortitude save). Creatures that have +immunity to cold damage also take no +Dexterity damage automatically. + +A knife that misses creates a shower +of ice crystals in a 10-foot-radius burst. +The icy burst deals 1d8 points of cold +damage to all creatures within the area +of the effect (Reflex half). + +Author: Tenjac +Created: 7/6/07 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_sp_tch" +#include "x0_i0_position" +#include "prc_add_spell_dc" + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_CONJURATION); + + object oCaster = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + location lTarget = GetLocation(oTarget); + int nCasterLvl = PRCGetCasterLevel(oCaster); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDC = PRCGetSaveDC(oTarget, oCaster); + int nAttackBonus = (nCasterLvl/2)*2; + int iAttackRoll = PRCDoRangedTouchAttack(oTarget, TRUE, oCaster, nAttackBonus); + int nDamageType = ChangedElementalDamage(oCaster, DAMAGE_TYPE_COLD); + int nDam; + effect eImp = EffectVisualEffect(VFX_IMP_FROST_S); + effect eVis = EffectVisualEffect(VFX_IMP_FROST_L); + effect eDam; + + nCasterLvl += SPGetPenetr(); + + if(iAttackRoll) + { + SignalEvent(oTarget, EventSpellCastAt(oCaster, SPELL_ICE_KNIFE)); + + if(!PRCDoResistSpell(oCaster, oTarget, nCasterLvl)) + { + nDam = d8(nCasterLvl/4)+2; + if (nMetaMagic & METAMAGIC_MAXIMIZE) + nDam = 8*(nCasterLvl/4)+2; + if (nMetaMagic & METAMAGIC_EMPOWER) + nDam += (nDam/2); + + //if failed, ability damage + if(!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_COLD)) + { + int nDexPenalty = 2 * iAttackRoll;//double damage in case of *Critical Hit* + ApplyAbilityDamage(oTarget, ABILITY_DEXTERITY, nDexPenalty, DURATION_TYPE_TEMPORARY, TRUE, -1.0f); + } + + //Apply damage even if they are immune - can't hurt + ApplyTouchAttackDamage(oCaster, oTarget, iAttackRoll, nDam, nDamageType); + PRCBonusDamage(oTarget); + + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eImp, oTarget); + } + } + else + { + //missed, so do AoE + float fDistance = IntToFloat(Random(9)); //random distance for new loc + float fAngle = IntToFloat(Random(359)); //random angle from original + + //Orientation doesn't matter, so make it 0.0f + location lAoE = GenerateNewLocationFromLocation(lTarget, fDistance, fAngle, 0.0f); + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eVis, lAoE); + + oTarget = MyFirstObjectInShape(SHAPE_SPHERE, FeetToMeters(10.0f), lAoE, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_PLACEABLE | OBJECT_TYPE_DOOR); + + while(GetIsObjectValid(oTarget)) + { + SignalEvent(oTarget, EventSpellCastAt(oCaster, SPELL_ICE_KNIFE)); + + if(!PRCDoResistSpell(oCaster, oTarget, nCasterLvl)) + { + nDam = d8(nCasterLvl/4)+1; + if (nMetaMagic & METAMAGIC_MAXIMIZE) + nDam = 8*(nCasterLvl/4)+1; + if (nMetaMagic & METAMAGIC_EMPOWER) + nDam += (nDam/2); + + nDam = PRCGetReflexAdjustedDamage(nDam, oTarget, nDC, SAVING_THROW_TYPE_COLD); + + if(nDam > 0) + { + eDam = PRCEffectDamage(oTarget, nDam, nDamageType); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eImp, oTarget); + PRCBonusDamage(oTarget); + } + } + oTarget = MyNextObjectInShape(SHAPE_SPHERE, FeetToMeters(10.0f), lAoE, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_PLACEABLE | OBJECT_TYPE_DOOR); + } + } + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/sp_iceburst.ncs b/_haks/poa_exp_spells/sp_iceburst.ncs new file mode 100644 index 0000000..802487a Binary files /dev/null and b/_haks/poa_exp_spells/sp_iceburst.ncs differ diff --git a/_haks/poa_exp_spells/sp_iceburst.nss b/_haks/poa_exp_spells/sp_iceburst.nss new file mode 100644 index 0000000..cf748c7 --- /dev/null +++ b/_haks/poa_exp_spells/sp_iceburst.nss @@ -0,0 +1,19 @@ +#include "prc_inc_spells" +#include "spinc_burst" + +void main() +{ + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + if (!X2PreSpellCastCode()) return; + + // Get the number of damage dice. + int nCasterLvl = PRCGetCasterLevel(OBJECT_SELF); + + int nDice = nCasterLvl; + if (nDice > 20) nDice = 20; + + // Ice burst is a colossal radius burst doing 1d4+10/level (cap at 10) cold damage. + DoBurst (nCasterLvl,4, 1, nDice, + VFX_FNF_ICESTORM, VFX_IMP_FROST_S, + RADIUS_SIZE_GARGANTUAN, DAMAGE_TYPE_COLD, DAMAGE_TYPE_BLUDGEONING, SAVING_THROW_TYPE_COLD); +} diff --git a/_haks/poa_exp_spells/sp_impmagearm.ncs b/_haks/poa_exp_spells/sp_impmagearm.ncs new file mode 100644 index 0000000..20f24a1 Binary files /dev/null and b/_haks/poa_exp_spells/sp_impmagearm.ncs differ diff --git a/_haks/poa_exp_spells/sp_impmagearm.nss b/_haks/poa_exp_spells/sp_impmagearm.nss new file mode 100644 index 0000000..50c0112 --- /dev/null +++ b/_haks/poa_exp_spells/sp_impmagearm.nss @@ -0,0 +1,38 @@ +#include "prc_inc_spells" + +void main() +{ + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + if (!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_CONJURATION); + + // Declare major variables + object oTarget = PRCGetSpellTargetObject(); + + // Signal the spell cast at event + PRCSignalSpellEvent(oTarget, FALSE); + + int nCasterLevel = PRCGetCasterLevel(); + + // Boost AC. + int nIncrease = 3 + nCasterLevel / 2; + if (nIncrease > 13) nIncrease = 13; + effect eAC = EffectACIncrease(nIncrease, AC_ARMOUR_ENCHANTMENT_BONUS); + eAC = EffectLinkEffects(eAC, EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE)); + + // Get duration, 1 hour / level unless extended. + float fDuration = PRCGetMetaMagicDuration(MinutesToSeconds(nCasterLevel)); + + // Build the list of fancy visual effects to apply when the spell goes off. + effect eVFX = EffectVisualEffect(VFX_IMP_AC_BONUS); + + // Remove existing effect, if any. + PRCRemoveEffectsFromSpell(oTarget, GetSpellId()); + + // Apply effects and VFX to target + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eAC, oTarget, fDuration,TRUE,-1,nCasterLevel); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVFX, oTarget); + + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/sp_kelgore_fb.ncs b/_haks/poa_exp_spells/sp_kelgore_fb.ncs new file mode 100644 index 0000000..513d904 Binary files /dev/null and b/_haks/poa_exp_spells/sp_kelgore_fb.ncs differ diff --git a/_haks/poa_exp_spells/sp_kelgore_fb.nss b/_haks/poa_exp_spells/sp_kelgore_fb.nss new file mode 100644 index 0000000..9a6a2e0 --- /dev/null +++ b/_haks/poa_exp_spells/sp_kelgore_fb.nss @@ -0,0 +1,73 @@ +//:://///////////////////////////////////////////// +//:: Name Kelgore's Fire Bolt +//:: FileName sp_kelgore_fb.nss +//::////////////////////////////////////////////// +/**@file Kelgore's Fire Bolt +Conjuration/Evocation [Fire] +Level: Duskblade 1, sorcerer/wizard 1 +Components: V,S,M +Casting Time: 1 standard action +Range: Medium +Target: One creature +Duration: Instantaneous +Saving Thorw: Reflex half +Spell Resistance: See text + +This spell conjures a small orb of rock and sheathes +it in arcane energy. This spell deals 1d6 point of +fire damage per caster level (maximum 5d6). If you +fail to overcome the target's spell resistance, the +spell still deals 1d6 points of fire damage from the +heat and force of the conjured orb's impact. + +Material component: A handful of ashes +**/ + +//////////////////////////////////////////////////// +// Author: Tenjac +// Date: 21.9.06 +//////////////////////////////////////////////////// + +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + object oPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nCasterLvl = PRCGetCasterLevel(oPC); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDC = PRCGetSaveDC(oTarget,OBJECT_SELF); + effect eVis = EffectVisualEffect(VFX_IMP_FLAME_M); + int nMax = nCasterLvl; + if (nMax > 20) nMax = 20; + int nDam = d6(nMax); + + PRCSignalSpellEvent(oTarget,TRUE, SPELL_KELGORES_FIRE_ORB, oPC); + + if(nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 6 * nMax; + } + if(nMetaMagic & METAMAGIC_EMPOWER) + { + nDam += (nDam/2); + } + + if(PRCDoResistSpell(oPC, oTarget, nCasterLvl + SPGetPenetr())) + { + nDam = d6(1); + eVis = EffectVisualEffect(VFX_IMP_FLAME_S); + } + + nDam = PRCGetReflexAdjustedDamage(nDam, oTarget, nDC, SAVING_THROW_TYPE_FIRE); + + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + ApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_FIRE), oTarget); + + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_lahms_fd.ncs b/_haks/poa_exp_spells/sp_lahms_fd.ncs new file mode 100644 index 0000000..3ac4baa Binary files /dev/null and b/_haks/poa_exp_spells/sp_lahms_fd.ncs differ diff --git a/_haks/poa_exp_spells/sp_lahms_fd.nss b/_haks/poa_exp_spells/sp_lahms_fd.nss new file mode 100644 index 0000000..9be4fbb --- /dev/null +++ b/_haks/poa_exp_spells/sp_lahms_fd.nss @@ -0,0 +1,154 @@ +//:://///////////////////////////////////////////// +//:: Name: Lahm's Finger Darts +//:: Filename: sp_lahms_fd.nss +//:://///////////////////////////////////////////// +/**@file Lahm's Finger Darts +Transmutation [Evil] +Level: Corrupt 2 +Components: V S, Corrupt +Casting Time: 1 action +Range: Medium (100 ft. + 10 ft./level) +Targets: Up to five creatures, no two of which can +be more than 15 ft. apart +Duration: Instantaneous +Saving Throw: None +Spell Resistance: Yes + +The caster's finger becomes a dangerous projectile +that flies from her hand and unerringly strikes its +target. The dart deals 1d4 points of Dexterity +damage. Creatures without fingers cannot cast this +spell. + +The dart strikes unerringly, even if the target is +in melee or has partial cover or concealment. +Inanimate objects (locks, doors, and so forth) +cannot be damaged by the spell. + +For every three caster levels beyond 1st, the caster +gains an additional dart by losing an additional +finger: two at 4th level, three at 7th level, four +at 10th level, and the maximum of five darts at 13th +level or higher. If the caster shoots multiple darts, +she can have them strike a single creature or several +creatures. A single dart can strike only one creature. +The caster must designate targets before checking for +spell resistance or damage. + +Fingers lost to this spell grow back when the +corruption cost is healed, at the rate of one finger +per point of Strength damage healed. + +Corruption Cost: 1 point of Strength damage per dart, +plus the loss of one finger per dart. A hand with one +or no fingers is useless. + +@author Written By: Tenjac +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" + +void main() +{ + //Spellhook + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_TRANSMUTATION); + + object oPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nLFingers = (GetPersistantLocalInt(oPC, "FINGERS_LEFT_HAND") - 1); + int nRFingers = (GetPersistantLocalInt(oPC, "FINGERS_RIGHT_HAND")- 1); + int nCasterLvl = PRCGetCasterLevel(oPC); + int nFingers = 1; + int nDam; + effect eVis = EffectVisualEffect(VFX_IMP_MAGBLUE); + effect eMissile = EffectVisualEffect(VFX_IMP_MIRV); + effect eDam = EffectAbilityDecrease(ABILITY_DEXTERITY, nDam); + float fDist = GetDistanceBetween(OBJECT_SELF, oTarget); + float fDelay = fDist/(3.0 * log(fDist) + 2.0); + float fDelay2, fTime; + location lTarget = PRCGetSpellTargetLocation(); + + PRCSignalSpellEvent(oTarget,TRUE, SPELL_LAHMS_FINGER_DARTS, oPC); + + //Set up fingers if it hasn't been done before + if (GetPersistantLocalInt(oPC, "FINGERS_LEFT_HAND") < 1) + { + SetPersistantLocalInt(oPC, "FINGERS_LEFT_HAND", 6); + SetPersistantLocalInt(oPC, "FINGERS_RIGHT_HAND", 6); + nLFingers = 5; + nRFingers = 5; + } + + //Spell Resistance, no save + if(!PRCDoResistSpell(oPC, oTarget, nCasterLvl + SPGetPenetr())) + { + //Calculate fingers used + if(nCasterLvl > 3) nFingers++; + if(nCasterLvl > 6) nFingers++; + if(nCasterLvl > 9) nFingers++; + if(nCasterLvl > 12) nFingers++; + + //gotta set up a new counter because nFingers is used later + int nCounter = nFingers; + + //Determine which hand to screw up + if(nLFingers >= nFingers) + { + nLFingers -= nFingers; + SetPersistantLocalInt(oPC, "FINGERS_LEFT_HAND", nLFingers); + } + + else if(nRFingers >= nFingers) + { + nRFingers -= nFingers; + SetPersistantLocalInt(oPC, "FINGERS_RIGHT_HAND", nRFingers); + } + + else + { + SendMessageToPC(oPC, "You do not have enough fingers left to cast this spell"); + nCounter = 0; + } + + //Damage loop + while(nCounter > 0) + { + nDam = d4(1)+ (nCasterLvl/4); + + //Apply the MIRV and damage effect + DelayCommand(fTime, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eVis, oTarget)); + DelayCommand(fDelay2, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eMissile, oTarget)); + DelayCommand(fTime, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget)); + + // Play the sound of a dart hitting + DelayCommand(fTime, PlaySound("cb_ht_dart1")); + + //decrement nCounter to handle loop termination + nCounter--; + } + + //Determine usefullness of remaining stumps + if(nLFingers < 2) + { + //mark left hand useless + SetPersistantLocalInt(oPC, "LEFT_HAND_USELESS", 1); + } + + if(nRFingers < 2) + { + //mark right hand useless + SetPersistantLocalInt(oPC, "RIGHT_HAND_USELESS", 1); + } + } + + //Corrupt spells get mandatory 10 pt evil adjustment, regardless of switch + AdjustAlignment(oPC, ALIGNMENT_EVIL, 10, FALSE); + + //SPEvilShift(oPC); + DoCorruptionCost(oPC, ABILITY_STRENGTH, nFingers, 0); + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_lconvict.ncs b/_haks/poa_exp_spells/sp_lconvict.ncs new file mode 100644 index 0000000..ccdf5c2 Binary files /dev/null and b/_haks/poa_exp_spells/sp_lconvict.ncs differ diff --git a/_haks/poa_exp_spells/sp_lconvict.nss b/_haks/poa_exp_spells/sp_lconvict.nss new file mode 100644 index 0000000..16e983d --- /dev/null +++ b/_haks/poa_exp_spells/sp_lconvict.nss @@ -0,0 +1,52 @@ +///////////////////////////////////////////////////////////////////// +// +// Legion's Conviction - Give all allies in a huge burst a +2 to +// +5 bonus to saves. +// +///////////////////////////////////////////////////////////////////// + +#include "prc_inc_spells" + +void main() +{ + PRCSetSchool(SPELL_SCHOOL_ABJURATION); + + // Get the spell target location as opposed to the spell target. + location lTarget = PRCGetSpellTargetLocation(); + + // Get the effective caster level. + int nCasterLvl = PRCGetCasterLevel(OBJECT_SELF); + + // Determine the save bonus. + int nBonus = 2 + (PRCGetCasterLevel() / 6); + if (nBonus > 15) nBonus = 15; + + // Determine the spell's duration, taking metamagic feats into account. + float fDuration = PRCGetMetaMagicDuration(TurnsToSeconds(PRCGetCasterLevel())); + + // Declare the spell shape, size and the location. Capture the first target object in the shape. + // Cycle through the targets within the spell shape until an invalid object is captured. + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget, TRUE, OBJECT_TYPE_CREATURE); + while (GetIsObjectValid(oTarget)) + { + if (spellsIsTarget(oTarget, SPELL_TARGET_ALLALLIES, OBJECT_SELF)) + { + //Fire cast spell at event for the specified target + PRCSignalSpellEvent(oTarget, FALSE); + + float fDelay = PRCGetSpellEffectDelay(lTarget, oTarget); + + // Apply the buff and vfx. + effect eBuff = EffectSavingThrowIncrease(SAVING_THROW_ALL, nBonus, SAVING_THROW_TYPE_ALL); + eBuff = EffectLinkEffects(eBuff, EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE)); + eBuff = EffectLinkEffects(eBuff, EffectVisualEffect(VFX_DUR_PROTECTION_GOOD_MINOR)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eBuff, oTarget, fDuration,TRUE,-1,nCasterLvl +)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_RESTORATION_LESSER), oTarget)); + } + + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget, TRUE, OBJECT_TYPE_CREATURE); + } + + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/sp_lcurimpbl.ncs b/_haks/poa_exp_spells/sp_lcurimpbl.ncs new file mode 100644 index 0000000..e20a288 Binary files /dev/null and b/_haks/poa_exp_spells/sp_lcurimpbl.ncs differ diff --git a/_haks/poa_exp_spells/sp_lcurimpbl.nss b/_haks/poa_exp_spells/sp_lcurimpbl.nss new file mode 100644 index 0000000..80fdc16 --- /dev/null +++ b/_haks/poa_exp_spells/sp_lcurimpbl.nss @@ -0,0 +1,52 @@ +///////////////////////////////////////////////////////////////////// +// +// Legion's Curse of Impending Blades - All targets receives a +// -2 to AC penalty. +// +///////////////////////////////////////////////////////////////////// + +#include "prc_inc_spells" + +void main() +{ + PRCSetSchool(SPELL_SCHOOL_NECROMANCY); + + // Get the spell target location as opposed to the spell target. + location lTarget = PRCGetSpellTargetLocation(); + + // Get the effective caster level. + int nCasterLvl = PRCGetCasterLevel(OBJECT_SELF); + + // Determine the save bonus. + int nBonus = 2 + (PRCGetCasterLevel() / 6); + if (nBonus > 15) nBonus = 15; + + // Determine the spell's duration, taking metamagic feats into account. + float fDuration = PRCGetMetaMagicDuration(MinutesToSeconds(PRCGetCasterLevel())); + + // Declare the spell shape, size and the location. Capture the first target object in the shape. + // Cycle through the targets within the spell shape until an invalid object is captured. + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget, TRUE, OBJECT_TYPE_CREATURE); + while (GetIsObjectValid(oTarget)) + { + if(spellsIsTarget(oTarget, SPELL_TARGET_SELECTIVEHOSTILE, OBJECT_SELF)) + { + //Fire cast spell at event for the specified target + PRCSignalSpellEvent(oTarget); + + float fDelay = PRCGetSpellEffectDelay(lTarget, oTarget); + + // Apply the curse and vfx. + effect eCurse = EffectACDecrease(2); + eCurse = EffectLinkEffects(eCurse, EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE)); + eCurse = EffectLinkEffects(eCurse, EffectVisualEffect(VFX_DUR_PROTECTION_EVIL_MINOR)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eCurse, oTarget, fDuration,TRUE,-1,nCasterLvl +)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_REDUCE_ABILITY_SCORE), oTarget)); + } + + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget, TRUE, OBJECT_TYPE_CREATURE); + } + + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/sp_lcurpfail.ncs b/_haks/poa_exp_spells/sp_lcurpfail.ncs new file mode 100644 index 0000000..0052dfa Binary files /dev/null and b/_haks/poa_exp_spells/sp_lcurpfail.ncs differ diff --git a/_haks/poa_exp_spells/sp_lcurpfail.nss b/_haks/poa_exp_spells/sp_lcurpfail.nss new file mode 100644 index 0000000..5fb74ad --- /dev/null +++ b/_haks/poa_exp_spells/sp_lcurpfail.nss @@ -0,0 +1,53 @@ +///////////////////////////////////////////////////////////////////// +// +// Legion's Curse of Petty Failing - Target takes a -2 penalty to +// attacks and saves. +// +///////////////////////////////////////////////////////////////////// + +#include "prc_inc_spells" + +void main() +{ + PRCSetSchool(SPELL_SCHOOL_NECROMANCY); + + // Get the spell target location as opposed to the spell target. + location lTarget = PRCGetSpellTargetLocation(); + + // Get the effective caster level. + int nCasterLvl = PRCGetCasterLevel(OBJECT_SELF); + + // Determine the save bonus. + int nBonus = 2 + (PRCGetCasterLevel() / 6); + if (nBonus > 15) nBonus = 15; + + // Determine the spell's duration, taking metamagic feats into account. + float fDuration = PRCGetMetaMagicDuration(MinutesToSeconds(PRCGetCasterLevel())); + + // Declare the spell shape, size and the location. Capture the first target object in the shape. + // Cycle through the targets within the spell shape until an invalid object is captured. + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget, TRUE, OBJECT_TYPE_CREATURE); + while (GetIsObjectValid(oTarget)) + { + if(spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF)) + { + //Fire cast spell at event for the specified target + PRCSignalSpellEvent(oTarget); + + float fDelay = PRCGetSpellEffectDelay(lTarget, oTarget); + + // Apply the curse and vfx. + effect eCurse = EffectSavingThrowDecrease(SAVING_THROW_ALL, 2); + eCurse = EffectLinkEffects(eCurse, EffectAttackDecrease(2)); + eCurse = EffectLinkEffects(eCurse, EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE)); + eCurse = EffectLinkEffects(eCurse, EffectVisualEffect(VFX_DUR_PROTECTION_EVIL_MINOR)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eCurse, oTarget, fDuration,TRUE,-1,nCasterLvl +)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_REDUCE_ABILITY_SCORE), oTarget)); + } + + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget, TRUE, OBJECT_TYPE_CREATURE); + } + + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/sp_leonl_roar.ncs b/_haks/poa_exp_spells/sp_leonl_roar.ncs new file mode 100644 index 0000000..482caa7 Binary files /dev/null and b/_haks/poa_exp_spells/sp_leonl_roar.ncs differ diff --git a/_haks/poa_exp_spells/sp_leonl_roar.nss b/_haks/poa_exp_spells/sp_leonl_roar.nss new file mode 100644 index 0000000..0728d1e --- /dev/null +++ b/_haks/poa_exp_spells/sp_leonl_roar.nss @@ -0,0 +1,74 @@ +//:://///////////////////////////////////////////// +//:: Name Leonal's Roar +//:: FileName sp_leonl_roar.nss +//::////////////////////////////////////////////// +/**@file Leonal's Roar +Evocation [Good, Sonic] +Level: Drd 8 +Components: V +Casting Time: 1 standard action +Range: 40 ft. +Targets: Non good creatures in a 40-ft.radius spread +centered on you +Duration: Instantaneous +Saving Throw: Fortitude partial +Spell Resistance: Yes + +This spell has the effect of a holy word, and it +additionally deals 2d6 points of sonic damage to +non-good creatures in the area. A successful +Fortitude saving throw negates the sonic damage, +but not the other effects of the spell. + +Author: Tenjac +Created: 7/7/06 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + object oPC = OBJECT_SELF; + location lLoc = PRCGetSpellTargetLocation(); + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, 12.192, lLoc, TRUE, OBJECT_TYPE_CREATURE); + int nDC; + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDam; + int nCasterLvl = PRCGetCasterLevel(oPC); + + while(GetIsObjectValid(oTarget)) + { + nDC = PRCGetSaveDC(oTarget, oPC); + + if(!PRCDoResistSpell(oPC, oTarget, nCasterLvl + SPGetPenetr())) + { + if(!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_SONIC)) + { + nDam = d6(nCasterLvl)+2; + + if(nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 6*(nCasterLvl)+2; + } + + if(nMetaMagic & METAMAGIC_EMPOWER) + { + nDam += (nDam/2); + } + + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_SONIC), oTarget); + } + } + oTarget = MyNextObjectInShape(SHAPE_SPHERE, 12.192, lLoc, TRUE, OBJECT_TYPE_CREATURE); + } + //Holy Word + ActionCastSpellAtLocation(SPELL_HOLY_WORD, lLoc, nMetaMagic, TRUE, PROJECTILE_PATH_TYPE_DEFAULT, TRUE); + //SPGoodShift(oPC); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_lowersr.ncs b/_haks/poa_exp_spells/sp_lowersr.ncs new file mode 100644 index 0000000..5b0cd1c Binary files /dev/null and b/_haks/poa_exp_spells/sp_lowersr.ncs differ diff --git a/_haks/poa_exp_spells/sp_lowersr.nss b/_haks/poa_exp_spells/sp_lowersr.nss new file mode 100644 index 0000000..6350565 --- /dev/null +++ b/_haks/poa_exp_spells/sp_lowersr.nss @@ -0,0 +1,41 @@ +#include "prc_inc_spells" +#include "prc_add_spell_dc" +void main() +{ + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + if (!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_TRANSMUTATION); + + object oTarget = PRCGetSpellTargetObject(); + int nCasterLvl = PRCGetCasterLevel(OBJECT_SELF); + + if(spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF)) + { + // Fire cast spell at event for the specified target + PRCSignalSpellEvent(oTarget); + + if(PRCGetIsAliveCreature(oTarget)) + { + // Let the target attempte to make a fort save. (good luck since there is a penalty equal to the + // caster's level on the save). + if(!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, PRCGetSaveDC(oTarget,OBJECT_SELF) + nCasterLvl, SAVING_THROW_TYPE_SPELL)) + { + // Calculate the duration of the spell. + float fDuration = PRCGetMetaMagicDuration(MinutesToSeconds(nCasterLvl)); + + // Generate a SR decrease for the caster level, up to a max of 15. + int nSRReduction = nCasterLvl; + if (nSRReduction > 40) nSRReduction = 40; + effect eSR = EffectLinkEffects(EffectSpellResistanceDecrease(nSRReduction), EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE)); + + //Apply the VFX impact and effects + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eSR, oTarget, fDuration,TRUE,-1,nCasterLvl); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_REDUCE_ABILITY_SCORE), oTarget); + } + } + } + + PRCSetSchool(); +} + diff --git a/_haks/poa_exp_spells/sp_lshlfat.ncs b/_haks/poa_exp_spells/sp_lshlfat.ncs new file mode 100644 index 0000000..b3cb3a5 Binary files /dev/null and b/_haks/poa_exp_spells/sp_lshlfat.ncs differ diff --git a/_haks/poa_exp_spells/sp_lshlfat.nss b/_haks/poa_exp_spells/sp_lshlfat.nss new file mode 100644 index 0000000..041be81 --- /dev/null +++ b/_haks/poa_exp_spells/sp_lshlfat.nss @@ -0,0 +1,49 @@ +///////////////////////////////////////////////////////////////////// +// +// Legion's Curse of Petty Failing - Target takes a -2 penalty to +// attacks and saves. +// +///////////////////////////////////////////////////////////////////// + +#include "prc_inc_spells" + +void main() +{ + PRCSetSchool(SPELL_SCHOOL_ABJURATION); + + // Get the spell target location as opposed to the spell target. + location lTarget = PRCGetSpellTargetLocation(); + + // Determine the save bonus. + int nCasterLvl = PRCGetCasterLevel(OBJECT_SELF); + int nBonus = 2 + (nCasterLvl / 6); + if (nBonus > 15) nBonus = 15; + + // Determine the spell's duration, taking metamagic feats into account. + float fDuration = PRCGetMetaMagicDuration(MinutesToSeconds(nCasterLvl)); + + // Declare the spell shape, size and the location. Capture the first target object in the shape. + // Cycle through the targets within the spell shape until an invalid object is captured. + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget, TRUE, OBJECT_TYPE_CREATURE); + while (GetIsObjectValid(oTarget)) + { + if (spellsIsTarget(oTarget, SPELL_TARGET_ALLALLIES, OBJECT_SELF)) + { + //Fire cast spell at event for the specified target + PRCSignalSpellEvent(oTarget, FALSE); + + float fDelay = PRCGetSpellEffectDelay(lTarget, oTarget); + + // Apply the curse and vfx. + effect eBuff = EffectACIncrease(nBonus, AC_DEFLECTION_BONUS); + eBuff = EffectLinkEffects(eBuff, EffectVisualEffect(VFX_DUR_PROTECTION_GOOD_MINOR)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eBuff, oTarget, fDuration,TRUE,-1,nCasterLvl +)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_AC_BONUS), oTarget)); + } + + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget, TRUE, OBJECT_TYPE_CREATURE); + } + + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/sp_mass_frshld.ncs b/_haks/poa_exp_spells/sp_mass_frshld.ncs new file mode 100644 index 0000000..26d0f6c Binary files /dev/null and b/_haks/poa_exp_spells/sp_mass_frshld.ncs differ diff --git a/_haks/poa_exp_spells/sp_mass_frshld.nss b/_haks/poa_exp_spells/sp_mass_frshld.nss new file mode 100644 index 0000000..dc5f528 --- /dev/null +++ b/_haks/poa_exp_spells/sp_mass_frshld.nss @@ -0,0 +1,74 @@ +//:://///////////////////////////////////////////// +//:: Name Mass Fire Shield +//:: FileName sp_mass_frshld.nss +//::////////////////////////////////////////////// +/**@file Mass Fire Shield +Evocation [Fire or Cold] +Level: Sorcerer/wizard 5, warmage 5 +Components: V, S, M +Casting Time: 1 standard action +Range: Close (25 ft. + 5 ft./2 levels) +Targets: One or more allied creatures, no two of which +can be more than 30 ft. apart +Duration: 1 round/level (D) +Save: Will negates (harmless) +Spell Resistance: Yes (harmless) + +This spell functions like fire shield (see +page 230 of the Player’s Handbook), +except as noted above. + +Author: Tenjac +Created: 7/6/07 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" + +void main() +{ + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + if(!X2PreSpellCastCode()) return; + + object oPC = OBJECT_SELF; + int nCasterLvl = PRCGetCasterLevel(oPC); + location lLoc = PRCGetSpellTargetLocation(); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDam = min(40,nCasterLvl); + float fDur = RoundsToSeconds(nCasterLvl); + effect eVis, eShield, eReduce; + int nSpell = GetSpellId(); + float fRadius = FeetToMeters(15.0); + + //Extend + if(nMetaMagic & METAMAGIC_EXTEND) fDur += fDur; + + if(nSpell == SPELL_MASS_FIRE_SHIELD_RED) + { + eVis = EffectVisualEffect(VFX_DUR_ELEMENTAL_SHIELD); + eShield = EffectDamageShield(nDam, DAMAGE_BONUS_1d6, ChangedElementalDamage(oPC, DAMAGE_TYPE_FIRE)); + eReduce = EffectDamageImmunityIncrease(DAMAGE_TYPE_COLD, 50); + } + else if (nSpell == SPELL_MASS_FIRE_SHIELD_BLUE) + { + eVis = EffectVisualEffect(VFX_DUR_CHILL_SHIELD); + eShield = EffectDamageShield(nDam, DAMAGE_BONUS_1d6, ChangedElementalDamage(oPC, DAMAGE_TYPE_COLD)); + eReduce = EffectDamageImmunityIncrease(DAMAGE_TYPE_FIRE, 50); + } + effect eLink = EffectLinkEffects(eShield, eVis); + eLink = EffectLinkEffects(eLink, eReduce); + + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, fRadius, lLoc, FALSE, OBJECT_TYPE_CREATURE); + while(GetIsObjectValid(oTarget)) + { + if(GetIsFriend(oTarget, oPC)) + { + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, fDur, TRUE, nSpell, nCasterLvl); + } + oTarget = MyNextObjectInShape(SHAPE_SPHERE, fRadius, lLoc, FALSE, OBJECT_TYPE_CREATURE); + } + PRCSetSchool(); +} + diff --git a/_haks/poa_exp_spells/sp_nec_bloat.ncs b/_haks/poa_exp_spells/sp_nec_bloat.ncs new file mode 100644 index 0000000..cd33ed7 Binary files /dev/null and b/_haks/poa_exp_spells/sp_nec_bloat.ncs differ diff --git a/_haks/poa_exp_spells/sp_nec_bloat.nss b/_haks/poa_exp_spells/sp_nec_bloat.nss new file mode 100644 index 0000000..178d9a5 --- /dev/null +++ b/_haks/poa_exp_spells/sp_nec_bloat.nss @@ -0,0 +1,98 @@ +//:://///////////////////////////////////////////// +//:: Name Necrotic Bloat +//:: FileName sp_nec_bloat.nss +//::////////////////////////////////////////////// +/** @file +Necrotic Bloat +Necromancy [Evil] +Level: Clr 3, sor/wiz 3 +Components: V, S, F +Casting Time: 1 standard action +Range: Medium (100 ft. + 10 ft./level) +Target: Living creature with necrotic cyst +Duration: Instantaneous +Saving Throw: None +Spell Resistance: No + +You cause the cyst of a subject already harboring +a necrotic cyst (see spell of the same name) to +pulse and swell. This agitation of the necrotic +cyst tears living tissue and expands the size of +the cyst, dealing massive internal damage to the +subject. The subject takes 1d6 points of damage +per level (maximum 10d6), and half the damage is +considered vile damage because the cyst expands +to envelop the newly necrotized tissue. The cyst +is reduced to its original size when the vile +damage is healed. + +Vile damage can only be healed +by magic cast within the area of a consecrate or +hallow spell (or an area naturally consecrated or +hallowed). Points of vile damage represent such +an evil violation to a character's body or soul +that only in a holy place, with holy magic, can +the damage be repaired. +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" +#include "spinc_necro_cyst" +#include "inc_utility" + +void main() +{ + // Set the spellschool + PRCSetSchool(SPELL_SCHOOL_NECROMANCY); + + // Run the spellhook. + if (!X2PreSpellCastCode()) return; + + + object oPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nLevel = min(PRCGetCasterLevel(oPC), 20); + int nMetaMagic = PRCGetMetaMagicFeat(); + + PRCSignalSpellEvent(oTarget, TRUE, SPELL_NECROTIC_BLOAT, oPC); + + if(!GetCanCastNecroticSpells(oPC)) + return; + + if(!GetHasNecroticCyst(oTarget)) + { + // "Your target does not have a Necrotic Cyst." + SendMessageToPCByStrRef(oPC, nNoNecCyst); + return; + } + + //Resolve spell + int nDam = d6(nLevel); + + //Metmagic: Maximize + if (nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 6 * (nLevel); + } + + //Metmagic: Empower + if (nMetaMagic & METAMAGIC_EMPOWER) + { + nDam += (nDam/2); + } + + int nVile = nDam/2; + int nNorm = (nDam - nVile); + + //Vile damage is currently being applied as Positive damage + effect eVileDam = PRCEffectDamage(oTarget, nVile, DAMAGE_TYPE_POSITIVE); + effect eNormDam = PRCEffectDamage(oTarget, nNorm, DAMAGE_TYPE_MAGICAL); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVileDam, oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eNormDam, oTarget); + + + PRCSetSchool(); + + //SPEvilShift(oPC); +} diff --git a/_haks/poa_exp_spells/sp_nec_burst.ncs b/_haks/poa_exp_spells/sp_nec_burst.ncs new file mode 100644 index 0000000..29465f2 Binary files /dev/null and b/_haks/poa_exp_spells/sp_nec_burst.ncs differ diff --git a/_haks/poa_exp_spells/sp_nec_burst.nss b/_haks/poa_exp_spells/sp_nec_burst.nss new file mode 100644 index 0000000..d76790c --- /dev/null +++ b/_haks/poa_exp_spells/sp_nec_burst.nss @@ -0,0 +1,118 @@ +//:://///////////////////////////////////////////// +//:: Name Necrotic Burst +//:: FileName sp_nec_burst.nss +//::////////////////////////////////////////////// +/** @file +Necrotic Burst +Necromancy [Evil] +Level: Clr 5, sor/wiz 5 +Components: V, S, F +Casting Time: 1 standard action +Range: Medium (100 ft. + 10 ft./level) +Target: Living creature with necrotic cyst +Duration: Instantaneous +Saving Throw: Fortitude partial +Spell Resistance: No + +You cause the cyst of a subject already harboring a necrotic cyst +(see spell of the same name) to explosively enlarge itself at the +expense of the subject's body tissue. if the subject succeeds on +her saving throw, she takes 1d6 points of damage per level +(maximum 15d6), and half the damage is considered vile damage +(see necrotic bloat). The subject's cyst-derived saving throw +penalty against effects from the school of necromancy applies. + +If the subject fails her saving throw, the cyst expands beyond +control, killing the subject. On the round following the subject's +death, the cyst exits the flesh of the slain subject as a free-willed +undead called a skulking cyst. The skulking cyst is formed from the +naked organs of the subject (usually the intestines, but also +including a mass of blood vessels, the odd bone or two, and +sometimes even half the lolling head). + + Author: Tenjac + Created: 9/22/05 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" +#include "spinc_necro_cyst" +#include "inc_utility" +#include "prc_add_spell_dc" + +void main() +{ + // Set the spellschool + PRCSetSchool(SPELL_SCHOOL_NECROMANCY); + + // Run the spellhook. + if (!X2PreSpellCastCode()) return; + + + object oPC = OBJECT_SELF; + int nLevel = min(PRCGetCasterLevel(oPC), 40); + int nMetaMagic = PRCGetMetaMagicFeat(); + object oTarget = PRCGetSpellTargetObject(); + + PRCSignalSpellEvent(oTarget, TRUE, SPELL_NECROTIC_BURST, oPC); + + if(!GetCanCastNecroticSpells(oPC)) + return; + + if(!GetHasNecroticCyst(oTarget)) + { + // "Your target does not have a Necrotic Cyst." + SendMessageToPCByStrRef(oPC, nNoNecCyst); + return; + } + + //Define nDC + + int nDC = PRCGetSaveDC(oTarget, oPC); + + //Resolve spell + if (PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_EVIL)) + { + if(!GetHasMettle(oTarget, SAVING_THROW_FORT)) + { + + int nDam = d6(nLevel); + + //Metmagic: Maximize + if (nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 6 * (nLevel); + } + + //Metmagic: Empower + if (nMetaMagic & METAMAGIC_EMPOWER) + { + nDam += (nDam/2); + } + + int nVile = nDam/2; + int nNorm = (nDam - nVile); + //Vile damage is currently being applied as Positive damage + effect eVileDam = PRCEffectDamage(oTarget, nVile, DAMAGE_TYPE_POSITIVE); + effect eNormDam = PRCEffectDamage(oTarget, nNorm, DAMAGE_TYPE_MAGICAL); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVileDam, oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eNormDam, oTarget); + } + } + + else + { + DeathlessFrenzyCheck(oTarget); + effect eDeath = EffectDeath(); + + eDeath = SupernaturalEffect(eDeath); + effect eVis = EffectVisualEffect(VFX_IMP_DEATH); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDeath, oTarget); + RemoveCyst(oTarget); + PRCSetSchool(); + } + //SPEvilShift(oPC); +} + diff --git a/_haks/poa_exp_spells/sp_nec_erupt.ncs b/_haks/poa_exp_spells/sp_nec_erupt.ncs new file mode 100644 index 0000000..002b728 Binary files /dev/null and b/_haks/poa_exp_spells/sp_nec_erupt.ncs differ diff --git a/_haks/poa_exp_spells/sp_nec_erupt.nss b/_haks/poa_exp_spells/sp_nec_erupt.nss new file mode 100644 index 0000000..8ee26e2 --- /dev/null +++ b/_haks/poa_exp_spells/sp_nec_erupt.nss @@ -0,0 +1,144 @@ +//:://///////////////////////////////////////////// +//:: Name Necrotic Eruption +//:: FileName sp_nec_erupt.nss +//::////////////////////////////////////////////// +/** @file +Necrotic Eruption +Necromancy [Evil] +Level: Clr 6, sor/wiz 6 +Components: V, S, F +Casting Time: 1 standard action +Range: Medium (100 ft. + 10 ft./level) +Target: Living creature with necrotic cyst and all creatures in 20 ft. Radius spread +Duration: Instantaneous +Saving Throw: Fortitude partial +Spell Resistance: No + +You cause the cyst of a subject already harboring a necrotic cyst +(see spell of the same name) to explosively enlarge itself at the +expense of the subject's body tissue, harming both the subject +(and nearby creatures if the subject fails his save). if the +subject succeeds on his saving throw, he takes 1d6 points of damage + per level (maximum 15d6), and half the damage is considered vile +damage (see necrotic bloat). The subject's cyst-derived saving throw + penalty against effects from the school of necromancy applies. + +If the subject fails his saving throw, the cyst expands beyond control, + killing the subject. All creatures within 20 feet of the subject take +1d6 points of damage per level (maximum 15d6; Reflex half), and half the + damage taken is considered vile damage. All creatures in range that take +this secondary damage are also exposed to the effect of the base necrotic +cyst spell. On the round following the subject's death, the cyst exits the + flesh of the slain subject as a free-willed undead called a skulking cyst. + + Author: Tenjac + Created: 9/22/05 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" +#include "spinc_necro_cyst" +#include "inc_utility" +#include "prc_add_spell_dc" + +void main() +{ + // Set the spellschool + PRCSetSchool(SPELL_SCHOOL_NECROMANCY); + + // Run the spellhook. + if (!X2PreSpellCastCode()) return; + + + object oPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nLevel = min(PRCGetCasterLevel(oPC), 60); + int nMetaMagic = PRCGetMetaMagicFeat(); + + PRCSignalSpellEvent(oTarget, TRUE, SPELL_NECROTIC_ERUPTION, oPC); + + if(!GetCanCastNecroticSpells(oPC)) + return; + + if(!GetHasNecroticCyst(oTarget)) + { + // "Your target does not have a Necrotic Cyst." + SendMessageToPCByStrRef(oPC, nNoNecCyst); + return; + } + + //Define nDC + + int nDC = PRCGetSaveDC(oTarget, oPC); + + //Resolve spell + + + if (PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_EVIL)) + { + if(!GetHasMettle(oTarget, SAVING_THROW_FORT)) + { + + int nDam = d6(nLevel); + + //Metmagic: Maximize + if (nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 6 * (nLevel); + } + + //Metmagic: Empower + if (nMetaMagic & METAMAGIC_EMPOWER) + { + nDam += (nDam/2); + } + + int nVile = nDam/2; + int nNorm = (nDam - nVile); + //Vile damage is currently being applied as Positive damage + effect eVileDam = PRCEffectDamage(oTarget, nVile, DAMAGE_TYPE_POSITIVE); + effect eNormDam = PRCEffectDamage(oTarget, nNorm, DAMAGE_TYPE_MAGICAL); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVileDam, oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eNormDam, oTarget); + } + } + + else + { + //Kill target + DeathlessFrenzyCheck(oTarget); + effect eDeath = EffectDeath(); + effect eVis = EffectVisualEffect(VFX_IMP_DEATH); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDeath, oTarget); + RemoveCyst(oTarget); + + //Apply same damage above in ALL creatures in 20 foot radius of target + location lTarget = PRCGetSpellTargetLocation(); + //Declare the spell shape, size and the location. Capture the first target object in the shape. + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget, TRUE, OBJECT_TYPE_CREATURE); + + //Cycle through the targets within the spell shape until an invalid object is captured. + while (GetIsObjectValid(oTarget)) + { + int nDam = d6(nLevel); + int nVile = nDam/2; + int nNorm = (nDam - nVile); + //Vile damage is currently being applied as Positive damage + effect eVileDam = PRCEffectDamage(oTarget, nVile, DAMAGE_TYPE_POSITIVE); + effect eNormDam = PRCEffectDamage(oTarget, nNorm, DAMAGE_TYPE_MAGICAL); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVileDam, oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eNormDam, oTarget); + //Apply Necrotic Cyst to target + AssignCommand(oPC, ActionCastSpellAtObject(SPELL_NECROTIC_CYST, oTarget, METAMAGIC_NONE, TRUE, 6, PROJECTILE_PATH_TYPE_DEFAULT, TRUE)); + + //Select the next target within the spell shape. + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget, TRUE, OBJECT_TYPE_CREATURE); + } + } + + //SPEvilShift(oPC); + + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/sp_nec_term.ncs b/_haks/poa_exp_spells/sp_nec_term.ncs new file mode 100644 index 0000000..83c49e3 Binary files /dev/null and b/_haks/poa_exp_spells/sp_nec_term.ncs differ diff --git a/_haks/poa_exp_spells/sp_nec_term.nss b/_haks/poa_exp_spells/sp_nec_term.nss new file mode 100644 index 0000000..88d24f4 --- /dev/null +++ b/_haks/poa_exp_spells/sp_nec_term.nss @@ -0,0 +1,141 @@ +//:://///////////////////////////////////////////// +//:: Name Necrotic Termination +//:: FileName sp_nec_term.nss +//::////////////////////////////////////////////// +/** @file + Necrotic Termination + Necromancy [Evil] + Level: Clr 9, sor/wiz 9 + Components: V, S, F, XP + Casting Time: 1 standard action + Range: Medium (100 ft. + 10 ft./level) + Target: Living creature with necrotic cyst + Duration: Instantaneous + Saving Throw: Fortitude partial + Spell Resistance: No + + You cause the cyst of a subject already harboring a necrotic cyst + (see spell of the same name) to physically and spiritually enlarge + itself at the expense of the subject's body and soul. If the subject + succeeds on her saving throw, she takes 1d6 points of damage per level + (maximum 25d6), and half the damage is considered vile damage + (see necrotic bloat). The subject's cyst-derived saving throw penalty + against effects from the school of necromancy applies. + + If the subject fails her saving throw, the cyst expands beyond control, + killing the subject and digesting her soul. Raise dead, resurrection, + true resurrection, wish, and miracle cannot return life to the subject + once her soul is digested-she is gone forever. On the round following + the subject's death, the cyst exits the flesh of the slain subject as + a free-willed undead called a skulking cyst. + + XP Cost: 1,000 XP. + + Author: Tenjac + Created: 10/28/05 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" +#include "spinc_necro_cyst" +#include "prc_inc_switch" +#include "inc_utility" +#include "prc_add_spell_dc" + + +void main() +{ + // Set the spellschool + PRCSetSchool(SPELL_SCHOOL_NECROMANCY); + + // Run the spellhook. + if (!X2PreSpellCastCode()) return; + + object oPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nLevel = min(PRCGetCasterLevel(oPC), 80); + int nMetaMagic = PRCGetMetaMagicFeat(); + + PRCSignalSpellEvent(oTarget, TRUE, SPELL_NECROTIC_TERMINATION, oPC); + + + if(!GetCanCastNecroticSpells(oPC)) + return; + + if(!GetHasNecroticCyst(oTarget)) + { + // "Your target does not have a Necrotic Cyst." + SendMessageToPCByStrRef(oPC, nNoNecCyst); + return; + } + //Check for perma-death + if(GetPRCSwitch(PRC_NEC_TERM_PERMADEATH)) + { + int nCost = 1000; + //Check XP if perma-death enabled + if(GetHasXPToSpend(oPC, nCost)) + SpendXP(oPC, nCost); + else + { + SendMessageToPC(oPC, "You don't have enough experience to cast this spell"); + return; + } + } + //SPEvilShift(oPC); + + + //Define nDC + int nDC = PRCGetSaveDC(oTarget, oPC); + + //Resolve spell + + if(PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_EVIL)) + { + if(!GetHasMettle(oTarget, SAVING_THROW_FORT)) + { + int nDam = d6(nLevel); + + //Metmagic: Maximize + if (nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 6 * (nLevel); + } + + //Metmagic: Empower + if (nMetaMagic & METAMAGIC_EMPOWER) + { + nDam += (nDam/2); + } + + int nVile = nDam/2; + int nNorm = (nDam - nVile); + //Vile damage is currently being applied as Positive damage + effect eVileDam = PRCEffectDamage(oTarget, nVile, DAMAGE_TYPE_POSITIVE); + effect eNormDam = PRCEffectDamage(oTarget, nNorm, DAMAGE_TYPE_MAGICAL); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVileDam, oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eNormDam, oTarget); + } + } + + + else + { + //Target SOL. Kill it. + DeathlessFrenzyCheck(oTarget); + effect eDeath = EffectDeath(); + effect eVis = EffectVisualEffect(VFX_IMP_DEATH); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDeath, oTarget); + + //Check for module perma-death + if(GetPRCSwitch(PRC_NEC_TERM_PERMADEATH)) + { + //Prevent revive + SetLocalInt(oPC, "PERMA_DEAD", 1); + } + + RemoveCyst(oTarget); + } + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_nght_caress.ncs b/_haks/poa_exp_spells/sp_nght_caress.ncs new file mode 100644 index 0000000..d2871ae Binary files /dev/null and b/_haks/poa_exp_spells/sp_nght_caress.ncs differ diff --git a/_haks/poa_exp_spells/sp_nght_caress.nss b/_haks/poa_exp_spells/sp_nght_caress.nss new file mode 100644 index 0000000..23b4dc2 --- /dev/null +++ b/_haks/poa_exp_spells/sp_nght_caress.nss @@ -0,0 +1,122 @@ +/* + sp_nght_caress + + School: Necromancy [Evil] + Level: Sorc/Wiz 5 + Compnents: V,S + Range: Touch + Duration: Instantaneous + Save: Fortitude partial + Spell Resistance: Yes + + A touch from your hand, which sheds darkness like + the blackest of night, disrupts the life force of + a living creature. Your touch deals 1d6 points of + damage per caster level (max 15d6), and 1d6+2 + points of Constituion damage (a sucessful Fortitude + saving throw negates the Constitution damage.) + + The spell has a special effect on an undead creature. + An undead touched by you takes no damage, but it + must make a successful Will saving throw or flee + as if panicked for 1d4 rounds + 1 round per caster + level. + + By: Tenjac + Created: Dec 13, 2005 + Modified: Jul 2, 2006 + + added spell betrayal/spellstrike damage, touch attack damage + set vfx to DURATION_TYPE_INSTANT +*/ + +#include "prc_sp_func" +#include "prc_inc_sp_tch" +#include "prc_add_spell_dc" + +//Implements the spell impact, put code here +// if called in many places, return TRUE if +// stored charges should be decreased +// eg. touch attack hits +// +// Variables passed may be changed if necessary +int DoSpell(object oCaster, object oTarget, int nCasterLevel, int nEvent) +{ + int nCasterLevel = PRCGetCasterLevel(OBJECT_SELF); + int nDC = PRCGetSaveDC(oTarget, oCaster); + int nMetaMagic = PRCGetMetaMagicFeat(); + PRCSignalSpellEvent(oTarget, TRUE, SPELL_NIGHTS_CARESS, oCaster); + + //Make touch attack + int nTouch = PRCDoMeleeTouchAttack(oTarget); + if(nTouch) + { + if(MyPRCGetRacialType(oTarget) == RACIAL_TYPE_UNDEAD) + { + //Will saving throw + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_EVIL)) + { + float fRounds = RoundsToSeconds(d4(1) + nCasterLevel); + if (CheckMetaMagic(nMetaMagic, METAMAGIC_EXTEND)) fRounds *= 2; + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectLinkEffects(EffectFrightened(), EffectVisualEffect(VFX_IMP_HEAD_EVIL)), oTarget, fRounds); + } + } + //Spell Resistance + else if (!PRCDoResistSpell(oCaster, oTarget, nCasterLevel + SPGetPenetr()) && PRCGetIsAliveCreature(oTarget)) + { + //Max of 15 caster levels + if (nCasterLevel > 40) nCasterLevel = 40; + int nDam = d6(nCasterLevel); + //Metmagic: Maximize + if (nMetaMagic & METAMAGIC_MAXIMIZE) nDam = 6 * nCasterLevel; + //Metmagic: Empower + if (nMetaMagic & METAMAGIC_EMPOWER) nDam += (nDam/2); + nDam += ApplySpellBetrayalStrikeDamage(oTarget, oCaster); + //Apply damage as magical + ApplyTouchAttackDamage(oCaster, oTarget, nTouch, nDam, DAMAGE_TYPE_MAGICAL); + + // Fort saving throw + if (!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_EVIL)) + { + int nConDam = (d6(1) + 2); + if (nMetaMagic & METAMAGIC_MAXIMIZE) nConDam = 8; + if (nMetaMagic & METAMAGIC_EMPOWER) nConDam += (nConDam/2); + //Ability damage healing 1 point per hour + ApplyAbilityDamage(oTarget, ABILITY_CONSTITUTION, nConDam, DURATION_TYPE_TEMPORARY, TRUE, -1.0, FALSE, oCaster); + //Drain VFX + SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_REDUCE_ABILITY_SCORE), oTarget); + } + } + } + + return nTouch; //return TRUE if spell charges should be decremented +} + +void main() +{ + object oCaster = OBJECT_SELF; + int nCasterLevel = PRCGetCasterLevel(oCaster); + PRCSetSchool(GetSpellSchool(PRCGetSpellId())); + if (!X2PreSpellCastCode()) return; + object oTarget = PRCGetSpellTargetObject(); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + //SPEvilShift(oCaster); + if(GetLocalInt(oCaster, PRC_SPELL_HOLD) && oCaster == oTarget) + { //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + DoSpell(oCaster, oTarget, nCasterLevel, nEvent); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel, nEvent)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_ot_frz_sphere.ncs b/_haks/poa_exp_spells/sp_ot_frz_sphere.ncs new file mode 100644 index 0000000..7a6a905 Binary files /dev/null and b/_haks/poa_exp_spells/sp_ot_frz_sphere.ncs differ diff --git a/_haks/poa_exp_spells/sp_ot_frz_sphere.nss b/_haks/poa_exp_spells/sp_ot_frz_sphere.nss new file mode 100644 index 0000000..29d8fe0 --- /dev/null +++ b/_haks/poa_exp_spells/sp_ot_frz_sphere.nss @@ -0,0 +1,125 @@ +//:://///////////////////////////////////////////// +//:: Name Otiluke's Freezing Sphere +//:: FileName sp_ot_frz_sphere.nss +//::////////////////////////////////////////////// +/**@file Otiluke's Freezing Sphere +Evocation [Cold] +Level: Sor/Wiz 6 +Components: V, S, F +Casting Time: 1 standard action +Range: Long (400 ft. + 40 ft./level) +Target, Effect, or Area: See text +Duration: Instantaneous or 1 round/level; see text +Saving Throw: Reflex half; see text +Spell Resistance: Yes + +Freezing sphere creates a frigid globe of cold energy +that streaks from your fingertips to the location you +select, where it explodes in a 10-foot-radius burst, +dealing 1d6 points of cold damage per caster level +(maximum 15d6) to each creature in the area. An +elemental (water) creature instead takes 1d8 points +of cold damage per caster level (maximum 15d8). + +You can refrain from firing the globe after +completing the spell, if you wish. Treat this as a +touch spell for which you are holding the charge. +You can hold the charge for as long as 1 round per +level, at the end of which time the freezing sphere +bursts centered on you (and you receive no saving +throw to resist its effect). Firing the globe in a +later round is a standard action. + +Focus: A small crystal sphere. + +Author: Tenjac +Created: 7/6/07 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +int GetIsWaterElemental(object oTarget); + +#include "prc_inc_spells" +#include "prc_add_spell_dc" +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + object oPC = OBJECT_SELF; + object oTarget; + location lTarget = PRCGetSpellTargetLocation(); + int nCasterLvl = PRCGetCasterLevel(oPC); + int nDice = min(40, nCasterLvl); + int nMetaMagic = PRCGetMetaMagicFeat(); + int eDamageType = ChangedElementalDamage(oPC, DAMAGE_TYPE_COLD); + int nDC, bIsElemental, nDam; + float fDelay; + effect eImp = EffectVisualEffect(VFX_IMP_FROST_S); + effect eVis = EffectVisualEffect(VFX_FNF_OTIL_COLDSPHERE); + effect eDam; + + nCasterLvl += SPGetPenetr(); + + // Apply AOE location explosion + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eVis, lTarget); + + oTarget = MyFirstObjectInShape(SHAPE_SPHERE, FeetToMeters(10.0), lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + + while(GetIsObjectValid(oTarget)) + { + // PvP Check + if(!GetIsReactionTypeFriendly(oTarget, oPC)) + { + // Get the distance between the explosion and the target to calculate delay + fDelay = GetDistanceBetweenLocations(lTarget, GetLocation(oTarget))/20; + + // Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_OTILUKES_FREEZING_SPHERE)); + + if(!PRCDoResistSpell(oPC, oTarget, nCasterLvl)) + { + // Damage - it is 1d8 for water elementals! + bIsElemental = GetIsWaterElemental(oTarget); + nDC = PRCGetSaveDC(oTarget, oPC); + + nDam = bIsElemental ? d8(nDice) : d6(nDice); + if(nMetaMagic & METAMAGIC_MAXIMIZE) + nDam = bIsElemental ? 8 * nDice : 6 * nDice; + if(nMetaMagic & METAMAGIC_EMPOWER) + nDam += (nDam/2); + + nDam = PRCGetReflexAdjustedDamage(nDam, oTarget, nDC, SAVING_THROW_TYPE_COLD); + + // Need to do damage to apply visuals + if(nDam > 0) + { + eDam = PRCEffectDamage(oTarget, nDam, eDamageType); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eImp, oTarget)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget)); + PRCBonusDamage(oTarget); + } + } + } + oTarget = MyNextObjectInShape(SHAPE_SPHERE, FeetToMeters(10.0), lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + } + PRCSetSchool(); +} + +int GetIsWaterElemental(object oTarget) +{ + if(GetObjectType(oTarget) != OBJECT_TYPE_CREATURE) + return FALSE; + + int nAppearance = GetAppearanceType(oTarget); + if(nAppearance == APPEARANCE_TYPE_ELEMENTAL_WATER + || nAppearance == APPEARANCE_TYPE_ELEMENTAL_WATER_ELDER) + return TRUE; + + if(FindSubString(GetStringLowerCase(GetSubRace(oTarget)), "water elemental", 0) > -1) + return TRUE; + + return FALSE; +} diff --git a/_haks/poa_exp_spells/sp_panacea.ncs b/_haks/poa_exp_spells/sp_panacea.ncs new file mode 100644 index 0000000..cf2dc54 Binary files /dev/null and b/_haks/poa_exp_spells/sp_panacea.ncs differ diff --git a/_haks/poa_exp_spells/sp_panacea.nss b/_haks/poa_exp_spells/sp_panacea.nss new file mode 100644 index 0000000..20ab55a --- /dev/null +++ b/_haks/poa_exp_spells/sp_panacea.nss @@ -0,0 +1,102 @@ +///////////////////////////////////////////////////////////////////// +// +// Panacea - Heals 1d8+1/lvl (max 1d8+20) hp, cures the following +// conditions: blinded, confused, dazed, deafened, diseased, +// frightened, paralyzed, poisoned, sleep, and stunned. +// +///////////////////////////////////////////////////////////////////// + +#include "prc_inc_sp_tch" +#include "prc_add_spell_dc" +void main() +{ + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + if (!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_CONJURATION); + + // Get the target and raise the spell cast event. + object oTarget = PRCGetSpellTargetObject(); + // Compute the damage to add to the dice roll. + int nCasterLvl = PRCGetCasterLevel(OBJECT_SELF); + int nAdd = nCasterLvl; + if (nAdd > 40) nAdd = 40; + int nPenetr = nCasterLvl + SPGetPenetr(); + + // If the target is not undead then heal it and remove all harmfull effects. If + // the target is undead then check for SR. + if (RACIAL_TYPE_UNDEAD != MyPRCGetRacialType(oTarget) + && !(GetHasFeat(FEAT_TOMB_TAINTED_SOUL, oTarget) && GetAlignmentGoodEvil(oTarget) != ALIGNMENT_GOOD)) + { + PRCSignalSpellEvent(oTarget, FALSE); + + // Look for detrimental effects and remove them. Removes the following effects: + // blinded, confused, dazed, deafened, diseased, frightened, paralyzed, + // poisoned, sleep, and stunned. + effect eEffect = GetFirstEffect(oTarget); + while (GetIsEffectValid(eEffect)) + { + // GetIsValidEffect() appears to be returning TRUE sometimes even for invalid effects so + // catch that here. + int nEffectType = GetEffectType(eEffect); + if (EFFECT_TYPE_INVALIDEFFECT == nEffectType) + { + PrintString("****EFFECT_TYPE_INVALIDEFFECT returned but GetIsValidEffect() returns TRUE"); + break; + } + + // catch all of the detrimental effects and remove them. + if (EFFECT_TYPE_BLINDNESS == nEffectType || + EFFECT_TYPE_CONFUSED == nEffectType || + EFFECT_TYPE_DAZED == nEffectType || + EFFECT_TYPE_DEAF == nEffectType || + EFFECT_TYPE_DISEASE == nEffectType || + EFFECT_TYPE_FRIGHTENED == nEffectType || + EFFECT_TYPE_PARALYZE == nEffectType || + EFFECT_TYPE_POISON == nEffectType || + EFFECT_TYPE_SLEEP == nEffectType || + EFFECT_TYPE_STUNNED == nEffectType) + RemoveEffect(oTarget, eEffect); + + eEffect = GetNextEffect(oTarget); + } + + // Roll the healing 'damage'. + int nHeal = PRCGetMetaMagicDamage(DAMAGE_TYPE_POSITIVE, 1, 8, 0, nAdd); + if (GetLevelByClass(CLASS_TYPE_HEALER, OBJECT_SELF)) + nHeal += GetAbilityModifier(ABILITY_CHARISMA, OBJECT_SELF); + + // Apply the healing and VFX. + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectHeal(nHeal, oTarget), oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_HEALING_M), oTarget); + } + else if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF)) + { + PRCSignalSpellEvent(oTarget); + + if (!PRCDoResistSpell(OBJECT_SELF, oTarget,nPenetr)) + { + int nTouch = PRCDoMeleeTouchAttack(oTarget);; + if (nTouch > 0) + { + // Roll the damage (allowing for a critical) and let the target make a will save to + // halve the damage. + int nDamage = PRCGetMetaMagicDamage(DAMAGE_TYPE_POSITIVE, 1 == nTouch ? 1 : 2, 8, 0, nAdd); + if (PRCMySavingThrow(SAVING_THROW_WILL, oTarget, PRCGetSaveDC(oTarget,OBJECT_SELF))) + { + nDamage /= 2; + if (GetHasMettle(oTarget, SAVING_THROW_WILL)) // Ignores partial effects + { + nDamage = 0; + } + } + + // Apply damage and VFX. + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_POSITIVE), oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_SUNSTRIKE), oTarget); + } + } + } + + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/sp_phoenix_fire.ncs b/_haks/poa_exp_spells/sp_phoenix_fire.ncs new file mode 100644 index 0000000..f75f89e Binary files /dev/null and b/_haks/poa_exp_spells/sp_phoenix_fire.ncs differ diff --git a/_haks/poa_exp_spells/sp_phoenix_fire.nss b/_haks/poa_exp_spells/sp_phoenix_fire.nss new file mode 100644 index 0000000..064ec24 --- /dev/null +++ b/_haks/poa_exp_spells/sp_phoenix_fire.nss @@ -0,0 +1,172 @@ +//:://///////////////////////////////////////////// +//:: Name Phoenix Fire +//:: FileName sp_phoenix_fire.nss +//::////////////////////////////////////////////// +/** @file +Phoenix Fire +Necromancy [Fire, Good] +Level: Sanctified 7 +Components: V,S,F,Sacrifice +Range: 15 feet +Area: 15 foot radius spread, centered on you +Duration: Instantaneous (see text) +Saving Throw: Reflex half (see text) +Spell Resistance: Yes (see text) + +You immolate yourself, consuming your flesh in a +cloud of flame 20 feet high and 30 feet in diameter. +You die (no saving throw, and spell resistance does +not apply). Every evil creature within the cloud takes +2d6 points of damage per caster level (maximum 40d6). +Neutral characters take half damage (and a successful +Reflex save reduces that further in half), while good +characters take no damage at all. Half of the damage +dealt by the spell against any creature is fire; the +rest results directly from divine power and is +therefore not subject to being reduced by resistance +to fire-based attacks, such as that granted by +protection from energy(fire), fire shield(chill +shield), and similar magic. + +After 10 minutes, you rise from the ashes as if restored +to life by a resurrection spell. + +Sacrifice: Your death and the level you lose when you +return to life are the sacrifice cost for this spell. + +*/ +// Author: Tenjac +// Created: 1/6/2006 +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + + +void Counter(object oPC, int nCounter); + +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_NECROMANCY); + + //Define vars + object oPC = OBJECT_SELF; + location lLoc = GetLocation(oPC); + int nCasterLvl = PRCGetCasterLevel(oPC); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDam; + float fDur = TurnsToSeconds(10); + + //Immolate VFX on caster - VFX_IMP_HOLY_AID for casting VFX + effect eFire = EffectVisualEffect(VFX_FNF_FIREBALL); + effect eDivine = EffectVisualEffect(VFX_FNF_STRIKE_HOLY); + + DelayCommand(0.3f, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eFire, oPC)); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDivine, oPC); + + //VFX + ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_GHOST_SMOKE_2), lLoc, fDur); + + //"Kill" player + effect eLink = EffectLinkEffects(EffectCutsceneParalyze(), EffectCutsceneGhost()); + eLink = EffectLinkEffects(EffectVisualEffect(VFX_DUR_CUTSCENE_INVISIBILITY), eLink); + eLink = EffectLinkEffects(eLink, EffectEthereal()); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oPC, fDur); + Counter(oPC, 10); + + SetPlotFlag(oPC, TRUE); + DelayCommand(fDur, SetPlotFlag(oPC, FALSE)); + DelayCommand(fDur, ApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectHeal(GetMaxHitPoints(oPC), oPC), oPC)); + + //Get first object in shape + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, lLoc, TRUE, OBJECT_TYPE_CREATURE); + + //While object valid + while(GetIsObjectValid(oTarget)) + { + if (!PRCDoResistSpell(OBJECT_SELF, oTarget, nCasterLvl + SPGetPenetr())) + { + int nDC = PRCGetSaveDC(oTarget, oPC); + + //If alignment evil + if(GetAlignmentGoodEvil(oTarget) == ALIGNMENT_EVIL) + { + //Damage = 2d6/level + nDam = d6(min(60, (2 * nCasterLvl))); + + if(nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 6 * (min(60, (2 * nCasterLvl))); + } + + if(nMetaMagic & METAMAGIC_EMPOWER) + { + nDam += (nDam/2); + } + + //Reflex save for 1/2 damage + if(PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, nDC, SAVING_THROW_TYPE_GOOD)) + { + nDam = nDam/2; + } + + //Half divine, half fire + int nDiv = nDam/2; + nDam = nDam - nDiv; + + //Apply damage + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDiv, DAMAGE_TYPE_DIVINE), oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_FIRE), oTarget); + } + + //If alignment neutral + else if(GetAlignmentGoodEvil(oTarget) == ALIGNMENT_NEUTRAL) + { + //Half damage for neutrality, Damage = 1d6 + nDam = d6(min(40,nCasterLvl)); + + if(nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 6 * (min(40,nCasterLvl)); + } + + if(nMetaMagic & METAMAGIC_EMPOWER) + { + nDam += (nDam/2); + } + + //Reflex for further 1/2 + if(PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, nDC, SAVING_THROW_TYPE_GOOD)) + { + nDam = nDam/2; + } + + //Half divine, half fire + int nDiv = nDam/2; + nDam = nDam - nDiv; + + //Apply damage + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDiv, DAMAGE_TYPE_DIVINE), oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_FIRE), oTarget); + } + } + //Get next object in shape + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, lLoc, TRUE, OBJECT_TYPE_CREATURE); + } + + //Sanctified spells get mandatory 10 pt good adjustment, regardless of switch + AdjustAlignment(oPC, ALIGNMENT_GOOD, 10, FALSE); + + PRCSetSchool(); + //SPGoodShift(oPC); +} + +void Counter(object oPC, int nCounter) +{ + FloatingTextStringOnCreature("Phoenix Fire: " + IntToString(nCounter) + " turns remaining until resurrection.", oPC); + nCounter--; + if(nCounter > 0) DelayCommand(TurnsToSeconds(1), Counter(oPC, nCounter)); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_pnp_frshld.ncs b/_haks/poa_exp_spells/sp_pnp_frshld.ncs new file mode 100644 index 0000000..13e98c8 Binary files /dev/null and b/_haks/poa_exp_spells/sp_pnp_frshld.ncs differ diff --git a/_haks/poa_exp_spells/sp_pnp_frshld.nss b/_haks/poa_exp_spells/sp_pnp_frshld.nss new file mode 100644 index 0000000..1e079ce --- /dev/null +++ b/_haks/poa_exp_spells/sp_pnp_frshld.nss @@ -0,0 +1,102 @@ +//:://///////////////////////////////////////////// +//:: Name +//:: FileName sp_.nss +//::////////////////////////////////////////////// +/**@file Fire Shield +Evocation [Fire or Cold] +Level: Fire 5, Sor/Wiz 4, Sun 4 +Components: V, S, M/DF +Casting Time: 1 standard action +Range: Personal +Target: You +Duration: 1 round/level (D) + +This spell wreathes you in flame and causes damage +to each creature that attacks you in melee. The +flames also protect you from either cold-based or +fire-based attacks (your choice). + +Any creature striking you with its body or a +handheld weapon deals normal damage, but at the +same time the attacker takes 1d6 points of damage ++1 point per caster level (maximum +15). This +damage is either cold damage (if the shield +protects against fire-based attacks) or fire +damage (if the shield protects against cold-based +attacks). If the attacker has spell resistance, +it applies to this effect. Creatures wielding +weapons with exceptional reach are not subject to +this damage if they attack you. + +When casting this spell, you appear to immolate +yourself, but the flames are thin and wispy, +giving off light equal to only half the +illumination of a normal torch (10 feet). The +special powers of each version are as follows. + +Warm Shield: The flames are warm to the touch. +You take only half damage from cold-based attacks. +If such an attack allows a Reflex save for half +damage, you take no damage on a successful save. + +Chill Shield: The flames are cool to the touch. +You take only half damage from fire-based attacks. +If such an attack allows a Reflex save for half +damage, you take no damage on a successful save. + +Author: Tenjac +Created: 7/6/07 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + object oPC = OBJECT_SELF; + int nCasterLvl = PRCGetCasterLevel(oPC); + int nSpell = GetSpellId(); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDam = min(40,nCasterLvl); + float fDur = RoundsToSeconds(nCasterLvl); + effect eShield; + effect eVis; + effect eReduce; + + //Extend + if(nMetaMagic & METAMAGIC_EXTEND) fDur += fDur; + + if(nSpell == SPELL_PNP_FIRE_SHIELD_RED) + { + eVis = EffectVisualEffect(VFX_DUR_ELEMENTAL_SHIELD); + eShield = EffectDamageShield(nDam, DAMAGE_BONUS_1d6, ChangedElementalDamage(oPC, DAMAGE_TYPE_FIRE)); + eReduce = EffectDamageImmunityIncrease(DAMAGE_TYPE_COLD, 50); + + } + + else if(nSpell == SPELL_PNP_FIRE_SHIELD_BLUE) + { + eVis = EffectVisualEffect(VFX_DUR_CHILL_SHIELD); + eShield = EffectDamageShield(nDam, DAMAGE_BONUS_1d6, ChangedElementalDamage(oPC, DAMAGE_TYPE_COLD)); + eReduce = EffectDamageImmunityIncrease(DAMAGE_TYPE_FIRE, 50); + } + + else + { + PRCSetSchool(); + return; + } + + effect eLink = EffectLinkEffects(eShield, eVis); + eLink = EffectLinkEffects(eLink, eReduce); + + //apply + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oPC, fDur, TRUE, nSpell, nCasterLvl); + + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_polar_ray.ncs b/_haks/poa_exp_spells/sp_polar_ray.ncs new file mode 100644 index 0000000..cd46d41 Binary files /dev/null and b/_haks/poa_exp_spells/sp_polar_ray.ncs differ diff --git a/_haks/poa_exp_spells/sp_polar_ray.nss b/_haks/poa_exp_spells/sp_polar_ray.nss new file mode 100644 index 0000000..34037ac --- /dev/null +++ b/_haks/poa_exp_spells/sp_polar_ray.nss @@ -0,0 +1,117 @@ +/* +Polar Ray + +Caster Level(s): Wizard / Sorcerer 8 +Innate Level: 8 +School: Evocation +Descriptor(s): Cold +Component(s): Verbal, Somatic +Range: Short +Area of Effect / Target: Single +Duration: Instant +Additional Counter Spells: +Save: None +Spell Resistance: Yes + +A blue-white ray of freezing air and ice springs from your hand. +You must succeed on a ranged touch attack with the ray to deal +damage to a target. The ray deals 1d6 points of cold damage per +caster level (maximum 25d6). +*/ + +//::Added hold ray functionality - HackyKid + + +#include "prc_inc_sp_tch" + +#include "prc_add_spell_dc" +#include "prc_sp_func" + +//Implements the spell impact, put code here +// if called in many places, return TRUE if +// stored charges should be decreased +// eg. touch attack hits +// +// Variables passed may be changed if necessary +int DoSpell(object oCaster, object oTarget, int nCasterLevel, int nEvent) +{ + int nMetaMagic = PRCGetMetaMagicFeat(); + int nSaveDC = PRCGetSaveDC(oTarget, oCaster); + int nPenetr = nCasterLevel + SPGetPenetr(); + int nDam = nCasterLevel; + // 25d6 Max + if (nDam > 60) nDam = 60; + nDam = d6(nDam); + effect eDam; + effect eVis = EffectVisualEffect(VFX_IMP_FROST_S); + effect eRay = EffectBeam(VFX_BEAM_COLD, OBJECT_SELF, BODY_NODE_HAND); + + int iAttackRoll = 0; + + if(!GetIsReactionTypeFriendly(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_RAY_OF_FROST)); + eRay = EffectBeam(VFX_BEAM_COLD, OBJECT_SELF, BODY_NODE_HAND); + + iAttackRoll = PRCDoRangedTouchAttack(oTarget);; + if(iAttackRoll > 0) + { + //Make SR Check + if(!PRCDoResistSpell(OBJECT_SELF, oTarget, nPenetr)) + { + //Enter Metamagic conditions + if (CheckMetaMagic(nMetaMagic, METAMAGIC_MAXIMIZE)) + { + nDam = 6 * nCasterLevel;//Damage is at max + // 25 * 6 = 150, so its the most the spell can do. + // if (nDam > 400) nDam = 400; + } + if (CheckMetaMagic(nMetaMagic, METAMAGIC_EMPOWER)) + { + nDam = nDam + nDam/2; //Damage/Healing is +50% + } + + // perform ranged touch attack and apply sneak attack if any exists + int eDamageType = ChangedElementalDamage(OBJECT_SELF, DAMAGE_TYPE_COLD); + ApplyTouchAttackDamage(OBJECT_SELF, oTarget, iAttackRoll, nDam, eDamageType); + PRCBonusDamage(oTarget); + + //Apply the VFX impact and damage effect + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + } + } + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eRay, oTarget, 1.7,FALSE); + + return iAttackRoll; //return TRUE if spell charges should be decremented +} + +void main() +{ + object oCaster = OBJECT_SELF; + int nCasterLevel = PRCGetCasterLevel(oCaster); + PRCSetSchool(GetSpellSchool(PRCGetSpellId())); + if (!X2PreSpellCastCode()) return; + object oTarget = PRCGetSpellTargetObject(); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if (GetLocalInt(oCaster, PRC_SPELL_HOLD) && GetHasFeat(FEAT_EF_HOLD_RAY, oCaster) && oCaster == oTarget) + { //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + if (oCaster != oTarget) //cant target self with this spell, only when holding charge + DoSpell(oCaster, oTarget, nCasterLevel, nEvent); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel, nEvent)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/sp_prism_wallA.ncs b/_haks/poa_exp_spells/sp_prism_wallA.ncs new file mode 100644 index 0000000..2ecc09c Binary files /dev/null and b/_haks/poa_exp_spells/sp_prism_wallA.ncs differ diff --git a/_haks/poa_exp_spells/sp_prism_wallA.nss b/_haks/poa_exp_spells/sp_prism_wallA.nss new file mode 100644 index 0000000..4464119 --- /dev/null +++ b/_haks/poa_exp_spells/sp_prism_wallA.nss @@ -0,0 +1,213 @@ +//:://///////////////////////////////////////////// +//:: Name Prismatic Wall On Enter +//:: FileName sp_prism_wallA.nss +//::////////////////////////////////////////////// +/**@file Prismatic Wall +Abjuration +Level: Sor/Wiz 8 +Components: V, S +Casting Time: 1 standard action +Range: Close (25 ft. + 5 ft./2 levels) +Effect: Wall 4 ft./level wide, 2 ft./level high +Duration: 10 min./level (D) +Saving Throw: See text +Spell Resistance: See text + +Prismatic wall creates a vertical, opaque wall; a +shimmering, multicolored plane of light that +protects you from all forms of attack. The wall +flashes with seven colors, each of which has a +distinct power and purpose. The wall is immobile, +and you can pass through and remain near the wall +without harm. However, any other creature with +less than 8 HD that is within 20 feet of the wall +is blinded for 2d4 rounds by the colors if it +looks at the wall. + +The wall’s maximum proportions are 4 feet wide per +caster level and 2 feet high per caster level. A +prismatic wall spell cast to materialize in a +space occupied by a creature is disrupted, and +the spell is wasted. + +Each color in the wall has a special effect. The +accompanying table shows the seven colors of the +wall, the order in which they appear, their +effects on creatures trying to attack you or pass +through the wall, and the magic needed to negate +each color. + +The wall can be destroyed, color by color, in +consecutive order, by various magical effects; +however, the first color must be brought down +before the second can be affected, and so on. +A rod of cancellation or a mage’s disjunction +spell destroys a prismatic wall, but an +antimagic field fails to penetrate it. Dispel +magic and greater dispel magic cannot dispel +the wall or anything beyond it. Spell resistance +is effective against a prismatic wall, but the +caster level check must be repeated for each +color present. + +Color Order Effect of Color + +Red 1st Deals 20 points of fire damage (Reflex half). +Orange 2nd Deals 40 points of acid damage (Reflex half). +Yellow 3rd Deals 80 points of electricity damage (Reflex half). +Green 4th Poison (Kills; Fortitude partial for 1d6 points of Con damage instead). +Blue 5th Turned to stone (Fortitude negates). +Indigo 6th Will save or become insane (as insanity spell). +Violet 7th Creatures sent to another plane (Will negates). + +Author: Tenjac +Created: 7/6/07 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" +#include "prc_add_spell_dc" +void main() +{ + object oPC = GetAreaOfEffectCreator(); + object oTarget = GetEnteringObject(); + int nDC = PRCGetSaveDC(oTarget, oPC); + int nCasterLvl = PRCGetCasterLevel(oPC); + int nDam; + int nPenetr = nCasterLvl + SPGetPenetr(); + + if(!GetIsReactionTypeFriendly(oTarget, oPC) && (oTarget != oPC)) + { + //Red + if(!PRCDoResistSpell(oPC, oTarget,nPenetr)) + { + nDam = 20 + nPenetr; + + if(PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, nDC, SAVING_THROW_TYPE_FIRE)) + { + nDam = 10 + (nPenetr/2); + } + + ApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_FIRE), oTarget); + } + + //Orange + if(!PRCDoResistSpell(oPC, oTarget, nPenetr)) + { + nDam = 40 + nPenetr; + + if(PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, nDC, SAVING_THROW_TYPE_ACID)) + { + nDam = 20 + (nPenetr/2); + } + + ApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_ACID), oTarget); + } + + //Yellow + if(!PRCDoResistSpell(oPC, oTarget, nPenetr)) + { + nDam = 80 + nPenetr; + + if(PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, nDC, SAVING_THROW_TYPE_ELECTRICITY)) + { + nDam = 40 + (nPenetr/2); + } + + ApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_ELECTRICAL), oTarget); + } + + //Green + if (PRCGetIsAliveCreature(oTarget) && (GetIsImmune(oTarget, IMMUNITY_TYPE_POISON) == FALSE)) + { + if(!PRCDoResistSpell(oPC, oTarget, nPenetr)) + { + if(!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_POISON)) + { + DeathlessFrenzyCheck(oTarget); + ApplyEffectToObject(DURATION_TYPE_INSTANT, SupernaturalEffect(EffectDeath()), oTarget); + } + + else ApplyAbilityDamage(oTarget, ABILITY_CONSTITUTION, d6(1), DURATION_TYPE_TEMPORARY, TRUE, -1.0); + } + } + + //Blue + if(!PRCDoResistSpell(oPC, oTarget, nPenetr)) PRCDoPetrification(nCasterLvl, oPC, oTarget, SPELL_PRISMATIC_RAY, nDC); + + //Indigo + if(!PRCDoResistSpell(oPC, oTarget, nPenetr)) + { + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_SPELL)) + { + effect eVis = EffectVisualEffect(VFX_IMP_CONFUSION_S); + effect eConfuse = PRCEffectConfused(); + effect eMind = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_DISABLED); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eLink = EffectLinkEffects(eMind, eConfuse); + eLink = EffectLinkEffects(eLink, eDur); + eLink = SupernaturalEffect(eLink); + + SPApplyEffectToObject(DURATION_TYPE_PERMANENT, eLink, oTarget, 0.0, TRUE, SPELL_PRISMATIC_SPHERE, nCasterLvl); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + } + + //Violet + if(!PRCDoResistSpell(oPC, oTarget, nPenetr)) + { + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_SPELL)) + { + ApplyEffectToObject(DURATION_TYPE_PERMANENT, EffectVisualEffect(VFX_DUR_CUTSCENE_INVISIBILITY), oTarget); + ApplyEffectToObject(DURATION_TYPE_PERMANENT, EffectCutsceneGhost(), oTarget); + ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_UNSUMMON), oTarget); + + int nMessageRoll = d6(1); + int nTalk; + + switch(nMessageRoll) + { + case 1: + { + nTalk = 1729332; + break; + } + + case 2: + { + nTalk = 1729333; + break; + } + + case 3: + { + nTalk = 1729334; + break; + } + + case 4: + { + nTalk = 1729335; + break; + } + + case 5: + { + nTalk = 1729336; + break; + } + + case 6: + { + nTalk = 1729337; + break; + } + } + //Death Popup + DelayCommand(2.75, PopUpDeathGUIPanel(oTarget, FALSE , TRUE, nTalk)); + DelayCommand(2.75, ExecuteScript("prc_ondeath", oTarget)); + } + } + } +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_prismat_ray.ncs b/_haks/poa_exp_spells/sp_prismat_ray.ncs new file mode 100644 index 0000000..36bdd31 Binary files /dev/null and b/_haks/poa_exp_spells/sp_prismat_ray.ncs differ diff --git a/_haks/poa_exp_spells/sp_prismat_ray.nss b/_haks/poa_exp_spells/sp_prismat_ray.nss new file mode 100644 index 0000000..f43264b --- /dev/null +++ b/_haks/poa_exp_spells/sp_prismat_ray.nss @@ -0,0 +1,271 @@ +//:://///////////////////////////////////////////// +//:: Name Prismatic Ray +//:: FileName sp_prismat_ray.nss +//::////////////////////////////////////////////// +/**@file Prismatic Ray +Evocation +Level: Sorcerer/wizard 5 +Components: V, S +Casting Time: 1 standard action +Range: Medium (100 ft. + 10 ft./level) +Effect: Ray +Duration: Instantaneous +Saving Throw: See text +Spell Resistance: Yes + +A single beam of brilliantly colored +light shoots from your outstretched +hand. You must succeed on a ranged touch +attack with the ray to strike a target. +On a successful attack, a creature with +6 Hit Dice or fewer is blinded for 2d4 +rounds by the prismatic ray in addition +to suffering a randomly determined +effect: + +1d8 Color of Beam Effect + +1 Red 20 points fire damage(Reflex half) +2 Orange 40 points acid damage(Reflex half) +3 Yellow 80 points electricity damage (Reflex half) +4 Green Poison (Kills; Fortitude partial, take 1d6 Con damage instead) +5 Blue Turned to stone(Fortitude negates) +6 Indigo Insane, as insanity spell (Will negates) +7 Violet Sent to another plane(Will negates) +8 Two effects; roll twice more, ignoring any '8' results + +Author: Tenjac +Created: 7/6/07 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +void DoRay(object oTarget, int nSaveDC, int nRoll, int nCasterLvl, object oPC); + +#include "prc_inc_sp_tch" +#include "prc_add_spell_dc" +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + object oPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nCasterLvl = PRCGetCasterLevel(oPC); + int nRoll = d8(1); + int bTwoRolls = FALSE; + int nBeamVisualEffect; + int nSaveDC = PRCGetSaveDC(oTarget, oPC); + int nTouch = PRCDoRangedTouchAttack(oTarget); + int nHD = GetHitDice(oTarget); + int nRoll2; + + switch(nRoll) + { + case 1: nBeamVisualEffect = VFX_BEAM_EVIL; + break; + + case 2: nBeamVisualEffect = VFX_BEAM_FIRE; + break; + + case 3: nBeamVisualEffect = VFX_BEAM_SILENT_HOLY; + break; + + case 4: nBeamVisualEffect = VFX_BEAM_DISINTEGRATE; + break; + + case 5: nBeamVisualEffect = VFX_BEAM_SILENT_COLD; + break; + + case 6: nBeamVisualEffect = VFX_BEAM_ODD; + break; + + case 7: nBeamVisualEffect = VFX_BEAM_MIND; + break; + + case 8: break; + } + + //VFX + effect eVis = EffectBeam(nBeamVisualEffect, oPC, BODY_NODE_HAND, !nTouch); + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + + if(nTouch) + { + //SR check + if(!PRCDoResistSpell(oPC, oTarget, (nCasterLvl + SPGetPenetr()))) + { + + //blind + if(nHD < 7) SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectBlindness(), oTarget, RoundsToSeconds(d4(2))); + + if(nRoll == 8) + { + bTwoRolls = TRUE; + nRoll2 = d8(1); + + while(nRoll == 8) + { + nRoll = d8(1); + } + while (nRoll2 == 8) + { + nRoll2 = d8(1); + } + } + + DoRay(oTarget, nSaveDC, nRoll, nCasterLvl, oPC); + + if(bTwoRolls == TRUE) + { + if(!GetIsDead(oTarget)) //because let's face it; chances are good they are.... + { + DoRay(oTarget, nSaveDC, nRoll2, nCasterLvl, oPC); + } + } + } + } + PRCSetSchool(); +} + +void DoRay(object oTarget, int nSaveDC, int nRoll, int nCasterLvl, object oPC) +{ + int nDam; + switch(nRoll) + { + case 1: + { + nDam = 20 + (nCasterLvl/2); + + if(PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, nSaveDC, SAVING_THROW_TYPE_FIRE)) + { + nDam = nDam/2; + } + + ApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_FIRE), oTarget); + break; + } + + case 2: + { + nDam = 40 + (nCasterLvl/2); + + if(PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, nSaveDC, SAVING_THROW_TYPE_ACID)) + { + nDam = nDam/2; + } + + ApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_ACID), oTarget); + break; + } + + case 3: + { + nDam = 80 + (nCasterLvl/2); + + if(PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, nSaveDC, SAVING_THROW_TYPE_ELECTRICITY)) + { + nDam = nDam/2; + } + + ApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_ELECTRICAL), oTarget); + break; + } + + case 4: + { + if (PRCGetIsAliveCreature(oTarget) && (GetIsImmune(oTarget, IMMUNITY_TYPE_POISON) == FALSE)) + { + if(!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nSaveDC, SAVING_THROW_TYPE_POISON)) + { + DeathlessFrenzyCheck(oTarget); + ApplyEffectToObject(DURATION_TYPE_INSTANT, SupernaturalEffect(EffectDeath()), oTarget); + } + + else ApplyAbilityDamage(oTarget, ABILITY_CONSTITUTION, d6(1), DURATION_TYPE_TEMPORARY, TRUE, -1.0); + } + break; + } + + case 5: + { + PRCDoPetrification(nCasterLvl, oPC, oTarget, SPELL_PRISMATIC_RAY, nSaveDC); + break; + } + + case 6: + { + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nSaveDC, SAVING_THROW_TYPE_SPELL)) + { + effect eVis = EffectVisualEffect(VFX_IMP_CONFUSION_S); + effect eConfuse = PRCEffectConfused(); + effect eMind = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_DISABLED); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eLink = EffectLinkEffects(eMind, eConfuse); + eLink = EffectLinkEffects(eLink, eDur); + eLink = SupernaturalEffect(eLink); + + SPApplyEffectToObject(DURATION_TYPE_PERMANENT, eLink, oTarget, 0.0, TRUE,-1,nCasterLvl); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + break; + } + + case 7: + { + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nSaveDC, SAVING_THROW_TYPE_SPELL)) + { + ApplyEffectToObject(DURATION_TYPE_PERMANENT, EffectVisualEffect(VFX_DUR_CUTSCENE_INVISIBILITY), oTarget); + ApplyEffectToObject(DURATION_TYPE_PERMANENT, EffectCutsceneGhost(), oTarget); + ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_UNSUMMON), oTarget); + + int nMessageRoll = d6(1); + int nTalk; + + switch(nMessageRoll) + { + case 1: + { + nTalk = 1729332; + break; + } + + case 2: + { + nTalk = 1729333; + break; + } + + case 3: + { + nTalk = 1729334; + break; + } + + case 4: + { + nTalk = 1729335; + break; + } + + case 5: + { + nTalk = 1729336; + break; + } + + case 6: + { + nTalk = 1729337; + break; + } + } + + //Death Popup + DelayCommand(2.75, PopUpDeathGUIPanel(oTarget, FALSE , TRUE, nTalk)); + DelayCommand(2.75, ExecuteScript("prc_ondeath", oTarget)); + } + } + } +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_prismt_sphrA.ncs b/_haks/poa_exp_spells/sp_prismt_sphrA.ncs new file mode 100644 index 0000000..8630e0e Binary files /dev/null and b/_haks/poa_exp_spells/sp_prismt_sphrA.ncs differ diff --git a/_haks/poa_exp_spells/sp_prismt_sphrA.nss b/_haks/poa_exp_spells/sp_prismt_sphrA.nss new file mode 100644 index 0000000..21745de --- /dev/null +++ b/_haks/poa_exp_spells/sp_prismt_sphrA.nss @@ -0,0 +1,215 @@ +//:://///////////////////////////////////////////// +//:: Name Prismatic Sphere on enter +//:: FileName sp_prismt_sphrA.nss +//::////////////////////////////////////////////// +/**@file Prismatic Sphere +Abjuration +Level: Protection 9, Sor/Wiz 9, Sun 9 +Components: V +Range: 10 ft. +Effect: 10-ft.-radius sphere centered on you + +This spell functions like prismatic wall, except you +conjure up an immobile, opaque globe of shimmering, +multicolored light that surrounds you and protects +you from all forms of attack. The sphere flashes in +all colors of the visible spectrum. + +The sphere’s blindness effect on creatures with less +than 8 HD lasts 2d4x10 minutes. + +You can pass into and out of the prismatic sphere and +remain near it without harm. However, when you’re +inside it, the sphere blocks any attempt to project +something through the sphere (including spells). Other +creatures that attempt to attack you or pass through +suffer the effects of each color, one at a time. + +Typically, only the upper hemisphere of the globe will +exist, since you are at the center of the sphere, so +the lower half is usually excluded by the floor surface +you are standing on. + +The colors of the sphere have the same effects as the +colors of a prismatic wall. + +Red 1st Deals 20 points of fire damage (Reflex half). +Orange 2nd Deals 40 points of acid damage (Reflex half). +Yellow 3rd Deals 80 points of electricity damage (Reflex half). +Green 4th Poison (Kills; Fortitude partial for 1d6 points of Con damage instead). +Blue 5th Turned to stone (Fortitude negates). +Indigo 6th Will save or become insane (as insanity spell). +Violet 7th Creatures sent to another plane (Will negates). + +Author: Tenjac +Created: 7/6/07 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" +#include "prc_add_spell_dc" +void main() +{ + object oPC = GetAreaOfEffectCreator(); + object oTarget = GetEnteringObject(); + int nDC = PRCGetSaveDC(oTarget, oPC); + int nCasterLvl = PRCGetCasterLevel(oPC); + int nDam; + int nPenetr = nCasterLvl + SPGetPenetr(); + + //Passing into the wall + SetLocalInt(oTarget, "PRC_INSIDE_PRISMATIC_SPHERE", 1); + + if(!GetIsReactionTypeFriendly(oTarget, oPC) && (oTarget != oPC)) + { + //Red + if(!PRCDoResistSpell(oPC, oTarget,nPenetr)) + { + nDam = 20 + nPenetr; + + if(PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, nDC, SAVING_THROW_TYPE_FIRE)) + { + nDam = 10 + nPenetr; + } + + ApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_FIRE), oTarget); + } + + //Orange + if(!PRCDoResistSpell(oPC, oTarget, nPenetr)) + { + nDam = 40 + nPenetr; + + if(PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, nDC, SAVING_THROW_TYPE_ACID)) + { + nDam = 20 + nPenetr; + } + + ApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_ACID), oTarget); + } + + //Yellow + if(!PRCDoResistSpell(oPC, oTarget, nPenetr)) + { + nDam = 80 + nPenetr; + + if(PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, nDC, SAVING_THROW_TYPE_ELECTRICITY)) + { + nDam = 40 + nPenetr; + } + + ApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_ELECTRICAL), oTarget); + } + + //Green + if (PRCGetIsAliveCreature(oTarget) && (GetIsImmune(oTarget, IMMUNITY_TYPE_POISON) == FALSE)) + { + if(!PRCDoResistSpell(oPC, oTarget, nPenetr)) + { + if(!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_POISON)) + { + DeathlessFrenzyCheck(oTarget); + ApplyEffectToObject(DURATION_TYPE_INSTANT, SupernaturalEffect(EffectDeath()), oTarget); + } + + else ApplyAbilityDamage(oTarget, ABILITY_CONSTITUTION, d6(1), DURATION_TYPE_TEMPORARY, TRUE, -1.0); + } + } + + //Blue + if(!PRCDoResistSpell(oPC, oTarget, nPenetr)) PRCDoPetrification(nCasterLvl, oPC, oTarget, SPELL_PRISMATIC_RAY, nDC); + + //Indigo + if(!PRCDoResistSpell(oPC, oTarget, nPenetr)) + { + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_SPELL)) + { + effect eVis = EffectVisualEffect(VFX_IMP_CONFUSION_S); + effect eConfuse = PRCEffectConfused(); + effect eMind = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_DISABLED); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eLink = EffectLinkEffects(eMind, eConfuse); + eLink = EffectLinkEffects(eLink, eDur); + eLink = SupernaturalEffect(eLink); + + SPApplyEffectToObject(DURATION_TYPE_PERMANENT, eLink, oTarget, 0.0, TRUE, SPELL_PRISMATIC_SPHERE, nCasterLvl); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + } + + //Violet + if(!PRCDoResistSpell(oPC, oTarget, nPenetr)) + { + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_SPELL)) + { + ApplyEffectToObject(DURATION_TYPE_PERMANENT, EffectVisualEffect(VFX_DUR_CUTSCENE_INVISIBILITY), oTarget); + ApplyEffectToObject(DURATION_TYPE_PERMANENT, EffectCutsceneGhost(), oTarget); + ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_UNSUMMON), oTarget); + + int nMessageRoll = d6(1); + int nTalk; + + switch(nMessageRoll) + { + case 1: + { + nTalk = 1729332; + break; + } + + case 2: + { + nTalk = 1729333; + break; + } + + case 3: + { + nTalk = 1729334; + break; + } + + case 4: + { + nTalk = 1729335; + break; + } + + case 5: + { + nTalk = 1729336; + break; + } + + case 6: + { + nTalk = 1729337; + break; + } + } + //Death Popup + DelayCommand(2.75, PopUpDeathGUIPanel(oTarget, FALSE , TRUE, nTalk)); + DelayCommand(2.75, ExecuteScript("prc_ondeath", oTarget)); + } + } + } +} + + + + + + + + + + + + + + + + + + diff --git a/_haks/poa_exp_spells/sp_prot_arrows.ncs b/_haks/poa_exp_spells/sp_prot_arrows.ncs new file mode 100644 index 0000000..e6663c2 Binary files /dev/null and b/_haks/poa_exp_spells/sp_prot_arrows.ncs differ diff --git a/_haks/poa_exp_spells/sp_prot_arrows.nss b/_haks/poa_exp_spells/sp_prot_arrows.nss new file mode 100644 index 0000000..3f7ef4b --- /dev/null +++ b/_haks/poa_exp_spells/sp_prot_arrows.nss @@ -0,0 +1,61 @@ +//:://///////////////////////////////////////////// +//:: Name Protection from Arrows +//:: FileName sp_prot_arrows.nss +//::////////////////////////////////////////////// +/**@file Protection from Arrows +Abjuration +Level: Sor/Wiz 2, Hexblade 2 +Components: V, S, F +Casting Time: 1 standard action +Range: Touch +Target: Creature touched +Duration: 1 hour/level or until discharged +Saving Throw: Will negates (harmless) +Spell Resistance: Yes (harmless) + +The warded creature gains resistance to ranged weapons. +The subject gains damage reduction 10/magic against +ranged weapons. (This spell doesn’t grant you the +ability to damage creatures with similar damage +reduction.) Once the spell has prevented a total of +10 points of damage per caster level (maximum 100 +points), it is discharged. + +Focus: A piece of shell from a tortoise or a turtle. + +**/ + +////////////////////////////////////////////////// +// Author: Tenjac +// Date: 16.9.2006 +///////////////////////////////////////////////// + +#include "prc_alterations" +#include "prc_inc_spells" + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_ABJURATION); + + object oPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nCasterLvl = PRCGetCasterLevel(oPC); + float fDur = HoursToSeconds(nCasterLvl); + int nMetaMagic = PRCGetMetaMagicFeat(); + + if(nMetaMagic & METAMAGIC_EXTEND) + { + fDur += fDur; + } + + PRCSignalSpellEvent(oTarget,FALSE, SPELL_PROTECTION_FROM_ARROWS, oPC); + + // Damage Resistance 10 piercing, max of 100 total + effect eBuff = EffectLinkEffects(EffectDamageResistance(DAMAGE_TYPE_PIERCING, 10+(nCasterLvl/4), min((10 * nCasterLvl), 100)), EffectVisualEffect(VFX_DUR_PROTECTION_ARROWS)); + + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eBuff, oTarget, fDur); + + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_rain_btul.ncs b/_haks/poa_exp_spells/sp_rain_btul.ncs new file mode 100644 index 0000000..9a02fa0 Binary files /dev/null and b/_haks/poa_exp_spells/sp_rain_btul.ncs differ diff --git a/_haks/poa_exp_spells/sp_rain_btul.nss b/_haks/poa_exp_spells/sp_rain_btul.nss new file mode 100644 index 0000000..372db97 --- /dev/null +++ b/_haks/poa_exp_spells/sp_rain_btul.nss @@ -0,0 +1,93 @@ +//:://///////////////////////////////////////////// +//:: Name Rain of Black Tulips +//:: FileName sp_rain_btul.nss +//::////////////////////////////////////////////// +/**@file Rain of Black Tulips +Evocation [Good] +Level: Drd 9 +Components: V, S, M +Casting Time: 1 standard action +Range: Long (400 ft. + 40 ft./level) +Area: Cylinder (80-ft. radius, 80 ft. high) +Duration: 1 round/level (D) +Saving Throw: None (damage), Fortitude negates (nausea) +Spell Resistance: Yes + +Tulips as black as midnight fall from the sky. The +tulips explode with divine energy upon striking evil +creatures, each of which takes 5d6 points of damage. +In addition, evil creatures that fail a Fortitude +save are nauseated (unable to attack, cast spells, +concentrate on spells, perform any task requiring +concentration, or take anything other than a single +move action per turn) until they leave the spell's +area. A successful Fortitude save renders a creature +immune to the nauseating effect of the tulips, but +not the damage. + +Material Component: A black tulip. + +Author: Tenjac +Created: 7/14/06 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + object oPC = OBJECT_SELF; + int nCasterLvl = PRCGetCasterLevel(oPC); + effect eAOE = EffectAreaOfEffect(VFX_AOE_RAIN_OF_BLACK_TULIPS); + location lLoc = PRCGetSpellTargetLocation(); + int nMetaMagic = PRCGetMetaMagicFeat(); + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, 24.38f, lLoc, FALSE, OBJECT_TYPE_CREATURE); + int nDam; + int nAlign; + float fDur = RoundsToSeconds(nCasterLvl); + + if(nMetaMagic & METAMAGIC_EXTEND) + { + fDur += fDur; + } + + //Create AoE + ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY, eAOE, lLoc, fDur); + + object oAoE = GetAreaOfEffectObject(lLoc, "VFX_AOE_RAIN_OF_BLACK_TULIPS"); + SetAllAoEInts(SPELL_RAIN_OF_BLACK_TULIPS, oAoE, PRCGetSpellSaveDC(SPELL_RAIN_OF_BLACK_TULIPS, SPELL_SCHOOL_EVOCATION), 0, nCasterLvl); + + //Loop through and damage creatures + while(GetIsObjectValid(oTarget)) + { + if(GetAlignmentGoodEvil(oTarget) == ALIGNMENT_EVIL) + { + //SR + if(!PRCDoResistSpell(oPC, oTarget, nCasterLvl + SPGetPenetr())) + { + nDam = d6(5+nCasterLvl); + + if(nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 6*(5+nCasterLvl); + } + + if(nMetaMagic & METAMAGIC_EMPOWER) + { + nDam += (nDam/2); + } + + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_MAGICAL), oTarget); + } + } + oTarget = MyNextObjectInShape(SHAPE_SPHERE, 24.38f, lLoc, FALSE, OBJECT_TYPE_CREATURE); + } + //SPGoodShift(oPC); + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_rain_ember.ncs b/_haks/poa_exp_spells/sp_rain_ember.ncs new file mode 100644 index 0000000..fd0117a Binary files /dev/null and b/_haks/poa_exp_spells/sp_rain_ember.ncs differ diff --git a/_haks/poa_exp_spells/sp_rain_ember.nss b/_haks/poa_exp_spells/sp_rain_ember.nss new file mode 100644 index 0000000..ce0a115 --- /dev/null +++ b/_haks/poa_exp_spells/sp_rain_ember.nss @@ -0,0 +1,135 @@ +//:://///////////////////////////////////////////// +//:: Name Rain of Embers +//:: FileName sp_rain_ember.nss +//::////////////////////////////////////////////// +/**@file Rain of Embers +Evocation [Fire, Good] +Level: Sanctified 7 +Components: V, S, Sacrifice +Casting Time: 1 standard action +Range: Medium (100 ft. + 10 ft./level) +Area: Cylinder (40-ft. radius, 120 ft. high) +Duration: 1 round/level (D) +Saving Throw: Reflex half; see text +Spell Resistance: Yes + +This spell causes orange, star-like embers to rain +steadily from above. Each round, the falling embers +deal 10d6 points of damage to evil creatures within +the spell's area. Half of the damage is fire damage, +but the other half results directly from divine +power and is therefore not subject to being reduced +by resistance to fire-based attacks, such as that +granted by protection from energy (fire), +fire shield (chill shield), and similar magic. +Creatures may leave the area to avoid taking +additional damage, but a new saving throw is required +each round a creature is caught in the Fiery downpour. + +A shield provides a cover bonus on the Reflex save, +depending on its size small +2, large +4, tower +7. +A shield spell oriented upward provides a +4 cover +bonus on the Reflex save. A creature using its +shield (or shield spell) to block the rain of embers +cannot use it for defense in combat. + +Sacrifice: 1d2 points of Strength drain. + +Author: Tenjac +Created: 6/21/06 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +void EmberLoop(int nCounter, int nCasterLvl, int nMetaMagic, object oPC, location lLoc); + +#include "prc_inc_spells" +#include "prc_add_spell_dc" +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + object oPC = OBJECT_SELF; + location lLoc = PRCGetSpellTargetLocation(); + int nCasterLvl = PRCGetCasterLevel(oPC); + float fDur = RoundsToSeconds(nCasterLvl); + int nCounter = FloatToInt(fDur/6); + int nMetaMagic = PRCGetMetaMagicFeat(); + + if(nMetaMagic & METAMAGIC_EXTEND) + { + fDur += fDur; + } + + //VFX + ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_FNF_FIRESTORM), lLoc, fDur); + + EmberLoop(nCounter, nCasterLvl, nMetaMagic, oPC, lLoc); + + DoCorruptionCost(oPC, ABILITY_STRENGTH, d2(), 1); + + //Sanctified spells get mandatory 10 pt good adjustment, regardless of switch + AdjustAlignment(oPC, ALIGNMENT_GOOD, 10, FALSE); + + PRCSetSchool(); + //SPGoodShift(oPC); +} + +void EmberLoop(int nCounter, int nCasterLvl, int nMetaMagic, object oPC, location lLoc) +{ + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, 12.19f, lLoc, FALSE, OBJECT_TYPE_CREATURE); + int nDam; + int nDam2; + + while(GetIsObjectValid(oTarget)) + { + if(GetAlignmentGoodEvil(oTarget) == ALIGNMENT_EVIL) + { + //Spell Resist + if(!PRCDoResistSpell(OBJECT_SELF, oTarget, nCasterLvl + SPGetPenetr())) + { + int nDC = PRCGetSaveDC(oTarget, oPC); + //Save + + nDam = d6(10+nCasterLvl); + + if(nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 6*(10+nCasterLvl); + } + + if(nMetaMagic & METAMAGIC_EMPOWER) + { + nDam += (nDam/2); + } + + if (PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, nDC, SAVING_THROW_TYPE_GOOD)) + { + nDam = (nDam/2); + } + + nDam2 = (nDam/2); + nDam = (nDam - nDam2); + + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_FIRE), oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam2, DAMAGE_TYPE_DIVINE), oTarget); + } + } + oTarget = MyNextObjectInShape(SHAPE_SPHERE, 12.19f, lLoc, FALSE, OBJECT_TYPE_CREATURE); + } + nCounter--; + + if(nCounter > 0) + { + DelayCommand(6.0f, EmberLoop(nCounter, nCasterLvl, nMetaMagic, oPC, lLoc)); + } +} + + + + + + + \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_rainbow_blast.ncs b/_haks/poa_exp_spells/sp_rainbow_blast.ncs new file mode 100644 index 0000000..9f75759 Binary files /dev/null and b/_haks/poa_exp_spells/sp_rainbow_blast.ncs differ diff --git a/_haks/poa_exp_spells/sp_rainbow_blast.nss b/_haks/poa_exp_spells/sp_rainbow_blast.nss new file mode 100644 index 0000000..d96dfdc --- /dev/null +++ b/_haks/poa_exp_spells/sp_rainbow_blast.nss @@ -0,0 +1,211 @@ +//:://///////////////////////////////////////////// +//:: Name Rainbow Blast +//:: FileName sp_rainbow_blast.nss +//::////////////////////////////////////////////// +/**@file Rainbow Blast +Evocation [Light] +Level: Sorcerer/wizard 3 +Components: V, S, M +Casting Time: 1 standard action +Range: 120 ft. +Area: 120-ft. line +Duration: Instantaneous +Saving Throw: Reflex half +Spell Resistance: Yes + +This spell is a wide-spectrum blast of +radiant energy composed of all five +energy types. Rainbow blast deals 1d6 +points of damage from each of the five +energy types (acid, cold, electricity, +fire, and sonic), for a total of 5d6 points +of damage. Creatures apply resistance +to energy separately for each type of +damage. +As you gain in levels, the damage +die increases in size. At 7th level the +spell deals 5d8 points of damage, at 9th +level it deals 5d10 points of damage, +and at 11th level it deals 5d12 points of +damage; one die for each of the five +energy types. +Focus: A small clear gem or crystal +prism worth at least 50 gp. + +Author: Tenjac +Created: 6/28/07 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" +#include "spinc_bolt" + +int GetDieType(int nCasterLevel) +{ + + if(nCasterLevel > 20) return 22; + if(nCasterLevel > 18) return 20; + if(nCasterLevel > 16) return 18; + if(nCasterLevel > 14) return 16; + if(nCasterLevel > 12) return 14; + if(nCasterLevel > 10) return 12; + if(nCasterLevel > 8) return 10; + if(nCasterLevel > 6) return 8; + return 6; +} + +void DoBoltVFX(location lCaster, location lTarget) +{ + // Do VFX. This is moderately heavy, so it isn't duplicated by Twin Power + float fAngle = GetRelativeAngleBetweenLocations(lCaster, lTarget); + float fRadius = FeetToMeters(5.0f); + float fVFXLength = GetVFXLength(lCaster, 36.6f, GetRelativeAngleBetweenLocations(lCaster, lTarget)); + // A tube of beams, radius 5ft, starting 1m from manifester and running for the length of the line + BeamGengon(DURATION_TYPE_TEMPORARY, VFX_BEAM_MIND, lCaster, fRadius, fRadius, + 1.0f, fVFXLength, // Start 1m from the manifester, end at LOS end + 8, // 8 sides + 4.5f, "prc_invisobj", + 0.0f, // Drawn instantly + 0.0f, 0.0f, 45.0f, "y", fAngle, 0.0f, + -1, -1, 0.0f, 1.0f, // No secondary VFX + 4.5f + ); +} + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + object oCaster = OBJECT_SELF; + location lTarget = PRCGetSpellTargetLocation(); + location lCaster = GetLocation(OBJECT_SELF); + vector vOrigin = GetPosition(OBJECT_SELF); + + int nCasterLevel = PRCGetCasterLevel(); + int nPenetr = nCasterLevel + SPGetPenetr(); + int nDieSides = GetDieType(nCasterLevel); + + DoBoltVFX(lCaster, lTarget); + + int nDamage; + int nSaveDC; + float fDelay; + + + // individual effect + effect eDamage; + + // spell damage effects + // Loop over targets in the spell shape + object oTarget = MyFirstObjectInShape(SHAPE_SPELLCYLINDER, 36.6f, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE, vOrigin); + while(GetIsObjectValid(oTarget)) + { + if(oTarget != oCaster && spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, oCaster)) + { + // Let the AI know + PRCSignalSpellEvent(oTarget, TRUE, SPELL_RAINBOW_BLAST, oCaster); + + // Make an SR check + if(!PRCDoResistSpell(oCaster, oTarget, nPenetr)) + { + nSaveDC = PRCGetSaveDC(oTarget, OBJECT_SELF); + + fDelay = GetDistanceBetweenLocations(lCaster, GetLocation(oTarget)) / 20.0f; + + // Roll fire damage + nDamage = PRCGetMetaMagicDamage(DAMAGE_TYPE_FIRE, 1, nDieSides); + // Adjust damage according to Reflex Save, Evasion or Improved Evasion + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nSaveDC, SAVING_THROW_TYPE_FIRE); + if(nDamage > 0) + { + eDamage = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_FIRE); + DelayCommand(1.0f + fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDamage, oTarget)); + DelayCommand(1.0f + fDelay, PRCBonusDamage(oTarget)); + DelayCommand(1.0f + fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_FLAME_S), oTarget)); + }// end if - There was still damage remaining to be dealt after adjustments + + // Roll acid damage + nDamage = PRCGetMetaMagicDamage(DAMAGE_TYPE_ACID, 1, nDieSides); + // Adjust damage according to Reflex Save, Evasion or Improved Evasion + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nSaveDC, SAVING_THROW_TYPE_ACID); + if(nDamage > 0) + { + eDamage = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_ACID); + DelayCommand(1.0f + fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDamage, oTarget)); + DelayCommand(1.0f + fDelay, PRCBonusDamage(oTarget)); + DelayCommand(1.0f + fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_ACID_S), oTarget)); + }// end if - There was still damage remaining to be dealt after adjustments + + // Roll cold damage + nDamage = PRCGetMetaMagicDamage(DAMAGE_TYPE_COLD, 1, nDieSides); + // Cold has a fort save for half + if(PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nSaveDC, SAVING_THROW_TYPE_COLD)) + { + if (GetHasMettle(oTarget, SAVING_THROW_FORT)) + nDamage = 0; + nDamage /= 2; + } + + if(nDamage > 0) + { + eDamage = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_COLD); + DelayCommand(1.0f + fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDamage, oTarget)); + DelayCommand(1.0f + fDelay, PRCBonusDamage(oTarget)); + DelayCommand(1.0f + fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_FROST_S), oTarget)); + }// end if - There was still damage remaining to be dealt after adjustments + + // Roll electrical damage + nDamage = PRCGetMetaMagicDamage(DAMAGE_TYPE_ELECTRICAL, 1, nDieSides); + // Adjust damage according to Reflex Save, Evasion or Improved Evasion + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nSaveDC, SAVING_THROW_TYPE_ELECTRICITY); + if(nDamage > 0) + { + eDamage = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_ELECTRICAL); + DelayCommand(1.0f + fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDamage, oTarget)); + DelayCommand(1.0f + fDelay, PRCBonusDamage(oTarget)); + DelayCommand(1.0f + fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_LIGHTNING_S), oTarget)); + }// end if - There was still damage remaining to be dealt after adjustments + + // Roll sonic damage + nDamage = PRCGetMetaMagicDamage(DAMAGE_TYPE_SONIC, 1, nDieSides); + // Adjust damage according to Reflex Save, Evasion or Improved Evasion + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nSaveDC, SAVING_THROW_TYPE_SONIC); + if(nDamage > 0) + { + eDamage = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_SONIC); + DelayCommand(1.0f + fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDamage, oTarget)); + DelayCommand(1.0f + fDelay, PRCBonusDamage(oTarget)); + DelayCommand(1.0f + fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_SONIC), oTarget)); + }// end if - There was still damage remaining to be dealt after adjustments + }// end if - SR check + }// end if - Target validity check + + // Get next target + oTarget = MyNextObjectInShape(SHAPE_SPELLCYLINDER, 36.6f, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE, vOrigin); + }// end while - Target loop + + PRCSetSchool(); +} + + + + + + + + + + + + + + + + + + + + diff --git a/_haks/poa_exp_spells/sp_raptr_ruptr.ncs b/_haks/poa_exp_spells/sp_raptr_ruptr.ncs new file mode 100644 index 0000000..833ebab Binary files /dev/null and b/_haks/poa_exp_spells/sp_raptr_ruptr.ncs differ diff --git a/_haks/poa_exp_spells/sp_raptr_ruptr.nss b/_haks/poa_exp_spells/sp_raptr_ruptr.nss new file mode 100644 index 0000000..5c3241e --- /dev/null +++ b/_haks/poa_exp_spells/sp_raptr_ruptr.nss @@ -0,0 +1,188 @@ +//:://///////////////////////////////////////////// +//:: Name Rapture of Rupture +//:: FileName sp_rapt_rupt.nss +//::////////////////////////////////////////////// +/** @file +Rapture of Rupture +Transmutation [Evil] +Level: Corrupt 7 +Components: V, S, Corrupt +Casting Time: 1 action +Range: Touch +Target: One living creature touched per level +Duration: Instantaneous +Saving Throw: Fortitude half +Spell Resistance: Yes + +With this spell, the caster's touch deals grievous +wounds to multiple targets. After rapture of rupture +is cast, the caster can touch one target per round +until she has touched a number of targets equal to +her caster level. The same creature cannot be +affected twice by the same rapture of rupture. A +creature with no discernible anatomy is unaffected by +this spell. + +When the caster touches a subject, his flesh bursts +open suddenly in multiple places. Each subject takes +6d6 points of damage and is stunned for 1 round; a +successful Fortitude save reduces damage by half and +negates the stun effect. Subjects who fail their +Fortitude save continue to take 1d6 points of damage +per round until they receive magical healing, succeed +at a Heal check (DC 20), or die. If a subject takes 6 +points of damage from rapture of rupture in a single +round, he is stunned in the following round. + +Corruption Cost: 1 point of Strength damage per target +touched. + +*/ +// Author: Tenjac +// Created: 5/31/2006 +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_sp_tch" +#include "prc_sp_func" +#include "prc_add_spell_dc" + +int DoSpell(object oCaster, object oTarget, int nCasterLevel, int nEvent, string sScript); +void WoundLoop(object oTarget, int nDamage = 0); + + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_TRANSMUTATION); + + object oCaster = OBJECT_SELF; + int nCasterLevel = PRCGetCasterLevel(oCaster); + + /*if(GetRunningEvent() == EVENT_VIRTUAL_ONDAMAGED) + { + ConcentrationLossCode(oCaster, GetLocalObject(oCaster, PRC_SPELL_CONC_TARGET), nCasterLevel); + return; + }*/ + + object oTarget = PRCGetSpellTargetObject(); + int nSpellID = GetSpellId(); + string sScript = Get2DACache("spells", "ImpactScript", nSpellID); + + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if(GetLocalInt(oCaster, PRC_SPELL_HOLD) && oCaster == oTarget) + { //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, PRCGetCasterLevel(oCaster)); + + // Setup target tracking set. If one remains from a previous casting, delete it first + if(set_exists(oCaster, "PRC_Spell_RoRTargets")) + set_delete(oCaster, "PRC_Spell_RoRTargets"); + set_create(oCaster, "PRC_Spell_RoRTargets"); + + return; + } + DoSpell(oCaster, oTarget, nCasterLevel, nEvent, sScript); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel, nEvent, sScript)) + DecrementSpellCharges(oCaster); + } + } + + //SPEvilShift(oCaster); + + //Corrupt spells get mandatory 10 pt evil adjustment, regardless of switch + AdjustAlignment(oCaster, ALIGNMENT_EVIL, 10, FALSE); + + PRCSetSchool(); +} + +//Implements the spell impact, put code here +// if called in many places, return TRUE if +// stored charges should be decreased +// eg. touch attack hits +// +// Variables passed may be changed if necessary +int DoSpell(object oCaster, object oTarget, int nCasterLevel, int nEvent, string sScript) +{ + int nMetaMagic = PRCGetMetaMagicFeat(); + int nSaveDC = PRCGetSaveDC(oTarget, oCaster); + int nPenetr = nCasterLevel + SPGetPenetr(); + string sCaster = GetLocalString(oCaster, "PRCRuptureID"); + string sTest = GetLocalString(oTarget, "PRCRuptureTargetID"); + + // Roll to hit + int iAttackRoll = PRCDoMeleeTouchAttack(oTarget); + if (iAttackRoll > 0) + { + // Target validity check - should not have been targeted before + // and should have discernible anatomy (excludes constructs, elementals, oozes, plants, undead) + int nRace = MyPRCGetRacialType(oTarget); + if(!set_contains_object(oCaster, "PRC_Spell_RoRTargets", oTarget) && + nRace != RACIAL_TYPE_CONSTRUCT && + nRace != RACIAL_TYPE_ELEMENTAL && + nRace != RACIAL_TYPE_OOZE && + //nRace != RACIAL_TYPE_PLANT && + nRace != RACIAL_TYPE_UNDEAD + ) + { + if(!PRCDoResistSpell(oCaster, oTarget, nPenetr)) + { + // Roll damage and apply metamagic + int nDam = d6(6+nPenetr); + if(nMetaMagic & METAMAGIC_MAXIMIZE) + nDam = 6*(6+nPenetr); + if(nMetaMagic & METAMAGIC_EMPOWER) + nDam += nDam / 2; + + // Save for half damage + if(PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nSaveDC, SAVING_THROW_TYPE_EVIL)) + { + nDam /= 2; + + // If the target has Mettle, do no damage. However, the target will still count as having been affected by the spell + if (GetHasMettle(oTarget, SAVING_THROW_FORT)) + nDam = 0; + } + // On failed save, stun for a round and start bleeding + else + { + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectStunned(), oTarget, 6.0f); + WoundLoop(oTarget); // Init the wound loop. This will deal d6 damage, which in turn determines whether the target will be stunned again next round + } + + // Apply Damage + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_MAGICAL), oTarget); + + // If this spell was a held charge, it can have multiple targets. So we need to keep track of who has been already affected + if(nEvent) + set_add_object(oCaster, "PRC_Spell_RoRTargets", oTarget); + } + } + + // Corruption cost is paid whenever something is hit + DoCorruptionCost(oCaster, ABILITY_STRENGTH, 1, 0); + } + + // Return the result of the touch attack, will be used to determine whether to reduce number of touch attacks remaining + return iAttackRoll; +} + +void WoundLoop(object oTarget, int nDamage = 0) +{ + // If previous round's damage roll was 6, stun this round + if(nDamage == 6) + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectStunned(), oTarget, 6.0f); + + // Roll and apply new damage + nDamage = d6(); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_MAGICAL), oTarget); + + DelayCommand(6.0f, WoundLoop(oTarget, nDamage)); +} diff --git a/_haks/poa_exp_spells/sp_right_smt.ncs b/_haks/poa_exp_spells/sp_right_smt.ncs new file mode 100644 index 0000000..22bb2ef Binary files /dev/null and b/_haks/poa_exp_spells/sp_right_smt.ncs differ diff --git a/_haks/poa_exp_spells/sp_right_smt.nss b/_haks/poa_exp_spells/sp_right_smt.nss new file mode 100644 index 0000000..9dd5e54 --- /dev/null +++ b/_haks/poa_exp_spells/sp_right_smt.nss @@ -0,0 +1,121 @@ +//:://///////////////////////////////////////////// +//:: Name Righteous Smite +//:: FileName sp_right_smt.nss +//::////////////////////////////////////////////// +/**@file Righteous Smite +Evocation [Good] +Level: Clr 7, exalted arcanist 7, Wrath 7 +Components: V, S +Casting Time: 1 standard action +Range: Medium (100 ft. + 10 ft./level) +Area: 20-ft. radius spread +Duration: Instantaneous +Saving Throw: Will partial; see text +Spell Resistance: Yes + +You draw down holy power to smite your enemies. Only +evil and neutral creatures are harmed by the spell; +good creatures are unaffected. + +The spell deals 1d6 points of damage per caster +level (maximum 20d6) to evil creatures (or 1d8 +points of damage per caster level, maximum 20d8, +to evil outsiders) and blinds them for 1d4 rounds. +A successful Will saving throw reduces damage to +half and negates the blinding effect. + +The spell deals only half damage against creatures +that are neither good nor evil, and they are not +blinded. They can reduce that damage by half (down +to one quarter of the roll) with a successful Will +save. + +Author: Tenjac +Created: 6/22/06 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" +#include "prc_add_spell_dc" +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + object oPC = OBJECT_SELF; + location lLoc = PRCGetSpellTargetLocation(); + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, 6.10, lLoc, FALSE, OBJECT_TYPE_CREATURE); + int nCasterLvl = PRCGetCasterLevel(oPC); + int nDam; + int nAlign; + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDC; + float fDur = RoundsToSeconds(d4(1)); + + while(GetIsObjectValid(oTarget)) + { + if(!PRCDoResistSpell(OBJECT_SELF, oTarget, nCasterLvl + SPGetPenetr())) + { + nAlign = GetAlignmentGoodEvil(oTarget); + nDC = PRCGetSaveDC(oTarget, oPC); + + if((MyPRCGetRacialType(oTarget) == RACIAL_TYPE_OUTSIDER) && (nAlign == ALIGNMENT_EVIL)) + { + nDam = d8(min(nCasterLvl, 20+nCasterLvl)); + + if(nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 8 * (min(nCasterLvl, 20+nCasterLvl)); + } + } + + else + { + nDam = d6(min(nCasterLvl, 20+nCasterLvl)); + + if(nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 6 * (min(nCasterLvl, 20+nCasterLvl)); + } + } + + if(nMetaMagic & METAMAGIC_EMPOWER) + { + nDam += (nDam/2); + } + + //Save for 1/2 + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_EVIL)) + { + if(nAlign == ALIGNMENT_EVIL) + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectBlindness(), oTarget, fDur); + } + else + { + if (GetHasMettle(oTarget, SAVING_THROW_WILL)) + // This script does nothing if it has Mettle, bail + return; + nDam = (nDam/2); + } + + if(nAlign == ALIGNMENT_NEUTRAL) + { + // neutral takes 1/2 damage + nDam = (nDam/2); + } + + //Deal damage to non-good + if(nAlign != ALIGNMENT_GOOD) + { + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_MAGICAL), oTarget); + } + } + oTarget = MyNextObjectInShape(SHAPE_SPHERE, 6.10, lLoc, FALSE, OBJECT_TYPE_CREATURE); + } + //SPGoodShift(oPC); + PRCSetSchool(); +} + + \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_rightmt.ncs b/_haks/poa_exp_spells/sp_rightmt.ncs new file mode 100644 index 0000000..601f0c5 Binary files /dev/null and b/_haks/poa_exp_spells/sp_rightmt.ncs differ diff --git a/_haks/poa_exp_spells/sp_rightmt.nss b/_haks/poa_exp_spells/sp_rightmt.nss new file mode 100644 index 0000000..2c4ac7a --- /dev/null +++ b/_haks/poa_exp_spells/sp_rightmt.nss @@ -0,0 +1,48 @@ +#include "prc_inc_spells" + +void main() +{ + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + if (!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_TRANSMUTATION); + + // Get the target and raise the spell cast event. + object oTarget = PRCGetSpellTargetObject(); + PRCSignalSpellEvent(oTarget, FALSE); + + // Determine the spell's duration, taking metamagic feats into account. + int nCasterLvl = PRCGetCasterLevel(OBJECT_SELF); + float fDuration = PRCGetMetaMagicDuration(RoundsToSeconds(nCasterLvl)); + + // Calculate the proper DR. + int nDR = 5; + if (nCasterLvl >= 12) nDR = 10; + if (nCasterLvl >= 15) nDR = 15; + if (nCasterLvl >= 17) nDR = 16; + if (nCasterLvl >= 19) nDR = 17; + if (nCasterLvl >= 21) nDR = 18; + if (nCasterLvl >= 23) nDR = 19; + if (nCasterLvl >= 25) nDR = 20; + if (nCasterLvl >= 27) nDR = 21; + if (nCasterLvl >= 29) nDR = 22; + if (nCasterLvl >= 31) nDR = 23; + if (nCasterLvl >= 33) nDR = 24; + if (nCasterLvl >= 35) nDR = 25; + if (nCasterLvl >= 37) nDR = 26; + if (nCasterLvl >= 39) nDR = 27; + if (nCasterLvl >= 41) nDR = 28; + + // Create the chain of buffs to apply, including the vfx. + effect eBuff = EffectAbilityIncrease(ABILITY_STRENGTH, 8); + eBuff = EffectLinkEffects (eBuff, EffectAbilityIncrease(ABILITY_CONSTITUTION, 4)); + eBuff = EffectLinkEffects (eBuff, EffectACIncrease(4, AC_NATURAL_BONUS)); + eBuff = EffectLinkEffects (eBuff, EffectDamageReduction(nDR, DAMAGE_POWER_PLUS_TWO)); + eBuff = EffectLinkEffects (eBuff, EffectVisualEffect(VFX_DUR_PROTECTION_GOOD_MAJOR)); + + SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_SUMMON_MONSTER_3), oTarget); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eBuff, oTarget, fDuration,TRUE,-1,nCasterLvl); +// SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_RESTORATION_GREATER), oTarget); + + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/sp_ring_bldsC.ncs b/_haks/poa_exp_spells/sp_ring_bldsC.ncs new file mode 100644 index 0000000..b7d327a Binary files /dev/null and b/_haks/poa_exp_spells/sp_ring_bldsC.ncs differ diff --git a/_haks/poa_exp_spells/sp_ring_bldsC.nss b/_haks/poa_exp_spells/sp_ring_bldsC.nss new file mode 100644 index 0000000..b379138 --- /dev/null +++ b/_haks/poa_exp_spells/sp_ring_bldsC.nss @@ -0,0 +1,69 @@ +//:://///////////////////////////////////////////// +//:: Name Ring of Blades HB +//:: FileName sp_ring_bldsc.nss +//::////////////////////////////////////////////// +/**@file Ring of Blades +Conjuration (Creation) +Level: Cleric 3, warmage 3 +Components: V,S, M +Casting Time: 1 standard action +Range: Personal +Target: You +Duration: 1 min./level + +This spell conjures a horizontal ring +of swirling metal blades around you. +The ring extends 5 feet from you, into +all squares adjacent to your space, and +it moves with you as you move. Each +round on your turn, starting when +you cast the spell, the blades deal 1d6 +points of damage +1 point per caster +level (maximum +10) to all creatures +in the affected area. + +The blades conjured by a lawful-aligned +cleric are cold iron, those conjured by +a chaotic-aligned cleric are silver, and +those conjured by a cleric who is neither +lawful nor chaotic are steel. + +Author: Tenjac +Created: 7/6/07 + +Fixed so it finally worked +Strat, Mar 7th, 2019 + +Yeah, it's been totally non-functional for 12 years. +Yay for not testing your shit. +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" + +void main() +{ + if (!GetIsObjectValid(GetAreaOfEffectCreator())) + { + DestroyObject(OBJECT_SELF); + return; + } + + //Declare major variables + object oShadow = GetAreaOfEffectCreator(); + int nCasterLvl = PRCGetCasterLevel(oShadow); + + //Capture the first target object in the shape. + object oTarget = GetFirstInPersistentObject(OBJECT_SELF, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + while(GetIsObjectValid(oTarget)) + { + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, oShadow)) + { + int nDamage = d6() + min(20, nCasterLvl); + ApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, DAMAGE_TYPE_SLASHING, nDamage), oTarget); + } + //Select the next target within the spell shape. + oTarget = GetNextInPersistentObject(OBJECT_SELF,OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + } +} diff --git a/_haks/poa_exp_spells/sp_ring_bldsa.ncs b/_haks/poa_exp_spells/sp_ring_bldsa.ncs new file mode 100644 index 0000000..691f843 Binary files /dev/null and b/_haks/poa_exp_spells/sp_ring_bldsa.ncs differ diff --git a/_haks/poa_exp_spells/sp_ring_bldsa.nss b/_haks/poa_exp_spells/sp_ring_bldsa.nss new file mode 100644 index 0000000..6943e67 --- /dev/null +++ b/_haks/poa_exp_spells/sp_ring_bldsa.nss @@ -0,0 +1,57 @@ +//:://///////////////////////////////////////////// +//:: Name Ring of Blades OnEnter +//:: FileName sp_ring_bldsa.nss +//::////////////////////////////////////////////// +/**@file Ring of Blades +Conjuration (Creation) +Level: Cleric 3, warmage 3 +Components: V,S, M +Casting Time: 1 standard action +Range: Personal +Target: You +Duration: 1 min./level + +This spell conjures a horizontal ring +of swirling metal blades around you. +The ring extends 5 feet from you, into +all squares adjacent to your space, and +it moves with you as you move. Each +round on your turn, starting when +you cast the spell, the blades deal 1d6 +points of damage +1 point per caster +level (maximum +10) to all creatures +in the affected area. + +The blades conjured by a lawful-aligned +cleric are cold iron, those conjured by +a chaotic-aligned cleric are silver, and +those conjured by a cleric who is neither +lawful nor chaotic are steel. + +Author: Tenjac +Created: 7/6/07 + +Fixed so it finally worked +Strat, Mar 7th, 2019 + +Yeah, it's been totally non-functional for 12 years. +Yay for not testing your shit. +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" + +void main() +{ + object oTarget = GetEnteringObject(); + object oPC = GetAreaOfEffectCreator(); + int nCasterLvl = PRCGetCasterLevel(oPC); + if(nCasterLvl > 20) nCasterLvl = 20; + int nDam = d6(1) + nCasterLvl; + + if(spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, oPC) && oTarget != oPC) + { + ApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, DAMAGE_TYPE_SLASHING, nDam), oTarget); + } +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_scorch_ray.ncs b/_haks/poa_exp_spells/sp_scorch_ray.ncs new file mode 100644 index 0000000..7157916 Binary files /dev/null and b/_haks/poa_exp_spells/sp_scorch_ray.ncs differ diff --git a/_haks/poa_exp_spells/sp_scorch_ray.nss b/_haks/poa_exp_spells/sp_scorch_ray.nss new file mode 100644 index 0000000..77ae574 --- /dev/null +++ b/_haks/poa_exp_spells/sp_scorch_ray.nss @@ -0,0 +1,112 @@ +//:://///////////////////////////////////////////// +//:: Name Scorching Ray +//:: FileName sp_scorch_ray.nss +//::////////////////////////////////////////////// +/**@file Scorching Ray +Evocation [Fire] +Level: Sor/Wiz 2, Duskblade 2 +Components: V, S +Casting Time: 1 standard action +Range: Close (25 ft. + 5 ft./2 levels) +Effect: One or more rays +Duration: Instantaneous +Saving Throw: None +Spell Resistance: Yes + +You blast your enemies with fiery rays. You may fire +one ray, plus one additional ray for every four levels +beyond 3rd (to a maximum of three rays at 11th level). +Each ray requires a ranged touch attack to hit and deals +4d6 points of fire damage. + +The rays may be fired at the same or different targets, +but all bolts must be aimed at targets within 30 feet of +each other and fired simultaneously. + +**/ +//:://////////////////////////////////////////////// +//:: Author: Tenjac +//:: Date : 29.9.06 +//:://////////////////////////////////////////////// + + + +/* + + Modify as necessary + Most code should be put in DoSpell() + + PRC_SPELL_EVENT_ATTACK is set when a + touch or ranged attack is used + +*/ +#include "prc_inc_sp_tch" +#include "prc_add_spell_dc" +void main() +{ + if (!X2PreSpellCastCode()) return; + PRCSetSchool(GetSpellSchool(PRCGetSpellId())); + + object oCaster = OBJECT_SELF; + int nCasterLevel = PRCGetCasterLevel(oCaster); + object oTarget = PRCGetSpellTargetObject(); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nSaveDC = PRCGetSaveDC(oTarget, oCaster); + int nPenetr = nCasterLevel + SPGetPenetr(); + int nRays = 5; + int nDam; + int iAttackRoll; + + PRCSignalSpellEvent(oTarget, TRUE); + + if(nCasterLevel < 19) + { + nRays =4; + } + if(nCasterLevel < 15) + { + nRays =3; + } + + if(nCasterLevel < 11) + { + nRays =2; + } + + if(nCasterLevel < 7) + { + nRays = 1; + } + + while(nRays > 0) + { + nRays--; + iAttackRoll = PRCDoRangedTouchAttack(oTarget); + + //Beam + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectBeam(VFX_BEAM_FIRE, oCaster, BODY_NODE_HAND, !iAttackRoll), oTarget, 1.0f); + + if (iAttackRoll > 0) + { + if(!PRCDoResistSpell(oCaster, oTarget, nPenetr)) + { + nDam = d6(4+(nPenetr/4)); + + if(nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 6*(4+(nPenetr/4)); + } + + if(nMetaMagic & METAMAGIC_EMPOWER) + { + nDam += (nDam/2); + } + + ApplyTouchAttackDamage(oCaster, oTarget, iAttackRoll, nDam, ChangedElementalDamage(oCaster, DAMAGE_TYPE_FIRE)); + } + } + + } + + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_seeking_ray.ncs b/_haks/poa_exp_spells/sp_seeking_ray.ncs new file mode 100644 index 0000000..e964fae Binary files /dev/null and b/_haks/poa_exp_spells/sp_seeking_ray.ncs differ diff --git a/_haks/poa_exp_spells/sp_seeking_ray.nss b/_haks/poa_exp_spells/sp_seeking_ray.nss new file mode 100644 index 0000000..e7818fa --- /dev/null +++ b/_haks/poa_exp_spells/sp_seeking_ray.nss @@ -0,0 +1,123 @@ +//:://///////////////////////////////////////////// +//:: Name Seeking Ray +//:: FileName sp_seeking_ray.nss +//::////////////////////////////////////////////// +/**@file Seeking Ray +Evocation +Level: Duskblade 2, sorcerer/wizard 2 +Components: V,S +Casting Time: 1 standard action +Range: Medium +Effect: Ray +Duration: Instantaneous; see text +Saving Throw: None +Spell Resistance: Yes + +You create a ray that deals 4d6 points of electricity +damage if it strikes your target. While this ray +requires a ranged touch attack to strike an opponent, +it ignores concealment and cover (but not total +concealment or total cover), and it does not take the +standard penalty for firing into melee. + +In addition to the damage it deals, the ray creates a +link of energy between you and the subject. If this +ray struck the target and dealt damage, you gain a +4 +bonus on attacks you make with ray spells (including +another casting of this one, if desired) against the +subject for 1 round per caster level. If you cast +seeking ray a second time on a creature that is still +linked to you from a previous casting, the duration +of the new link overlaps (does not stack with) the +remaining duration of the previous one. + +**/ +////////////////////////////////////////////////////// +// Author: Tenjac +// Date: 26.9.06 +////////////////////////////////////////////////////// + +#include "prc_inc_sp_tch" +#include "prc_sp_func" +#include "prc_add_spell_dc" +//Implements the spell impact, put code here +// if called in many places, return TRUE if +// stored charges should be decreased +// eg. touch attack hits +// +// Variables passed may be changed if necessary +int DoSpell(object oCaster, object oTarget, int nCasterLevel, int nEvent) +{ + int nMetaMagic = PRCGetMetaMagicFeat(); + int nSaveDC = PRCGetSaveDC(oTarget, oCaster); + int nPenetr = nCasterLevel + SPGetPenetr(); + float fDur = RoundsToSeconds(nCasterLevel); + + //INSERT SPELL CODE HERE + int iAttackRoll = 0; //placeholder + + iAttackRoll = PRCDoRangedTouchAttack(oTarget); + + //Beam VFX. Ornedan is my hero. + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectBeam(VFX_BEAM_LIGHTNING, oCaster, BODY_NODE_HAND, !iAttackRoll), oTarget, 1.0f); + + if (iAttackRoll > 0) + { + if(!PRCDoResistSpell(OBJECT_SELF, oTarget, nCasterLevel + SPGetPenetr())) + { + //Touch attack code goes here + int nDam = d6(4+(nPenetr/4)); + + if(nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 6*(4+(nPenetr/4)); + } + + if(nMetaMagic & METAMAGIC_EMPOWER) + { + nDam += (nDam/2); + } + + if(nMetaMagic & METAMAGIC_EXTEND) + { + fDur += fDur; + } + + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_ELECTRICAL), oTarget); + + //Apply VFX for duration to enable "seeking" - add code to prc_inc_sp_touch! + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE), oTarget, fDur); + } + } + return iAttackRoll; //return TRUE if spell charges should be decremented +} + +void main() +{ + object oCaster = OBJECT_SELF; + int nCasterLevel = PRCGetCasterLevel(oCaster); + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + if (!X2PreSpellCastCode()) return; + object oTarget = PRCGetSpellTargetObject(); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if(GetLocalInt(oCaster, PRC_SPELL_HOLD) && oCaster == oTarget) + { //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + DoSpell(oCaster, oTarget, nCasterLevel, nEvent); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel, nEvent)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); +} + + \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_seeth_eyebn.ncs b/_haks/poa_exp_spells/sp_seeth_eyebn.ncs new file mode 100644 index 0000000..35391ac Binary files /dev/null and b/_haks/poa_exp_spells/sp_seeth_eyebn.ncs differ diff --git a/_haks/poa_exp_spells/sp_seeth_eyebn.nss b/_haks/poa_exp_spells/sp_seeth_eyebn.nss new file mode 100644 index 0000000..8168a5d --- /dev/null +++ b/_haks/poa_exp_spells/sp_seeth_eyebn.nss @@ -0,0 +1,96 @@ +//:://///////////////////////////////////////////// +//:: Name: Seething Eyebane +//:: Filename: sp_seeth_eyebn.nss +//:://///////////////////////////////////////////// +/**Seething Eyebane +Transmutation [Evil, Acid] +Level: Corrupt 1 +Components: V, S, Corrupt +Casting Time: 1 action +Range: Touch +Target: Creature touched +Duration: Instantaneous +Saving Throw: Fortitude negates (see text) +Spell Resistance: Yes + +The subject's eyes burst, spraying acid upon everyone +within 5 feet. The subject is blinded and takes 1d6 +points of acid damage. Those sprayed take 1d6 points +of acid damage (Reflex save for half). Creatures +without eyes can't be blinded, but they might take +acid damage if someone nearby is the subject of +seething eyebane. + +Corruption Cost: 1d6 points of Constitution damage + +@author Written By: Tenjac +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" +#include "prc_add_spell_dc" +void main() +{ + if (!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_TRANSMUTATION); + //define vars + object oPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + location lTarget = GetLocation(oTarget); + int nCasterLvl = PRCGetCasterLevel(oPC); + int nDC = PRCGetSaveDC(oTarget, oPC); + int nType = MyPRCGetRacialType(oTarget); + + PRCSignalSpellEvent(oTarget, TRUE, SPELL_SEETHING_EYEBANE, oPC); + + if(nType != RACIAL_TYPE_CONSTRUCT && + nType != RACIAL_TYPE_OOZE && + nType != RACIAL_TYPE_ELEMENTAL && + nType != RACIAL_TYPE_UNDEAD) + { + //Spell Resistance + if (!PRCDoResistSpell(oPC, oTarget, nCasterLvl + SPGetPenetr())) + { + //Fort save + if (!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_ACID)) + { + + //Blind target permanently + effect eBlind = EffectBlindness(); + SPApplyEffectToObject(DURATION_TYPE_PERMANENT, eBlind, oTarget); + + oTarget = MyFirstObjectInShape(SHAPE_SPHERE, 5.0, lTarget, FALSE, OBJECT_TYPE_CREATURE); + + while(GetIsObjectValid(oTarget)) + { + //nDam = 1d6 acid + int nDam = d6(1)+(nCasterLvl/4); + + // Acid Sheath adds +1 damage per die to acid descriptor spells + if (GetHasDescriptor(GetSpellId(), DESCRIPTOR_ACID) && GetHasSpellEffect(SPELL_MESTILS_ACID_SHEATH, oPC)) + nDam += 1; + effect eDam = PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_ACID); + + //apply damage + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + + oTarget = MyNextObjectInShape(SHAPE_SPHERE, 5.0, lTarget, FALSE, OBJECT_TYPE_CREATURE); + } + + } + } + } + //Corruption cost 1d6 CON regardless of success + int nCost = d6(1); + + DoCorruptionCost(oPC, ABILITY_CONSTITUTION, nCost, 0); + + //Corrupt spells get mandatory 10 pt evil adjustment, regardless of switch + AdjustAlignment(oPC, ALIGNMENT_EVIL, 10, FALSE); + + //SPEvilShift(oPC); + PRCSetSchool(); + +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_serp_sigh.ncs b/_haks/poa_exp_spells/sp_serp_sigh.ncs new file mode 100644 index 0000000..cd79bda Binary files /dev/null and b/_haks/poa_exp_spells/sp_serp_sigh.ncs differ diff --git a/_haks/poa_exp_spells/sp_serp_sigh.nss b/_haks/poa_exp_spells/sp_serp_sigh.nss new file mode 100644 index 0000000..7bbe763 --- /dev/null +++ b/_haks/poa_exp_spells/sp_serp_sigh.nss @@ -0,0 +1,59 @@ +#include "prc_inc_spells" +#include "spinc_bolt" +#include "spinc_cone" + +void main() +{ + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + if (!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + // Get the number of damage dice. + int nCasterLevel = PRCGetCasterLevel(OBJECT_SELF); + int nDice = nCasterLevel > 20 ? 20 : nCasterLevel; + int nSpell = GetSpellId(); + int nVfx; + + if(nSpell == SPELL_SERPENTS_SIGH_BOLT_ACID) + { + DoBolt(nCasterLevel, 6, 0, nDice, 447 /* VFX_BEAM_DISINTEGRATE */, VFX_IMP_ACID_S, + DAMAGE_TYPE_ACID, SAVING_THROW_TYPE_ACID, + SPELL_SCHOOL_EVOCATION, FALSE, SPELL_SERPENTS_SIGH); + nVfx = VFX_IMP_ACID_S; + } + else if(nSpell == SPELL_SERPENTS_SIGH_BOLT_LIGHTNING) + { + DoBolt(nCasterLevel, 6, 0, nDice, VFX_BEAM_LIGHTNING, VFX_IMP_LIGHTNING_S, + DAMAGE_TYPE_ELECTRICAL, SAVING_THROW_TYPE_ELECTRICITY, + SPELL_SCHOOL_EVOCATION, FALSE, SPELL_SERPENTS_SIGH); + nVfx = VFX_IMP_LIGHTNING_S; + } + else if(nSpell == SPELL_SERPENTS_SIGH_CONE_ACID) + { + DoCone(6, 0, 10, -1, VFX_IMP_ACID_S, + DAMAGE_TYPE_ACID, SAVING_THROW_TYPE_ACID, + SPELL_SCHOOL_EVOCATION, SPELL_SERPENTS_SIGH); + nVfx = VFX_IMP_ACID_S; + } + else if(nSpell == SPELL_SERPENTS_SIGH_CONE_COLD) + { + DoCone(6, 0, 10, -1, VFX_IMP_FROST_S, + DAMAGE_TYPE_COLD, SAVING_THROW_TYPE_COLD, + SPELL_SCHOOL_EVOCATION, SPELL_SERPENTS_SIGH); + nVfx = VFX_IMP_FROST_S; + } + else if(nSpell == SPELL_SERPENTS_SIGH_CONE_FIRE) + { + DoCone(6, 0, 10, -1, VFX_IMP_FLAME_S, + DAMAGE_TYPE_FIRE, SAVING_THROW_TYPE_FIRE, + SPELL_SCHOOL_EVOCATION, SPELL_SERPENTS_SIGH); + nVfx = VFX_IMP_FLAME_S; + } + + //The caster takes 1 hit point of damage per hit die of damage dealt. + ApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(OBJECT_SELF, nDice, DAMAGE_TYPE_MAGICAL), OBJECT_SELF); + ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(nVfx), OBJECT_SELF); + + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_shock_grasp.ncs b/_haks/poa_exp_spells/sp_shock_grasp.ncs new file mode 100644 index 0000000..f3e8db8 Binary files /dev/null and b/_haks/poa_exp_spells/sp_shock_grasp.ncs differ diff --git a/_haks/poa_exp_spells/sp_shock_grasp.nss b/_haks/poa_exp_spells/sp_shock_grasp.nss new file mode 100644 index 0000000..b9cd182 --- /dev/null +++ b/_haks/poa_exp_spells/sp_shock_grasp.nss @@ -0,0 +1,115 @@ +//:://///////////////////////////////////////////// +//:: Name Shocking Grasp +//:: FileName sp_shock_grasp.nss +//::////////////////////////////////////////////// +/**@file Shocking Grasp +Evocation [Electricity] +Level: Sor/Wiz 1, Duskblade 1 +Components: V, S +Casting Time: 1 standard action +Range: Touch +Target: Creature or object touched +Duration: Instantaneous +Saving Throw: None +Spell Resistance: Yes + +Your successful melee touch attack deals 1d6 points +of electricity damage per caster level (maximum 5d6). +When delivering the jolt, you gain a +3 bonus on +attack rolls if the opponent is wearing metal armor +(or made out of metal, carrying a lot of metal, +or the like). + +**/ +//:://////////////////////////////////////////////// +//:: Author: Tenjac +//:: Date : 29.9.06 +//:://////////////////////////////////////////////// + + +/*3055 + +Modify as necessary +Most code should be put in DoSpell() + +PRC_SPELL_EVENT_ATTACK is set when a +touch or ranged attack is used + +*/ + +#include "prc_inc_sp_tch" +#include "prc_sp_func" +#include "prc_add_spell_dc" +//Implements the spell impact, put code here +// if called in many places, return TRUE if +// stored charges should be decreased +// eg. touch attack hits +// +// Variables passed may be changed if necessary +int DoSpell(object oCaster, object oTarget, int nCasterLevel, int nEvent) +{ + int nMetaMagic = PRCGetMetaMagicFeat(); + int nPenetr = nCasterLevel + SPGetPenetr(); + int nDie = min(nCasterLevel, 20); + object oArmor = GetItemInSlot(INVENTORY_SLOT_CHEST, oTarget); + effect eVis = EffectVisualEffect(VFX_DUR_BIGBYS_BIGBLUE_HAND2); + + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_SHOCKING_GRASP)); + + int nAttackBonus = GetBaseAC(oArmor) >= 4 ? 3 : 0; + int iAttackRoll = PRCDoMeleeTouchAttack(oTarget, TRUE, oCaster, nAttackBonus); + + if(iAttackRoll > 0) + { + // Only creatures, and PvP check. + if(!GetIsReactionTypeFriendly(oTarget)) + { + // Check Spell Resistance + if(!PRCDoResistSpell(oCaster, oTarget, nPenetr)) + { + int nDam = d6(nDie); + if(nMetaMagic & METAMAGIC_MAXIMIZE) + nDam = 6 * nDie; + if(nMetaMagic & METAMAGIC_EMPOWER) + nDam += (nDam/2); + + int eDamageType = ChangedElementalDamage(oCaster, DAMAGE_TYPE_ELECTRICAL); + ApplyTouchAttackDamage(oCaster, oTarget, iAttackRoll, nDam, eDamageType); + PRCBonusDamage(oTarget); + + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + } + } + + return iAttackRoll;// return TRUE if spell charges should be decremented +} + +void main() +{ + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + if (!X2PreSpellCastCode()) return; + object oCaster = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nCasterLevel = PRCGetCasterLevel(oCaster); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if(GetLocalInt(oCaster, PRC_SPELL_HOLD) && oCaster == oTarget) + { + //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + DoSpell(oCaster, oTarget, nCasterLevel, nEvent); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel, nEvent)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_shout.ncs b/_haks/poa_exp_spells/sp_shout.ncs new file mode 100644 index 0000000..d81f3e0 Binary files /dev/null and b/_haks/poa_exp_spells/sp_shout.ncs differ diff --git a/_haks/poa_exp_spells/sp_shout.nss b/_haks/poa_exp_spells/sp_shout.nss new file mode 100644 index 0000000..5b727ba --- /dev/null +++ b/_haks/poa_exp_spells/sp_shout.nss @@ -0,0 +1,130 @@ +/* + sp_shout.nss + + Shout + Evocation [Sonic] + Level: Brd 4, Sor/Wiz 4 + Components: V + Casting Time: 1 standard action + Range: 30 ft. + Area: Cone-shaped burst + Duration: Instantaneous + Saving Throw: Fortitude partial or Reflex negates (object); see text + Spell Resistance: Yes (object) + You emit an ear-splitting yell that deafens and damages creatures in its + path. Any creature within the area is deafened for 2d6 rounds and takes + 5d6 points of sonic damage. A successful save negates the deafness and + reduces the damage by half. Any exposed brittle or crystalline object or + crystalline creature takes 1d6 points of sonic damage per caster level + (maximum 15d6). An affected creature is allowed a Fortitude save to reduce + the damage by half, and a creature holding fragile objects can negate damage + to them with a successful Reflex save. + A shout spell cannot penetrate a silence spell. + + Shout, Greater + Evocation [Sonic] + Level: Brd 6, Sor/Wiz 8 + Components: V, S, F + Range: 60 ft. + Saving Throw: Fortitude partial or Reflex negates (object); see text + This spell functions like shout, except that the cone deals 10d6 points of sonic + damage (or 1d6 points of sonic damage per caster level, maximum 20d6, against + exposed brittle or crystalline objects or crystalline creatures). It also causes + creatures to be stunned for 1 round and deafened for 4d6 rounds. A creature in + the area of the cone can negate the stunning and halve both the damage and the + duration of the deafness with a successful Fortitude save. A creature holding + vulnerable objects can attempt a Reflex save to negate the damage to those objects. + Arcane Focus: A small metal or ivory horn. + + By: Flaming_Sword + Created: Sept 9, 2006 + Modified: Sept 9, 2006 + + Label Name IconResRef School Range VS MetaMagic TargetType ImpactScript Bard Cleric Druid Paladin Ranger Wiz_Sorc Innate ConjTime ConjAnim ConjHeadVisual ConjHandVisual ConjGrndVisual ConjSoundVFX ConjSoundMale ConjSoundFemale CastAnim CastTime CastHeadVisual CastHandVisual CastGrndVisual CastSound Proj ProjModel ProjType ProjSpwnPoint ProjSound ProjOrientation ImmunityType ItemImmunity SubRadSpell1 SubRadSpell2 SubRadSpell3 SubRadSpell4 SubRadSpell5 Category Master UserType SpellDesc UseConcentration SpontaneouslyCast AltMessage HostileSetting FeatID Counter1 Counter2 HasProjectile +25 Cone_of_Cold 775 is_ConeCold V S vs 0x3d 0x3E NW_S0_ConeCold **** **** **** **** **** 5 5 1500 hand vco_swar3blue **** **** sco_swar3blue vs_chant_evoc_hm vs_chant_evoc_hf out 1700 **** var_conecold **** sar_conecold 0 **** **** **** **** path Cold 0 **** **** **** **** **** 11 **** 1 6121 1 0 **** 1 **** **** **** 1 +167 Sound_Burst 917 is_SndBurst V L vs 0x3c 0x2E NW_S0_SndBurst 2 2 **** **** **** **** 2 1500 hand **** vco_mehansonc01 **** sco_mehansonc01 vs_chant_evoc_lm vs_chant_evoc_lf out 1000 **** **** **** **** 1 vpr_los accelerating hand spr_los path Sonic 1 **** **** **** **** **** 11 **** 1 6260 1 0 **** 1 **** **** **** 1 +135 Prismatic_Spray 885 is_PrisSpray V S vs 0x38 0x2E NW_S0_PrisSpray **** **** **** **** **** 7 7 1500 hand **** vco_mehanmind03 **** sco_mehanmind03 vs_chant_evoc_hm vs_chant_evoc_hf out 1700 **** var_conepris **** sar_conepris 0 **** homing hand **** path **** 1 **** **** **** **** **** 11 **** 1 6229 1 0 **** 1 **** **** **** 1 +307 BARBARIAN_RAGE 1062 ife_rage V P s 0x00 0x09 NW_S1_BarbRage **** **** **** **** **** **** 1 500 head **** **** **** **** **** **** out 500 **** **** **** **** 0 **** **** **** **** **** **** 1 **** **** **** **** **** 16 **** 3 **** 0 0 53207 0 293 **** **** 0 + +1953 Shout 16828892 is_SndBurst V S v 0x1d 0x3E sp_shout 4 **** **** **** **** 4 4 1500 hand **** vco_smhansonc01 **** sco_mehansonc01 vs_chant_evoc_lm vs_chant_evoc_lf out 1700 **** vca_conesonc01 **** sff_howlmind 0 **** **** **** **** path Sonic 1 **** **** **** **** **** 11 **** 1 16828893 1 0 **** 1 **** **** **** 1 +1954 Greater_Shout 16828894 is_SndBurst V M vs 0x3d 0x3E sp_shout 6 **** **** **** **** 8 6 1500 hand **** vco_mehansonc01 **** sco_mehansonc01 vs_chant_evoc_hm vs_chant_evoc_hf out 1700 **** vca_conesonc01 **** sff_howlmind 0 **** **** **** **** path Sonic 1 **** **** **** **** **** 11 **** 1 16828895 1 0 **** 1 **** **** **** 1 + +*/ + +#include "prc_sp_func" +#include "prc_add_spell_dc" +void main() +{ + object oCaster = OBJECT_SELF; + int nCasterLevel = PRCGetCasterLevel(oCaster); + int nSpellID = PRCGetSpellId(); + PRCSetSchool(GetSpellSchool(nSpellID)); + if (!X2PreSpellCastCode()) return; + location lTargetLocation = PRCGetSpellTargetLocation(); + object oTarget; + int nMetaMagic = PRCGetMetaMagicFeat(); + int nSaveDC = PRCGetSaveDC(oTarget, oCaster); + int nPenetr = nCasterLevel + SPGetPenetr(); + float fDelay; + float fSize = FeetToMeters((nSpellID == SPELL_SHOUT_GREATER) ? 60.0 : 30.0); + int EleDmg = ChangedElementalDamage(OBJECT_SELF, DAMAGE_TYPE_SONIC); + + int nDC; + + int nDamageDice = (nSpellID == SPELL_SHOUT_GREATER) ? 10+(nPenetr/2) : 5+(nPenetr/4); + int nDeafenedDice = (nSpellID == SPELL_SHOUT_GREATER) ? 4 : 2; + int nDamage; + int nDuration; + + oTarget = MyFirstObjectInShape(SHAPE_SPELLCONE, fSize, lTargetLocation, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + while(GetIsObjectValid(oTarget)) + { + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, oCaster)) + { + { + SignalEvent(oTarget, EventSpellCastAt(oCaster, nSpellID)); + fDelay = GetDistanceBetween(oCaster, oTarget)/20.0; + if(!PRCDoResistSpell(oCaster, oTarget, nCasterLevel, fDelay) && (oTarget != oCaster)) + { + nDC = PRCGetSaveDC(oTarget,OBJECT_SELF); + nDamage = d6(nDamageDice); + nDuration = d6(nDeafenedDice); + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDamage = 6 * nDamageDice; + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDamage += (nDamage/2); + } + //nDamage += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF, FALSE); + if(PRCMySavingThrow(SAVING_THROW_FORT, oTarget, + PRCGetSaveDC(oTarget, oCaster, nSpellID), + SAVING_THROW_TYPE_SONIC)) + { + nDamage /= 2; + if(GetHasMettle(oTarget, SAVING_THROW_FORT)) + nDamage = 0; + else if(nSpellID == SPELL_SHOUT_GREATER) + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectDeaf(), oTarget, RoundsToSeconds(nDuration/2))); + } + else + { + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectDeaf(), oTarget, RoundsToSeconds(nDuration))); + if(nSpellID == SPELL_SHOUT_GREATER) + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectStunned(), oTarget, 6.0)); + } + if(nDamage > 0) + { + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_SONIC), oTarget)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDamage, EleDmg), oTarget)); + PRCBonusDamage(oTarget); + } + } + } + } + oTarget = MyNextObjectInShape(SHAPE_SPELLCONE, fSize, lTargetLocation, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + } + + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_shriveling.ncs b/_haks/poa_exp_spells/sp_shriveling.ncs new file mode 100644 index 0000000..9fb0988 Binary files /dev/null and b/_haks/poa_exp_spells/sp_shriveling.ncs differ diff --git a/_haks/poa_exp_spells/sp_shriveling.nss b/_haks/poa_exp_spells/sp_shriveling.nss new file mode 100644 index 0000000..37334ed --- /dev/null +++ b/_haks/poa_exp_spells/sp_shriveling.nss @@ -0,0 +1,107 @@ +//:://///////////////////////////////////////////// +//:: Name Shriveling +//:: FileName sp_shriveling.nss +//::////////////////////////////////////////////// +/**@file Shriveling +Necromancy [Evil] +Level: Clr 3, Sor/Wiz 2 +Components: V, S, Disease +Casting Time: 1 action +Range: Close (25 ft. + 5 ft./2 levels) +Target: One living creature +Duration: Instantaneous +Saving Throw: Reflex half +Spell Resistance: Yes + +The caster channels dark energy that blasts and +blackens the subject's flesh. The subject takes +1d4 points of damage per caster level (maximum 10d4). + +Disease Component: Soul rot. + +Author: Tenjac +Created: 05/04/06 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +int GetHasSoulRot(object oPC); + +#include "prc_inc_spells" +#include "prc_add_spell_dc" +void main() +{ + object oPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nCasterLvl = PRCGetCasterLevel(oPC); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDC = PRCGetSaveDC(oTarget, oPC); + + //spellhook + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_NECROMANCY); + + PRCSignalSpellEvent(oTarget,TRUE, SPELL_SHRIVELING, oPC); + + //Check for Soul rot + if(!GetHasSoulRot(oPC)) + { + SendMessageToPC(oPC, "This spell requires the caster to have the Soul Rot disease."); + PRCSetSchool(); + return; + } + + //SR + if(!PRCDoResistSpell(oPC, oTarget, nCasterLvl + SPGetPenetr()) && PRCGetIsAliveCreature(oTarget)) + { + int nDam = d4(min(nCasterLvl, 20)); + + //eval metamagic + if(nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 4 * (min(nCasterLvl, 20)); + } + + if(nMetaMagic & METAMAGIC_EMPOWER) + { + nDam += (nDam/2); + } + + //Check for save + if(PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, nDC, SAVING_THROW_TYPE_MIND_SPELLS)) + { + nDam = nDam/2; + } + + effect eVis = EffectVisualEffect(VFX_FNF_GAS_EXPLOSION_GREASE); + + //Apply damage & visual + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_MAGICAL), oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + //SPEvilShift(oPC); + PRCSetSchool(); +} + + +int GetHasSoulRot(object oPC) +{ + int bHasDisease = FALSE; + effect eTest = GetFirstEffect(oPC); + effect eDisease = EffectDisease(DISEASE_SOUL_ROT); + + if (PRCGetHasEffect(EFFECT_TYPE_DISEASE, oPC)) + { + while (GetIsEffectValid(eTest)) + { + if(eTest == eDisease) + { + bHasDisease = TRUE; + + } + eTest = GetNextEffect(oPC); + } + } + return bHasDisease; +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_slash_displ.ncs b/_haks/poa_exp_spells/sp_slash_displ.ncs new file mode 100644 index 0000000..aa5b1e6 Binary files /dev/null and b/_haks/poa_exp_spells/sp_slash_displ.ncs differ diff --git a/_haks/poa_exp_spells/sp_slash_displ.nss b/_haks/poa_exp_spells/sp_slash_displ.nss new file mode 100644 index 0000000..fa0de19 --- /dev/null +++ b/_haks/poa_exp_spells/sp_slash_displ.nss @@ -0,0 +1,89 @@ +//:://///////////////////////////////////////////// +//:: Name Slashing Dispell +//:: FileName sp_slash_displ.nss +//::////////////////////////////////////////////// +/**@file Slashing Dispell +Abjuration/Evocation +Level: Duskblade 5, sorcerer/wizard 4 +Components: V,S +Casting Time: 1 standard action +Range: Medium +Target or Area: One creature or 20ft radius burst +Duration: Instantaneous +Saving Throw: None +Spell Resistance: No + +This spell functions like dispel magic, except as +noted here. Any creature that has a spell effect +removed from it takes 2 points of damage per level +of the dispelled effect. If a creature loses the +effects of multiple spells, it takes damage for +each one. +**/ + +#include "inc_dispel" +#include "prc_add_spell_dc" + +void main() +{ + PRCSetSchool(SPELL_SCHOOL_ABJURATION); + + if (!X2PreSpellCastCode()) return; + + object oPC = OBJECT_SELF; + effect eVis = EffectVisualEffect(VFX_IMP_BREACH); + effect eImpact = EffectVisualEffect(VFX_FNF_DISPEL); + object oTarget = PRCGetSpellTargetObject(); + location lLocal = PRCGetSpellTargetLocation(); + int nCasterLevel = PRCGetCasterLevel(oPC); + + //-------------------------------------------------------------------------- + // Dispel Magic is capped at caster level 10 + //-------------------------------------------------------------------------- + if(nCasterLevel > 40) + { + nCasterLevel = 40; + } + + if (GetIsObjectValid(oTarget)) + { + //---------------------------------------------------------------------- + // Targeted Dispel - Dispel all + //---------------------------------------------------------------------- + spellsDispelMagicMod(oTarget, nCasterLevel, eVis, eImpact); + + } + else + { + //---------------------------------------------------------------------- + // Area of Effect - Only dispel best effect + //---------------------------------------------------------------------- + + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eImpact, PRCGetSpellTargetLocation()); + oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, lLocal, FALSE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_AREA_OF_EFFECT | OBJECT_TYPE_PLACEABLE ); + while (GetIsObjectValid(oTarget)) + { + if(GetObjectType(oTarget) == OBJECT_TYPE_AREA_OF_EFFECT) + { + //-------------------------------------------------------------- + // Handle Area of Effects + spellsDispelAoEMod(oTarget, oPC,nCasterLevel); + } + else if (GetObjectType(oTarget) == OBJECT_TYPE_PLACEABLE) + { + SignalEvent(oTarget, EventSpellCastAt(oPC, GetSpellId())); + } + else + { + spellsDispelMagicMod(oTarget, nCasterLevel, eVis, eImpact, FALSE); + } + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE,lLocal, FALSE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_AREA_OF_EFFECT | OBJECT_TYPE_PLACEABLE); + } + } + + PRCSetSchool(); +} + + + + diff --git a/_haks/poa_exp_spells/sp_slashdark.ncs b/_haks/poa_exp_spells/sp_slashdark.ncs new file mode 100644 index 0000000..455abd3 Binary files /dev/null and b/_haks/poa_exp_spells/sp_slashdark.ncs differ diff --git a/_haks/poa_exp_spells/sp_slashdark.nss b/_haks/poa_exp_spells/sp_slashdark.nss new file mode 100644 index 0000000..f4d061d --- /dev/null +++ b/_haks/poa_exp_spells/sp_slashdark.nss @@ -0,0 +1,90 @@ +///////////////////////////////////////////////////////////////////// +// +// Slashing Darkness - Project a damaging ray of negative energy. +// +///////////////////////////////////////////////////////////////////// +//::Added hold ray functionality - HackyKid + + +#include "prc_inc_sp_tch" +#include "prc_sp_func" +#include "prc_add_spell_dc" +//Implements the spell impact, put code here +// if called in many places, return TRUE if +// stored charges should be decreased +// eg. touch attack hits +// +// Variables passed may be changed if necessary +int DoSpell(object oCaster, object oTarget, int nCasterLevel, int nEvent) +{ + int nMetaMagic = PRCGetMetaMagicFeat(); + int nSaveDC = PRCGetSaveDC(oTarget, oCaster); + int nPenetr = nCasterLevel + SPGetPenetr(); + + int nDice = (nCasterLevel + 1) / 2; + if (nDice > 20) nDice = 20; + + // Adjust the damage type if necessary. + int nDamageType = PRCGetElementalDamageType(DAMAGE_TYPE_NEGATIVE, OBJECT_SELF); + + int iAttackRoll = 0; + + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF)) + { + //Fire cast spell at event for the specified target + PRCSignalSpellEvent(oTarget); + + iAttackRoll = PRCDoRangedTouchAttack(oTarget);; + + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, + EffectBeam(VFX_BEAM_BLACK, OBJECT_SELF, BODY_NODE_HAND, 0 == iAttackRoll), oTarget, 1.0,FALSE); + + if (iAttackRoll > 0) + { + if (!PRCDoResistSpell(OBJECT_SELF, oTarget, nPenetr)) + { + int nDamage = PRCGetMetaMagicDamage(nDamageType, 1 == iAttackRoll ? nDice : (nDice * 2), 8); + + // Apply the damage and the vfx to the target. + + effect eEffect = PRCEffectDamage(oTarget, nDamage, nDamageType); + if (RACIAL_TYPE_UNDEAD == MyPRCGetRacialType(oTarget) || (GetHasFeat(FEAT_TOMB_TAINTED_SOUL, oTarget) && GetAlignmentGoodEvil(oTarget) != ALIGNMENT_GOOD) || GetLocalInt(oTarget, "AcererakHealing")) + eEffect = PRCEffectHeal(nDamage, oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eEffect, oTarget); + PRCBonusDamage(oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_NEGATIVE_ENERGY), oTarget); + } + } + } + + return iAttackRoll; //return TRUE if spell charges should be decremented +} + +void main() +{ + object oCaster = OBJECT_SELF; + int nCasterLevel = PRCGetCasterLevel(oCaster); + PRCSetSchool(GetSpellSchool(PRCGetSpellId())); + if (!X2PreSpellCastCode()) return; + object oTarget = PRCGetSpellTargetObject(); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if (GetLocalInt(oCaster, PRC_SPELL_HOLD) && GetHasFeat(FEAT_EF_HOLD_RAY, oCaster) && oCaster == oTarget) + { //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + if (oCaster != oTarget) //cant target self with this spell, only when holding charge + DoSpell(oCaster, oTarget, nCasterLevel, nEvent); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel, nEvent)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/sp_snsnow.ncs b/_haks/poa_exp_spells/sp_snsnow.ncs new file mode 100644 index 0000000..f30d76c Binary files /dev/null and b/_haks/poa_exp_spells/sp_snsnow.ncs differ diff --git a/_haks/poa_exp_spells/sp_snsnow.nss b/_haks/poa_exp_spells/sp_snsnow.nss new file mode 100644 index 0000000..9032654 --- /dev/null +++ b/_haks/poa_exp_spells/sp_snsnow.nss @@ -0,0 +1,47 @@ +#include "prc_inc_sp_tch" + +void main() +{ + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + if (!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + object oTarget = PRCGetSpellTargetObject(); + + // Determine damage dice. + int nCasterLvl = PRCGetCasterLevel(); + int nDice = nCasterLvl; + if (nDice > 20) nDice = 20; + int nPenetr = nCasterLvl + SPGetPenetr(); + + // Adjust the damage type of necessary. + int nDamageType = PRCGetElementalDamageType(DAMAGE_TYPE_COLD, OBJECT_SELF); + + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF)) + { + // Fire cast spell at event for the specified target + PRCSignalSpellEvent(oTarget); + + if (!PRCDoResistSpell(OBJECT_SELF, oTarget,nPenetr)) + { + // Make touch attack, saving result for possible critical + int nTouchAttack = PRCDoRangedTouchAttack(oTarget);; + if (nTouchAttack > 0) + { + // Roll the damage of (1d6+1) / level, doing double damage on a crit. + int nDamage = PRCGetMetaMagicDamage(nDamageType, + 1 == nTouchAttack ? nDice : (nDice * 2), 6, 1); + + // Apply the damage and the damage visible effect to the target. + SPApplyEffectToObject(DURATION_TYPE_INSTANT, + PRCEffectDamage(oTarget, nDamage, nDamageType), oTarget); + PRCBonusDamage(oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, + EffectVisualEffect(VFX_IMP_FROST_S), oTarget); + } + } + } + + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/sp_snsnowsw.ncs b/_haks/poa_exp_spells/sp_snsnowsw.ncs new file mode 100644 index 0000000..c070894 Binary files /dev/null and b/_haks/poa_exp_spells/sp_snsnowsw.ncs differ diff --git a/_haks/poa_exp_spells/sp_snsnowsw.nss b/_haks/poa_exp_spells/sp_snsnowsw.nss new file mode 100644 index 0000000..239b58a --- /dev/null +++ b/_haks/poa_exp_spells/sp_snsnowsw.nss @@ -0,0 +1,19 @@ +#include "prc_inc_spells" +#include "spinc_burst" + +void main() +{ + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + if (!X2PreSpellCastCode()) return; + + // Get the damage dice. + int nCasterLvl = PRCGetCasterLevel(OBJECT_SELF); + + int nDice = (nCasterLvl + 1) / 2; + if (nDice > 20) nDice = 20; + + // Ice burst is a colossal radius burst doing 1d4+10/level (cap at 10) cold damage. + DoBurst (nCasterLvl,6, 0, nDice, + VFX_IMP_FROST_L, VFX_IMP_FROST_S, + RADIUS_SIZE_MEDIUM, DAMAGE_TYPE_COLD, DAMAGE_TYPE_COLD, SAVING_THROW_TYPE_COLD); +} diff --git a/_haks/poa_exp_spells/sp_spiderskin.ncs b/_haks/poa_exp_spells/sp_spiderskin.ncs new file mode 100644 index 0000000..a6869a7 Binary files /dev/null and b/_haks/poa_exp_spells/sp_spiderskin.ncs differ diff --git a/_haks/poa_exp_spells/sp_spiderskin.nss b/_haks/poa_exp_spells/sp_spiderskin.nss new file mode 100644 index 0000000..e436739 --- /dev/null +++ b/_haks/poa_exp_spells/sp_spiderskin.nss @@ -0,0 +1,71 @@ +/* + sp_spiderskin + + Spiderskin toughens the target's skin, making + it more like a spider's carapace. The target + gains a bonus to natural armor, saves vs. poison, + and hide checks. The bonus is equal to 1 +1 per 3 + caster levels, to a maximum of +5 at 12th level. + + By: ??? + Created: ??? + Modified: Jul 2, 2006 +*/ + +#include "prc_sp_func" + +//Implements the spell impact, put code here +// if called in many places, return TRUE if +// stored charges should be decreased +// eg. touch attack hits +// +// Variables passed may be changed if necessary +int DoSpell(object oCaster, object oTarget, int nCasterLevel, int nEvent) +{ + PRCSignalSpellEvent(oTarget, FALSE); + // Determine the spell's duration, taking metamagic feats into account. + float fDuration = PRCGetMetaMagicDuration(TenMinutesToSeconds(nCasterLevel)); + // Calculate buff amount. + int nBuff = 1 + nCasterLevel / 3; + if (nBuff > 8) nBuff = 8; + // Apply the buff and vfx. + effect eBuff = EffectACIncrease(nBuff, AC_NATURAL_BONUS); + eBuff = EffectLinkEffects(eBuff, EffectSkillIncrease(SKILL_HIDE, nBuff)); + eBuff = EffectLinkEffects(eBuff, + EffectSavingThrowIncrease(SAVING_THROW_ALL, nBuff, SAVING_THROW_TYPE_POISON)); + eBuff = EffectLinkEffects(eBuff, EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE)); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eBuff, oTarget, fDuration,TRUE,-1,nCasterLevel); + + SPApplyEffectToObject(DURATION_TYPE_INSTANT, + EffectVisualEffect(VFX_IMP_POLYMORPH), oTarget); + + return TRUE; //return TRUE if spell charges should be decremented +} + +void main() +{ + object oCaster = OBJECT_SELF; + int nCasterLevel = PRCGetCasterLevel(oCaster); + PRCSetSchool(GetSpellSchool(PRCGetSpellId())); + if (!X2PreSpellCastCode()) return; + object oTarget = PRCGetSpellTargetObject(); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if(GetLocalInt(oCaster, PRC_SPELL_HOLD) && oCaster == oTarget) + { //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + DoSpell(oCaster, oTarget, nCasterLevel, nEvent); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel, nEvent)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_stalagmite.ncs b/_haks/poa_exp_spells/sp_stalagmite.ncs new file mode 100644 index 0000000..7a3eee2 Binary files /dev/null and b/_haks/poa_exp_spells/sp_stalagmite.ncs differ diff --git a/_haks/poa_exp_spells/sp_stalagmite.nss b/_haks/poa_exp_spells/sp_stalagmite.nss new file mode 100644 index 0000000..c846bd4 --- /dev/null +++ b/_haks/poa_exp_spells/sp_stalagmite.nss @@ -0,0 +1,84 @@ +/* +Sudden Stalagmite + +Conjuration (Creation) [Earth] +Level: Druid 4, +Components: V, S, +Casting Time: 1 standard action +Range: Medium (100 ft. + 10 ft./level) +Target: One creature +Duration: Instantaneous +Saving Throw: Reflex half +Spell Resistance: No + +You point your finger upward and utter a curt shout. Immediately, a razor-sharp stalagmite bursts from the ground to impale your foe. + +This spell creates a stalagmite about 1 foot wide at its base and up to 10 feet tall. The stalagmite grows from the ground under the target creature and shoots upward. + +The stalagmite deals 1d6 points of piercing damage per caster level (maximum 10d6). In addition, a target that fails to make a saving throw against this spell and takes damage from it is impaled on the stalagmite and +cannot move from its current location. The victim can break free with a DC 25 Strength check, although doing this deals it 3d6 points of slashing damage. + +A creature's damage reduction, if any, applies to the damage from this spell. The damage from sudden stalagmite is treated as piercing for the purpose of overcoming damage reduction. +*/ + +#include "prc_sp_func" +#include "prc_add_spell_dc" + +void StalagmiteBreak(object oTarget, object oCaster, effect eHold) +{ + int nStrChk = d20() + GetAbilityModifier(ABILITY_STRENGTH, oTarget); + if(nStrChk >= 25) + { + PRCRemoveSpellEffects(SPELL_SUDDEN_STALAGMITE, oCaster, oTarget); + FloatingTextStringOnCreature("*Strength check successful!*", oTarget, FALSE); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, d6(3), DAMAGE_TYPE_PIERCING), oTarget); + } + else + { + DelayCommand(6.0, StalagmiteBreak(oTarget, oCaster, eHold)); + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, ExtraordinaryEffect(eHold), oTarget, 6.0); + } +} + +void main() +{ + object oCaster = OBJECT_SELF; + int nCasterLevel = PRCGetCasterLevel(oCaster); + PRCSetSchool(GetSpellSchool(PRCGetSpellId())); + if (!X2PreSpellCastCode()) return; + object oTarget = PRCGetSpellTargetObject(); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nSaveDC = PRCGetSaveDC(oTarget, oCaster); + int nDice = nCasterLevel; + // 10d6 Max + if (nDice > 40) nDice = 40; + int nDam = d6(nDice); + effect eDam; + effect eVis = EffectVisualEffect(VFX_COM_CHUNK_STONE_SMALL); + effect eHold = EffectLinkEffects(EffectParalyze(), EffectVisualEffect(VFX_DUR_STONEHOLD)); + + int iAttackRoll = 0; + + if(!GetIsReactionTypeFriendly(oTarget)) + { + //Resolve metamagic + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + nDam = 6 * nDice; + else + //Roll damage for each target + nDam = d6(nDice); + if ((nMetaMagic & METAMAGIC_EMPOWER)) + nDam += nDam / 2; + int nCheck = nDam; + nDam = PRCGetReflexAdjustedDamage(nDam, oTarget, nSaveDC, SAVING_THROW_TYPE_SPELL); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_PIERCING), oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + CreateObject(OBJECT_TYPE_PLACEABLE, "x3_plc_boulder1", PRCGetSpellTargetLocation()); + if (nDam == nCheck) // If the damage is the same after the reflex save, they failed it. + { + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, ExtraordinaryEffect(eHold), oTarget, 6.0); //Extraordinary because it's just a piece of stone, not magical, at this point + DelayCommand(6.0, StalagmiteBreak(oTarget, oCaster, eHold)); + } + } + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/sp_strm_shard.ncs b/_haks/poa_exp_spells/sp_strm_shard.ncs new file mode 100644 index 0000000..05117f0 Binary files /dev/null and b/_haks/poa_exp_spells/sp_strm_shard.ncs differ diff --git a/_haks/poa_exp_spells/sp_strm_shard.nss b/_haks/poa_exp_spells/sp_strm_shard.nss new file mode 100644 index 0000000..36804e6 --- /dev/null +++ b/_haks/poa_exp_spells/sp_strm_shard.nss @@ -0,0 +1,97 @@ +//:://///////////////////////////////////////////// +//:: Name Storm of Shards +//:: FileName sp_strm_shard.nss +//::////////////////////////////////////////////// +/**@file Storm of Shards +Evocation [Good] +Level: Sanctified 6 +Components: V, S, Sacrifice +Casting Time: 1 standard action +Range: 0 ft. +Area: 80-ft.-radius spread +Duration: Instantaneous +Saving Throw: Fortitude negates (blinding), +Reflex half (shards) +Spell Resistance: Yes + +Shards of heavenly light rain down from above. +Evil creatures within the spell's area that fail +a Fortitude save are blinded permanently. The +light shards also slice the flesh of evil +creatures, dealing 1d6 points of damage per caster +level (maximum 20d6). A successful Reflex save +halves the damage, which is of divine origin. + +Sacrifice: 1d3 points of Strength drain. + +Author: Tenjac +Created: 6/28/06 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" +#include "prc_add_spell_dc" +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + object oPC = OBJECT_SELF; + location lLoc = GetLocation(oPC); + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, 24.38f, lLoc, FALSE, OBJECT_TYPE_CREATURE); + int nCasterLvl = PRCGetCasterLevel(oPC); + int nDC = PRCGetSaveDC(oTarget, oPC); + int nAlign; + int nMetaMagic = PRCGetMetaMagicFeat(); + + //VFX + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_FIRESTORM), lLoc); + + while(GetIsObjectValid(oTarget)) + { + if(!PRCDoResistSpell(OBJECT_SELF, oTarget, nCasterLvl + SPGetPenetr())) + { + nAlign = GetAlignmentGoodEvil(oTarget); + + if(nAlign == ALIGNMENT_EVIL) + { + if(!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_DIVINE)) + { + SPApplyEffectToObject(DURATION_TYPE_PERMANENT, EffectBlindness(), oTarget); + } + + int nDam = d6(min(nCasterLvl, 40)); + + if(nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 6 *(min(nCasterLvl, 40)); + } + + if(nMetaMagic & METAMAGIC_EMPOWER) + { + nDam += (nDam/2); + } + + if(PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, nDC, SAVING_THROW_TYPE_DIVINE)) + { + nDam = nDam/2; + } + + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_DIVINE), oTarget); + } + } + oTarget = MyNextObjectInShape(SHAPE_SPHERE, 24.38f, lLoc, FALSE, OBJECT_TYPE_CREATURE); + } + + //Sanctified spells get mandatory 10 pt good adjustment, regardless of switch + AdjustAlignment(oPC, ALIGNMENT_GOOD, 10, FALSE); + + //SPGoodShift(oPC); + DoCorruptionCost(oPC, ABILITY_STRENGTH, d3(1), 1); + PRCSetSchool(); +} + + + \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_sunmantle.ncs b/_haks/poa_exp_spells/sp_sunmantle.ncs new file mode 100644 index 0000000..0ec4529 Binary files /dev/null and b/_haks/poa_exp_spells/sp_sunmantle.ncs differ diff --git a/_haks/poa_exp_spells/sp_sunmantle.nss b/_haks/poa_exp_spells/sp_sunmantle.nss new file mode 100644 index 0000000..8d0d576 --- /dev/null +++ b/_haks/poa_exp_spells/sp_sunmantle.nss @@ -0,0 +1,78 @@ +//:://///////////////////////////////////////////// +//:: Name Sunmantle +//:: FileName sp_sunmantle.nss +//::////////////////////////////////////////////// +/**@file Sunmantle +Abjuration +Level: Sanctified 4 +Components: S, Sacrifice +Casting Time: 1 standard action +Range: Touch +Target: One creature touched +Duration: 1 round/level +Saving Throw: None +Spell Resistance: Yes + +This spell cloaks the target in a wavering cloak of +light that illuminates an area around the target +(and dispels darkness) as a daylight spell. However, +its ability to generate bright light is not the +spell's primary function. + +The sunmantle grants the target damage reduction +5/-. Furthermore, if the target is struck by a melee +attack that deals hit point damage, a tendril of +light lashes out at the attacker, striking +unerringly and dealing 5 points of damage. + +Because of the brilliance of the sunmantle, +creatures sensitive to bright light (such as dark +elves) take the usual attack penalties when in the +light radius of the sunmantle. + +Sacrifice: 1d4 points of Strength damage. + +Author: Tenjac +Created: 6/20/06 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_ABJURATION); + + object oPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nCasterLvl = PRCGetCasterLevel(oPC); + float fDur = RoundsToSeconds(nCasterLvl); + int nMetaMagic = PRCGetMetaMagicFeat(); + + if(nMetaMagic & METAMAGIC_EXTEND) + { + fDur += fDur; + } + + //Darkness dispelling + + //DR + effect eLink = EffectLinkEffects(EffectDamageShield(4+(nCasterLvl/4), DAMAGE_BONUS_1, DAMAGE_TYPE_MAGICAL), EffectDamageResistance(DAMAGE_TYPE_BLUDGEONING, 5+(nCasterLvl/4), 0)); + eLink = EffectLinkEffects(EffectDamageResistance(DAMAGE_TYPE_PIERCING, 5+(nCasterLvl/4), 0), eLink); + eLink = EffectLinkEffects(eLink, EffectDamageResistance(DAMAGE_TYPE_SLASHING, 5+(nCasterLvl/4), 0)); + + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, fDur); + + DoCorruptionCost(oPC, ABILITY_STRENGTH, d4(1), 0); + + //Sanctified spells get mandatory 10 pt good adjustment, regardless of switch + AdjustAlignment(oPC, ALIGNMENT_GOOD, 10, FALSE); + + //SPGoodShift(oPC); + PRCSetSchool(); +} + + diff --git a/_haks/poa_exp_spells/sp_thous_ndls.ncs b/_haks/poa_exp_spells/sp_thous_ndls.ncs new file mode 100644 index 0000000..3e089e2 Binary files /dev/null and b/_haks/poa_exp_spells/sp_thous_ndls.ncs differ diff --git a/_haks/poa_exp_spells/sp_thous_ndls.nss b/_haks/poa_exp_spells/sp_thous_ndls.nss new file mode 100644 index 0000000..52dab0e --- /dev/null +++ b/_haks/poa_exp_spells/sp_thous_ndls.nss @@ -0,0 +1,108 @@ +//:://///////////////////////////////////////////// +//:: Name Thousand Needles +//:: FileName sp_thous_ndls.nss +//::////////////////////////////////////////////// +/**@file Thousand Needles +Conjuration (Creation) [Evil] +Level: Pain 5, Clr 6 +Components: V, S, M +Casting Time: 1 action +Range: Medium (100 ft. + 10 ft./levels) +Target: One living creature +Duration: 1 minute/level +Saving Throw: Fortitude partial +Spell Resistance: Yes + +A thousand needles surround the subject and pierce +his flesh, worming through armor or any type of +protection, although creatures with damage reduction +are immune to this spell. The subject takes 2d6 +points of damage immediately and takes a -4 +circumstance penalty on attack rolls, saving throws, +skill checks, and ability checks for the rest of the +spell's duration. A successful Fortitude save reduces +damage to half and negates the circumstance penalty. + +Material Component: A handful of needles all of +which have drawn blood. + +Author: Tenjac +Created: 5/18/06 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" +#include "prc_add_spell_dc" +void main() +{ + //spellhook + if(!X2PreSpellCastCode()) return; + PRCSetSchool(SPELL_SCHOOL_CONJURATION); + + object oPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + effect eVis = EffectVisualEffect(VFX_COM_BLOOD_SPARK_LARGE); + int nCasterLvl = PRCGetCasterLevel(oPC); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nPenalty = 4; + int nDC = PRCGetSaveDC(oTarget, oPC); + int nDam = d6(2+(nCasterLvl/2)); + float fDur = (60.0f * nCasterLvl); + + PRCSignalSpellEvent(oTarget,TRUE, SPELL_THOUSAND_NEEDLES, oPC); + + if (!PRCDoResistSpell(OBJECT_SELF, oTarget, nCasterLvl + SPGetPenetr()) && PRCGetIsAliveCreature(oTarget)) + { + //metamagic + if(nMetaMagic & METAMAGIC_EXTEND) + { + fDur = (fDur * 2); + } + + if(nMetaMagic & METAMAGIC_MAXIMIZE) + { + nDam = 6 * (2+(nCasterLvl/2)); + } + + if(nMetaMagic & METAMAGIC_EMPOWER) + { + nDam += (nDam/2); + } + + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + + //Save + if(PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_EVIL)) + { + nDam = nDam/2; + + if (GetHasMettle(oTarget, SAVING_THROW_FORT)) + // This script does nothing if it has Mettle, bail + return; + } + + else + { + if(!PRCGetHasEffect(EFFECT_TYPE_DAMAGE_REDUCTION, oTarget)) + { + effect eLink = EffectAttackDecrease(nPenalty, ATTACK_BONUS_MISC); + eLink = EffectLinkEffects(eLink, EffectSavingThrowDecrease(SAVING_THROW_ALL, nPenalty, SAVING_THROW_TYPE_ALL)); + eLink = EffectLinkEffects(eLink, EffectSkillDecrease(SKILL_ALL_SKILLS, nPenalty)); + + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, fDur); + } + } + + //Apply damage + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_MAGICAL), oTarget); + } + + //SPEvilShift(oPC); + PRCSetSchool(); +} + + + + + diff --git a/_haks/poa_exp_spells/sp_touch_fatigue.ncs b/_haks/poa_exp_spells/sp_touch_fatigue.ncs new file mode 100644 index 0000000..bacc5d4 Binary files /dev/null and b/_haks/poa_exp_spells/sp_touch_fatigue.ncs differ diff --git a/_haks/poa_exp_spells/sp_touch_fatigue.nss b/_haks/poa_exp_spells/sp_touch_fatigue.nss new file mode 100644 index 0000000..1330705 --- /dev/null +++ b/_haks/poa_exp_spells/sp_touch_fatigue.nss @@ -0,0 +1,93 @@ +//:://///////////////////////////////////////////// +//:: Name Touch of Fatigue +//:: FileName sp_touch_fatigue.nss +//::////////////////////////////////////////////// +/* +Level: Sor/Wiz 0, Duskblade 0, Blighter 0 +Components: V, S +Casting Time: 1 standard action +Range: Touch +Target: Creature touched +Duration: 1 round/level +Saving Throw: Fort negates +Spell Resistance: Yes + +You channel negative energy through your touch, fatiguing the target. +You must succeed on a touch attack to strike a target. +The subject is immediately fatigued for the spell's duration. +This spell has no effect on a creature that is already fatigued. +Unlike with normal fatigue, the effect ends as soon as the spell's duration expires. + +**/ +//:://////////////////////////////////////////////// +//:: Author: Strat +//:: Date : 11.4.2020 +//:://////////////////////////////////////////////// + +#include "prc_inc_sp_tch" +#include "prc_sp_func" +#include "prc_add_spell_dc" +//Implements the spell impact, put code here +// if called in many places, return TRUE if +// stored charges should be decreased +// eg. touch attack hits +// +// Variables passed may be changed if necessary +int DoSpell(object oCaster, object oTarget, int nCasterLevel, int nEvent) +{ + int nMetaMagic = PRCGetMetaMagicFeat(); + int nPenetr = nCasterLevel + SPGetPenetr(); + int nDie = min(nCasterLevel, 20); + object oArmor = GetItemInSlot(INVENTORY_SLOT_CHEST, oTarget); + effect eVis = EffectVisualEffect(VFX_DUR_BIGBYS_BIGBLUE_HAND2); + + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, PRCGetSpellId())); + int iAttackRoll = PRCDoMeleeTouchAttack(oTarget, TRUE, oCaster); + + if(iAttackRoll > 0) + { + // Only creatures, and PvP check. + if(!GetIsReactionTypeFriendly(oTarget)) + { + // Check Spell Resistance + if(!PRCDoResistSpell(oCaster, oTarget, nPenetr)) + { + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, PRCGetSaveDC(oTarget, oCaster), SAVING_THROW_TYPE_SPELL)) + { + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectFatigue(), oTarget, nCasterLevel*6.0); + } + } + } + } + + return iAttackRoll;// return TRUE if spell charges should be decremented +} + +void main() +{ + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + if (!X2PreSpellCastCode()) return; + object oCaster = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nCasterLevel = PRCGetCasterLevel(oCaster); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if(GetLocalInt(oCaster, PRC_SPELL_HOLD) && oCaster == oTarget) + { + //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + DoSpell(oCaster, oTarget, nCasterLevel, nEvent); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel, nEvent)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_unliv_weap.ncs b/_haks/poa_exp_spells/sp_unliv_weap.ncs new file mode 100644 index 0000000..52ff0ad Binary files /dev/null and b/_haks/poa_exp_spells/sp_unliv_weap.ncs differ diff --git a/_haks/poa_exp_spells/sp_unliv_weap.nss b/_haks/poa_exp_spells/sp_unliv_weap.nss new file mode 100644 index 0000000..27bfd5c --- /dev/null +++ b/_haks/poa_exp_spells/sp_unliv_weap.nss @@ -0,0 +1,108 @@ +//:://///////////////////////////////////////////// +//:: Name Unliving Weapon +//:: FileName sp_unliv_weap.nss +//::////////////////////////////////////////////// +/**@file Unliving Weapon +Necromancy [Evil] +Level: Clr 3 +Components: V, S, M +Casting Time: 1 full round +Range: Touch +Targets: One undead creature +Duration: 1 hour/level +Saving Throw: Will negates +Spell Resistance: Yes + +This spell causes an undead creature to explode in a +burst of powerful energy when struck for at least 1 +point of damage, or at a set time no longer than the +duration of the spell, whichever comes first. The +explosion is a 10-foot radius burst that deals 1d6 +points of damage for every two caster levels +(maximum 10d6). + +While this spell can be an effective form of attack +against an undead creature, necromancers often use +unliving weapon to create undead capable of suicide +attacks (if such a term can be applied to something +that is already dead). Skeletons or zombies with this +spell cast upon them can be very dangerous to foes +that would normally disregard them. + +Material Component: A drop of bile and a bit of sulfur. + +Author: Tenjac +Created: 5/11/06 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +void HiImABomb(object oTarget, int nCounter, int nHP, int nCasterLvl, int nMetaMagic); + +#include "prc_inc_spells" +#include "prc_add_spell_dc" +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_NECROMANCY); + + object oPC = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nCasterLvl = PRCGetCasterLevel(oPC); + int nPenetr = nCasterLvl + SPGetPenetr(); + float fDur = HoursToSeconds(nCasterLvl); + int nMetaMagic = PRCGetMetaMagicFeat(); + if(nMetaMagic & METAMAGIC_EXTEND) + fDur *= 2; + int nDC = PRCGetSaveDC(oTarget, oPC); + + //only works on undead + if(MyPRCGetRacialType(oTarget) == RACIAL_TYPE_UNDEAD) + { + if(GetMaster(oTarget) == oPC//casting on own undead + || (!PRCDoResistSpell(oPC, oTarget, nPenetr)//Spell Resistance + && !PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_SPELL)))//Saving Throw + { + int nCounter = (FloatToInt(fDur))/3; + int nHP = GetCurrentHitPoints(oTarget); + + HiImABomb(oTarget, nCounter, nHP, nCasterLvl, nMetaMagic); + } + } + PRCSetSchool(); +} + +void HiImABomb(object oTarget, int nCounter, int nHP, int nCasterLvl, int nMetaMagic) +{ + if((nCounter < 1) || GetCurrentHitPoints(oTarget) < nHP) + { + //unused? + //effect eSplode = EffectDeath(TRUE, TRUE); + // eSplode = SupernaturalEffect(eSplode); + + location lLoc = GetLocation(oTarget); + int nDice = min((nCasterLvl/2), 20); + + SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_BLINDDEAF), oTarget); + + object oOuch = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_MEDIUM, lLoc, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + while(GetIsObjectValid(oOuch)) + { + int nDam = d6(nDice); + if(nMetaMagic & METAMAGIC_MAXIMIZE) + nDam = 6 * nDice; + if(nMetaMagic & METAMAGIC_EMPOWER) + nDam += (nDam/2); + + //Apply damage + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_MAGICAL), oOuch); + + //Get next victim + oOuch = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_MEDIUM, lLoc, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + } + } + nCounter--; + + DelayCommand(3.0f, HiImABomb(oTarget, nCounter, nHP, nCasterLvl, nMetaMagic)); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/sp_wallfrosta.ncs b/_haks/poa_exp_spells/sp_wallfrosta.ncs new file mode 100644 index 0000000..c6f1016 Binary files /dev/null and b/_haks/poa_exp_spells/sp_wallfrosta.ncs differ diff --git a/_haks/poa_exp_spells/sp_wallfrosta.nss b/_haks/poa_exp_spells/sp_wallfrosta.nss new file mode 100644 index 0000000..0c9f8d6 --- /dev/null +++ b/_haks/poa_exp_spells/sp_wallfrosta.nss @@ -0,0 +1,67 @@ +//:://///////////////////////////////////////////// +//:: Wall of Frost: On Enter +//:: SP_WallFrostA.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Person within the AoE take 4d6 cold damage + per round. +*/ +//::////////////////////////////////////////////// +#include "prc_inc_spells" +#include "prc_add_spell_dc" + + + +void main() +{ + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION); + + //Declare major variables + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDamage; + effect eDam; + object oTarget; + //Declare and assign personal impact visual effect. + effect eVis = EffectVisualEffect(VFX_IMP_FROST_S); + int nPenetr = SPGetPenetrAOE(GetAreaOfEffectCreator()); + int CasterLvl = PRCGetCasterLevel(GetAreaOfEffectCreator()); + + //Capture the first target object in the shape. + oTarget = GetEnteringObject(); + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, GetAreaOfEffectCreator())) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, GetSpellId())); + //Make SR check, and appropriate saving throw(s). + if(!PRCDoResistSpell(GetAreaOfEffectCreator(), oTarget,nPenetr)) + { + //Roll damage. + nDamage = d6(4+(CasterLvl/2)); + //Enter Metamagic conditions + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDamage = 6*(4+(CasterLvl/2));//Damage is at max + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDamage = nDamage + (nDamage/2); //Damage/Healing is +50% + } + //nDamage += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF, FALSE); + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, (PRCGetSaveDC(oTarget,GetAreaOfEffectCreator())), SAVING_THROW_TYPE_COLD); + if(nDamage > 0) + { + // Apply effects to the currently selected target. + eDam = PRCEffectDamage(oTarget, nDamage, ChangedElementalDamage(GetAreaOfEffectCreator(), DAMAGE_TYPE_COLD)); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + PRCBonusDamage(oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + } + } + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the integer used to hold the spells spell school +} diff --git a/_haks/poa_exp_spells/sp_wallfrostc.ncs b/_haks/poa_exp_spells/sp_wallfrostc.ncs new file mode 100644 index 0000000..54ac809 Binary files /dev/null and b/_haks/poa_exp_spells/sp_wallfrostc.ncs differ diff --git a/_haks/poa_exp_spells/sp_wallfrostc.nss b/_haks/poa_exp_spells/sp_wallfrostc.nss new file mode 100644 index 0000000..42d2a54 --- /dev/null +++ b/_haks/poa_exp_spells/sp_wallfrostc.nss @@ -0,0 +1,93 @@ +//:://///////////////////////////////////////////// +//:: Wall of Frost: Heartbeat +//:: SP_WallFrostC.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Person within the AoE take 4d6 cold damage + per round. +*/ +//::////////////////////////////////////////////// +#include "prc_inc_spells" +#include "prc_add_spell_dc" + + + +void main() +{ + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION); + + //Declare major variables + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDamage; + effect eDam; + object oTarget; + //Declare and assign personal impact visual effect. + effect eVis = EffectVisualEffect(VFX_IMP_FROST_S); + //Capture the first target object in the shape. + + //-------------------------------------------------------------------------- + // GZ 2003-Oct-15 + // When the caster is no longer there, all functions calling + // GetAreaOfEffectCreator will fail. Its better to remove the barrier then + //-------------------------------------------------------------------------- + if (!GetIsObjectValid(GetAreaOfEffectCreator())) + { + DestroyObject(OBJECT_SELF); + return; + } + + int CasterLvl = PRCGetCasterLevel(GetAreaOfEffectCreator()); + + int nPenetr = SPGetPenetrAOE(GetAreaOfEffectCreator(),CasterLvl); + int EleDmg = ChangedElementalDamage(GetAreaOfEffectCreator(), DAMAGE_TYPE_COLD); + + oTarget = GetFirstInPersistentObject(OBJECT_SELF,OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + //Declare the spell shape, size and the location. + while(GetIsObjectValid(oTarget)) + { + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, GetAreaOfEffectCreator())) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, GetSpellId())); + //Make SR check, and appropriate saving throw(s). + if(!PRCDoResistSpell(GetAreaOfEffectCreator(), oTarget,nPenetr)) + { + //Roll damage. + nDamage = d6(4+(CasterLvl/2)); + //Enter Metamagic conditions + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDamage = 6*(4+(CasterLvl/2));//Damage is at max + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDamage = nDamage + (nDamage/2); //Damage/Healing is +50% + } + + //nDamage += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF, FALSE); + + int nDC = PRCGetSaveDC(oTarget,GetAreaOfEffectCreator()); + + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, (nDC), SAVING_THROW_TYPE_COLD); + if(nDamage > 0) + { + // Apply effects to the currently selected target. + eDam = PRCEffectDamage(oTarget, nDamage, EleDmg); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + PRCBonusDamage(oTarget); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eVis, oTarget, 1.0,FALSE); + } + } + } + //Select the next target within the spell shape. + oTarget = GetNextInPersistentObject(OBJECT_SELF,OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + } + + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Getting rid of the integer used to hold the spells spell school +} diff --git a/_haks/poa_exp_spells/sp_wrtch_blght.ncs b/_haks/poa_exp_spells/sp_wrtch_blght.ncs new file mode 100644 index 0000000..c88c970 Binary files /dev/null and b/_haks/poa_exp_spells/sp_wrtch_blght.ncs differ diff --git a/_haks/poa_exp_spells/sp_wrtch_blght.nss b/_haks/poa_exp_spells/sp_wrtch_blght.nss new file mode 100644 index 0000000..7eb8888 --- /dev/null +++ b/_haks/poa_exp_spells/sp_wrtch_blght.nss @@ -0,0 +1,105 @@ +//:://///////////////////////////////////////////// +//:: Name Wretched Blight +//:: FileName sp_wrtch_blght.nss +//::////////////////////////////////////////////// +/**@file Wretched Blight +Evocation [Evil] +Level: Clr 7 +Components: V, S +Casting Time: 1 action +Range: Medium (100 ft. + 10 ft./level) +Area: 20-ft.-radius spread +Duration: Instantaneous +Saving Throw: Fortitude partial (see text) +Spell Resistance: Yes + +The caster calls up unholy power to smite his enemies. +The power takes the form of a soul chilling mass of +clawing darkness. Only good and neutral (not evil) +creatures are harmed by the spell. + +The spell deals 1d8 pts of damage per caster level +(maximum 15d8) to good creatures and renders them +stunned for 1d4 rounds. A successful Fortitude save +reduces damage to half and negates the stunning effect. + +The spell deals only half damage to creatures that +are neither evil nor good, and they are not stunned. +Such creatures can reduce the damage in half again +(down to one­quarter of the roll) with a successful +Reflex save. + +Author: Tenjac +Created: 5/9/06 +*/ +//::////////////////////////////////////////////// +//::////////////////////////////////////////////// + +#include "prc_inc_spells" +#include "prc_add_spell_dc" +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + object oPC = OBJECT_SELF; + location lLoc = PRCGetSpellTargetLocation(); + int nCasterLvl = PRCGetCasterLevel(oPC); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDice = min(nCasterLvl, 60); + int nAlign; + int nDam; + int nDC; + nCasterLvl += SPGetPenetr(); + effect eVis = EffectVisualEffect(VFX_DUR_DARKNESS); + effect eDam; + + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lLoc, FALSE, OBJECT_TYPE_CREATURE); + + //apply VFX + ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY, eVis, lLoc, 3.0f); + + while(GetIsObjectValid(oTarget)){ + nAlign = GetAlignmentGoodEvil(oTarget); + if(nAlign != ALIGNMENT_EVIL){ + //SR + if(!PRCDoResistSpell(oPC, oTarget, nCasterLvl)){ + nDam = d8(nDice); + + //Metmagic: Maximize + if(nMetaMagic & METAMAGIC_MAXIMIZE) + nDam = 8 * nDice; + + //Metmagic: Empower + if(nMetaMagic & METAMAGIC_EMPOWER) + nDam += (nDam/2); + + // 1/2 damage for neutral targets + if(nAlign == ALIGNMENT_NEUTRAL) + nDam = nDam/2; + + nDC = PRCGetSaveDC(oTarget, oPC); + + //Save for 1/2 dam + if(PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_EVIL)){ + //This script does nothing if it has Mettle, bail + if(GetHasMettle(oTarget, SAVING_THROW_FORT)) + continue; + nDam = nDam/2; + } + else if(nAlign == ALIGNMENT_GOOD){ + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectStunned(), oTarget, RoundsToSeconds(d4(1))); + } + + //Apply Damage + eDam = PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_MAGICAL); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + } + } + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lLoc, FALSE, OBJECT_TYPE_CREATURE); + } + //SPEvilShift(oPC); + + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/x0_s0_acidsplash.ncs b/_haks/poa_exp_spells/x0_s0_acidsplash.ncs new file mode 100644 index 0000000..17549d4 Binary files /dev/null and b/_haks/poa_exp_spells/x0_s0_acidsplash.ncs differ diff --git a/_haks/poa_exp_spells/x0_s0_acidsplash.nss b/_haks/poa_exp_spells/x0_s0_acidsplash.nss new file mode 100644 index 0000000..a1fab4b --- /dev/null +++ b/_haks/poa_exp_spells/x0_s0_acidsplash.nss @@ -0,0 +1,66 @@ + //:://///////////////////////////////////////////// +//:: Acid Splash +//:: [X0_S0_AcidSplash.nss] +//:: Copyright (c) 2002 Bioware Corp. +//::////////////////////////////////////////////// +/* +Acid Splash +Conjuration (Creation) [Acid] +Level: Sor/Wiz 0 +Components: V, S +Casting Time: 1 standard action +Range: Close (25 ft. + 5 ft./2 levels) +Effect: One missile of acid +Duration: Instantaneous +Saving Throw: None +Spell Resistance: No + +You fire a small orb of acid at the target. You +must succeed on a ranged touch attack to hit your +target. The orb deals 1d3 points of acid damage. + +*/ +//::////////////////////////////////////////////// +//:: Created By: Brent +//:: Created On: July 17 2002 +//::////////////////////////////////////////////// +//:: altered by mr_bumpkin Dec 4, 2003 for prc stuff + +#include "prc_inc_sp_tch" + +void main() +{ + if (!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_CONJURATION); + + //Declare major variables + object oCaster = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nMetaMagic = PRCGetMetaMagicFeat(); + int EleDmg = ChangedElementalDamage(oCaster, DAMAGE_TYPE_ACID); + effect eVis = EffectVisualEffect(VFX_IMP_ACID_S); +int nCasterLevel = PRCGetCasterLevel(oCaster); + if(!GetIsReactionTypeFriendly(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oCaster, SPELL_ACID_SPLASH)); + + int iAttackRoll = PRCDoRangedTouchAttack(oTarget); + if(iAttackRoll > 0) + { + int nDamage = PRCMaximizeOrEmpower(3, nCasterLevel, nMetaMagic); //alterei o 1 por caster lvl do char + // Acid Sheath adds +1 damage per die to acid descriptor spells + if (GetHasDescriptor(SPELL_ACID_SPLASH, DESCRIPTOR_ACID) && GetHasSpellEffect(SPELL_MESTILS_ACID_SHEATH, oCaster)) + nDamage += 1; + + //Apply the VFX impact and damage effect + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + + // perform attack roll for ray and deal proper damage + ApplyTouchAttackDamage(oCaster, oTarget, iAttackRoll, nDamage, EleDmg); + PRCBonusDamage(oTarget); + } + } + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/x0_s0_bigby2.ncs b/_haks/poa_exp_spells/x0_s0_bigby2.ncs new file mode 100644 index 0000000..c608061 Binary files /dev/null and b/_haks/poa_exp_spells/x0_s0_bigby2.ncs differ diff --git a/_haks/poa_exp_spells/x0_s0_bigby2.nss b/_haks/poa_exp_spells/x0_s0_bigby2.nss new file mode 100644 index 0000000..470d1e9 --- /dev/null +++ b/_haks/poa_exp_spells/x0_s0_bigby2.nss @@ -0,0 +1,94 @@ +//:://///////////////////////////////////////////// +//:: Bigby's Forceful Hand +//:: [x0_s0_bigby2] +//:: Copyright (c) 2002 Bioware Corp. +//::////////////////////////////////////////////// +/* + dazed vs strength check (+14 on strength check); Target knocked down. + Target dazed down for 1 round per level of caster + +*/ +//::////////////////////////////////////////////// +//:: Created By: Brent +//:: Created On: September 7, 2002 +//::////////////////////////////////////////////// +//:: Last Updated By: Andrew Nobbs May 01, 2003 + +//:: altered by mr_bumpkin Dec 4, 2003 for prc stuff + +#include "prc_inc_spells" +#include "prc_inc_combmove" +#include "prc_add_spell_dc" + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION); +/* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + + //Declare major variables + object oTarget = PRCGetSpellTargetObject(); + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + int nDuration = CasterLvl; + int nMetaMagic = PRCGetMetaMagicFeat(); + //Check for metamagic extend + if (CheckMetaMagic(nMetaMagic, METAMAGIC_EXTEND)) //Duration is +100% + { + nDuration = nDuration * 2; + } + if(!GetIsReactionTypeFriendly(oTarget)) + { + // Apply the impact effect + effect eImpact = EffectVisualEffect(VFX_IMP_BIGBYS_FORCEFUL_HAND); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eImpact, oTarget); + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, 460, TRUE)); + if(!PRCDoResistSpell(OBJECT_SELF, oTarget,CasterLvl+ SPGetPenetr())) + { + + int nCasterRoll = d20()+ (CasterLvl/2) + 14; + int nTargetRoll = d20(1) + GetAbilityModifier(ABILITY_STRENGTH, oTarget) + PRCGetSizeModifier(oTarget); + // * bullrush succesful, knockdown target for duration of spell + if (nCasterRoll >= nTargetRoll) + { + effect eVis = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_DISABLED); + effect eKnockdown = EffectDazed(); + effect eKnockdown2 = EffectKnockdown(); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + //Link effects + effect eLink = EffectLinkEffects(eKnockdown, eDur); + eLink = EffectLinkEffects(eLink, eKnockdown2); + //Apply the penalty + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration),TRUE,-1,CasterLvl); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eVis, oTarget, RoundsToSeconds(nDuration),FALSE); + // * Bull Rush succesful + FloatingTextStrRefOnCreature(8966,OBJECT_SELF, FALSE); + } + else + { + FloatingTextStrRefOnCreature(8967,OBJECT_SELF, FALSE); + } + } + } + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Erasing the variable used to store the spell's spell school +} + + diff --git a/_haks/poa_exp_spells/x0_s0_bigby4.ncs b/_haks/poa_exp_spells/x0_s0_bigby4.ncs new file mode 100644 index 0000000..029c345 Binary files /dev/null and b/_haks/poa_exp_spells/x0_s0_bigby4.ncs differ diff --git a/_haks/poa_exp_spells/x0_s0_bigby4.nss b/_haks/poa_exp_spells/x0_s0_bigby4.nss new file mode 100644 index 0000000..134361e --- /dev/null +++ b/_haks/poa_exp_spells/x0_s0_bigby4.nss @@ -0,0 +1,143 @@ +//:://///////////////////////////////////////////// +//:: Bigby's Clenched Fist +//:: [x0_s0_bigby4] +//:: Copyright (c) 2002 Bioware Corp. +//::////////////////////////////////////////////// +/* + Does an attack EACH ROUND for 1 round/level. + If the attack hits does + 1d8 +12 points of damage + + Any creature struck must make a FORT save or + be stunned for one round. + + GZ, Oct 15 2003: + Changed how this spell works by adding duration + tracking based on the VFX added to the character. + Makes the spell dispellable and solves some other + issues with wrong spell DCs, checks, etc. + +*/ +//::////////////////////////////////////////////// +//:: Created By: Brent +//:: Created On: September 7, 2002 +//::////////////////////////////////////////////// +//:: Last Updated By: Georg Zoeller October 15, 2003 + +//:: altered by mr_bumpkin Dec 4, 2003 for prc stuff +#include "prc_inc_spells" + + +#include "prc_add_spell_dc" + + + +int nSpellID = 462; + +void RunHandImpact(object oTarget, object oCaster,int CasterLvl, int nAbilityModifier ) +{ + //-------------------------------------------------------------------------- + // Check if the spell has expired (check also removes effects) + //-------------------------------------------------------------------------- + if (PRCGetDelayedSpellEffectsExpired(nSpellID,oTarget,oCaster)) + { + return; + } + + int nCasterModifiers = nAbilityModifier + + PRCGetCasterLevel(oCaster); + int nCasterRoll = d20(1) + nCasterModifiers + 11 + -1; + int nTargetRoll = GetAC(oTarget); + if (nCasterRoll >= nTargetRoll) + { + int nDC = GetLocalInt(oTarget,"XP2_L_SPELL_SAVE_DC_" + IntToString (nSpellID)); + + int nDam = PRCMaximizeOrEmpower(8, 1, PRCGetMetaMagicFeat(), 11+CasterLvl); + //nDam += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF); + effect eDam = PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_BLUDGEONING); + effect eVis = EffectVisualEffect(VFX_IMP_ACID_L); + + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + PRCBonusDamage(oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + + if (!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC)) + { + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectStunned(), oTarget, RoundsToSeconds(1),TRUE,-1,CasterLvl); + } + + DelayCommand(6.0f,RunHandImpact(oTarget,oCaster,CasterLvl,nAbilityModifier)); + + } +} + + + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION); + /* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + */ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + // End of Spell Cast Hook + + object oTarget = PRCGetSpellTargetObject(); + int nClassType = PRCGetLastSpellCastClass(); + int nAbilityModifier = (GetAbilityScoreForClass(nClassType, OBJECT_SELF) -10)/2; + + //-------------------------------------------------------------------------- + // This spell no longer stacks. If there is one hand, that's enough + //-------------------------------------------------------------------------- + if (GetHasSpellEffect(nSpellID,oTarget) || GetHasSpellEffect(463,oTarget) ) + { + FloatingTextStrRefOnCreature(100775,OBJECT_SELF,FALSE); + return; + } + + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + int nDuration = CasterLvl; + + int nMetaMagic = PRCGetMetaMagicFeat(); + if ((nMetaMagic & METAMAGIC_EXTEND)) + { + nDuration = nDuration * 2; + } + + if(!GetIsReactionTypeFriendly(oTarget)) + { + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, nSpellID, TRUE)); + int nResult = PRCDoResistSpell(OBJECT_SELF, oTarget,CasterLvl +SPGetPenetr()); + + if(nResult == 0) + { + effect eHand = EffectVisualEffect(VFX_DUR_BIGBYS_CLENCHED_FIST); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eHand, oTarget, RoundsToSeconds(nDuration),FALSE); + + //---------------------------------------------------------- + // GZ: 2003-Oct-15 + // Save the current save DC on the character because + // PRCGetSaveDC won't work when delayed + //---------------------------------------------------------- + SetLocalInt(oTarget,"XP2_L_SPELL_SAVE_DC_" + IntToString (nSpellID), PRCGetSaveDC(oTarget, OBJECT_SELF)); + object oSelf = OBJECT_SELF; + RunHandImpact(oTarget,OBJECT_SELF,CasterLvl, nAbilityModifier); + + } + } + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Erasing the variable used to store the spell's spell school + +} + diff --git a/_haks/poa_exp_spells/x0_s0_bigby5.ncs b/_haks/poa_exp_spells/x0_s0_bigby5.ncs new file mode 100644 index 0000000..5e93c59 Binary files /dev/null and b/_haks/poa_exp_spells/x0_s0_bigby5.ncs differ diff --git a/_haks/poa_exp_spells/x0_s0_bigby5.nss b/_haks/poa_exp_spells/x0_s0_bigby5.nss new file mode 100644 index 0000000..c19c447 --- /dev/null +++ b/_haks/poa_exp_spells/x0_s0_bigby5.nss @@ -0,0 +1,170 @@ +//:://///////////////////////////////////////////// +//:: Bigby's Crushing Hand +//:: [x0_s0_bigby5] +//:: Copyright (c) 2002 Bioware Corp. +//::////////////////////////////////////////////// +/* + Similar to Bigby's Grasping Hand. + If Grapple succesful then will hold the opponent and do 2d6 + 12 points + of damage EACH round for 1 round/level + + + // Mark B's famous advice: + // Note: if the target is dead during one of these second-long heartbeats, + // the DelayCommand doesn't get run again, and the whole package goes away. + // Do NOT attempt to put more than two parameters on the delay command. They + // may all end up on the stack, and that's all bad. 60 x 2 = 120. + +*/ + +// +// Altered to calculate grapple check correctly per pnp rules. +// + +//::////////////////////////////////////////////// +//:: Created By: Brent +//:: Created On: September 7, 2002 +//::////////////////////////////////////////////// +//:: VFX Pass By: + +//:: altered by mr_bumpkin Dec 4, 2003 for prc stuff +#include "prc_inc_combmove" + +int nSpellID = 463; +void RunHandImpact(object oTarget, object oCaster) +{ + + //-------------------------------------------------------------------------- + // Check if the spell has expired (check also removes effects) + //-------------------------------------------------------------------------- + if (PRCGetDelayedSpellEffectsExpired(nSpellID,oTarget,oCaster)) + { + return; + } +int CasterLvl = PRCGetCasterLevel(oCaster); + int nDam = PRCMaximizeOrEmpower(6,2,PRCGetMetaMagicFeat(), 12+CasterLvl); + //nDam += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF); + effect eDam = PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_BLUDGEONING); + effect eVis = EffectVisualEffect(VFX_IMP_ACID_L); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + PRCBonusDamage(oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + DelayCommand(6.0f,RunHandImpact(oTarget,oCaster)); +} + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION); + + /* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + */ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + // End of Spell Cast Hook + + object oTarget = PRCGetSpellTargetObject(); + + //-------------------------------------------------------------------------- + // This spell no longer stacks. If there is one hand, that's enough + //-------------------------------------------------------------------------- + if (GetHasSpellEffect(nSpellID,oTarget) || GetHasSpellEffect(462,oTarget) ) + { + FloatingTextStrRefOnCreature(100775,OBJECT_SELF,FALSE); + return; + } + + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + int nDuration = CasterLvl; + int nClassType = PRCGetLastSpellCastClass(); + int nAbilityModifier = (GetAbilityScoreForClass(nClassType, OBJECT_SELF) -10)/2; + + int nMetaMagic = PRCGetMetaMagicFeat(); + + //Check for metamagic extend + if ((nMetaMagic & METAMAGIC_EXTEND)) //Duration is +100% + { + nDuration = nDuration * 2; + } + + if(!GetIsReactionTypeFriendly(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_BIGBYS_CRUSHING_HAND, TRUE)); + + //SR + if(!PRCDoResistSpell(OBJECT_SELF, oTarget,CasterLvl+ SPGetPenetr())) + { + int nCasterRoll = d20(1) + + nAbilityModifier + + CasterLvl + 12 + -1; + int nTargetRoll = GetAC(oTarget); + + // Give the caster feedback about the grapple check if he is a PC. + if (GetIsPC(OBJECT_SELF)) + { + SendMessageToPC(OBJECT_SELF, nCasterRoll >= nTargetRoll ? + "Bigby's Crushing Hand hit" : "Bigby's Grasping Hand missed"); + } + + // * grapple HIT succesful, + if (nCasterRoll >= nTargetRoll) + { + // * now must make a GRAPPLE check + // * hold target for duration of spell + + nCasterRoll = d20(1) + nAbilityModifier + +CasterLvl + 12 + 4; + + int nGrapple = _DoGrappleCheck(OBJECT_INVALID, oTarget, nCasterRoll); + + // Give the caster feedback about the grapple check if he is a PC. + if (GetIsPC(OBJECT_SELF)) + { + string suffix = nCasterRoll >= nTargetRoll ? ", success" : ", failure"; + SendMessageToPC(OBJECT_SELF, "Grapple check " + IntToString(nCasterRoll) + + " vs. " + IntToString(nTargetRoll) + suffix); + } + + if (nGrapple) + { + effect eKnockdown = EffectParalyze(); + + // creatures immune to paralzation are still prevented from moving + if (GetIsImmune(oTarget, EFFECT_TYPE_PARALYZE) == FALSE) + eKnockdown = EffectCutsceneImmobilize(); + + effect eHand = EffectVisualEffect(VFX_DUR_BIGBYS_CRUSHING_HAND); + effect eLink = EffectLinkEffects(eKnockdown, eHand); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, + eLink, oTarget, + RoundsToSeconds(nDuration),TRUE,-1,CasterLvl); + + object oSelf = OBJECT_SELF; + RunHandImpact(oTarget, oSelf); + FloatingTextStrRefOnCreature(2478, OBJECT_SELF); + + } + else + { + FloatingTextStrRefOnCreature(83309, OBJECT_SELF); + } + } + } + } + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Erasing the variable used to store the spell's spell school + +} + + diff --git a/_haks/poa_exp_spells/x0_s0_bombard.ncs b/_haks/poa_exp_spells/x0_s0_bombard.ncs new file mode 100644 index 0000000..bd30fd5 Binary files /dev/null and b/_haks/poa_exp_spells/x0_s0_bombard.ncs differ diff --git a/_haks/poa_exp_spells/x0_s0_bombard.nss b/_haks/poa_exp_spells/x0_s0_bombard.nss new file mode 100644 index 0000000..6523882 --- /dev/null +++ b/_haks/poa_exp_spells/x0_s0_bombard.nss @@ -0,0 +1,119 @@ +//:://///////////////////////////////////////////// +//:: Bombardment +//:: X0_S0_Bombard +//:: Copyright (c) 2002 Bioware Corp. +//::////////////////////////////////////////////// +/* +// Rocks fall from sky +// 1d8 damage/level to a max of 10d8 +// Reflex save for half +*/ +//::////////////////////////////////////////////// +//:: Created By: Brent +//:: Created On: July 22 2002 +//::////////////////////////////////////////////// +//:: Last Updated By: Andrew Nobbs May 01, 2003 + +//:: altered by mr_bumpkin Dec 4, 2003 for prc stuff +#include "prc_inc_spells" + + +#include "prc_add_spell_dc" + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_CONJURATION); +/* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + + //Declare major variables + object oCaster = OBJECT_SELF; + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + + int nCasterLvl = CasterLvl; + CasterLvl +=SPGetPenetr(); + + + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDamage; + float fDelay; + effect eExplode = EffectVisualEffect(VFX_FNF_METEOR_SWARM); + effect eVis = EffectVisualEffect(VFX_IMP_FLAME_M); + effect eDam; + //Get the spell target location as opposed to the spell target. + location lTarget = PRCGetSpellTargetLocation(); + //Limit Caster level for the purposes of damage + if (nCasterLvl > 60) + { + nCasterLvl = 60; + } + + //Apply the fireball explosion at the location captured above. + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eExplode, lTarget); + //Declare the spell shape, size and the location. Capture the first target object in the shape. + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + //Cycle through the targets within the spell shape until an invalid object is captured. + while (GetIsObjectValid(oTarget)) + { + if(spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF) == TRUE) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, GetSpellId())); + //Get the distance between the explosion and the target to calculate delay + fDelay = GetDistanceBetweenLocations(lTarget, GetLocation(oTarget))/20; + if (!PRCDoResistSpell(OBJECT_SELF, oTarget,CasterLvl, fDelay)) + { + int nSpellDC = (PRCGetSaveDC(oTarget,OBJECT_SELF)) ; + //Roll damage for each target + nDamage = d8(nCasterLvl); + //Resolve metamagic + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDamage = 8 * nCasterLvl; + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDamage = nDamage + nDamage / 2; + } + //nDamage += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF, FALSE); + //Adjust the damage based on the Reflex Save, Evasion and Improved Evasion. + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nSpellDC, SAVING_THROW_TYPE_ALL); + //Set the damage effect + eDam = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_BLUDGEONING); + if(nDamage > 0) + { + + // Apply effects to the currently selected target. + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget)); + //This visual effect is applied to the target object not the location as above. This visual effect + //represents the flame that erupts on the target not on the ground. + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + } + } + } + //Select the next target within the spell shape. + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + } + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Erasing the variable used to store the spell's spell school +} + + + diff --git a/_haks/poa_exp_spells/x0_s0_divfav.ncs b/_haks/poa_exp_spells/x0_s0_divfav.ncs new file mode 100644 index 0000000..bd52020 Binary files /dev/null and b/_haks/poa_exp_spells/x0_s0_divfav.ncs differ diff --git a/_haks/poa_exp_spells/x0_s0_divfav.nss b/_haks/poa_exp_spells/x0_s0_divfav.nss new file mode 100644 index 0000000..49291fa --- /dev/null +++ b/_haks/poa_exp_spells/x0_s0_divfav.nss @@ -0,0 +1,70 @@ +//:://///////////////////////////////////////////// +//:: Divine Favor +//:: x0_s0_divfav.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* +Evocation +Level: Clr 1, Pal 1 +Components: V, S, DF +Casting Time: 1 standard action +Range: Personal +Target: You +Duration: 1 minute + +Calling upon the strength and wisdom of a deity, +you gain a +1 luck bonus on attack and weapon +damage rolls for every three caster levels you +have (at least +1, maximum +5). The bonus doesn’t +apply to spell damage. + +NOTE: Official rules say +6, we can only go to +5 + Duration: 1 turn +*/ +//::////////////////////////////////////////////// +//:: Created By: Brent Knowles +//:: Created On: July 15, 2002 +//::////////////////////////////////////////////// +//:: VFX Pass By: +//:: altered by mr_bumpkin Dec 4, 2003 for prc stuff +//:: Updated by Strat to fix bug + +#include "prc_inc_spells" + +void main() +{ + if (!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + //Declare major variables + object oCaster = OBJECT_SELF; + int CasterLvl = PRCGetCasterLevel(oCaster); + int nMetaMagic = PRCGetMetaMagicFeat(); + float fDuration = TurnsToSeconds(1); // * Duration 1 turn + if(nMetaMagic & METAMAGIC_EXTEND) + fDuration *= 2; + int nScale = min(20, max(1, CasterLvl / 3)); + + effect eVis = EffectVisualEffect(VFX_IMP_HEAD_HOLY); + + // * determine the damage bonus to apply + effect eAttack = EffectAttackIncrease(nScale); + effect eDamage = EffectDamageIncrease(nScale, DAMAGE_TYPE_MAGICAL); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE); + effect eLink = EffectLinkEffects(eAttack, eDamage); + eLink = EffectLinkEffects(eLink, eDur); + + //Apply Impact + effect eImpact = EffectVisualEffect(VFX_FNF_LOS_HOLY_30); + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eImpact, PRCGetSpellTargetLocation()); + + //Fire spell cast at event for target + SignalEvent(oCaster, EventSpellCastAt(oCaster, SPELL_DIVINE_FAVOR, FALSE)); + + //Apply VFX impact and bonus effects + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oCaster); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oCaster, fDuration, TRUE, SPELL_DIVINE_FAVOR, CasterLvl); + + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/x0_s0_earthquake.ncs b/_haks/poa_exp_spells/x0_s0_earthquake.ncs new file mode 100644 index 0000000..556060c Binary files /dev/null and b/_haks/poa_exp_spells/x0_s0_earthquake.ncs differ diff --git a/_haks/poa_exp_spells/x0_s0_earthquake.nss b/_haks/poa_exp_spells/x0_s0_earthquake.nss new file mode 100644 index 0000000..9bc6889 --- /dev/null +++ b/_haks/poa_exp_spells/x0_s0_earthquake.nss @@ -0,0 +1,138 @@ +//:://///////////////////////////////////////////// +//:: Earthquake +//:: X0_S0_Earthquake +//:: Copyright (c) 2002 Bioware Corp. +//::////////////////////////////////////////////// +/* +// Ground shakes. 1d6 damage, max 10d6 +// LOCKINDAL: Changed to alternate: DC 15 or knock down, 25% creatures must make DC 20 or die. +*/ +//::////////////////////////////////////////////// +//:: Created By: Brent +//:: Created On: July 22 2002 +//::////////////////////////////////////////////// +//:: Last Updated By: Andrew Nobbs May 01, 2003 +//:: Altered By: Lockindal + +//:: altered by mr_bumpkin Dec 4, 2003 for prc stuff +#include "prc_inc_spells" + +#include "prc_alterations" +#include "prc_add_spell_dc" + +void DoQuake(object oCaster, int nCasterLvl, location lTarget) +{ + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + //Declare major variables + int nSpectacularDeath = TRUE; + int nDisplayFeedback = TRUE; + int bInside = GetIsAreaInterior(GetArea(oCaster)); + int nProneDC = 15 + (nCasterLvl/2); + int nDamageDC = 15 + (nCasterLvl/2); + int nFissureDC = 20 + (nCasterLvl/2); + int nDamage; + float fDelay; + float fSize = FeetToMeters(80.0f); + float fProneDur = 18.0; + effect eExplode = EffectVisualEffect(VFX_COM_CHUNK_STONE_MEDIUM); + effect eExplode2 = EffectVisualEffect(VFX_FNF_GAS_EXPLOSION_NATURE); + effect eExplode3 = EffectVisualEffect(VFX_IMP_DUST_EXPLOSION); + effect eVis = EffectVisualEffect(VFX_IMP_HEAD_NATURE); + effect eShake = EffectVisualEffect(VFX_FNF_SCREEN_SHAKE2); + effect eKnockdown = EffectKnockdown(); + + // Perform screen shake + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eShake, oCaster); + + //Apply epicenter explosion on caster + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eExplode, GetLocation(oCaster)); + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eExplode2, GetLocation(oCaster)); + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eExplode3, GetLocation(oCaster)); + + + //Declare the spell shape, size and the location. Capture the first target object in the shape. + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, fSize, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + //Cycle through the targets within the spell shape until an invalid object is captured. + while(GetIsObjectValid(oTarget)) + { + // Normal targeting restriction, except also skip affecting the caster + if(oTarget != oCaster && spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, oCaster)) + { + // Let the target's AI know + SignalEvent(oTarget, EventSpellCastAt(oCaster, SPELL_EARTHQUAKE)); + + // First, always knock targets prone, DC 15 to avoid + if(!PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, nProneDC, SAVING_THROW_TYPE_SPELL, oCaster)) + { + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eKnockdown, oTarget, fProneDur, FALSE, SPELL_EARTHQUAKE, nCasterLvl, oCaster); + } + + // Indoors, get hit by falling rubble for 8d6, reflex half + if(bInside) + { + nDamage = PRCGetReflexAdjustedDamage(d6(nCasterLvl), oTarget, nDamageDC, SAVING_THROW_TYPE_SPELL, oCaster); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_BLUDGEONING, DAMAGE_POWER_ENERGY), + oTarget, 0.0f, FALSE, SPELL_EARTHQUAKE, nCasterLvl, oCaster); + } + // Outdoors, 25% chance to fall into a fissure and die + else + { + if(d4() == 4) + { + if(!PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, nFissureDC, SAVING_THROW_TYPE_SPELL, oCaster)) + { + DeathlessFrenzyCheck(oTarget); + /// @todo Find appropriate VFX to play here + SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectDeath(nSpectacularDeath, nDisplayFeedback), + oTarget, 0.0f, FALSE, SPELL_EARTHQUAKE, nCasterLvl, oCaster); + } + } + } + } + + //Select the next target within the spell shape. + oTarget = MyNextObjectInShape(SHAPE_SPHERE, fSize, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + } + + PRCSetSchool(); +} + + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION); +/* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + + //Declare major variables + object oCaster = OBJECT_SELF; + location lTarget = PRCGetSpellTargetLocation(); + int nCasterLvl = PRCGetCasterLevel(oCaster); + int nMetaMagic = PRCGetMetaMagicFeat(); + + // Perform the earthquake + DoQuake(oCaster, nCasterLvl, lTarget); + + // Extended earthquake - apply the effects again next round + if(nMetaMagic & METAMAGIC_EXTEND) + DelayCommand(6.0f, DoQuake(oCaster, nCasterLvl, lTarget)); + +// Erasing the variable used to store the spell's spell school +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/x0_s0_elecjolt.ncs b/_haks/poa_exp_spells/x0_s0_elecjolt.ncs new file mode 100644 index 0000000..f99690d Binary files /dev/null and b/_haks/poa_exp_spells/x0_s0_elecjolt.ncs differ diff --git a/_haks/poa_exp_spells/x0_s0_elecjolt.nss b/_haks/poa_exp_spells/x0_s0_elecjolt.nss new file mode 100644 index 0000000..14ba4ba --- /dev/null +++ b/_haks/poa_exp_spells/x0_s0_elecjolt.nss @@ -0,0 +1,93 @@ +//:://///////////////////////////////////////////// +//:: Electric Jolt +//:: [x0_s0_ElecJolt.nss] +//:: Copyright (c) 2002 Bioware Corp. +//::////////////////////////////////////////////// +/* +Evocation [Electricity] +Level: Sorcerer/wizard 0 +Components: V, S +Casting Time: 1 standard action +Range: Close (25 ft. + 5 ft./2 levels) +Effect: Ray +Duration: Instantaneous +Saving Throw: None +Spell Resistance: Yes + +You release a small stroke of electrical energy. +You must succeed on a ranged touch attack with the +ray to strike a target. The spell deals 1d3 points +of electricity damage. + +*/ +//::////////////////////////////////////////////// +//:: Created By: Brent +//:: Created On: July 17 2002 +//::////////////////////////////////////////////// +//:: altered by mr_bumpkin Dec 4, 2003 for prc stuff + +#include "prc_sp_func" +#include "prc_inc_sp_tch" + +int DoSpell(object oCaster, object oTarget, int nCasterLevel) +{ + //Declare major variables + int nPenetr = nCasterLevel + SPGetPenetr(); + int nMetaMagic = PRCGetMetaMagicFeat(); + int EleDmg = ChangedElementalDamage(oCaster, DAMAGE_TYPE_ELECTRICAL); + int iAttackRoll = 0; + effect eVis = EffectVisualEffect(VFX_IMP_LIGHTNING_S); + + if(!GetIsReactionTypeFriendly(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oCaster, SPELL_ELECTRIC_JOLT)); + + iAttackRoll = PRCDoRangedTouchAttack(oTarget); + if(iAttackRoll > 0) + { + //Make SR Check + if(!PRCDoResistSpell(oCaster, oTarget, nPenetr)) + { + int nDamage = PRCMaximizeOrEmpower(nPenetr, 1, nMetaMagic); //alterei o 3 por caster lvl+spell penetration + + //Apply the VFX impact and damage effect + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + + // perform attack roll for ray and deal proper damage + ApplyTouchAttackDamage(oCaster, oTarget, iAttackRoll, nDamage, EleDmg); + PRCBonusDamage(oTarget); + } + } + } + return iAttackRoll; //return TRUE if spell charges should be decremented +} + +void main() +{ + if (!X2PreSpellCastCode()) return; + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + object oCaster = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nCasterLevel = PRCGetCasterLevel(oCaster); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if (GetLocalInt(oCaster, PRC_SPELL_HOLD) && GetHasFeat(FEAT_EF_HOLD_RAY, oCaster) && oCaster == oTarget) + { //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + if(oCaster != oTarget) //cant target self with this spell, only when holding charge + DoSpell(oCaster, oTarget, nCasterLevel); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); +} diff --git a/_haks/poa_exp_spells/x0_s0_ether.ncs b/_haks/poa_exp_spells/x0_s0_ether.ncs new file mode 100644 index 0000000..9b73789 Binary files /dev/null and b/_haks/poa_exp_spells/x0_s0_ether.ncs differ diff --git a/_haks/poa_exp_spells/x0_s0_ether.nss b/_haks/poa_exp_spells/x0_s0_ether.nss new file mode 100644 index 0000000..e002e1a --- /dev/null +++ b/_haks/poa_exp_spells/x0_s0_ether.nss @@ -0,0 +1,113 @@ +//:://///////////////////////////////////////////// +//:: Etherealness +//:: x0_s0_ether.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Like sanctuary except almost always guaranteed + to work. + Lasts one turn per level. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Jan 7, 2002 +//::////////////////////////////////////////////// + +//:: altered by mr_bumpkin Dec 4, 2003 for prc stuff +#include "prc_inc_spells" +#include "prc_add_spell_dc" +#include "prc_inc_teleport" + + + +void main() +{ + + +//Spell Time Lock duration (in seconds, use float values) +float iLockTimer = 240.0; +//Defining time variables +float f120togo = ( 120 - iLockTimer ) * -1; +float f60togo = ( 60 - iLockTimer ) * -1; +float f10togo = ( 10 - iLockTimer ) * -1; + +//Checking spell's caster +object oTarget = PRCGetSpellTargetObject(); +//Checking if he used GS recently +int iTimer = GetLocalInt(oTarget, "GSTimer"); + + + + if (iTimer == 0) //teste + { + SetLocalInt(oTarget, "GSTimer", 1); + //Change: Checking target's area + object oArea = GetArea(oTarget); + + + + DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); + SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_TRANSMUTATION); +/* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + + //Declare major variables + object oTarget = PRCGetSpellTargetObject(); + effect eVis = EffectVisualEffect(VFX_DUR_SANCTUARY); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE); + effect eSanc = EffectEthereal(); + + effect eLink = EffectLinkEffects(eVis, eSanc); + eLink = EffectLinkEffects(eLink, eDur); + + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + int nDuration = CasterLvl/10; //nerfei a duracao aqui + //Enter Metamagic conditions + int nMetaMagic = PRCGetMetaMagicFeat(); + if (CheckMetaMagic(nMetaMagic, METAMAGIC_EXTEND)) + { + nDuration = nDuration *2; //Duration is +100% + } + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_ETHEREALNESS, FALSE)); + + // Make a check to see nothing is preventing extra-dimensional movement + if(GetCanTeleport(oTarget, GetLocation(oTarget), FALSE, TRUE)) + { + //Apply the VFX impact and effects + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, TurnsToSeconds(nDuration),TRUE,-1,CasterLvl/10); //casterlvl/10 aqui antes era so casterlvl + } + + DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); + // Erasing the variable used to store the spell's spell school + + SendMessageToAllDMs("Player "+ObjectToString(oTarget)+" has just cast Greater Sanctuary. He is currently in "+ObjectToString(oArea)+"."); + SendMessageToPC(oTarget, "Greater Sanctuary has a timer of "+FloatToString(iLockTimer, 3, 1)+" seconds. You may not use GS again for this period of time. Attempting to do so will spend the spell while producing no effect."); + DelayCommand(f120togo, SendMessageToPC(oTarget, "You have two minutes left on your Greater Sanctuary Lock Timer.")); + DelayCommand(f60togo, SendMessageToPC(oTarget, "You have one minute left on your Greater Sanctuary Lock Timer.")); + DelayCommand(f10togo, SendMessageToPC(oTarget, "You have 10 seconds left on your Greater Sanctuary Lock Timer.")); + DelayCommand(iLockTimer, SendMessageToPC(oTarget, "Greater Sanctuary is once again available for use.")); + DelayCommand(iLockTimer, SetLocalInt(oTarget, "GSTimer", 0)); + } + else + { + SendMessageToPC(oTarget, "You have used Greater Sanctuary too recently, the effect has been cancelled"); + } +} + + + diff --git a/_haks/poa_exp_spells/x0_s0_firebrand.ncs b/_haks/poa_exp_spells/x0_s0_firebrand.ncs new file mode 100644 index 0000000..734cd4e Binary files /dev/null and b/_haks/poa_exp_spells/x0_s0_firebrand.ncs differ diff --git a/_haks/poa_exp_spells/x0_s0_firebrand.nss b/_haks/poa_exp_spells/x0_s0_firebrand.nss new file mode 100644 index 0000000..19f2ebe --- /dev/null +++ b/_haks/poa_exp_spells/x0_s0_firebrand.nss @@ -0,0 +1,226 @@ +//:://///////////////////////////////////////////// +//:: Firebrand +//:: x0_x0_Firebrand +//:: Copyright (c) 2002 Bioware Corp. +//::////////////////////////////////////////////// +/* +// * Fires a flame arrow to every target in a +// * colossal area +// * Each target explodes into a small fireball for +// * 1d6 damage / level (max = 15 levels) +// * Only nLevel targets can be affected +*/ +//::////////////////////////////////////////////// +//:: Created By: Brent +//:: Created On: July 29 2002 +//::////////////////////////////////////////////// +//:: Last Updated By: + +// +// Altered to give targets reflex saves per pnp. +// + +//:: altered by mr_bumpkin Dec 4, 2003 for prc stuff +#include "prc_inc_spells" + + +#include "prc_add_spell_dc" + +void DoFirebrand(int CasterLvl,int nD6Dice, int nCap, int nSpell, + int nMIRV = VFX_IMP_MIRV, int nVIS = VFX_IMP_MAGBLUE, + int nDAMAGETYPE = DAMAGE_TYPE_MAGICAL, int nONEHIT = FALSE); + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION); +/* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + + int nDamage = CasterLvl/2; + if (nDamage > 40) + nDamage = 40; + + + + // Changed to local function to add reflex save. + DoFirebrand(CasterLvl,nDamage, nDamage/2, SPELL_FIREBRAND, VFX_IMP_MIRV_FLAME, VFX_IMP_FLAME_M, ChangedElementalDamage(OBJECT_SELF, DAMAGE_TYPE_FIRE), FALSE); + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Erasing the variable used to store the spell's spell school + +} + + + +//::////////////////////////////////////////////// +//:: Created By: Brent +//:: Created On: July 31, 2002 +//::////////////////////////////////////////////// +//:: Modified March 14 2003: Removed the option to hurt chests/doors +//:: was potentially causing bugs when no creature targets available. +//::////////////////////////////////////////////// +//:: Created By: Brent +//:: Created On: July 31, 2002 +//::////////////////////////////////////////////// +//:: Modified March 14 2003: Removed the option to hurt chests/doors +//:: was potentially causing bugs when no creature targets available. +void DoFirebrand(int CasterLvl,int nD6Dice, int nCap, int nSpell, int nMIRV = VFX_IMP_MIRV, int nVIS = VFX_IMP_MAGBLUE, int nDAMAGETYPE = DAMAGE_TYPE_MAGICAL, int nONEHIT = FALSE) +{ + object oTarget = OBJECT_INVALID; + int nDamage = 0; + int nMetaMagic = PRCGetMetaMagicFeat(); + int nCnt = 1; + effect eMissile = EffectVisualEffect(nMIRV); + effect eVis = EffectVisualEffect(nVIS); + float fDist = 0.0; + float fDelay = 0.0; + float fDelay2, fTime; + location lTarget = PRCGetSpellTargetLocation(); // missile spread centered around caster + int nMissiles = CasterLvl; + + if (nMissiles > nCap) + { + nMissiles = nCap; + } + + /* New Algorithm + 1. Count # of targets + 2. Determine number of missiles + 3. First target gets a missile and all Excess missiles + 4. Rest of targets (max nMissiles) get one missile + */ + int nEnemies = 0; + int nCasterlvl = CasterLvl +SPGetPenetr(); + + + + oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_GARGANTUAN, lTarget, TRUE, OBJECT_TYPE_CREATURE); + //Cycle through the targets within the spell shape until an invalid object is captured. + while (GetIsObjectValid(oTarget) ) + { + // * caster cannot be harmed by this spell + if (spellsIsTarget(oTarget, SPELL_TARGET_SELECTIVEHOSTILE, OBJECT_SELF) && (oTarget != OBJECT_SELF)) + { + // GZ: You can only fire missiles on visible targets + if (GetObjectSeen(oTarget,OBJECT_SELF)) + { + nEnemies++; + } + } + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_GARGANTUAN, lTarget, TRUE, OBJECT_TYPE_CREATURE); + } + + if (nEnemies == 0) return; // * Exit if no enemies to hit + int nExtraMissiles = nMissiles / nEnemies; + + // April 2003 + // * if more enemies than missiles, need to make sure that at least + // * one missile will hit each of the enemies + if (nExtraMissiles <= 0) + { + nExtraMissiles = 1; + } + + // by default the Remainder will be 0 (if more than enough enemies for all the missiles) + int nRemainder = 0; + + if (nExtraMissiles >0) + nRemainder = nMissiles % nEnemies; + + if (nEnemies > nMissiles) + nEnemies = nMissiles; + + oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_GARGANTUAN, lTarget, TRUE, OBJECT_TYPE_CREATURE); + //Cycle through the targets within the spell shape until an invalid object is captured. + while (GetIsObjectValid(oTarget) && nCnt <= nEnemies) + { + // * caster cannot be harmed by this spell + if (spellsIsTarget(oTarget, SPELL_TARGET_SELECTIVEHOSTILE, OBJECT_SELF) && (oTarget != OBJECT_SELF) && (GetObjectSeen(oTarget,OBJECT_SELF))) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, nSpell)); + + // * recalculate appropriate distances + fDist = GetDistanceBetween(OBJECT_SELF, oTarget); + fDelay = fDist/(3.0 * log(fDist) + 2.0); + + // Firebrand. + // It means that once the target has taken damage this round from the + // spell it won't take subsequent damage + if (nONEHIT == TRUE) + { + nExtraMissiles = 1; + nRemainder = 0; + } + + int i = 0; + //-------------------------------------------------------------- + // GZ: Moved SR check out of loop to have 1 check per target + // not one check per missile, which would rip spell mantels + // apart + //-------------------------------------------------------------- + if (!PRCDoResistSpell(OBJECT_SELF, oTarget,nCasterlvl, fDelay)) + { + int nDC = PRCGetSaveDC(oTarget,OBJECT_SELF); + for (i=1; i <= nExtraMissiles + nRemainder; i++) + { + //Roll damage + int nDam = d6(nD6Dice); + //Enter Metamagic conditions + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDam = nD6Dice*6;//Damage is at max + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDam = nDam + nDam/2; //Damage/Healing is +50% + } + if(i == 1) //nDam += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF); + fTime = fDelay; + fDelay2 += 0.1; + fTime += fDelay2; + + // Adjust damage for reflex save / evasion / imp evasion + nDam = PRCGetReflexAdjustedDamage(nDam, oTarget, + nDC, SAVING_THROW_TYPE_FIRE); + + // Always apply missle but only apply impact/damage if we really have damage. + DelayCommand(fDelay2, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eMissile, oTarget)); + if (nDam > 0) + { + //Set damage effect + effect eDam = PRCEffectDamage(oTarget, nDam, nDAMAGETYPE); + //Apply the MIRV and damage effect + DelayCommand(fTime, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eVis, oTarget,0.0f,TRUE,-1,CasterLvl)); + DelayCommand(fTime, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget)); + } + } + } // for + else + { // * apply a dummy visual effect + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eMissile, oTarget); + } + nCnt++;// * increment count of missiles fired + nRemainder = 0; + } + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_GARGANTUAN, lTarget, TRUE, OBJECT_TYPE_CREATURE); + } + +} diff --git a/_haks/poa_exp_spells/x0_s0_flare.ncs b/_haks/poa_exp_spells/x0_s0_flare.ncs new file mode 100644 index 0000000..e222658 Binary files /dev/null and b/_haks/poa_exp_spells/x0_s0_flare.ncs differ diff --git a/_haks/poa_exp_spells/x0_s0_flare.nss b/_haks/poa_exp_spells/x0_s0_flare.nss new file mode 100644 index 0000000..6863902 --- /dev/null +++ b/_haks/poa_exp_spells/x0_s0_flare.nss @@ -0,0 +1,81 @@ +//:://///////////////////////////////////////////// +//:: Flare +//:: [X0_S0_Flare.nss] +//:: Copyright (c) 2002 Bioware Corp. +//::////////////////////////////////////////////// +/* + Creature hit by ray loses 1 to attack rolls. + + DURATION: 10 rounds. +*/ +//::////////////////////////////////////////////// +//:: Created By: Brent +//:: Created On: July 17 2002 +//::////////////////////////////////////////////// + +//:: altered by mr_bumpkin Dec 4, 2003 for prc stuff +#include "prc_inc_spells" + + +#include "prc_add_spell_dc" + +void main() +{ + + //if (GetHasFeat(FEAT_SHADOWWEAVE,OBJECT_SELF)) return; + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION); +/* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + //Declare major variables + object oTarget = PRCGetSpellTargetObject(); + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + int nCasterLevel = CasterLvl + SPGetPenetr(); + + effect eVis = EffectVisualEffect(VFX_IMP_FLAME_S); + + if(!GetIsReactionTypeFriendly(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, 416)); + + // * Apply the hit effect so player knows something happened + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + + // If already blinded no affect + if(!PRCGetHasEffect(EFFECT_TYPE_BLINDNESS, oTarget) && (GetRacialType(oTarget) != RACIAL_TYPE_OOZE) && PRCGetIsAliveCreature(oTarget)) + { + //Make SR Check + if((!PRCDoResistSpell(OBJECT_SELF, oTarget,nCasterLevel))) + { + if(!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, (PRCGetSaveDC(oTarget,OBJECT_SELF)))) + { + //Set damage effect + effect eBad = EffectAttackDecrease(1+(nCasterLevel/4)); + //Apply the VFX impact and damage effect + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eBad, oTarget, RoundsToSeconds(10),TRUE,-1,CasterLvl); + } + } + } + } + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Erasing the variable used to store the spell's spell school +} + + diff --git a/_haks/poa_exp_spells/x0_s0_gmagicfang.ncs b/_haks/poa_exp_spells/x0_s0_gmagicfang.ncs new file mode 100644 index 0000000..95d17e7 Binary files /dev/null and b/_haks/poa_exp_spells/x0_s0_gmagicfang.ncs differ diff --git a/_haks/poa_exp_spells/x0_s0_gmagicfang.nss b/_haks/poa_exp_spells/x0_s0_gmagicfang.nss new file mode 100644 index 0000000..e9c41d1 --- /dev/null +++ b/_haks/poa_exp_spells/x0_s0_gmagicfang.nss @@ -0,0 +1,144 @@ +//:://///////////////////////////////////////////// +//:: Greater Magic Fang +//:: x0_s0_gmagicfang.nss +//:: Copyright (c) 2002 Bioware Corp. +//::////////////////////////////////////////////// +/* + +1 enhancement bonus to attack and damage rolls. + Also applys damage reduction +1; this allows the creature + to strike creatures with +1 damage reduction. + + Checks to see if a valid summoned monster or animal companion + exists to apply the effects to. If none exists, then + the spell is wasted. + +*/ +//::////////////////////////////////////////////// +//:: Created By: Brent Knowles +//:: Created On: September 6, 2002 +//::////////////////////////////////////////////// +//:: VFX Pass By: + +//:: altered by mr_bumpkin Dec 4, 2003 for prc stuff +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void CheckStillUnarmed(object oTarget) +{ + //only works if you have nothing in right & left hands + if(GetIsObjectValid(GetItemInSlot(INVENTORY_SLOT_RIGHTHAND, oTarget)) + || GetIsObjectValid(GetItemInSlot(INVENTORY_SLOT_RIGHTHAND, oTarget))) + { + FloatingTextStrRefOnCreature(8962, OBJECT_SELF, FALSE); + //remove other magic fang effects + PRCRemoveSpellEffects(452, OBJECT_SELF, oTarget); + PRCRemoveSpellEffects(453, OBJECT_SELF, oTarget); + return; // has neither an animal companion + } + DelayCommand(1.0, CheckStillUnarmed(oTarget)); +} + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_CONJURATION); +/* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + + int nCasterLevel = PRCGetCasterLevel(OBJECT_SELF); + int nPower = (nCasterLevel + 1) / 3; + if (nPower > 20) + nPower = 20; // * max of +20 bonus + int nDamagePower = DAMAGE_POWER_PLUS_ONE; + + switch (nPower) + { + case 1: nDamagePower = DAMAGE_POWER_PLUS_ONE; break; + case 2: nDamagePower = DAMAGE_POWER_PLUS_TWO; break; + case 3: nDamagePower = DAMAGE_POWER_PLUS_THREE; break; + case 4: nDamagePower = DAMAGE_POWER_PLUS_FOUR; break; + case 5: nDamagePower = DAMAGE_POWER_PLUS_FIVE; break; + case 6: nDamagePower = DAMAGE_POWER_PLUS_SIX; break; + case 7: nDamagePower = DAMAGE_POWER_PLUS_SEVEN; break; + case 8: nDamagePower = DAMAGE_POWER_PLUS_EIGHT; break; + case 9: nDamagePower = DAMAGE_POWER_PLUS_NINE; break; + case 10: nDamagePower = DAMAGE_POWER_PLUS_TEN; break; + case 11: nDamagePower = DAMAGE_POWER_PLUS_ELEVEN; break; + case 12: nDamagePower = DAMAGE_POWER_PLUS_TWELVE; break; + case 13: nDamagePower = DAMAGE_POWER_PLUS_THIRTEEN; break; + case 14: nDamagePower = DAMAGE_POWER_PLUS_FOURTEEN; break; + case 15: nDamagePower = DAMAGE_POWER_PLUS_FIFTEEN; break; + case 16: nDamagePower = DAMAGE_POWER_PLUS_SIXTEEN; break; + case 17: nDamagePower = DAMAGE_POWER_PLUS_SEVENTEEN; break; + case 18: nDamagePower = DAMAGE_POWER_PLUS_EIGHTEEN; break; + case 19: nDamagePower = DAMAGE_POWER_PLUS_NINTEEN; break; + case 20: nDamagePower = DAMAGE_POWER_PLUS_TWENTY; break; + } + //DoMagicFang(nPower, nDamagePower,nCasterLevel); + //PRCversion + object oTarget = PRCGetSpellTargetObject(); + //only works if you have nothing in right & left hands + if(GetIsObjectValid(GetItemInSlot(INVENTORY_SLOT_RIGHTHAND, oTarget)) + || GetIsObjectValid(GetItemInSlot(INVENTORY_SLOT_RIGHTHAND, oTarget))) + { + FloatingTextStrRefOnCreature(8962, OBJECT_SELF, FALSE); + return; // has neither an animal companion + } + //only works if target has monk levels + //or has a creature weapon + if(!GetIsObjectValid(GetItemInSlot(INVENTORY_SLOT_CWEAPON_B, oTarget)) + && !GetIsObjectValid(GetItemInSlot(INVENTORY_SLOT_CWEAPON_L, oTarget)) + && !GetIsObjectValid(GetItemInSlot(INVENTORY_SLOT_CWEAPON_R, oTarget)) + && !GetLevelByClass(CLASS_TYPE_MONK, oTarget)) + { + FloatingTextStrRefOnCreature(8962, OBJECT_SELF, FALSE); + return; // has neither an animal companion + } + + //remove other magic fang effects + PRCRemoveSpellEffects(452, OBJECT_SELF, oTarget); + PRCRemoveSpellEffects(453, OBJECT_SELF, oTarget); + effect eVis = EffectVisualEffect(VFX_IMP_HOLY_AID); + int nMetaMagic = PRCGetMetaMagicFeat(); + + effect eAttack = EffectAttackIncrease(nPower); + effect eDamage = EffectDamageIncrease(nPower); + effect eReduction = EffectDamageReduction(nPower, nDamagePower); // * doing this because + // * it creates a true + // * enhancement bonus + + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE); + effect eLink = EffectLinkEffects(eAttack, eDur); + eLink = EffectLinkEffects(eLink, eDamage); + eLink = EffectLinkEffects(eLink, eReduction); + + float fDuration = HoursToSeconds(nCasterLevel); // * Duration 1 hour/level + if ((nMetaMagic & METAMAGIC_EXTEND)) //Duration is +100% + { + fDuration = fDuration * 2.0; + } + + //Fire spell cast at event for target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, PRCGetSpellId(), FALSE)); + //Apply VFX impact and bonus effects + ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, fDuration); + DelayCommand(1.0, CheckStillUnarmed(oTarget)); + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Erasing the variable used to store the spell's spell school +} diff --git a/_haks/poa_exp_spells/x0_s0_inferno.ncs b/_haks/poa_exp_spells/x0_s0_inferno.ncs new file mode 100644 index 0000000..2014fd0 Binary files /dev/null and b/_haks/poa_exp_spells/x0_s0_inferno.ncs differ diff --git a/_haks/poa_exp_spells/x0_s0_inferno.nss b/_haks/poa_exp_spells/x0_s0_inferno.nss new file mode 100644 index 0000000..52eb02b --- /dev/null +++ b/_haks/poa_exp_spells/x0_s0_inferno.nss @@ -0,0 +1,146 @@ +//:://///////////////////////////////////////////// +//:: Inferno +//:: x0_s0_inferno.nss +//:: Copyright (c) 2000 Bioware Corp. +//::////////////////////////////////////////////// +/* + Does 2d6 fire per round + Duration: 1 round per level +*/ +//::////////////////////////////////////////////// +//:: Created By: Aidan Scanlan +//:: Created On: 01/09/01 +//::////////////////////////////////////////////// +//:: Rewritten: Georg Zoeller, 2003-Oct-19 +//:: - VFX update +//:: - Spell no longer stacks with itself +//:: - Spell can now be dispelled +//:: - Spell is now much less cpu expensive + +//:: altered by mr_bumpkin Dec 4, 2003 for prc stuff +#include "prc_inc_spells" +#include "prc_alterations" +#include "prc_add_spell_dc" + +void RunImpact(object oTarget, object oCaster, int nMetamagic,int EleDmg); + +void main() +{ + + DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); + SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_TRANSMUTATION); + + + + object oTarget = PRCGetSpellTargetObject(); + + //-------------------------------------------------------------------------- + // Spellcast Hook Code + // Added 2003-06-20 by Georg + // If you want to make changes to all spells, check x2_inc_spellhook.nss to + // find out more + //-------------------------------------------------------------------------- + if (!X2PreSpellCastCode()) + { + return; + } + // End of Spell Cast Hook + + //-------------------------------------------------------------------------- + // This spell no longer stacks. If there is one of that type, thats ok + //-------------------------------------------------------------------------- + if (GetHasSpellEffect(GetSpellId(),oTarget) || GetHasSpellEffect(SPELL_COMBUST,oTarget)) + { + FloatingTextStrRefOnCreature(100775,OBJECT_SELF,FALSE); + return; + } + + //-------------------------------------------------------------------------- + // Calculate the duration + //-------------------------------------------------------------------------- + int nMetaMagic = PRCGetMetaMagicFeat(); + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + int EleDmg = ChangedElementalDamage(OBJECT_SELF, DAMAGE_TYPE_FIRE); + + int nDuration = CasterLvl ; + int nPenetr = CasterLvl + SPGetPenetr(); + + if ((nMetaMagic & METAMAGIC_EXTEND)) + { + nDuration = nDuration * 2; + } + + if (nDuration < 1) + { + nDuration = 1; + } + + //-------------------------------------------------------------------------- + // Flamethrower VFX, thanks to Alex + //-------------------------------------------------------------------------- + effect eRay = EffectBeam(444,OBJECT_SELF,BODY_NODE_CHEST); + effect eDur = EffectVisualEffect(498); + + + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, GetSpellId())); + + float fDelay = GetDistanceBetween(oTarget, OBJECT_SELF)/13; + + if(!PRCDoResistSpell(OBJECT_SELF, oTarget,nPenetr)) + { + //---------------------------------------------------------------------- + // Engulf the target in flame + //---------------------------------------------------------------------- + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eRay, oTarget, 3.0f,FALSE); + + + //---------------------------------------------------------------------- + // Apply the VFX that is used to track the spells duration + //---------------------------------------------------------------------- + DelayCommand(fDelay,SPApplyEffectToObject(DURATION_TYPE_TEMPORARY,eDur,oTarget,RoundsToSeconds(nDuration),FALSE)); + object oSelf = OBJECT_SELF; // because OBJECT_SELF is a function + DelayCommand(fDelay+0.1f,RunImpact(oTarget, oSelf,nMetaMagic,EleDmg)); + } + else + { + //---------------------------------------------------------------------- + // Indicate Failure + //---------------------------------------------------------------------- + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eRay, oTarget, 2.0f,FALSE); + effect eSmoke = EffectVisualEffect(VFX_IMP_REFLEX_SAVE_THROW_USE); + DelayCommand(fDelay+0.3f,SPApplyEffectToObject(DURATION_TYPE_INSTANT,eSmoke,oTarget)); + } + +} + + +void RunImpact(object oTarget, object oCaster, int nMetaMagic,int EleDmg) +{ + //-------------------------------------------------------------------------- + // Check if the spell has expired (check also removes effects) + //-------------------------------------------------------------------------- + if (PRCGetDelayedSpellEffectsExpired(446,oTarget,oCaster)) + { + return; + } + + if (GetIsDead(oTarget) == FALSE) + { + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF);// ou seria oCaster? + int nPenetr = CasterLvl + SPGetPenetr(); + //---------------------------------------------------------------------- + // Calculate Damage + //---------------------------------------------------------------------- + int nDamage = PRCMaximizeOrEmpower(nPenetr/2,2,nMetaMagic); //troquei o 6 por nPenetr/2 + //nDamage += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF, FALSE); + effect eDam = PRCEffectDamage(oTarget, nDamage, EleDmg); + effect eVis = EffectVisualEffect(VFX_IMP_FLAME_S); + eDam = EffectLinkEffects(eVis,eDam); // flare up + SPApplyEffectToObject (DURATION_TYPE_INSTANT,eDam,oTarget); + DelayCommand(6.0f,RunImpact(oTarget,oCaster,nMetaMagic,EleDmg)); + } + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Erasing the variable used to store the spell's spell school +} + diff --git a/_haks/poa_exp_spells/x0_s0_magicfang.ncs b/_haks/poa_exp_spells/x0_s0_magicfang.ncs new file mode 100644 index 0000000..6e8256b Binary files /dev/null and b/_haks/poa_exp_spells/x0_s0_magicfang.ncs differ diff --git a/_haks/poa_exp_spells/x0_s0_magicfang.nss b/_haks/poa_exp_spells/x0_s0_magicfang.nss new file mode 100644 index 0000000..13fae87 --- /dev/null +++ b/_haks/poa_exp_spells/x0_s0_magicfang.nss @@ -0,0 +1,143 @@ +/* + x0_s0_magicfang + + +1 enhancement bonus to attack and damage rolls. + Also applys damage reduction +1; this allows the creature + to strike creatures with +1 damage reduction. + + Checks to see if a valid summoned monster or animal companion + exists to apply the effects to. If none exists, then + the spell is wasted. + + By: Brent Knowles + Created: September 6, 2002 + Modified: Jun 29, 2006 + + Flaming_Sword: cleaned up, added greater magic fang +*/ + +#include "prc_sp_func" + + +void CheckStillUnarmed(object oTarget) +{ + //only works if you have nothing in right & left hands + if(GetIsObjectValid(GetItemInSlot(INVENTORY_SLOT_RIGHTHAND, oTarget)) + || GetIsObjectValid(GetItemInSlot(INVENTORY_SLOT_RIGHTHAND, oTarget))) + { + FloatingTextStrRefOnCreature(8962, oTarget, FALSE); + //remove other magic fang effects + PRCRemoveSpellEffects(452, OBJECT_SELF, oTarget); + PRCRemoveSpellEffects(453, OBJECT_SELF, oTarget); + return; // has neither an animal companion + } + DelayCommand(1.0, CheckStillUnarmed(oTarget)); +} + +//Implements the spell impact, put code here +// if called in many places, return TRUE if +// stored charges should be decreased +// eg. touch attack hits +// +// Variables passed may be changed if necessary +int DoSpell(object oCaster, object oTarget, int nCasterLevel, int nEvent) +{ + int nSpellID = PRCGetSpellId(); + int bNorm = (nSpellID == 452); + + int nPower = bNorm ? 1 : (nCasterLevel + 1) / 3; //magic fang + if (nPower > 20) + nPower = 20; // * max of +5 bonus + int nDamagePower; + + switch (nPower) + { + case 1: nDamagePower = DAMAGE_POWER_PLUS_ONE; break; + case 2: nDamagePower = DAMAGE_POWER_PLUS_TWO; break; + case 3: nDamagePower = DAMAGE_POWER_PLUS_THREE; break; + case 4: nDamagePower = DAMAGE_POWER_PLUS_FOUR; break; + case 5: nDamagePower = DAMAGE_POWER_PLUS_FIVE; break; + case 6: nDamagePower = DAMAGE_POWER_PLUS_SIX; break; + case 7: nDamagePower = DAMAGE_POWER_PLUS_SEVEN; break; + case 8: nDamagePower = DAMAGE_POWER_PLUS_EIGHT; break; + case 9: nDamagePower = DAMAGE_POWER_PLUS_NINE; break; + case 10: nDamagePower = DAMAGE_POWER_PLUS_TEN; break; + case 11: nDamagePower = DAMAGE_POWER_PLUS_ELEVEN; break; + case 12: nDamagePower = DAMAGE_POWER_PLUS_TWELVE; break; + case 13: nDamagePower = DAMAGE_POWER_PLUS_THIRTEEN; break; + case 14: nDamagePower = DAMAGE_POWER_PLUS_FOURTEEN; break; + case 15: nDamagePower = DAMAGE_POWER_PLUS_FIFTEEN; break; + case 16: nDamagePower = DAMAGE_POWER_PLUS_SIXTEEN; break; + case 17: nDamagePower = DAMAGE_POWER_PLUS_SEVENTEEN; break; + case 18: nDamagePower = DAMAGE_POWER_PLUS_EIGHTEEN; break; + case 19: nDamagePower = DAMAGE_POWER_PLUS_NINTEEN; break; + case 20: nDamagePower = DAMAGE_POWER_PLUS_TWENTY; break; + } + + if(GetIsObjectValid(GetItemInSlot(INVENTORY_SLOT_RIGHTHAND, oTarget)) + || GetIsObjectValid(GetItemInSlot(INVENTORY_SLOT_RIGHTHAND, oTarget))) + { + FloatingTextStrRefOnCreature(8962, OBJECT_SELF, FALSE); + return TRUE; // has neither an animal companion + } + //only works if target has monk levels + //or has a creature weapon + if(!GetIsObjectValid(GetItemInSlot(INVENTORY_SLOT_CWEAPON_B, oTarget)) + && !GetIsObjectValid(GetItemInSlot(INVENTORY_SLOT_CWEAPON_L, oTarget)) + && !GetIsObjectValid(GetItemInSlot(INVENTORY_SLOT_CWEAPON_R, oTarget)) + && !GetLevelByClass(CLASS_TYPE_MONK, oTarget)) + { + FloatingTextStrRefOnCreature(8962, OBJECT_SELF, FALSE); + return TRUE; // has neither an animal companion + } + + //remove other magic fang effects + PRCRemoveSpellEffects(452, OBJECT_SELF, oTarget); + PRCRemoveSpellEffects(453, OBJECT_SELF, oTarget); + int nMetaMagic = PRCGetMetaMagicFeat(); + + effect eLink = EffectLinkEffects(EffectAttackIncrease(nPower), EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE)); + eLink = EffectLinkEffects(eLink, EffectDamageIncrease(nPower)); + eLink = EffectLinkEffects(eLink, EffectDamageReduction(nPower, nDamagePower)); + + float fDuration = bNorm ? TurnsToSeconds(nCasterLevel) : HoursToSeconds(nCasterLevel); // * Duration 1 hour/level + if ((nMetaMagic & METAMAGIC_EXTEND)) //Duration is +100% + fDuration = fDuration * 2.0; + + //Fire spell cast at event for target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, PRCGetSpellId(), FALSE)); + //Apply VFX impact and bonus effects + ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_HOLY_AID), oTarget); + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, fDuration); + DelayCommand(1.0, CheckStillUnarmed(oTarget)); + + return TRUE; //return TRUE if spell charges should be decremented +} + +void main() +{ + object oCaster = OBJECT_SELF; + int nCasterLevel = PRCGetCasterLevel(oCaster); + PRCSetSchool(GetSpellSchool(PRCGetSpellId())); + if (!X2PreSpellCastCode()) return; + object oTarget = PRCGetSpellTargetObject(); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if(GetLocalInt(oCaster, PRC_SPELL_HOLD) && oCaster == oTarget) + { //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + DoSpell(oCaster, oTarget, nCasterLevel, nEvent); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel, nEvent)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/x0_s0_missstorm1.ncs b/_haks/poa_exp_spells/x0_s0_missstorm1.ncs new file mode 100644 index 0000000..7bf35e9 Binary files /dev/null and b/_haks/poa_exp_spells/x0_s0_missstorm1.ncs differ diff --git a/_haks/poa_exp_spells/x0_s0_missstorm1.nss b/_haks/poa_exp_spells/x0_s0_missstorm1.nss new file mode 100644 index 0000000..8dc7440 --- /dev/null +++ b/_haks/poa_exp_spells/x0_s0_missstorm1.nss @@ -0,0 +1,50 @@ +//:://///////////////////////////////////////////// +//:: Isaacs Lesser Missile Storm +//:: x0_s0_MissStorm1 +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Up to 10 missiles, each doing 1d6 damage to all + targets in area. +*/ +//::////////////////////////////////////////////// +//:: Created By: Brent +//:: Created On: July 31, 2002 +//::////////////////////////////////////////////// +//:: Last Updated By: + +//:: altered by mr_bumpkin Dec 4, 2003 for prc stuff +#include "spinc_bolt" +#include "prc_add_spell_dc" + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION); +/* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ +int nClass = GetLevelByClass(CLASS_TYPE_FMM); + +int nCasterLvl = PRCGetCasterLevel(OBJECT_SELF); + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + //SpawnScriptDebugger(); + PRCDoMissileStorm(1+(nCasterLvl/13), 10+(nClass/5)+(nCasterLvl/10), SPELL_ISAACS_LESSER_MISSILE_STORM); + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Erasing the variable used to store the spell's spell school +} + + diff --git a/_haks/poa_exp_spells/x0_s0_missstorm2.ncs b/_haks/poa_exp_spells/x0_s0_missstorm2.ncs new file mode 100644 index 0000000..a38fd1c Binary files /dev/null and b/_haks/poa_exp_spells/x0_s0_missstorm2.ncs differ diff --git a/_haks/poa_exp_spells/x0_s0_missstorm2.nss b/_haks/poa_exp_spells/x0_s0_missstorm2.nss new file mode 100644 index 0000000..187d973 --- /dev/null +++ b/_haks/poa_exp_spells/x0_s0_missstorm2.nss @@ -0,0 +1,51 @@ +//:://///////////////////////////////////////////// +//:: Isaacs Greater Missile Storm +//:: x0_s0_MissStorm2 +//:: Copyright (c) 2002 Bioware Corp. +//::////////////////////////////////////////////// +/* + Up to 20 missiles, each doing 3d6 damage to each + target in area. +*/ +//::////////////////////////////////////////////// +//:: Created By: Brent +//:: Created On: July 31, 2002 +//::////////////////////////////////////////////// +//:: Last Updated By: + +//:: altered by mr_bumpkin Dec 4, 2003 for prc stuff +#include "spinc_bolt" +#include "prc_add_spell_dc" + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION); +/* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ +int nClass = GetLevelByClass(CLASS_TYPE_FMM); + +int nCasterLvl = PRCGetCasterLevel(OBJECT_SELF); + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + + + PRCDoMissileStorm(2+(nCasterLvl/12), 20+(nClass/5)+(nCasterLvl/10), SPELL_ISAACS_GREATER_MISSILE_STORM); + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Erasing the variable used to store the spell's spell school +} + + diff --git a/_haks/poa_exp_spells/x0_s0_quillfire.ncs b/_haks/poa_exp_spells/x0_s0_quillfire.ncs new file mode 100644 index 0000000..7bc476e Binary files /dev/null and b/_haks/poa_exp_spells/x0_s0_quillfire.ncs differ diff --git a/_haks/poa_exp_spells/x0_s0_quillfire.nss b/_haks/poa_exp_spells/x0_s0_quillfire.nss new file mode 100644 index 0000000..6fd9d13 --- /dev/null +++ b/_haks/poa_exp_spells/x0_s0_quillfire.nss @@ -0,0 +1,102 @@ +//:://///////////////////////////////////////////// +//:: Quillfire +//:: [x0_s0_quillfire.nss] +//:: Copyright (c) 2002 Bioware Corp. +//::////////////////////////////////////////////// +/* + Fires a cluster of quills at a target. Ranged Attack. + 2d8 + 1 point /2 levels (max 5) + +*/ +//::////////////////////////////////////////////// +//:: Created By: Brent +//:: Created On: July 17 2002 +//::////////////////////////////////////////////// +//:: Last Updated By: Andrew Nobbs May 02, 2003 + +//:: altered by mr_bumpkin Dec 4, 2003 for prc stuff +#include "prc_inc_spells" + +#include "prc_alterations" +#include "prc_add_spell_dc" + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_TRANSMUTATION); +/* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + + //Declare major variables ( fDist / (3.0f * log( fDist ) + 2.0f) ) + object oTarget = PRCGetSpellTargetObject(); + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + int nCasterLvl = CasterLvl; + int nDamage = 0; + int nMetaMagic = PRCGetMetaMagicFeat(); + int nCnt; + effect eVis = EffectVisualEffect(VFX_IMP_ACID_S); + + if(!GetIsReactionTypeFriendly(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_QUILLFIRE)); + //Apply a single damage hit for each missile instead of as a single mass + //Make SR Check + { + // BK: No spell resistance for quillfire + //if(!PRCDoResistSpell(OBJECT_SELF, oTarget, fDelay)) + { + //eMissile = EffectVisualEffect(VFX_IMP_MIRV_FLAME); + //Roll damage + int nDam = d8(1); + //Enter Metamagic conditions + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDam = 8;//Damage is at max + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDam = nDam + nDam/2; //Damage/Healing is +50% + } + //* apply bonus damage for level + int nBonus = nCasterLvl/ 2; + if (nBonus > 20) + { + nBonus = 20; + } + nDam = nDam + nBonus; + //nDam += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF); + effect eDam = PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_MAGICAL); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eVis, oTarget,0.0f,TRUE,-1,CasterLvl); + // * also applies poison damage + effect ePoison = EffectPoison(POISON_LARGE_SCORPION_VENOM); + SPApplyEffectToObject(DURATION_TYPE_PERMANENT, ePoison, oTarget,0.0f,TRUE,-1,CasterLvl); + + //Apply the MIRV and damage effect + //SPApplyEffectToObject(DURATION_TYPE_INSTANT, eMissile, oTarget); + } + + } + } + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Erasing the variable used to store the spell's spell school +} + + + diff --git a/_haks/poa_exp_spells/x0_s0_shieldfait.ncs b/_haks/poa_exp_spells/x0_s0_shieldfait.ncs new file mode 100644 index 0000000..2abfbb0 Binary files /dev/null and b/_haks/poa_exp_spells/x0_s0_shieldfait.ncs differ diff --git a/_haks/poa_exp_spells/x0_s0_shieldfait.nss b/_haks/poa_exp_spells/x0_s0_shieldfait.nss new file mode 100644 index 0000000..dd5ba6f --- /dev/null +++ b/_haks/poa_exp_spells/x0_s0_shieldfait.nss @@ -0,0 +1,63 @@ +/* + x0_s0_shieldfait + + +2 deflection AC bonus, +1 every 6 levels (max +5) + Duration: 1 turn/level + + By: Brent Knowles + Created: Sep 6, 2002 + Modified: Jun 29, 2006 +*/ + +#include "prc_sp_func" + +//Implements the spell impact, put code here +// if called in many places, return TRUE if +// stored charges should be decreased +// eg. touch attack hits +// +// Variables passed may be changed if necessary +int DoSpell(object oCaster, object oTarget, int nCasterLevel, int nEvent) +{ + int nMetaMagic = PRCGetMetaMagicFeat(); + int nValue = 2 + (nCasterLevel)/6; + if(nValue > 20) + nValue = 20; // * Max of 5 + effect eLink = EffectLinkEffects(EffectACIncrease(nValue, AC_DEFLECTION_BONUS), EffectVisualEffect(VFX_DUR_PROTECTION_GOOD_MINOR)); + int nDuration = nCasterLevel; // * Duration 1 turn/level + if (CheckMetaMagic(nMetaMagic, METAMAGIC_EXTEND)) //Duration is +100% + nDuration *= 2; + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, 421, FALSE)); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_AC_BONUS), oTarget); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, TurnsToSeconds(nDuration),TRUE,-1,nCasterLevel); + + return TRUE; //return TRUE if spell charges should be decremented +} + +void main() +{ + object oCaster = OBJECT_SELF; + int nCasterLevel = PRCGetCasterLevel(oCaster); + PRCSetSchool(GetSpellSchool(PRCGetSpellId())); + if (!X2PreSpellCastCode()) return; + object oTarget = PRCGetSpellTargetObject(); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if(GetLocalInt(oCaster, PRC_SPELL_HOLD) && oCaster == oTarget) + { //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + DoSpell(oCaster, oTarget, nCasterLevel, nEvent); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel, nEvent)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/x0_s0_spikegroen.ncs b/_haks/poa_exp_spells/x0_s0_spikegroen.ncs new file mode 100644 index 0000000..c995e8e Binary files /dev/null and b/_haks/poa_exp_spells/x0_s0_spikegroen.ncs differ diff --git a/_haks/poa_exp_spells/x0_s0_spikegroen.nss b/_haks/poa_exp_spells/x0_s0_spikegroen.nss new file mode 100644 index 0000000..00b6739 --- /dev/null +++ b/_haks/poa_exp_spells/x0_s0_spikegroen.nss @@ -0,0 +1,81 @@ +//:://///////////////////////////////////////////// +//:: Spike Growth: On Enter +//:: x0_s0_spikegroEN.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + All creatures within the AoE take 1d4 acid damage + per round +*/ +//::////////////////////////////////////////////// +//:: Created By: Brent Knowles +//:: Created On: September 6, 2002 +//::////////////////////////////////////////////// + +//:: altered by mr_bumpkin Dec 4, 2003 for prc stuff + +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +//:://///////////////////////////////////////////// +//:: PRCDoSpikeGrowthEffect +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + 1d4 damage, plus a 24 hr slow if take damage. +*/ +//::////////////////////////////////////////////// +//:: Created By: +//:: Created On: +//::////////////////////////////////////////////// + +void PRCDoSpikeGrowthEffect(object oTarget,int nPenetr) +{ + float fDelay = PRCGetRandomDelay(1.0, 2.2); + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, GetAreaOfEffectCreator())) + { + //Fire cast spell at event for the target + SignalEvent(oTarget, EventSpellCastAt(GetAreaOfEffectCreator(), 453)); + //Spell resistance check + if(!PRCDoResistSpell(GetAreaOfEffectCreator(), oTarget,nPenetr, fDelay)) + { + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDam = PRCMaximizeOrEmpower(20, 1, nMetaMagic); + //nDam += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF); + + effect eDam = EffectDamage(nDam, DAMAGE_TYPE_PIERCING); + effect eVis = EffectVisualEffect(VFX_IMP_ACID_S); + //effect eLink = eDam; + //Apply damage and visuals + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eDam/*eLink*/, oTarget)); + + // * only apply a slow effect from this spell once + if (GetHasSpellEffect(453, oTarget) == FALSE) + { + //Make a Reflex Save to avoid the effects of the movement hit. + if(!PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, PRCGetSaveDC(oTarget,GetAreaOfEffectCreator()), SAVING_THROW_ALL, GetAreaOfEffectCreator(), fDelay)) + { + effect eSpeed = EffectMovementSpeedDecrease(30); + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eSpeed, oTarget, HoursToSeconds(24)); + } + } + } + } +} + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_TRANSMUTATION); + + int nPenetr = SPGetPenetrAOE(GetAreaOfEffectCreator()); + + + PRCDoSpikeGrowthEffect(GetEnteringObject(),nPenetr); + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Erasing the variable used to store the spell's spell school + +} diff --git a/_haks/poa_exp_spells/x0_s0_spikegrohb.ncs b/_haks/poa_exp_spells/x0_s0_spikegrohb.ncs new file mode 100644 index 0000000..d18d58b Binary files /dev/null and b/_haks/poa_exp_spells/x0_s0_spikegrohb.ncs differ diff --git a/_haks/poa_exp_spells/x0_s0_spikegrohb.nss b/_haks/poa_exp_spells/x0_s0_spikegrohb.nss new file mode 100644 index 0000000..b7745f6 --- /dev/null +++ b/_haks/poa_exp_spells/x0_s0_spikegrohb.nss @@ -0,0 +1,88 @@ +//:://///////////////////////////////////////////// +//:: Spike Growth: On Heartbeat +//:: x0_s0_spikegroHB.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + All creatures within the AoE take 1d4 acid damage + per round +*/ +//::////////////////////////////////////////////// +//:: Created By: Brent Knowles +//:: Created On: September 6, 2002 +//::////////////////////////////////////////////// + +//:: altered by mr_bumpkin Dec 4, 2003 for prc stuff + +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +//:://///////////////////////////////////////////// +//:: PRCDoSpikeGrowthEffect +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + 1d4 damage, plus a 24 hr slow if take damage. +*/ +//::////////////////////////////////////////////// +//:: Created By: +//:: Created On: +//::////////////////////////////////////////////// + +void PRCDoSpikeGrowthEffect(object oTarget,int nPenetr) +{ + float fDelay = PRCGetRandomDelay(1.0, 2.2); + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, GetAreaOfEffectCreator())) + { + //Fire cast spell at event for the target + SignalEvent(oTarget, EventSpellCastAt(GetAreaOfEffectCreator(), 453)); + //Spell resistance check + if(!PRCDoResistSpell(GetAreaOfEffectCreator(), oTarget,nPenetr, fDelay)) + { + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDam = PRCMaximizeOrEmpower(20, 1, nMetaMagic); + //nDam += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF); + + effect eDam = EffectDamage(nDam, DAMAGE_TYPE_PIERCING); + effect eVis = EffectVisualEffect(VFX_IMP_ACID_S); + //effect eLink = eDam; + //Apply damage and visuals + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eDam/*eLink*/, oTarget)); + + // * only apply a slow effect from this spell once + if (GetHasSpellEffect(453, oTarget) == FALSE) + { + //Make a Reflex Save to avoid the effects of the movement hit. + if(!PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, PRCGetSaveDC(oTarget,GetAreaOfEffectCreator()), SAVING_THROW_ALL, GetAreaOfEffectCreator(), fDelay)) + { + effect eSpeed = EffectMovementSpeedDecrease(30); + ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eSpeed, oTarget, HoursToSeconds(24)); + } + } + } + } +} + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_TRANSMUTATION); + + int nPenetr = SPGetPenetrAOE(GetAreaOfEffectCreator()); + + + object oTarget; + //Start cycling through the AOE Object for viable targets including doors and placable objects. + oTarget = GetFirstInPersistentObject(OBJECT_SELF); + while(GetIsObjectValid(oTarget)) + { + PRCDoSpikeGrowthEffect(oTarget,nPenetr); + //Get next target. + oTarget = GetNextInPersistentObject(OBJECT_SELF); + } + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Erasing the variable used to store the spell's spell school +} diff --git a/_haks/poa_exp_spells/x0_s0_sunburst.ncs b/_haks/poa_exp_spells/x0_s0_sunburst.ncs new file mode 100644 index 0000000..1448781 Binary files /dev/null and b/_haks/poa_exp_spells/x0_s0_sunburst.ncs differ diff --git a/_haks/poa_exp_spells/x0_s0_sunburst.nss b/_haks/poa_exp_spells/x0_s0_sunburst.nss new file mode 100644 index 0000000..8c9a4fa --- /dev/null +++ b/_haks/poa_exp_spells/x0_s0_sunburst.nss @@ -0,0 +1,169 @@ +//:://///////////////////////////////////////////// +//:: Sunburst +//:: X0_S0_Sunburst +//:: Copyright (c) 2002 Bioware Corp. +//::////////////////////////////////////////////// +/* +// Brilliant globe of heat +// All creatures in the globe are blinded and +// take 6d6 damage +// Undead creatures take 1d6 damage (max 25d6) +// The blindness is permanent unless cast to remove it +*/ +//::////////////////////////////////////////////// +//:: Created By: Brent +//:: Created On: July 23 2002 +//::////////////////////////////////////////////// +//:: Last Updated By: Andrew Nobbs May 14, 2003 +//:: Notes: Changed damage to non-undead to 6d6 +//:: 2003-10-09: GZ Added Subrace check for vampire special case, bugfix + + +//:: altered by mr_bumpkin Dec 4, 2003 for prc stuff +#include "prc_inc_spells" + + +#include "prc_add_spell_dc" + +float nSize = RADIUS_SIZE_COLOSSAL; + + + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION); +/* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + + //Declare major variables + object oCaster = OBJECT_SELF; + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + + + int nCasterLvl = CasterLvl; + int nMetaMagic = PRCGetMetaMagicFeat(); + int nDamage = 0; + float fDelay; + effect eExplode = EffectVisualEffect(VFX_IMP_SUNSTRIKE); + effect eVis = EffectVisualEffect(VFX_IMP_HEAD_HOLY); + effect eHitVis = EffectVisualEffect(VFX_IMP_DIVINE_STRIKE_FIRE); + effect eLOS = EffectVisualEffect(VFX_FNF_LOS_HOLY_30); + effect eDam; + //Get the spell target location as opposed to the spell target. + location lTarget = PRCGetSpellTargetLocation(); + //Limit Caster level for the purposes of damage + if (nCasterLvl > 60) + { + nCasterLvl = 60; + } + int nPenetr = CasterLvl + SPGetPenetr(); + + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, OBJECT_SELF); + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eLOS, PRCGetSpellTargetLocation()); + int bDoNotDoDamage = FALSE; + + + //Declare the spell shape, size and the location. Capture the first target object in the shape. + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, nSize, lTarget, TRUE, OBJECT_TYPE_CREATURE); + //Cycle through the targets within the spell shape until an invalid object is captured. + while (GetIsObjectValid(oTarget)) + { + if (spellsIsTarget(oTarget, SPELL_TARGET_SELECTIVEHOSTILE, OBJECT_SELF)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_SUNBURST)); + //This visual effect is applied to the target object not the location as above. This visual effect + //represents the flame that erupts on the target not on the ground. + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eHitVis, oTarget); + + if (!PRCDoResistSpell(OBJECT_SELF, oTarget,nPenetr, fDelay)) + { + if (MyPRCGetRacialType(oTarget) == RACIAL_TYPE_UNDEAD) + { + //Roll damage for each target + nDamage = PRCMaximizeOrEmpower(6, nPenetr, nMetaMagic); + } + else + { + nDamage = PRCMaximizeOrEmpower(6, nCasterLvl/2, nMetaMagic); + } + //nDamage += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF, FALSE); + int nDC = PRCGetSaveDC(oTarget,OBJECT_SELF); + + // * if a vampire then destroy it + if (GetAppearanceType(oTarget) == APPEARANCE_TYPE_VAMPIRE_MALE || GetAppearanceType(oTarget) == APPEARANCE_TYPE_VAMPIRE_FEMALE || GetStringLowerCase(GetSubRace(oTarget)) == "vampire" ) + { + // SpeakString("I vampire"); + // * if reflex saving throw fails no blindness + if (!ReflexSave(oTarget, (nDC), SAVING_THROW_TYPE_SPELL)) + { + effect eDead = PRCEffectDamage(oTarget, GetCurrentHitPoints(oTarget)); + //SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_FLAME_M), oTarget); + + //Apply epicenter explosion on caster + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eExplode, oTarget); + + DelayCommand(0.5, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDead, oTarget)); + bDoNotDoDamage = TRUE; + } + } + if (bDoNotDoDamage == FALSE) + //Adjust the damage based on the Reflex Save, Evasion and Improved Evasion. + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, PRCGetSaveDC(oTarget, OBJECT_SELF), SAVING_THROW_TYPE_SPELL); + + // * Do damage + if ((nDamage > 0) && (bDoNotDoDamage == FALSE)) + { + //Set the damage effect + eDam = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_MAGICAL); + + // Apply effects to the currently selected target. + DelayCommand(0.01, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget)); + PRCBonusDamage(oTarget); + + + + // * if reflex saving throw fails apply blindness + if (!ReflexSave(oTarget, PRCGetSaveDC(oTarget, OBJECT_SELF), SAVING_THROW_TYPE_SPELL)) + { + effect eBlindness = EffectBlindness(); + SPApplyEffectToObject(DURATION_TYPE_PERMANENT, eBlindness, oTarget,0.0f,TRUE,-1,CasterLvl); + } + + } // nDamage > 0 + } + + //----------------------------------------------------------------- + // GZ: Bugfix, reenable damage for next object + //----------------------------------------------------------------- + bDoNotDoDamage = FALSE; + } + //Select the next target within the spell shape. + oTarget = MyNextObjectInShape(SHAPE_SPHERE, nSize, lTarget, TRUE, OBJECT_TYPE_CREATURE); + } + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Erasing the variable used to store the spell's spell school + +} + + + + + diff --git a/_haks/poa_exp_spells/x2_s0_acidbrth.ncs b/_haks/poa_exp_spells/x2_s0_acidbrth.ncs new file mode 100644 index 0000000..2051701 Binary files /dev/null and b/_haks/poa_exp_spells/x2_s0_acidbrth.ncs differ diff --git a/_haks/poa_exp_spells/x2_s0_acidbrth.nss b/_haks/poa_exp_spells/x2_s0_acidbrth.nss new file mode 100644 index 0000000..7b726b7 --- /dev/null +++ b/_haks/poa_exp_spells/x2_s0_acidbrth.nss @@ -0,0 +1,88 @@ +//:://///////////////////////////////////////////// +//:: Mestil's Acid Breath +//:: X2_S0_AcidBrth +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* +// You breathe forth a cone of acidic droplets. The +// cone inflicts 1d6 points of acid damage per caster +// level (maximum 10d6). +*/ +//::////////////////////////////////////////////// +//:: Created By: Andrew Nobbs +//:: Created On: Nov, 22 2002 +//::////////////////////////////////////////////// +//float SpellDelay (object oTarget, int nShape); +//:: modified by mr_bumpkin Dec 4, 2003 for prc stuff +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + //Declare major variables + object oCaster = OBJECT_SELF; + location lTargetLocation = PRCGetSpellTargetLocation(); + int nCasterLevel = PRCGetCasterLevel(oCaster); + int nPenetr = nCasterLevel + SPGetPenetr(); + int nMetaMagic = PRCGetMetaMagicFeat(); + int EleDmg = ChangedElementalDamage(oCaster, DAMAGE_TYPE_ACID); + int nSaveType = ChangedSaveType(EleDmg); + int nDamage; + float fDelay; + + //Limit Caster level for the purposes of damage. + if(nCasterLevel > 20) + nCasterLevel = 20; + + //Declare the spell shape, size and the location. Capture the first target object in the shape. + object oTarget = MyFirstObjectInShape(SHAPE_SPELLCONE, 11.0, lTargetLocation, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + //Cycle through the targets within the spell shape until an invalid object is captured. + while(GetIsObjectValid(oTarget)) + { + if(spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, oCaster) && oTarget != oCaster) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oCaster, SPELL_MESTILS_ACID_BREATH)); + //Get the distance between the target and caster to delay the application of effects + fDelay = GetDistanceBetween(oCaster, oTarget)/20.0; + //Make SR check, and appropriate saving throw(s). + if(!PRCDoResistSpell(oCaster, oTarget, nPenetr, fDelay)) + { + //Detemine damage + nDamage = d6(nCasterLevel); + //Enter Metamagic conditions + if(nMetaMagic & METAMAGIC_MAXIMIZE) + nDamage = 6 * nCasterLevel;//Damage is at max + if(nMetaMagic & METAMAGIC_EMPOWER) + nDamage = nDamage + (nDamage/2); //Damage/Healing is +50% + // Acid Sheath adds +1 damage per die to acid descriptor spells + if (GetHasDescriptor(GetSpellId(), DESCRIPTOR_ACID) && GetHasSpellEffect(SPELL_MESTILS_ACID_SHEATH, oCaster)) + nDamage += nCasterLevel; + + int nDC = PRCGetSaveDC(oTarget, oCaster); + + //Adjust damage according to Reflex Save, Evasion or Improved Evasion + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nDC, nSaveType); + + if(nDamage > 0) + { + // Apply effects to the currently selected target. + effect eAcid = PRCEffectDamage(oTarget, nDamage, EleDmg); + effect eVis = EffectVisualEffect(VFX_IMP_ACID_L); + + //Apply delayed effects + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eAcid, oTarget)); + PRCBonusDamage(oTarget); + } + } + } + //Select the next target within the spell shape. + oTarget = MyNextObjectInShape(SHAPE_SPELLCONE, 11.0, lTargetLocation, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + } + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/x2_s0_acidshth.ncs b/_haks/poa_exp_spells/x2_s0_acidshth.ncs new file mode 100644 index 0000000..8fc0a02 Binary files /dev/null and b/_haks/poa_exp_spells/x2_s0_acidshth.ncs differ diff --git a/_haks/poa_exp_spells/x2_s0_acidshth.nss b/_haks/poa_exp_spells/x2_s0_acidshth.nss new file mode 100644 index 0000000..8f05632 --- /dev/null +++ b/_haks/poa_exp_spells/x2_s0_acidshth.nss @@ -0,0 +1,78 @@ +//:://///////////////////////////////////////////// +//:: Mestil's Acid Sheath +//:: X2_S0_AcidShth +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + This spell creates an acid shield around your + person. Any creature striking you with its body + does normal damage, but at the same time the + attacker takes 1d6 points +2 points per caster + level of acid damage. Weapons with exceptional + reach do not endanger thier uses in this way. +*/ +//::////////////////////////////////////////////// +//:: Created By: Preston Watamaniuk +//:: Created On: Jan 7, 2002 +//:: 2003-07-07: Stacking Spell Pass, Georg Zoeller +//::////////////////////////////////////////////// + +//:: modified by mr_bumpkin Dec 4, 2003 for prc stuff + +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_CONJURATION); +/* + Spellcast Hook Code + Added 2003-07-07 by Georg Zoeller + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + + //Declare major variables + effect eVis = EffectVisualEffect(448); + int nDuration = PRCGetCasterLevel(OBJECT_SELF); + int nDamage = min(nDuration * 2, 40); + int nMetaMagic = PRCGetMetaMagicFeat(); + object oTarget = OBJECT_SELF; + effect eShield = EffectDamageShield(nDamage, 0, ChangedElementalDamage(OBJECT_SELF, DAMAGE_TYPE_ACID)); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE); + + //Link effects + effect eLink = EffectLinkEffects(eShield, eDur); + eLink = EffectLinkEffects(eLink, eVis); + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, GetSpellId(), FALSE)); + + //Enter Metamagic conditions + if (CheckMetaMagic(nMetaMagic, METAMAGIC_EXTEND)) + { + nDuration = nDuration *2; //Duration is +100% + } + + // 2003-07-07: Stacking Spell Pass, Georg + PRCRemoveEffectsFromSpell(oTarget, GetSpellId()); + + //Apply the VFX impact and effects + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration)); + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Erasing the variable used to store the spell's spell school + +} + diff --git a/_haks/poa_exp_spells/x2_s0_balllghtng.ncs b/_haks/poa_exp_spells/x2_s0_balllghtng.ncs new file mode 100644 index 0000000..67b2f0b Binary files /dev/null and b/_haks/poa_exp_spells/x2_s0_balllghtng.ncs differ diff --git a/_haks/poa_exp_spells/x2_s0_balllghtng.nss b/_haks/poa_exp_spells/x2_s0_balllghtng.nss new file mode 100644 index 0000000..c43a23c --- /dev/null +++ b/_haks/poa_exp_spells/x2_s0_balllghtng.nss @@ -0,0 +1,45 @@ +//:://///////////////////////////////////////////// +//:: Isaacs Lesser Missile Storm +//:: x0_s0_MissStorm1 +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Up to 10 missiles, each doing 1d6 damage to all + targets in area. +*/ +//::////////////////////////////////////////////// +//:: Created By: Brent +//:: Created On: July 31, 2002 +//::////////////////////////////////////////////// +//:: Last Updated By: + +//:: modified by mr_bumpkin Dec 4, 2003 for prc stuff +#include "spinc_bolt" +#include "prc_add_spell_dc" +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION); + /* + Spellcast Hook Code + Added 2003-06-20 by Georg + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + */ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + + // End of Spell Cast Hook + + //SpawnScriptDebugger(); 503 + PRCDoMissileStorm(1, 40, GetSpellId(), 503,VFX_IMP_LIGHTNING_S ,ChangedElementalDamage(OBJECT_SELF, DAMAGE_TYPE_ELECTRICAL)); + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Erasing the variable used to store the spell's spell school + +} diff --git a/_haks/poa_exp_spells/x2_s0_combust.ncs b/_haks/poa_exp_spells/x2_s0_combust.ncs new file mode 100644 index 0000000..19afbc5 Binary files /dev/null and b/_haks/poa_exp_spells/x2_s0_combust.ncs differ diff --git a/_haks/poa_exp_spells/x2_s0_combust.nss b/_haks/poa_exp_spells/x2_s0_combust.nss new file mode 100644 index 0000000..cdc2287 --- /dev/null +++ b/_haks/poa_exp_spells/x2_s0_combust.nss @@ -0,0 +1,145 @@ +/* + x2_s0_combust + + The initial eruption of flame causes 2d6 fire damage +1 + point per caster level(maximum +10) + with no saving throw. + + Further, the creature must make + a Reflex save or catch fire taking a further 1d6 points + of damage. This will continue until the Reflex save is + made. + + There is an undocumented artificial limit of + 10 + casterlevel rounds on this spell to prevent + it from running indefinitly when used against + fire resistant creatures with bad saving throws + + By: Georg Zoeller + Created: 2003/09/05 + Modified: Jun 30, 2006 +*/ + +#include "prc_sp_func" +#include "x2_inc_toollib" +#include "prc_add_spell_dc" +void RunCombustImpact(object oTarget, object oCaster, int nLevel, int nMetaMagic,int EleDmg) +{ + if (PRCGetDelayedSpellEffectsExpired(SPELL_COMBUST,oTarget,oCaster)) return; + + if (GetIsDead(oTarget) == FALSE) + { + int nDC = GetLocalInt(oTarget,"XP2_L_SPELL_SAVE_DC_" + IntToString (SPELL_COMBUST)); + if(!PRCMySavingThrow(SAVING_THROW_REFLEX, oTarget, nDC, SAVING_THROW_TYPE_FIRE)) + { + int nDamageLimit = nLevel; + if (nDamageLimit > 20) nDamageLimit = 20; + int nDamage = nDamageLimit + d6(); + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDamage = nDamageLimit + 6; + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDamage = nDamage + (nDamage/2); + } + + effect eDmg = PRCEffectDamage(oTarget, nDamage,EleDmg); + effect eVFX = EffectVisualEffect(VFX_IMP_FLAME_S); + + SPApplyEffectToObject(DURATION_TYPE_INSTANT,eDmg,oTarget); + PRCBonusDamage(oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT,eVFX,oTarget); + + DelayCommand(6.0f,RunCombustImpact(oTarget,oCaster, nLevel,nMetaMagic,EleDmg)); + } + else + { + DeleteLocalInt(oTarget,"XP2_L_SPELL_SAVE_DC_" + IntToString (SPELL_COMBUST)); + GZPRCRemoveSpellEffects(SPELL_COMBUST, oTarget); + } + } +} + +//Implements the spell impact, put code here +// if called in many places, return TRUE if +// stored charges should be decreased +// eg. touch attack hits +// +// Variables passed may be changed if necessary +int DoSpell(object oCaster, object oTarget, int nCasterLevel, int nEvent) +{ + int nDC = (PRCGetSaveDC(oTarget,oCaster)); + int EleDmg = ChangedElementalDamage(oCaster, DAMAGE_TYPE_FIRE); + int nDamageLimit = nCasterLevel; + if (nDamageLimit > 20) + { + nDamageLimit = 20; + } + int nDamage = nDamageLimit + d6(2); + int nMetaMagic = PRCGetMetaMagicFeat(); + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDamage = nDamageLimit + 12;//Damage is at max + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDamage += nDamage / 2;//Damage/Healing is +50% + } + //nDamage += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF); + int nDuration = 10 + nCasterLevel; + if (nDuration < 1) + { + nDuration = 10; + } + effect eDam = PRCEffectDamage(oTarget, nDamage, EleDmg); + effect eDur = EffectVisualEffect(498); + + if(!GetIsReactionTypeFriendly(oTarget)) + { + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_COMBUST)); + if(!PRCDoResistSpell(OBJECT_SELF, oTarget,nCasterLevel+SPGetPenetr())) + { + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + TLVFXPillar(VFX_IMP_FLAME_M, GetLocation(oTarget), 5, 0.1f,0.0f, 2.0f); + if (GetHasSpellEffect(GetSpellId(),oTarget) || GetHasSpellEffect(SPELL_INFERNO,oTarget) ) + { + FloatingTextStrRefOnCreature(100775,oCaster,FALSE); + return TRUE; + } + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eDur, oTarget, RoundsToSeconds(nDuration)); + SetLocalInt(oTarget,"XP2_L_SPELL_SAVE_DC_" + IntToString (SPELL_COMBUST), nDC); + DelayCommand(6.0, RunCombustImpact(oTarget,oCaster,nCasterLevel, nMetaMagic,EleDmg)); + } + } + + return TRUE; //return TRUE if spell charges should be decremented +} + +void main() +{ + object oCaster = OBJECT_SELF; + int nCasterLevel = PRCGetCasterLevel(oCaster); + PRCSetSchool(GetSpellSchool(PRCGetSpellId())); + if (!X2PreSpellCastCode()) return; + object oTarget = PRCGetSpellTargetObject(); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if(GetLocalInt(oCaster, PRC_SPELL_HOLD) && oCaster == oTarget) + { //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + DoSpell(oCaster, oTarget, nCasterLevel, nEvent); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel, nEvent)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/x2_s0_crumble.ncs b/_haks/poa_exp_spells/x2_s0_crumble.ncs new file mode 100644 index 0000000..a362f93 Binary files /dev/null and b/_haks/poa_exp_spells/x2_s0_crumble.ncs differ diff --git a/_haks/poa_exp_spells/x2_s0_crumble.nss b/_haks/poa_exp_spells/x2_s0_crumble.nss new file mode 100644 index 0000000..24895a8 --- /dev/null +++ b/_haks/poa_exp_spells/x2_s0_crumble.nss @@ -0,0 +1,123 @@ +//:://///////////////////////////////////////////// +//:: Crumble +//:: X2_S0_Crumble +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* +// This spell inflicts 1d6 points of damage per +// caster level to Constructs to a maximum of 15d6. +// This spell does not affect living creatures. +*/ +//::////////////////////////////////////////////// +//:: Created By: Georg Zoeller +//:: Created On: Oct 2003/ +//::////////////////////////////////////////////// +// +// 2/25/2004 - bleedingedge - Removed SR check per bioware 1.62 change. +// +//:: modified by mr_bumpkin Dec 4, 2003 for prc stuff +#include "prc_inc_spells" + +#include "prc_alterations" +#include "prc_add_spell_dc" + + +void DoCrumble (int nDam, object oCaster, object oTarget); + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_TRANSMUTATION); + + /* + Spellcast Hook Code + Added 2003-07-07 by Georg Zoeller + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + + */ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + // End of Spell Cast Hook + + object oCaster = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nCasterLvl =PRCGetCasterLevel(oCaster); + int nType = GetObjectType(oTarget); + int nRacial = MyPRCGetRacialType(oTarget); + int nMetaMagic = PRCGetMetaMagicFeat(); + + //Minimum caster level of 1, maximum of 15. + if(nCasterLvl == 0) + { + nCasterLvl = 1; + } + else if (nCasterLvl > 40) + { + nCasterLvl = 40; + } + + SignalEvent(oTarget, EventSpellCastAt(oCaster, GetSpellId())); + effect eCrumb = EffectVisualEffect(VFX_FNF_SCREEN_SHAKE); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eCrumb, oTarget); + + if (nType != OBJECT_TYPE_CREATURE && nType != OBJECT_TYPE_PLACEABLE && nType != OBJECT_TYPE_DOOR ) + { + return; + } + + if (MyPRCGetRacialType(oTarget) != RACIAL_TYPE_CONSTRUCT && GetLevelByClass(CLASS_TYPE_CONSTRUCT,oTarget) == 0) + { + return; + } + + int nDam = d6(nCasterLvl); + + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDam = 6*nCasterLvl; + } + + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDam = nDam + nDam/2; + } + //nDam += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF); + + if (nDam>0) + { + //---------------------------------------------------------------------- + // * Sever the tie between spellId and effect, allowing it to + // * bypass any magic resistance + //---------------------------------------------------------------------- + DelayCommand(0.1f,DoCrumble(nDam, oCaster, oTarget)); + } + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Erasing the variable used to store the spell's spell school +} + +//------------------------------------------------------------------------------ +// This part is moved into a delayed function in order to alllow it to bypass +// Golem Spell Immunity. Magic works by rendering all effects applied +// from within a spellscript useless. Delaying the creation and application of +// an effect causes it to loose it's SpellId, making it possible to ignore +// Magic Immunity. Hacktastic! +//------------------------------------------------------------------------------ +void DoCrumble (int nDam, object oCaster, object oTarget) +{ + float fDist = GetDistanceBetween(oCaster, oTarget); + float fDelay = fDist/(3.0 * log(fDist) + 2.0); + effect eDam = PRCEffectDamage(oTarget, nDam, ChangedElementalDamage(oCaster, DAMAGE_TYPE_SONIC)); + effect eMissile = EffectVisualEffect(477); + effect eCrumb = EffectVisualEffect(VFX_FNF_SCREEN_SHAKE); + effect eVis = EffectVisualEffect(135); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eCrumb, oTarget); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eVis, oTarget)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget)); + DelayCommand(0.5f, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eMissile, oTarget)); +} diff --git a/_haks/poa_exp_spells/x2_s0_cureother.ncs b/_haks/poa_exp_spells/x2_s0_cureother.ncs new file mode 100644 index 0000000..30ff219 Binary files /dev/null and b/_haks/poa_exp_spells/x2_s0_cureother.ncs differ diff --git a/_haks/poa_exp_spells/x2_s0_cureother.nss b/_haks/poa_exp_spells/x2_s0_cureother.nss new file mode 100644 index 0000000..fc16a63 --- /dev/null +++ b/_haks/poa_exp_spells/x2_s0_cureother.nss @@ -0,0 +1,135 @@ +//:://///////////////////////////////////////////// +//:: x2_s0_cureother +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Cure Critical Wounds on Others - causes 5 points + of damage to the spell caster as well. +*/ +//::////////////////////////////////////////////// +//:: Created By: Keith Warner +//:: Created On: Jan 2/03 +//::////////////////////////////////////////////// + +//:: modified by mr_bumpkin Dec 4, 2003 for prc stuff + +#include "prc_inc_sp_tch" +#include "prc_inc_function" +#include "prc_add_spell_dc" + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_CONJURATION); + + /* + Spellcast Hook Code + Added 2003-07-07 by Georg Zoeller + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + + */ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + + // End of Spell Cast Hook + + + //Declare major variables + object oTarget = PRCGetSpellTargetObject(); + int nHeal; + int nDamage = d8(4); + int nMetaMagic = PRCGetMetaMagicFeat(); + effect eVis = EffectVisualEffect(VFX_IMP_SUNSTRIKE); + effect eVis2 = EffectVisualEffect(VFX_IMP_SUPER_HEROISM); + effect eHeal, eDam; + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + + int nExtraDamage = CasterLvl; // * figure out the bonus damage + if (nExtraDamage > 40) + { + nExtraDamage = 40; + } + // * if low or normal difficulty is treated as MAXIMIZED + if(GetIsPC(oTarget) && GetGameDifficulty() < GAME_DIFFICULTY_CORE_RULES) + { + nDamage = 32 + nExtraDamage; + } + else + { + nDamage = nDamage + nExtraDamage; + } + + CasterLvl +=SPGetPenetr(); + //Make metamagic checks + int iBlastFaith = BlastInfidelOrFaithHeal(OBJECT_SELF, oTarget, DAMAGE_TYPE_POSITIVE, TRUE); + if ((nMetaMagic & METAMAGIC_MAXIMIZE) || iBlastFaith) + { + nDamage = 32 + nExtraDamage; + // * if low or normal difficulty then MAXMIZED is doubled. + if(GetIsPC(OBJECT_SELF) && GetGameDifficulty() < GAME_DIFFICULTY_CORE_RULES) + { + nDamage = nDamage + nExtraDamage; + } + } + if (nMetaMagic & METAMAGIC_EMPOWER) + { + nDamage = nDamage + (nDamage/2); + } + + + if (MyPRCGetRacialType(oTarget) != RACIAL_TYPE_UNDEAD + && !(GetHasFeat(FEAT_TOMB_TAINTED_SOUL, oTarget) && GetAlignmentGoodEvil(oTarget) != ALIGNMENT_GOOD)) + { + if (oTarget != OBJECT_SELF) + { + //Figure out the amount of damage to heal + nHeal = nDamage; + //Set the heal effect + eHeal = PRCEffectHeal(nHeal, oTarget); + //Apply heal effect and VFX impact + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eHeal, oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis2, oTarget); + + //Apply Damage Effect to the Caster + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, 5), OBJECT_SELF); + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, 31, FALSE)); + } + + } + //Check that the target is undead + else + { + int nTouch = PRCDoMeleeTouchAttack(oTarget);; + if (nTouch > 0) + { + if(!GetIsReactionTypeFriendly(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, 31)); + if (!PRCDoResistSpell(OBJECT_SELF, oTarget,CasterLvl)) + { + eDam = PRCEffectDamage(oTarget, nDamage,DAMAGE_TYPE_NEGATIVE); + //Apply the VFX impact and effects + DelayCommand(1.0, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget)); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + } + } + //Apply Damage Effect to the Caster + SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, 5), OBJECT_SELF); + } + } + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Erasing the variable used to store the spell's spell school +} + + + + diff --git a/_haks/poa_exp_spells/x2_s0_dtharm.ncs b/_haks/poa_exp_spells/x2_s0_dtharm.ncs new file mode 100644 index 0000000..6991782 Binary files /dev/null and b/_haks/poa_exp_spells/x2_s0_dtharm.ncs differ diff --git a/_haks/poa_exp_spells/x2_s0_dtharm.nss b/_haks/poa_exp_spells/x2_s0_dtharm.nss new file mode 100644 index 0000000..aa563e3 --- /dev/null +++ b/_haks/poa_exp_spells/x2_s0_dtharm.nss @@ -0,0 +1,54 @@ +//:://///////////////////////////////////////////// +//:: Death Armor +//:: X2_S0_DthArm +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + You are surrounded with a magical aura that injures + creatures that contact it. Any creature striking + you with its body or handheld weapon takes 1d4 points + of damage +1 point per 2 caster levels (maximum +5). +*/ +//::////////////////////////////////////////////// +//:: Created By: Andrew Nobbs +//:: Created On: Jan 6, 2003 +//::////////////////////////////////////////////// +//:: Last Updated By: Andrew Nobbs, 02/06/2003 +//:: 2003-07-07: Stacking Spell Pass, Georg Zoeller + +//:: modified by mr_bumpkin Dec 4, 2003 for prc stuff +#include "prc_inc_spells" +//#include "prc_add_spell_dc" + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_NECROMANCY); + + object oCaster = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + + int nDuration = PRCGetCasterLevel(oCaster); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nCasterLvl = nDuration/2; + if(nCasterLvl > 20) + nCasterLvl = 20; + + effect eLink = EffectDamageShield(nCasterLvl, DAMAGE_BONUS_1d4, DAMAGE_TYPE_MAGICAL); + eLink = EffectLinkEffects(eLink, EffectVisualEffect(463)); + + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oCaster, SPELL_DEATH_ARMOR, FALSE)); + + //Enter Metamagic conditions + if(nMetaMagic & METAMAGIC_EXTEND) + nDuration *= 2; + + //Stacking Spellpass, 2003-07-07, Georg + PRCRemoveEffectsFromSpell(oTarget, SPELL_DEATH_ARMOR); + + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration)); + + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/x2_s0_elecloop.ncs b/_haks/poa_exp_spells/x2_s0_elecloop.ncs new file mode 100644 index 0000000..c565d07 Binary files /dev/null and b/_haks/poa_exp_spells/x2_s0_elecloop.ncs differ diff --git a/_haks/poa_exp_spells/x2_s0_elecloop.nss b/_haks/poa_exp_spells/x2_s0_elecloop.nss new file mode 100644 index 0000000..3523aff --- /dev/null +++ b/_haks/poa_exp_spells/x2_s0_elecloop.nss @@ -0,0 +1,163 @@ +//:://///////////////////////////////////////////// +//:: Gedlee's Electric Loop +//:: X2_S0_ElecLoop +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + You create a small stroke of lightning that + cycles through all creatures in the area of effect. + The spell deals 1d6 points of damage per 2 caster + levels (maximum 5d6). Those who fail their Reflex + saves must succeed at a Will save or be stunned + for 1 round. + + Spell is standard hostile, so if you use it + in hardcore mode, it will zap yourself! + +*/ +//::////////////////////////////////////////////// +//:: Created By: Georg Zoeller +//:: Created On: Oct 19 2003 +//::////////////////////////////////////////////// + +//:: modified by mr_bumpkin Dec 4, 2003 for prc stuff +#include "prc_inc_spells" + + + +#include "prc_add_spell_dc" + + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION); + + //-------------------------------------------------------------------------- + // Spellcast Hook Code + // Added 2003-06-20 by Georg + // If you want to make changes to all spells, check x2_inc_spellhook.nss to + // find out more + //-------------------------------------------------------------------------- + if (!X2PreSpellCastCode()) + { + return; + } + // End of Spell Cast Hook + + + location lTarget = PRCGetSpellTargetLocation(); + effect eStrike = EffectVisualEffect(VFX_IMP_LIGHTNING_S); + int nMetaMagic = PRCGetMetaMagicFeat(); + float fDelay; + effect eBeam; + int nDamage; + int nPotential; + effect eDam; + object oLastValid; + effect eStun = EffectLinkEffects(EffectVisualEffect(VFX_IMP_STUN),EffectStunned()); + + //-------------------------------------------------------------------------- + // Calculate Damage Dice. 1d per 2 caster levels, max 5d + //-------------------------------------------------------------------------- + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + + + + int EleDmg = ChangedElementalDamage(OBJECT_SELF, DAMAGE_TYPE_ELECTRICAL); + + int nNumDice = CasterLvl/2; + if (nNumDice<1) + { + nNumDice = 1; + } + else if (nNumDice >20) + { + nNumDice = 20; + } + + CasterLvl +=SPGetPenetr(); + + //-------------------------------------------------------------------------- + // Loop through all targets + //-------------------------------------------------------------------------- + + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_SMALL, lTarget, TRUE, OBJECT_TYPE_CREATURE); + while (GetIsObjectValid(oTarget)) + { + if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF)) + { + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, PRCGetSpellId())); + + //------------------------------------------------------------------ + // Calculate delay until spell hits current target. If we are the + // first target, the delay is the time until the spell hits us + //------------------------------------------------------------------ + if (GetIsObjectValid(oLastValid)) + { + fDelay += 0.2f; + fDelay += GetDistanceBetweenLocations(GetLocation(oLastValid), GetLocation(oTarget))/20; + } + else + { + fDelay = GetDistanceBetweenLocations(lTarget, GetLocation(oTarget))/20; + } + + //------------------------------------------------------------------ + // If there was a previous target, draw a lightning beam between us + // and iterate delay so it appears that the beam is jumping from + // target to target + //------------------------------------------------------------------ + if (GetIsObjectValid(oLastValid)) + { + eBeam = EffectBeam(VFX_BEAM_LIGHTNING, oLastValid, BODY_NODE_CHEST); + DelayCommand(fDelay,SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eBeam,oTarget,1.5f)); + } + + if (!PRCDoResistSpell(OBJECT_SELF, oTarget,CasterLvl, fDelay)) + { + + int nDC = PRCGetSaveDC(oTarget,OBJECT_SELF); + nPotential = PRCMaximizeOrEmpower(6, nNumDice, nMetaMagic); + //nPotential += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF); + nDamage = PRCGetReflexAdjustedDamage(nPotential, oTarget, (nDC), SAVING_THROW_TYPE_ELECTRICITY); + + //-------------------------------------------------------------- + // If we failed the reflex save, we save vs will or are stunned + // for one round + //-------------------------------------------------------------- + if (nPotential == nDamage || (GetHasFeat(FEAT_IMPROVED_EVASION,oTarget) && nDamage == (nPotential/2))) + { + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, (nDC), SAVING_THROW_TYPE_MIND_SPELLS, OBJECT_SELF, fDelay)) + { + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_TEMPORARY,eStun,oTarget, RoundsToSeconds(1))); + } + + } + + + if (nDamage >0) + { + eDam = PRCEffectDamage(oTarget, nDamage, EleDmg); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget)); + PRCBonusDamage(oTarget); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eStrike, oTarget)); + } + } + + //------------------------------------------------------------------ + // Store Target to make it appear that the lightning bolt is jumping + // from target to target + //------------------------------------------------------------------ + oLastValid = oTarget; + + } + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_SMALL, lTarget, TRUE, OBJECT_TYPE_CREATURE ); + } + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Erasing the variable used to store the spell's spell school + +} + + diff --git a/_haks/poa_exp_spells/x2_s0_horiboom.ncs b/_haks/poa_exp_spells/x2_s0_horiboom.ncs new file mode 100644 index 0000000..112f289 Binary files /dev/null and b/_haks/poa_exp_spells/x2_s0_horiboom.ncs differ diff --git a/_haks/poa_exp_spells/x2_s0_horiboom.nss b/_haks/poa_exp_spells/x2_s0_horiboom.nss new file mode 100644 index 0000000..c368f6a --- /dev/null +++ b/_haks/poa_exp_spells/x2_s0_horiboom.nss @@ -0,0 +1,115 @@ +//:://///////////////////////////////////////////// +//:: Horizikaul's Boom +//:: X2_S0_HoriBoom +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* +// You blast the target with loud and high-pitched +// sounds. The target takes 1d4 points of sonic +// damage per two caster levels (maximum 5d4) and +// must make a Will save or be deafened for 1d4 +// rounds. +*/ +//::////////////////////////////////////////////// +//:: Created By: Andrew Nobbs +//:: Created On: Nov 22, 2002 +//::////////////////////////////////////////////// +//:: Last Updated By: Andrew Nobbs, 02/06/2003 + + +//:: altered by mr_bumpkin Dec 4, 2003 for prc stuff +#include "prc_inc_spells" + + + +#include "prc_add_spell_dc" + +void main() +{ +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION); +/* + Spellcast Hook Code + Added 2003-07-07 by Georg Zoeller + If you want to make changes to all spells, + check x2_inc_spellhook.nss to find out more + +*/ + + if (!X2PreSpellCastCode()) + { + // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell + return; + } + +// End of Spell Cast Hook + + + //Declare major variables ( fDist / (3.0f * log( fDist ) + 2.0f) ) + object oTarget = PRCGetSpellTargetObject(); + int CasterLvl = PRCGetCasterLevel(OBJECT_SELF); + + int nCasterLvl = CasterLvl/2; + int nRounds = d4(1); + int nMetaMagic = PRCGetMetaMagicFeat(); + effect eVis = EffectVisualEffect(VFX_IMP_SONIC); + effect eDeaf = EffectDeaf(); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); + effect eLink = EffectLinkEffects(eDeaf, eDur); + + //Minimum caster level of 1, maximum of 15. + if(nCasterLvl == 0) + { + nCasterLvl = 1; + } + else if (nCasterLvl > 20) + { + nCasterLvl = 20; + } + + CasterLvl +=SPGetPenetr(); + + if(spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF)) + { + if(!PRCDoResistSpell(OBJECT_SELF, oTarget,CasterLvl)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_HORIZIKAULS_BOOM)); + //Roll damage + int nDam = d4(nCasterLvl); + //Enter Metamagic conditions + if ((nMetaMagic & METAMAGIC_MAXIMIZE)) + { + nDam = 4 * nCasterLvl; //Damage is at max + } + if ((nMetaMagic & METAMAGIC_EMPOWER)) + { + nDam = nDam + nDam/2; //Damage/Healing is +50% + } + if(nMetaMagic & METAMAGIC_EXTEND) + { + nRounds *= 2; + } + //nDam += ApplySpellBetrayalStrikeDamage(oTarget, OBJECT_SELF, FALSE); + //Set damage effect + effect eDam = PRCEffectDamage(oTarget, nDam, ChangedElementalDamage(OBJECT_SELF, DAMAGE_TYPE_SONIC)); + //Apply the MIRV and damage effect + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget); + PRCBonusDamage(oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + + //Should not work on creatures already deafened or silenced + if(!PRCGetHasEffect(EFFECT_TYPE_DEAF, oTarget) && !PRCGetHasEffect(EFFECT_TYPE_SILENCE, oTarget)) + { + if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, (PRCGetSaveDC(oTarget,OBJECT_SELF)), SAVING_THROW_TYPE_MIND_SPELLS)) + { + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eDeaf, oTarget, RoundsToSeconds(nRounds)); + } + } + } + } + + +DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR"); +// Erasing the variable used to store the spell's spell school +} diff --git a/_haks/poa_exp_spells/x2_s0_icedagg.ncs b/_haks/poa_exp_spells/x2_s0_icedagg.ncs new file mode 100644 index 0000000..055038a Binary files /dev/null and b/_haks/poa_exp_spells/x2_s0_icedagg.ncs differ diff --git a/_haks/poa_exp_spells/x2_s0_icedagg.nss b/_haks/poa_exp_spells/x2_s0_icedagg.nss new file mode 100644 index 0000000..24f6115 --- /dev/null +++ b/_haks/poa_exp_spells/x2_s0_icedagg.nss @@ -0,0 +1,74 @@ +//:://///////////////////////////////////////////// +//:: Ice Dagger +//:: X2_S0_IceDagg +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* +// You create a dagger shapped piece of ice that +// flies toward the target and deals 1d4 points of +// cold damage per level (maximum od 5d4) +*/ +//::////////////////////////////////////////////// +//:: Created By: Andrew Nobbs +//:: Created On: Nov 25 , 2002 +//::////////////////////////////////////////////// +//:: Last Updated By: Andrew Nobbs, 02/06/2003 +//:: altered by mr_bumpkin Dec 4, 2003 for prc stuff +#include "prc_inc_sp_tch" +#include "prc_add_spell_dc" + +void main() +{ + if (!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_CONJURATION); + + //Declare major variables + object oCaster = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + location lTarget = PRCGetSpellTargetLocation(); + int nCasterLvl = PRCGetCasterLevel(oCaster); + int nPenetr = nCasterLvl + SPGetPenetr(); + int nDice = min(nCasterLvl, 20); + int nMetaMagic = PRCGetMetaMagicFeat(); + int EleDmg = ChangedElementalDamage(oCaster, DAMAGE_TYPE_COLD); + int nSaveType = ChangedSaveType(EleDmg); + effect eVis = EffectVisualEffect(VFX_IMP_FROST_S); + + if(!GetIsReactionTypeFriendly(oTarget)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oCaster, SPELL_ICE_DAGGER)); + //Get the distance between the explosion and the target to calculate delay + float fDelay = GetDistanceBetweenLocations(lTarget, GetLocation(oTarget))/20; + + int iAttackRoll = PRCDoRangedTouchAttack(oTarget); + if(iAttackRoll > 0) + { + if(!PRCDoResistSpell(oCaster, oTarget, nPenetr, fDelay)) + { + //Roll damage for each target + int nDamage = d4(nDice); + //Resolve metamagic + if(nMetaMagic & METAMAGIC_MAXIMIZE) + nDamage = 4 * nDice; + if(nMetaMagic & METAMAGIC_EMPOWER) + nDamage += nDamage / 2; + + //Adjust the damage based on the Reflex Save, Evasion and Improved Evasion. + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, (PRCGetSaveDC(oTarget, oCaster)), nSaveType); + + if(nDamage) + { + //This visual effect is applied to the target object not the location as above. This visual effect + //represents the flame that erupts on the target not on the ground. + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + + ApplyTouchAttackDamage(oCaster, oTarget, iAttackRoll, nDamage, EleDmg); + PRCBonusDamage(oTarget); + } + } + } + } + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/x2_s0_magcvest.ncs b/_haks/poa_exp_spells/x2_s0_magcvest.ncs new file mode 100644 index 0000000..ad350fc Binary files /dev/null and b/_haks/poa_exp_spells/x2_s0_magcvest.ncs differ diff --git a/_haks/poa_exp_spells/x2_s0_magcvest.nss b/_haks/poa_exp_spells/x2_s0_magcvest.nss new file mode 100644 index 0000000..e8cae0d --- /dev/null +++ b/_haks/poa_exp_spells/x2_s0_magcvest.nss @@ -0,0 +1,81 @@ +/* + x2_s0_magcvest + + Grants a +1 AC bonus to armor touched per 3 caster + levels (maximum of +5). + + By: Andrew Nobbs + Created: Nov 28, 2002 + Modified: Jun 30, 2006 +*/ +#include "prc_sp_func" + +//Implements the spell impact, put code here +// if called in many places, return TRUE if +// stored charges should be decreased +// eg. touch attack hits +// +// Variables passed may be changed if necessary +int DoSpell(object oCaster, object oTarget, int nCasterLevel, int nEvent) +{ + int nAmount = nCasterLevel/3; + if(nAmount < 1) + nAmount = 1; + else if(nAmount > 21) + nAmount = 21; + + float fDuration = HoursToSeconds(nCasterLevel); + int nMetaMagic = PRCGetMetaMagicFeat(); + if(nMetaMagic & METAMAGIC_EXTEND) + fDuration *= 2; //Duration is +100% + + effect eVis = EffectVisualEffect(VFX_IMP_GLOBE_USE); + effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE); + + object oMyArmor = IPGetTargetedOrEquippedArmor(TRUE); + if(GetIsObjectValid(oMyArmor)) + { + if(oTarget == oMyArmor) + oTarget = GetItemPossessor(oMyArmor); + + SignalEvent(oTarget, EventSpellCastAt(oCaster, SPELL_MAGIC_VESTMENT, FALSE)); + + DelayCommand(1.3f, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget)); + SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eDur, oTarget, fDuration); + IPSafeAddItemProperty(oMyArmor, ItemPropertyACBonus(nAmount), fDuration, X2_IP_ADDPROP_POLICY_REPLACE_EXISTING, FALSE, TRUE); + } + else + { + FloatingTextStrRefOnCreature(83826, oCaster, FALSE); + } + + return TRUE; //return TRUE if spell charges should be decremented +} + +void main() +{ + if (!X2PreSpellCastCode()) return; + PRCSetSchool(SPELL_SCHOOL_TRANSMUTATION); + object oCaster = OBJECT_SELF; + object oTarget = PRCGetSpellTargetObject(); + int nCasterLevel = PRCGetCasterLevel(oCaster); + int nEvent = GetLocalInt(oCaster, PRC_SPELL_EVENT); //use bitwise & to extract flags + if(!nEvent) //normal cast + { + if(GetLocalInt(oCaster, PRC_SPELL_HOLD) && oCaster == oTarget) + { //holding the charge, casting spell on self + SetLocalSpellVariables(oCaster, 1); //change 1 to number of charges + return; + } + DoSpell(oCaster, oTarget, nCasterLevel, nEvent); + } + else + { + if(nEvent & PRC_SPELL_EVENT_ATTACK) + { + if(DoSpell(oCaster, oTarget, nCasterLevel, nEvent)) + DecrementSpellCharges(oCaster); + } + } + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/x2_s0_scntsphere.ncs b/_haks/poa_exp_spells/x2_s0_scntsphere.ncs new file mode 100644 index 0000000..8909e28 Binary files /dev/null and b/_haks/poa_exp_spells/x2_s0_scntsphere.ncs differ diff --git a/_haks/poa_exp_spells/x2_s0_scntsphere.nss b/_haks/poa_exp_spells/x2_s0_scntsphere.nss new file mode 100644 index 0000000..242ca0c --- /dev/null +++ b/_haks/poa_exp_spells/x2_s0_scntsphere.nss @@ -0,0 +1,93 @@ +//:://///////////////////////////////////////////// +//:: Scintillating Sphere +//:: X2_S0_ScntSphere +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* +// A scintillating sphere is a burst of electricity +// that detonates with a low roar and inflicts 1d6 +// points of damage per caster level (maximum of 10d6) +// to all creatures within the area. Unattended objects +// also take damage. The explosion creates almost no pressure. +*/ +//::////////////////////////////////////////////// +//:: Created By: Andrew Nobbs +//:: Created On: Nov 25 , 2002 +//::////////////////////////////////////////////// +//:: Last Updated By: Andrew Nobbs, 02/06/2003 +//:: altered by mr_bumpkin Dec 4, 2003 for prc stuff +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void ApplyDamage(object oTarget, effect eDamage) +{ + effect eVis = EffectVisualEffect(VFX_IMP_LIGHTNING_S); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDamage, oTarget); + SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget); + PRCBonusDamage(oTarget); +} + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + //Declare major variables + object oCaster = OBJECT_SELF; + location lTarget = PRCGetSpellTargetLocation(); + int nCasterLvl = PRCGetCasterLevel(oCaster); + int nPenetr = nCasterLvl + SPGetPenetr(); + int nMetaMagic = PRCGetMetaMagicFeat(); + int EleDmg = ChangedElementalDamage(oCaster, DAMAGE_TYPE_ELECTRICAL); + int nSaveType = ChangedSaveType(EleDmg); + int nDamage; + float fDelay; + effect eDam; + + //Limit Caster level for the purposes of damage + if (nCasterLvl > 20) + nCasterLvl = 20; + + //Apply the fireball explosion at the location captured above. + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_ELECTRIC_EXPLOSION), lTarget); + + //Cycle through the targets within the spell shape until an invalid object is captured. + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + while(GetIsObjectValid(oTarget)) + { + if(spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, oCaster)) + { + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oCaster, SPELL_SCINTILLATING_SPHERE)); + + if (!PRCDoResistSpell(oCaster, oTarget, nPenetr, fDelay)) + { + //Roll damage for each target + nDamage = d6(nCasterLvl); + //Resolve metamagic + if(nMetaMagic & METAMAGIC_MAXIMIZE) + nDamage = 6 * nCasterLvl; + if(nMetaMagic & METAMAGIC_EMPOWER) + nDamage += nDamage / 2; + + int nDC = PRCGetSaveDC(oTarget, oCaster); + //Adjust the damage based on the Reflex Save, Evasion and Improved Evasion. + nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nDC, nSaveType); + + if(nDamage > 0) + { + //Get the distance between the explosion and the target to calculate delay + fDelay = GetDistanceBetweenLocations(lTarget, GetLocation(oTarget))/20; + //Set the damage effect + eDam = PRCEffectDamage(oTarget, nDamage, EleDmg); + // Apply effects to the currently selected target. + DelayCommand(fDelay, ApplyDamage(oTarget, eDam)); + } + } + } + //Select the next target within the spell shape. + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE); + } + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/x2_s0_tidebattle.ncs b/_haks/poa_exp_spells/x2_s0_tidebattle.ncs new file mode 100644 index 0000000..a75cce6 Binary files /dev/null and b/_haks/poa_exp_spells/x2_s0_tidebattle.ncs differ diff --git a/_haks/poa_exp_spells/x2_s0_tidebattle.nss b/_haks/poa_exp_spells/x2_s0_tidebattle.nss new file mode 100644 index 0000000..90d84fe --- /dev/null +++ b/_haks/poa_exp_spells/x2_s0_tidebattle.nss @@ -0,0 +1,64 @@ +//:://///////////////////////////////////////////// +//:: Tide of Battle +//:: x2_s0_TideBattle +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* + Uses spell effect to cause d100 damage to + all enemies and friends around pc, including pc. + (Area effect always centered on PC) + Minimum 30 points of damage will be done to each target +*/ +//::////////////////////////////////////////////// +//:: Created By: Keith Warner +//:: Created On: Jan 2/03 +//::////////////////////////////////////////////// +//:: Updated by: Andrew Nobbs +//:: Updated on: March 28, 2003 +//:: altered by mr_bumpkin Dec 4, 2003 for prc stuff +#include "prc_inc_spells" +#include "prc_add_spell_dc" + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_EVOCATION); + + //Declare major variables + object oCaster = OBJECT_SELF; + location lTarget = GetLocation(oCaster); +int nCasterLvl = PRCGetCasterLevel(oCaster); + effect eVis = EffectVisualEffect(VFX_IMP_DEATH_WARD); + effect eVis2 = EffectVisualEffect(VFX_FNF_METEOR_SWARM); + effect eDamage; + effect eLink; + int nDamage; + float fDelay; + + //Apply Spell Effects + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eVis2, lTarget); + + //ApplyDamage and Effects to all targets in area + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, lTarget); + while(GetIsObjectValid(oTarget)) + { + fDelay = PRCGetRandomDelay(); + //Fire cast spell at event for the specified target + SignalEvent(oTarget, EventSpellCastAt(oCaster, GetSpellId())); + nDamage = d100() + nCasterLvl; + if(nDamage < 60) + nDamage = 60; + + //Set damage type and amount + eDamage = PRCEffectDamage(oTarget, nDamage, DAMAGE_TYPE_DIVINE); + //Link visual and damage effects + eLink = EffectLinkEffects(eVis, eDamage); + //Apply effects to oTarget + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eLink, oTarget)); + + //Get next target in shape + oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_COLOSSAL, lTarget); + } + PRCSetSchool(); +} \ No newline at end of file diff --git a/_haks/poa_exp_spells/x2_s0_undeath.ncs b/_haks/poa_exp_spells/x2_s0_undeath.ncs new file mode 100644 index 0000000..63f6419 Binary files /dev/null and b/_haks/poa_exp_spells/x2_s0_undeath.ncs differ diff --git a/_haks/poa_exp_spells/x2_s0_undeath.nss b/_haks/poa_exp_spells/x2_s0_undeath.nss new file mode 100644 index 0000000..f7a2bbe --- /dev/null +++ b/_haks/poa_exp_spells/x2_s0_undeath.nss @@ -0,0 +1,135 @@ +//:://///////////////////////////////////////////// +//:: Undeath to Death +//:: x2_s0_undeath.nss +//:: Copyright (c) 2001 Bioware Corp. +//::////////////////////////////////////////////// +/* +Necromancy +Level: Clr 6, Sor/Wiz 6 +Components: V, S, M/DF +Area: Several undead creatures within + a 40-ft.-radius burst +Saving Throw: Will negates + +This spell functions like circle of death, except +that it destroys undead creatures as noted above. + +Material Component +The powder of a crushed diamond worth at least 500 gp. +*/ +//::////////////////////////////////////////////// +//:: Created By: Georg Zoeller +//:: Created On: August 13,2003 +//::////////////////////////////////////////////// + +//:: altered by mr_bumpkin Dec 4, 2003 for prc stuff + +#include "prc_inc_spells" +#include "prc_add_spell_dc" + + +//const int SRROR_CODE_5_FIX = 1; + +void DoUndeadToDeath(object oCreature, object oCaster, int nPenetr) +{ + SignalEvent(oCreature, EventSpellCastAt(oCaster, SPELL_UNDEATH_TO_DEATH)); + + SetLocalInt(oCreature,"X2_EBLIGHT_I_AM_DEAD", TRUE); + + int nSaveDC = PRCGetSaveDC(oCreature, oCaster); + if(!PRCMySavingThrow(SAVING_THROW_WILL, oCreature, nSaveDC, SAVING_THROW_TYPE_NONE, oCaster)) + { + float fDelay = PRCGetRandomDelay(0.2f,0.4f); + if(!PRCDoResistSpell(oCaster, oCreature, nPenetr, fDelay)) + { + effect eDeath = PRCEffectDamage(oCreature, GetCurrentHitPoints(oCreature), DAMAGE_TYPE_DIVINE, DAMAGE_POWER_ENERGY); + effect eVis = EffectVisualEffect(VFX_IMP_DEATH); + DelayCommand(fDelay+0.5f, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDeath, oCreature)); + DelayCommand(fDelay, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oCreature)); + } + else + { + DelayCommand(1.0f, DeleteLocalInt(oCreature,"X2_EBLIGHT_I_AM_DEAD")); + } + } + else + { + DelayCommand(1.0f, DeleteLocalInt(oCreature,"X2_EBLIGHT_I_AM_DEAD")); + } +} + +void main() +{ + if(!X2PreSpellCastCode()) return; + + PRCSetSchool(SPELL_SCHOOL_NECROMANCY); + + // calculation + object oCaster = OBJECT_SELF; + int nCasterLvl = PRCGetCasterLevel(oCaster); + int nPenetr = nCasterLvl + SPGetPenetr(); + int nMetaMagic = PRCGetMetaMagicFeat(); + int nLevel = nCasterLvl > 40 ? 40 : nCasterLvl; + + // calculate number of hitdice affected + int nHDLeft = d4(nLevel); + //Enter Metamagic conditions + if(nMetaMagic & METAMAGIC_MAXIMIZE) + nHDLeft = 4 * nLevel;//Damage is at max + if(nMetaMagic & METAMAGIC_EMPOWER) + nHDLeft += (nHDLeft/2); //Damage/Healing is +50% + + // Impact VFX + location lLoc = PRCGetSpellTargetLocation(); + ApplyEffectAtLocation(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_STRIKE_HOLY),lLoc); + //TLVFXPillar(VFX_FNF_LOS_HOLY_20, lLoc, 3, 0.0f); + + // build list with affected creatures + int nLow = 9999; + object oLow; + int nCurHD; + object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, 20.0f, lLoc); + while(GetIsObjectValid(oTarget) && nHDLeft > 0) + { + if(MyPRCGetRacialType(oTarget) == RACIAL_TYPE_UNDEAD) + { + nCurHD = GetHitDice(oTarget); + if (nCurHD <= nHDLeft) + { + if(spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, oCaster)) + { + // ignore creatures already affected + if(GetLocalInt(oTarget,"X2_EBLIGHT_I_AM_DEAD") == 0 && !GetPlotFlag(oTarget) && !GetIsDead(oTarget)) + { + // store the creature with the lowest HD + if(GetHitDice(oTarget) <= nLow) + { + nLow = GetHitDice(oTarget); + oLow = oTarget; + } + } + } + } + } + // Get next target + oTarget = MyNextObjectInShape(SHAPE_SPHERE, 20.0f ,lLoc); + + // End of cycle, time to kill the lowest creature + if(!GetIsObjectValid(oTarget)) + { + // we have a valid lowest creature we can affect with the remaining HD + if (GetIsObjectValid(oLow) && nHDLeft >= nLow) + { + DoUndeadToDeath(oLow, oCaster, nPenetr); + // decrement remaining HD + nHDLeft -= nLow; + // restart the loop + oTarget = MyFirstObjectInShape(SHAPE_SPHERE, 20.0f, lLoc); + } + // reset counters + oLow = OBJECT_INVALID; + nLow = 9999; + } + } + PRCSetSchool(); +} \ No newline at end of file diff --git a/_module/ifo/module.ifo.json b/_module/ifo/module.ifo.json index dc59b2e..419daa5 100644 --- a/_module/ifo/module.ifo.json +++ b/_module/ifo/module.ifo.json @@ -848,7 +848,7 @@ }, "Mod_CustomTlk": { "type": "cexostring", - "value": "prc8_cep31_mg" + "value": "prc8_cep3_merge" }, "Mod_CutSceneList": { "type": "list", @@ -907,13 +907,6 @@ "Mod_HakList": { "type": "list", "value": [ - { - "__struct_id": 8, - "Mod_Hak": { - "type": "cexostring", - "value": "prc8_cep3_merge" - } - }, { "__struct_id": 8, "Mod_Hak": { @@ -932,49 +925,56 @@ "__struct_id": 8, "Mod_Hak": { "type": "cexostring", - "value": "35_2das" + "value": "prc8_cep3_merge" } }, { "__struct_id": 8, "Mod_Hak": { "type": "cexostring", - "value": "35_scripts" + "value": "prc8_2das" } }, { "__struct_id": 8, "Mod_Hak": { "type": "cexostring", - "value": "35_newspellbook" + "value": "prc8_scripts" } }, { "__struct_id": 8, "Mod_Hak": { "type": "cexostring", - "value": "35_spells" + "value": "prc8_newspellbook" } }, { "__struct_id": 8, "Mod_Hak": { "type": "cexostring", - "value": "35_epicspells" + "value": "prc8_spells" } }, { "__struct_id": 8, "Mod_Hak": { "type": "cexostring", - "value": "35_psionics" + "value": "prc8_epicspells" } }, { "__struct_id": 8, "Mod_Hak": { "type": "cexostring", - "value": "35_race" + "value": "prc8_psionics" + } + }, + { + "__struct_id": 8, + "Mod_Hak": { + "type": "cexostring", + "value": "prc8_race" } }, { @@ -988,21 +988,21 @@ "__struct_id": 8, "Mod_Hak": { "type": "cexostring", - "value": "35_textures" + "value": "prc8_textures" } }, { "__struct_id": 8, "Mod_Hak": { "type": "cexostring", - "value": "35_misc" + "value": "prc8_misc" } }, { "__struct_id": 8, "Mod_Hak": { "type": "cexostring", - "value": "35_craft2das" + "value": "prc8_craft2das" } }, { @@ -1072,7 +1072,28 @@ "__struct_id": 8, "Mod_Hak": { "type": "cexostring", - "value": "cep3_core2" + "value": "cep3_tiles2" + } + }, + { + "__struct_id": 8, + "Mod_Hak": { + "type": "cexostring", + "value": "cep3_loadscreen" + } + }, + { + "__struct_id": 8, + "Mod_Hak": { + "type": "cexostring", + "value": "cep3_doors" + } + }, + { + "__struct_id": 8, + "Mod_Hak": { + "type": "cexostring", + "value": "cep3_core0" } }, { @@ -1086,7 +1107,14 @@ "__struct_id": 8, "Mod_Hak": { "type": "cexostring", - "value": "cep3_core0" + "value": "cep3_core2" + } + }, + { + "__struct_id": 8, + "Mod_Hak": { + "type": "cexostring", + "value": "cep2_core3" } }, { @@ -1186,7 +1214,7 @@ }, "Mod_OnPlrTarget": { "type": "resref", - "value": "" + "value": "prc_onplaytarget" }, "Mod_OnPlrTileAct": { "type": "resref", diff --git a/_module/ncs/__nw_s0_fireshld.ncs b/_module/ncs/__nw_s0_fireshld.ncs index 82d9708..98b388c 100644 Binary files a/_module/ncs/__nw_s0_fireshld.ncs and b/_module/ncs/__nw_s0_fireshld.ncs differ diff --git a/_module/ncs/ac_guilesdmblade.ncs b/_module/ncs/ac_guilesdmblade.ncs index d4a96d7..d327481 100644 Binary files a/_module/ncs/ac_guilesdmblade.ncs and b/_module/ncs/ac_guilesdmblade.ncs differ diff --git a/_module/ncs/ac_shadowsword44.ncs b/_module/ncs/ac_shadowsword44.ncs index e6b80ef..0b03415 100644 Binary files a/_module/ncs/ac_shadowsword44.ncs and b/_module/ncs/ac_shadowsword44.ncs differ diff --git a/_module/ncs/ac_timecrystal.ncs b/_module/ncs/ac_timecrystal.ncs index edf8295..8acd0a4 100644 Binary files a/_module/ncs/ac_timecrystal.ncs and b/_module/ncs/ac_timecrystal.ncs differ diff --git a/_module/ncs/ammo_maker.ncs b/_module/ncs/ammo_maker.ncs index a447e16..1e37a3e 100644 Binary files a/_module/ncs/ammo_maker.ncs and b/_module/ncs/ammo_maker.ncs differ diff --git a/_module/ncs/arcanesheath.ncs b/_module/ncs/arcanesheath.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/arcanesheath.ncs and b/_module/ncs/arcanesheath.ncs differ diff --git a/_module/ncs/armageddonstaff.ncs b/_module/ncs/armageddonstaff.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/armageddonstaff.ncs and b/_module/ncs/armageddonstaff.ncs differ diff --git a/_module/ncs/artmech44.ncs b/_module/ncs/artmech44.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/artmech44.ncs and b/_module/ncs/artmech44.ncs differ diff --git a/_module/ncs/autofollow.ncs b/_module/ncs/autofollow.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/autofollow.ncs and b/_module/ncs/autofollow.ncs differ diff --git a/_module/ncs/bannisher.ncs b/_module/ncs/bannisher.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/bannisher.ncs and b/_module/ncs/bannisher.ncs differ diff --git a/_module/ncs/blindingbelt.ncs b/_module/ncs/blindingbelt.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/blindingbelt.ncs and b/_module/ncs/blindingbelt.ncs differ diff --git a/_module/ncs/bootsofbannishin.ncs b/_module/ncs/bootsofbannishin.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/bootsofbannishin.ncs and b/_module/ncs/bootsofbannishin.ncs differ diff --git a/_module/ncs/boulder.ncs b/_module/ncs/boulder.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/boulder.ncs and b/_module/ncs/boulder.ncs differ diff --git a/_module/ncs/colorwand.ncs b/_module/ncs/colorwand.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/colorwand.ncs and b/_module/ncs/colorwand.ncs differ diff --git a/_module/ncs/createlistener.ncs b/_module/ncs/createlistener.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/createlistener.ncs and b/_module/ncs/createlistener.ncs differ diff --git a/_module/ncs/crystalball.ncs b/_module/ncs/crystalball.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/crystalball.ncs and b/_module/ncs/crystalball.ncs differ diff --git a/_module/ncs/crystalshard.ncs b/_module/ncs/crystalshard.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/crystalshard.ncs and b/_module/ncs/crystalshard.ncs differ diff --git a/_module/ncs/dabomb.ncs b/_module/ncs/dabomb.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/dabomb.ncs and b/_module/ncs/dabomb.ncs differ diff --git a/_module/ncs/dangerbow44.ncs b/_module/ncs/dangerbow44.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/dangerbow44.ncs and b/_module/ncs/dangerbow44.ncs differ diff --git a/_module/ncs/death.ncs b/_module/ncs/death.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/death.ncs and b/_module/ncs/death.ncs differ diff --git a/_module/ncs/dmkey.ncs b/_module/ncs/dmkey.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/dmkey.ncs and b/_module/ncs/dmkey.ncs differ diff --git a/_module/ncs/dmseffectwand.ncs b/_module/ncs/dmseffectwand.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/dmseffectwand.ncs and b/_module/ncs/dmseffectwand.ncs differ diff --git a/_module/ncs/dreamweaver23.ncs b/_module/ncs/dreamweaver23.ncs index 92ad382..6573c4e 100644 Binary files a/_module/ncs/dreamweaver23.ncs and b/_module/ncs/dreamweaver23.ncs differ diff --git a/_module/ncs/druidtool.ncs b/_module/ncs/druidtool.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/druidtool.ncs and b/_module/ncs/druidtool.ncs differ diff --git a/_module/ncs/dyekit.ncs b/_module/ncs/dyekit.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/dyekit.ncs and b/_module/ncs/dyekit.ncs differ diff --git a/_module/ncs/elixirofimmortal.ncs b/_module/ncs/elixirofimmortal.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/elixirofimmortal.ncs and b/_module/ncs/elixirofimmortal.ncs differ diff --git a/_module/ncs/emotewand.ncs b/_module/ncs/emotewand.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/emotewand.ncs and b/_module/ncs/emotewand.ncs differ diff --git a/_module/ncs/gemofteleportati.ncs b/_module/ncs/gemofteleportati.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/gemofteleportati.ncs and b/_module/ncs/gemofteleportati.ncs differ diff --git a/_module/ncs/gemofteleporting.ncs b/_module/ncs/gemofteleporting.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/gemofteleporting.ncs and b/_module/ncs/gemofteleporting.ncs differ diff --git a/_module/ncs/gen_enc_config.ncs b/_module/ncs/gen_enc_config.ncs new file mode 100644 index 0000000..947f7b5 Binary files /dev/null and b/_module/ncs/gen_enc_config.ncs differ diff --git a/_module/ncs/gen_gem.ncs b/_module/ncs/gen_gem.ncs index bea74c2..c281ffa 100644 Binary files a/_module/ncs/gen_gem.ncs and b/_module/ncs/gen_gem.ncs differ diff --git a/_module/ncs/gen_token.ncs b/_module/ncs/gen_token.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/gen_token.ncs and b/_module/ncs/gen_token.ncs differ diff --git a/_module/ncs/grtelementpot.ncs b/_module/ncs/grtelementpot.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/grtelementpot.ncs and b/_module/ncs/grtelementpot.ncs differ diff --git a/_module/ncs/guildsbow.ncs b/_module/ncs/guildsbow.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/guildsbow.ncs and b/_module/ncs/guildsbow.ncs differ diff --git a/_module/ncs/guildstone.ncs b/_module/ncs/guildstone.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/guildstone.ncs and b/_module/ncs/guildstone.ncs differ diff --git a/_module/ncs/guilesdmblade.ncs b/_module/ncs/guilesdmblade.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/guilesdmblade.ncs and b/_module/ncs/guilesdmblade.ncs differ diff --git a/_module/ncs/heartstone.ncs b/_module/ncs/heartstone.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/heartstone.ncs and b/_module/ncs/heartstone.ncs differ diff --git a/_module/ncs/hellrod.ncs b/_module/ncs/hellrod.ncs index 1970442..65d3f86 100644 Binary files a/_module/ncs/hellrod.ncs and b/_module/ncs/hellrod.ncs differ diff --git a/_module/ncs/herocrystal44.ncs b/_module/ncs/herocrystal44.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/herocrystal44.ncs and b/_module/ncs/herocrystal44.ncs differ diff --git a/_module/ncs/hgll_lvl_area_en.ncs b/_module/ncs/hgll_lvl_area_en.ncs index 37c55c1..af09980 100644 Binary files a/_module/ncs/hgll_lvl_area_en.ncs and b/_module/ncs/hgll_lvl_area_en.ncs differ diff --git a/_module/ncs/immotoken.ncs b/_module/ncs/immotoken.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/immotoken.ncs and b/_module/ncs/immotoken.ncs differ diff --git a/_module/ncs/infoassistant.ncs b/_module/ncs/infoassistant.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/infoassistant.ncs and b/_module/ncs/infoassistant.ncs differ diff --git a/_module/ncs/itemchanger.ncs b/_module/ncs/itemchanger.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/itemchanger.ncs and b/_module/ncs/itemchanger.ncs differ diff --git a/_module/ncs/itemseller.ncs b/_module/ncs/itemseller.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/itemseller.ncs and b/_module/ncs/itemseller.ncs differ diff --git a/_module/ncs/jumpball.ncs b/_module/ncs/jumpball.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/jumpball.ncs and b/_module/ncs/jumpball.ncs differ diff --git a/_module/ncs/kopcwand.ncs b/_module/ncs/kopcwand.ncs index b4e9878..21117fe 100644 Binary files a/_module/ncs/kopcwand.ncs and b/_module/ncs/kopcwand.ncs differ diff --git a/_module/ncs/misslprotpot.ncs b/_module/ncs/misslprotpot.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/misslprotpot.ncs and b/_module/ncs/misslprotpot.ncs differ diff --git a/_module/ncs/mordenkainensrin.ncs b/_module/ncs/mordenkainensrin.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/mordenkainensrin.ncs and b/_module/ncs/mordenkainensrin.ncs differ diff --git a/_module/ncs/myhook.ncs b/_module/ncs/myhook.ncs index f3be023..a4ebc70 100644 Binary files a/_module/ncs/myhook.ncs and b/_module/ncs/myhook.ncs differ diff --git a/_module/ncs/namingtool.ncs b/_module/ncs/namingtool.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/namingtool.ncs and b/_module/ncs/namingtool.ncs differ diff --git a/_module/ncs/napper.ncs b/_module/ncs/napper.ncs index c65a0c2..89ff876 100644 Binary files a/_module/ncs/napper.ncs and b/_module/ncs/napper.ncs differ diff --git a/_module/ncs/nw_c2_default7.ncs b/_module/ncs/nw_c2_default7.ncs deleted file mode 100644 index 1b842d1..0000000 Binary files a/_module/ncs/nw_c2_default7.ncs and /dev/null differ diff --git a/_module/ncs/pclist.ncs b/_module/ncs/pclist.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/pclist.ncs and b/_module/ncs/pclist.ncs differ diff --git a/_module/ncs/pcplaything.ncs b/_module/ncs/pcplaything.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/pcplaything.ncs and b/_module/ncs/pcplaything.ncs differ diff --git a/_module/ncs/plpotion.ncs b/_module/ncs/plpotion.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/plpotion.ncs and b/_module/ncs/plpotion.ncs differ diff --git a/_module/ncs/prc_pwondeath.ncs b/_module/ncs/prc_pwondeath.ncs new file mode 100644 index 0000000..bd176eb Binary files /dev/null and b/_module/ncs/prc_pwondeath.ncs differ diff --git a/_module/ncs/punisher.ncs b/_module/ncs/punisher.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/punisher.ncs and b/_module/ncs/punisher.ncs differ diff --git a/_module/ncs/restarter.ncs b/_module/ncs/restarter.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/restarter.ncs and b/_module/ncs/restarter.ncs differ diff --git a/_module/ncs/rodfastcast.ncs b/_module/ncs/rodfastcast.ncs index 00cdd0b..56eeb5c 100644 Binary files a/_module/ncs/rodfastcast.ncs and b/_module/ncs/rodfastcast.ncs differ diff --git a/_module/ncs/rodofthedead.ncs b/_module/ncs/rodofthedead.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/rodofthedead.ncs and b/_module/ncs/rodofthedead.ncs differ diff --git a/_module/ncs/rodofthenameless.ncs b/_module/ncs/rodofthenameless.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/rodofthenameless.ncs and b/_module/ncs/rodofthenameless.ncs differ diff --git a/_module/ncs/ruin44.ncs b/_module/ncs/ruin44.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/ruin44.ncs and b/_module/ncs/ruin44.ncs differ diff --git a/_module/ncs/savingpen2.ncs b/_module/ncs/savingpen2.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/savingpen2.ncs and b/_module/ncs/savingpen2.ncs differ diff --git a/_module/ncs/scalesofsentenci.ncs b/_module/ncs/scalesofsentenci.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/scalesofsentenci.ncs and b/_module/ncs/scalesofsentenci.ncs differ diff --git a/_module/ncs/shadowsword44.ncs b/_module/ncs/shadowsword44.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/shadowsword44.ncs and b/_module/ncs/shadowsword44.ncs differ diff --git a/_module/ncs/shortbowofruin44.ncs b/_module/ncs/shortbowofruin44.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/shortbowofruin44.ncs and b/_module/ncs/shortbowofruin44.ncs differ diff --git a/_module/ncs/siempre.ncs b/_module/ncs/siempre.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/siempre.ncs and b/_module/ncs/siempre.ncs differ diff --git a/_module/ncs/speedcaster.ncs b/_module/ncs/speedcaster.ncs index 507b1dc..7ad932f 100644 Binary files a/_module/ncs/speedcaster.ncs and b/_module/ncs/speedcaster.ncs differ diff --git a/_module/ncs/telerod.ncs b/_module/ncs/telerod.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/telerod.ncs and b/_module/ncs/telerod.ncs differ diff --git a/_module/ncs/thehandofgod.ncs b/_module/ncs/thehandofgod.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/thehandofgod.ncs and b/_module/ncs/thehandofgod.ncs differ diff --git a/_module/ncs/timecrystal.ncs b/_module/ncs/timecrystal.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/timecrystal.ncs and b/_module/ncs/timecrystal.ncs differ diff --git a/_module/ncs/tournamenttrophy.ncs b/_module/ncs/tournamenttrophy.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/tournamenttrophy.ncs and b/_module/ncs/tournamenttrophy.ncs differ diff --git a/_module/ncs/vfx_wand.ncs b/_module/ncs/vfx_wand.ncs index d0351f7..ee106bf 100644 Binary files a/_module/ncs/vfx_wand.ncs and b/_module/ncs/vfx_wand.ncs differ diff --git a/_module/ncs/weaponchanger.ncs b/_module/ncs/weaponchanger.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/weaponchanger.ncs and b/_module/ncs/weaponchanger.ncs differ diff --git a/_module/ncs/x2_s1_beholdray.ncs b/_module/ncs/x2_s1_beholdray.ncs deleted file mode 100644 index 6d49584..0000000 Binary files a/_module/ncs/x2_s1_beholdray.ncs and /dev/null differ diff --git a/_module/ncs/x2_s2_mghtyrage.ncs b/_module/ncs/x2_s2_mghtyrage.ncs deleted file mode 100644 index a347468..0000000 Binary files a/_module/ncs/x2_s2_mghtyrage.ncs and /dev/null differ diff --git a/_module/ncs/x2_s3_flameskin.ncs b/_module/ncs/x2_s3_flameskin.ncs index 7be8957..410ed0d 100644 Binary files a/_module/ncs/x2_s3_flameskin.ncs and b/_module/ncs/x2_s3_flameskin.ncs differ diff --git a/_module/ncs/x2_s3_flamingd.ncs b/_module/ncs/x2_s3_flamingd.ncs index f347c56..776439c 100644 Binary files a/_module/ncs/x2_s3_flamingd.ncs and b/_module/ncs/x2_s3_flamingd.ncs differ diff --git a/_module/ncs/xbowofruin44.ncs b/_module/ncs/xbowofruin44.ncs index b52de7e..fdac098 100644 Binary files a/_module/ncs/xbowofruin44.ncs and b/_module/ncs/xbowofruin44.ncs differ diff --git a/_module/nss/__nw_s0_fireshld.nss b/_module/nss/__nw_s0_fireshld.nss index 5c43963..f9457a5 100644 --- a/_module/nss/__nw_s0_fireshld.nss +++ b/_module/nss/__nw_s0_fireshld.nss @@ -19,12 +19,14 @@ bugfix by Grant Beaty 2002.08.31 */ #include "NW_I0_SPELLS" +#include "prc_inc_spells" + void main() { //Declare major variables effect eVis = EffectVisualEffect(VFX_DUR_ELEMENTAL_SHIELD); - int nDuration = GetCasterLevel(OBJECT_SELF); - int nMetaMagic = GetMetaMagicFeat(); + int nDuration = PRCGetCasterLevel(OBJECT_SELF); + int nMetaMagic = PRCGetMetaMagicFeat(); object oTarget = OBJECT_SELF; effect eShield = EffectRegenerate(3, 6.0); effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE); @@ -48,8 +50,8 @@ void main() } //If there is already a fire shield in effect, remove it. - if(GetHasSpellEffect(GetSpellId(), oTarget)) - RemoveSpellEffects(GetSpellId(), oTarget, oTarget); + if(GetHasSpellEffect(PRCGetSpellId(), oTarget)) + RemoveSpellEffects(PRCGetSpellId(), oTarget, oTarget); //Apply the VFX impact and effects ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration)); diff --git a/_module/nss/ac_guilesdmblade.nss b/_module/nss/ac_guilesdmblade.nss index 70c2b3a..5df7911 100644 --- a/_module/nss/ac_guilesdmblade.nss +++ b/_module/nss/ac_guilesdmblade.nss @@ -4,6 +4,8 @@ //script ac_"tagnameofitemgoeshere" (without the "") #include "nw_i0_spells" #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { // Check if we have the correct event firing the script @@ -21,8 +23,8 @@ void main() // fill the variables oSpellOrigin = OBJECT_SELF; - oSpellTarget = GetSpellTargetObject(); - oItem = GetSpellCastItem(); + oSpellTarget = PRCGetSpellTargetObject(); + oItem = PRCGetSpellCastItem(); int nLevel = GetCasterLevel(OBJECT_SELF); if (GetIsObjectValid(oItem)) @@ -36,7 +38,7 @@ void main() } if (!GetWeaponRanged(oWeapon) || !GetIsObjectValid(oWeapon)) { - SignalEvent(oSpellTarget,EventSpellCastAt(OBJECT_SELF,GetSpellId())); + SignalEvent(oSpellTarget,EventSpellCastAt(OBJECT_SELF,PRCGetSpellId())); int nDamage = d10(10)+ nLevel; effect eDamage = EffectDamage(nDamage,DAMAGE_TYPE_FIRE); effect eVis; diff --git a/_module/nss/ac_shadowsword44.nss b/_module/nss/ac_shadowsword44.nss index edca0d1..e4aa43c 100644 --- a/_module/nss/ac_shadowsword44.nss +++ b/_module/nss/ac_shadowsword44.nss @@ -4,6 +4,8 @@ //script ac_"tagnameofitemgoeshere" (without the "") #include "nw_i0_spells" #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { // Check if we have the correct event firing the script @@ -21,8 +23,8 @@ void main() // fill the variables oSpellOrigin = OBJECT_SELF; - oSpellTarget = GetSpellTargetObject(); - oItem = GetSpellCastItem(); + oSpellTarget = PRCGetSpellTargetObject(); + oItem = PRCGetSpellCastItem(); int nLevel = GetCasterLevel(OBJECT_SELF); if (GetIsObjectValid(oItem)) @@ -36,7 +38,7 @@ void main() } if (!GetWeaponRanged(oWeapon) || !GetIsObjectValid(oWeapon)) { - SignalEvent(oSpellTarget,EventSpellCastAt(OBJECT_SELF,GetSpellId())); + SignalEvent(oSpellTarget,EventSpellCastAt(OBJECT_SELF,PRCGetSpellId())); int nDamage = d6(1)+ nLevel; effect eDamage = EffectDamage(nDamage,DAMAGE_TYPE_FIRE); effect eVis; diff --git a/_module/nss/ac_timecrystal.nss b/_module/nss/ac_timecrystal.nss index 63443d9..e60e709 100644 --- a/_module/nss/ac_timecrystal.nss +++ b/_module/nss/ac_timecrystal.nss @@ -18,6 +18,8 @@ the X2_ITEM_EVENT_ACTIVATE: script code will run. */ //////////////////////////////////////// #include "x2_inc_switches" +#include "prc_inc_spells" + //Required Include For Color Messages(Read include to learn more) #include "gen_inc_color" @@ -99,10 +101,10 @@ void main() // * and it hits a target(if it is a weapon) or is being hit (if it is a piece of armor) // * Note that this event fires for non PC creatures as well. - oItem = GetSpellCastItem(); // The item triggering this spellscript + oItem = PRCGetSpellCastItem(); // The item triggering this spellscript oPC = OBJECT_SELF; // The player triggering it oSpellOrigin = OBJECT_SELF ; // Where the spell came from - oSpellTarget = GetSpellTargetObject(); // What the spell is aimed at + oSpellTarget = PRCGetSpellTargetObject(); // What the spell is aimed at //Your code goes here @@ -201,8 +203,8 @@ void main() //* standard spellbooks on the item oPC = OBJECT_SELF; // The player who cast the spell - oItem = GetSpellTargetObject();// The item targeted by the spell - iSpell = GetSpellId(); // The id of the spell that was cast + oItem = PRCGetSpellTargetObject();// The item targeted by the spell + iSpell = PRCGetSpellId(); // The id of the spell that was cast // See the list of SPELL_* constants //Your code goes here diff --git a/_module/nss/ammo_maker.nss b/_module/nss/ammo_maker.nss index b3db030..18b9400 100644 --- a/_module/nss/ammo_maker.nss +++ b/_module/nss/ammo_maker.nss @@ -13,6 +13,8 @@ //////////////////////////////////////// //Required Include! #include "x2_inc_switches" +#include "prc_inc_spells" + ///////////////////////////////////////////////////////////////////////// @@ -113,10 +115,10 @@ location lPC; // * and it hits a target(if it is a weapon) or is being hit (if it is a piece of armor) // * Note that this event fires for non PC creatures as well. - oItem = GetSpellCastItem(); // The item triggering this spellscript + oItem = PRCGetSpellCastItem(); // The item triggering this spellscript oPC = OBJECT_SELF; // The player triggering it oSpellOrigin = OBJECT_SELF ; // Where the spell came from - oSpellTarget = GetSpellTargetObject(); // What the spell is aimed at + oSpellTarget = PRCGetSpellTargetObject(); // What the spell is aimed at //Your code goes here } @@ -253,8 +255,8 @@ location lPC; //* standard spellbooks on the item oPC = OBJECT_SELF; // The player who cast the spell - oItem = GetSpellTargetObject();// The item targeted by the spell - iSpell = GetSpellId(); // The id of the spell that was cast + oItem = PRCGetSpellTargetObject();// The item targeted by the spell + iSpell = PRCGetSpellId(); // The id of the spell that was cast // See the list of SPELL_* constants //Your code goes here diff --git a/_module/nss/arcanesheath.nss b/_module/nss/arcanesheath.nss index 481172e..9b5e732 100644 --- a/_module/nss/arcanesheath.nss +++ b/_module/nss/arcanesheath.nss @@ -1,5 +1,6 @@ - +#include "prc_inc_spells" #include "x2_inc_switches" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -24,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/armageddonstaff.nss b/_module/nss/armageddonstaff.nss index 19a4361..1c3f811 100644 --- a/_module/nss/armageddonstaff.nss +++ b/_module/nss/armageddonstaff.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/artmech44.nss b/_module/nss/artmech44.nss index 19a4361..1c3f811 100644 --- a/_module/nss/artmech44.nss +++ b/_module/nss/artmech44.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/autofollow.nss b/_module/nss/autofollow.nss index 19a4361..1c3f811 100644 --- a/_module/nss/autofollow.nss +++ b/_module/nss/autofollow.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/bannisher.nss b/_module/nss/bannisher.nss index 19a4361..1c3f811 100644 --- a/_module/nss/bannisher.nss +++ b/_module/nss/bannisher.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/blindingbelt.nss b/_module/nss/blindingbelt.nss index 19a4361..1c3f811 100644 --- a/_module/nss/blindingbelt.nss +++ b/_module/nss/blindingbelt.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/bootsofbannishin.nss b/_module/nss/bootsofbannishin.nss index 19a4361..1c3f811 100644 --- a/_module/nss/bootsofbannishin.nss +++ b/_module/nss/bootsofbannishin.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/boulder.nss b/_module/nss/boulder.nss index 19a4361..1c3f811 100644 --- a/_module/nss/boulder.nss +++ b/_module/nss/boulder.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/colorwand.nss b/_module/nss/colorwand.nss index 19a4361..1c3f811 100644 --- a/_module/nss/colorwand.nss +++ b/_module/nss/colorwand.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/createlistener.nss b/_module/nss/createlistener.nss index 19a4361..1c3f811 100644 --- a/_module/nss/createlistener.nss +++ b/_module/nss/createlistener.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/crystalball.nss b/_module/nss/crystalball.nss index 19a4361..1c3f811 100644 --- a/_module/nss/crystalball.nss +++ b/_module/nss/crystalball.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/crystalshard.nss b/_module/nss/crystalshard.nss index 2591a37..78d720f 100644 --- a/_module/nss/crystalshard.nss +++ b/_module/nss/crystalshard.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/dabomb.nss b/_module/nss/dabomb.nss index 481172e..9b5e732 100644 --- a/_module/nss/dabomb.nss +++ b/_module/nss/dabomb.nss @@ -1,5 +1,6 @@ - +#include "prc_inc_spells" #include "x2_inc_switches" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -24,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/dangerbow44.nss b/_module/nss/dangerbow44.nss index 481172e..9b5e732 100644 --- a/_module/nss/dangerbow44.nss +++ b/_module/nss/dangerbow44.nss @@ -1,5 +1,6 @@ - +#include "prc_inc_spells" #include "x2_inc_switches" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -24,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/death.nss b/_module/nss/death.nss index 19a4361..1c3f811 100644 --- a/_module/nss/death.nss +++ b/_module/nss/death.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/dmkey.nss b/_module/nss/dmkey.nss index 19a4361..1c3f811 100644 --- a/_module/nss/dmkey.nss +++ b/_module/nss/dmkey.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/dmseffectwand.nss b/_module/nss/dmseffectwand.nss index 19a4361..1c3f811 100644 --- a/_module/nss/dmseffectwand.nss +++ b/_module/nss/dmseffectwand.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/dreamweaver23.nss b/_module/nss/dreamweaver23.nss index 247cc08..ccf9079 100644 --- a/_module/nss/dreamweaver23.nss +++ b/_module/nss/dreamweaver23.nss @@ -18,6 +18,8 @@ the X2_ITEM_EVENT_ACTIVATE: script code will run. */ //////////////////////////////////////// #include "x2_inc_switches" +#include "prc_inc_spells" + //Main Script void main() @@ -62,10 +64,10 @@ void main() // * and it hits a target(if it is a weapon) or is being hit (if it is a piece of armor) // * Note that this event fires for non PC creatures as well. - oItem = GetSpellCastItem(); // The item triggering this spellscript + oItem = PRCGetSpellCastItem(); // The item triggering this spellscript oPC = OBJECT_SELF; // The player triggering it oSpellOrigin = OBJECT_SELF ; // Where the spell came from - oSpellTarget = GetSpellTargetObject(); // What the spell is aimed at + oSpellTarget = PRCGetSpellTargetObject(); // What the spell is aimed at //Your code goes here @@ -157,8 +159,8 @@ GetItemPossessedBy(oPC, "dreamweaver23"), INVENTORY_SLOT_RIGHTHAND))); //* standard spellbooks on the item oPC = OBJECT_SELF; // The player who cast the spell - oItem = GetSpellTargetObject();// The item targeted by the spell - iSpell = GetSpellId(); // The id of the spell that was cast + oItem = PRCGetSpellTargetObject();// The item targeted by the spell + iSpell = PRCGetSpellId(); // The id of the spell that was cast // See the list of SPELL_* constants //Your code goes here diff --git a/_module/nss/druidtool.nss b/_module/nss/druidtool.nss index 6b6fbaf..ea3c282 100644 --- a/_module/nss/druidtool.nss +++ b/_module/nss/druidtool.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/dyekit.nss b/_module/nss/dyekit.nss index 19a4361..1c3f811 100644 --- a/_module/nss/dyekit.nss +++ b/_module/nss/dyekit.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/elixirofimmortal.nss b/_module/nss/elixirofimmortal.nss index 19a4361..1c3f811 100644 --- a/_module/nss/elixirofimmortal.nss +++ b/_module/nss/elixirofimmortal.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/emotewand.nss b/_module/nss/emotewand.nss index 19a4361..1c3f811 100644 --- a/_module/nss/emotewand.nss +++ b/_module/nss/emotewand.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/gemofteleportati.nss b/_module/nss/gemofteleportati.nss index 19a4361..1c3f811 100644 --- a/_module/nss/gemofteleportati.nss +++ b/_module/nss/gemofteleportati.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/gemofteleporting.nss b/_module/nss/gemofteleporting.nss index 19a4361..1c3f811 100644 --- a/_module/nss/gemofteleporting.nss +++ b/_module/nss/gemofteleporting.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/gen_enc_config.nss b/_module/nss/gen_enc_config.nss index a76ea7a..567ce05 100644 --- a/_module/nss/gen_enc_config.nss +++ b/_module/nss/gen_enc_config.nss @@ -10,7 +10,9 @@ saved and then you must build the module, script only, after you are done editing it, save the module. ----------------------------------------------------------*/ //Required Inlude (DO NOT DELETE!) -#include "x2_inc_itemprop" +#include "prc_x2_itemprop" + +//void main (){} //////////////////////////////////////////////////////////////// ///////////////////OPTIONAL SETTINGS/////////////////////////// diff --git a/_module/nss/gen_gem.nss b/_module/nss/gen_gem.nss index 6218372..bc9cbef 100644 --- a/_module/nss/gen_gem.nss +++ b/_module/nss/gen_gem.nss @@ -17,6 +17,8 @@ that script! //////////////////////////////////////// #include "x2_inc_switches" #include "gen_enc_config" +#include "prc_inc_spells" + //Main Script void main() @@ -70,10 +72,10 @@ void main() // * and it hits a target(if it is a weapon) or is being hit (if it is a piece of armor) // * Note that this event fires for non PC creatures as well. - oItem = GetSpellCastItem(); // The item triggering this spellscript + oItem = PRCGetSpellCastItem(); // The item triggering this spellscript oPC = OBJECT_SELF; // The player triggering it oSpellOrigin = OBJECT_SELF ; // Where the spell came from - oSpellTarget = GetSpellTargetObject(); // What the spell is aimed at + oSpellTarget = PRCGetSpellTargetObject(); // What the spell is aimed at //Your code goes here @@ -1315,8 +1317,8 @@ sResRef == "gen_gem_191") //* standard spellbooks on the item oPC = OBJECT_SELF; // The player who cast the spell - oItem = GetSpellTargetObject();// The item targeted by the spell - iSpell = GetSpellId(); // The id of the spell that was cast + oItem = PRCGetSpellTargetObject();// The item targeted by the spell + iSpell = PRCGetSpellId(); // The id of the spell that was cast // See the list of SPELL_* constants //Your code goes here diff --git a/_module/nss/gen_inc_color.nss b/_module/nss/gen_inc_color.nss index 2ed0905..baea5c8 100644 --- a/_module/nss/gen_inc_color.nss +++ b/_module/nss/gen_inc_color.nss @@ -30,10 +30,10 @@ */ // issues? contact genji@thegenji.com // special thanks to ADAL-Miko and Rich Dersheimer in the bio forums. -string GetRGB(int red = 15,int green = 15,int blue = 15); +string GenjiGetRGB(int red = 15,int green = 15,int blue = 15); // --------------------------------------------------------------[ function implementations ] -string GetRGB(int red = 15,int green = 15,int blue = 15) +string GenjiGetRGB(int red = 15,int green = 15,int blue = 15) { object o = GetWaypointByTag("ref_point"); object coloringBook = GetNearestObjectByTag("ColoringBook", o); diff --git a/_module/nss/gen_token.nss b/_module/nss/gen_token.nss index 19a4361..1c3f811 100644 --- a/_module/nss/gen_token.nss +++ b/_module/nss/gen_token.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/grtelementpot.nss b/_module/nss/grtelementpot.nss index 19a4361..1c3f811 100644 --- a/_module/nss/grtelementpot.nss +++ b/_module/nss/grtelementpot.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/guildsbow.nss b/_module/nss/guildsbow.nss index 19a4361..1c3f811 100644 --- a/_module/nss/guildsbow.nss +++ b/_module/nss/guildsbow.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/guildstone.nss b/_module/nss/guildstone.nss index 19a4361..1c3f811 100644 --- a/_module/nss/guildstone.nss +++ b/_module/nss/guildstone.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/guilesdmblade.nss b/_module/nss/guilesdmblade.nss index 19a4361..1c3f811 100644 --- a/_module/nss/guilesdmblade.nss +++ b/_module/nss/guilesdmblade.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/heartstone.nss b/_module/nss/heartstone.nss index 19a4361..1c3f811 100644 --- a/_module/nss/heartstone.nss +++ b/_module/nss/heartstone.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/hellrod.nss b/_module/nss/hellrod.nss index 68490c3..9de01fb 100644 --- a/_module/nss/hellrod.nss +++ b/_module/nss/hellrod.nss @@ -18,6 +18,8 @@ the X2_ITEM_EVENT_ACTIVATE: script code will run. */ //////////////////////////////////////// #include "x2_inc_switches" +#include "prc_inc_spells" + //Main Script void main() @@ -62,10 +64,10 @@ void main() // * and it hits a target(if it is a weapon) or is being hit (if it is a piece of armor) // * Note that this event fires for non PC creatures as well. - oItem = GetSpellCastItem(); // The item triggering this spellscript + oItem = PRCGetSpellCastItem(); // The item triggering this spellscript oPC = OBJECT_SELF; // The player triggering it oSpellOrigin = OBJECT_SELF ; // Where the spell came from - oSpellTarget = GetSpellTargetObject(); // What the spell is aimed at + oSpellTarget = PRCGetSpellTargetObject(); // What the spell is aimed at //Your code goes here @@ -178,8 +180,8 @@ void main() //* standard spellbooks on the item oPC = OBJECT_SELF; // The player who cast the spell - oItem = GetSpellTargetObject();// The item targeted by the spell - iSpell = GetSpellId(); // The id of the spell that was cast + oItem = PRCGetSpellTargetObject();// The item targeted by the spell + iSpell = PRCGetSpellId(); // The id of the spell that was cast // See the list of SPELL_* constants //Your code goes here diff --git a/_module/nss/herocrystal44.nss b/_module/nss/herocrystal44.nss index 19a4361..1c3f811 100644 --- a/_module/nss/herocrystal44.nss +++ b/_module/nss/herocrystal44.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/hgll_lvl_area_en.nss b/_module/nss/hgll_lvl_area_en.nss index 2fd582f..bb3a223 100644 --- a/_module/nss/hgll_lvl_area_en.nss +++ b/_module/nss/hgll_lvl_area_en.nss @@ -1,3 +1,5 @@ +#include "prc_inc_util" + void main() { object oPC = GetEnteringObject(); @@ -11,6 +13,6 @@ if (GetNearestCreature(CREATURE_TYPE_PLAYER_CHAR, PLAYER_CHAR_IS_PC, oPC) != OBJ } else { - ForceRest(oPC); + PRCForceRest(oPC); } } diff --git a/_module/nss/immotoken.nss b/_module/nss/immotoken.nss index 19a4361..1c3f811 100644 --- a/_module/nss/immotoken.nss +++ b/_module/nss/immotoken.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/infoassistant.nss b/_module/nss/infoassistant.nss index 19a4361..1c3f811 100644 --- a/_module/nss/infoassistant.nss +++ b/_module/nss/infoassistant.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/itemchanger.nss b/_module/nss/itemchanger.nss index 19a4361..1c3f811 100644 --- a/_module/nss/itemchanger.nss +++ b/_module/nss/itemchanger.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/itemseller.nss b/_module/nss/itemseller.nss index 481172e..9b5e732 100644 --- a/_module/nss/itemseller.nss +++ b/_module/nss/itemseller.nss @@ -1,5 +1,6 @@ - +#include "prc_inc_spells" #include "x2_inc_switches" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -24,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/jumpball.nss b/_module/nss/jumpball.nss index 19a4361..1c3f811 100644 --- a/_module/nss/jumpball.nss +++ b/_module/nss/jumpball.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/kopcwand.nss b/_module/nss/kopcwand.nss index bdc33c7..6e08719 100644 --- a/_module/nss/kopcwand.nss +++ b/_module/nss/kopcwand.nss @@ -18,6 +18,8 @@ the X2_ITEM_EVENT_ACTIVATE: script code will run. */ //////////////////////////////////////// #include "x2_inc_switches" +#include "prc_inc_spells" + //Set the 15 below to how many minutes you want the nap to last! const int NAP_TIME = 15; //Default = 15 Minutes of Nap Time @@ -67,10 +69,10 @@ void main() // * and it hits a target(if it is a weapon) or is being hit (if it is a piece of armor) // * Note that this event fires for non PC creatures as well. - oItem = GetSpellCastItem(); // The item triggering this spellscript + oItem = PRCGetSpellCastItem(); // The item triggering this spellscript oPC = OBJECT_SELF; // The player triggering it oSpellOrigin = OBJECT_SELF ; // Where the spell came from - oSpellTarget = GetSpellTargetObject(); // What the spell is aimed at + oSpellTarget = PRCGetSpellTargetObject(); // What the spell is aimed at //Your code goes here @@ -172,8 +174,8 @@ void main() //* standard spellbooks on the item oPC = OBJECT_SELF; // The player who cast the spell - oItem = GetSpellTargetObject();// The item targeted by the spell - iSpell = GetSpellId(); // The id of the spell that was cast + oItem = PRCGetSpellTargetObject();// The item targeted by the spell + iSpell = PRCGetSpellId(); // The id of the spell that was cast // See the list of SPELL_* constants //Your code goes here diff --git a/_module/nss/misslprotpot.nss b/_module/nss/misslprotpot.nss index 19a4361..1c3f811 100644 --- a/_module/nss/misslprotpot.nss +++ b/_module/nss/misslprotpot.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/mordenkainensrin.nss b/_module/nss/mordenkainensrin.nss index 19a4361..1c3f811 100644 --- a/_module/nss/mordenkainensrin.nss +++ b/_module/nss/mordenkainensrin.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/myhook.nss b/_module/nss/myhook.nss index 034af93..1c48a33 100644 --- a/_module/nss/myhook.nss +++ b/_module/nss/myhook.nss @@ -64,6 +64,8 @@ Open up the No Casting Area and edit the area to see how it's set up properly. #include "x2_inc_switches" #include "nw_i0_spells" #include "check_host_spell" +#include "prc_inc_spells" + //See this script to learn premade functions to use in this script //Those functions save you time as this script is rather long! @@ -82,18 +84,18 @@ void main() { return; } //Declare Major Variables; - int nSpell=GetSpellId(); + int nSpell=PRCGetSpellId(); int nNonHostile = GetIsNonHostileSpell(nSpell); int nNonHostileItem; int nCastLevel = GetCasterLevel(OBJECT_SELF); int zInt; - object sTarget = GetSpellTargetObject(); - object sItem = GetSpellCastItem(); + object sTarget = PRCGetSpellTargetObject(); + object sItem = PRCGetSpellCastItem(); object oArea = GetArea(oCaster); int nJail = GetLocalInt(oArea, "JAIL"); int nPVP = GetLocalInt(oArea, "PVP"); - location sLocation = GetSpellTargetLocation(); + location sLocation = PRCGetSpellTargetLocation(); int sClass = GetLastSpellCastClass(); string sTN = GetTag(sItem); int nType; @@ -173,7 +175,7 @@ if(GetLocalInt(GetArea(OBJECT_SELF), "NOCAST")==2) if(sItem!=OBJECT_INVALID && sTN != "ammo_maker" && sTN != "namingtool" && sTN != "colorwand") { - nType = GetBaseItemType(GetSpellCastItem()); + nType = GetBaseItemType(PRCGetSpellCastItem()); if(nType != BASE_ITEM_POTIONS && nType != BASE_ITEM_ENCHANTED_POTION) @@ -199,7 +201,7 @@ if(GetLocalInt(GetArea(OBJECT_SELF), "NOCAST")==2) ///////////////Handling Spells Cast From Items///////////////////////////////// //This is what will happen if the spell was cast from an item.. -if(GetSpellCastItem()!=OBJECT_INVALID) +if(PRCGetSpellCastItem()!=OBJECT_INVALID) { //If the PC uses an item on a PC, and it's one of the following spells //Then the spell will not work on the PC, note you can add other effects @@ -256,7 +258,7 @@ switch (nSpell) case SPELL_DROWN: { - if(GetIsPC(GetSpellTargetObject())) + if(GetIsPC(PRCGetSpellTargetObject())) { //Stop the original spell from running.. AssignCommand(oCaster, ClearAllActions()); @@ -1580,10 +1582,10 @@ switch (nSpell) case SPELL_WHATEVER: //Change this to the actual spell being cast.. { //Note if the spell does area damage use this always! - DoAreaBonusDmg(GetSpellTargetLocation()); + DoAreaBonusDmg(PRCGetSpellTargetLocation()); //Do a generic visual (see the "spellfunc_inc" script) - DoAVisual(GetSpellTargetLocation()); + DoAVisual(PRCGetSpellTargetLocation()); //Do Positive Damage to all in area (if not resisted or saved) DoAreaDmg(); @@ -1599,7 +1601,7 @@ switch (nSpell) case SPELL_BLAHZAM: //Change the SPELL_NAME to the actual spell being cast. { //Note if the spell does target damage use this always! - DoBonusDmg(GetSpellTargetObject()); + DoBonusDmg(PRCGetSpellTargetObject()); //Do a generic targeted visual (see the "spellfunc_inc" script) DoTVisual(); diff --git a/_module/nss/namingtool.nss b/_module/nss/namingtool.nss index 19a4361..1c3f811 100644 --- a/_module/nss/namingtool.nss +++ b/_module/nss/namingtool.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/napper.nss b/_module/nss/napper.nss index 406b2f6..d45d330 100644 --- a/_module/nss/napper.nss +++ b/_module/nss/napper.nss @@ -18,6 +18,8 @@ */ //////////////////////////////////////// #include "x2_inc_switches" +#include "prc_inc_spells" + //Main Script void main() @@ -62,10 +64,10 @@ void main() // * and it hits a target(if it is a weapon) or is being hit (if it is a piece of armor) // * Note that this event fires for non PC creatures as well. - oItem = GetSpellCastItem(); // The item triggering this spellscript + oItem = PRCGetSpellCastItem(); // The item triggering this spellscript oPC = OBJECT_SELF; // The player triggering it oSpellOrigin = OBJECT_SELF ; // Where the spell came from - oSpellTarget = GetSpellTargetObject(); // What the spell is aimed at + oSpellTarget = PRCGetSpellTargetObject(); // What the spell is aimed at //Your code goes here @@ -161,8 +163,8 @@ void main() //* standard spellbooks on the item oPC = OBJECT_SELF; // The player who cast the spell - oItem = GetSpellTargetObject();// The item targeted by the spell - iSpell = GetSpellId(); // The id of the spell that was cast + oItem = PRCGetSpellTargetObject();// The item targeted by the spell + iSpell = PRCGetSpellId(); // The id of the spell that was cast // See the list of SPELL_* constants //Your code goes here diff --git a/_module/nss/nw_c2_default7.nss b/_module/nss/nw_c2_default7.nss deleted file mode 100644 index 75bc651..0000000 --- a/_module/nss/nw_c2_default7.nss +++ /dev/null @@ -1,50 +0,0 @@ -//::////////////////////////////////////////////////// -//:: NW_C2_DEFAULT7 -/* - Default OnDeath event handler for NPCs. - - Adjusts killer's alignment if appropriate and - alerts allies to our death. - */ -//::////////////////////////////////////////////////// -//:: Copyright (c) 2002 Floodgate Entertainment -//:: Created By: Naomi Novik -//:: Created On: 12/22/2002 -//::////////////////////////////////////////////////// - -#include "x2_inc_compon" -#include "x0_i0_spawncond" - -void main() -{ - // Scarface's XP/GP System - ExecuteScript("sf_xp", OBJECT_SELF); - // End - - int nClass = GetLevelByClass(CLASS_TYPE_COMMONER); - int nAlign = GetAlignmentGoodEvil(OBJECT_SELF); - object oKiller = GetLastKiller(); - - // If we're a good commoner, - // adjust the killer's alignment evil - if(nClass > 0 && (nAlign == ALIGNMENT_GOOD)) - { - AdjustAlignment(oKiller, ALIGNMENT_EVIL, 5); - } - - // Call to allies to let them know we're dead - //SpeakString("NW_I_AM_DEAD", TALKVOLUME_SILENT_TALK); - - //Shout Attack my target, only works with the On Spawn In setup - //SpeakString("NW_ATTACK_MY_TARGET", TALKVOLUME_SILENT_TALK); - - // NOTE: the OnDeath user-defined event does not - // trigger reliably and should probably be removed - if(GetSpawnInCondition(NW_FLAG_DEATH_EVENT)) - { - SignalEvent(OBJECT_SELF, EventUserDefined(1007)); - } - //craft_drop_items(oKiller); - - -} diff --git a/_module/nss/pclist.nss b/_module/nss/pclist.nss index 19a4361..1c3f811 100644 --- a/_module/nss/pclist.nss +++ b/_module/nss/pclist.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/pcplaything.nss b/_module/nss/pcplaything.nss index 19a4361..1c3f811 100644 --- a/_module/nss/pcplaything.nss +++ b/_module/nss/pcplaything.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/plpotion.nss b/_module/nss/plpotion.nss index 19a4361..1c3f811 100644 --- a/_module/nss/plpotion.nss +++ b/_module/nss/plpotion.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/prc_pwondeath.nss b/_module/nss/prc_pwondeath.nss new file mode 100644 index 0000000..8322bc9 --- /dev/null +++ b/_module/nss/prc_pwondeath.nss @@ -0,0 +1,18 @@ +//::////////////////////////////////////////////////// +//:: prc_pwondeath +/* + PRCs OnDeath event handler for NPCs. + */ +//::////////////////////////////////////////////////// + +#include "x2_inc_compon" +#include "x0_i0_spawncond" + +void main() +{ + // Scarface's XP/GP System + ExecuteScript("sf_xp", OBJECT_SELF); + // End + + object oKiller = GetLastKiller(); +} \ No newline at end of file diff --git a/_module/nss/punisher.nss b/_module/nss/punisher.nss index 19a4361..1c3f811 100644 --- a/_module/nss/punisher.nss +++ b/_module/nss/punisher.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/restarter.nss b/_module/nss/restarter.nss index 19a4361..1c3f811 100644 --- a/_module/nss/restarter.nss +++ b/_module/nss/restarter.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/rodfastcast.nss b/_module/nss/rodfastcast.nss index ad19e29..c3bd267 100644 --- a/_module/nss/rodfastcast.nss +++ b/_module/nss/rodfastcast.nss @@ -8,6 +8,8 @@ //::////////////////////////////////////////////// #include "x2_inc_switches" +#include "prc_inc_spells" + //showing spell names is a 2da file hit. When storing //a lot of spells this can cause a significant delay @@ -86,8 +88,8 @@ void main() } //This Event Handles storing the spells else if (nEvent == X2_ITEM_EVENT_SPELLCAST_AT) { - oItem = GetSpellTargetObject(); - nSpellId = GetSpellId(); + oItem = PRCGetSpellTargetObject(); + nSpellId = PRCGetSpellId(); oPC = OBJECT_SELF; //This tells us what position to store the spell on diff --git a/_module/nss/rodofthedead.nss b/_module/nss/rodofthedead.nss index 19a4361..1c3f811 100644 --- a/_module/nss/rodofthedead.nss +++ b/_module/nss/rodofthedead.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/rodofthenameless.nss b/_module/nss/rodofthenameless.nss index 19a4361..1c3f811 100644 --- a/_module/nss/rodofthenameless.nss +++ b/_module/nss/rodofthenameless.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/rr_debug.nss b/_module/nss/rr_debug.nss index f01be32..7d1b426 100644 --- a/_module/nss/rr_debug.nss +++ b/_module/nss/rr_debug.nss @@ -1,3 +1,5 @@ +#include "prc_inc_spells" + // * colors are: "darkred", "darkblue", "darkgreen", // "lightred", "lightblue", "lightgreen", // "white", "random" @@ -152,8 +154,8 @@ void ObjectAquisitionLastRoleCall() void ObjectAquisitionTagBasedRoleCall() { ToAll("*** *** *** AQUISITION TAGBASED ROLE CALL *** *** ***"); - Debugo(GetSpellCastItem(), "GetSpellCastItem"); - Debugo(GetSpellTargetObject(), "GetSpellTargetObject"); + Debugo(PRCGetSpellCastItem(), "PRCGetSpellCastItem"); + Debugo(PRCGetSpellTargetObject(), "PRCGetSpellTargetObject"); Debugo(GetItemActivator(), "GetItemActivator"); Debugo(GetItemActivated(), "GetItemActivated"); Debugo(GetPCItemLastEquippedBy(), "GetPCItemLastEquippedBy"); @@ -164,5 +166,5 @@ void ObjectAquisitionTagBasedRoleCall() Debugo(GetModuleItemAcquired(), "GetModuleItemAcquired"); Debugo(GetModuleItemLostBy(), "GetModuleItemLostBy"); Debugo(GetModuleItemLost(), "GetModuleItemLost"); - Debugo(GetSpellTargetObject(), "GetSpellTargetObject"); + Debugo(PRCGetSpellTargetObject(), "PRCGetSpellTargetObject"); } diff --git a/_module/nss/rr_tagbased.nss b/_module/nss/rr_tagbased.nss index 4d648bc..e632f0d 100644 --- a/_module/nss/rr_tagbased.nss +++ b/_module/nss/rr_tagbased.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + // Get the PC, regardless of event object GetPC(); @@ -73,10 +75,10 @@ object GetItem() case X2_ITEM_EVENT_ACTIVATE: return GetItemActivated(); case X2_ITEM_EVENT_EQUIP: return GetPCItemLastEquipped(); case X2_ITEM_EVENT_UNEQUIP: return GetPCItemLastUnequipped(); - case X2_ITEM_EVENT_ONHITCAST: return GetSpellCastItem(); + case X2_ITEM_EVENT_ONHITCAST: return PRCGetSpellCastItem(); case X2_ITEM_EVENT_ACQUIRE: return GetModuleItemAcquired(); case X2_ITEM_EVENT_UNACQUIRE: return GetModuleItemLost(); - case X2_ITEM_EVENT_SPELLCAST_AT: return GetSpellTargetObject(); + case X2_ITEM_EVENT_SPELLCAST_AT: return PRCGetSpellTargetObject(); } return OBJECT_INVALID; } @@ -86,7 +88,7 @@ object GetTarget() switch(GetUserDefinedItemEventNumber()) { case X2_ITEM_EVENT_ACTIVATE: return GetItemActivatedTarget(); - case X2_ITEM_EVENT_ONHITCAST: return GetSpellTargetObject(); + case X2_ITEM_EVENT_ONHITCAST: return PRCGetSpellTargetObject(); } return OBJECT_INVALID; } diff --git a/_module/nss/ruin44.nss b/_module/nss/ruin44.nss index 19a4361..1c3f811 100644 --- a/_module/nss/ruin44.nss +++ b/_module/nss/ruin44.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/savingpen2.nss b/_module/nss/savingpen2.nss index 19a4361..1c3f811 100644 --- a/_module/nss/savingpen2.nss +++ b/_module/nss/savingpen2.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/scalesofsentenci.nss b/_module/nss/scalesofsentenci.nss index 19a4361..1c3f811 100644 --- a/_module/nss/scalesofsentenci.nss +++ b/_module/nss/scalesofsentenci.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/shadowsword44.nss b/_module/nss/shadowsword44.nss index 19a4361..1c3f811 100644 --- a/_module/nss/shadowsword44.nss +++ b/_module/nss/shadowsword44.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/shortbowofruin44.nss b/_module/nss/shortbowofruin44.nss index 19a4361..1c3f811 100644 --- a/_module/nss/shortbowofruin44.nss +++ b/_module/nss/shortbowofruin44.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/siempre.nss b/_module/nss/siempre.nss index 19a4361..1c3f811 100644 --- a/_module/nss/siempre.nss +++ b/_module/nss/siempre.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/speedcaster.nss b/_module/nss/speedcaster.nss index b419c40..742ec17 100644 --- a/_module/nss/speedcaster.nss +++ b/_module/nss/speedcaster.nss @@ -11,6 +11,8 @@ on the PC, I did this to keep this code lower. */ //////////////////////////////////////// #include "x2_inc_switches" +#include "prc_inc_spells" + //////////////////////////////////////// @@ -64,10 +66,10 @@ void main() // * and it hits a target(if it is a weapon) or is being hit (if it is a piece of armor) // * Note that this event fires for non PC creatures as well. - oItem = GetSpellCastItem(); // The item triggering this spellscript + oItem = PRCGetSpellCastItem(); // The item triggering this spellscript oPC = OBJECT_SELF; // The player triggering it oSpellOrigin = OBJECT_SELF ; // Where the spell came from - oSpellTarget = GetSpellTargetObject(); // What the spell is aimed at + oSpellTarget = PRCGetSpellTargetObject(); // What the spell is aimed at //Your code goes here @@ -162,8 +164,8 @@ void main() //* standard spellbooks on the item oPC = OBJECT_SELF; // The player who cast the spell - oItem = GetSpellTargetObject();// The item targeted by the spell - iSpell = GetSpellId(); // The id of the spell that was cast + oItem = PRCGetSpellTargetObject();// The item targeted by the spell + iSpell = PRCGetSpellId(); // The id of the spell that was cast // See the list of SPELL_* constants //Your code goes here diff --git a/_module/nss/telerod.nss b/_module/nss/telerod.nss index 19a4361..1c3f811 100644 --- a/_module/nss/telerod.nss +++ b/_module/nss/telerod.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/thehandofgod.nss b/_module/nss/thehandofgod.nss index 19a4361..1c3f811 100644 --- a/_module/nss/thehandofgod.nss +++ b/_module/nss/thehandofgod.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/timecrystal.nss b/_module/nss/timecrystal.nss index 19a4361..1c3f811 100644 --- a/_module/nss/timecrystal.nss +++ b/_module/nss/timecrystal.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/tournamenttrophy.nss b/_module/nss/tournamenttrophy.nss index 19a4361..1c3f811 100644 --- a/_module/nss/tournamenttrophy.nss +++ b/_module/nss/tournamenttrophy.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/vfx_wand.nss b/_module/nss/vfx_wand.nss index 0f0c3d3..9a2354c 100644 --- a/_module/nss/vfx_wand.nss +++ b/_module/nss/vfx_wand.nss @@ -16,6 +16,8 @@ */ //////////////////////////////////////// #include "x2_inc_switches" +#include "prc_inc_spells" + //Main Script void main() @@ -60,10 +62,10 @@ void main() // * and it hits a target(if it is a weapon) or is being hit (if it is a piece of armor) // * Note that this event fires for non PC creatures as well. - oItem = GetSpellCastItem(); // The item triggering this spellscript + oItem = PRCGetSpellCastItem(); // The item triggering this spellscript oPC = OBJECT_SELF; // The player triggering it oSpellOrigin = OBJECT_SELF ; // Where the spell came from - oSpellTarget = GetSpellTargetObject(); // What the spell is aimed at + oSpellTarget = PRCGetSpellTargetObject(); // What the spell is aimed at //Your code goes here } @@ -157,8 +159,8 @@ void main() //* standard spellbooks on the item oPC = OBJECT_SELF; // The player who cast the spell - oItem = GetSpellTargetObject();// The item targeted by the spell - iSpell = GetSpellId(); // The id of the spell that was cast + oItem = PRCGetSpellTargetObject();// The item targeted by the spell + iSpell = PRCGetSpellId(); // The id of the spell that was cast // See the list of SPELL_* constants //Your code goes here diff --git a/_module/nss/weaponchanger.nss b/_module/nss/weaponchanger.nss index 19a4361..1c3f811 100644 --- a/_module/nss/weaponchanger.nss +++ b/_module/nss/weaponchanger.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_module/nss/x2_s1_beholdray.nss b/_module/nss/x2_s1_beholdray.nss deleted file mode 100644 index bfc0c90..0000000 --- a/_module/nss/x2_s1_beholdray.nss +++ /dev/null @@ -1,218 +0,0 @@ -//:://///////////////////////////////////////////// -//:: Beholder Ray Attacks -//:: x2_s2_beholdray -//:: Copyright (c) 2003 Bioware Corp. -//::////////////////////////////////////////////// -/* - Implementation for the new version of the - beholder rays, using projectiles instead of - rays -*/ -//::////////////////////////////////////////////// -//:: Created By: Georg Zoeller -//:: Created On: 2003-09-16 -//::////////////////////////////////////////////// - - -#include "x0_i0_spells" - - -void DoBeholderPetrify(int nDuration,object oSource, object oTarget, int nSpellID); - -void main() -{ - - int nSpell = GetSpellId(); - object oTarget = GetSpellTargetObject(); - int nSave, bSave; - int nSaveDC = 15; - float fDelay; - effect e1, eLink, eVis, eDur; - - - switch (nSpell) - { - case 776 : - nSave = SAVING_THROW_FORT; //BEHOLDER_RAY_DEATH - break; - - case 777: - nSave = SAVING_THROW_WILL; //BEHOLDER_RAY_TK - break; - - case 778 : //BEHOLDER_RAY_PETRI - nSave = SAVING_THROW_FORT; - break; - - case 779: // BEHOLDER_RAY_CHARM - nSave = SAVING_THROW_WILL; - break; - - case 780: //BEHOLDER_RAY_SLOW - nSave = SAVING_THROW_WILL; - break; - - case 783: - nSave = SAVING_THROW_FORT; //BEHOLDER_RAY_WOUND - break; - - case 784: // BEHOLDER_RAY_FEAR - nSave = SAVING_THROW_WILL; - break; - - case 785: - case 786: - case 787: - } - - SignalEvent(oTarget,EventSpellCastAt(OBJECT_SELF,GetSpellId(),TRUE)); - fDelay = 0.0f; //old -- GetSpellEffectDelay(GetLocation(oTarget),OBJECT_SELF); - if (nSave == SAVING_THROW_WILL) - { - bSave = MySavingThrow(SAVING_THROW_WILL,oTarget, nSaveDC,SAVING_THROW_TYPE_ALL,OBJECT_SELF,fDelay) >0; - } - else if (nSave == SAVING_THROW_FORT) - { - bSave = MySavingThrow(SAVING_THROW_FORT,oTarget, nSaveDC,SAVING_THROW_TYPE_ALL,OBJECT_SELF,fDelay) >0; - } - - if (!bSave) - { - - switch (nSpell) - { - case 776: e1 = EffectDeath(TRUE); - eVis = EffectVisualEffect(VFX_IMP_DEATH); - eLink = EffectLinkEffects(e1,eVis); - ApplyEffectToObject(DURATION_TYPE_INSTANT,eLink,oTarget); - break; - - case 777: e1 = ExtraordinaryEffect(EffectKnockdown()); - eVis = EffectVisualEffect(VFX_IMP_STUN); - ApplyEffectToObject(DURATION_TYPE_INSTANT,eVis,oTarget); - ApplyEffectToObject(DURATION_TYPE_TEMPORARY,e1,oTarget,6.0f); - break; - - // Petrify for one round per SaveDC - case 778: eVis = EffectVisualEffect(VFX_IMP_POLYMORPH); - ApplyEffectToObject(DURATION_TYPE_INSTANT,eVis,oTarget); - DoBeholderPetrify(nSaveDC,OBJECT_SELF,oTarget,GetSpellId()); - break; - - - case 779: e1 = EffectCharmed(); - eVis = EffectVisualEffect(VFX_IMP_CHARM); - ApplyEffectToObject(DURATION_TYPE_INSTANT,eVis,oTarget); - ApplyEffectToObject(DURATION_TYPE_TEMPORARY,e1,oTarget,24.0f); - break; - - - case 780: e1 = EffectSlow(); - eVis = EffectVisualEffect(VFX_IMP_SLOW); - ApplyEffectToObject(DURATION_TYPE_INSTANT,eVis,oTarget); - ApplyEffectToObject(DURATION_TYPE_TEMPORARY,e1,oTarget,RoundsToSeconds(6)); - break; - - case 783: e1 = EffectDamage(d8(2)+10); - eVis = EffectVisualEffect(VFX_COM_BLOOD_REG_RED); - ApplyEffectToObject(DURATION_TYPE_INSTANT,eVis,oTarget); - ApplyEffectToObject(DURATION_TYPE_INSTANT,e1,oTarget); - break; - - - case 784: - e1 = EffectFrightened(); - eVis = EffectVisualEffect(VFX_IMP_FEAR_S); - eDur = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_FEAR); - e1 = EffectLinkEffects(eDur,e1); - ApplyEffectToObject(DURATION_TYPE_INSTANT,eVis,oTarget); - ApplyEffectToObject(DURATION_TYPE_TEMPORARY,e1,oTarget,RoundsToSeconds(1+d4())); - break; - - - } - - } - else - { - switch (nSpell) - { - case 776: e1 = EffectDamage(d6(3)+13); - eVis = EffectVisualEffect(VFX_IMP_NEGATIVE_ENERGY); - eLink = EffectLinkEffects(e1,eVis); - ApplyEffectToObject(DURATION_TYPE_INSTANT,eLink,oTarget); - } - } -} - - - -void DoBeholderPetrify(int nDuration,object oSource, object oTarget, int nSpellID) -{ - - if(!GetIsReactionTypeFriendly(oTarget) && !GetIsDead(oTarget)) - { - // * exit if creature is immune to petrification - if (spellsIsImmuneToPetrification(oTarget) == TRUE || GetHasFeat(4643)) //:: PRC's Immunity to Petrification - { - return; - } - float fDifficulty = 0.0; - int bIsPC = GetIsPC(oTarget); - int bShowPopup = FALSE; - - // * calculate Duration based on difficulty settings - int nGameDiff = GetGameDifficulty(); - switch (nGameDiff) - { - case GAME_DIFFICULTY_VERY_EASY: - case GAME_DIFFICULTY_EASY: - case GAME_DIFFICULTY_NORMAL: - fDifficulty = RoundsToSeconds(nDuration); // One Round per hit-die or caster level - break; - case GAME_DIFFICULTY_CORE_RULES: - case GAME_DIFFICULTY_DIFFICULT: - if (!GetPlotFlag(oTarget)) - { - bShowPopup = TRUE; - } - break; - } - - effect ePetrify = EffectPetrify(); - effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE); - effect eLink = EffectLinkEffects(eDur, ePetrify); - - - /// * The duration is permanent against NPCs but only temporary against PCs - if (bIsPC == TRUE) - { - if (bShowPopup == TRUE) - { - // * under hardcore rules or higher, this is an instant death - ApplyEffectToObject(DURATION_TYPE_PERMANENT, eLink, oTarget); - DelayCommand(2.75, PopUpDeathGUIPanel(oTarget, FALSE , TRUE, 40579)); - // if in hardcore, treat the player as an NPC - bIsPC = FALSE; - } - else - ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, fDifficulty); - } - else - { - ApplyEffectToObject(DURATION_TYPE_PERMANENT, eLink, oTarget); - // * Feb 11 2003 BK I don't think this is necessary anymore - //if the target was an NPC - make him uncommandable until Stone to Flesh is cast - //SetCommandable(FALSE, oTarget); - - // Feb 5 2004 - Jon - // Added kick-henchman-out-of-party code from generic petrify script - if (GetAssociateType(oTarget) == ASSOCIATE_TYPE_HENCHMAN) - { - FireHenchman(GetMaster(oTarget),oTarget); - } - } - // April 2003: Clearing actions to kick them out of conversation when petrified - AssignCommand(oTarget, ClearAllActions()); - } -} diff --git a/_module/nss/x2_s2_mghtyrage.nss b/_module/nss/x2_s2_mghtyrage.nss deleted file mode 100644 index c2b2124..0000000 --- a/_module/nss/x2_s2_mghtyrage.nss +++ /dev/null @@ -1,200 +0,0 @@ -//:://///////////////////////////////////////////// -//:: Mighty Rage -//:: X2_S2_MghtyRage -//:: Copyright (c) 2001 Bioware Corp. -//::////////////////////////////////////////////// -/* - + 12 Str - + 12 Con - + 3 Will Save - - 2 Ac - - if maximum str is already reached before or during rage the barbarian gets the following: - + slashing bonus damage - + attack bonus - - or if maximum con is reached: - + temporary hp -*/ -//::////////////////////////////////////////////// -//:: Created By: Andrew Nobbs -//:: Created On: May 16, 2003 -//::////////////////////////////////////////////// -//::////////////////////////////////////////////// -//:: Rewritten By: Mizzajl -//:: Created On: Oct 24, 2004 -//::////////////////////////////////////////////// -//:: Edited By: Bogo Rath -//::////////////////////////////////////////////// -#include "x2_inc_itemprop" -#include "prc_class_const" - -int GetInnateAbility(object oCreature, int nAbility) -{ - ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectAbilityIncrease(nAbility, 12), oCreature, 0.01); - return GetAbilityScore(oCreature, nAbility) - 12; -} - - -//------------------------------------------------------------------------------ -// GZ, 2003-07-09 -// If the character calling this function from a spellscript has the thundering -// rage feat, his weapons are upgraded to deafen and cause 2d6 points of massive -// criticals -//------------------------------------------------------------------------------ -void CheckAndApplyThunderingRage(int nRounds) -{ - if (GetHasFeat(988, OBJECT_SELF)) - { - object oWeapon = GetItemInSlot(INVENTORY_SLOT_RIGHTHAND); - - if (GetIsObjectValid(oWeapon)) - { - IPSafeAddItemProperty(oWeapon, ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_SONIC, IP_CONST_DAMAGEBONUS_2d12), RoundsToSeconds(nRounds), X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,FALSE,TRUE); - IPSafeAddItemProperty(oWeapon, ItemPropertyVisualEffect(ITEM_VISUAL_SONIC), RoundsToSeconds(nRounds), X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,FALSE,TRUE); - IPSafeAddItemProperty(oWeapon, ItemPropertyOnHitProps(IP_CONST_ONHIT_DEAFNESS,IP_CONST_ONHIT_SAVEDC_26,IP_CONST_ONHIT_DURATION_50_PERCENT_2_ROUNDS), RoundsToSeconds(nRounds), X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,FALSE,TRUE); - } - - oWeapon = GetItemInSlot(INVENTORY_SLOT_LEFTHAND); - - if (GetIsObjectValid(oWeapon) ) - { - IPSafeAddItemProperty(oWeapon, ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_SONIC, IP_CONST_DAMAGEBONUS_2d12), RoundsToSeconds(nRounds), X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,FALSE,TRUE); - IPSafeAddItemProperty(oWeapon,ItemPropertyVisualEffect(ITEM_VISUAL_SONIC), RoundsToSeconds(nRounds), X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,FALSE,TRUE); - IPSafeAddItemProperty(oWeapon, ItemPropertyOnHitProps(IP_CONST_ONHIT_DEAFNESS,IP_CONST_ONHIT_SAVEDC_26,IP_CONST_ONHIT_DURATION_50_PERCENT_2_ROUNDS), RoundsToSeconds(nRounds), X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,FALSE,TRUE); - } - } -} - -//------------------------------------------------------------------------------ -// GZ, 2003-07-09 -// If the character calling this function from a spellscript has the terrifying -// rage feat, he gets an aura of fear for the specified duration -// The saving throw against this fear is a check opposed to the character's -// intimidation skill -//------------------------------------------------------------------------------ -void CheckAndApplyTerrifyingRage(int nRounds) -{ - if (GetHasFeat(989, OBJECT_SELF)) - { - effect eAOE = EffectAreaOfEffect(AOE_MOB_FEAR,"x2_s2_terrage_A", "",""); - ApplyEffectToObject(DURATION_TYPE_TEMPORARY,eAOE,OBJECT_SELF,RoundsToSeconds(nRounds)); - } -} - -//------------------------------------------------------------------------------ -// GZ, 2003-07-09 -// Hub function for the epic barbarian feats that upgrade rage. Call from -// the end of the barbarian rage spellscript -//------------------------------------------------------------------------------ -void CheckAndApplyEpicRageFeats(int nRounds) -{ - CheckAndApplyThunderingRage(nRounds); - CheckAndApplyTerrifyingRage(nRounds); -} - - -void main() -{ - if(!GetHasFeatEffect(FEAT_BARBARIAN_RAGE)) - { - //Declare major variables - int nLevel = GetLevelByClass(CLASS_TYPE_BARBARIAN) - + GetLevelByClass(CLASS_TYPE_FRE_BERSERKER) - + GetLevelByClass(CLASS_TYPE_BATTLERAGER) - + GetLevelByClass(CLASS_TYPE_CELEBRANT_SHARESS) - + GetLevelByClass(CLASS_TYPE_BLACK_BLOOD_CULTIST) - + GetLevelByClass(CLASS_TYPE_RUNESCARRED) - + GetLevelByClass(CLASS_TYPE_TOTEM_RAGER) - + GetLevelByClass(CLASS_TYPE_FRE_BERSERKER) - + GetLevelByClass(CLASS_TYPE_FROSTRAGER); - - int nHD = GetHitDice(OBJECT_SELF); - int nSave = 3; - int nStrIncrease = 12; - int nConIncrease = 12; - - // Stacks str and con so that none is lost if you reach the +12 limit - int nStrenght = GetAbilityScore(OBJECT_SELF, ABILITY_STRENGTH); - int nDexterity = GetAbilityScore(OBJECT_SELF, ABILITY_DEXTERITY); - int nConstitution = GetAbilityScore(OBJECT_SELF, ABILITY_CONSTITUTION); - int nDur = 3 + GetAbilityModifier(ABILITY_CONSTITUTION) + nConIncrease; - int nBaseStr = GetInnateAbility(OBJECT_SELF, ABILITY_STRENGTH); - int nBaseCon = GetInnateAbility(OBJECT_SELF, ABILITY_CONSTITUTION); - - int nOverCapStr = nStrenght - nBaseStr - 0 + nStrIncrease; - int nOverCapCon = nConstitution - nBaseCon - 0 + nConIncrease; - if(nOverCapStr > 12) - { - nStrIncrease = nStrIncrease - nOverCapStr; - } - - if(nOverCapCon > 12) - { - nConIncrease = nConIncrease - nOverCapCon; - } - //end of calculation :) - - PlayVoiceChat(VOICE_CHAT_BATTLECRY2); - //Determine the duration by getting the con modifier after being modified - effect eStr = EffectAbilityIncrease(ABILITY_STRENGTH, nStrIncrease); - effect eCon = EffectAbilityIncrease(ABILITY_CONSTITUTION, nConIncrease); - effect eSave = EffectSavingThrowIncrease(SAVING_THROW_WILL, nSave); - effect eAC = EffectACDecrease(4, AC_DODGE_BONUS); - effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE); - - // adds Damage, AB and HP - effect eAB = EffectAttackIncrease(nOverCapStr/2); - effect eBonusDamage = EffectDamageIncrease(nOverCapStr/2, DAMAGE_TYPE_SLASHING); - effect eHP = EffectTemporaryHitpoints((nOverCapCon/2) * nHD); - - effect eLink = EffectLinkEffects(eCon, eStr); - eLink = EffectLinkEffects(eLink, eSave); - eLink = EffectLinkEffects(eLink, eAC); - eLink = EffectLinkEffects(eLink, eDur); - - //checks if any str is lost because of the +12 limit - if(nOverCapStr > 12) - { - //check if the char is NOT a dexer - if(GetHasFeat(FEAT_WEAPON_FINESSE, OBJECT_SELF) == TRUE) - { - if(nStrenght > nDexterity) - { - //only aply if str is higher than dex - eLink = EffectLinkEffects(eLink, eAB); - } - } - else // if you dont have weapon finesse you get the AB even if dex is higher - { - eLink = EffectLinkEffects(eLink, eAB); - } - // dexers always gets more damage even if dex is higher - eLink = EffectLinkEffects(eLink, eBonusDamage); - } - - - SignalEvent(OBJECT_SELF, EventSpellCastAt(OBJECT_SELF, SPELLABILITY_BARBARIAN_RAGE, FALSE)); - //Make effect extraordinary - eLink = ExtraordinaryEffect(eLink); - effect eVis = EffectVisualEffect(VFX_IMP_IMPROVE_ABILITY_SCORE); //Change to the Rage VFX - - if (nDur > 12) - { - //Apply the VFX impact and effects - DelayCommand(0.02, ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, OBJECT_SELF, RoundsToSeconds(nDur))); - - //checks if any con is lost because of the +12 limit - //hp could not be linked, losing hp whould result in lose of all bonuses - if(nOverCapCon > 12) - { - DelayCommand(0.02, ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eHP, OBJECT_SELF, RoundsToSeconds(nDur))); - } - - ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, OBJECT_SELF) ; - - // 2003-07-08, Georg: Rage Epic Feat Handling - CheckAndApplyEpicRageFeats(nDur); - } - } -} diff --git a/_module/nss/x2_s3_flameskin.nss b/_module/nss/x2_s3_flameskin.nss index ce67f13..acd8664 100644 --- a/_module/nss/x2_s3_flameskin.nss +++ b/_module/nss/x2_s3_flameskin.nss @@ -17,6 +17,8 @@ //::////////////////////////////////////////////// #include "nw_i0_spells" +#include "prc_inc_spells" + void main() { @@ -27,9 +29,9 @@ void main() // fill the variables oSpellOrigin = OBJECT_SELF; - oSpellTarget = GetSpellTargetObject(); - oItem = GetSpellCastItem(); - int nLevel = GetCasterLevel(OBJECT_SELF); + oSpellTarget = PRCPRCGetSpellTargetObject(); + oItem = PRCGetSpellCastItem(); + int nLevel = PRCGetCasterLevel(OBJECT_SELF); if (GetIsObjectValid(oItem)) { @@ -42,7 +44,7 @@ void main() } if (!GetWeaponRanged(oWeapon) || !GetIsObjectValid(oWeapon)) { - SignalEvent(oSpellTarget,EventSpellCastAt(OBJECT_SELF,GetSpellId())); + SignalEvent(oSpellTarget,EventSpellCastAt(OBJECT_SELF,PRCGetSpellId())); int nDamage = d4(3)+ nLevel; effect eDamage = EffectDamage(nDamage,DAMAGE_TYPE_FIRE); effect eVis; diff --git a/_module/nss/x2_s3_flamingd.nss b/_module/nss/x2_s3_flamingd.nss index 02403a8..023dc06 100644 --- a/_module/nss/x2_s3_flamingd.nss +++ b/_module/nss/x2_s3_flamingd.nss @@ -19,6 +19,7 @@ //:: Created By: Georg Zoeller //:: Created On: 2003-07-17 //::////////////////////////////////////////////// +#include "prc_inc_spells" void main() { @@ -43,7 +44,7 @@ void main() eVis =EffectVisualEffect(VFX_IMP_FLAME_M); } eDmg = EffectLinkEffects (eVis, eDmg); - object oTarget = GetSpellTargetObject(); + object oTarget = PRCGetSpellTargetObject(); if (GetIsObjectValid(oTarget)) { diff --git a/_module/nss/xbowofruin44.nss b/_module/nss/xbowofruin44.nss index 19a4361..1c3f811 100644 --- a/_module/nss/xbowofruin44.nss +++ b/_module/nss/xbowofruin44.nss @@ -1,4 +1,6 @@ #include "x2_inc_switches" +#include "prc_inc_spells" + void main() { int nEvent =GetUserDefinedItemEventNumber(); @@ -23,7 +25,7 @@ OBJECT_SELF); break; ExecuteScript("sp_"+GetTag(GetModuleItemLost()), OBJECT_SELF); break; case X2_ITEM_EVENT_ONHITCAST: -ExecuteScript("on_"+GetTag(GetSpellCastItem()), +ExecuteScript("on_"+GetTag(PRCGetSpellCastItem()), OBJECT_SELF); break; } } diff --git a/_release/Old/Underworld 2 [PRC35-CEP3].7z b/_release/Old/Underworld 2 [PRC35-CEP3].7z new file mode 100644 index 0000000..9730b5c Binary files /dev/null and b/_release/Old/Underworld 2 [PRC35-CEP3].7z differ diff --git a/_release/Underworld 2 [PRC8-CEP3].7z b/_release/Underworld 2 [PRC8-CEP3].7z index 9730b5c..3587b8d 100644 Binary files a/_release/Underworld 2 [PRC8-CEP3].7z and b/_release/Underworld 2 [PRC8-CEP3].7z differ