Christmas Event 2011

1 files changed, 606 insertions, 0 deletions

diff --git a/world/map/npc/xmas/2011/reinboos.txt b/world/map/npc/xmas/2011/reinboos.txt
new file mode 100644
index 00000000..4fcfbcba
--- /dev/null
+++ b/world/map/npc/xmas/2011/reinboos.txt
@@ -0,0 +1,606 @@
+// 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, the equerry of Santa's 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 search 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 their stomache upset 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 be if they don't arrive in time!\"";
+    next;
+    mes "\"And remember, don't give them candy, but red apples. Those are the best ones.";
+    goto L_Close;
+
+L_NoEvent:
+    mes "[Grombadil]";
+    mes "\"Everything is calm and peaceful.\"";
+    mes "He smiles.";
+    goto L_Close;
+
+L_RewardTime:
+    mes "[Grombadil]";
+    mes "\"Hu, all this stress is finally over. You might want to talk to Santa.\"";
+    goto L_Close;
+
+L_Close:
+    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 search 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 were some guy with a mask.";
+    mes "He gave me tasty cakes! So tasty...\"";
+    next;
+    mes "\"He made me go with him, he said he has 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 to 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 had 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 Reinboos 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 Reinboos munches the Apples.";
+    set xmas11, xmas11 | $@xmas11_firstReinbooDone;
+    set xmas11, xmas11 & ~$@xmas11_firstReinboo;
+    goto L_Close;
+
+L_NoItem:
+    mes "[Meireles the Reinboo]";
+    mes "\"Hu? 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 stomache 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, I that was short. 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 search 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 the 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 Reinboos 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 Reinboos munches the Apples.";
+    set xmas11, xmas11 | $@xmas11_secondReinbooDone;
+    set xmas11, xmas11 & ~$@xmas11_secondReinboo;
+    goto L_Close;
+
+L_NoItem:
+    mes "[Meileres the Reinboo]";
+    mes "\"Hu? 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 stomache. 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, I that was short. 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 search 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 Reinboos 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 Reinboos munches the Apples.";
+    set xmas11, xmas11 | $@xmas11_thirdReinbooDone;
+    set xmas11, xmas11 & ~$@xmas11_thirdReinboo;
+    goto L_Close;
+
+L_NoItem:
+    mes "[Reilemes the Reinboo]";
+    mes "\"Hu? 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 stomache. 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 nearly was 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 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 searched 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 Reinboos 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 Reinboos munches the Apples.";
+    set xmas11, xmas11 | $@xmas11_fourthReinbooDone;
+    set xmas11, xmas11 & ~$@xmas11_fourthReinboo;
+    goto L_Close;
+
+L_NoItem:
+    mes "[Leiremes the Reinboo]";
+    mes "\"Hu? 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;
+}