009-2.gat,110,44,0	script	The Doctor	NPC184,{
    if (BaseLevel < 25) goto L_Lvl_too_low;

    if (QUEST_Episode == 1) goto L_Check;
    if (QUEST_Episode == 2 && BaseLevel >= 40) goto L_Miler;
    if (QUEST_Episode >= 2) goto L_Redo_tea;

    mesn;
    mes "\"Quite interesting, quite interesting indeed.\"";
    menu
        "Um, might I ask, what is so interesting?", L_Intro;

L_Intro:
    mesn;
    mes "\"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
        "Well, thanks.", L_IntroContinue;

L_IntroContinue:
    mesn;
    mes "\"I don't suppose you have some herbs and a few bottles of water with you, do you?\"";
    menu
        "'Some herbs and water'? Could you be more specific?", L_IntroSpecify;

L_IntroSpecify:
    mesn;
    mes "\"Ah, sorry, of course. I need 50 mauve herbs, 50 cobalt herbs, 50 gamboge herbs, 50 alizarin herbs and 10 bottles of water as well.\"";
    menu
        "That shouldn't been too hard, but do I get something in return?", L_IntroReward;

L_IntroReward:
    mesn;
    mes "\"I suppose, what would you like?";
    mes "Er, nevermind, I've thought of something to give you. You can go off now and get what I need.\"";
    QUEST_Episode = 1;
    goto L_close;

L_Lvl_too_low:
    mesn;
    mes "\"Hmm, it's very interesting, very ... (mumbling).\"";
    goto L_close;

L_Miler:
    mesn;
    mes "\"Thank you for helping me make my tea. I hope the potions have been helpful...";
    mes "That reminds me. I have a friend in Nivalis named Miler who gave me some hints on the recipe. Would you take him a sample of what I gave you?";
    mes "If you've used all the ones I've given, you can always bring me more ingredients.\"";
    QUEST_Episode = 3;
    menu
        "I'll go right away.", L_close,
        "Ah, I suppose I need to gather more ingredients first...", L_close,
        "Oh, I have some more ingredients right here!", L_Check3;

S_Tea_Check:
    if (countitem("MauveHerb") < 50 || countitem("CobaltHerb") < 50 ||
        countitem("GambogeHerb") < 50 || countitem("AlizarinHerb") < 50 ||
        countitem("BottleOfWater") < 10) set @failed, 1;
    if (@failed != 1) goto S_Take_Items;
    return;

S_Take_Items:
    delitem "MauveHerb", 50;
    delitem "CobaltHerb", 50;
    delitem "GambogeHerb", 50;
    delitem "AlizarinHerb", 50;
    delitem "BottleOfWater", 10;
    return;

L_Check:
    callsub S_Tea_Check;
    if (@failed == 1) goto L_NotEnough;

    mesn;
    mes "\"Mmm, it's been so long since I have had herbal tea. You have my gratitude.\"";
    menu
        "Seriously? What sort of reward is that?", L_Get_Reward;

L_Check2:
    callsub S_Tea_Check;
    if (@failed == 1) goto L_NotEnough;

    getitem "DarkConcentrationPotion", 5;
    mesn;
    mes "\"Thanks, enjoy!\"";
    goto L_close;

L_Check3:
    callsub S_Tea_Check;
    if (@failed == 1) goto L_NotEnough;

    mesn;
    mes "\"Remember to save one for Miler!\"";
    getitem "DarkConcentrationPotion", 5;
    goto L_close;

L_Get_Reward:
    mesn;
    mes "\"Well, I suppose you can have what's left of my tea.\"";
    getitem "DarkConcentrationPotion", 5;
    QUEST_Episode = 2;
    menu
        "Oh, thank you!", L_close;

L_Redo_tea:
    mesn;
    mes "\"If you want, you can bring me some more of those herbs and water.\"";
    menu
        "Alright, I have them here!", L_Check2,
        "Can you remind me what I need to get again?", L_Remind,
        "No thanks, see ya!", L_close;

L_Remind:
    mesn;
    mes "\"Ah, sorry, of course, I need 50 mauve herbs, 50 cobalt herbs, 50 gamboge herbs, 50 alizarin herbs and 10 bottles of water.\"";
    goto L_close;

L_NotEnough:
    @failed = 0;

    mesn;
    mes "\"Sorry, you do not have enough ingredients. You'd better search thoroughly.\"";
    menu
        "Can you remind me what I need to get?", L_Remind,
        "Ok, I'll go find what you need.", L_close;

L_close:
    close;
}