// This file is part of Christmas Event 2011
// author: Jenalya
// Plush Mouboo states:
// 1: got order from Rikhard
// 2: Launo said that he needs more material
// 3: Launo created the Plush Mouboo
// 4: gave Plush Mouboo to the bad guy
// 5: delivered the Plush Mouboo without giving it to the bad guy
// 6: delivered fake present instead of Plush Mouboo

030-2.gat,31,77,0|script|Rikhard|329,{

    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;

    set @plushmouboo, (xmas11 & $@xmas11_PlushMoubooMask) >> $@xmas11_PlushMoubooShift;

    if (@plushmouboo > 0) goto L_Ordered;
    if (xmas11 & $@xmas11_talkedToChief) goto L_Helping;

    mes "You see some guy grubbing in a huge mound of paper.";
    mes "[Busy Helper]";
    mes "\"Where is this fu-\"";
    mes "He suddenly notices you nearby.";
    mes "[Busy Helper]";
    mes "\"- ahrm, fiddly paper.\"";
    goto L_Close;

L_Helping:
    mes "[Rikhard]";
    mes "\"Ah! You came in at just the right moment! I need someone to deliver this Christmas-present-toy-ordering-form to Launo.";
    mes "Here, take this.\"";
    mes "He puts some piece of paper in your hand.";
    next;
    mes "It seems to be some kind of form, but is very confusing to you. It contains a lot of boxes with some numbers scrabbled in and some hard to read words.";
    menu
        "Er, what is this?",-,
        "Wait a sec, what do you want me to do with that?",-;
    mes "Rikhard mumbles something about hiring nonskilled workers.";
    mes "[Rikhard]";
    mes "\"Ok, listen - we're organizing the Christmas business here. We're keeping track of who was a good or bad kid this year and what was written on the wish lists.";
    mes "And the good children get what they wished for, remember? So, this is a Christmas-present-toy-ordering-form to order a Plush Mouboo for some very well-behaved cute little girl.\"";
    next;
    mes "\"Launo is very skilled at creating plush toys, so you need to bring him this form.\"";
    mes "He waves at you with his hand and then digs into the papers again.";
    set @plushmouboo, 1;
    set xmas11, (xmas11 & ~($@xmas11_PlushMoubooMask) | (@plushmouboo << $@xmas11_PlushMoubooShift));
    goto L_Close;

L_Ordered:
    mes "[Rikhard]";
    mes "\"Did you already give Launo the Christmas-present-toy-ordering-form? Yes?";
    mes "Ok, I have some more paperwork to do, so please don't interrupt.\"";
    goto L_Close;

L_NoEvent:
    mes "[Rikhard]";
    mes "\"How did you come in? At this time of the year the door should be locked!\"";
    warp "030-1.gat", 99, 55;
    goto L_Close;

L_RewardTime:
    mes "[Rikhard]";
    mes "\"With sufficient organization you can achieve everything.\"";
    mes "He smiles happily.";
    goto L_Close;

L_Close:
    set @plushmouboo, 0;
    close;
}

