5914ed2ab5
Updated Release Archive. Fixed Mage-killer prereqs. Removed old LETO & ConvoCC related files. Added organized spell scroll store. Fixed Gloura spellbook. Various TLK fixes. Reorganized Repo. Removed invalid user folders. Added DocGen back in.
405 lines
18 KiB
Plaintext
405 lines
18 KiB
Plaintext
//:://////////////////////////////////////////////
|
|
//:: Ur-Priest Siphon Spell Power choice script
|
|
//:: prc_ur_siphoncnv
|
|
//:://////////////////////////////////////////////
|
|
/** @file
|
|
@author Stratovarius - 28/03/21
|
|
*/
|
|
//:://////////////////////////////////////////////
|
|
//:://////////////////////////////////////////////
|
|
|
|
#include "prc_inc_burn"
|
|
#include "inc_dynconv"
|
|
|
|
//////////////////////////////////////////////////
|
|
/* Constant defintions */
|
|
//////////////////////////////////////////////////
|
|
|
|
const int STAGE_SELECT_BURN_LEVEL_1 = 0;
|
|
const int STAGE_SELECT_BURN_LEVEL_2 = 1;
|
|
const int STAGE_SELECT_SPELL = 2;
|
|
const int STAGE_CONFIRM_SELECTION = 3;
|
|
|
|
const int CHOICE_BACK_TO_LSELECT = -1;
|
|
|
|
const int STRREF_BACK_TO_LSELECT = 16836035; // "Return to level selection."
|
|
const int STRREF_MYSTLIST_HEADER2 = 16836038; // "more mysteries"
|
|
const int STRREF_SELECTED_HEADER1 = 16824209; // "You have selected:"
|
|
const int STRREF_SELECTED_HEADER2 = 16824210; // "Is this correct?"
|
|
const int STRREF_END_CONVO_SELECT = 16824212; // "Finish"
|
|
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 oCaster)
|
|
{
|
|
string tp = "Printing list:\n";
|
|
string s = GetLocalString(oCaster, "PRC_MystConvo_List_Head");
|
|
if(s == ""){
|
|
tp += "Empty\n";
|
|
}
|
|
else{
|
|
tp += s + "\n";
|
|
s = GetLocalString(oCaster, "PRC_MystConvo_List_Next_" + s);
|
|
while(s != ""){
|
|
tp += "=> " + s + "\n";
|
|
s = GetLocalString(oCaster, "PRC_MystConvo_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 oCaster The storage object aka whomever is gaining powers in this conversation
|
|
* @param sChoice The choice string
|
|
* @param nChoice The choice value
|
|
*/
|
|
void AddToTempList(object oCaster, string sChoice, int nChoice)
|
|
{
|
|
if(DEBUG_LIST) DoDebug("\nAdding to temp list: '" + sChoice + "' - " + IntToString(nChoice));
|
|
if(DEBUG_LIST) PrintList(oCaster);
|
|
// If there is nothing yet
|
|
if(!GetLocalInt(oCaster, "PRC_MystConvo_ListInited"))
|
|
{
|
|
SetLocalString(oCaster, "PRC_MystConvo_List_Head", sChoice);
|
|
SetLocalInt(oCaster, "PRC_MystConvo_List_" + sChoice, nChoice);
|
|
|
|
SetLocalInt(oCaster, "PRC_MystConvo_ListInited", TRUE);
|
|
}
|
|
else
|
|
{
|
|
// Find the location to instert into
|
|
string sPrev = "", sNext = GetLocalString(oCaster, "PRC_MystConvo_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(oCaster, "PRC_MystConvo_List_Next_" + sNext);
|
|
}
|
|
|
|
// Insert the new entry
|
|
// Does it replace the head?
|
|
if(sPrev == "")
|
|
{
|
|
if(DEBUG_LIST) DoDebug("New head");
|
|
SetLocalString(oCaster, "PRC_MystConvo_List_Head", sChoice);
|
|
}
|
|
else
|
|
{
|
|
if(DEBUG_LIST) DoDebug("Inserting into position between '" + sPrev + "' and '" + sNext + "'");
|
|
SetLocalString(oCaster, "PRC_MystConvo_List_Next_" + sPrev, sChoice);
|
|
}
|
|
|
|
SetLocalString(oCaster, "PRC_MystConvo_List_Next_" + sChoice, sNext);
|
|
SetLocalInt(oCaster, "PRC_MystConvo_List_" + sChoice, nChoice);
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Reads the linked list built with AddToTempList() to AddChoice() and
|
|
* deletes it.
|
|
*
|
|
* @param oCaster A PC gaining powers at the moment
|
|
*/
|
|
void TransferTempList(object oCaster)
|
|
{
|
|
string sChoice = GetLocalString(oCaster, "PRC_MystConvo_List_Head");
|
|
int nChoice = GetLocalInt (oCaster, "PRC_MystConvo_List_" + sChoice);
|
|
|
|
DeleteLocalString(oCaster, "PRC_MystConvo_List_Head");
|
|
string sPrev;
|
|
|
|
if(DEBUG_LIST) DoDebug("Head is: '" + sChoice + "' - " + IntToString(nChoice));
|
|
|
|
while(sChoice != "")
|
|
{
|
|
// Add the choice
|
|
AddChoice(sChoice, nChoice, oCaster);
|
|
|
|
// Get next
|
|
sChoice = GetLocalString(oCaster, "PRC_MystConvo_List_Next_" + (sPrev = sChoice));
|
|
nChoice = GetLocalInt (oCaster, "PRC_MystConvo_List_" + sChoice);
|
|
|
|
if(DEBUG_LIST) DoDebug("Next is: '" + sChoice + "' - " + IntToString(nChoice) + "; previous = '" + sPrev + "'");
|
|
|
|
// Delete the already handled data
|
|
DeleteLocalString(oCaster, "PRC_MystConvo_List_Next_" + sPrev);
|
|
DeleteLocalInt (oCaster, "PRC_MystConvo_List_" + sPrev);
|
|
}
|
|
|
|
DeleteLocalInt(oCaster, "PRC_MystConvo_ListInited");
|
|
}
|
|
|
|
int HighestSpellLevel(object oCaster)
|
|
{
|
|
int nUr = GetLevelByClass(CLASS_TYPE_UR_PRIEST, oCaster);
|
|
int nWis = GetAbilityScore(oCaster, ABILITY_WISDOM);
|
|
int nTest;
|
|
if (nUr >= 9 && nWis >= 19) nTest = 9;
|
|
else if (nUr >= 8 && nWis >= 18) nTest = 8;
|
|
else if (nUr >= 7 && nWis >= 17) nTest = 7;
|
|
else if (nUr >= 6 && nWis >= 16) nTest = 6;
|
|
else if (nUr >= 5 && nWis >= 15) nTest = 5;
|
|
else if (nUr >= 4 && nWis >= 14) nTest = 4;
|
|
else if (nUr >= 3 && nWis >= 13) nTest = 3;
|
|
else if (nUr >= 2 && nWis >= 12) nTest = 2;
|
|
else if (nUr >= 1 && nWis >= 11) nTest = 1;
|
|
//FloatingTextStringOnCreature(IntToString(nTest), oCaster);
|
|
return nTest;
|
|
}
|
|
|
|
void main()
|
|
{
|
|
object oCaster = GetPCSpeaker();
|
|
int nValue = GetLocalInt(oCaster, DYNCONV_VARIABLE);
|
|
int nStage = GetStage(oCaster);
|
|
|
|
string sPowerFile = "cls_spell_cler";
|
|
|
|
// 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("prc_ur_siphoncnv: 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, oCaster))
|
|
{
|
|
if(DEBUG) DoDebug("prc_ur_siphoncnv: Stage was not set up already");
|
|
// Level selection stage
|
|
if(nStage == STAGE_SELECT_BURN_LEVEL_1)
|
|
{
|
|
if(DEBUG) DoDebug("prc_ur_siphoncnv: Building burn level 1 selection");
|
|
SetHeader("Choose the level of the first spell you wish to expend");
|
|
|
|
|
|
// Set the tokens. Max 8th level spell, since you are doing this to cast a higher level spell
|
|
int nSpell;
|
|
int nHighest = HighestSpellLevel(oCaster); // Stop them from burning a max level spell, since that's a waste
|
|
nSpell = GetBestL1Spell(oCaster, -1);
|
|
if (nSpell != -1) AddChoice(GetStringByStrRef(LEVEL_STRREF_START), 1);
|
|
nSpell = GetBestL2Spell(oCaster, -1);
|
|
if (nSpell != -1) AddChoice(GetStringByStrRef(LEVEL_STRREF_START - 1), 2);
|
|
nSpell = GetBestL3Spell(oCaster, -1);
|
|
if (nSpell != -1) AddChoice(GetStringByStrRef(LEVEL_STRREF_START - 2), 3);
|
|
nSpell = GetBestL4Spell(oCaster, -1);
|
|
if (nSpell != -1) AddChoice(GetStringByStrRef(LEVEL_STRREF_START - 3), 4);
|
|
nSpell = GetBestL5Spell(oCaster, -1);
|
|
if (nSpell != -1) AddChoice(GetStringByStrRef(LEVEL_STRREF_START - 4), 5);
|
|
nSpell = GetBestL6Spell(oCaster, -1);
|
|
if (nSpell != -1 && nHighest != 6) AddChoice(GetStringByStrRef(LEVEL_STRREF_START - 5), 6);
|
|
nSpell = GetBestL7Spell(oCaster, -1);
|
|
if (nSpell != -1 && nHighest != 7) AddChoice(GetStringByStrRef(LEVEL_STRREF_START - 6), 7);
|
|
nSpell = GetBestL8Spell(oCaster, -1);
|
|
if (nSpell != -1 && nHighest != 8) AddChoice(GetStringByStrRef(LEVEL_STRREF_START - 7), 8);
|
|
|
|
// 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));
|
|
}
|
|
if(nStage == STAGE_SELECT_BURN_LEVEL_2)
|
|
{
|
|
if(DEBUG) DoDebug("prc_ur_siphoncnv: Building burn level 2 selection");
|
|
int nBurn1 = GetLocalInt(oCaster, "SiphonSpell1");
|
|
SetHeader("Choose the level of the second spell you wish to expend. You have selected "+IntToString(nBurn1)+" as the level of your first spell to expend");
|
|
|
|
|
|
// Set the tokens. Max 8th level spell, since you are doing this to cast a higher level spell
|
|
// Can't select the same spell level as before for ease of code reasons
|
|
int nSpell;
|
|
int nHighest = HighestSpellLevel(oCaster);
|
|
nSpell = GetBestL1Spell(oCaster, -1);
|
|
if (nSpell != -1 && nBurn1 != 1) AddChoice(GetStringByStrRef(LEVEL_STRREF_START), 1);
|
|
nSpell = GetBestL2Spell(oCaster, -1);
|
|
if (nSpell != -1 && nBurn1 != 2) AddChoice(GetStringByStrRef(LEVEL_STRREF_START - 1), 2);
|
|
nSpell = GetBestL3Spell(oCaster, -1);
|
|
if (nSpell != -1 && nBurn1 != 3) AddChoice(GetStringByStrRef(LEVEL_STRREF_START - 2), 3);
|
|
nSpell = GetBestL4Spell(oCaster, -1);
|
|
if (nSpell != -1 && nBurn1 != 4) AddChoice(GetStringByStrRef(LEVEL_STRREF_START - 3), 4);
|
|
nSpell = GetBestL5Spell(oCaster, -1);
|
|
if (nSpell != -1 && nBurn1 != 5) AddChoice(GetStringByStrRef(LEVEL_STRREF_START - 4), 5);
|
|
nSpell = GetBestL6Spell(oCaster, -1);
|
|
if (nSpell != -1 && nBurn1 != 6 && nHighest != 6) AddChoice(GetStringByStrRef(LEVEL_STRREF_START - 5), 6);
|
|
nSpell = GetBestL7Spell(oCaster, -1);
|
|
if (nSpell != -1 && nBurn1 != 7 && nHighest != 7) AddChoice(GetStringByStrRef(LEVEL_STRREF_START - 6), 7);
|
|
nSpell = GetBestL8Spell(oCaster, -1);
|
|
if (nSpell != -1 && nBurn1 != 8 && nHighest != 8) AddChoice(GetStringByStrRef(LEVEL_STRREF_START - 7), 8);
|
|
|
|
// 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));
|
|
}
|
|
// mystery selection stage
|
|
if(nStage == STAGE_SELECT_SPELL)
|
|
{
|
|
if(DEBUG) DoDebug("prc_ur_siphoncnv: Building spell selection");
|
|
|
|
int nBurn1 = GetLocalInt(oCaster, "SiphonSpell1");
|
|
int nBurn2 = GetLocalInt(oCaster, "SiphonSpell2");
|
|
int nSpellLevel = ((nBurn1+nBurn2)/4)*3;
|
|
// Sanity
|
|
if (nSpellLevel > 9) nSpellLevel = 9;
|
|
|
|
// Cap max level at what they can actually cast. We know they're at least a 6th level Ur-Priest
|
|
int nTest = HighestSpellLevel(oCaster);
|
|
if (nSpellLevel > nTest) nSpellLevel = nTest;
|
|
|
|
SetHeader("By expending a spell of level "+IntToString(nBurn1)+" and a spell of level "+IntToString(nBurn2)+", you can prepare a spell of "+IntToString(nSpellLevel)+" level");
|
|
|
|
// Set the first choice to be return to level selection stage
|
|
AddChoice(GetStringByStrRef(STRREF_BACK_TO_LSELECT), CHOICE_BACK_TO_LSELECT, oCaster);
|
|
|
|
int i, nEvoLevel;
|
|
string sFeatID;
|
|
for(i = 0; i < 340 ; i++)
|
|
{
|
|
nEvoLevel = StringToInt(Get2DACache(sPowerFile, "Level", i));
|
|
// Skip any powers of too low level
|
|
if(nEvoLevel < nSpellLevel){
|
|
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(nEvoLevel > nSpellLevel){
|
|
break;
|
|
}
|
|
int nSpellId = StringToInt(Get2DACache(sPowerFile, "RealSpellID", i));
|
|
if(nSpellId) // Non-blank row
|
|
{
|
|
if(SORT) AddToTempList(oCaster, GetStringByStrRef(StringToInt(Get2DACache("spells", "Name", nSpellId))), nSpellId);
|
|
else AddChoice(GetStringByStrRef(StringToInt(Get2DACache("spells", "Name", nSpellId))), nSpellId, oCaster);
|
|
}
|
|
}
|
|
|
|
if(SORT) TransferTempList(oCaster);
|
|
|
|
// Hack - In the mystery selection stage, on returning from
|
|
// confirmation dialog where the answer was "No", restore the
|
|
// offset to be the same as on entering the confirmation dialog.
|
|
if(GetLocalInt(oCaster, "MYSTLISTChoiceOffset"))
|
|
{
|
|
if(DEBUG) DoDebug("prc_ur_siphoncnv: Running offset restoration hack");
|
|
SetLocalInt(oCaster, DYNCONV_CHOICEOFFSET, GetLocalInt(oCaster, "MYSTLISTChoiceOffset") - 1);
|
|
DeleteLocalInt(oCaster, "MYSTLISTChoiceOffset");
|
|
}
|
|
|
|
MarkStageSetUp(STAGE_SELECT_SPELL, oCaster);
|
|
}
|
|
// Selection confirmation stage
|
|
else if(nStage == STAGE_CONFIRM_SELECTION)
|
|
{
|
|
if(DEBUG) DoDebug("prc_ur_siphoncnv: Building selection confirmation");
|
|
// Build the confirmantion query
|
|
string sToken = GetStringByStrRef(STRREF_SELECTED_HEADER1) + "\n\n"; // "You have selected:"
|
|
int nSpellId = GetLocalInt(oCaster, "nEvo");
|
|
sToken += GetStringByStrRef(StringToInt(Get2DACache("spells", "Name", nSpellId)))+"\n";
|
|
sToken += GetStringByStrRef(StringToInt(Get2DACache("spells", "SpellDesc", nSpellId)))+"\n\n";
|
|
sToken += GetStringByStrRef(STRREF_SELECTED_HEADER2); // "Is this correct?"
|
|
SetHeader(sToken);
|
|
|
|
AddChoice(GetStringByStrRef(STRREF_YES), TRUE, oCaster); // "Yes"
|
|
AddChoice(GetStringByStrRef(STRREF_NO), FALSE, oCaster); // "No"
|
|
}
|
|
}
|
|
|
|
// Do token setup
|
|
SetupTokens();
|
|
}
|
|
else if(nValue == DYNCONV_EXITED)
|
|
{
|
|
if(DEBUG) DoDebug("prc_ur_siphoncnv: Running exit handler");
|
|
// End of conversation cleanup
|
|
DeleteLocalInt(oCaster, "SiphonSpell1");
|
|
DeleteLocalInt(oCaster, "SiphonSpell2");
|
|
DeleteLocalInt(oCaster, "nSpellLevel");
|
|
DeleteLocalInt(oCaster, "MYSTLISTChoiceOffset");
|
|
}
|
|
else if(nValue == DYNCONV_ABORTED)
|
|
{
|
|
// This section should never be run, since aborting this conversation should
|
|
// always be forbidden and as such, any attempts to abort the conversation
|
|
// should be handled transparently by the system
|
|
}
|
|
// Handle PC response
|
|
else
|
|
{
|
|
int nChoice = GetChoice(oCaster);
|
|
if(DEBUG) DoDebug("prc_ur_siphoncnv: Handling PC response, stage = " + IntToString(nStage) + "; nChoice = " + IntToString(nChoice) + "; choice text = '" + GetChoiceText(oCaster) + "'");
|
|
if(nStage == STAGE_SELECT_BURN_LEVEL_1)
|
|
{
|
|
if(DEBUG) DoDebug("prc_ur_siphoncnv: Spell 1 selected");
|
|
SetLocalInt(oCaster, "SiphonSpell1", nChoice);
|
|
nStage = STAGE_SELECT_BURN_LEVEL_2;
|
|
|
|
MarkStageNotSetUp(STAGE_SELECT_BURN_LEVEL_1, oCaster);
|
|
}
|
|
else if(nStage == STAGE_SELECT_BURN_LEVEL_2)
|
|
{
|
|
if(DEBUG) DoDebug("prc_ur_siphoncnv: Spell 2 selected");
|
|
SetLocalInt(oCaster, "SiphonSpell2", nChoice);
|
|
nStage = STAGE_SELECT_SPELL;
|
|
|
|
MarkStageNotSetUp(STAGE_SELECT_BURN_LEVEL_2, oCaster);
|
|
}
|
|
else if(nStage == STAGE_SELECT_SPELL)
|
|
{
|
|
if(nChoice == CHOICE_BACK_TO_LSELECT)
|
|
{
|
|
if(DEBUG) DoDebug("prc_ur_siphoncnv: Returning to level selection");
|
|
nStage = STAGE_SELECT_BURN_LEVEL_1;
|
|
// Clean up
|
|
DeleteLocalInt(oCaster, "SiphonSpell1");
|
|
DeleteLocalInt(oCaster, "SiphonSpell2");
|
|
}
|
|
else
|
|
{
|
|
if(DEBUG) DoDebug("prc_ur_siphoncnv: Entering spell confirmation");
|
|
SetLocalInt(oCaster, "nEvo", nChoice);
|
|
// Store offset so that if the user decides not to take the mystery,
|
|
// we can return to the same page in the mystery list instead of resetting to the beginning
|
|
// Store the value +1 in order to be able to differentiate between offset 0 and undefined
|
|
SetLocalInt(oCaster, "MYSTLISTChoiceOffset", GetLocalInt(oCaster, DYNCONV_CHOICEOFFSET) + 1);
|
|
nStage = STAGE_CONFIRM_SELECTION;
|
|
}
|
|
MarkStageNotSetUp(STAGE_SELECT_SPELL, oCaster);
|
|
}
|
|
else if(nStage == STAGE_CONFIRM_SELECTION)
|
|
{
|
|
SetLocalInt(oCaster, "UrSiphon", GetLocalInt(oCaster, "nEvo"));
|
|
int nBurn1 = GetLocalInt(oCaster, "SiphonSpell1");
|
|
int nBurn2 = GetLocalInt(oCaster, "SiphonSpell2");
|
|
SetLocalInt(oCaster, "BurnSpellLevel", nBurn1);
|
|
BurnSpell(oCaster);
|
|
SetLocalInt(oCaster, "BurnSpellLevel", nBurn2);
|
|
BurnSpell(oCaster);
|
|
DeleteLocalInt(oCaster, "BurnSpellLevel");
|
|
// And we're all done
|
|
AllowExit(DYNCONV_EXIT_FORCE_EXIT);
|
|
}
|
|
|
|
if(DEBUG) DoDebug("prc_ur_siphoncnv: New stage: " + IntToString(nStage));
|
|
|
|
// Store the stage value. If it has been changed, this clears out the choices
|
|
SetStage(nStage, oCaster);
|
|
}
|
|
}
|