Miler Sketch. Quest is completable, but no reward just yet...

1 files changed, 59 insertions, 1 deletions

diff --git a/npc/019-1-1/miler.txt b/npc/019-1-1/miler.txt
index 7938b38c2..472bb6667 100644
--- a/npc/019-1-1/miler.txt
+++ b/npc/019-1-1/miler.txt
@@ -23,6 +23,7 @@
         l("Hello."), -,
         rif(.@w == 1, l("I need help.")), L_Well,
         rif(.@q == 3 && countitem(HerbalTea), l("The Doctor sent you some tea.")), L_Doctor,
+        rif(.@q == 5 && countitem(PresentBox), l("I have a present box to you open.")), L_Box,
         rif(.@q == 4, l("So, could I help you?")), L_Quest;
 
     close;
@@ -80,7 +81,64 @@ L_Rejected:
 L_Quest:
     mes "";
     mesn;
-    mesq l("Not at the moment, I'm afraid. Maybe later.");
+    mesq l("I lost the precious ring they gave me as a gift... Who could have taken it...?");
+    next;
+    mesn;
+    mesq l("...Of course. It was THEM. It gotta to be them!");
+    next;
+    mesn strcharinfo(0);
+    select l("'Them' whom?");
+    mes "";
+    mesn;
+    mesq l("They came in the night, always taking what does not belong to them.... The SLIMES!");
+    next;
+    mesn;
+    mesq l("The ones around here are specially nasty. They steal stuff and seal them on 'present boxes', just to amuse as people try to open those...");
+    next;
+    mesn;
+    mesq l("...But worry not, I have the right screwdriver for the job. So, are you up to bring me some Present Boxes?");
+    next;
+    mesn strcharinfo(0);
+    select
+        l("Yes, I'll help you."),
+        l("Nah, not now. Slimes ruin your clothes, after all.");
+    mes "";
+    if (@menu == 2) {
+        mesn;
+        mesq l("Ah, I see, I imagine you'll wear something different then... But please come back.");
+        close;
+    }
+    setq LoFQuest_EPISODE, 5, 0;
+    mesn;
+    mesq l("Great, just bring me several boxes, once one of them have the ring I'm looking for.");
+    close;
+
+// Loop
+L_Box:
+    .@q2=getq2(LoFQuest_EPISODE);
+    delitem PresentBox, 1;
+    setq2 LoFQuest_EPISODE, .@q2+1;
+    mesn;
+    mesc l("@@ uses his screwdriver and open the sealed gift box like a pro.", .name$);
+    if (.@q2 >= 70)
+        goto L_Success;
+    mesc l("But the box was empty.");
+
+    // Try again!
+    if (countitem(PresentBox)) {
+        mesn;
+        mesq l("You have more boxes. Wanna try again?");
+        if (askyesno() == ASK_YES)
+            goto L_Box;
+    }
+    close;
+// Quest Complete
+L_Success:
+    setq LoFQuest_EPISODE, 6, 0;
+    mesc l("His golden ring pops right out of it.");
+    next;
+    mesn;
+    mesq l("Many thanks. I couldn't live without it. Please come back later.");
     close;
 
 OnInit: