The Slime Island segment can now be complete

4 files changed, 44 insertions, 2 deletions

diff --git a/db/constants.conf b/db/constants.conf
index 3353f0bfb..27ae96fb5 100644
--- a/db/constants.conf
+++ b/db/constants.conf
@@ -2212,6 +2212,7 @@ constants_db: {
 
 	comment__: "Mirror Lake Local Quest Constants"
 	MLP_ML_NARD:            1
+	MLP_ML_JAK1:            2
     //MLP_................  4
 
 	comment__: "Being actions"
diff --git a/db/quest_db.conf b/db/quest_db.conf
index 9d5711726..94af84174 100644
--- a/db/quest_db.conf
+++ b/db/quest_db.conf
@@ -163,6 +163,10 @@ quest_db: (
 	Id: 44
 	Name: "CandorQuest_Groata"
 },
+{
+	Id: 45
+	Name: "CandorQuest_Jak1"
+},
 
 // ID 51 to 70: Tulimshar quests
 {
diff --git a/npc/006-3/core.txt b/npc/006-3/core.txt
index da6021a48..75a20334f 100644
--- a/npc/006-3/core.txt
+++ b/npc/006-3/core.txt
@@ -6,8 +6,8 @@
     end;
 
 OnTouch:
-    if (!getq(CandorQuest_Groata)) goto L_Reject; // FIXME
-
+    if (!getq(CandorQuest_Groata)) goto L_Reject;
+    if (!getq(CandorQuest_Jak1)) goto L_Reject;
 
     // FIXME: B3F is not ready, so fallthrough to L_Reject
 L_Reject:
diff --git a/npc/006-4-1/painting.txt b/npc/006-4-1/painting.txt
index 81f6375db..17766660f 100644
--- a/npc/006-4-1/painting.txt
+++ b/npc/006-4-1/painting.txt
@@ -10,3 +10,40 @@ OnTouch:
     end;
 }
 
+006-4-1,69,158,0	script	Abandoned Diary#jak1	NPC_NO_SPRITE,{
+    setpcblock(PCBLOCK_HARD, true);
+    mesc l("STORY MODE ENABLED. Monsters won't attack you, so you can read without worries."), 1;
+    next;
+    clear;
+    mesc l("This diary had several pages torn off, but the last page is clearly legible.");
+    mes "";
+    mesn;
+    mes l("It has been a total disaster. They killed %s. And everyone on the village.", b(l("her")));
+    next;
+    mes l("Why did we had to decide to research slimes of all creatures?! But alas, now is too late. Not even a %s could restore her in this state...", getitemlink(ElixirOfLife));
+    next;
+    mes l("So I did what I could - What I always do. Turned my beloved sister in a slime. Turned her into what killed her.");
+    next;
+    mes l("There is someone who might know how to turn a slime back in a human. But alas, that old fart doesn't live here.");
+    next;
+    mes l("Therefore, I shall head to the %s, and look for %s. If anyone knows how to fix it, might as well be that rat-faced... being.", b(l("Mirror Lake")), b(l("Wushin")));
+    next;
+    mes l("If you're reading this - Feel free to use my laboratory in any way you deem fit. Or what's left of it, at least. Also, please kill any slimes you find. I shall be back in six leaps time, according to the Imperial Time, but if I'm not back by then, assume something went wrong and both wushin and me are off the table.");
+    next;
+    mes l("JAK1, THE SLIME RESEARCHER");
+    mes l("Oranye Isles, 354 AT");
+
+    next;
+    setpcblock(PCBLOCK_HARD, false);
+    if (getvaultid())
+        ##02_MLQUEST = ##02_MLQUEST | MLP_ML_JAK1;
+    compareandsetq CandorQuest_Jak1, 0, 1;
+    closeclientdialog;
+    close;
+
+OnInit:
+    .distance=2;
+    end;
+}
+
+