PRC8/nwn/nwnprc/trunk/newspellbook/moi_essentiacnv.nss
Jaysyn904 6ec137a24e Updated AMS marker feats
Updated AMS marker feats.  Removed arcane & divine marker feats.  Updated Dread Necromancer for epic progression. Updated weapon baseitem models.  Updated new weapons for crafting & npc equip.
 Updated prefix.  Updated release archive.
2024-02-11 14:01:05 -05:00

708 lines
35 KiB
Plaintext

//:://////////////////////////////////////////////
//:: Meldshaper Invest Essentia choice script
//:: moi_essentiacnv
//:://////////////////////////////////////////////
/*
@author Stratovarius - 2019.12.29
*/
//:://////////////////////////////////////////////
//:://////////////////////////////////////////////
#include "moi_inc_moifunc"
#include "psi_inc_core"
#include "inc_dynconv"
//////////////////////////////////////////////////
/* Constant definitions */
//////////////////////////////////////////////////
const int STAGE_SELECT_TYPE = 0;
const int STAGE_SELECT_MELD = 1;
const int STAGE_SELECT_ESSENTIA = 2;
const int STAGE_CONFIRM_SELECTION = 3;
const int STAGE_SELECT_FEAT = 4;
const int STAGE_SELECT_CLASS = 5;
const int STAGE_SELECT_ESSENTIA_FEAT = 6;
const int STAGE_CONFIRM_SELECTION_FEAT = 7;
const int STAGE_SELECT_ESSENTIA_CLASS = 8;
const int STAGE_CONFIRM_SELECTION_CLASS = 9;
const int STAGE_SELECT_SPELL = 10;
const int STAGE_SELECT_ESSENTIA_SPELL = 11;
const int STAGE_CONFIRM_SELECTION_SPELL = 12;
const int STAGE_SELECT_SPELL_LEVEL = 13;
const int CHOICE_BACK_TO_LSELECT = -1;
const int STRREF_SELECTED_HEADER1 = 16824209; // "You have selected:"
const int STRREF_SELECTED_HEADER2 = 16824210; // "Is this correct?"
const int LEVEL_STRREF_START = 16824809;
const int STRREF_YES = 4752; // "Yes"
const int STRREF_NO = 4753; // "No"
const int SORT = TRUE; // If the sorting takes too much CPU, set to FALSE
const int DEBUG_LIST = FALSE;
//////////////////////////////////////////////////
/* Function defintions */
//////////////////////////////////////////////////
void PrintList(object oMeldshaper)
{
string tp = "Printing list:\n";
string s = GetLocalString(oMeldshaper, "PRC_EssentiaConvo_List_Head");
if(s == ""){
tp += "Empty\n";
}
else{
tp += s + "\n";
s = GetLocalString(oMeldshaper, "PRC_EssentiaConvo_List_Next_" + s);
while(s != ""){
tp += "=> " + s + "\n";
s = GetLocalString(oMeldshaper, "PRC_EssentiaConvo_List_Next_" + s);
}
}
DoDebug(tp);
}
/**
* Creates a linked list of entries that is sorted into alphabetical order
* as it is built.
* Assumption: mystery names are unique.
*
* @param oMeldshaper The storage object aka whomever is gaining powers in this conversation
* @param sChoice The choice string
* @param nChoice The choice value
*/
void AddToTempList(object oMeldshaper, string sChoice, int nChoice)
{
if(DEBUG_LIST) DoDebug("\nAdding to temp list: '" + sChoice + "' - " + IntToString(nChoice));
if(DEBUG_LIST) PrintList(oMeldshaper);
// If there is nothing yet
if(!GetLocalInt(oMeldshaper, "PRC_EssentiaConvo_ListInited"))
{
SetLocalString(oMeldshaper, "PRC_EssentiaConvo_List_Head", sChoice);
SetLocalInt(oMeldshaper, "PRC_EssentiaConvo_List_" + sChoice, nChoice);
SetLocalInt(oMeldshaper, "PRC_EssentiaConvo_ListInited", TRUE);
}
else
{
// Find the location to instert into
string sPrev = "", sNext = GetLocalString(oMeldshaper, "PRC_EssentiaConvo_List_Head");
while(sNext != "" && StringCompare(sChoice, sNext) >= 0)
{
if(DEBUG_LIST) DoDebug("Comparison between '" + sChoice + "' and '" + sNext + "' = " + IntToString(StringCompare(sChoice, sNext)));
sPrev = sNext;
sNext = GetLocalString(oMeldshaper, "PRC_EssentiaConvo_List_Next_" + sNext);
}
// Insert the new entry
// Does it replace the head?
if(sPrev == "")
{
if(DEBUG_LIST) DoDebug("New head");
SetLocalString(oMeldshaper, "PRC_EssentiaConvo_List_Head", sChoice);
}
else
{
if(DEBUG_LIST) DoDebug("Inserting into position between '" + sPrev + "' and '" + sNext + "'");
SetLocalString(oMeldshaper, "PRC_EssentiaConvo_List_Next_" + sPrev, sChoice);
}
SetLocalString(oMeldshaper, "PRC_EssentiaConvo_List_Next_" + sChoice, sNext);
SetLocalInt(oMeldshaper, "PRC_EssentiaConvo_List_" + sChoice, nChoice);
}
}
/**
* Reads the linked list built with AddToTempList() to AddChoice() and
* deletes it.
*
* @param oMeldshaper A PC gaining powers at the moment
*/
void TransferTempList(object oMeldshaper)
{
string sChoice = GetLocalString(oMeldshaper, "PRC_EssentiaConvo_List_Head");
int nChoice = GetLocalInt (oMeldshaper, "PRC_EssentiaConvo_List_" + sChoice);
DeleteLocalString(oMeldshaper, "PRC_EssentiaConvo_List_Head");
string sPrev;
if(DEBUG_LIST) DoDebug("Head is: '" + sChoice + "' - " + IntToString(nChoice));
while(sChoice != "")
{
// Add the choice
AddChoice(sChoice, nChoice, oMeldshaper);
// Get next
sChoice = GetLocalString(oMeldshaper, "PRC_EssentiaConvo_List_Next_" + (sPrev = sChoice));
nChoice = GetLocalInt (oMeldshaper, "PRC_EssentiaConvo_List_" + sChoice);
if(DEBUG_LIST) DoDebug("Next is: '" + sChoice + "' - " + IntToString(nChoice) + "; previous = '" + sPrev + "'");
// Delete the already handled data
DeleteLocalString(oMeldshaper, "PRC_EssentiaConvo_List_Next_" + sPrev);
DeleteLocalInt (oMeldshaper, "PRC_EssentiaConvo_List_" + sPrev);
}
DeleteLocalInt(oMeldshaper, "PRC_EssentiaConvo_ListInited");
}
void main()
{
object oMeldshaper = GetPCSpeaker();
int nValue = GetLocalInt(oMeldshaper, DYNCONV_VARIABLE);
int nStage = GetStage(oMeldshaper);
int nClass = GetMeldshapingClass(oMeldshaper);
string sMeldFile = GetMeldFile();
if (GetLocalInt(oMeldshaper, "nInvestClass") > 70) nClass = GetLocalInt(oMeldshaper, "nInvestClass");
// Check which of the conversation scripts called the scripts
if(nValue == 0) // All of them set the DynConv_Var to non-zero value, so something is wrong -> abort
return;
if(nValue == DYNCONV_SETUP_STAGE)
{
if(DEBUG) DoDebug("moi_essentiacnv: Running setup stage for stage " + IntToString(nStage));
// Check if this stage is marked as already set up
// This stops list duplication when scrolling
if(!GetIsStageSetUp(nStage, oMeldshaper))
{
if(DEBUG) DoDebug("moi_essentiacnv: Stage was not set up already");
if(nStage == STAGE_SELECT_TYPE)
{
if(DEBUG) DoDebug("moi_essentiacnv: Building meld selection");
SetHeader("Choose what you wish to invest essentia in.");
if (GetLevelByClass(CLASS_TYPE_INCARNATE, oMeldshaper)) AddChoice("Incarnate Soulmelds", CLASS_TYPE_INCARNATE, oMeldshaper);
if (GetLevelByClass(CLASS_TYPE_SOULBORN, oMeldshaper)) AddChoice("Soulborn Soulmelds", CLASS_TYPE_SOULBORN, oMeldshaper);
if (GetLevelByClass(CLASS_TYPE_TOTEMIST, oMeldshaper)) AddChoice("Totemist Soulmelds", CLASS_TYPE_TOTEMIST, oMeldshaper);
if (GetLevelByClass(CLASS_TYPE_SPINEMELD_WARRIOR, oMeldshaper)) AddChoice("Spinemeld Warrior Soulmelds", CLASS_TYPE_SPINEMELD_WARRIOR, oMeldshaper);
// This is because feats can't have temporary essentia invested in them
if (!GetTemporaryEssentia(oMeldshaper)) AddChoice("Feats", 2, oMeldshaper);
AddChoice("Class Features", 1, oMeldshaper);
if (GetLevelByClass(CLASS_TYPE_SOULCASTER, oMeldshaper)) AddChoice("Spells & Powers", 4, oMeldshaper);
// Set the next, previous and wait tokens to default values
SetDefaultTokens();
// Set the convo quit text to "Abort"
SetCustomToken(DYNCONV_TOKEN_EXIT, GetStringByStrRef(DYNCONV_STRREF_ABORT_CONVO));
}
else if(nStage == STAGE_SELECT_MELD)
{
if(DEBUG) DoDebug("moi_essentiacnv: Building meld selection");
SetHeader("You are investing in soulmelds as a "+GetStringByStrRef(StringToInt(Get2DACache("classes", "Name", nClass)))+". You can invest up to "+IntToString(GetMaxEssentiaCapacity(oMeldshaper, nClass, -1))+" into a single soulmeld, and up to "+IntToString(GetTotalUsableEssentia(oMeldshaper))+" total. You have used "+IntToString(GetTotalEssentiaInvested(oMeldshaper))+" of your total.");
int i;
for(i = 1; i < 11 ; i++) // Done as two separate loops to skip out Totem melds
{
int nMeld = GetIsChakraUsed(oMeldshaper, i, nClass);
if (DEBUG) DoDebug("nMeld: "+IntToString(nMeld));
// Just list the melds here
if(nMeld)
{
AddChoice(GetStringByStrRef(StringToInt(Get2DACache("spells", "Name", nMeld))), nMeld, oMeldshaper);
}
}
for(i = 12; i < 22 ; i++)
{
int nMeld = GetIsChakraUsed(oMeldshaper, i, nClass);
if (DEBUG) DoDebug("nMeld: "+IntToString(nMeld));
// Just list the melds here
if(nMeld)
{
AddChoice(GetStringByStrRef(StringToInt(Get2DACache("spells", "Name", nMeld))), nMeld, oMeldshaper);
}
}
if (GetRacialType(oMeldshaper) == RACIAL_TYPE_DUSKLING)
AddChoice("Duskling Speed", MELD_DUSKLING_SPEED, oMeldshaper);
// Set the next, previous and wait tokens to default values
SetDefaultTokens();
// Set the convo quit text to "Abort"
SetCustomToken(DYNCONV_TOKEN_EXIT, GetStringByStrRef(DYNCONV_STRREF_ABORT_CONVO));
}
else if(nStage == STAGE_SELECT_FEAT)
{
if(DEBUG) DoDebug("moi_essentiacnv: Building feat selection");
SetHeader("Choose the feat you wish to invest essentia in. You can invest up to "+IntToString(GetMaxEssentiaCapacityFeat(oMeldshaper))+" into a single feat, and up to "+IntToString(GetTotalUsableEssentia(oMeldshaper))+" total. Essentia invested into feats is used up until your next rest. You have used "+IntToString(GetTotalEssentiaInvested(oMeldshaper))+" of your total.");
int i;
for (i = 8869; i < 8889; i++)
{
// Can't have any essentia invested in the feat already
if(GetHasFeat(i, oMeldshaper) && !GetEssentiaInvestedFeat(oMeldshaper, i))
{
AddChoice(GetStringByStrRef(StringToInt(Get2DACache("feat", "FEAT", i))), i, oMeldshaper);
}
}
// Set the next, previous and wait tokens to default values
SetDefaultTokens();
// Set the convo quit text to "Abort"
SetCustomToken(DYNCONV_TOKEN_EXIT, GetStringByStrRef(DYNCONV_STRREF_ABORT_CONVO));
}
else if(nStage == STAGE_SELECT_CLASS)
{
if(DEBUG) DoDebug("moi_essentiacnv: Building feat selection");
SetHeader("Choose the ability you wish to invest essentia in. You can invest up to "+IntToString(GetMaxEssentiaCapacity(oMeldshaper, -1, -1))+" into a single ability, and up to "+IntToString(GetTotalUsableEssentia(oMeldshaper))+" total. You have used "+IntToString(GetTotalEssentiaInvested(oMeldshaper))+" of your total.");
if (GetLevelByClass(CLASS_TYPE_SPINEMELD_WARRIOR, oMeldshaper) >= 2) AddChoice("Spine Enhancement", MELD_SPINE_ENHANCEMENT, oMeldshaper);
if (GetLevelByClass(CLASS_TYPE_IRONSOUL_FORGEMASTER, oMeldshaper) >= 1) AddChoice("Shield Bond", MELD_IRONSOUL_SHIELD, oMeldshaper);
if (GetLevelByClass(CLASS_TYPE_IRONSOUL_FORGEMASTER, oMeldshaper) >= 5) AddChoice("Armor Bond", MELD_IRONSOUL_ARMOR, oMeldshaper);
if (GetLevelByClass(CLASS_TYPE_IRONSOUL_FORGEMASTER, oMeldshaper) >= 9) AddChoice("Weapon Bond", MELD_IRONSOUL_WEAPON, oMeldshaper);
if (GetLevelByClass(CLASS_TYPE_UMBRAL_DISCIPLE, oMeldshaper) >= 1) AddChoice("Step of the Bodiless",MELD_UMBRAL_STEP , oMeldshaper);
if (GetLevelByClass(CLASS_TYPE_UMBRAL_DISCIPLE, oMeldshaper) >= 3) AddChoice("Embrace of Shadow", MELD_UMBRAL_SHADOW, oMeldshaper);
if (GetLevelByClass(CLASS_TYPE_UMBRAL_DISCIPLE, oMeldshaper) >= 7) AddChoice("Sight of the Eyeless",MELD_UMBRAL_SIGHT , oMeldshaper);
if (GetLevelByClass(CLASS_TYPE_UMBRAL_DISCIPLE, oMeldshaper) >= 9) AddChoice("Soulchilling Strike", MELD_UMBRAL_SOUL , oMeldshaper);
if (GetLevelByClass(CLASS_TYPE_UMBRAL_DISCIPLE, oMeldshaper) >= 10) AddChoice("Kiss of the Shadows", MELD_UMBRAL_KISS , oMeldshaper);
if (GetLevelByClass(CLASS_TYPE_INCANDESCENT_CHAMPION, oMeldshaper) >= 1) AddChoice("Incandescent Strike", MELD_INCANDESCENT_STRIKE , oMeldshaper);
if (GetLevelByClass(CLASS_TYPE_INCANDESCENT_CHAMPION, oMeldshaper) >= 2) AddChoice("Incandescent Heal", MELD_INCANDESCENT_HEAL , oMeldshaper);
if (GetLevelByClass(CLASS_TYPE_INCANDESCENT_CHAMPION, oMeldshaper) >= 3) AddChoice("Incandescent Countenance", MELD_INCANDESCENT_COUNTENANCE , oMeldshaper);
if (GetLevelByClass(CLASS_TYPE_INCANDESCENT_CHAMPION, oMeldshaper) >= 5) AddChoice("Incandescent Ray", MELD_INCANDESCENT_RAY , oMeldshaper);
if (GetLevelByClass(CLASS_TYPE_INCANDESCENT_CHAMPION, oMeldshaper) >= 8) AddChoice("Incandescent Aura", MELD_INCANDESCENT_AURA , oMeldshaper);
if (GetLevelByClass(CLASS_TYPE_WITCHBORN_BINDER, oMeldshaper) >= 1) AddChoice("Meldshield", MELD_WITCH_MELDSHIELD, oMeldshaper);
if (GetLevelByClass(CLASS_TYPE_WITCHBORN_BINDER, oMeldshaper) >= 2) AddChoice("Dispelling Orb", MELD_WITCH_DISPEL , oMeldshaper);
if (GetLevelByClass(CLASS_TYPE_WITCHBORN_BINDER, oMeldshaper) >= 4) AddChoice("Mage Shackles", MELD_WITCH_SHACKLES , oMeldshaper);
if (GetLevelByClass(CLASS_TYPE_WITCHBORN_BINDER, oMeldshaper) >= 6) AddChoice("Word of Abrogation", MELD_WITCH_ABROGATION, oMeldshaper);
if (GetLevelByClass(CLASS_TYPE_WITCHBORN_BINDER, oMeldshaper) >= 8) AddChoice("Spiritflat", MELD_WITCH_SPIRITFLAY, oMeldshaper);
if (GetLevelByClass(CLASS_TYPE_WITCHBORN_BINDER, oMeldshaper) >= 10) AddChoice("Grim Integument", MELD_WITCH_INTEGUMENT, oMeldshaper);
// Set the next, previous and wait tokens to default values
SetDefaultTokens();
// Set the convo quit text to "Abort"
SetCustomToken(DYNCONV_TOKEN_EXIT, GetStringByStrRef(DYNCONV_STRREF_ABORT_CONVO));
}
else if(nStage == STAGE_SELECT_SPELL_LEVEL)
{
if(DEBUG) DoDebug("moi_essentiacnv: Building spell level selection");
string sType = "power";
if (GetPrimaryArcaneClass(oMeldshaper)) sType = "spell";
SetHeader("Choose the level of "+sType+" to invest with essentia.");
// Set the tokens.
int nType = GetPrimaryArcaneClass(oMeldshaper);
int nMax = GetMaxSpellLevelForCasterLevel(nType, GetLevelByTypeArcane(oMeldshaper));
if (GetPrimaryPsionicClass(oMeldshaper) > nType) nMax = GetMaxPowerLevel(oMeldshaper);
int i;
for(i = 0; i < nMax; i++){
AddChoice(GetStringByStrRef(LEVEL_STRREF_START - i), // The minus is correct, these are stored in inverse order in the TLK. Whoops
i + 1
);
}
// Set the next, previous and wait tokens to default values
SetDefaultTokens();
// Set the convo quit text to "Abort"
SetCustomToken(DYNCONV_TOKEN_EXIT, GetStringByStrRef(DYNCONV_STRREF_ABORT_CONVO));
}
else if(nStage == STAGE_SELECT_SPELL)
{
if(DEBUG) DoDebug("moi_essentiacnv: Building spell selection");
string sType = "power";
if (GetPrimaryArcaneClass(oMeldshaper)) sType = "spell";
SetHeader("Choose the "+sType+" you wish to invest essentia in. You can invest 1 essentia into a single "+sType+", and into "+IntToString(GetLevelByClass(CLASS_TYPE_SOULCASTER, oMeldshaper))+" "+sType+"s total");
int nType = GetPrimaryArcaneClass(oMeldshaper);
if (nType != CLASS_TYPE_INVALID)
{
//int nMax = GetMaxSpellLevelForCasterLevel(nType, GetLevelByTypeArcane(oMeldshaper));
string sPowerFile = GetFileForClass(nType);
if (nType == CLASS_TYPE_WIZARD) sPowerFile = "cls_spell_sorc";
int nLevelToBrowse = GetLocalInt(oMeldshaper, "SoulcasterLevel");
//FloatingTextStringOnCreature(sPowerFile+" "+IntToString(nLevelToBrowse), oMeldshaper);
int i, nSpellLevel;
string sFeatID;
for(i = 0; i < 550 ; i++)
{
nSpellLevel = StringToInt(Get2DACache(sPowerFile, "Level", i));
if(nSpellLevel < nLevelToBrowse){
continue;
}
//FloatingTextStringOnCreature(IntToString(nSpellLevel)+" "+IntToString(i), oMeldshaper);
//Due to the way the 2das are structured, we know that once
//the level of a read evocation is greater than the maximum castable
//it'll never be lower again. Therefore, we can skip reading the
//evocations that wouldn't be shown anyway.
if(nSpellLevel > nLevelToBrowse){
break;
}
//sFeatID = Get2DACache(sPowerFile, "FeatID", i);
int nSpellId = StringToInt(Get2DACache(sPowerFile, "RealSpellID", i));
if(/*sFeatID != "" && */PRCGetHasSpell(nSpellId, oMeldshaper)) // Non-blank row, must have the spell memorized/known
{
AddChoice(GetStringByStrRef(StringToInt(Get2DACache("spells", "Name", nSpellId))), nSpellId, oMeldshaper);
}
}
}
else // We know we're Psionic
{
string sPowerFile = GetAMSDefinitionFileName(nType);
int nLevelToBrowse = GetLocalInt(oMeldshaper, "SoulcasterLevel");
int i, nSpellLevel;
string sFeatID;
for(i = 0; i < 286 ; i++)
{
nSpellLevel = StringToInt(Get2DACache(sPowerFile, "Level", i));
if(nSpellLevel < nLevelToBrowse){
continue;
}
//Due to the way the 2das are structured, we know that once
//the level of a read evocation is greater than the maximum castable
//it'll never be lower again. Therefore, we can skip reading the
//evocations that wouldn't be shown anyway.
if(nSpellLevel > nLevelToBrowse){
break;
}
sFeatID = Get2DACache(sPowerFile, "FeatID", i);
int nSpellId = StringToInt(Get2DACache(sPowerFile, "RealSpellID", i));
if(sFeatID != "" && GetHasFeat(StringToInt(sFeatID), oMeldshaper)) // Non-blank row, must have the power
{
AddChoice(GetStringByStrRef(StringToInt(Get2DACache("spells", "Name", nSpellId))), nSpellId, oMeldshaper);
}
}
}
// Set the next, previous and wait tokens to default values
SetDefaultTokens();
// Set the convo quit text to "Abort"
SetCustomToken(DYNCONV_TOKEN_EXIT, GetStringByStrRef(DYNCONV_STRREF_ABORT_CONVO));
}
// Selection confirmation stage
else if(nStage == STAGE_SELECT_ESSENTIA)
{
if(DEBUG) DoDebug("moi_essentiacnv: Building essentia selection");
// Build the confirmation query
int nMeld = GetLocalInt(oMeldshaper, "nMeld");
SetHeader("How much do you want to invest into "+GetStringByStrRef(StringToInt(Get2DACache("spells", "Name", nMeld)))+"?");
int i;
for(i = 1; i <= min(GetTotalEssentia(oMeldshaper)-GetTotalEssentiaInvested(oMeldshaper), GetMaxEssentiaCapacity(oMeldshaper, nClass, nMeld)); i++)
{
AddChoice(IntToString(i), i, oMeldshaper);
}
// If there's still room to add more essentia, and there's expanded soulmeld essentia available
if (((GetTotalEssentia(oMeldshaper)-GetTotalEssentiaInvested(oMeldshaper)) > GetMaxEssentiaCapacity(oMeldshaper, nClass, nMeld)) && !GetIsSoulmeldCapacityUsed(oMeldshaper))
{
AddChoice(IntToString(i), 1000+i, oMeldshaper);
}
}
else if(nStage == STAGE_SELECT_ESSENTIA_FEAT)
{
if(DEBUG) DoDebug("moi_essentiacnv: Building essentia selection");
// Build the confirmation query
int nMeld = GetLocalInt(oMeldshaper, "nMeld");
SetHeader("How much do you want to invest into "+GetStringByStrRef(StringToInt(Get2DACache("feat", "FEAT", nMeld)))+"?");
int i;
for(i = 1; i <= min(GetTotalEssentia(oMeldshaper)-GetTotalEssentiaInvested(oMeldshaper), GetMaxEssentiaCapacityFeat(oMeldshaper)); i++)
{
AddChoice(IntToString(i), i, oMeldshaper);
}
}
else if(nStage == STAGE_SELECT_ESSENTIA_CLASS)
{
if(DEBUG) DoDebug("moi_essentiacnv: Building essentia selection");
// Build the confirmation query
int nMeld = GetLocalInt(oMeldshaper, "nMeld");
SetHeader("How much do you want to invest into "+GetStringByStrRef(StringToInt(Get2DACache("spells", "Name", nMeld)))+"?");
int nMax = min(GetTotalEssentia(oMeldshaper)-GetTotalEssentiaInvested(oMeldshaper), GetMaxEssentiaCapacityFeat(oMeldshaper));
if (nMeld == MELD_SPINE_ENHANCEMENT) nMax = GetLevelByClass(CLASS_TYPE_SPINEMELD_WARRIOR, oMeldshaper)/2;
int i;
for(i = 1; i <= nMax; i++)
{
AddChoice(IntToString(i), i, oMeldshaper);
}
}
else if(nStage == STAGE_SELECT_ESSENTIA_SPELL)
{
if(DEBUG) DoDebug("moi_essentiacnv: Building essentia selection");
// Build the confirmation query
int nMeld = GetLocalInt(oMeldshaper, "nMeld");
SetHeader("How much do you want to invest into "+GetStringByStrRef(StringToInt(Get2DACache("spells", "Name", nMeld)))+"?");
AddChoice(IntToString(1), 1, oMeldshaper);
if (GetLevelByClass(CLASS_TYPE_SOULCASTER, oMeldshaper) >= 7) AddChoice(IntToString(2), 2, oMeldshaper);
}
// Selection confirmation stage
else if(nStage == STAGE_CONFIRM_SELECTION)
{
if(DEBUG) DoDebug("moi_essentiacnv: Building selection confirmation");
// Build the confirmation query
int nMeld = GetLocalInt(oMeldshaper, "nMeld");
int nEssentia = GetLocalInt(oMeldshaper, "nEssentia");
// Marked as using Expanded Soulmeld Capacity, make it look pretty
if (nEssentia > 1000) nEssentia -= 1000;
string sToken = "You have chosen to invest "+IntToString(nEssentia)+" essentia into "+GetStringByStrRef(StringToInt(Get2DACache("spells", "Name", nMeld)))+"."+ "\n\n";
sToken += GetStringByStrRef(STRREF_SELECTED_HEADER2); // "Is this correct?"
SetHeader(sToken);
AddChoice(GetStringByStrRef(STRREF_YES), TRUE, oMeldshaper); // "Yes"
AddChoice(GetStringByStrRef(STRREF_NO), FALSE, oMeldshaper); // "No"
}
else if(nStage == STAGE_CONFIRM_SELECTION_FEAT)
{
if(DEBUG) DoDebug("moi_essentiacnv: Building selection confirmation");
// Build the confirmation query
int nMeld = GetLocalInt(oMeldshaper, "nMeld");
string sToken = "You have chosen to invest "+IntToString(GetLocalInt(oMeldshaper, "nEssentia"))+" essentia into "+GetStringByStrRef(StringToInt(Get2DACache("feat", "FEAT", nMeld)))+"."+ "\n\n";
sToken += GetStringByStrRef(STRREF_SELECTED_HEADER2); // "Is this correct?"
SetHeader(sToken);
AddChoice(GetStringByStrRef(STRREF_YES), TRUE, oMeldshaper); // "Yes"
AddChoice(GetStringByStrRef(STRREF_NO), FALSE, oMeldshaper); // "No"
}
else if(nStage == STAGE_CONFIRM_SELECTION_CLASS)
{
if(DEBUG) DoDebug("moi_essentiacnv: Building selection confirmation");
// Build the confirmation query
int nMeld = GetLocalInt(oMeldshaper, "nMeld");
string sToken = "You have chosen to invest "+IntToString(GetLocalInt(oMeldshaper, "nEssentia"))+" essentia into "+GetStringByStrRef(StringToInt(Get2DACache("spells", "Name", nMeld)))+"."+ "\n\n";
sToken += GetStringByStrRef(STRREF_SELECTED_HEADER2); // "Is this correct?"
SetHeader(sToken);
AddChoice(GetStringByStrRef(STRREF_YES), TRUE, oMeldshaper); // "Yes"
AddChoice(GetStringByStrRef(STRREF_NO), FALSE, oMeldshaper); // "No"
}
else if(nStage == STAGE_CONFIRM_SELECTION_SPELL)
{
if(DEBUG) DoDebug("moi_essentiacnv: Building selection confirmation");
// Build the confirmation query
int nMeld = GetLocalInt(oMeldshaper, "nMeld");
string sToken = "You have chosen to invest "+IntToString(GetLocalInt(oMeldshaper, "nEssentia"))+" essentia into "+GetStringByStrRef(StringToInt(Get2DACache("spells", "Name", nMeld)))+"."+ "\n\n";
sToken += GetStringByStrRef(STRREF_SELECTED_HEADER2); // "Is this correct?"
SetHeader(sToken);
AddChoice(GetStringByStrRef(STRREF_YES), TRUE, oMeldshaper); // "Yes"
AddChoice(GetStringByStrRef(STRREF_NO), FALSE, oMeldshaper); // "No"
}
}
// Do token setup
SetupTokens();
}
else if(nValue == DYNCONV_EXITED)
{
if(DEBUG) DoDebug("moi_essentiacnv: Running exit handler");
// End of conversation cleanup
DeleteLocalInt(oMeldshaper, "nMeld");
DeleteLocalInt(oMeldshaper, "nEssentia");
DeleteLocalInt(oMeldshaper, "nInvestClass");
WipeMelds(oMeldshaper);
ReshapeMelds(oMeldshaper);
}
else if(nValue == DYNCONV_ABORTED)
{
// End of conversation cleanup
DeleteLocalInt(oMeldshaper, "nMeld");
DeleteLocalInt(oMeldshaper, "nEssentia");
DeleteLocalInt(oMeldshaper, "nInvestClass");
WipeMelds(oMeldshaper);
ReshapeMelds(oMeldshaper);
}
// Handle PC response
else
{
int nChoice = GetChoice(oMeldshaper);
if(DEBUG) DoDebug("moi_essentiacnv: Handling PC response, stage = " + IntToString(nStage) + "; nChoice = " + IntToString(nChoice) + "; choice text = '" + GetChoiceText(oMeldshaper) + "'");
if(nStage == STAGE_SELECT_TYPE)
{
if(DEBUG) DoDebug("moi_essentiacnv: Type selected");
if (nChoice == 4)
nStage = STAGE_SELECT_SPELL_LEVEL;
if (nChoice >= 70) // It's a class
{
nStage = STAGE_SELECT_MELD;
SetLocalInt(oMeldshaper, "nInvestClass", nChoice);
}
if (nChoice == 2)
nStage = STAGE_SELECT_FEAT;
if (nChoice == 1)
nStage = STAGE_SELECT_CLASS;
MarkStageNotSetUp(STAGE_SELECT_TYPE, oMeldshaper);
}
else if(nStage == STAGE_SELECT_MELD)
{
if(DEBUG) DoDebug("moi_essentiacnv: Meld selected");
SetLocalInt(oMeldshaper, "nMeld", nChoice);
nStage = STAGE_SELECT_ESSENTIA;
MarkStageNotSetUp(STAGE_SELECT_MELD, oMeldshaper);
}
else if(nStage == STAGE_SELECT_FEAT)
{
if(DEBUG) DoDebug("moi_essentiacnv: Feat selected");
SetLocalInt(oMeldshaper, "nMeld", nChoice);
nStage = STAGE_SELECT_ESSENTIA_FEAT;
MarkStageNotSetUp(STAGE_SELECT_FEAT, oMeldshaper);
}
else if(nStage == STAGE_SELECT_CLASS)
{
if(DEBUG) DoDebug("moi_essentiacnv: Class Ability selected");
SetLocalInt(oMeldshaper, "nMeld", nChoice);
nStage = STAGE_SELECT_ESSENTIA_CLASS;
MarkStageNotSetUp(STAGE_SELECT_CLASS, oMeldshaper);
}
else if(nStage == STAGE_SELECT_SPELL_LEVEL)
{
if(DEBUG) DoDebug("moi_essentiacnv: spell level selected");
SetLocalInt(oMeldshaper, "SoulcasterLevel", nChoice);
nStage = STAGE_SELECT_SPELL;
MarkStageNotSetUp(STAGE_SELECT_SPELL_LEVEL, oMeldshaper);
}
else if(nStage == STAGE_SELECT_SPELL)
{
if(DEBUG) DoDebug("moi_essentiacnv: Spell or Power selected");
SetLocalInt(oMeldshaper, "nMeld", nChoice);
nStage = STAGE_SELECT_ESSENTIA_SPELL;
MarkStageNotSetUp(STAGE_SELECT_SPELL, oMeldshaper);
}
else if(nStage == STAGE_SELECT_ESSENTIA)
{
if(DEBUG) DoDebug("moi_essentiacnv: Meld Essentia selected");
SetLocalInt(oMeldshaper, "nEssentia", nChoice);
nStage = STAGE_CONFIRM_SELECTION;
MarkStageNotSetUp(STAGE_SELECT_ESSENTIA, oMeldshaper);
}
else if(nStage == STAGE_SELECT_ESSENTIA_FEAT)
{
if(DEBUG) DoDebug("moi_essentiacnv: Feat Essentia selected");
SetLocalInt(oMeldshaper, "nEssentia", nChoice);
nStage = STAGE_CONFIRM_SELECTION_FEAT;
MarkStageNotSetUp(STAGE_SELECT_ESSENTIA_FEAT, oMeldshaper);
}
else if(nStage == STAGE_SELECT_ESSENTIA_CLASS)
{
if(DEBUG) DoDebug("moi_essentiacnv: Feat Essentia selected");
SetLocalInt(oMeldshaper, "nEssentia", nChoice);
nStage = STAGE_CONFIRM_SELECTION_CLASS;
MarkStageNotSetUp(STAGE_SELECT_ESSENTIA_CLASS, oMeldshaper);
}
else if(nStage == STAGE_SELECT_ESSENTIA_SPELL)
{
if(DEBUG) DoDebug("moi_essentiacnv: Spell Essentia selected");
SetLocalInt(oMeldshaper, "nEssentia", nChoice);
nStage = STAGE_CONFIRM_SELECTION_SPELL;
MarkStageNotSetUp(STAGE_SELECT_ESSENTIA_SPELL, oMeldshaper);
}
else if(nStage == STAGE_CONFIRM_SELECTION)
{
if (nChoice)
{
InvestEssentia(oMeldshaper, GetLocalInt(oMeldshaper, "nMeld"), GetLocalInt(oMeldshaper, "nEssentia"));
DeleteLocalInt(oMeldshaper, "nMeld");
DeleteLocalInt(oMeldshaper, "nEssentia");
}
// We have more to go
if(GetTotalUsableEssentia(oMeldshaper) > GetTotalEssentiaInvested(oMeldshaper))
{
nStage = STAGE_SELECT_TYPE;
}
else
{
// And we're all done, so wipe and recast everything
WipeMelds(oMeldshaper);
ReshapeMelds(oMeldshaper);
AllowExit(DYNCONV_EXIT_FORCE_EXIT);
}
MarkStageNotSetUp(STAGE_CONFIRM_SELECTION, oMeldshaper);
}
else if(nStage == STAGE_CONFIRM_SELECTION_FEAT)
{
if (nChoice)
{
InvestEssentiaFeat(oMeldshaper, GetLocalInt(oMeldshaper, "nMeld"), GetLocalInt(oMeldshaper, "nEssentia"));
DeleteLocalInt(oMeldshaper, "nMeld");
DeleteLocalInt(oMeldshaper, "nEssentia");
}
// We have more to go
if(GetTotalUsableEssentia(oMeldshaper) > GetTotalEssentiaInvested(oMeldshaper))
{
nStage = STAGE_SELECT_TYPE;
}
else
{
// And we're all done, so wipe and recast everything
WipeMelds(oMeldshaper);
ReshapeMelds(oMeldshaper);
AllowExit(DYNCONV_EXIT_FORCE_EXIT);
}
MarkStageNotSetUp(STAGE_CONFIRM_SELECTION_FEAT, oMeldshaper);
}
else if(nStage == STAGE_CONFIRM_SELECTION_CLASS)
{
if (nChoice)
{
InvestEssentia(oMeldshaper, GetLocalInt(oMeldshaper, "nMeld"), GetLocalInt(oMeldshaper, "nEssentia"));
DeleteLocalInt(oMeldshaper, "nMeld");
DeleteLocalInt(oMeldshaper, "nEssentia");
}
// We have more to go
if(GetTotalUsableEssentia(oMeldshaper) > GetTotalEssentiaInvested(oMeldshaper))
{
nStage = STAGE_SELECT_TYPE;
}
else
{
// And we're all done, so wipe and recast everything
WipeMelds(oMeldshaper);
ReshapeMelds(oMeldshaper);
AllowExit(DYNCONV_EXIT_FORCE_EXIT);
}
MarkStageNotSetUp(STAGE_CONFIRM_SELECTION_CLASS, oMeldshaper);
}
else if(nStage == STAGE_CONFIRM_SELECTION_SPELL)
{
if (nChoice)
{
InvestEssentiaSpell(oMeldshaper, GetLocalInt(oMeldshaper, "nMeld"), GetLocalInt(oMeldshaper, "nEssentia"));
DeleteLocalInt(oMeldshaper, "nMeld");
DeleteLocalInt(oMeldshaper, "nEssentia");
}
// We have more to go
if(GetTotalUsableEssentia(oMeldshaper) > GetTotalEssentiaInvested(oMeldshaper))
{
nStage = STAGE_SELECT_TYPE;
}
else
{
// And we're all done, so wipe and recast everything
WipeMelds(oMeldshaper);
ReshapeMelds(oMeldshaper);
AllowExit(DYNCONV_EXIT_FORCE_EXIT);
}
MarkStageNotSetUp(STAGE_CONFIRM_SELECTION, oMeldshaper);
}
if(DEBUG) DoDebug("moi_essentiacnv: New stage: " + IntToString(nStage));
// Store the stage value. If it has been changed, this clears out the choices
SetStage(nStage, oMeldshaper);
}
}