167 lines
4.3 KiB
Plaintext
167 lines
4.3 KiB
Plaintext
#include "nw_i0_tool"
|
|
#include "rd_treasure"
|
|
|
|
void SetPartyVariables(object oPC);
|
|
void GivePartyMagicItem(object oPC);
|
|
void GivePartyQuestPoints(object oPC, int iQuestPoints);
|
|
|
|
void main()
|
|
{
|
|
int iDifficulty;
|
|
int iGold;
|
|
int iXP;
|
|
int iChance;
|
|
int iRandom;
|
|
int iMod;
|
|
int iLevel;
|
|
int iQuestPoints;
|
|
object oPC;
|
|
|
|
oPC = GetPCSpeaker();
|
|
iDifficulty = GetLocalInt(oPC,"QuestDifficulty");
|
|
SetPartyVariables(oPC);
|
|
iLevel = GetHitDice(oPC);
|
|
|
|
if (iLevel < 20)
|
|
iMod = iLevel/5 + 1;
|
|
else
|
|
iMod = (iLevel-20)/8 + 5;
|
|
|
|
iGold = 50 * iDifficulty * iMod;
|
|
iXP = 150 * iDifficulty * iMod;
|
|
iChance = 3 * iDifficulty + iLevel/2 + 2;
|
|
|
|
if (iGold == 0)
|
|
iGold = 25;
|
|
|
|
if (iXP == 0)
|
|
iXP = 50;
|
|
|
|
if (GetSkillRank(SKILL_PERSUADE,oPC)>4)
|
|
{
|
|
if (GetIsSkillSuccessful(oPC,SKILL_PERSUADE,25))
|
|
{
|
|
SendMessageToPC(oPC,"You are very persuading...");
|
|
iGold=iGold*3/2;
|
|
iChance = iChance + 10;
|
|
}
|
|
}
|
|
|
|
if (GetSkillRank(SKILL_INTIMIDATE,oPC)>4)
|
|
{
|
|
if (GetIsSkillSuccessful(oPC,SKILL_INTIMIDATE,25))
|
|
{
|
|
SendMessageToPC(oPC,"You are very intimidating...");
|
|
iGold=iGold*3/2;
|
|
iChance = iChance + 5;
|
|
}
|
|
}
|
|
|
|
if (GetSkillRank(SKILL_BLUFF,oPC)>4)
|
|
{
|
|
if (GetIsSkillSuccessful(oPC,SKILL_BLUFF,25))
|
|
{
|
|
SendMessageToPC(oPC,"You have successfully blown your exploits out of proportion...");
|
|
iGold=iGold*3/2;
|
|
iChance = iChance + 8;
|
|
}
|
|
}
|
|
|
|
if (GetLocalInt(oPC,"Lucky") == 1)
|
|
iChance = iChance + 5;
|
|
|
|
if (GetLocalInt(oPC,"Lucky") == 2)
|
|
iChance = iChance * 2;
|
|
|
|
iRandom = Random(100);
|
|
|
|
|
|
RewardPartyXP(iXP, GetPCSpeaker());
|
|
RewardPartyGP(iGold, GetPCSpeaker());
|
|
|
|
if (iRandom < iChance)
|
|
GivePartyMagicItem(GetPCSpeaker());
|
|
|
|
iQuestPoints = (iDifficulty+1)/2;
|
|
if (GetLocalInt(oPC,"Charming") == 1)
|
|
iDifficulty++;
|
|
|
|
if (iQuestPoints > 0)
|
|
GivePartyQuestPoints(oPC,iQuestPoints);
|
|
|
|
}
|
|
|
|
void GivePartyQuestPoints(object oPC, int iQuestPoints)
|
|
{
|
|
int iQuest;
|
|
|
|
object oPartyMember = GetFirstFactionMember(oPC, TRUE);
|
|
while (GetIsObjectValid(oPartyMember) == TRUE)
|
|
{
|
|
iQuest = GetLocalInt(oPartyMember,"QuestPoints");
|
|
iQuest = iQuest + iQuestPoints;
|
|
SetLocalInt(oPartyMember,"QuestPoints",iQuest);
|
|
SendMessageToPC(oPartyMember,"You have been given " + IntToString(iQuestPoints) + " quest points. You now have " + IntToString(iQuest) + ".");
|
|
oPartyMember = GetNextFactionMember(oPC, TRUE);
|
|
}
|
|
}
|
|
|
|
|
|
void GivePartyMagicItem(object oPC)
|
|
{
|
|
|
|
object oPartyMember = GetFirstFactionMember(oPC, TRUE);
|
|
while (GetIsObjectValid(oPartyMember) == TRUE)
|
|
{
|
|
GetMagicItem(oPartyMember,TRUE,TRUE);
|
|
oPartyMember = GetNextFactionMember(oPC, TRUE);
|
|
}
|
|
}
|
|
|
|
void SetPartyVariables(object oPC)
|
|
{
|
|
int iDeaths;
|
|
int iLastQuest;
|
|
|
|
object oPartyMember = GetFirstFactionMember(oPC, TRUE);
|
|
while (GetIsObjectValid(oPartyMember) == TRUE)
|
|
{
|
|
iLastQuest =GetLocalInt(oPartyMember,"Quest");
|
|
SetLocalInt(oPartyMember,"LastQuest",iLastQuest);
|
|
SetLocalInt(oPartyMember,"Quest",0);
|
|
SetLocalInt(oPartyMember,"QuestStep",0);
|
|
SetLocalInt(oPartyMember,"QuestType",0);
|
|
SetLocalInt(oPartyMember,"QuestCamp",0);
|
|
SetLocalString(oPartyMember,"QuestCampzone","");
|
|
SetLocalInt(oPartyMember,"QuestDifficulty",0);
|
|
SetLocalString(oPartyMember,"QuestTargetNPC","");
|
|
SetLocalString(oPartyMember,"QuestItemTag","");
|
|
SetLocalString(oPartyMember,"QuestCreatureTag","");
|
|
SetLocalString(oPartyMember,"QuestAttackers","");
|
|
SetLocalString(oPartyMember,"QuestCampType","");
|
|
SetLocalInt(oPartyMember,"QuestAttacked",0);
|
|
SetLocalInt(oPartyMember,"QuestVariance",0);
|
|
if (GetLocalInt(oPartyMember,"Elf") == 1)
|
|
SetLocalInt(oPartyMember,"Elf",2);
|
|
if (GetLocalInt(oPartyMember,"Dwarf") == 1)
|
|
SetLocalInt(oPartyMember,"Dwarf",2);
|
|
|
|
SetLocalString(oPartyMember,"QuestSendingNPC","");
|
|
|
|
SetLocalInt(oPartyMember,"EvilWait",1);
|
|
SetLocalInt(oPartyMember,"EvilQuest",0);
|
|
|
|
AdjustAlignment(oPartyMember,ALIGNMENT_EVIL,2);
|
|
|
|
RemoveJournalQuestEntry("jDelivery",oPartyMember,TRUE);
|
|
RemoveJournalQuestEntry("jCreatures",oPartyMember,TRUE);
|
|
RemoveJournalQuestEntry("jCreatures2",oPartyMember,TRUE);
|
|
RemoveJournalQuestEntry("jStaff",oPartyMember,TRUE);
|
|
RemoveJournalQuestEntry("jSpecial",oPartyMember,TRUE);
|
|
RemoveJournalQuestEntry("jFirst",oPartyMember,TRUE);
|
|
|
|
oPartyMember = GetNextFactionMember(oPC, TRUE);
|
|
}
|
|
|
|
}
|