// TMW2 Script
// Author:
//  Jesusalva
// Description:
//  Intense Beard is the crafting master

003-8,27,42,4	script	Intense Beard	NPC_HUMAN_M_ARTIS,{
    if (BaseLevel < 35)
        goto L_SemNivel;
    if (!countitem(RecipeBook))
        goto L_SemLivro;
    mesn;
    mesq l("Hello my friend! I see you've brought your @@ with you this time!", getitemlink(RecipeBook));
    next;
    mesn;
    mesq l("Let's learn new recipes! Do you wanna?");
    next;
    .@bool=false;
    do {
        csysGUI_Report(.@bool);
        mesc l("Learn what?");
        mes "";
        .@opt$="Nothing";
        .@opt$+=":"+csysGUI_OptLearnMenu(CRGROUP_BASE);

        .@opt$+=":"+csysGUI_OptLearnMenu(CRGROUP_ATK);
        .@opt$+=":"+csysGUI_OptLearnMenu(CRGROUP_DEF);
        .@opt$+=":"+csysGUI_OptLearnMenu(CRGROUP_ACC);
        .@opt$+=":"+csysGUI_OptLearnMenu(CRGROUP_EVD);

        .@opt$+=":"+csysGUI_OptLearnMenu(CRGROUP_REGEN);
        .@opt$+=":"+csysGUI_OptLearnMenu(CRGROUP_SPEED);
        .@opt$+=":"+csysGUI_OptLearnMenu(CRGROUP_DOUBLE);
        .@opt$+=":"+csysGUI_OptLearnMenu(CRGROUP_MAXPC);

        .@opt$+=":"+csysGUI_OptLearnMenu(CRGROUP_SCRESIST);
        .@opt$+=":"+csysGUI_OptLearnMenu(CRGROUP_SCINFLICT);
        .@opt$+=":"+csysGUI_OptLearnMenu(CRGROUP_MANAUSE);
        .@opt$+=":"+csysGUI_OptLearnMenu(CRGROUP_BOSSATK);

        .@opt$+=":"+csysGUI_OptLearnMenu(CRGROUP_FINAL);

        select (.@opt$);
        mes "";
        switch (@menu) {
        case 2:
			if (csysGUI_RaiseOpt(CRGROUP_BASE))
				mesc l("Success!"), 3;
			else
				mesc l("Not enough Monster Points!"), 1;
			break;

        case 3:
			if (csysGUI_RaiseOpt(CRGROUP_ATK))
				mesc l("Success!"), 3;
			else
				mesc l("Not enough Monster Points!"), 1;
			break;
        case 4:
			if (csysGUI_RaiseOpt(CRGROUP_DEF))
				mesc l("Success!"), 3;
			else
				mesc l("Not enough Monster Points!"), 1;
			break;
        case 5:
			if (csysGUI_RaiseOpt(CRGROUP_ACC))
				mesc l("Success!"), 3;
			else
				mesc l("Not enough Monster Points!"), 1;
			break;
        case 6:
			if (csysGUI_RaiseOpt(CRGROUP_EVD))
				mesc l("Success!"), 3;
			else
				mesc l("Not enough Monster Points!"), 1;
			break;

        case 7:
			if (csysGUI_RaiseOpt(CRGROUP_REGEN))
				mesc l("Success!"), 3;
			else
				mesc l("Not enough Monster Points!"), 1;
			break;
        case 8:
			if (csysGUI_RaiseOpt(CRGROUP_SPEED))
				mesc l("Success!"), 3;
			else
				mesc l("Not enough Monster Points!"), 1;
			break;
        case 9:
			if (csysGUI_RaiseOpt(CRGROUP_DOUBLE))
				mesc l("Success!"), 3;
			else
				mesc l("Not enough Monster Points!"), 1;
			break;
        case 10:
			if (csysGUI_RaiseOpt(CRGROUP_MAXPC))
				mesc l("Success!"), 3;
			else
				mesc l("Not enough Monster Points!"), 1;
			break;

        case 11:
			if (csysGUI_RaiseOpt(CRGROUP_SCRESIST))
				mesc l("Success!"), 3;
			else
				mesc l("Not enough Monster Points!"), 1;
			break;
        case 12:
			if (csysGUI_RaiseOpt(CRGROUP_SCINFLICT))
				mesc l("Success!"), 3;
			else
				mesc l("Not enough Monster Points!"), 1;
			break;
        case 13:
			if (csysGUI_RaiseOpt(CRGROUP_MANAUSE))
				mesc l("Success!"), 3;
			else
				mesc l("Not enough Monster Points!"), 1;
			break;
        case 14:
			if (csysGUI_RaiseOpt(CRGROUP_BOSSATK))
				mesc l("Success!"), 3;
			else
				mesc l("Not enough Monster Points!"), 1;
			break;

        case 15:
			if (csysGUI_RaiseOpt(CRGROUP_FINAL))
				mesc l("Success!"), 3;
			else
				mesc l("Not enough Monster Points!"), 1;
			break;
        }

        // Update boolean
        if (!.@bool)
            .@bool=true;
    } while (@menu != 1);
    close;

L_SemNivel:
    mesn;
    mesq l("Please don't disturb me, I'm busy crafting my own customized power mega blaster weapon. I just keep failing to apply +100% exp gain bonus on it!");
    close;

L_SemLivro:
    mesn;
    mesq l("Heya, noob. Do you have a @@? No? I thought everyone gained one at birth from their parents!", getitemlink(RecipeBook));
    next;
    mesn;
    mesq l("That's too bad, because I could teach you some amazing craft skills! This will need to wait another day, I guess. Oh well.");
    next;
    mesn;
    mesq l("Better ask your parents for one... Failing that, maybe someone in the Alliance can gift you one.");
    close;

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


}