Quest persistence work

Quest persistence work.

_module/nss/qst_ch_kngsly01g.nss

@@ -0,0 +1,34 @@
+//::///////////////////////////////////////////////
+//:: qst_ch_kngsly01g.nss
+//:: Copyright (c) 2022 Project RATDOG
+//:://////////////////////////////////////////////
+/*
+    Checks for Stage #1 of the "Saving Sir
+    Kingsley" quest & if the PC has 1000gp for
+    the Oracle.
+*/
+//:://////////////////////////////////////////////
+//:: Created By:  Jaysyn
+//:: Created On:  20220705
+//:://////////////////////////////////////////////
+
+#include "pqj_inc"
+
+int StartingConditional()
+{
+//: Declare major variables
+    object oPC = GetPCSpeaker();
+    int nInt;
+    int nGP = GetGold(oPC);
+
+//:: Check to see if the PC has 1000 gp.
+    if ( GetGold(oPC) < 1000 )
+        return FALSE;
+
+//:: Inspect quest state
+    nInt = RetrieveQuestState("kingsley", oPC);
+    if (!nInt == 1)
+        return FALSE;
+
+    return TRUE;
+}