// TMW2 Script
// Author:
//    Jesusalva
// Description:
//  Morgan is the only mage in Candor. She was assigned by the Alliance to defend
//  the small island, and is married with Zitoni.

005-6,30,37,0	script	Morgan	NPC_RUMLY_FEMALE,{

    mesn;
    mesq lg("Hello there, darling.");
    next;
    menu
        l("Who are you?"), L_Who,
        l("Do you sell anything here?"), L_Shop,
        l("Hi."), -; // Let's be honest, many conversations dies this way >.<
    close;

L_Who:
    mes "";
    mesn;
    mesq l("I am @@, the only mage in Candor.", .name$);
    next;
    mesq l("My husband and I have moved here under the Alliance orders.");
    next;
    mesq l("I really hope that nothing major happens, though. I would hate to see blood being spilled.");
    next;
    if (!MAGIC_LVL)
        mesq l("If you train hard enough, and get access to a Mana Stone, I could teach you a trick or two. But right now, I don't sense magic compatibility in you.");
    else
        goto L_Magic;
    close;

L_Shop:
    mes "";
    mesn;
    mesq l("Why, I actually do sell a few things here! But they probably aren't what you're looking for.");
    next;
    openshop;
    closedialog;
    close;

// Magic Subsystem
L_Magic:
    mesn;
    mesq l("I see you are a mage too. Have you joined a class already? Luca and Colin are always recruiting on Tulimshar Magic Council.");

L_MagicCore:
    select
        l("What is a class?"),
        l("How difficult it is to obtain a class?"),
        rif(!getskilllv(TMW2_KALMURK), l("Can you teach me a spell?")),
        l("Thanks for the help!");
    mes "";
    switch (@menu) {
    case 1:
        mesn;
        mesq l("We have two main groups, entitled classes: The Magic Warriors, and the Wizard Mages.");
        next;
        mesn;
        mesq l("I don't think you can be part of more than one class, but you can accumulate subclasses. These will only unlock at tier 2, though.");
        break;
    case 2:
        mesn;
        mesq l("You know the Tulimshar Magic Council? The big building on Tulimshar North? There you can obtain a class.");
        next;
        mesn;
        mesq l("Getting in a class is easy, difficult is mastering it. But the more you advance, more powerful skills are unlocked.");
        next;
        mesn;
        mesq l("Of course, if you don't ask from the Mana Stone for more magic, that means nothing...");
        break;
    case 3:
        mesn;
        mesq l("Sure! But that is Mana Magic. Just bring me a mug of beer, I'm thristy. And I'll teach you a basic skill.");
        next;
        if (askyesno() == ASK_YES) {
            if (!countitem(Beer)) goto L_Lie;
            delitem Beer, 1;
            skill(TMW2_KALMURK,1,0);
            mesn;
            mesq l("You can use @@ to summon some maggots. That depends on your magic level, of course.", "##B@sk-kalmurk##b");
            next;
            mesn;
            mesq l("That's a Mana Magic. It is very different from regular magic. For example, it have an experience meter and an alias you can say.");
            next;
            mesn;
            mesq l("Unless you have an @@, it'll be difficult to track progress on Mana Magic, and you won't really gain any mana experience for a while.", getitemlink(JesusalvaGrimorium));
            next;
            mesn;
            mesq l("By the way, you need a couple of @@ to try the skill. Fail rate is pretty high, but that book will teach you how to reduce it.", getitemlink(MaggotSlime));
        }
        break;
    default:
        close;
    }
    next;
    goto L_MagicCore;


L_Cheat:
    mesn;
    mesq l("I offer an awesome skill for you, for a very slow price, and you try to cheat me... pitiful...");
    close;

OnInit:
	tradertype(NST_MARKET);

    sellitem CottonCloth, 200, 7;
    sellitem Fungus, -1, 10;
    sellitem Bread, -1, 15;

    .sex = G_FEMALE;
    .distance = 5;
    end;

OnClock0556:
OnClock1201:
OnClock1759:
OnClock0003:
    restoreshopitem CottonCloth, 200, 7;
    restoreshopitem Fungus, -1, 10;
    restoreshopitem Bread, -1, 15;
}