// This file is part of Christmas Event 2012
// author: Jenalya

030-1.gat,75,65,0|script|Meileres|170,{
    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 (xmas2012 & $@xmas2012_FLIGHT_FLAG1) goto L_Again;

    mes "[Meileres]";
    mes "\"Hello. Are you here to see Santa and the helpers? They're inside the house.\"";
    if (@reinboo < 1)
        goto L_Close;
    menu
        "Could you bring me to Neiremes?", -,
        "It's really cold here, I'll go inside.", L_Close;
    mes "[Meileres]";
    mes "\"To Neiremes? Oh, but they're training! What do you want from Neiremes?\"";
    menu
        "Grombadil sent me to help him.", -,
        "You're right, I should leave him alone.", L_Close;
    mes "Meileres sniffs on you.";
    mes "[Meileres]";
    mes "\"Well, I can smell that you talked to Grombadil. Ok. I can bring you there. But I need something to eat first.\"";
    next;
    mes "\"Otherwise I get tired, and we might fall from the sky! You don't want to fall from the sky, right?\"";
    set xmas2012, xmas2012 | $@xmas2012_FLIGHT_FLAG1;
    goto L_Pay;

L_Again:
    mes "[Meileres]";
    mes "\"Do you want me to bring you to Neiremes again?\"";
    menu
        "Yes.", L_Pay,
        "No.", L_Close;

L_Pay:
    mes "[Meileres]";
    mes "\"Do you have anything tasty for me?\"";
    menu
        "What about Red Apples?", -,
        "I could give you Chocolate Cake.", -,
        "I have some White Cake here.", -,
        "I can offer you some Orange Cake.", -,
        "Would you like some Apple Cake?", -,
        "You're greedy!", L_Close;

    set @flight_pay, @menu - 1;
    mes "[Meileres]";
    mes "\"Ok. Give me " + $@xmas2012_flight_pay[@flight_pay] + " " + $@xmas2012_flight_pay_name$[@flight_pay] + " and I'll fly you over to Neiremes.\"";
    menu
        "Here it is.", -,
        "I need to get it first.", L_Close;

    if (countitem($@xmas2012_flight_pay$[@flight_pay]) < $@xmas2012_flight_pay[@flight_pay])
        goto L_NoItem;
    delitem $@xmas2012_flight_pay$[@flight_pay], $@xmas2012_flight_pay[@flight_pay];

    mes "[Meileres]";
    mes "\"Yum, yum, tasty. Ok, let's start.\"";
    warp "044-1.gat", 71, 103;
    goto L_Close;

L_NoItem:
    mes "[Meileres]";
    mes "\"Where is it? Where is it? You don't have it!\"";
    goto L_Close;

L_NoEvent:
    mes "[Meileres]";
    mes "\"I really don't understand why humans spend so much time in buildings. It's so much nicer outside.\"";
    goto L_Close;

L_RewardTime:
    mes "[Meileres]";
    mes "\"Neiremes didn't have any problems with the flight! I'm so happy!\"";
    if (@reinboo != 14)
        goto L_Close;
    next;
    mes "\"Do you want me to bring you to Neiremes again?\"";
    menu
        "Yes.", L_Pay,
        "No, thanks.", L_Close;

L_Close:
    set @reinboo, 0;
    set @flight_pay, 0;
    set @xmas_time, 0;
    close;
}

044-1.gat,66,100,0|script|Reilemes|170,{
    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 (xmas2012 & $@xmas2012_FLIGHT_FLAG2) goto L_Again;

    mes "[Reilemes]";
    mes "\"Hello. We're here to train flying.\"";
    if (@reinboo < 1)
        goto L_Close;
    menu
        "Could you fly me back to Santa's place?", -,
        "Good luck!", L_Close;
    mes "[Reilemes]";
    mes "\"Hm. Ok, why not. But you have to give me something to eat first.\"";
    set xmas2012, xmas2012 | $@xmas2012_FLIGHT_FLAG2;
    next;
    goto L_Pay;

L_Again:
    mes "[Reilemes]";
    mes "\"Do you want to return to Santa's residence?\"";
    menu
        "Yes.", L_Pay,
        "No.", L_Close;

L_Pay:
    mes "[Reilemes]";
    mes "\"Do you have anything tasty for me?\"";
    menu
        "What about Red Apples?", -,
        "I could give you Chocolate Cake.", -,
        "I have some White Cake here.", -,
        "I can offer you some Orange Cake.", -,
        "Would you like some Apple Cake?", -,
        "You're greedy!", L_Close;

    set @flight_pay, @menu - 1;
    mes "[Reilemes]";
    mes "\"Ok. Give me " + $@xmas2012_flight_pay[@flight_pay] + " " + $@xmas2012_flight_pay_name$[@flight_pay] + " and I'll fly you over to Santa's place.\"";
    menu
        "Ok.", -,
        "I changed my mind.", L_Close;

    if (countitem($@xmas2012_flight_pay$[@flight_pay]) < $@xmas2012_flight_pay[@flight_pay])
        goto L_NoItem;
    delitem $@xmas2012_flight_pay$[@flight_pay], $@xmas2012_flight_pay[@flight_pay];

    mes "[Reilemes]";
    mes "\"Yum, yum, tasty. Ok, let's start.\"";
    warp "030-1.gat", 75, 68;
    goto L_Close;

L_NoItem:
    mes "[Reilemes]";
    mes "\"Are you trying to trick me? You don't have it!\"";
    goto L_Close;

L_NoEvent:
    mes "[Reilemes]";
    mes "\"I like these snowy hills.\"";
    goto L_Close;

L_RewardTime:
    mes "[Reilemes]";
    mes "\"Neiremes and Neimeres did very good for their first Christmas Flight.\"";
    next;
    if (@reinboo != 14)
        goto L_Again;
    mes "\"What are you waiting for? Talk to Neiremes!\"";
    goto L_Close;

L_Close:
    set @reinboo, 0;
    set @flight_pay, 0;
    set @xmas_time, 0;
    close;
}