Initial Commit

Initial Commit [v1.32PRC8]
2025-04-03 13:38:45 -04:00
parent 1213977d8c
commit b464d8da05
6922 changed files with 6176025 additions and 2 deletions
--- a/_module/nss/evil_qstdone.nss
+++ b/_module/nss/evil_qstdone.nss
@@ -0,0 +1,166 @@
+#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);
+}
+
+}