Initial commit

Initial commit.
2024-08-02 23:18:00 -04:00
parent 779bee26ec
commit adeff59f82
3413 changed files with 2837434 additions and 0 deletions
--- a/_module/nss/riddler_g.nss
+++ b/_module/nss/riddler_g.nss
@@ -0,0 +1,167 @@
+///////::///////////////////////////////////////////////
+//:: RIDDLER GUESSESS
+//::                     c_con_riddler
+//:://////////////////////////////////////////////
+/*
+    this checks the pc's guess
+    against the answer keywords.
+
+    this is swiped from the nwn eliza scripts:
+// Eliza/Doctor include file
+// Original author: Joseph Weizenbaum
+// This is a modified version for Neverwinter Nights
+// by Tom 'Magi' Smallwood 10/23/2002
+//
+*/
+//:://////////////////////////////////////////////
+//:: Created By: bloodsong
+//:://////////////////////////////////////////////
+
+//-----EXTERNAL FUNCTIONS: ELIZA STRING HANDLERS--------------------
+
+
+string GetWordFromList(string sKeyList) //Get the first word in a comma delimited list
+{
+  int x;
+  string sNewWord=sKeyList;
+  for(x=0;x<GetStringLength(sKeyList);x++)
+  {
+    if(GetSubString(sKeyList,x,1)==",")
+    {
+      sNewWord=GetStringLeft(sKeyList,x);
+      break;
+    }
+  }
+
+  //if a word was found, surround it with spaces.
+  if(sNewWord!="")
+    sNewWord=" "+sNewWord+" ";
+  return sNewWord;
+}
+
+string FindAMatch(string Speech,string SubStr) //returns the matching substring, or nothing if not found
+{
+  //find first word in SubStr
+  string sKey;
+  sKey=GetWordFromList(SubStr);
+  while(sKey!="")
+  {
+    if(FindSubString(GetStringUpperCase(Speech),sKey)>=0)
+    {
+      return sKey;
+    }
+    SubStr=GetStringRight(SubStr,GetStringLength(SubStr)-GetStringLength(sKey)+1);
+    sKey=GetWordFromList(SubStr);
+  }
+  return "";
+}
+
+string FormatPlayerText(string sSpeech)
+//clean up the player text by
+//removing extra characters, keeping only letters, numbers and spaces
+{
+  int x;
+  sSpeech=" "+sSpeech+" ";
+  string sNewString="";
+  string sChar;
+  for(x=0;x<=GetStringLength(sSpeech)-1;x++)
+  {
+    sChar=GetSubString(sSpeech,x,1);
+    if(FindSubString("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 ",sChar)>=0)
+      sNewString=sNewString+sChar;
+  }
+  return sNewString;
+}
+//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+
+
+
+void main()
+{
+    object oSelf = OBJECT_SELF;
+
+    string sGuess = GetLocalString(oSelf, "GUESS");
+    string sAns1 = GetLocalString(oSelf, "K1");
+    string sAns2 = GetLocalString(oSelf, "K2");
+    string sAns3 = GetLocalString(oSelf, "K3");
+    string sAns4 = GetLocalString(oSelf, "K4");
+    string sAns5 = GetLocalString(oSelf, "K5");
+    int nResult = 0; //-- no joy
+    int nRand;
+    string sReply = "";
+
+    string sSpeech=FormatPlayerText(sGuess);
+    string sKey;
+
+    if((sKey=FindAMatch(sSpeech,sAns1))!="")
+    {
+     sReply = "You are close.";
+     if((sKey=FindAMatch(sSpeech,sAns2))!="" || sAns2 == "")
+     {
+      sReply = "You are very close.";
+      if((sKey=FindAMatch(sSpeech,sAns3))!="" || sAns3 == "")
+      {
+       sReply = "You are extremely close.";
+       if((sKey=FindAMatch(sSpeech,sAns4))!="" || sAns4 == "")
+       {
+        sReply = "You almost have it.  Try again.";
+        if((sKey=FindAMatch(sSpeech,sAns5))!="" || sAns5 == "")
+        {//-- if you get this far, all keywords match!
+          sReply = "";
+          nResult = 1; //-- yay!  um, now what?
+        }
+       }
+      }
+     }
+    }
+    if(sReply != "")
+    {
+    DelayCommand(1.0, SpeakString(sReply));
+    //-- this is in case of some keywords correct and not others
+    }
+
+    if (nResult == 0)
+    {//-- wrong guess
+     if(sReply == "")
+     {//-- not even close
+     nRand = Random(6);
+
+     switch(nRand)
+     {
+      case 0: {  sReply = "No."; break; }
+      case 1: {  sReply = "Incorrect."; break; }
+      case 2: {  sReply = "Wrong."; break; }
+      case 3: {  sReply = "That is not the answer."; break; }
+      case 4: {  sReply = "Incorrect."; break; }
+      case 5: {  sReply = "Incorrect."; break; }
+     }
+
+     DelayCommand(1.0, SpeakString(sReply));
+     }
+     return;
+    }
+
+    //-- else we got the answer, hooray!
+
+     nRand = Random(6);
+     object oPC = GetFirstPC();
+     switch (nRand)
+     {
+      case 0: {  sReply = "Yes."; GiveXPToCreature(oPC,125);break; }
+      case 1: {  sReply = "Correct.";GiveXPToCreature(oPC,125); break; }
+      case 2: {  sReply = "You are correct.";GiveXPToCreature(oPC,125); break; }
+      case 3: {  sReply = "That is the answer.";GiveXPToCreature(oPC,125); break; }
+      case 4: {  sReply = "Correct.";GiveXPToCreature(oPC,125); break; }
+      case 5: {  sReply = "Correct.";GiveXPToCreature(oPC,125); break; }
+     }
+     DelayCommand(1.0, SpeakString(sReply));
+
+   //--cleanup routine!
+   DeleteLocalInt(oSelf, "RIDDLING");
+   SetListening(oSelf, FALSE);
+
+//----- PLACE CUSTOM SUCCESS RESULT ROUTINES HERE ---------\\
+
+
+
+}