//:://////////////////////////////////////////////
//:: Runescarred berserker conversation
//:: run_convb
//:://////////////////////////////////////////////
/** @file
Conversation to handle runescarring
@author Primogenitor
@date Created - 2006.09.05
*/
//:://////////////////////////////////////////////
//:://////////////////////////////////////////////
#include "prc_alterations"
#include "inc_dynconv"
//////////////////////////////////////////////////
/* Constant defintions */
//////////////////////////////////////////////////
//yes this is a global variable
//used to count the scars used in GetCanScribeLocation
//since the return is used for the header string
int nRuneCount = 0;
const int STAGE_ENTRY = 0;
const int STAGE_SPELL = 1;
const int STAGE_LEVEL = 2;
const int STAGE_CONFIRM = 3;
//////////////////////////////////////////////////
/* Aid functions */
//////////////////////////////////////////////////
string GetCanScribeLocation(string sHeader, int nLoc, object oPC)
{
string sName;
string sVar;
switch(nLoc)
{
case 1: sName = "Face"; sVar = "Runescar_Face"; break;
case 2: sName = "Left Arm"; sVar = "Runescar_Arm_Left"; break;
case 3: sName = "Left Chest"; sVar = "Runescar_Chest_Left"; break;
case 4: sName = "Left Hand"; sVar = "Runescar_Hand_Left"; break;
case 5: sName = "Right Arm"; sVar = "Runescar_Arm_Right"; break;
case 6: sName = "Right Chest"; sVar = "Runescar_Chest_Right"; break;
case 7: sName = "Right Hand"; sVar = "Runescar_Hand_Right"; break;
}
int nSpellID = GetPersistantLocalInt(oPC, sVar);
if(nSpellID)
{
nRuneCount++;
nSpellID = nSpellID-1;
//string sSpellIDName = GetStringByStrRef(StringToInt(Get2DACache("spells", "Name", nSpellID)));
sHeader += (sName+": "+GetStringByStrRef(StringToInt(Get2DACache("spells", "Name", nSpellID)))+"\n");
}
else
AddChoice(sName, nLoc, oPC);
return sHeader;
}
void AddRunescarSpellChoice(int nSpellID, object oPC, int nSpellLevel = -1)
{
//default to innate level
if(nSpellLevel == -1)
nSpellLevel = StringToInt(Get2DACache("spells", "Innate", nSpellID));
string sName = GetStringByStrRef(StringToInt(Get2DACache("spells", "Name", nSpellID)));
sName += " (level "+IntToString(nSpellLevel)+")";
//test if spare slot this day
if(GetLocalInt(oPC, "Runescar_slot_"+IntToString(nSpellLevel))
&& GetAbilityScore(oPC, ABILITY_WISDOM)>=10+nSpellLevel)
AddChoice(sName, nSpellID, oPC);
//store the level to cast it at
SetLocalInt(oPC, "Runescar_spell_level_"+IntToString(nSpellID), nSpellLevel);
}
//////////////////////////////////////////////////
/* Main function */
//////////////////////////////////////////////////
void main()
{
object oPC = GetPCSpeaker();
/* Get the value of the local variable set by the conversation script calling
* this script. Values:
* DYNCONV_ABORTED Conversation aborted
* DYNCONV_EXITED Conversation exited via the exit node
* DYNCONV_SETUP_STAGE System's reply turn
* 0 Error - something else called the script
* Other The user made a choice
*/
int nValue = GetLocalInt(oPC, DYNCONV_VARIABLE);
// The stage is used to determine the active conversation node.
// 0 is the entry node.
int nStage = GetStage(oPC);
// 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(!GetIsStageSetUp(nStage, oPC))
{
if(nStage == STAGE_ENTRY)
{
string sHeader = "You currently have the following Runescars scribed:\n";
nRuneCount = 0;
sHeader = GetCanScribeLocation(sHeader, 1, oPC);
sHeader = GetCanScribeLocation(sHeader, 2, oPC);
sHeader = GetCanScribeLocation(sHeader, 3, oPC);
sHeader = GetCanScribeLocation(sHeader, 4, oPC);
sHeader = GetCanScribeLocation(sHeader, 5, oPC);
sHeader = GetCanScribeLocation(sHeader, 6, oPC);
sHeader = GetCanScribeLocation(sHeader, 7, oPC);
if(nRuneCount < 7)
sHeader += "\nWhere would you like to scribe a new Runescar?";
else
sHeader += "\nYou cannot scribe a new Runescar at this time.";
SetHeader(sHeader);
MarkStageSetUp(nStage, oPC); // This prevents the setup being run for this stage again until MarkStageNotSetUp is called for it
SetDefaultTokens(); // Set the next, previous, exit and wait tokens to default values
}
else if(nStage == STAGE_SPELL)
{
//select the spell to scribe
SetHeader("Which spell would you like to scribe as a Runescar?");
AddRunescarSpellChoice(SPELL_CURE_MODERATE_WOUNDS, oPC, 1);
AddRunescarSpellChoice(SPELL_DIVINE_FAVOR, oPC, 1);
AddRunescarSpellChoice(SPELL_PROTECTION__FROM_CHAOS, oPC, 1);
AddRunescarSpellChoice(SPELL_PROTECTION_FROM_EVIL, oPC, 1);
AddRunescarSpellChoice(SPELL_PROTECTION_FROM_GOOD, oPC, 1);
AddRunescarSpellChoice(SPELL_PROTECTION_FROM_LAW, oPC, 1);
AddRunescarSpellChoice(SPELL_RESIST_ELEMENTS, oPC, 1);
AddRunescarSpellChoice(SPELL_SEE_INVISIBILITY, oPC, 1);
AddRunescarSpellChoice(SPELL_TRUE_STRIKE, oPC, 1);
AddRunescarSpellChoice(SPELL_ENDURANCE, oPC, 2);
AddRunescarSpellChoice(SPELL_BULLS_STRENGTH, oPC, 2);
AddRunescarSpellChoice(SPELL_CURE_SERIOUS_WOUNDS, oPC, 2);
AddRunescarSpellChoice(SPELL_DARKVISION, oPC, 2);
AddRunescarSpellChoice(SPELL_INVISIBILITY, oPC, 2);
AddRunescarSpellChoice(SPELL_KEEN_EDGE, oPC, 2);
AddRunescarSpellChoice(SPELL_PROTECTION_FROM_ELEMENTS, oPC, 2);
AddRunescarSpellChoice(SPELL_CURE_CRITICAL_WOUNDS, oPC, 3);
AddRunescarSpellChoice(SPELL_DEATH_WARD, oPC, 3);
AddRunescarSpellChoice(SPELL_DIVINE_POWER, oPC, 3);
AddRunescarSpellChoice(SPELL_FREEDOM_OF_MOVEMENT, oPC, 3);
AddRunescarSpellChoice(SPELL_HASTE, oPC, 3);
AddRunescarSpellChoice(SPELL_GREATER_MAGIC_WEAPON, oPC, 3);
AddRunescarSpellChoice(SPELL_IMPROVED_INVISIBILITY, oPC, 4);
AddRunescarSpellChoice(SPELL_NEUTRALIZE_POISON, oPC, 4);
AddRunescarSpellChoice(SPELL_RESTORATION, oPC, 4);
AddRunescarSpellChoice(SPELL_RIGHTEOUS_MIGHT, oPC, 4);
AddRunescarSpellChoice(SPELL_STONESKIN, oPC, 4);
AddRunescarSpellChoice(SPELL_ANTIMAGIC_FIELD, oPC, 5);
AddRunescarSpellChoice(SPELL_RUNE_DIMENSION_DOOR, oPC, 5);
AddRunescarSpellChoice(SPELL_HEAL, oPC, 5);
AddRunescarSpellChoice(SPELL_POLYMORPH_SELF, oPC, 5);
AddRunescarSpellChoice(SPELL_SPELL_RESISTANCE, oPC, 5);
/*
missing spells
LEVEL 1 --
Low-Light Vision,
LEVEL 3 --
Air Walk,
LEVEL 4 --
Spell Immunity,
*/
MarkStageSetUp(nStage, oPC); // This prevents the setup being run for this stage again until MarkStageNotSetUp is called for it
SetDefaultTokens(); // Set the next, previous, exit and wait tokens to default values
}
else if(nStage == STAGE_LEVEL)
{
SetHeader("Which level would you like to scribe this Runescar?");
int nSpellID = GetLocalInt(oPC, "Runescar_spell");
int nSpellLevel = GetLocalInt(oPC, "Runescar_spell_level_"+IntToString(nSpellID));
int nMinLevel = (nSpellLevel*2)-1;
int i;
for(i=GetLevelByClass(CLASS_TYPE_RUNESCARRED, oPC);i>=nMinLevel; i--)
{
AddChoice("Level "+IntToString(i), i);
}
MarkStageSetUp(nStage, oPC); // This prevents the setup being run for this stage again until MarkStageNotSetUp is called for it
SetDefaultTokens(); // Set the next, previous, exit and wait tokens to default values
}
else if(nStage == STAGE_CONFIRM)
{
int nSpellID = GetLocalInt(oPC, "Runescar_spell");
int nLoc = GetLocalInt(oPC, "Runescar_location");
int nLevel = GetLocalInt(oPC, "Runescar_level");
int nSpellLevel = GetLocalInt(oPC, "Runescar_spell_level_"+IntToString(nSpellID));
int nGP = 5*nSpellLevel*nLevel;
int nXP = nGP/25;
string sName = GetStringByStrRef(StringToInt(Get2DACache("spells", "Name", nSpellID)));
string sLoc;
switch(nLoc)
{
case 1: sLoc = "Face"; break;
case 2: sLoc = "Left Arm"; break;
case 3: sLoc = "Left Chest"; break;
case 4: sLoc = "Left Hand"; break;
case 5: sLoc = "Right Arm"; break;
case 6: sLoc = "Right Chest"; break;
case 7: sLoc = "Right Hand"; break;
}
string sHeader = "You have selected to scribe "+sName+" on your "+sLoc+" at level "+IntToString(nLevel)+".\n";
sHeader += "This will cost "+IntToString(nGP)+"gp and "+IntToString(nXP)+"xp.\n";
sHeader += "You will take "+IntToString(nSpellLevel)+"d6 damage.\n";
sHeader += "Is this correct?";
int nHitDiceXP = (500 * GetHitDice(oPC) * (GetHitDice(oPC) - 1));
if(GetGold(oPC) < nGP)
{
if((GetXP(oPC)-nHitDiceXP)<nXP)
AddChoice("Insufficient gold and experience", 0);
else
AddChoice("Insufficient gold", 0);
}
else if((GetXP(oPC)-nHitDiceXP)<nXP)
AddChoice("Insufficient experience", 0);
else
{
AddChoice("Yes", 1);
AddChoice("No", 0);
}
SetHeader(sHeader);
MarkStageSetUp(nStage, oPC); // This prevents the setup being run for this stage again until MarkStageNotSetUp is called for it
SetDefaultTokens(); // Set the next, previous, exit and wait tokens to default values
}
}
// Do token setup
SetupTokens();
}
// End of conversation cleanup
else if(nValue == DYNCONV_EXITED)
{
// Add any locals set through this conversation
DeleteLocalInt(oPC, "Runescar_location");
DeleteLocalInt(oPC, "Runescar_spell");
DeleteLocalInt(oPC, "Runescar_level");
}
// Abort conversation cleanup.
// NOTE: This section is only run when the conversation is aborted
// while aborting is allowed. When it isn't, the dynconvo infrastructure
// handles restoring the conversation in a transparent manner
else if(nValue == DYNCONV_ABORTED)
{
// Add any locals set through this conversation
DeleteLocalInt(oPC, "Runescar_location");
DeleteLocalInt(oPC, "Runescar_spell");
DeleteLocalInt(oPC, "Runescar_level");
}
// Handle PC responses
else
{
// variable named nChoice is the value of the player's choice as stored when building the choice list
// variable named nStage determines the current conversation node
int nChoice = GetChoice(oPC);
if(nStage == STAGE_ENTRY)
{
SetLocalInt(oPC, "Runescar_location", nChoice);
nStage = STAGE_SPELL;
}
else if(nStage == STAGE_SPELL)
{
SetLocalInt(oPC, "Runescar_spell", nChoice);
nStage = STAGE_LEVEL;
}
else if(nStage == STAGE_LEVEL)
{
SetLocalInt(oPC, "Runescar_level", nChoice);
nStage = STAGE_CONFIRM;
}
else if(nStage == STAGE_CONFIRM)
{
if(nChoice)
{
int nSpellID = GetLocalInt(oPC, "Runescar_spell");
int nLoc = GetLocalInt(oPC, "Runescar_location");
int nLevel = GetLocalInt(oPC, "Runescar_level");
int nSpellLevel = GetLocalInt(oPC, "Runescar_spell_level_"+IntToString(nSpellID));
int nGP = 5*nSpellLevel*nLevel;
int nXP = nGP/25;
//remove GP & XP
SetXP(oPC, GetXP(oPC)-nXP);
TakeGoldFromCreature(nGP, oPC, TRUE);
//do damage
ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectDamage(d6(nSpellLevel)), oPC);
//mark the scar
string sVar;
switch(nLoc)
{
case 1: sVar = "Runescar_Face"; break;
case 2: sVar = "Runescar_Arm_Left"; break;
case 3: sVar = "Runescar_Chest_Left"; break;
case 4: sVar = "Runescar_Hand_Left"; break;
case 5: sVar = "Runescar_Arm_Right"; break;
case 6: sVar = "Runescar_Chest_Right"; break;
case 7: sVar = "Runescar_Hand_Right"; break;
}
//+1 for 0 == null to work
SetPersistantLocalInt(oPC, sVar, nSpellID+1);
SetPersistantLocalInt(oPC, sVar+"_level", nLevel);
//use a useage
SetLocalInt(oPC, "Runescar_slot_"+IntToString(nSpellLevel),
GetLocalInt(oPC, "Runescar_slot_"+IntToString(nSpellLevel))-1);
}
MarkStageNotSetUp(STAGE_ENTRY, oPC);
MarkStageNotSetUp(STAGE_SPELL, oPC);
MarkStageNotSetUp(STAGE_LEVEL, oPC);
MarkStageNotSetUp(STAGE_CONFIRM, oPC);
nStage = STAGE_ENTRY;
}
// Store the stage value. If it has been changed, this clears out the choices
SetStage(nStage, oPC);
}
}