// 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;
}