From 256bf1e8cd98284461149076f448f434676f4304 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Fri, 13 Jul 2018 16:25:07 -0300
Subject: The Doctor makes Herbal Tea. Stopping here, to handle Hercules
 update.

---
 npc/017-3/doctor.txt | 49 ++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 48 insertions(+), 1 deletion(-)

(limited to 'npc/017-3/doctor.txt')

diff --git a/npc/017-3/doctor.txt b/npc/017-3/doctor.txt
index 8f54959ee..e38df4961 100644
--- a/npc/017-3/doctor.txt
+++ b/npc/017-3/doctor.txt
@@ -8,7 +8,8 @@
 017-3,75,68,0	script	The Doctor	NPC_LOF_DOCTOR,{
     .@q=getq(LoFQuest_EPISODE);
     if (BaseLevel < 30) goto L_Weak;
-    if (.@q >= 1) goto L_Weak;
+    if (.@q == 1) goto L_Check;
+    if (.@q >= 2) goto L_Weak;
     mesn;
     mesq l("Quite interesting, quite interesting indeed.");
     menu
@@ -49,6 +50,7 @@ L_IntroSpecify:
     mesc l("@@/150 @@", countitem(GambogeHerb), getitemlink(GambogeHerb));
     mesc l("@@/100 @@", countitem(AlizarinHerb), getitemlink(AlizarinHerb));
     mesc l("@@/50 @@", countitem(ShadowHerb), getitemlink(ShadowHerb));
+    mesc l("@@/10 @@", countitem(BottleOfSewerWater), getitemlink(BottleOfSewerWater));
     menu
         l("That shouldn't been too hard, but do I get something in return?"), L_IntroReward,
         l("O.o \"That's a lot. Maybe another day.\""), -;
@@ -66,12 +68,57 @@ L_IntroReward:
     setq LoFQuest_EPISODE, 1;
     close;
 
+L_Check:
+    mesn;
+    mesq l("Did you brought what I asked for?");
+    mesc l("@@/150 @@", countitem(MauveHerb), getitemlink(MauveHerb));
+    mesc l("@@/150 @@", countitem(CobaltHerb), getitemlink(CobaltHerb));
+    mesc l("@@/150 @@", countitem(GambogeHerb), getitemlink(GambogeHerb));
+    mesc l("@@/100 @@", countitem(AlizarinHerb), getitemlink(AlizarinHerb));
+    mesc l("@@/50 @@", countitem(ShadowHerb), getitemlink(ShadowHerb));
+    mesc l("@@/10 @@", countitem(BottleOfSewerWater), getitemlink(BottleOfSewerWater));
+    next;
+    if (askyesno() != ASK_YES)
+        close;
+    inventoryplace HerbalTea, 5;
+    if (
+        countitem(MauveHerb) < 150 ||
+        countitem(CobaltHerb) < 150 ||
+        countitem(GambogeHerb) < 150 ||
+        countitem(AlizarinHerb) < 100 ||
+        countitem(ShadowHerb) < 50 ||
+        countitem(BottleOfSewerWater) < 10)
+        goto L_Missing;
+    delitem MauveHerb, 150;
+    delitem CobaltHerb, 150;
+    delitem GambogeHerb, 150;
+    delitem AlizarinHerb, 100;
+    delitem ShadowHerb, 50;
+    delitem BottleOfSewerWater, 10;
+    getexp 7995, 0;
+    setq LoFQuest_EPISODE, 2;
+    getitem HerbalTea, 5;
+    mesn;
+    mesq l("Mmm, it's been so long since I have had herbal tea. You have my gratitude.");
+    next;
+    mesn strcharinfo(0);
+    mesq l("Seriously? What sort of reward is that?");
+    next;
+    mesn;
+    mesq l("Well, I suppose you can have some of my tea.");
+    close;
+
 
 L_Weak:
     mesn;
     mesq l("Hmm, it's very interesting, very ... (mumbling).");
     close;
 
+L_Missing:
+    mesn;
+    mesq l("Sorry, you do not have enough ingredients. You'd better search thoroughly.");
+    close;
+
 OnInit:
     .sex=G_MALE;
     .distance=5;
-- 
cgit v1.2.3-60-g2f50