// TMW2 scripts.
// Authors:
//    Jesusalva
// Description:
//    One of the Mana Magic Leaders
//    Planned, there are only Auldsbel and Sagratha as Mana Wizards.

//    Gives #parum

003-0,34,37,0	script	Auldsbel	NPC_AULDSBEL,{
    if (MAGIC_LVL < 2)
        goto L_Cheat;
    mesn l("Auldsbel the Wizard");
    mesq l("Welcome back, Padric!");
    mesq l("Do you believe I've lost my @@? I can't see anything well without that! %%a", getitemlink(Googles));
    next;
    mesn l("Auldsbel the Wizard");
    mesq l("Anyway, I am one of the few Mana Wizard, and I love Transmutation!");
    next;

L_Main:
    .@q=getq(General_Auldsbel);
    select
        l("What's the difference from a Mana Wizard and a Mage?"),
        l("Where are you from?"),
        l("Do you still need help with your experiments?"),
        l("Can you teach me Mana Magic?"),
        l("What do you know about Sagratha?"),
        l("Actually, I gotta go, see ya!");

    mes "";
    switch (@menu) {
        case 1:
            mesn;
            mesq l("%%4 Haven't you read your Grimorium yet?!");
            next;
            mesn;
            mesq l("%%@ You can get Magic by joining class and subclass, and with some NPCs. These work out-of-box. Easy.");
            next;
            mesn;
            mesq l("And there is the Mana Magic, for the pro %%e You'll waste your life on that, as it have an experience system.");
            next;
            mesn;
            mesq l("%%G Just like normal magic, you need power from the Mana Stone, which is based on your levels, intelligence, and mana.");
            next;
            mesn;
            mesq l("I like Mana Magic the best, as we can both summon creatures as transmutate stuff. %%N");
            next;
            mesn;
            mesq l("To be honest, you should use both. And remember, all Mana Magic skills can be used like they were @sk-commands. %%H");
            next;
            break;
        case 2:
            mesn;
            mesq l("Well, speaking a bit about myself can't hurt. I am a member from the Magic Council, but one day I decided to take a vacations.");
            next;
            mesn;
            mesq l("I moved to Hurnscald, stayed there for over a decade, until Lord Transmogrifier Pontorias the Plaid (May His Shape Reflect His Soul Forever) died.");
            next;
            mesn;
            mesq l("then I returned to Tulimshar. I now do research, vote on the council meetings, and I also teach young mages about Transmutation magic.");
            next;
            break;
        default:
            goodbye;
            closedialog;
            close;
    }
    goto L_Main;

L_Cheat:
    atcommand "@jail "+strcharinfo(0);
    setparam(MaxHp, readparam(MaxHp)/2); // testing
    setparam(Karma, -1); // testing
    setparam(Manner, -10); // testing
    dispbottom l("You are not allowed on this building, and was caught by Jesusalva's Police!!");
    end;

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