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;
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;
}
|
