1 files changed, 80 insertions, 0 deletions
diff --git a/npc/017-3/doctor.txt b/npc/017-3/doctor.txt
new file mode 100644
index 000000000..8f54959ee
--- /dev/null
+++ b/npc/017-3/doctor.txt
@@ -0,0 +1,80 @@
+// TMW2/LoF scripts.
+// Authors:
+//    TMW-LoF Team
+//    Jesusalva
+// Description:
+//    Part from THE EPISODE quest
+
+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;
+    mesn;
+    mesq l("Quite interesting, quite interesting indeed.");
+    menu
+        l("Um, might I ask, what is so interesting?"), L_Intro,
+        l("Yes, uhh, very interesting indeed. Haha. I better leave..."), -;
+    mes "";
+    mesc l("@@ stares you as you slowly get away from him. Odd person.", .name$);
+    close;
+
+L_Intro:
+    mes "";
+    mesn;
+    mesq l("Well, you are. You're quite interesting. I've been watching you for some time now, as you've been helping so many people: you're quite a master at what you do, you know.");
+    menu
+        l("Well, thanks."), L_IntroContinue,
+        l("Ok then... Uh... Please excuse me....."), -;
+    mes "";
+    mesc l("@@ stares you as you slowly get away from him. Odd person.", .name$);
+    close;
+
+L_IntroContinue:
+    mes "";
+    mesn;
+    mesq l("I don't suppose you have some herbs and a few bottles of water with you, do you?");
+    menu
+        l("'Some herbs and water'? 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$);
+    close;
+
+L_IntroSpecify:
+    mes "";
+    mesn;
+    mesq l("Ah, sorry, of course. I need quite a few herbs, look:");
+    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));
+    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.\""), -;
+    mes "";
+    mesc l("@@ stares you as you slowly get away from him. Odd person.", .name$);
+    close;
+
+L_IntroReward:
+    mes "";
+    mesn;
+    mesq l("I suppose, what would you like?");
+    next;
+    mesn;
+    mesq l("Er, nevermind, I've thought of something to give you. You can go off now and get what I need.");
+    setq LoFQuest_EPISODE, 1;
+    close;
+
+
+L_Weak:
+    mesn;
+    mesq l("Hmm, it's very interesting, very ... (mumbling).");
+    close;
+
+OnInit:
+    .sex=G_MALE;
+    .distance=5;
+    end;
+
+}