030-2.gat,135,31,0|script|Launo|329,{

    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;

    set @plushmouboo, (xmas11 & $@xmas11_PlushMoubooMask) >> $@xmas11_PlushMoubooShift;
    set @cotton_amount, 5;
    set @fur_amount, 2;

    if (@plushmouboo >= 3) goto L_PlushMoubooDone;
    if (@plushmouboo == 2) goto L_PlushMouboo;
    if (@plushmouboo == 1) goto L_Order;
    if (xmas11 & $@xmas11_talkedToChief) goto L_Helping;

    mes "[Busy Helper]";
    mes "\"Mh, mh, mh. This is not good.\"";
    goto L_Close;

L_Helping:
    mes "[Launo]";
    mes "\"Mh? Oh, you're here to help?";
    mes "That's very kind of you.\"";
    next;
    mes "\"Though I can't do anything right now.";
    mes "I'm specialized in making plush toys. Usually I'd just create dozens of them and if they aren't on this year's wishlists, they'd be used next year.\"";
    mes "He sighs.";
    next;
    mes "\"But since we're short in material, we got the order to only create toys that are requested.";
    mes "And now I sit here and wait to get such an order. But the guys up in the office seem to have some problems getting their paperwork done.";
    mes "Maybe you can go up there and ask if there's a plush toy to make?\"";
    goto L_Close;

L_Order:
    mes "Launo sighs.";
    mes "[Launo]";
    mes "\"I wish I had an order for a toy.\"";
    menu
        "I have one for you! Rikhard gave me an order for a Plush Mouboo.",-,
        "Well, bad luck.", L_Close;
    mes "Launos gets a happier look on his face.";
    mes "[Launo]";
    mes "\"A Plush Mouboo? I love doing them!";
    mes "Ok, let's see if I have all the material needed.\"";
    next;
    mes "[Launo]";
    mes "\"Hrm, it seems I need some more Cotton, could you bring me " + @cotton_amount + " Cotton Cloths?";
    mes "And I need some fur to make the belly extra fluffy. " + @fur_amount + " pieces of White Fur would be good, I can dye the color myself.\"";
    set @plushmouboo, 2;
    callsub S_Update_Var;
    goto L_Close;

L_PlushMouboo:
    mes "[Launo]";
    mes "\"I need " + @cotton_amount + " Cotton Cloths and " + @fur_amount + " pieces of White Fur for the Plush Mouboo.\"";
    menu
        "I have it!",-,
        "I'm still working on that.",L_Close;
    if ((countitem("CottonCloth") < @cotton_amount) || (countitem("WhiteFur") < @fur_amount))
        goto L_NoItems;
    getinventorylist;
    if (@inventorylist_count == 100)
        goto L_Full_Inv;
    delitem "CottonCloth", @cotton_amount;
    delitem "WhiteFur", @fur_amount;
    set @plushmouboo, 3;
    callsub S_Update_Var;
    getitem "PlushMouboo", 1;
    mes "[Launo]";
    mes "\"Excellent! I'll start right away.\"";
    next;
    mes "He puts the items you gave him into a pot with brown dye and takes them out again after short while, putting them to dry on the desk.";
    mes "In the meanwhile he rummages in his workbench and gets out some tools and a wood template.";
    next;
    mes "The workbench seems to have a heating mechanism or something since the cloth and fur is already dry.";
    mes "He takes the wood template, puts it on the cloth and draws very tiny lines on it. Then he cuts it out with very quick but confident movements.";
    next;
    mes "After that he takes the different parts and starts to sew them together.";
    mes "He stops before it's finished, leaving a hole where he puts in some stuffing.";
    next;
    mes "He's kneading it a bit to arrange the stuffing properly in the toy and finally stitches up the hole.";
    mes "Finally he adds some knobs for the eyes and presents you the Plush Mouboo.";
    next;
    mes "[Launo]";
    mes "\"Here you go! Isn't it delightful?\"";
    menu
        "Wow, that was quick!",-;
    mes "[Launo]";
    mes "\"Well yeah, I'm used to working quickly. Usually we produce many more toys.\"";
    mes "However, now it needs to be put in a present box and then that box has to be wrapped.\"";
    next;
    mes "\"Could you take care of that? Urmas should have some boxes for you and Reino takes care of the wrapping paper.";
    mes "The place to wrap the presents is at Aaron's desk.\"";
    goto L_Close;

L_PlushMoubooDone:
    mes "[Launo]";
    mes "\"I feel much better now after I got some work done. Please take care of packing, wrapping, and giving it to Aaron.\"";
    goto L_Close;

L_NoEvent:
    mes "[Launo]";
    mes "\"How did you come in? At this time of the year the door should be locked!\"";
    warp "030-1.gat", 99, 55;
    goto L_Close;

L_RewardTime:
    mes "[Launo]";
    mes "\"Huh, it was really stressful this year.";
    mes "But imagining the happy kids cuddling the plush toys I made - that makes amends for all that.\"";
    goto L_Close;

L_NoItems:
    mes "[Launo]";
    mes "\"You don't have it!\"";
    goto L_Close;

L_Full_Inv:
    mes "[Launo]";
    mes "\"You have a full backpack! Come back when you're carrying less things.\"";
    goto L_Close;

L_Close:
    set @cotton_amount, 0;
    set @fur_amount, 0;
    set @plushmouboo, 0;
    set @inventorylist_count, 0;
    close;

S_Update_Var:
    set xmas11, (xmas11 & ~($@xmas11_PlushMoubooMask) | (@plushmouboo << $@xmas11_PlushMoubooShift));
    return;
}