//###########################################
//* the dark summoner (Fear)                #
//*     teach you two spell                 #
//*         -archant                        #
//*         -bat                            #
//* & teach you level 2 dark astral         #
//*                                         #
//###########################################
030-1.gat,62,42,0   script  Fear    0, {
onArchantDead:
    set @Archant_dead, 1;
    goto L_main;
end;
L_main:
//var maybe edit ?
    set array @crazy$, "pain's good","well, that's bore me","everybody dies","wanna die ?","badly little " + @honorific$;
    set @true_name$, "Fear" ;
    set @NPCname$, "[strange man]";
    set @mexp, MAGIC_EXPERIENCE & 65535;


//condition
if (Sex)
    set @honorific$, "boy";
if (!Sex)
    set @honorific$, "girl";
if (MAGIC_FLAGS & MFLAG_KNOWS_SAGATHA)
        goto L_KnowSaghatha;
if (@evil && getskilllv(SKILL_MAGIC_NATURE) > 2)
        goto L_Startsoon;
if(@QUEST_STATUE == 1 && @evil)
        goto L_teachspell;
if(@Archant_dead == 1 && @QUEST_STATUE == 1 && @evil)
        goto L_SPELL_ARCHANT_true;

L_KnowSaghatha:
    goto L_crazycommand;
close;

L_Startsoon:
        mes @NPCname$;
        mes "the strange man look at you suspiciously";
    next;
        mes @NPCname$;
        mes "\"well, you know the dark path of the magic, "+ strcharinfo(0) +"."\";
        menu    "who are you ?", L_Who,
                "can you help me to learn more magic", L_teatch,
                "GoodBye.", -;
        close;

L_Who:
        mes @NPCname$;
        mes "\"I'm an old magician of the dark path of magic."\";
    next;
        mes @NPCname$;
        mes "\"But they called me " + @true_name$ + "."\";
        set @NPCname$, "["+ @true_name$ +"]";
    close;

L_teatch:
        mes @NPCname$;
        mes "\"I can ... I can ... But magic is long to be learn. I hasn't the time yet to teach it."\";
    next;
        menu    "Please", L_No,
                "there is no way for be a good dark summoner", L_darksummoner;
L_no:
        mes @NPCname$;
        mes "\"I don't train my nature magic since a long time so I can't help you"\";
    close;

L_crazycommand:
        npctalk @crazy$[rand(getarraysize(@crazy$))];
        misceffect sfx_magic_war;
        misceffect sfx_magic_war, strcharinfo(0);
        itemheal -Hp, 0;
    close;
L_darksummoner:
        mes @NPCname$;
        mes "\"well, "+ strcharinfo(0) +" that's begin to be intersting...";
        mes "I can teach you astral magic"\";
        menu    "NeverMind", -,
                "Please !", L_summon_teach;
        close;

L_summon_teach:
        mes @NPCname$;
        mes "\"there is..."\";
    set @SUP_id, SKILL_MAGIC_ASTRAL;
    set @SUP_name$, "Astral Magic";
    set @SUP_xp, 5000;
    set @SUP_lvl, 2;
    callfunc "SkillUp";
    set @QUEST_STATUE, 1;
close;
L_teachspell:
        mes @NPCname$;
        mes "\"hello, "+ strcharinfo(0) +" "\";
        menu    "can you teach me a spell ?", L_SPELL,
                "can you teach me more magic ?", L_cannot,
                "Nevermind", -;
        close;
L_cannot:
        mes @NPCname$;
        mes "\"well, I can't."\";
        close;

L_SPELL:

    if(@QUEST_STATUE == 1 && @mexp > 125)
            goto L_SPELL_archant;
    if(@QUEST_STATUE == 2 && @mexp > 150);
            goto L_SPELL_bat;
    if(@QUEST_STATUE == 3)
            goto L_NOSPELL;
        mes @NPCname$;
        mes "\"you don't have enought experience about magic "\";
    close;
L_SPELL_archant:
        mes @NPCname$;
        mes "\"with this spell You'll summon archant .But sometimes, when I summon them they are a bit agressive with me "\";
    next;
        mes @NPCname$;
        mes "\"I think you need to be prepare of this little rebellion. So, I've do an little spell for show you there capacity."\";
        npctalk @crazy$[rand(getarraysize(@crazy$))];
        areamonster "030-1.gat", 62, 22, 62, 25, "", 1060, 10, "Fear::onArchantDead";
    close;
L_SPELL_ARCHANT_true:
        mes @NPCname$;
        mes "\"ok "+ strcharinfo(0) +", I stop joking because I saw: you didn't like mine. So the spell is " + getspellinvocation("summon-archant") + " ."\";
        set @QUEST_STATUE, 2;
    close;
L_NOSPELL:
        mes @NPCname$;
        mes "\"I think you know most important spell who I know."\";
    close;
L_SPELL_bat:
//maybe a litlle quest for it.
        mes @NPCname$;
        mes "\"well, it's " + getspellinvocation("summon-bat") + "."\";
    close;