summaryrefslogtreecommitdiff
path: root/npc/00000SAVE/EPISODE/009-2_drwho.txt
blob: 71bf31be229dbfc358fcaa2a820f5c460676a0e0 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
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;

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

L_Intro:
    mes "[The Doctor]";
    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:
    mes "[The Doctor]";
    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:
    mes "[The Doctor]";
    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:
    mes "[The Doctor]";
    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:
    mes "[The Doctor]";
    mes "\"Hmm, it's very interesting, very ... (mumbling).\"";
    goto L_close;

L_Miler:
    mes "[The Doctor]";
    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;

    mes "[The Doctor]";
    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;
    mes "[The Doctor]";
    mes "\"Thanks, enjoy!\"";
    goto L_close;

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

    mes "[The Doctor]";
    mes "\"Remember to save one for Miler!\"";
    getitem "DarkConcentrationPotion", 5;
    goto L_close;

L_Get_Reward:
    mes "[The Doctor]";
    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:
    mes "[The Doctor]";
    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:
    mes "[The Doctor]";
    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;

    mes "[The Doctor]";
    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;
}