1 files changed, 38 insertions, 3 deletions
diff --git a/npc/017-3/doctor.txt b/npc/017-3/doctor.txt
index cd1ac3a64..bc50bd56b 100644
--- a/npc/017-3/doctor.txt
+++ b/npc/017-3/doctor.txt
@@ -9,7 +9,7 @@
     .@q=getq(LoFQuest_EPISODE);
     if (BaseLevel < 30) goto L_Weak;
     if (.@q == 1) goto L_Check;
-    if (.@q >= 2) goto L_Weak;
+    if (.@q >= 2) goto L_Tea;
     mesn;
     mesq l("Quite interesting, quite interesting indeed.");
     menu
@@ -33,9 +33,9 @@ L_Intro:
 L_IntroContinue:
     mes "";
     mesn;
-    mesq l("I don't suppose you have some herbs and a few bottles of water with you, do you?");
+    mesq l("I don't suppose you have some herbs and a few bottles of potion with you, do you?");
     menu
-        l("'Some herbs and water'? Could you be more specific?"), L_IntroSpecify,
+        l("'Some herbs and potion'? Could you be more specific?"), L_IntroSpecify,
         l("Certainly not. Uhh, please excuse me."), -;
     mes "";
     mesc l("@@ stares you as you slowly get away from him. Odd person.", .name$);
@@ -108,6 +108,41 @@ L_Check:
     mesq l("Well, I suppose you can have some of my tea.");
     close;
 
+L_Tea:
+    mesn;
+    mesq l("If you want, you can bring me some more of those herbs and potions.");
+    mesc l("@@/30 @@", countitem(MauveHerb), getitemlink(MauveHerb));
+    mesc l("@@/30 @@", countitem(CobaltHerb), getitemlink(CobaltHerb));
+    mesc l("@@/30 @@", countitem(GambogeHerb), getitemlink(GambogeHerb));
+    mesc l("@@/20 @@", countitem(AlizarinHerb), getitemlink(AlizarinHerb));
+    mesc l("@@/10 @@", countitem(ShadowHerb), getitemlink(ShadowHerb));
+    mesc l("@@/2 @@", countitem(HastePotion), getitemlink(HastePotion));
+    menu
+        l("Alright, I have them here!"), L_Check2,
+        l("No thanks, see ya!"), -;
+    close;
+
+L_Check2:
+    inventoryplace HerbalTea, 1;
+    if (
+        countitem(MauveHerb) < 30 ||
+        countitem(CobaltHerb) < 30 ||
+        countitem(GambogeHerb) < 30 ||
+        countitem(AlizarinHerb) < 20 ||
+        countitem(ShadowHerb) < 10 ||
+        countitem(HastePotion) < 2)
+        goto L_Missing;
+    delitem MauveHerb, 30;
+    delitem CobaltHerb, 30;
+    delitem GambogeHerb, 30;
+    delitem AlizarinHerb, 20;
+    delitem ShadowHerb, 10;
+    delitem HastePotion, 2;
+    getexp 122, 12;
+    getitem HerbalTea, 1;
+    mesn;
+    mesq l("Thanks, enjoy your tea! I will certainly enjoy mine!");
+    close;
 
 L_Weak:
     mesn;