Intense Beard now allows you to learn the groups and advance tiers.

Knowledge interface, blueprints and base skill are still missing.

2 files changed, 124 insertions, 3 deletions

diff --git a/npc/003-8/intensebeard.txt b/npc/003-8/intensebeard.txt
index a4975dae7..7fdbbd854 100644
--- a/npc/003-8/intensebeard.txt
+++ b/npc/003-8/intensebeard.txt
@@ -13,7 +13,128 @@
     mesq l("Hello my friend! I see you've brought your @@ with you this time!", getitemlink(RecipeBook));
     next;
     mesn;
-    mesc l("TODO"), 1;
+    mesq l("Let's learn new recipes! Do you wanna?");
+    next;
+    csysGUI_Report();
+    do {
+        mesc l("Craft Skill Lv: "+getskilllv(TMW2_CRAFT));
+        mesc l("Monster Points: @@    |    Gold: @@",
+             format_number(Mobpt), format_number(Zeny));
+        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;
+
+    } while (@menu != 1);
     close;
 
 L_SemNivel:
diff --git a/npc/craft/options.txt b/npc/craft/options.txt
index 985fae210..02b088e32 100644
--- a/npc/craft/options.txt
+++ b/npc/craft/options.txt
@@ -667,10 +667,10 @@ function	script	csysGUI_OptPrice	{
 }
 
 
-// csysGUI_GroupOpt( cr )
+// csysGUI_OptLearnMenu( cr )
 // Returns the menu entry to learn the group skill.
 // Cost is NOT taken as requisite, must check it later.
-function	script	csysGUI_GroupOpt	{
+function	script	csysGUI_OptLearnMenu	{
     .@sk=getarg(0);
     if (csysGUI_OptReq(.@sk)) {
         .@ms$="Upgrade "+csysGUI_CRName(.@sk)+" for "+csysGUI_OptPrice(.@sk)+" Mobpt";