// TMW2 script.
// Authors:
//    Jesusalva
// Description:
//    Milly here is mixed with Crastur's almanach quest.
//    She controls "World's Hero quest", which is now her MAIN QUEST;
//    But maybe later she'll get nodes about Khafar etc but not like in TMW
//
//    Her reward is a Plush Mouboo. Along about 1000 Mouboo Figurines, and whatever
//    grand reward for completing Main Storyline, and a mega blaster level at magic,
//    and probably within another general quest, YOU CAN SUMMON THE MOUBOOTAUR
//    Eh... I think you need all seven Mana Fragments to control it, though.
//    Without these fragments, you'll just face the baddest boss fight ever and die
//    miserably, because the moubootaur is... well... Simply put... THE MOUBOOTAUR.

012-1,111,66,0	script	Milly	NPC_TEDDYGIRL,{
    .@q=getq(General_Milly);
    mesn;
    if (.@q == 1) mesq lg("Hello my hero!");
    else mesq l("Hello.");
    if (.@q == 0) goto L_Assign;
    close;

L_Assign:
    next;
    mesn;
    mesq lg("hey, hey, are you a hero, are you a hero?");
    next;
    mesn;
    mesq l("I want to meet a hero!");
    next;
    mesc b(l(".:: World's Hero Quest ::.")), 3;
    msObjective(reputation("Candor") >= 100, l("* become @@ Hero", l("Candor")));
    msObjective(reputation("Tulim") >= 100, l("* become @@ Hero", l("Tulimshar")));
    msObjective(reputation("Halin") >= 100, l("* become @@ Hero", l("Halinarzo")));
    msObjective(reputation("Hurns") >= 100, l("* become @@ Hero", l("Hurnscald")));
    msObjective(reputation("LoF") >= 100, l("* become @@ Hero", l("Land Of Fire")));
    msObjective(reputation("Nival") >= 100, l("* become @@ Hero", l("Nivalis")));
    msObjective(reputation("Frostia") >= 100, l("* become @@ Hero", l("Frostia")));
    next;
    if (reputation("Candor") >= 100 &&
        reputation("Tulim") >= 100 &&
        reputation("Halin") >= 100 &&
        reputation("Hurns") >= 100 &&
        reputation("LoF") >= 100 &&
        reputation("Nival") >= 100 &&
        reputation("Frostia") >= 100) goto L_Finish;
    mesc l("You can become a hero by completing every quest in a certain location.");
    next;
    select
        l("I love your pink outfit."),
        l("Have to go.");

    mes "";
    if (@menu == 1)
        goto L_Pink;
    if (@menu == 2)
        goto L_Close;

L_Finish:
    mesn;
    mesq lg("Wo-wo-wow! You really did it! You're the best!");
    next;
    mesn;
    mesq l("But the game still is in development, so not every quest was added yet.");
    next;
    mesn;
    mesq l("Do you want to get a reward nonetheless? You will lose @@.", b(l("any planned experience and gold reward.")));
    mesc l("Also note that, under team's discretion, all rewards from this quest might be erasen along quest state.");
    mesc l("This would mean you might need to complete this quest again in the future.");
    next;
    // Debug
    percentheal 100, 100;
	sc_start SC_ATTHASTE_POTION1, 1800000, 30;
    /*
    mesn;
    mesc l("Saulc was here"), 1;
    close;
    */
    // / Debug
    if (askyesno() == ASK_YES) {
        mes "";
        inventoryplace PlushMouboo, 1;
        setq General_Milly, 1;
        getitem PlushMouboo, 1;
        mesn;
        mesq lg("Here you go, miss! Thanks for being my hero! <3", "Here you go, mister! Thanks for being my hero! <3");
    }
    close;
    
L_Pink    
    mesn;
    mesq l("Thanks, it's just a robe dyed with my crafted @@.", getitemlink(PinkDye));
    next;
    mesn;
    mesq l("If you want me to craft you one, provide me these provided following materials:");
    mesc l("@@/30 @@", countitem(MauveHerb), getitemlink(MauveHerb));
    mesc l("@@/20 @@", countitem(Plushroom), getitemlink(Plushroom));
    mesc l("@@/15 @@", countitem(AlizarionHerb), getitemlink(AlizarionHerb));
    mesc l("@@/10 @@", countitem(PinkBiobine), getitemlink(PinkBiobine));
    mesc l("@@/5 @@", countitem(PinkieAntenna), getitemlink(PinkieAntenna));
    mesc l("@@/1 @@", countitem(WoodlandWater), getitemlink(WoodlandWater));
    mesc l("@@/100 GP", format_number(Zeny));
    next;
    select
        l("I have the items here, take them!"),
        l("I'm not fan of girly colors...");

    mes "";

    if (@menu == 2)
        goto L_Close;

    if (
        countitem(MauveHerb) < 30 ||
        countitem(Plushroom) < 20 ||
        countitem(AlizarionHerb) < 15 ||
        countitem(PinkBiobine) < 10 ||
        countitem(PinkieAntenna) < 5 ||
        countitem(WoodlandWater) < 1 ||
        Zeny < 100) goto L_Missing;

    inventoryplace PinkDye, 1;
    delitem MauveHerb, 30;
    delitem Plushroom, 20;
    delitem AlizarionHerb, 15;
    delitem PinkBiobine, 10;
    delitem PinkieAntenna, 5;
    delitem WoodlandWater, 1;
    getitem PinkDye, 1;

    Zeny=Zeny-100;
    getexp rand(500, 1500), 0;

    mesn;
    mesq l("Here you go, Enjoy pink life <3.");
    next;

L_Close:
    closedialog;
    goodbye;
    close;

L_Missing:
    mesn;
    mesq l("You don't have everything I asked for.");
    next;
    mesn;
    mesq l("I'm sorry. I can't craft it to you, come back later");
    close;

OnInit:
    .sex=G_FEMALE;
    .distance=5;
    end;
}