summaryrefslogtreecommitdiff
path: root/world/map/npc/xmas/2011/reinboos.txt
blob: ea606bef023032ec14e24a06b7eb99ace062b7ed (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
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
// This file is part of Christmas Event 2011
// author: Jenalya
// Grombadil gives the task to search for the lost Reinboos after the player talked to the Chief helper
// Home Reinboos: Reimeles, Leimeres
// Lost Reinboos: Meireles, Meileres, Reilemes, Leiremes
// coding for a lost reinboo
// b1b0
// 00 : haven't talked yet
// 01 : talked
// 10 : Good
// 11 : Bad

030-1.gat,103,54,0|script|Grombadil|105,{

    if (!(gettime(7) == $@xmas2011_year && gettime(6) == 12 && gettime(5) >= $@xmas2011_start_day))
        goto L_NoEvent;
    if ((gettime(7) == $@xmas2011_year && gettime(6) == 12 && gettime(5) >= $@xmas2011_reward_start_day))
        goto L_RewardTime;

    if (xmas11 & $@xmas11_startedReinbooSearch) goto L_Search;

    mes "The man is grumbling to himself and seems very worried.";
    if (xmas11 & $@xmas11_talkedToChief)
        goto L_Help;
    goto L_Close;

L_Help:
    menu
        "Chief Warrick asked me to help out a bit.",-,
        "Nevermind.",L_Close;
    mes "[Santa's Helper]";
    mes "\"He did? Well, I indeed have a problem.";
    mes "I'm Grombadil, Santa's equerry - the person in charge of the Reinboos.";
    next;
    mes "\"Those Reinboos, you know, are much more clever than a normal animal and can even talk.";
    mes "But they are more like children than an adult.\"";
    next;
    mes "\"And I fear something happened to some of my little fosterlings.";
    mes "It isn't a long time until Christmas and they all should have already arrived here.";
    mes "But look!\"";
    next;
    mes "He waves his hands to point at the area around him.";
    mes "[Grombadil]";
    mes "\"Only Reimeles and Leimeres are here.";
    mes "Meireles, Reilemes, Meileres and Leiremes are missing!";
    mes "And I have no idea where they could be!\"";
    next;
    mes "\"They could be anywhere and I can't leave here. Would you find them for me?\"";
    menu
        "Don't worry, they're as good as home.",-,
        "I'll keep my eyes open.",-,
        "I'm on my way!",-;
    mes "Grombadil looks relieved.";
    mes "[Grombadil]";
    mes "\"Oh, one thing before you leave!\"";
    next;
    mes "\"As I told you, they're a bit like children. And as children they love all kind of candy.";
    mes "But it's not good for them, they get an upset stomach from eating sweet stuff.\"";
    next;
    mes "\"So don't give them candy! You might want to take some apples with you, that's much better for them.";
    mes "Red apples. Don't give them candy. Good luck.\"";
    set xmas11, xmas11 | $@xmas11_startedReinbooSearch;
    goto L_Close;

L_Search:
    mes "[Grombadil]";
    mes "\"Welcome back! I hope you'll be able to find my fosterlings before it's too late.";
    mes "Imagine what would happen if they don't arrive in time!\"";
    next;
    mes "\"And remember, don't give them candy, but red apples. Those are the best ones.";


    cleararray @choice_idx, 0, 5;
    cleararray @choice$, "", 5;

    set @C_r1, 1;
    set @C_r2, 2;
    set @C_r3, 3;
    set @C_r4, 4;
    set @C_nevermind, 5;

    // counter of available answers
    set @choices_nr, 0;

    if (!(xmas11 & $@xmas11_firstReinbooDone))
        goto L_NoR1;
    set @choice_idx[@choices_nr], @C_r1;
    set @choice$[@choices_nr], "I found Meireles, he's about to come home.";
    set @choices_nr, @choices_nr + 1;

L_NoR1:
    if (!(xmas11 & $@xmas11_secondReinbooDone))
        goto L_NoR2;
    set @choice_idx[@choices_nr], @C_r2;
    set @choice$[@choices_nr], "Meileres is on his way home.";
    set @choices_nr, @choices_nr + 1;

L_NoR2:
    if (!(xmas11 & $@xmas11_thirdReinbooDone))
        goto L_NoR3;
    set @choice_idx[@choices_nr], @C_r3;
    set @choice$[@choices_nr], "Reilemes said he'll follow my smell back home.";
    set @choices_nr, @choices_nr + 1;

L_NoR3:
    if (!(xmas11 & $@xmas11_fourthReinbooDone))
        goto L_NoR4;
    set @choice_idx[@choices_nr], @C_r4;
    set @choice$[@choices_nr], "I found Leiremes, he should be here anytime.";
    set @choices_nr, @choices_nr + 1;

L_NoR4:
    set @choice_idx[@choices_nr], @C_nevermind;
    set @choice$[@choices_nr], "I'm still searching.";

    menu
        @choice$[0],-,
        @choice$[1],-,
        @choice$[2],-,
        @choice$[3],-,
        @choice$[4],-;

    set @menu, @menu - 1;
    if (@choice_idx[@menu] == 0)
        goto L_Close;
    if ((@choice_idx[@menu] == @C_nevermind))
        goto L_Close;
    mes "[Grombadil]";
    mes "\"Ah, that are good news!\"";
    goto L_Close;

L_NoEvent:
    mes "[Grombadil]";
    mes "\"Everything is calm and peaceful.\"";
    mes "He smiles.";
    goto L_Close;

L_RewardTime:
    mes "[Grombadil]";
    mes "\"All this stress is finally over. You might want to talk to Santa.\"";
    goto L_Close;

L_Close:
    cleararray @choice_idx, 0, 5;
    cleararray @choice$, "", 5;
    set @C_r1, 0;
    set @C_r2, 0;
    set @C_r3, 0;
    set @C_r4, 0;
    set @C_nevermind, 0;
    set @choices_nr, 0;
    close;
}

030-1.gat,96,57,0|script|Reimeles|170,{

    if (!(gettime(7) == $@xmas2011_year && gettime(6) == 12 && gettime(5) >= $@xmas2011_start_day))
        goto L_NoEvent;
    if ((gettime(7) == $@xmas2011_year && gettime(6) == 12 && gettime(5) >= $@xmas2011_reward_start_day))
        goto L_RewardTime;

    mes "[Reimeles the Reinboo]";
    mes "\"I miss Reilemes, he's my best friend.\"";
    close;

L_NoEvent:
    mes "[Reimeles the Reinboo]";
    mes "\"Hello. Do you want to see Santa? He's not at home.\"";
    close;

L_RewardTime:
    mes "[Reimeles the Reinboo]";
    mes "\"Ah, I'm tired. But it was fun!\"";
    close;
}

030-1.gat,100,46,0|script|Leimeres|170,{

    if (!(gettime(7) == $@xmas2011_year && gettime(6) == 12 && gettime(5) >= $@xmas2011_start_day))
        goto L_NoEvent;
    if ((gettime(7) == $@xmas2011_year && gettime(6) == 12 && gettime(5) >= $@xmas2011_reward_start_day))
        goto L_RewardTime;

    mes "[Leimeres the Reinboo]";
    mes "\"I like the snowflakes. Look, I can catch them with my mouth!\"";
    close;

L_NoEvent:
    mes "[Leimeres the Reinboo]";
    mes "\"It's nice here, isn't it?\"";
    close;

L_RewardTime:
    mes "[Leimeres the Reinboo]";
    mes "\"It was fun to ride with Santa!\"";
    close;
}

006-1.gat,126,112,0|script|Meireles the Reinboo|170,{
    set @cake_amount, 3;
    set @apple_amount, 5;

    if (!(gettime(7) == $@xmas2011_year && gettime(6) == 12 && gettime(5) >= $@xmas2011_start_day))
        goto L_NoEvent;
    if ((gettime(7) == $@xmas2011_year && gettime(6) == 12 && gettime(5) >= $@xmas2011_reward_start_day))
        goto L_RewardTime;

    if ((xmas11 & $@xmas11_firstReinboo) && (xmas11 & $@xmas11_firstReinbooDone)) goto L_Bad;
    if (!(xmas11 & $@xmas11_firstReinboo) && (xmas11 & $@xmas11_firstReinbooDone)) goto L_Good;
    if (xmas11 & $@xmas11_firstReinboo) goto L_Food;
    if (xmas11 & $@xmas11_startedReinbooSearch) goto L_Search;

    mes "The reinboo shys away from you. It seems to be frightened.";
    goto L_Close;

L_Search:
    mes "The Reinboo comes close to you.";
    mes "[Meireles the Reinboo]";
    mes "\"Your smell is familiar!\"";
    menu
        "Grombadil sent me to find you.",-,
        "I don't talk with animals!",L_Close;
    mes "[Meireles the Reinboo]";
    mes "\"Oh! Yes, I shouldn't be here, but home.";
    mes "But I got lost.\"";
    menu
        "What happened?",-;
    mes "The Reinboo seems to feel ashamed.";
    mes "[Meireles the Reinboo]";
    mes "\"I was stupid. I was on the way home, but there was some guy with a mask.";
    mes "He gave me tasty cakes! So tasty...\"";
    next;
    mes "\"He made me go with him, he said he had more cakes. But he tricked me!";
    mes "He dashed some powder into my face and ran away.";
    mes "The powder burned in my nose and made me forget the smell of the way home.\"";
    next;
    mes "\"I tried to find the way, but I'm totally lost.";
    mes "This place is very odd.\"";
    next;
    mes "\"And all this running around made me become hungry.\"";
L_Food:
    mes "The Reinboo snuffles on you.";
    set xmas11, xmas11 | $@xmas11_firstReinboo;
    next;
    if (countitem("OrangeCake") >= @cake_amount)
        goto L_Cake;
    mes "[Meireles the Reinboo]";
    mes "\"Can you bring me some Orange Cakes? Please?";
    mes "When I have something to eat I can follow your smell back home.\"";
    if (countitem("RedApple") < @apple_amount)
        goto L_Close;
    menu
        "I'll try to find some.",L_Close,
        "Cakes aren't good for you, remember? But I have some apples.",L_GiveApple;

L_Cake:
    mes "[Meireles the Reinboo]";
    mes "\"You have some Orange Cakes! Give them to me! Please?\"";
    if (countitem("RedApple") >= @apple_amount)
        menu
            "I have something that is better for you. Apples!",L_GiveApple,
            "No, I want to keep them.",L_Close,
            "Ok, here.",L_GiveCake;
    menu
        "No, I want to keep them.",L_Close,
        "Ok, here.",L_GiveCake;

L_GiveCake:
    if (countitem("OrangeCake") < @cake_amount)
        goto L_NoItem;
    delitem "OrangeCake", @cake_amount;
    mes "[Meireles the Reinboo]";
    mes "\"Yam!\"";
    mes "The Reinboo munches the Orange Cakes.";
    set xmas11, xmas11 | $@xmas11_firstReinbooDone;
    goto L_Close;

L_GiveApple:
    if (countitem("RedApple") < @apple_amount)
        goto L_NoItem;
    delitem "RedApple", @apple_amount;
    mes "[Meireles the Reinboo]";
    mes "\"Apples, bah. Ok.\"";
    mes "The Reinboo munches the Apples.";
    set xmas11, xmas11 | $@xmas11_firstReinbooDone;
    set xmas11, xmas11 & ~$@xmas11_firstReinboo;
    goto L_Close;

L_NoItem:
    mes "[Meireles the Reinboo]";
    mes "\"Huh? It disappeared!\"";
    goto L_Close;

L_Good:
    mes "[Meireles the Reinboo]";
    mes "\"I feel better now. I'm about to follow your smell back to Grombadil.\"";
    goto L_Close;

L_Bad:
    mes "[Meireles the Reinboo]";
    mes "\"Uh, I don't feel well. My stomach hurts. I have to rest a little longer.\"";
    goto L_Close;

L_NoEvent:
    mes "The Reinboo just looks at you.";
    goto L_Close;

L_RewardTime:
    mes "[Meireles the Reinboo]";
    mes "\"Phew, that was close. I nearly didn't make it back in time.";
    mes "But everything went well and now I came back because this place made me curious.\"";
    goto L_Close;

L_Close:
    set @cake_amount, 0;
    set @apple_amount, 0;
    close;
}

012-1.gat,66,55,0|script|Meileres the Reinboo|170,{
    set @cake_amount, 3;
    set @apple_amount, 5;

    if (!(gettime(7) == $@xmas2011_year && gettime(6) == 12 && gettime(5) >= $@xmas2011_start_day))
        goto L_NoEvent;
    if ((gettime(7) == $@xmas2011_year && gettime(6) == 12 && gettime(5) >= $@xmas2011_reward_start_day))
        goto L_RewardTime;

    if ((xmas11 & $@xmas11_secondReinboo) && (xmas11 & $@xmas11_secondReinbooDone)) goto L_Bad;
    if (!(xmas11 & $@xmas11_secondReinboo) && (xmas11 & $@xmas11_secondReinbooDone)) goto L_Good;
    if (xmas11 & $@xmas11_secondReinboo) goto L_Food;
    if (xmas11 & $@xmas11_startedReinbooSearch) goto L_Search;

    mes "The reinboo shys away from you. It seems to be frightened.";
    goto L_Close;

L_Search:
    mes "The Reinboo snuffles on your clothes.";
    mes "[Meileres the Reinboo]";
    mes "\"Mh, you smell like home.\"";
    menu
        "Grombadil sent me to find you.",-,
        "Back off from me!",L_Close;
    mes "[Meileres the Reinboo]";
    mes "\"Grombadil! He must be worried!\"";
    menu
        "He is. How did you get lost?",-,
        "What are you doing here?",-;
    mes "The Reinboo seems abashed.";
    mes "[Meileres the Reinboo]";
    mes "\"There was this guy with candy. Very tasty candy.";
    mes "He promised to give me more candy, so I followed him.\"";
    next;
    mes "\"But he didn't give me more candy! He dashed some stinging powder into my face!";
    mes "It hurt my nose and my eyes. And then he was gone and I don't know where I am.\"";
    next;
    mes "\"Usually I could find the way back with my remarkable nose.";
    mes "But because of that stinging powder I can't remember the smell of the way back.\"";
    next;
    mes "\"And I'm hungry.\"";
L_Food:
    mes "The Reinboo snuffles on you again.";
    set xmas11, xmas11 | $@xmas11_secondReinboo;
    next;
    if (countitem("ChocolateCake") >= @cake_amount)
        goto L_Cake;
    mes "[Meileres the Reinboo]";
    mes "\"Can you bring me some Chocolate Cakes? Please?";
    mes "Then I can go home, I can follow your smell to find the way.\"";
    if (countitem("RedApple") < @apple_amount)
        goto L_Close;
    menu
        "I will see what I can do.",L_Close,
        "Cakes aren't good for you! But I have some apples.",L_GiveApple;

L_Cake:
    mes "[Meileres the Reinboo]";
    mes "\"You have some Chocolate Cakes! Can I have them? Can I have them?\"";
    if (countitem("RedApple") >= @apple_amount)
        menu
            "I have something that is better for you. Apples!",L_GiveApple,
            "No, I want to keep them.",L_Close,
            "Ok, here.",L_GiveCake;
    menu
        "No, I want to keep them.",L_Close,
        "Ok, here.",L_GiveCake;

L_GiveCake:
    if (countitem("ChocolateCake") < @cake_amount)
        goto L_NoItem;
    delitem "ChocolateCake", @cake_amount;
    mes "[Meileres the Reinboo]";
    mes "\"Yay!\"";
    mes "The Reinboo munches the Chocolate Cakes.";
    set xmas11, xmas11 | $@xmas11_secondReinbooDone;
    goto L_Close;

L_GiveApple:
    if (countitem("RedApple") < @apple_amount)
        goto L_NoItem;
    delitem "RedApple", @apple_amount;
    mes "[Meileres the Reinboo]";
    mes "\"Hrm, ok, I'll eat the apples.\"";
    mes "The Reinboo munches the Apples.";
    set xmas11, xmas11 | $@xmas11_secondReinbooDone;
    set xmas11, xmas11 & ~$@xmas11_secondReinboo;
    goto L_Close;

L_NoItem:
    mes "[Meileres the Reinboo]";
    mes "\"Huh? It disappeared!\"";
    goto L_Close;

L_Good:
    mes "[Meileres the Reinboo]";
    mes "\"Hello! I'm about to follow your smell back to Grombadil.\"";
    goto L_Close;

L_Bad:
    mes "[Meileres the Reinboo]";
    mes "\"Uh, my stomach. It hurts. I have to rest a little longer.\"";
    goto L_Close;

L_NoEvent:
    mes "The Reinboo just looks at you.";
    goto L_Close;

L_RewardTime:
    mes "[Meileres the Reinboo]";
    mes "\"Phew, that was close. I nearly didn't make it back in time.";
    mes "But everything went well and now I came back because this place is interesting.\"";
    goto L_Close;

L_Close:
    set @cake_amount, 0;
    set @apple_amount, 0;
    close;
}

018-1.gat,114,41,0|script|Reilemes the Reinboo|170,{
    set @cake_amount, 3;
    set @apple_amount, 5;

    if (!(gettime(7) == $@xmas2011_year && gettime(6) == 12 && gettime(5) >= $@xmas2011_start_day))
        goto L_NoEvent;
    if ((gettime(7) == $@xmas2011_year && gettime(6) == 12 && gettime(5) >= $@xmas2011_reward_start_day))
        goto L_RewardTime;

    if ((xmas11 & $@xmas11_thirdReinboo) && (xmas11 & $@xmas11_thirdReinbooDone)) goto L_Bad;
    if (!(xmas11 & $@xmas11_thirdReinboo) && (xmas11 & $@xmas11_thirdReinbooDone)) goto L_Good;
    if (xmas11 & $@xmas11_thirdReinboo) goto L_Food;
    if (xmas11 & $@xmas11_startedReinbooSearch) goto L_Search;

    mes "The reinboo shys away from you. It seems to be frightened.";
    goto L_Close;

L_Search:
    mes "The Reinboo comes closer and snuffles on your clothes.";
    mes "[Reilemes the Reinboo]";
    mes "\"Did you met Reimeles? He's my best friend. I miss him.\"";
    menu
        "Yes, Grombadil sent me to find you.",-,
        "Hey, stay away from me!",L_Close;
    mes "[Reilemes the Reinboo]";
    mes "\"Oh, Grombadil! He's very nervous, right? I should have been home long ago.\"";
    menu
        "He is. How did you get lost?",-,
        "Reimeles misses you too, why are you here?",-;
    mes "The Reinboo seems embarrassed.";
    mes "[Reilemes the Reinboo]";
    mes "\"I got distracted. Some man gave me tasty candy!";
    mes "He said he had more at his place and told me to come with him.\"";
    next;
    mes "\"But there wasn't more tasty candy! He dashed some stinging powder into my face!";
    mes "My eyes and nose still feel itchy.\"";
    next;
    mes "\"That's why I can't find the way back. My nose doesn't remember the smell!\"";
    next;
    mes "\"And I'm hungry.\"";
L_Food:
    mes "The Reinboo snuffles on you again.";
    set xmas11, xmas11 | $@xmas11_thirdReinboo;
    next;
    if (countitem("WhiteCake") >= @cake_amount)
        goto L_Cake;
    mes "[Reilemes the Reinboo]";
    mes "\"Can you bring me some White Cakes? I love those!";
    mes "Then I can go home, I can follow your smell to find the way.\"";
    if (countitem("RedApple") < @apple_amount)
        goto L_Close;
    menu
        "I will see what I can do.",L_Close,
        "Cakes aren't good for you! But I have some apples.",L_GiveApple;

L_Cake:
    mes "[Reilemes the Reinboo]";
    mes "\"You have some White Cakes! I want those! Please, can I have them?\"";
    if (countitem("RedApple") >= @apple_amount)
        menu
            "I have something that is better for you. Apples!",L_GiveApple,
            "No, I want to keep them.",L_Close,
            "Ok, here.",L_GiveCake;
    menu
        "No, I want to keep them.",L_Close,
        "Ok, here.",L_GiveCake;

L_GiveCake:
    if (countitem("WhiteCake") < @cake_amount)
        goto L_NoItem;
    delitem "WhiteCake", @cake_amount;
    mes "[Reilemes the Reinboo]";
    mes "\"Yay!\"";
    mes "The Reinboo munches the White Cakes.";
    set xmas11, xmas11 | $@xmas11_thirdReinbooDone;
    goto L_Close;

L_GiveApple:
    if (countitem("RedApple") < @apple_amount)
        goto L_NoItem;
    delitem "RedApple", @apple_amount;
    mes "[Reilemes the Reinboo]";
    mes "\"Hrm, ok, I'll eat the apples.\"";
    mes "The Reinboo munches the Apples.";
    set xmas11, xmas11 | $@xmas11_thirdReinbooDone;
    set xmas11, xmas11 & ~$@xmas11_thirdReinboo;
    goto L_Close;

L_NoItem:
    mes "[Reilemes the Reinboo]";
    mes "\"Huh? It disappeared!\"";
    goto L_Close;

L_Good:
    mes "[Reilemes the Reinboo]";
    mes "\"Hello! I'm about to follow your smell back to Grombadil and Reimeles.\"";
    goto L_Close;

L_Bad:
    mes "[Reilemes the Reinboo]";
    mes "\"Uh, my stomach. It hurts. I have to rest a little longer.\"";
    goto L_Close;

L_NoEvent:
    mes "The Reinboo just looks at you.";
    goto L_Close;

L_RewardTime:
    mes "[Reilemes the Reinboo]";
    mes "\"I was nearly late! But everything went well.";
    mes "Now I'm playing hide and seek with Reimeles.\"";
    goto L_Close;

L_Close:
    set @cake_amount, 0;
    set @apple_amount, 0;
    close;
}

017-1.gat,35,49,0|script|Leiremes the Reinboo|170,{
    set @cake_amount, 3;
    set @apple_amount, 5;

    if (!(gettime(7) == $@xmas2011_year && gettime(6) == 12 && gettime(5) >= $@xmas2011_start_day))
        goto L_NoEvent;
    if ((gettime(7) == $@xmas2011_year && gettime(6) == 12 && gettime(5) >= $@xmas2011_reward_start_day))
        goto L_RewardTime;

    if ((xmas11 & $@xmas11_fourthReinboo) && (xmas11 & $@xmas11_fourthReinbooDone)) goto L_Bad;
    if (!(xmas11 & $@xmas11_fourthReinboo) && (xmas11 & $@xmas11_fourthReinbooDone)) goto L_Good;
    if (xmas11 & $@xmas11_fourthReinboo) goto L_Food;
    if (xmas11 & $@xmas11_startedReinbooSearch) goto L_Search;

    mes "The reinboo shys away from you. It seems to be frightened.";
    goto L_Close;

L_Search:
    mes "The Reinboo approaches you and snuffles on your clothes.";
    mes "[Leiremes the Reinboo]";
    mes "\"I like your smell. You smell like home. Have you been at Santa's place?\"";
    menu
        "I was, I'm searching for you.",-,
        "Wah, a talking Reinboo!",L_Close;
    mes "[Leiremes the Reinboo]";
    mes "\"Searching for me? Oh, I'm late, right? I'm so sorry. I didn't mean to cause trouble.\"";
    menu
        "How did you get lost?",-,
        "Well, now I found you. How did you come here?",-;
    mes "The Reinboo looks at you sheepishly.";
    mes "[Leiremes the Reinboo]";
    mes "\"I... I did something stupid. There was a man, he was really friendly to me. He gave me candy!";
    mes "I love candy. It's so tasty! The man said he can give me more at his place.\"";
    next;
    mes "\"So I went with him. But he was evil! He didn't give me candy! He dashed some bad itchy powder in my face.";
    mes "It made me forget the smell of the way home and now I'm lost.\"";
    next;
    mes "\"I was wandering around and searching for it. But that only made me tired. And hungry. Oh, I wish I had more candy.\"";
L_Food:
    mes "The Reinboo snuffles on you again.";
    set xmas11, xmas11 | $@xmas11_fourthReinboo;
    next;
    if (countitem("AppleCake") >= @cake_amount)
        goto L_Cake;
    mes "[Leiremes the Reinboo]";
    mes "\"Can you bring me some Apple Cakes? I like them so much.";
    mes "After that I will feel better and go home. Because I can follow your smell.\"";
    if (countitem("RedApple") < @apple_amount)
        goto L_Close;
    menu
        "Ok, hang on.",L_Close,
        "Apple Cakes? What about apples instead?",L_GiveApple;

L_Cake:
    mes "[Leiremes the Reinboo]";
    mes "\"You have some Apple Cakes! Tasty tasty Apple Cakes! Can I have them?\"";
    if (countitem("RedApple") >= @apple_amount)
        menu
            "I have something that is better for you. Apples!",L_GiveApple,
            "No, I want to keep them.",L_Close,
            "Ok, here.",L_GiveCake;
    menu
        "No, I want to keep them.",L_Close,
        "Ok, here.",L_GiveCake;

L_GiveCake:
    if (countitem("AppleCake") < @cake_amount)
        goto L_NoItem;
    delitem "AppleCake", @cake_amount;
    mes "[Leiremes the Reinboo]";
    mes "\"Hooray!\"";
    mes "The Reinboo munches the Apple Cakes.";
    set xmas11, xmas11 | $@xmas11_fourthReinbooDone;
    goto L_Close;

L_GiveApple:
    if (countitem("RedApple") < @apple_amount)
        goto L_NoItem;
    delitem "RedApple", @apple_amount;
    mes "[Leiremes the Reinboo]";
    mes "\"But - but cakes are much more tasty! Bleah, ok.\"";
    mes "The Reinboo munches the Apples.";
    set xmas11, xmas11 | $@xmas11_fourthReinbooDone;
    set xmas11, xmas11 & ~$@xmas11_fourthReinboo;
    goto L_Close;

L_NoItem:
    mes "[Leiremes the Reinboo]";
    mes "\"Huh? It disappeared!\"";
    goto L_Close;

L_Good:
    mes "[Leiremes the Reinboo]";
    mes "\"I'm not hungry anymore. Just a short break, then I'll go home.\"";
    goto L_Close;

L_Bad:
    mes "[Leiremes the Reinboo]";
    mes "\"Uh uh uh. It hurts. I need to rest a little longer.\"";
    goto L_Close;

L_NoEvent:
    mes "The Reinboo just looks at you.";
    goto L_Close;

L_RewardTime:
    mes "[Leiremes the Reinboo]";
    mes "\"Ha, it was fun to ride with Santa! I came back here because this place is nice.\"";
    goto L_Close;

L_Close:
    set @cake_amount, 0;
    set @apple_amount, 0;
    close;
}