From b8135c42d8694cc8b5c45ef292dcbd348491eece Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Fri, 31 Jul 2020 10:53:59 -0300
Subject: Jesusaves Grimorium: Miscellaneous Reports Now you can see if you can
 or not upgrade your thief rank. Without traveleing to see Ben P.

---
 npc/items/books.txt | 54 ++++++++++++++++++++++++++++++++++++++++++++---------
 1 file changed, 45 insertions(+), 9 deletions(-)

(limited to 'npc/items')

diff --git a/npc/items/books.txt b/npc/items/books.txt
index 2dcf4c032..09885d9c1 100644
--- a/npc/items/books.txt
+++ b/npc/items/books.txt
@@ -181,11 +181,12 @@ OnInit:
                 rif2(1, MAGIC_LVL, l("Ch 1 — Prologue")),
                 rif2(2, MAGIC_EXP, l("Ch 2 — About Magic Skills")),
                 rif2(3, MAGIC_LVL, l("Ch 3 — Status Ailments")),
-                rif2(4, true, l("Open Fishing Book")),
-                rif2(5, true, l("Open Petcaring Book")),
-                rif2(6, getq(LoFQuest_Pets), l("List of Unlocked Pets and Food")),
-                rif2(7, CRAFTQUEST, l("Open Recipe Book")),
-                rif2(8, true, l("Read Rules")),
+                rif2(4, true, l("Ch 4 — Information About You")),
+                rif2(5, true, l("Open Fishing Book")),
+                rif2(6, true, l("Open Petcaring Book")),
+                rif2(7, getq(LoFQuest_Pets), l("List of Unlocked Pets and Food")),
+                rif2(8, CRAFTQUEST, l("Open Recipe Book")),
+                rif2(9, true, l("Read Rules")),
                 l("Close");
             mes "";
 
@@ -193,6 +194,8 @@ OnInit:
             {
                 case 1:
                     mesc l("You have @@/@@ magic skill points available.", b(sk_points()), sk_maxpoints());
+                    mesc l("Your current scholar rank: %s (%d Research Points)",
+            academicrank(), fnum(MAGIC_RP));
                     next;
                     narrator S_LAST_NEXT,
                         l("Mana is something which existed since the being, but nobody knows much about."),
@@ -235,12 +238,45 @@ OnInit:
                     next;
                     break;
                 case 4:
-                    FishingBook();
+                    mes ".:: " + l("Magic Status") + " ::.";
+                    mesc l("Current magic rank: %d", MAGIC_LVL);
+                    mesc l("You have @@/@@ magic skill points available.",
+                            b(sk_points()), sk_maxpoints());
+                    mesc l("Your current scholar rank: %s (%d Research Points)",
+                            academicrank(), fnum(MAGIC_RP));
+                    ShowAbizit(true);
+                    next;
+                    mes ".:: " + l("Rogue Status") + " ::.";
+                    mesc l("Your current rank: %s", thiefrank());
+                    if (THIEF_EXP > (THIEF_RANK*2)**5)
+                        mesc l("An upgrade is available."), 2;
+                    next;
+                    mes ".:: " + l("Miscellaneous Status") + " ::.";
+                    mesc l("Monster Points: %s", fnum(Mobpt));
+                    mesc l("Times died: %s", fnum(PC_DIE_COUNTER));
+                    mesc l("Total Gold: %s", fnum((Zeny+BankVault)));
+                    mesc l("Honor Points: %s", fnum(HONOR));
+                    if (getcharid(2) > 0) {
+                        .@gid=getcharid(2);
+                        .@pos=getguildrole(.@gid, getcharid(3));
+                        mesc l("Current Guild: %s", getguildname(.@gid));
+                        mesc l("Guild Master: @@", getguildmaster(.@gid));
+                        mesc l("You are the guild's \"%s\", and you contribute with %02d%% EXP.",
+                                getguildpostitle(.@gid, .@pos),
+                                getguildpostax(.@gid, .@pos));
+                    }
+                    mesc l("Total time AFK'ed in Tulimshar: %d hours and %d minutes",
+                            AFKING/1200, AFKING%1200/60*3);
+                    mesc l("Candor Battle Score: %d", CRAZYPOINTS);
+                    // TODO: Total players invited to ML
                     break;
                 case 5:
-                    PetcaringBook();
+                    FishingBook();
                     break;
                 case 6:
+                    PetcaringBook();
+                    break;
+                case 7:
                     mesf(".:: %s ::.", l("Grand Hunter Quest"));
                     if (PDQ_CheckGHQ(Maggot) >= 10000)
                         mesf("%s - %s",
@@ -282,12 +318,12 @@ OnInit:
                             getmonsterlink(BlackCat), getitemlink(Mashmallow));
                     next;
                     break;
-                case 7:
+                case 8:
                     closeclientdialog;
                     doevent("#RecipeBook::OnUse");
                     end;
                     break;
-                case 8:
+                case 9:
                     GameRules();
                     break;
                 default:
-- 
cgit v1.2.3-60-g2f50