Files
PRC8/nwn/nwnprc/trunk/scripts/prc_heal_comp.nss
Jaysyn904 54386fc90c 2025/12/09 Update
Celebrant of Sharess is an Arcane class.
Fixed Acolyte of the Ego bonus feat bug.
Disabled Hidden Talent to change it to a conversation.
Fixed Force Missiles iprp name error.
Added default package for the healer class.
Fixed description for the Retrieve power.
Updated Healer's Celestial Companion class ability.
Added GetHealerCompanionBonus(), CelestialTemplateEffects(), json_UpdateCelestialCR(), MakeCelestialCompanionFromTemplate() and MakeCelestialCreatureFromTemplate()
Fixed Nezumi's Hardiness vs. Disease ability.
Fixed Avalanche of Blades.
Stopped War Domain from constantly running on NPCs.
Sorcerous RHD casters can enter Dragon Disciple.
Added some reference material to notes.
2025-12-09 23:59:28 -05:00

536 lines
18 KiB
Plaintext
Raw Blame History

/*
Type of Feat: Class
Prerequisite: Healer 8
Specifics: Gain a companion
Use: Selected.
*/
void SummonCelestialCompanion(object oPC, string sResRef, int nHD, int nHealerLvl, location lTarget, float fDuration);
const int HEALER_COMP_UNICORN = 1845;
const int HEALER_COMP_LAMMASU = 1846;
const int HEALER_COMP_ANDRO = 1847;
#include "prc_inc_assoc"
#include "prc_inc_json"
void main()
{
object oCaster = OBJECT_SELF;
object oComp = GetAssociateNPC(ASSOCIATE_TYPE_CELESTIALCOMPANION, oCaster);
int nSpellId = GetSpellId();
int nHealerLvl = GetLevelByClass(CLASS_TYPE_HEALER, oCaster);
float fDuration = HoursToSeconds(nHealerLvl*2);
if((HEALER_COMP_LAMMASU == nSpellId && nHealerLvl < 12) || (HEALER_COMP_ANDRO == nSpellId && nHealerLvl < 16))
{
FloatingTextStringOnCreature("You are too low level to summon this companion", oCaster, FALSE);
IncrementRemainingFeatUses(oCaster, FEAT_CELESTIAL_COMPANION);
return;
}
vector vloc = GetPositionFromLocation(GetLocation(oCaster));
vector vLoc = Vector( vloc.x + (Random(6) - 2.5f), vloc.y + (Random(6) - 2.5f), vloc.z );
location lTarget = Location(GetArea(oCaster), vLoc, IntToFloat(Random(361) - 180));
string sSummon;
string sNewName;
int nHD;
if(HEALER_COMP_UNICORN == nSpellId)
{
sSummon = "prc_sum_unicrn01";
nHD = 4;
}
else if(HEALER_COMP_LAMMASU == nSpellId)
{
sSummon = "prc_sum_lamasu01";
nHD = 7;
}
else if(HEALER_COMP_ANDRO == nSpellId)
{
sSummon = "prc_sum_andro01";
nHD = 12;
}
//remove previously summoned companion
if(GetIsObjectValid(oComp))
DestroyAssociate(oComp);
effect eVis = EffectVisualEffect(VFX_FNF_SUMMON_CELESTIAL);
ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eVis, lTarget);
DelayCommand(2.0f, SummonCelestialCompanion(oCaster, sSummon, nHD, nHealerLvl, lTarget, fDuration));
}
void SummonCelestialCompanion(object oPC, string sResRef, int nHD, int nHealerLvl, location lTarget, float fDuration)
{
// Calculate effective level based on companion type
int nEffectiveLevel = nHealerLvl;
if(sResRef == "prc_sum_lamasu01")
nEffectiveLevel -= 4;
else if(sResRef == "prc_sum_andro01")
nEffectiveLevel -= 8;
string sNewName;
object oCelestial;
int iTargetLvl = 0;
int iBaseCL = 0;
int bMove, bSR, bSave;
if (nEffectiveLevel >= 18)
{
bSave = TRUE;
bSR = TRUE;
bMove = TRUE;
}
else if(nEffectiveLevel >= 15)
{
bSave = TRUE;
}
if(sResRef == "prc_sum_unicrn01")
{
sNewName = "Celestial Unicorn Companion";
oCelestial = MakeCelestialCompanionFromTemplate(sResRef, lTarget, nEffectiveLevel);
int nOriginalHD = GetLocalInt(oCelestial, "nOriginalHD");
int nBonus = GetHealerCompanionBonus(nEffectiveLevel);
if (nBonus < 1) nBonus = 0;
iTargetLvl = nBonus + nOriginalHD;
int iMinHD = GetLocalInt(oCelestial, "iMinHD");
int iMaxHD = GetLocalInt(oCelestial, "iMaxHD");
int iClass2 = GetLocalInt(oCelestial, "Class2");
int iClass2Package = GetLocalInt(oCelestial, "Class2Package");
int iClass2Start = GetLocalInt(oCelestial, "Class2Start");
int iBaseCL = GetLocalInt(oCelestial, "iBaseCL");
int iMagicUse = GetLocalInt(oCelestial, "X2_L_BEH_MAGIC");
string sAI = GetLocalString(oCelestial, "X2_SPECIAL_COMBAT_AI_SCRIPT");
if (DEBUG) DoDebug("prc_heal_comp >> SummonCelestialCompanion: iMinHD = " +IntToString(iMinHD)+".");
if (DEBUG) DoDebug("prc_heal_comp >> SummonCelestialCompanion: iMaxHD = " +IntToString(iMaxHD)+".");
//check the ranges so we dont go above max, or below min.
if(iTargetLvl < iMinHD) iTargetLvl = iMinHD;
if(iTargetLvl > iMaxHD) iTargetLvl = iMaxHD;
if (DEBUG) DoDebug("prc_heal_comp >> SummonCelestialCompanion: iTargetLvl = " +IntToString(iTargetLvl)+".");
effect eSummon = ExtraordinaryEffect(EffectSummonCreature("", VFX_FNF_SUMMON_CELESTIAL, 0.0, 0, VFX_IMP_UNSUMMON, oCelestial));
ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY, eSummon, lTarget, fDuration);
//:: Fires LevelUpSummon for scaling summons using LevelUpHenchman
LevelUpSummon(oCelestial, iTargetLvl);
SetObjectVisualTransform(oCelestial, OBJECT_VISUAL_TRANSFORM_SCALE, 1.4);
/* effect eUniboost = EffectACIncrease(nBonus, AC_NATURAL_BONUS);
eUniboost = EffectLinkEffects(eUniboost, EffectAbilityIncrease(ABILITY_STRENGTH, nBonus));
eUniboost = EffectLinkEffects(eUniboost, EffectAbilityIncrease(ABILITY_DEXTERITY, nBonus));
eUniboost = EffectLinkEffects(eUniboost, EffectAbilityIncrease(ABILITY_INTELLIGENCE, nBonus));
eUniboost = UnyieldingEffect(eUniboost);
ApplyEffectToObject(DURATION_TYPE_PERMANENT, eUniboost, oCelestial); */
SetCurrentHitPoints(oCelestial, GetMaxPossibleHP(oCelestial));
}
else
{
if(sResRef == "prc_sum_lamasu01")
{
sNewName = "Celestial Lammasu Companion";
}
else if(sResRef == "prc_sum_andro01")
{
sNewName = "Celestial Androsphinx Companion";
}
json jCelestial = TemplateToJson(sResRef, RESTYPE_UTC);
if (jCelestial == JSON_NULL)
{
DoDebug("prc_heal_comp >> TemplateToJson failed <20> bad resref or resource missing.");
return;
}
//:: Get local vars to transfer over.
int iMinHD = json_GetLocalIntFromVarTable(jCelestial, "iMinHD");
int iMaxHD = json_GetLocalIntFromVarTable(jCelestial, "iMaxHD");
int nOriginalHD = json_GetLocalIntFromVarTable(jCelestial, "nOriginalHD");
int iClass2 = json_GetLocalIntFromVarTable(jCelestial, "Class2");
int iClass2Package = json_GetLocalIntFromVarTable(jCelestial, "Class2Package");
int iClass2Start = json_GetLocalIntFromVarTable(jCelestial, "Class2Start");
int iBaseCL = json_GetLocalIntFromVarTable(jCelestial, "iBaseCL");
int iMagicUse = json_GetLocalIntFromVarTable(jCelestial, "X2_L_BEH_MAGIC");
string sAI = json_GetLocalStringFromVarTable(jCelestial, "X2_SPECIAL_COMBAT_AI_SCRIPT");
if (DEBUG) DoDebug("prc_heal_comp >> SummonCelestialCompanion: iMinHD = " +IntToString(iMinHD)+".");
if (DEBUG) DoDebug("prc_heal_comp >> SummonCelestialCompanion: iMaxHD = " +IntToString(iMaxHD)+".");
int nBonus = GetHealerCompanionBonus(nEffectiveLevel);
if (nBonus < 1) nBonus = 0;
// json_AddHitDice ADDS to existing HD, so only pass the bonus
iTargetLvl = nBonus;
// Range check should be on total HD (base + bonus), not just bonus
int nTotalHD = nBonus + nOriginalHD;
if(nTotalHD < iMinHD)
{
iTargetLvl = iMinHD - nOriginalHD;
if(iTargetLvl < 0) iTargetLvl = 0;
}
if(nTotalHD > iMaxHD)
{
iTargetLvl = iMaxHD - nOriginalHD;
}
//:: Stat boost calc
int nStatBoost = GetStatBoostsFromHD(nOriginalHD, nBonus);
//:: Get current HD
int nCurrentHD = json_GetCreatureHD(jCelestial);
if (nCurrentHD <= 0)
{
DoDebug("prc_heal_comp >> json_GetCreatureHD failed <20> template missing HD data.");
return;
}
//:: Get current CR
int nBaseCR = 1;
nBaseCR = FloatToInt(json_GetChallengeRating(jCelestial));
if (nBaseCR <= 0)
{
DoDebug("prc_heal_comp >> json_GetChallengeRating failed <20> template missing CR data.");
return;
}
//:: Add Hit Dice
jCelestial = json_AddHitDice(jCelestial, iTargetLvl);
if (jCelestial == JSON_NULL)
{
SendMessageToPC(oPC, "prc_heal_comp >> json_AddHitDice failed - json became invalid.");
return;
}
//:: Recalculate & maximize HP
nCurrentHD = json_GetCreatureHD(jCelestial);
if (nCurrentHD <= 0)
{
SendMessageToPC(oPC, "prc_heal_comp >> json_GetCreatureHD failed <20> template missing HD data.");
return;
}
if(DEBUG) DoDebug("prc_heal_comp >> nCurrentHD is: "+IntToString(nCurrentHD)+ " entering json_RecalcMaxHP.");
jCelestial = json_RecalcMaxHP(jCelestial, 8);
if (jCelestial == JSON_NULL)
{
SendMessageToPC(oPC, "prc_heal_comp >> json_RecalcMaxHP failed - JSON became invalid.");
return;
}
//:: Update CR
jCelestial = json_UpdateCelestialCR(jCelestial, nBaseCR, nCurrentHD);
if (jCelestial == JSON_NULL)
{
DoDebug("prc_heal_comp >> json_UpdateCelestialCR failed <20> json became invalid.");
return;
}
//:: Apply celestial template modifications
jCelestial = json_MakeCelestial(jCelestial, nCurrentHD, nBaseCR);
if (jCelestial == JSON_NULL)
{
DoDebug("prc_heal_comp >> MakeCelestialCreatureFromTemplate failed <20> MakeCelestial returned invalid JSON.");
return;
}
//:: Update feats from bonus HD
jCelestial = json_AddFeatsFromCreatureVars(jCelestial, nOriginalHD);
if (jCelestial == JSON_NULL)
{
SendMessageToPC(oPC, "prc_heal_comp >> json_AddFeatsFromCreatureVars failed <20> JSON became invalid.");
return;
}
//:: Update stats for Bonus HD
jCelestial = json_ApplyAbilityBoostFromHD(jCelestial, nOriginalHD);
if (jCelestial == JSON_NULL)
{
SendMessageToPC(oPC, "prc_heal_comp >> json_ApplyAbilityBoostFromHD failed <20> JSON became invalid.");
return;
}
//:: Bonus stats for Healer Level
jCelestial = json_UpdateTemplateStats(jCelestial, nBonus, nBonus, 0, nBonus, 0, 0);
if (jCelestial == JSON_NULL)
{
SendMessageToPC(oPC, "prc_heal_comp >> json_UpdateTemplateStats failed <20> JSON became invalid.");
return;
}
//:: Apply +2 Natural AC bonus per 3 Healer levels
jCelestial = json_IncreaseBaseAC(jCelestial, nBonus);
if (jCelestial == JSON_NULL)
{
SendMessageToPC(oPC, "prc_heal_comp >> json_IncreaseBaseAC failed <20> JSON became invalid.");
return;
}
if(sResRef == "prc_sum_lamasu01")
{
//:: Lammasu w/ 16 INT gets 5 (2+3) skill points per HD
jCelestial = json_AdjustCreatureSkillByID(jCelestial, SKILL_CONCENTRATION, iTargetLvl);
if (jCelestial == JSON_NULL)
{
SendMessageToPC(oPC, "prc_heal_comp >> json_AdjustCreatureSkillByID failed on CONCENTRATION <20> JSON became invalid.");
return;
}
jCelestial = json_AdjustCreatureSkillByID(jCelestial, SKILL_LISTEN, iTargetLvl);
if (jCelestial == JSON_NULL)
{
SendMessageToPC(oPC, "prc_heal_comp >> json_AdjustCreatureSkillByID failed on LISTEN <20> JSON became invalid.");
return;
}
jCelestial = json_AdjustCreatureSkillByID(jCelestial, SKILL_LORE, iTargetLvl);
if (jCelestial == JSON_NULL)
{
SendMessageToPC(oPC, "prc_heal_comp >> json_AdjustCreatureSkillByID failed on LORE <20> JSON became invalid.");
return;
}
jCelestial = json_AdjustCreatureSkillByID(jCelestial, SKILL_SPOT, iTargetLvl);
if (jCelestial == JSON_NULL)
{
SendMessageToPC(oPC, "prc_heal_comp >> json_AdjustCreatureSkillByID failed on SPOT <20> JSON became invalid.");
return;
}
jCelestial = json_AdjustCreatureSkillByID(jCelestial, SKILL_SENSE_MOTIVE, iTargetLvl);
if (jCelestial == JSON_NULL)
{
SendMessageToPC(oPC, "prc_heal_comp >> json_AdjustCreatureSkillByID failed on SENSE MOTIVE <20> JSON became invalid.");
return;
}
//:: Lammasu size increases to huge @ 11 HD / 20 Healer levels
if (nHealerLvl >= 20)
{
jCelestial = json_AdjustCreatureSize(jCelestial, 1);
if (jCelestial == JSON_NULL)
{
SendMessageToPC(oPC, "prc_heal_comp >> json_AdjustCreatureSize failed - JSON became invalid.");
return;
}
}
}
if (sResRef == "prc_sum_andro01")
{
//:: Androsphinx w/ 16 INT gets 5 (2+3) skill points per HD
jCelestial = json_AdjustCreatureSkillByID(jCelestial, SKILL_INTIMIDATE, iTargetLvl);
if (jCelestial == JSON_NULL)
{
SendMessageToPC(oPC, "prc_heal_comp >> json_AdjustCreatureSkillByID failed on INTIMIDATE <20> JSON became invalid.");
return;
}
jCelestial = json_AdjustCreatureSkillByID(jCelestial, SKILL_LISTEN, iTargetLvl);
if (jCelestial == JSON_NULL)
{
SendMessageToPC(oPC, "prc_heal_comp >> json_AdjustCreatureSkillByID failed on LISTEN <20> JSON became invalid.");
return;
}
jCelestial = json_AdjustCreatureSkillByID(jCelestial, SKILL_LORE, iTargetLvl);
if (jCelestial == JSON_NULL)
{
SendMessageToPC(oPC, "prc_heal_comp >> json_AdjustCreatureSkillByID failed on LORE <20> JSON became invalid.");
return;
}
jCelestial = json_AdjustCreatureSkillByID(jCelestial, SKILL_SPOT, iTargetLvl);
if (jCelestial == JSON_NULL)
{
SendMessageToPC(oPC, "prc_heal_comp >> json_AdjustCreatureSkillByID failed on SPOT <20> JSON became invalid.");
return;
}
jCelestial = json_AdjustCreatureSkillByID(jCelestial, SKILL_SENSE_MOTIVE, iTargetLvl);
if (jCelestial == JSON_NULL)
{
SendMessageToPC(oPC, "prc_heal_comp >> json_AdjustCreatureSkillByID failed on SENSE MOTIVE <20> JSON became invalid.");
return;
}
//:: Androsphinx size increases to huge @ 19 HD / 29 Healer levels
if (nHealerLvl >= 29)
{
jCelestial = json_AdjustCreatureSize(jCelestial, 1);
if (jCelestial == JSON_NULL)
{
SendMessageToPC(oPC, "prc_heal_comp >> json_AdjustCreatureSize failed - JSON became invalid.");
return;
}
}
}
//:: Spawn the creature
oCelestial = JsonToObject(jCelestial, lTarget);
//:: Set variables
SetLocalInt(oCelestial, "TEMPLATE_CELESTIAL", 1);
SetLocalInt(oCelestial, "iMinHD", iMinHD);
SetLocalInt(oCelestial, "iMaxHD", iMaxHD);
SetLocalInt(oCelestial, "nOriginalHD", nOriginalHD);
SetLocalInt(oCelestial, "Class2", iClass2);
SetLocalInt(oCelestial, "Class2Package", iClass2Package);
SetLocalInt(oCelestial, "Class2Start", iClass2Start);
SetLocalInt(oCelestial, "iBaseCL", iBaseCL);
SetLocalInt(oCelestial, "X2_L_BEH_MAGIC", iMagicUse);
SetLocalString(oCelestial, "X2_SPECIAL_COMBAT_AI_SCRIPT", sAI);
effect eSummon = ExtraordinaryEffect(EffectSummonCreature("", VFX_FNF_SUMMON_CELESTIAL, 0.0, 0, VFX_IMP_UNSUMMON, oCelestial));
ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY, eSummon, lTarget, fDuration);
if (sResRef == "prc_sum_lamasu01")
{
if (nHealerLvl >= 20)
{
//:: Update creature weapons for Size increase
if(DEBUG) DoDebug("prc_heal_comp: Updating Lammasu creature weapons for size increase.");
object oWeapCR = GetItemInSlot(INVENTORY_SLOT_CWEAPON_R, oCelestial);
MyDestroyObject(oWeapCR);
object oWeapCL = GetItemInSlot(INVENTORY_SLOT_CWEAPON_L, oCelestial);
MyDestroyObject(oWeapCL);
oWeapCR = CreateItemOnObject("nw_it_crewpsp010", oCelestial);
ForceEquip(oCelestial, oWeapCR, INVENTORY_SLOT_CWEAPON_R);
oWeapCL = CreateItemOnObject("nw_it_crewpsp010", oCelestial);
ForceEquip(oCelestial, oWeapCL, INVENTORY_SLOT_CWEAPON_L);
SetObjectVisualTransform(oCelestial, OBJECT_VISUAL_TRANSFORM_SCALE, 1.4);
}
else
{
SetObjectVisualTransform(oCelestial, OBJECT_VISUAL_TRANSFORM_SCALE, 1.2);
}
}
if (sResRef == "prc_sum_andro01")
{
if (nHealerLvl >= 29)
{
//:: Update creature weapons for Size increase
if(DEBUG) DoDebug("prc_heal_comp: Updating Androsphinx creature weapons for size increase.");
object oWeapCR = GetItemInSlot(INVENTORY_SLOT_CWEAPON_R, oCelestial);
MyDestroyObject(oWeapCR);
object oWeapCL = GetItemInSlot(INVENTORY_SLOT_CWEAPON_L, oCelestial);
MyDestroyObject(oWeapCL);
oWeapCR = CreateItemOnObject("nw_it_crewpsp015", oCelestial);
ForceEquip(oCelestial, oWeapCR, INVENTORY_SLOT_CWEAPON_R);
oWeapCL = CreateItemOnObject("nw_it_crewpsp015", oCelestial);
ForceEquip(oCelestial, oWeapCL, INVENTORY_SLOT_CWEAPON_L);
SetObjectVisualTransform(oCelestial, OBJECT_VISUAL_TRANSFORM_SCALE, 1.3);
}
else
{
SetObjectVisualTransform(oCelestial, OBJECT_VISUAL_TRANSFORM_SCALE, 1.1);
}
}
}
SetCurrentHitPoints(oCelestial, GetMaxPossibleHP(oCelestial));
SetLocalNPC(oPC, oCelestial, ASSOCIATE_TYPE_CELESTIALCOMPANION, 1);
SetTag(oCelestial, "prc_heal_comp");
SetLocalObject(oCelestial, "MASTER", oPC);
AddAssociate(oPC, oCelestial);
SetLocalObject(oPC, "HealerCompanion", oCelestial);
SetLocalInt(oCelestial, "X2_JUST_A_DISABLEEQUIP", TRUE);
effect eBonus = CelestialTemplateEffects(iTargetLvl);
//:: Spell Resistance equal to Healer's class + 5, or retain existing SR if higher
int iExSR = GetSpellResistance(oCelestial);
int nSpellResistance;
if (iExSR < nHealerLvl + 5) nSpellResistance = nHealerLvl + 5;
else nSpellResistance = 0;
SetName(oCelestial, sNewName);
if (nHealerLvl >= 18)
{
bSave = TRUE;
bSR = TRUE;
bMove = TRUE;
}
else if(nHealerLvl >= 15)
{
bSave = TRUE;
}
SetLocalInt(oCelestial, PRC_CASTERLEVEL_OVERRIDE, iTargetLvl + iBaseCL);
if(bSave) eBonus = EffectLinkEffects(eBonus, EffectSavingThrowIncrease(SAVING_THROW_WILL, 4, SAVING_THROW_TYPE_MIND_SPELLS));
if(bSR) eBonus = EffectLinkEffects(eBonus, EffectSpellResistanceIncrease(nSpellResistance));
if(bMove) eBonus = EffectLinkEffects(eBonus, EffectMovementSpeedIncrease(33));
eBonus = UnyieldingEffect(eBonus);
ApplyEffectToObject(DURATION_TYPE_PERMANENT, eBonus, oCelestial);
DelayCommand(0.5F, AugmentSummonedCreature(sResRef));
SetName(oCelestial, sNewName);
}
/*
int nArmour, nStat, bSR, bMove, bSave;
effect eBonus;
if (nClass >= 18)
{
nArmour = 6;
nStat = 6;
nHD += 6;
bSave = TRUE;
bSR = TRUE;
bMove = TRUE;
}
else if(nClass >= 15)
{
nArmour = 4;
nStat = 4;
nHD += 4;
bSave = TRUE;
}
else if(nClass >= 12)
{
nArmour = 2;
nStat = 2;
nHD += 2;
}
// Epic bonuses
int nEpicBonus = (nClass - 20) / 2;
nArmour += nEpicBonus;
nHD += nEpicBonus;
nStat += nEpicBonus / 2;
eBonus = EffectACIncrease(nArmour);
if(GetPRCSwitch(PRC_NWNX_FUNCS))
{
PRC_Funcs_ModAbilityScore(oComp, ABILITY_STRENGTH, nStat);
PRC_Funcs_ModAbilityScore(oComp, ABILITY_DEXTERITY, nStat);
PRC_Funcs_ModAbilityScore(oComp, ABILITY_INTELLIGENCE, nStat);
}
else
{
eBonus = EffectLinkEffects(eBonus, EffectAbilityIncrease(ABILITY_STRENGTH, nStat));
eBonus = EffectLinkEffects(eBonus, EffectAbilityIncrease(ABILITY_DEXTERITY, nStat));
eBonus = EffectLinkEffects(eBonus, EffectAbilityIncrease(ABILITY_INTELLIGENCE, nStat));
}
if(bSave) eBonus = EffectLinkEffects(eBonus, EffectSavingThrowIncrease(SAVING_THROW_WILL, 4, SAVING_THROW_TYPE_MIND_SPELLS));
if(bSR) eBonus = EffectLinkEffects(eBonus, EffectSpellResistanceIncrease(nClass));
if(bMove) eBonus = EffectLinkEffects(eBonus, EffectMovementSpeedIncrease(33));
eBonus = SupernaturalEffect(eBonus);
ApplyEffectToObject(DURATION_TYPE_PERMANENT, eBonus, oComp);
} */