summaryrefslogtreecommitdiff
path: root/npc/012-7/celestia.txt
blob: facdfd7d2577afeabfe3ba3852d681b371260fba (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
// 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.");
    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 > 30, 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(.@q1 == 0, l("How do you have time for tea parties?!")), L_MainQuest,
        rif(.@q1 == 99, l("I want to try again.")), L_MainQuest;

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:
    if (is_admin())
        setq HurnscaldQuest_Celestia, 1;
    mesn;
    mes col("TODO, please report this error to Jesusalva.", 1);
    close;

L_TeaQuest:
    mes "";
    mesn;
    mesq l("Well, the reason why I'm not doing it already is because, you see, I lack cookies.");
    //next;
    //mesn;
    //mesq l("And anyone who hanged out on #evol-dev 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("@@/20 @@", countitem(Acorn), getitemlink(Acorn));
    mes l("@@/20 @@", countitem(ChocolateMouboo), getitemlink(ChocolateMouboo));
    mes l("@@/20 @@", 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(Lollipop), getitemlink(Lollipop));
    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("@@/20 @@", countitem(Acorn), getitemlink(Acorn));
    mes l("@@/20 @@", countitem(ChocolateMouboo), getitemlink(ChocolateMouboo));
    mes l("@@/20 @@", 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) < 20 ||
        countitem(ChocolateMouboo) < 20 ||
        countitem(ChocolateBar) < 20 ||
        countitem(Candy) < 15 ||
        countitem(OrangeCupcake) < 15 ||
        countitem(CherryCake) < 10 ||
        countitem(GingerBreadMan) < 5 ||
        countitem(ChocolateBiscuit) < 2)
            goto L_Lying;

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

    getexp rand(12000, 13000), 0;
    setq HurnscaldQuest_TeaParty, 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:
    mes "";
    mesn;
    mesq l("Wonderful, I am happy to have you over. Lets get things started with some puerh tea.");
    next;
    mes col("Celestia hands you a cup filled with some type of tea that is unlike anything you have seen before.", 9);
    mes col("It has a very dark color and an unusual aroma reminiscent of a moist forest.", 9);
    next;
    mes col("For a moment you wonder if Celestia might have gotten confused and tossed in a handful of forest dirt into the teapot.", 9);
    mes col("You ponder whether or not it would be wise to drink it.", 9);
    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:
    // This is easily exploitable on purpose: It's mostly to protect against flood.
    if (@tmp_teatime < gettimetick(2)) {
        percentheal 0, 15;
        @tmp_teatime=gettimetick(2)+140;
    }
    mes col("To your pleasant surprise the tea is actually quite good.", 9);
    next;
    mes col("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.", 9);
    next;
    mes col("Clearly an exotic tea, with a refined flavor fit for a refined woman such as Celestia.", 9);
    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;
    mes col("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.", 9);
    close;
// end: Gumi Script


OnInit:
    .@npcId = getnpcid(0, .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;

}