Jaysyn/Ancordia_PRC8
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 3 Wiki Activity

Initial Commit

Browse Source 
Initial Commit
This commit is contained in:
Jaysyn904
2023-09-21 19:51:32 -04:00
parent 65b5bd7fd3
commit 102ba7dab6
6400 changed files with 5741850 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

69
_module/nss/chinch_rolls.nss Normal file
View File

@@ -0,0 +1,69 @@
/*Quaxo's Chochirorin Script Version 2
Last Updated: August 2, 2004
Status: SCRIPT REWRITE
This script was rewritten to compile the 20+ original smaller scripts into one.
In this script, all three rolls are made at the same time. I found this more practical then running the script for each roll.
"If" statements are used to determind if a previous roll was a winning roll or not.
This script DOES NOT include payout functions yet, but currently compiles without errors.
*/
int StartingConditional()
{
object oPC = GetPCSpeaker();
int pBet = GetLocalInt(oPC, "pBet"); //Get amount bet
int nRoll = 1; //For the number of the roll check(1st, 2nd, 3rd)
int nDie1, nDie2, nDie3, nScore;
string sMsg, sNoScore;
//NPC Rolls
//Begin NPC Roll Checks
while (nRoll <= 3 && sMsg == "")
{
nDie1 = d6();
nDie2 = d6();
nDie3 = d6();
if (nDie1 == nDie2 && nDie1 == nDie3) //Check Storms
{
if (nDie1 == 1)
{
sMsg = sNoScore + "I have rolled a " + IntToString(nDie1) + ", " + IntToString(nDie2) + ", and " + IntToString(nDie3) + ". It's a Storm in your favor! You win three times the bet.";
GiveGoldToCreature(oPC, 3 * pBet);
DeleteLocalInt(oPC, "pBet");
}
else
{
sMsg = sNoScore + "I have rolled a " + IntToString(nDie1) + ", " + IntToString(nDie2) + ", and " + IntToString(nDie3) + ". It's a Storm in my favor! I win three times the bet.";
TakeGoldFromCreature(3 * pBet, oPC);
DeleteLocalInt(oPC, "pBet");
}
}
else if (nDie1 == nDie2 || nDie1 == nDie3 || nDie2 == nDie3) //Check Doubles
{
nScore = nDie1 == nDie2 || nDie1 == nDie3?(nDie2 == nDie1?nDie3:nDie2):nDie1;
sMsg = sNoScore + "I have rolled a " + IntToString(nDie1) +", " + IntToString(nDie2) + ", and " + IntToString(nDie3) + ". My score is " + IntToString(nScore) +".";
}
else if ((nDie1 == 1 || nDie1 == 2 || nDie1 == 3) && (nDie2 == 1 || nDie2 == 2 || nDie2 == 3) && (nDie3 == 1 || nDie3 == 2 || nDie3 == 3)) //Check Combos
{
sMsg = sNoScore + "I have rolled a 1, 2, and 3. You win two times the bet.";
GiveGoldToCreature(oPC, 2 * pBet);
DeleteLocalInt(oPC, "pBet");
}
else if ((nDie1 == 4 || nDie1 == 5 || nDie1 == 6) && (nDie2 == 4 || nDie2 == 5 || nDie2 == 6) && (nDie3 == 4 || nDie3 == 5 || nDie3 == 6)) //Check Combos
{
sMsg = sNoScore + "I have rolled a 4, 5, and 6. I win two times the bet.";
TakeGoldFromCreature(2 * pBet, oPC);
DeleteLocalInt(oPC, "pBet");
}
else //No score
{
sNoScore += "I have rolled a " + IntToString(nDie1) + ", " + IntToString(nDie2) + ", and " + IntToString(nDie3) + ". No score.\n";
}
nRoll++;
}
if (sMsg == "") sMsg = sNoScore;
SetCustomToken(101, sMsg);
SetLocalInt(oPC, "Score", nScore);
return TRUE;
}