// Evol scripts.
// Authors:
//    Alige
//    Reid
// Description:
//    Cookie NPC, beware, if you don't take your cookie, she'll keep it!

000-1.gat,97,50,0,1	script	Cookie Master	319;2,{
    if (getq(General_Cookies) == 1)
        goto l_GetCookie;

    mesn;
    mesq lg("Hey! Adventurer! Are you enjoying your life on Aemil?");
    next;

    menu
        l("Well in fact..."), -;

    mes "";
    mesn;
    mesq l("Shht shht!");
    next;
    mesq l("Don't tell me more, I know what you want...");
    next;
    mesq l("A cookie!");
    next;

    menu
        l("I'd love one!"), -,
        l("No thank you, I'm fine. I'll come back later."), l_Bye;

    mes "";
    mesn;
    mesq lg("Of course you do! Just listen carefully to these words my dear.");
    next;
    mesq l("Cookies are a source of life.");
    next;
    mesq l("Cookies provide you strength, health and cuteness.");
    next;
    mesq l("Cookies are awesome, so am I.");
    next;

        l("Uhm... Your story seems..."), l_StorySeems,
        l("Wait... that's not the place for a chef, what are you doing here?"), l_Presentation,
        l("Exactly! Can I have one now?"), -;

l_Check:
    mes "";
    mesn;
    mesq l("Let me check my cookie list...");
    next;

// Beta3 Contributors.
    if (strcharinfo(0) == "4144")
        goto l_Reward;
    if (strcharinfo(0) == "Alige")
        goto l_Reward;
    if (strcharinfo(0) == "Hal9000")
        goto l_Reward;
    if (strcharinfo(0) == "Reid")
        goto l_Reward;
    if (strcharinfo(0) == "Socapex")
        goto l_Reward;

    mesq l("I'm sorry but I can't see your name anywhere.");
    next;
    mesq l("You see, my cookies are restricted to a certain type of people...");
    next;

    menu
        l("Seriously? It's just a cookie you know... Tell me what I should do to get one."), l_TaskExpanation,
        l("Yes, yes I know... Too bad then. See you soon!"), l_Bye;

l_StorySeems:
    mes "";
    mesn;
    mesq l("What about my story?");
    next;

    menu
        l("It's interesting and exciting at the same time!"), -,
        l("Honestly, it's quite far-fetched according to me."), l_Kick;

    mes "";
    menu
        l("Too bad I'm not hungry enough right now for these... cookies. I'll maybe come back later."), l_Bye,
        l("How can I get one of these cookies?"), -;

    mes "";
    mesn;
    mesq g(l("It looks like madam is curious, am I right?"),
           l("It seems mister is curious, are you not?"));
    next;
    mesq l("Well, if you want to be one of those who can have a cookie...");
    next;

l_TaskExpanation:
    mesq l("You'll first need to help my friends.");
    next;
    mesq l("It is them who tell me to whom I can give cookies.");
    next;

    menu
        l("So you're under the control of dictators, that's... reassuring."), l_Control,
        l("Who are these friends?"), l_Friends;

l_Friends:
    mes "";
    mesn;
    mesq l("Shht shht!");
    next;
    mesq l("Don't say it too loud, other people could hear us.");
    next;
    mesq l("My friends are... Well, you know... The creators.");
    next;
    mesq l("I can't help you to be on my list, nor can I give you a cookie for free.");
    next;
    mesq l("All I can do is tell you that...");
    next;
    mesq l("If you see weird things, or things that shouldn't be here, or even things that you would like to see there...");
    next;
    mesq l("Simply contact them, help them and be kind. They might surely add you to my cookie list!");
    next;

    mesn "Narrator";
    mes col(l("This Cookie Master rewards people who contribute and develop this world."), 9);
    next;
    mes col(l("If you want to be rewarded, help us to evolve in making this world a better place."), 9);
    next;
    mes col(l("When you see something that looks more like a bug than a feature, report it on http://bugs.evolonline.org or try to contact a game contributor."), 9);
    next;
    mes col(l("Any contribution to the game content (translations, graphics creation/edition, concepts, coding/scripting, etc...) is rewarded!"), 9);

    mes "";
    mesn;
    mesq l("So, do you still want a cookie now?");
    next;

    menu
        l("I wish I helped your friends, because I'd really, really like a cookie."), -,
        l("You tell me. Do I deserve a cookie?"), l_Check;

    mes "";
    mesn;
    mesq l("Don't worry, I'm sure you will help them soon enough!");
    next;

    goto l_Bye;

l_Presentation:
    mes "";
    mesn;
    mesq l("For a chef? Who said I was a... Oh right, I am.");
    next;
    mesq l("I was sent here with a task. I can give you a perfect, wonderful, magnificent, superbly well shaped... Cookie!");
    next;
    mesq l("But...");
    next;

    goto l_TaskExpanation;

l_Reward:
    mesq l("Yes! @@ is written on my cookie list.", strcharinfo(0));
    next;
    mesq l("That's quite surprising... You don't look very helpful.");
    next;
    mesq l("Anyway, here, have a cookie!");

    set @item, 517;
    set @count, 1;
    callfunc "InventoryPlace", @item, @count;

    setq General_Cookies, 1;
    getitem "DeliciousCookie", 1;
    npctalk3 l("You receive a @@!", getitemlink("DeliciousCookie"));

    next;
    mesq l("I'm sure you'll appreciate its effect, but be careful, these cookies are rare, and you'll need to help the community again before being able to receive another one.");
    next;

    goto l_Bye;

l_Control:
    mes "";
    mesn;
    mesq l("Common, don't be like that and loosen up! Don't you want to know who's behind all of this?!");

    menu
        l("Why not, this might get interesting."), l_Friends,
        l("Fine, tell me, who are these mysterious aliens?"), -,
        l("No, and I gotta go, see you."), l_Kick;

    mes "";
    mesn;
    mesq l("Don't mock me, my work is admirable.");
    next;

l_Kick:
    closedialog;

    npctalk3 l("No cookie for you!");
    warp "000-1.gat", 99, 52;

    close;

l_GetCookie:
    mesq l("How was the cookie? Tasty, wasn't it?");
    next;
    mesq l("If you want another one, you know what to do!");
    next;

l_Bye:
    closedialog;

    npctalk3 l("See you later!");

    close;
}