path: root/npc/013-2_Magic_house/wizard.txt

013-2.gat,66,39,0	script	Old Wizard#_W	116,{
	set @has_magic, getskilllv(SKILL_MAGIC);
        set MAGIC_FLAGS, MAGIC_FLAGS | MFLAG_KNOWS_OLD_WIZARD;

        mes "[Old Wizard]";
        mes "\"Welcome, dear wanderer! Come into my humble home. Take a rest, eat and drink.\"";
        next;

        menu
        	"Thanks, that's very kind of you!",thanks,
                "Can you teach me magic?", L_teach_rude,
        	"Oh, shut up!",shutup;
        close;

L_teach_rude:
        mes "[Old Wizard]";
        mes "\"I certainly could, but I already have an apprentice.\"";
        close;

shutup:
        mes "[Old Wizard]";
        mes "\"That attitude isn't going to get you very far, my dear.\"";
        close;
thanks:
        mes "[Old Wizard]";
        mes "\"Behind this door, my apprentice will serve you.\"";
        next;
        if (@has_magic)
            menu
	        "Alright.",ok,
                "I am studying magic, can you help?", L_new_student,
	        "Your apprentice? ... No thanks.",nothx;
        if (!@has_magic)
            menu
	        "Alright.",ok,
	        "Your apprentice? ... No thanks.",nothx;
nothx:
        mes "[Old Wizard]";
        mes "\"Goodbye, then!\"";
        close;

L_new_student:
        mes "[Old Wizard]";
        mes "\"Studying is always an excellent use of one's mind! I fear that I can't offer too much assistance to you, however. But if you are interested, I could perhaps teach you a simple spell?\"";
        next;

        // check if the player has the knowledge of any skill
        if (!(getskilllv(SKILL_POOL)))
            menu
                "That would be very kind of you!", L_teachspell,
                "No, but thank you!", nothx;

        if (getskilllv(SKILL_POOL))
            menu
                "That would be very kind of you!", L_teachspell,
                "Actually I am looking for someone teaching me some more magic skills.", L_astralsoul,
                "No, but thank you!", nothx;

L_teachspell:
        mes "[Old Wizard]";
        mes "\"This one may not seem too powerful, but it can be quite handy; it's the 'hide' spell. It will shield you from some forms of detection magic.\"";
        next;

        mes "[Old Wizard]";
        mes "\"Put a piece of cotton cloth on your head, and speak out '" + getspellinvocation("hide") + "', loudly and clearly. The protection lasts quite long, but you may have to renew it on occasion.\"";
        next;

        mes "[Old Wizard]";
        mes "\"You can also cast it on others, of course. Just speak their name after you prononuce the invocation.\"";
        next;

        mes "[Old Wizard]";
        mes "\"You may find it useful for getting a little peace and quiet at times, but it can also get in the way of friends trying to find you, so use it with care.\"";
        next;

        if (getskilllv(SKILL_MAGIC_ASTRAL) >= 2)
		close;

        mes "[Old Wizard]";
        mes "\"I'm not sure if you are experienced enough to cast it yet, though.  You may need to first learn astral magic.\"";
        close;

L_astralsoul:
        mes "[Old Wizard]";
        mes "\"Oh yes, there are lots of ways to improve your magic. Skills -some people say mental focus for that- are another way to improve your magic. Of course learning more and more spells is also a need for good mages.\"";
        next;
        mes "\"I can teach you the ability to focus on magical stuff.\"";
        next;
        mes "\"To do so, I am in need of a pearl and about 100 acorns.\"";

        menu "Here we go.", -,
             "Ok be right back. I'll get them", nothx;

        if (countitem("Pearl") < 1 || countitem("Acorn") < 100) goto L_NotEnough;
        delitem "Pearl", 1;
        delitem "Acorn", 100;

        mes "[Old Wizard]";
        mes "\"Okay, listen:\"";
        next;
        mes "\"Some parts of your brain is still unused. These parts will now get the ability to get focused to magic.\"";
        next;
        mes "\"To do so, think of a magic spell!\"";
        next;
        mes "The old wizard mumbles some invocations";
        next;
        set @SUP_lvl, 1;
        set @SUP_id, SKILL_ASTRAL_SOUL;
        set @SUP_name$, "Astral Soul";
        set @SUP_xp, 2500;
        callfunc "SkillUp";
        mes "\"Now go and try to find someone, who can actually activate that focus.\"";
        next;
        mes "\"You have the powers to focus on magic, but you need to get magic focussed now.\"";
        close;

L_NotEnough:
        mes "[Old Wizard]";
        mes "\"Please learn to count.\"";
        next;
        mes "\"When you are done with that, come back again.\"";
        close;
ok:
        mes "[Old Wizard]";
        mes "\"Beware the flying notes though, some of them are really dangerous. I haven't been able to persuade them to get back into their book. And avoid the mirror, it's been acting strange lately.\"";
        next;
        mes "\"Oh, and please don't take my apprentice too seriously. He still has a lot to learn.\"";
        close;
}