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
|
// This file is part of Christmas Event 2012
// author: Jenalya
044-1.gat,71,101,0|script|Neiremes|331,{
callfunc "xmas2012time";
set @reinboo, (xmas2012 & NIBBLE_0_MASK) >> NIBBLE_0_SHIFT;
if (@xmas_time == $@xmas2012_no_event_time)
goto L_NoEvent;
if (@xmas_time == $@xmas2012_reward_time)
goto L_RewardTime;
if (@reinboo == 14) goto L_Done;
if (@reinboo > 8) goto L_Training;
if (@reinboo == 8) goto L_Neimeres;
if (@reinboo > 6) goto L_Acorn;
if (@reinboo == 6) goto L_Hungry;
if (@reinboo > 1) goto L_Blanket;
mes "[Neiremes]";
mes "\"Hello? Please don't disturb me. I'm practicing.\"";
if (@reinboo == 0)
goto L_Close;
menu
"I'm here to help you!", -,
"Ok, sorry.", L_Close;
mes "[Neiremes]";
mes "\"Help me? Oh, that's kind. Now that you say it, I can smell Grombadil on you. He sent you, right? He's so friendly to me. And I fear I'll dissapoint him.\"";
menu
"I'm sure you won't. What's causing you problems?", -,
"Pull yourself together! What's your problem?", -;
mes "[Neiremes]";
mes "\"I... I have problems with flying. I can manage a short flight, but... well, first of all it's so terribly cold in the upper air!";
mes "I don't like freezing.\"";
menu
"I'll try to get something to keep you warm.", -;
mes "[Neiremes]";
mes "\"Oh, that's very kind! But... it has to be red, ok? It's Santa's color. I can't wear a different color!\"";
set @reinboo, 2;
callfunc "xmas2012update_reinboo_var";
goto L_Close;
L_Blanket:
mes "[Neiremes]";
mes "\"Did you find something to keep me warm yet? I'm sure that'll help me to stay in the air for a longer time. And remember, I can only wear something red. Because it's Santa's color.\"";
if (@reinboo != 5)
goto L_Close;
menu
"I have a Red Saddle Rug for you!", -,
"Not yet.", L_Close;
if (countitem("RedSaddleRug") < 1)
goto L_NoItem;
delitem "RedSaddleRug", 1;
set @reinboo, 6;
callfunc "xmas2012update_reinboo_var";
mes "[Neiremes]";
mes "\"Oh, oh, oh! Amazing! It's so fluffy! And red! And warm! Thank you!\"";
mes "He takes the rug with his mouth and puts it on his back.";
next;
mes "[Neiremes]";
mes "\"Can you fasten it onto my back? Pull that strap. Yes, that's right.\"";
next;
mes "\"Oh, I'm so happy. I'm sure now I can stay in the cold air for a longer time.";
mes "\"Unless...";
menu
"Unless?", -,
"What's now the problem?", -;
L_Hungry:
mes "[Neiremes]";
mes "\"Oh, I... I feel hungry now. It's hard to concentrate when I'm hungry. And I feel exhausted because of that. Yes. I need to eat first.\"";
next;
mes "\"Leiremes, my trainer, said it's not good to go on a long flight when you're hungry.\"";
menu
"Are you sure you aren't just afraid?", -,
"Ok, I'll get you something.", L_Close;
mes "[Neiremes]";
mes "\"Oh, don't be mean! I'm really hungry! I'm doing my best.\"";
goto L_Close;
L_Acorn:
mes "[Neiremes]";
mes "\"That Red Saddle Rug you brought me is really nice and warm. But I can't go on a long training flight when I'm hungry. Leiremes said it's dangerous to fly when you're hungry. He's my trainer and he's very wise.\"";
menu
"I'll try to find something appropriate.", L_Close,
"I've got some Roasted Acorns for you.", -;
if (countitem("RoastedAcorn") < $@xmas2012_roasted_acorn_amount)
goto L_NoItem;
delitem "RoastedAcorn", $@xmas2012_roasted_acorn_amount;
set @reinboo, 8;
callfunc "xmas2012update_reinboo_var";
mes "[Neiremes]";
mes "\"Roasted Acorns! Yum, yum, yum. Tasty!\"";
mes "Neiremes munches the acorns with visible delight.";
next;
mes "[Neiremes]";
mes "\"Now I'm going back to training.\"";
next;
L_Neimeres:
mes "[Neiremes]";
mes "\"Neimeres wanted to talk to you. I told her about the nice saddle rug you brought me and she got curious about you. She is just over there at the well.\"";
next;
mes "\"Mh... I think you have to go through that cave further downhill.\"";
goto L_Close;
L_Training:
mes "[Neiremes]";
mes "\"I'm training. Thank you for bringing me the saddle rug and the food. I'm doing my best now.";
mes "... If I only wouldn't have to fly so high...\"";
if (@reinboo != 13)
goto L_Close;
menu
"I have a Flight Talisman for you!", -,
"You just have to train harder!", L_Close;
mes "[Neiremes]";
mes "\"Oh, exciting! What does it do? Does it help me?\"";
menu
"It'll keep you safe while you're flying.", -;
if (countitem("FlightTalisman") < 1)
goto L_NoItem;
delitem "FlightTalisman", 1;
set @reinboo, 14;
callfunc "xmas2012update_reinboo_var";
mes "You give Neiremes the talisman.";
mes "[Neiremes]";
mes "\"Oh, I already feel more safe. It's really powerful, is it? Thank you so much. I'm going to do another training flight, to test it.\"";
goto L_Close;
L_Done:
mes "[Neiremes]";
mes "\"Hello! I just made a very long and high training flight. And I didn't feel cold and I wasn't nervous! Are you proud of me? Thank you so much for bringing this Flight Talisman.\"";
next;
mes "\"Will you come to see how I did after Christmas?\"";
menu
"Of course I will!", -,
"When I have the time...", L_Please;
mes "[Neiremes]";
mes "\"Yay!\"";
goto L_Close;
L_Please:
mes "[Neiremes]";
mes "\"Oh, please come!\"";
goto L_Close;
L_NoItem:
mes "[Neiremes]";
mes "\"Hey? You don't have it! That's mean.\"";
mes "Neiremes looks very sad.";
goto L_Close;
L_NoEvent:
mes "Neiremes the Reinboo hums happily.";
goto L_Close;
L_RewardTime:
mes "[Neiremes]";
mes "\"Thank you so much for your help! It was really great to fly with Santa and the others. Neimeres was so happy too.\"";
if (@reinboo != 14)
goto L_Close;
getinventorylist;
if ((checkweight("RedNose", 1) == 0) || (@inventorylist_count == 100))
goto L_Inventory;
mes "\"Here, this is for you.\"";
getitem "RedNose", 1;
set @reinboo, 15;
callfunc "xmas2012update_reinboo_var";
goto L_Close;
L_Inventory:
mes "[Neiremes]";
mes "\"Oh, I want to give you a gift, but you can't carry it.\"";
goto L_Close;
L_Close:
set @reinboo, 0;
set @xmas_time, 0;
close;
}
|
