Initial Commit
Initial Commit [v1.32PRC8]
This commit is contained in:
Jaysyn904
448
_module/nss/qst_cg_done.nss
Normal file
448
_module/nss/qst_cg_done.nss
Normal file
@@ -0,0 +1,448 @@
|
||||
#include "nw_i0_tool"
|
||||
#include "rd_treasure"
|
||||
#include "rd_misc"
|
||||
#include "utl_i_sqluuid"
|
||||
|
||||
void SetPartyVariables(object oPC);
|
||||
void GivePartyMagicItem(object oPC);
|
||||
void GivePartyQuestPoints(object oPC, int iQuestPoints);
|
||||
void GivePartyMinorMagicItem(object oPC);
|
||||
void GivePartyCharSpecific(object oPC);
|
||||
void GivePartyQuestCredit(object oPC);
|
||||
void SetPartyQuestType(object oPC);
|
||||
|
||||
void main()
|
||||
{
|
||||
int iDifficulty;
|
||||
int iGold;
|
||||
int iXP;
|
||||
int iChance;
|
||||
int iRandom;
|
||||
int iMod;
|
||||
int iLevel;
|
||||
int iQuestPoints;
|
||||
int iMaxLevel;
|
||||
int iQuests;
|
||||
object oPC;
|
||||
|
||||
oPC = GetPCSpeaker();
|
||||
|
||||
if (GetLocalInt(oPC,"QuestType") == 1)
|
||||
AddJournalQuestEntry("jCamp",12,oPC);
|
||||
else if (GetLocalInt(oPC,"QuestType") == 2)
|
||||
AddJournalQuestEntry("jDelivery",2,oPC);
|
||||
else if (GetLocalInt(oPC,"QuestType") == 3)
|
||||
AddJournalQuestEntry("jSpecial",2,oPC);
|
||||
|
||||
if (GetLocalInt(oPC,"QuestAdventureZone") > 0)
|
||||
{
|
||||
SetLocalInt(GetModule(),"AdventureZone",0);
|
||||
SetLocalInt(GetModule(),"AdvZones",0);
|
||||
}
|
||||
|
||||
if (GetLocalInt(oPC,"HTCAbandonedHouse1") == 1)
|
||||
{
|
||||
SetLocalInt(GetModule(),"HTCAbandonedHouse1",0);
|
||||
SetPartyInt(oPC,"HTCAbandonedHouse1",0);
|
||||
}
|
||||
if (GetLocalInt(oPC,"HTCAbandonedHouse1") == 1)
|
||||
{
|
||||
SetLocalInt(GetModule(),"HTCAbandonedHouse2",0);
|
||||
SetPartyInt(oPC,"HTCAbandonedHouse2",0);
|
||||
}
|
||||
|
||||
iDifficulty = GetLocalInt(oPC,"QuestDifficulty");
|
||||
|
||||
iLevel = GetHitDice(oPC);
|
||||
iLevel = ZoneLevel(GetArea(oPC),iLevel);
|
||||
|
||||
if (iLevel < 20)
|
||||
iMod = iLevel/5 + 1;
|
||||
else
|
||||
iMod = (iLevel-20)/8 + 5;
|
||||
|
||||
iGold = 100 * iDifficulty * iMod;
|
||||
iXP = 150 * iDifficulty * iMod;
|
||||
iChance = iDifficulty + iLevel/3 + 1;
|
||||
|
||||
if (iGold == 0)
|
||||
iGold = 25;
|
||||
|
||||
if (iXP == 0)
|
||||
iXP = 50;
|
||||
|
||||
|
||||
if (GetLocalInt(oPC,"QuestGold") > 0)
|
||||
{
|
||||
iGold = 0;
|
||||
TakeGoldFromCreature(GetLocalInt(oPC,"QuestGold"),oPC);
|
||||
}
|
||||
|
||||
SetPartyVariables(oPC);
|
||||
|
||||
iRandom = Random(100);
|
||||
|
||||
if (GetSkillRank(SKILL_PERSUADE,oPC)>4)
|
||||
{
|
||||
if (GetIsSkillSuccessful(oPC,SKILL_PERSUADE,25))
|
||||
{
|
||||
SendMessageToPC(oPC,"You are very persuading...");
|
||||
iGold=iGold*3/2;
|
||||
iChance = iChance + 3;
|
||||
}
|
||||
}
|
||||
|
||||
if (GetSkillRank(SKILL_INTIMIDATE,oPC)>4)
|
||||
{
|
||||
if (GetIsSkillSuccessful(oPC,SKILL_INTIMIDATE,25))
|
||||
{
|
||||
SendMessageToPC(oPC,"You are very intimidating...");
|
||||
iGold=iGold*3/2;
|
||||
iChance = iChance + 3;
|
||||
}
|
||||
}
|
||||
|
||||
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 + 3;
|
||||
}
|
||||
}
|
||||
|
||||
if (GetLocalInt(oPC,"Lucky") == 1)
|
||||
iChance = iChance + 4;
|
||||
if (GetLocalInt(oPC,"Charming") == 1 && iDifficulty>0)
|
||||
iChance = iChance + 2;
|
||||
|
||||
if (iDifficulty < 1)
|
||||
iChance = 0;
|
||||
|
||||
RewardPartyXP(iXP, GetPCSpeaker());
|
||||
RewardPartyGP(iGold, GetPCSpeaker());
|
||||
|
||||
iRandom = Random(100);
|
||||
if (iRandom < iChance)
|
||||
{
|
||||
if (iLevel < 4)
|
||||
GivePartyMinorMagicItem(oPC);
|
||||
else if (iRandom < iChance/2)
|
||||
GivePartyMagicItem(oPC);
|
||||
else
|
||||
GivePartyMinorMagicItem(oPC);
|
||||
}
|
||||
else if (iRandom < (iChance + iLevel/5 + 1) && iLevel < 20)
|
||||
GivePartyCharSpecific(oPC);
|
||||
else if (iRandom < (iChance + 5) && iLevel > 19)
|
||||
GivePartyCharSpecific(oPC);
|
||||
|
||||
iQuests = SQLocalsUUID_GetInt(oPC,"GuildQuests");
|
||||
|
||||
if (SQLocalsUUID_GetInt(oPC,"PCHardCorePNP") == 0)
|
||||
{
|
||||
if (iQuests < 5 && iLevel < 7)
|
||||
iQuestPoints = iDifficulty;
|
||||
else if (iQuests > 4 && iQuests < 10 && iLevel < 14)
|
||||
iQuestPoints = iDifficulty;
|
||||
else if (iQuests > 9 && iQuests < 15 && iLevel < 21)
|
||||
iQuestPoints = iDifficulty;
|
||||
else
|
||||
iQuestPoints = iDifficulty/2;
|
||||
} else {
|
||||
if (iQuests < 5 && iLevel < 10)
|
||||
iQuestPoints = iDifficulty;
|
||||
else if (iQuests > 4 && iQuests < 10 && iLevel < 20)
|
||||
iQuestPoints = iDifficulty;
|
||||
else if (iQuests > 9 && iQuests < 15 && iLevel < 30)
|
||||
iQuestPoints = iDifficulty;
|
||||
else
|
||||
iQuestPoints = iDifficulty/2;
|
||||
}
|
||||
|
||||
if (iQuestPoints > 0)
|
||||
GivePartyQuestPoints(oPC,iQuestPoints);
|
||||
|
||||
GivePartyQuestCredit(oPC);
|
||||
|
||||
//This is a fix for the infinite quest loop -- more of a bandaid since can't find logical reason for bug.
|
||||
SetPartyQuestType(oPC);
|
||||
SetLocalInt(oPC,"Quest",0);
|
||||
SetLocalInt(oPC,"QuestType",0);
|
||||
}
|
||||
|
||||
void GivePartyQuestCredit(object oPC)
|
||||
{
|
||||
int iQuest;
|
||||
object oItem;
|
||||
itemproperty ip;
|
||||
|
||||
object oPartyMember = GetFirstFactionMember(oPC, TRUE);
|
||||
while (GetIsObjectValid(oPartyMember) == TRUE)
|
||||
{
|
||||
if (SQLocalsUUID_GetInt(oPartyMember,"PCGuild") == 4)
|
||||
{
|
||||
iQuest = SQLocalsUUID_GetInt(oPartyMember,"GuildQuests");
|
||||
iQuest++;
|
||||
//iQuest=iQuest+4;
|
||||
SQLocalsUUID_SetInt(oPartyMember,"GuildQuests",iQuest);
|
||||
if (iQuest == 5)
|
||||
{
|
||||
SendMessageToPC(oPartyMember,"You have risen to the rank of Acolyte and been given a magical ring as a sign of your growing reputation within the guild.");
|
||||
CreateItemOnObject("en4_cgring",oPartyMember);
|
||||
}
|
||||
if (iQuest == 10)
|
||||
{
|
||||
SendMessageToPC(oPartyMember,"You have risen to the rank of Priest. The Ring of the Holy grows more powerful.");
|
||||
oItem = GetItemPossessedBy(oPartyMember,"en4_cgring");
|
||||
ip = ItemPropertyBonusSpellResistance(IP_CONST_SPELLRESISTANCEBONUS_16);
|
||||
IPSafeAddItemProperty(oItem,ip);
|
||||
ip = ItemPropertyAbilityBonus(IP_CONST_ABILITY_WIS,3);
|
||||
IPSafeAddItemProperty(oItem,ip);
|
||||
ip = ItemPropertyACBonus(3);
|
||||
IPSafeAddItemProperty(oItem,ip);
|
||||
}
|
||||
if (iQuest == 15)
|
||||
{
|
||||
SendMessageToPC(oPartyMember,"You have risen to the rank of High Priest. The Ring of the Holy grows more powerful.");
|
||||
oItem = GetItemPossessedBy(oPartyMember,"en4_cgring");
|
||||
ip = ItemPropertyBonusSpellResistance(IP_CONST_SPELLRESISTANCEBONUS_22);
|
||||
IPSafeAddItemProperty(oItem,ip);
|
||||
ip = ItemPropertyAbilityBonus(IP_CONST_ABILITY_WIS,5);
|
||||
IPSafeAddItemProperty(oItem,ip);
|
||||
ip = ItemPropertyACBonus(5);
|
||||
IPSafeAddItemProperty(oItem,ip);
|
||||
}
|
||||
|
||||
}
|
||||
oPartyMember = GetNextFactionMember(oPC, TRUE);
|
||||
}
|
||||
}
|
||||
|
||||
void GivePartyQuestPoints(object oPC, int iQuestPoints)
|
||||
{
|
||||
int iQuest;
|
||||
int iPCLevelMod;
|
||||
|
||||
object oPartyMember = GetFirstFactionMember(oPC, TRUE);
|
||||
while (GetIsObjectValid(oPartyMember) == TRUE)
|
||||
{
|
||||
iPCLevelMod = SQLocalsUUID_GetInt(oPartyMember,"PCLevelMod");
|
||||
|
||||
if (iPCLevelMod>1)
|
||||
iQuestPoints = iQuestPoints - 1;
|
||||
if (iPCLevelMod == 2 && iQuestPoints == 0)
|
||||
iQuestPoints = 1;
|
||||
|
||||
iQuest = SQLocalsUUID_GetInt(oPartyMember,"QuestPoints");
|
||||
iQuest = iQuest + iQuestPoints;
|
||||
SQLocalsUUID_SetInt(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 GivePartyMinorMagicItem(object oPC)
|
||||
{
|
||||
object oPartyMember = GetFirstFactionMember(oPC, TRUE);
|
||||
while (GetIsObjectValid(oPartyMember) == TRUE)
|
||||
{
|
||||
GetMinorMagicItem(oPartyMember);
|
||||
oPartyMember = GetNextFactionMember(oPC, TRUE);
|
||||
}
|
||||
}
|
||||
|
||||
void GivePartyCharSpecific(object oPC)
|
||||
{
|
||||
object oPartyMember = GetFirstFactionMember(oPC, TRUE);
|
||||
while (GetIsObjectValid(oPartyMember) == TRUE)
|
||||
{
|
||||
if (Random(2)==0)
|
||||
GetEnchantedItem(oPartyMember);
|
||||
else
|
||||
DTSGenerateCharSpecificTreasure(oPartyMember,oPartyMember);
|
||||
oPartyMember = GetNextFactionMember(oPC, TRUE);
|
||||
}
|
||||
}
|
||||
|
||||
void SetPartyVariables(object oPC)
|
||||
{
|
||||
int iLastQuest;
|
||||
int iNPCQuests;
|
||||
int iIndex;
|
||||
int iCount;
|
||||
int iQuests;
|
||||
string sZone;
|
||||
string sQuestStep;
|
||||
object oGiver;
|
||||
object oModule;
|
||||
|
||||
oModule = GetModule();
|
||||
|
||||
oGiver = GetObjectByTag(GetLocalString(oPC,"QuestGiver"));
|
||||
|
||||
iLastQuest =GetLocalInt(oPC,"Quest");
|
||||
SetPartyInt(oPC,"LastQuest",iLastQuest);
|
||||
|
||||
iQuests = GetLocalInt(oPC,GetTag(oGiver));
|
||||
SetPartyInt(oPC,GetTag(oGiver),iQuests+1);
|
||||
|
||||
SetPartyInt(oPC,"Quest",0);
|
||||
SetPartyInt(oPC,"QuestStep",0);
|
||||
SetPartyInt(oPC,"QuestType",0);
|
||||
SetPartyInt(oPC,"QuestDifficulty",0);
|
||||
SetPartyInt(oPC,"QuestDone",0);
|
||||
SetPartyInt(oPC,"QuestItemUnknown",0);
|
||||
SetPartyInt(oPC,"SpecialQuestType",0);
|
||||
SetPartyInt(oPC,"QuestLevel",0);
|
||||
SetPartyInt(oPC,"QuestAdventureZone",0);
|
||||
SetPartyInt(oPC,"QuestGold",0);
|
||||
SetPartyInt(oPC,"QuestHouses",0);
|
||||
SetPartyInt(oPC,"QuestFights",0);
|
||||
|
||||
iCount = GetLocalInt(oPC,"QuestSteps");
|
||||
iIndex = 1;
|
||||
while (iIndex <= iCount)
|
||||
{
|
||||
sQuestStep = "QuestStep" + IntToString(iIndex);
|
||||
SetPartyInt(oPC,sQuestStep,0);
|
||||
SetPartyString(oPC,sQuestStep + "Mob","");
|
||||
SetPartyString(oPC,sQuestStep + "Item","");
|
||||
SetPartyString(oPC,sQuestStep + "Token111","");
|
||||
SetPartyString(oPC,sQuestStep + "Token112","");
|
||||
SetPartyString(oPC,sQuestStep + "Token113","");
|
||||
SetPartyString(oPC,sQuestStep + "Response","");
|
||||
SetPartyString(oPC,sQuestStep + "Reply","");
|
||||
SetPartyString(oPC,sQuestStep + "Escort","");
|
||||
SetPartyInt(oPC,sQuestStep + "ItemUnknown",0);
|
||||
iIndex++;
|
||||
}
|
||||
|
||||
SetPartyInt(oPC,"QuestSteps",0);
|
||||
|
||||
SetPartyString(oPC,"QuestTargetNPC","");
|
||||
SetPartyString(oPC,"QuestItemTag","");
|
||||
SetPartyString(oPC,"QuestAttackers","");
|
||||
SetPartyString(oPC,"QuestGiver","");
|
||||
SetPartyString(oPC,"QuestTargetMob","");
|
||||
SetPartyString(oPC,"QuestCampType","");
|
||||
SetPartyString(oPC,"QuestEscort","");
|
||||
|
||||
sZone = GetLocalString(oPC,"QuestZone");
|
||||
SetPartyInt(oModule,sZone,0);
|
||||
SetPartyString(oPC,"QuestZone","");
|
||||
|
||||
iNPCQuests = GetLocalInt(oGiver,"QuestsCompleted");
|
||||
iNPCQuests++;
|
||||
SetPartyInt(oGiver,"QuestsCompleted",iNPCQuests);
|
||||
SetPartyString(oGiver,"QUEST_PC" + IntToString(iNPCQuests),GetName(oPC));
|
||||
|
||||
}
|
||||
|
||||
void zSetPartyVariables(object oPC)
|
||||
{
|
||||
int iDeaths;
|
||||
int iLastQuest;
|
||||
int iNPCQuests;
|
||||
int iIndex;
|
||||
int iCount;
|
||||
int iQuests;
|
||||
string sZone;
|
||||
string sQuestStep;
|
||||
object oGiver;
|
||||
object oModule;
|
||||
|
||||
oModule = GetModule();
|
||||
|
||||
object oPartyMember = GetFirstFactionMember(oPC, TRUE);
|
||||
while (GetIsObjectValid(oPartyMember) == TRUE)
|
||||
{
|
||||
oGiver = GetObjectByTag(GetLocalString(oPartyMember,"QuestGiver"));
|
||||
|
||||
iLastQuest =GetLocalInt(oPartyMember,"Quest");
|
||||
SetLocalInt(oPartyMember,"LastQuest",iLastQuest);
|
||||
|
||||
iQuests = GetLocalInt(oPartyMember,GetTag(oGiver));
|
||||
SetLocalInt(oPartyMember,GetTag(oGiver),iQuests+1);
|
||||
|
||||
SetLocalInt(oPartyMember,"Quest",0);
|
||||
SetLocalInt(oPartyMember,"QuestStep",0);
|
||||
SetLocalInt(oPartyMember,"QuestType",0);
|
||||
SetLocalInt(oPartyMember,"QuestDifficulty",0);
|
||||
SetLocalInt(oPartyMember,"QuestDone",0);
|
||||
SetLocalInt(oPartyMember,"QuestItemUnknown",0);
|
||||
SetLocalInt(oPartyMember,"SpecialQuestType",0);
|
||||
SetLocalInt(oPartyMember,"QuestLevel",0);
|
||||
SetLocalInt(oPartyMember,"QuestAdventureZone",0);
|
||||
SetPartyInt(oPartyMember,"QuestGold",0);
|
||||
SetPartyInt(oPartyMember,"QuestHouses",0);
|
||||
|
||||
iCount = GetLocalInt(oPartyMember,"QuestSteps");
|
||||
iIndex = 1;
|
||||
while (iIndex <= iCount)
|
||||
{
|
||||
sQuestStep = "QuestStep" + IntToString(iIndex);
|
||||
SetLocalInt(oPartyMember,sQuestStep,0);
|
||||
SetLocalString(oPartyMember,sQuestStep + "Mob","");
|
||||
SetLocalString(oPartyMember,sQuestStep + "Item","");
|
||||
SetLocalString(oPartyMember,sQuestStep + "Token111","");
|
||||
SetLocalString(oPartyMember,sQuestStep + "Token112","");
|
||||
SetLocalString(oPartyMember,sQuestStep + "Token113","");
|
||||
SetLocalString(oPartyMember,sQuestStep + "Response","");
|
||||
SetLocalString(oPartyMember,sQuestStep + "Reply","");
|
||||
SetLocalString(oPartyMember,sQuestStep + "Escort","");
|
||||
SetLocalInt(oPartyMember,sQuestStep + "ItemUnknown",0);
|
||||
iIndex++;
|
||||
}
|
||||
|
||||
SetLocalInt(oPartyMember,"QuestSteps",0);
|
||||
|
||||
SetLocalString(oPartyMember,"QuestTargetNPC","");
|
||||
SetLocalString(oPartyMember,"QuestItemTag","");
|
||||
SetLocalString(oPartyMember,"QuestAttackers","");
|
||||
SetLocalString(oPartyMember,"QuestGiver","");
|
||||
SetLocalString(oPartyMember,"QuestTargetMob","");
|
||||
SetLocalString(oPartyMember,"QuestCampType","");
|
||||
SetLocalString(oPartyMember,"QuestEscort","");
|
||||
|
||||
sZone = GetLocalString(oPartyMember,"QuestZone");
|
||||
SetLocalInt(oModule,sZone,0);
|
||||
SetLocalString(oPartyMember,"QuestZone","");
|
||||
|
||||
//SendMessageToPC(GetFirstPC(),"Giver = " + GetName(oGiver));
|
||||
iNPCQuests = GetLocalInt(oGiver,"QuestsCompleted");
|
||||
iNPCQuests++;
|
||||
SetLocalInt(oGiver,"QuestsCompleted",iNPCQuests);
|
||||
//SendMessageToPC(GetFirstPC(),"Quests Completed = " + IntToString(iNPCQuests));
|
||||
SetLocalString(oGiver,"QUEST_PC" + IntToString(iNPCQuests),GetName(oPartyMember));
|
||||
//SendMessageToPC(GetFirstPC(),"QUEST_PC" + IntToString(iNPCQuests) + " on " + GetName(oGiver) + " set to " + GetName(oPartyMember));
|
||||
//SetLocalInt(OBJECT_SELF,"Quest",0);
|
||||
|
||||
oPartyMember = GetNextFactionMember(oPC, TRUE);
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
void SetPartyQuestType(object oPC)
|
||||
{
|
||||
|
||||
object oPartyMember = GetFirstFactionMember(oPC, TRUE);
|
||||
while (GetIsObjectValid(oPartyMember) == TRUE)
|
||||
{
|
||||
SetLocalInt(oPartyMember,"Quest",0);
|
||||
SetLocalInt(oPartyMember,"QuestType",0);
|
||||
oPartyMember = GetNextFactionMember(oPC, TRUE);
|
||||
}
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user