1 files changed, 56 insertions, 5 deletions

diff --git a/npc/024-16/king.txt b/npc/024-16/king.txt
index c3185a491..5539a1006 100644
--- a/npc/024-16/king.txt
+++ b/npc/024-16/king.txt
@@ -13,6 +13,8 @@
         slide 30, 52;
         end;
     }
+    if (.@q == 16)
+        goto L_Report;
     if (.@q == 15)
         goto L_Campaign;
     if (.@q >= 13)
@@ -95,13 +97,62 @@ L_Campaign:
     // We probably should apply you a penalty should you flee... no?
     setq3 FrostiaQuest_Homunculus, 0;
 
-    // Debug functionality
-    if (is_staff()) {
-        mesc l("This quest wasn't released yet, continue anyway?"),1;
-        if (askyesno() == ASK_YES)
-            cwarp "023-3", 63, 219;
+    // Long intro until you defeat the Yeti.
+    if (!.@q) {
+        mesn;
+        mesq l("Listen. North of here, is the ruins of an old village. Said village is cursed, and nobody here wants to go there.");
+        next;
+        mesn;
+        mesq l("But if you're looking to go to the World Edge, the place where THE WORLD WILL DIE, I guess you are immune to rumors.");
+        next;
+        mesn;
+        mesq l("I would bring @@, just in case. Anyway, the place where you're going to is the village where @@ was born.", getitemlink(Coffee), b(l("the Monster King")));
+        next;
+        mesn;
+        mesq l("I've sent a scout ahead of you, and he reported traps in the caves you'll be going to use.");
+        next;
+        mesn;
+        mesq l("As you can guess, such village was abandoned. However, people allegate to have seen people walking there, like shadows of zombies.");
+        next;
+        mesn;
+        mesq l("As a King, I cannot simply ignore it. Of course, I really doubt it is zombies, but nobody wants to go. That's why I'm resorting to an adventurer like you.");
+        next;
     }
+    // This is a do{} loop
+    do {
+    mesn;
+    mesq l("So, will you go?")
+    mesc l("WARNING: Difficult quest, bringing plenty of healing items strongly advised!"), 1;
+    select
+        l("Not right now."),
+        l("Why not Andrei Sakar?"),
+        l("What will be my reward?"),
+        l("Yes, I'll go.");
+    mes "";
+
+    switch (@menu) {
+    case 1:
+        close;
+    case 2:
+        mesn;
+        mesq l("I tried. He asked for too much money.");
+        next;
+        break;
+    case 3:
+        mesn;
+        mesq l("Whatever you find there is yours to keep.");
+        next;
+        mesn;
+        mesq l("I'll also try to bring you to the world's edge, as you've asked.");
+        next;
+        break;
+    case 4:
+        cwarp "023-3", 63, 219; break;
+    }
+    } while (true);
+    end; // fallback
 
+L_Report:
     // Endtrail
     mes "";
     mesc l("@@ You need to wait further releases to continue this quest!", b(l("WARNING:"))), 1;