015-1.gat,97,97,0	script	#MagicSword#_M	127,{
	if (getskilllv(SKILL_MAGIC))
		goto L_message;
        close;

L_message:
        set @Q_MASK, NIBBLE_6_MASK;
        set @Q_SHIFT, NIBBLE_6_SHIFT;
        set @Q_status, (QUEST_MAGIC & @Q_MASK) >> @Q_SHIFT;

        set @STATUS_INITIAL, 0;
        set @STATUS_LEARNED_FLAREDART, 1;
        set @STATUS_LEARNED_MAGICBLADE, 2;

        if (@Q_status == @STATUS_INITIAL)  		goto L_Initial;
        if (@Q_status == @STATUS_LEARNED_FLAREDART)  	goto L_FlareStage;
        if (@Q_status == @STATUS_LEARNED_FLAREDART)  	goto L_MagicBladeStage;

        mes "[Magic Sword]";
        mes "\"I have taught thee all I can teach for now.\"";
        next;
        close;

L_Initial:
        mes "[Magic Sword]";
        mes "At this point, the river deepens, slowing down to a leisurely pace.  In its center you notice an unusual stone, waves breaking around it.";
        mes "Sticking out of the rock is a sword hilt.";
        next;

        mes "[Magic Sword]";
        mes "Suddenly, you hear a strange, metallic voice in your head, the voice of a woman.";
        mes "\"A blissful day to thee, mortal!\"";
        next;

        mes "[Magic Sword]";
        mes "\"What is it is that brings thee to this place?\"";
        next;

        menu
		"Who are you?", L_noq,
                "Nothing in particular.", L_Initial_nothing,
                "I was just exploring...", L_Initial_nothing,
                "I am trying to learn magic!", L_Initial_learn;
        close;

L_noq:
        mes "[Magic Sword]";
        mes "The voice sounds slightly amused.";
        mes "\"How sad to hear how manners have degenerated in recent centuries.  Farewell for now, dear mortal.\"";
        next;
        close;

L_Initial_nothing:
        mes "[Magic Sword]";
        mes "\"Then I wish thee well in thy travels, wanderer!\"";
        next;
        close;

L_Initial_learn:
        mes "[Magic Sword]";
        mes "\"Magic?  Unless I am very mistaken thou already possessest some magic.  Yet perhaps I can grant thee some slight aid by providing a magical invocation?\"";
        next;

        mes "[Magic Sword]";
        mes "\"Alas, my nature is not quite conductive for spells of healing or protection, though I can bestow upon thee the powers for a rather more martial kind of power.\"";
        mes "\"But first... why is it that thou seekest this power?\"";
        next;

        mes
		"Never mind.", L_Farewell;
                "To become stronger!", L_Initial_selfish,
                "To kill!", L_Initial_selfish,
                "I don't know yet...", L_Initial_dontknow,
                "To protect the ones I love!", L_Initial_protect;
	close;

L_Initial_selfish:
        mes "[Magic Sword]";
        mes "\"Please return when thou art taking thy quest for magic a little more seriously.\"";
        next;
        close;

L_Initial_dontknow:
        mes "[Magic Sword]";
        mes "\"A fair and honest thought at so early a point in thine quest.\"";
        goto L_Initial_ok;

L_Initial_protect:
        mes "[Magic Sword]";
        mes "\"Quite a high and laundable goal thou hast chosen for thyself!  I do hope that thou canst live up to it.\"";

L_Initial_ok:
        mes "\"Hark, then, mortal!  For I shall bestow upon thee the secret of the flare dart spell!\"";
        next;

        mes "[Magic Sword]";
        mes "\"Oh, my apologies-- that was a little overly dramatic.  But I do not get to talk to thy kin anymore all that often.\"";
        next;

        mes "[Magic Sword]";
        mes "\"For the flare dart spell throw a handful of sulphur powder up into the air, and say, '" + getspellinvocation("flare-dart") + "'.\"";
        set @Q_status, @STATUS_LEARNED_FLAREDART;
        callsub S_update_var;
        next;
        close;

L_FlareStage:
        menu;
		"Uhm... Hello, Sword?", L_FlareStage_hello,
                "Can you teach me more magic?", L_FlareStage_impolite,
                "Where can I get sulphur powder?", L_FlareStage_impolite;
        close;

L_FlareStage_impolite:
        mes "[Magic Sword]";
        mes "You hear a metallic chime in your head.  After a second, you come to the conclusion that it was probably the sword sighing.";
        mes "\"Greetings to thee, too, mortal, and farewell until thou hast learned some proper manners.\"";
        next;
        close;

L_FlareStage_hello:
        mes "[Magic Sword]";
        mes "\"Well met once more, mortal!  What brings thee here?\"";
        next;

        menu
		"Can you teach me more magic?", L_FlareStage_moremagic,
		"Where can I find sulphur powder?", L_FlareStage_sulphur,
                "Farewell!", L_Farewell;
        close;

L_FlareStage_moremagic:
        mes "[Magic Sword]";
        mes "\"I can indeed!  But first I must see if thou art worthy.  Find my brother, and talk to him!  If thou canst find him, she shall teach thee another spell.\"";
        next;
        goto L_Farewell;

L_FlareStage_sulphur:
        mes "[Magic Sword]";
        mes "\"I do not know, though I suggest to seek out a local alchemist, if there is any.\"";
        next;
        goto L_Farewell;

L_Farewell:
        mes "[Magic Sword]";
        mes "\"Farewell for now!\"";
        next;
        close;

S_update_var:
	set QUEST_MAGIC,
		(QUEST_MAGIC & ~(@Q_MASK)
		| (@Q_status << @Q_SHIFT));
	return;
}