summaryrefslogtreecommitdiff
path: root/npc/012-7/celestia.txt
blob: 8b8dc4fafe77410dc90ea355656d1f57714b9c65 (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
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
// TMW2 Scripts
// Author:
//   gumi (TMW Org. Team)
//   Jesusalva
// Description:
//   Celestia Yeti King's quest. Designed so if you're with 4 players, all 4 can
//   summon the Yeti King, helping you while doing the quest by themselves.

// TODO: OnPCDieEvent must reset quest


012-7,35,49,0	script	Celestia	NPC_ELF_F,{
    .@q1=getq(HurnscaldQuest_Celestia);
    .@q2=getq(HurnscaldQuest_TeaParty);
    mesn;
    mesq lg("Hello, darling. I was thinking in doing a tea party.");
    if (.@q1)
        mesc l("You notice that even if she tries to calm down everyone and serve tea, she's pretty distressed with the Monster King herself.");
    next;
    mesn strcharinfo(0);
    menu
        l("Sorry, I'm more of a coffee person."), L_Coffee,
        l("What an amazing crown you have! How do I get it?!"), L_Crown,
        rif(.@q2 == 0 && BaseLevel >= 35, l("Tea party! I want to participate.")), L_TeaQuest,
        rif(.@q2 == 1, l("I have some sweeties for the Tea Party!")), L_TeaCheck,
        rif(.@q2 >= 2, l("Tea party! I want to participate.")), L_TeaParty,
        rif(.@q2 >= 2, l("Do you sell tea?")), L_TeaShop,
        rif(.@q1 == 0, l("There are Monster Attacks every month, how do you have time for tea parties?!")), L_MainQuest,
        rif(.@q1 && CINDY_PLAYER_STRUCK && getq(NivalisQuest_Well) < 2, l("I found switches which only a Yeti may flip...")), L_OtherQuest,
        rif(.@q1 >= 6, l("I want to try convincing the Yeti King again.")), L_MainQuestCore;

L_Coffee:
    mes "";
    mesn;
    mesq l("Hmpf! Coffee is an heresy!");
    // Except I love coffee ~ Jesusalva
    close;

L_Crown:
    mes "";
    mesn;
    mesq l("Ooh, this nice shiny thing? It was an event.");
    next;
    mesn;
    mesq l("Saulc is rich, you know. He challenged a group of thirty NPCs to defeat him, whoever won would get this @@.", getitemlink(MurdererCrown));
    next;
    mesn;
    mesq l("Well, Andrei Sakar said it was a waste a time, and the other NPCs started fighting against themselves, so I won.");
    next;
    mesn;
    if (BaseLevel < 100)
        mesq l("...Besides, I have this nice @@ with me. I'm not low-level like you.", getitemlink(BansheeBow));
    else
        mesq l("...Besides, I have this nice @@ with me. It's a reliable bow.", getitemlink(BansheeBow));
    close;

L_MainQuest:
    mes "";
    mesn;
    mesc l("Celestia eyes sparkles.");
    mesq l("Someone who have clear priorities appeared! I'm glad!");
    next;
    mesn;
    mesq l("You see, most people think that all monsters are controlled by the Monster King, but that's not quite right.");
    next;
    mesn;
    mesq l("Some are just living their own lives. In special, I've spent part of my life studying the Yeti Society.");
    next;
    mesn;
    mesq l("And guess what? They have a King of their own!");
    mesq l("If we could convince them to distract the Monster King, we could have chances to do a counter-attack!");
    next;
    mesn;
    mesq l("But that's not so easy... I already sent many people, and even come myself, but he refuses to help.");
    next;

L_MainQuestCore:
    mesn;
    mesq l("Maybe you could convince him. There's a summoning circle on Tulimshar Sewers.");
    next;
    mesn;
    mesq l("Go very close to it and, speak the four four-letters magic words, pour some @@, and he'll appear to you.", getitemlink(EverburnPowder));
    next;
    mesn;
    mesq l("Don't go alone, though! He would not listen to me, it is not you alone he'll pay attention. You will lose reagents!");
    next;
    mesc l("Accept quest?");
    if (askyesno() == ASK_YES) {
        setq HurnscaldQuest_Celestia, 1;
        @YetiKing_Challenger=0;
        mes "";
        mesn;
        mesq l("Good, good. The chant is ##B EMOC OTEM ITEY GNIK ##b. Good luck!");
    }
    close;

L_TeaQuest:
    mes "";
    mesn;
    mesq l("Well, the reason why I'm not doing it already is because, you see, I lack cookies.");
    if (countitem(DeliciousCookie)) {
        next;
        mesn;
        mesq l("And anyone like you probably already knows that, well... Cookies are life!");
    }
    next;
    mesn;
    mesq l("But I can still make it without cookies, as long that you bring me some other sweeties.");
    next;
    mesn l("Item List");
    mes l("@@/50 @@", countitem(Acorn), getitemlink(Acorn));
    mes l("@@/20 @@", countitem(ChocolateMouboo), getitemlink(ChocolateMouboo));
    mes l("@@/40 @@", countitem(ChocolateBar), getitemlink(ChocolateBar));
    mes l("@@/15 @@", countitem(Candy), getitemlink(Candy));
    mes l("@@/15 @@", countitem(OrangeCupcake), getitemlink(OrangeCupcake));
    mes l("@@/10 @@", countitem(CherryCake), getitemlink(CherryCake));
    mes l("@@/5 @@", countitem(GingerBreadMan), getitemlink(GingerBreadMan));
    mes l("@@/2 @@", countitem(ChocolateBiscuit), getitemlink(ChocolateBiscuit));
    /* We can't ask for THAT many!
    mes l("@@/20 @@", countitem(ApanaCake), getitemlink(ApanaCake));
    mes l("@@/20 @@", countitem(Mashmallow), getitemlink(Mashmallow));
    mes l("@@/20 @@", countitem(TonoriDelight), getitemlink(TonoriDelight));
    mes l("@@/20 @@", countitem(EasterEgg), getitemlink(EasterEgg));
    mes l("@@/20 @@", countitem(ChocolateBunny), getitemlink(ChocolateBunny));
    mes l("@@/20 @@", countitem(FrozenYetiTear), getitemlink(FrozenYetiTear));
    mes l("@@/20 @@", countitem(DeliciousCookie), getitemlink(DeliciousCookie));
    */
    setq HurnscaldQuest_TeaParty, 1;
    close;

L_TeaCheck:
    mesn l("Item List");
    mes l("@@/50 @@", countitem(Acorn), getitemlink(Acorn));
    mes l("@@/20 @@", countitem(ChocolateMouboo), getitemlink(ChocolateMouboo));
    mes l("@@/40 @@", countitem(ChocolateBar), getitemlink(ChocolateBar));
    mes l("@@/15 @@", countitem(Candy), getitemlink(Candy));
    mes l("@@/15 @@", countitem(OrangeCupcake), getitemlink(OrangeCupcake));
    mes l("@@/10 @@", countitem(CherryCake), getitemlink(CherryCake));
    mes l("@@/5 @@", countitem(GingerBreadMan), getitemlink(GingerBreadMan));
    mes l("@@/2 @@", countitem(ChocolateBiscuit), getitemlink(ChocolateBiscuit));
    next;
    select
        l("I will be back shortly."),
        l("I have all.");
    mes "";

    if (@menu == 1) {
        closedialog;
        goodbye;
        close;
    }
    if (countitem(Acorn) < 50 ||
        countitem(ChocolateMouboo) < 20 ||
        countitem(ChocolateBar) < 40 ||
        countitem(Candy) < 15 ||
        countitem(OrangeCupcake) < 15 ||
        countitem(CherryCake) < 10 ||
        countitem(GingerBreadMan) < 5 ||
        countitem(ChocolateBiscuit) < 2)
            goto L_Lying;

    inventoryplace CelestiaTea, 3;

    delitem Acorn, 50;
    delitem ChocolateMouboo, 20;
    delitem ChocolateBar, 40;
    delitem Candy, 15;
    delitem OrangeCupcake, 15;
    delitem CherryCake, 10;
    delitem GingerBreadMan, 5;
    delitem ChocolateBiscuit, 2;

    getexp rand(13500, 14500), 0; // level exp cap: 15,775
    getitem CelestiaTea, 3;
    setq HurnscaldQuest_TeaParty, 2, gettimetick(2);

    mes "";
    mesn;
    mesq l("Many thanks! I'll arrange the table.");
    close;

L_Lying:
    mesn;
    mesq l("Wha- How dare you, to lie to me!");
    // She'll try to drain all your MP. If you're not MP Full, you'll die. And will have EXP penalty, of course.
    if (Sp == MaxSp)
        percentheal 0, -100;
    else
        percentheal -100, 0;
    close;

// begin: Gumi Script
L_TeaParty:
    .@q2=getq2(HurnscaldQuest_TeaParty);
    mes "";
    mesn;
    mesq l("Wonderful, I am happy to have you over. Lets get things started with some puerh tea.");
    next;
    mesc l("Celestia hands you a cup filled with some type of tea that is unlike anything you have seen before.");
    mesc l("It has a very dark color and an unusual aroma reminiscent of a moist forest.");
    next;
    mesc l("For a moment you wonder if Celestia might have gotten confused and tossed in a handful of forest dirt into the teapot.");
    mesc l("You ponder whether or not it would be wise to drink it.");
    menu
        l("Uh are you sure this is fit to drink?"), L_QuestionTea,
        l("(Drink the tea, hoping for the best)"), L_DrinkTea;

L_DrinkTea:
    if (.@q2 < gettimetick(2)) {
        percentheal 0, 100;
        setq2 HurnscaldQuest_TeaParty, gettimetick(2)+180;
    }
    mesc l("To your pleasant surprise the tea is actually quite good.");
    next;
    mesc l("Despite its initial dubious fragrance, the tea comes off as very smooth and mellow with a bit of natural sweetness and a touch of an earthy forest like flavour, but in a very good way.");
    next;
    mesc l("Clearly an exotic tea, with a refined flavor fit for a refined woman such as Celestia.");
    close;

L_QuestionTea:
    mesq l("Yes, did you really think I was some kind of monster that would try to poison you in my own house?");
    mes l("##a(it would be way too messy anyway)##0");
    next;
    mesc l("Celestia then picks up the cup of tea and drinks it in front of you to demonstrate that it is not only harmless but also quite delectable.");
    if (.@q2 < gettimetick(2)) {
        getitem CelestiaTea, 1;
        setq2 HurnscaldQuest_TeaParty, gettimetick(2)+(60*60*2);
    }
    close;
// end: Gumi Script

L_TeaShop:
    mesn;
    mesq l("Well, my tea is just too good.");
    next;
    closeclientdialog;
    npcshopattach(.name$);
    shop .name$;
    close;

L_OtherQuest:
    mesn strcharinfo(0);
    mesq l("Basically, I need to find a friendly Yeti. Do they exist?");
    next;
    mesn;
    mesq l("Of course. The adviser of the Yeti King, for instance, is very friendly.");
    next;
    mesn;
    mesq l("But he have lots of enemies... It would not surprise me to find him struck somewhere.");
    next;
    mesn;
    mesq l("He usually guards a central position on the caves... He could help you, if he is there.");
    next;
    mesn;
    mesq l("Otherwise, his enemies might have bested him, but I doubt any Yeti would dare to kill him.");
    next;
    mesn;
    mesq l("Wasn't there something on the Holy Bible? About a young boy trapped by his brothers somewhere because envy?");
    mesc l("If you don't want to look at the Bible, you can try to solve the following riddle:");
    mesc l("\"When you're thristy, you may look for me. I'm often in desert areas, but this time, the winter has come.\""), 3;
    CINDY_PLAYER_STRUCK=false;
    next;
    clear;
    mesn l("Quest Tip");
    mesc l("\"When you're thristy, you may look for me. I'm often in desert areas, but this time, the winter has come.\""), 3;
    close;

OnInit:
    .@npcId = getnpcid(.name$);
    setunitdata(.@npcId, UDT_HEADTOP, MurdererCrown);
    setunitdata(.@npcId, UDT_HEADMIDDLE, ValentineDress);
    setunitdata(.@npcId, UDT_HEADBOTTOM, NPCEyes);
    setunitdata(.@npcId, UDT_WEAPON, DeepBlackBoots); // Boots
    setunitdata(.@npcId, UDT_HAIRSTYLE, 19);
    setunitdata(.@npcId, UDT_HAIRCOLOR, 10);

    npcsit;

    .sex = G_FEMALE;
    .distance = 5;

    tradertype(NST_MARKET);
    sellitem CelestiaTea, -1, 1;
    sellitem YerbaMate, -1, 2;
    sellitem JasmineTea, -1, 3;
    sellitem OolongTea, -1, 4;
    sellitem SpearmintTea, -1, 5;
    sellitem ChamomileTea, -1, 10;
    end;

OnClock0002:
    restoreshopitem CelestiaTea, 1;
    restoreshopitem YerbaMate, 2;
    restoreshopitem JasmineTea, 3;
    restoreshopitem OolongTea, 4;
    restoreshopitem SpearmintTea, 5;
    restoreshopitem ChamomileTea, 10;
    end;
}