Improve the display of csys_gui()

2 files changed, 93 insertions, 87 deletions

diff --git a/npc/003-8/intensebeard.txt b/npc/003-8/intensebeard.txt
index f82d41e4e..b42faaed3 100644
--- a/npc/003-8/intensebeard.txt
+++ b/npc/003-8/intensebeard.txt
@@ -15,11 +15,9 @@
     mesn;
     mesq l("Let's learn new recipes! Do you wanna?");
     next;
-    csysGUI_Report();
+    .@bool=false;
     do {
-        mesc l("Craft Skill Lv: "+getskilllv(TMW2_CRAFT));
-        mesc l("Monster Points: @@    |    Gold: @@",
-             format_number(Mobpt), format_number(Zeny));
+        csysGUI_Report(.@bool);
         mesc l("Learn what?");
         mes "";
         .@opt$="Nothing";
@@ -134,6 +132,10 @@
 				mesc l("Not enough Monster Points!"), 1;
 			break;
         }
+
+        // Update boolean
+        if (!.@bool)
+            .@bool=true;
     } while (@menu != 1);
     close;
 
diff --git a/npc/craft/options.txt b/npc/craft/options.txt
index 996db70c9..2830aefa6 100644
--- a/npc/craft/options.txt
+++ b/npc/craft/options.txt
@@ -455,95 +455,99 @@ function	script	csys_Apply	{
 ///////
 // Interface System for Options Craft
 
-// csysGUI_Report(  )
+// csysGUI_Report( {silent} )
 // Report craft skill levels
 function	script	csysGUI_Report	{
 
     mes l("Crafting Skill: Lv @@", getskilllv(TMW2_CRAFT));
 
-    if (getskilllv(TMW2_CRAFT) >= 1) {
-        mes "";
-        mes ".:: " + l("Base Tier") + " ::.";
-        mes "";
-        mes l("@@: Lv @@", getitemlink(CRITEM_BASE), CRAFTSYS[CRGROUP_BASE]);
-    } else {
-        mes "";
-        mes ".:: " + l("Base Tier") + " ::.";
-        mes "";
-        mesc l("Reach level @@ to unlock this tier!", 1), 1;
-    }
-
-    if (getskilllv(TMW2_CRAFT) >= 2) {
-        mes "";
-        mes ".:: " + l("First Tier") + " ::.";
-        mes "";
-        mes l("@@: Lv @@", getitemlink(CRITEM_ATK), CRAFTSYS[CRGROUP_ATK]);
-        mes "";
-        mes l("@@: Lv @@", getitemlink(CRITEM_DEF), CRAFTSYS[CRGROUP_DEF]);
-        mes "";
-        mes l("@@: Lv @@", getitemlink(CRITEM_ACC), CRAFTSYS[CRGROUP_ACC]);
-        mes "";
-        mes l("@@: Lv @@", getitemlink(CRITEM_EVD), CRAFTSYS[CRGROUP_EVD]);
-        next;
-    } else {
-        mes "";
-        mes ".:: " + l("First Tier") + " ::.";
-        mes "";
-        mesc l("Reach level @@ to unlock this tier!", 2), 1;
-    }
-
-    if (getskilllv(TMW2_CRAFT) >= 3) {
-        mes "";
-        mes ".:: " + l("Second Tier") + " ::.";
-        mes "";
-        mes l("@@: Lv @@", getitemlink(CRITEM_REGEN), CRAFTSYS[CRGROUP_REGEN]);
-        mes "";
-        mes l("@@: Lv @@", getitemlink(CRITEM_SPEED), CRAFTSYS[CRGROUP_SPEED]);
-        mes "";
-        mes l("@@: Lv @@", getitemlink(CRITEM_DOUBLE), CRAFTSYS[CRGROUP_DOUBLE]);
-        mes "";
-        mes l("@@: Lv @@", getitemlink(CRITEM_MAXPC), CRAFTSYS[CRGROUP_MAXPC]);
-    } else {
-        mes "";
-        mes ".:: " + l("Second Tier") + " ::.";
-        mes "";
-        mesc l("Reach level @@ to unlock this tier!", 3), 1;
-        next;
-    }
-
-
-    if (getskilllv(TMW2_CRAFT) >= 4) {
-        mes "";
-        mes ".:: " + l("Third Tier") + " ::.";
-        mes "";
-        mes l("@@: Lv @@", getitemlink(CRITEM_SCRESIST), CRAFTSYS[CRGROUP_SCRESIST]);
-        mes "";
-        mes l("@@: Lv @@", getitemlink(CRITEM_SCINFLICT), CRAFTSYS[CRGROUP_SCINFLICT]);
-        mes "";
-        mes l("@@: Lv @@", getitemlink(CRITEM_MANAUSE), CRAFTSYS[CRGROUP_MANAUSE]);
-        mes "";
-        mes l("@@: Lv @@", getitemlink(CRITEM_BOSSATK), CRAFTSYS[CRGROUP_BOSSATK]);
-        next;
-    } else {
-        mes "";
-        mes ".:: " + l("Third Tier") + " ::.";
-        mes "";
-        mesc l("Reach level @@ to unlock this tier!", 4), 1;
-    }
-
-    if (getskilllv(TMW2_CRAFT) >= 5) {
-        mes "";
-        mes ".:: " + l("Ultimate Tier") + " ::.";
-        mes "";
-        mes l("@@: Lv @@", getitemlink(CRITEM_FINAL), CRAFTSYS[CRGROUP_FINAL]);
-        mes "";
-    } else {
-        mes "";
-        mes ".:: " + l("Ultimate Tier") + " ::.";
-        mes "";
-        mesc l("Reach level @@ to unlock this tier!", 5), 1;
+    if (!getarg(0, false)) {
+        if (getskilllv(TMW2_CRAFT) >= 1) {
+            mes "";
+            mes ".:: " + l("Base Tier") + " ::.";
+            mes "";
+            mes l("@@: Lv @@", getitemlink(CRITEM_BASE), CRAFTSYS[CRGROUP_BASE]);
+        } else {
+            mes "";
+            mes ".:: " + l("Base Tier") + " ::.";
+            mes "";
+            mesc l("Reach level @@ to unlock this tier!", 1), 1;
+        }
+
+        if (getskilllv(TMW2_CRAFT) >= 2) {
+            mes "";
+            mes ".:: " + l("First Tier") + " ::.";
+            mes "";
+            mes l("@@: Lv @@", getitemlink(CRITEM_ATK), CRAFTSYS[CRGROUP_ATK]);
+            mes "";
+            mes l("@@: Lv @@", getitemlink(CRITEM_DEF), CRAFTSYS[CRGROUP_DEF]);
+            mes "";
+            mes l("@@: Lv @@", getitemlink(CRITEM_ACC), CRAFTSYS[CRGROUP_ACC]);
+            mes "";
+            mes l("@@: Lv @@", getitemlink(CRITEM_EVD), CRAFTSYS[CRGROUP_EVD]);
+            next;
+        } else {
+            mes "";
+            mes ".:: " + l("First Tier") + " ::.";
+            mes "";
+            mesc l("Reach level @@ to unlock this tier!", 2), 1;
+        }
+
+        if (getskilllv(TMW2_CRAFT) >= 3) {
+            mes "";
+            mes ".:: " + l("Second Tier") + " ::.";
+            mes "";
+            mes l("@@: Lv @@", getitemlink(CRITEM_REGEN), CRAFTSYS[CRGROUP_REGEN]);
+            mes "";
+            mes l("@@: Lv @@", getitemlink(CRITEM_SPEED), CRAFTSYS[CRGROUP_SPEED]);
+            mes "";
+            mes l("@@: Lv @@", getitemlink(CRITEM_DOUBLE), CRAFTSYS[CRGROUP_DOUBLE]);
+            mes "";
+            mes l("@@: Lv @@", getitemlink(CRITEM_MAXPC), CRAFTSYS[CRGROUP_MAXPC]);
+        } else {
+            mes "";
+            mes ".:: " + l("Second Tier") + " ::.";
+            mes "";
+            mesc l("Reach level @@ to unlock this tier!", 3), 1;
+            next;
+        }
+
+
+        if (getskilllv(TMW2_CRAFT) >= 4) {
+            mes "";
+            mes ".:: " + l("Third Tier") + " ::.";
+            mes "";
+            mes l("@@: Lv @@", getitemlink(CRITEM_SCRESIST), CRAFTSYS[CRGROUP_SCRESIST]);
+            mes "";
+            mes l("@@: Lv @@", getitemlink(CRITEM_SCINFLICT), CRAFTSYS[CRGROUP_SCINFLICT]);
+            mes "";
+            mes l("@@: Lv @@", getitemlink(CRITEM_MANAUSE), CRAFTSYS[CRGROUP_MANAUSE]);
+            mes "";
+            mes l("@@: Lv @@", getitemlink(CRITEM_BOSSATK), CRAFTSYS[CRGROUP_BOSSATK]);
+            next;
+        } else {
+            mes "";
+            mes ".:: " + l("Third Tier") + " ::.";
+            mes "";
+            mesc l("Reach level @@ to unlock this tier!", 4), 1;
+        }
+
+        if (getskilllv(TMW2_CRAFT) >= 5) {
+            mes "";
+            mes ".:: " + l("Ultimate Tier") + " ::.";
+            mes "";
+            mes l("@@: Lv @@", getitemlink(CRITEM_FINAL), CRAFTSYS[CRGROUP_FINAL]);
+            mes "";
+        } else {
+            mes "";
+            mes ".:: " + l("Ultimate Tier") + " ::.";
+            mes "";
+            mesc l("Reach level @@ to unlock this tier!", 5), 1;
+        }
     }
-
+    mesc l("Monster Points: @@    |    Gold: @@",
+         format_number(Mobpt), format_number(Zeny));
+    next;
     return;
 }