From b7697d99d7a1e95f6d8c769871314e37a4dbfe2b Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Tue, 12 Mar 2019 02:22:50 -0300
Subject: Debug Information about Guilds on Estard

---
 npc/003-2/estard.txt | 38 +++++++++++++++++++++++++++++++++++++-
 1 file changed, 37 insertions(+), 1 deletion(-)

(limited to 'npc/003-2')

diff --git a/npc/003-2/estard.txt b/npc/003-2/estard.txt
index 95ae87597..c809a61d5 100644
--- a/npc/003-2/estard.txt
+++ b/npc/003-2/estard.txt
@@ -83,6 +83,38 @@
         return;
     }
 
+    function ginfo {
+        .@gid=getcharid(2);
+        mesn;
+        mesc l("You are on guild @@ - @@", .@gid, getguildname(.@gid));
+        next;
+        mesc l("Your guild is lv @@", getguildlvl(.@gid));
+        mesc l("@@ / @@ EXP", getguildexp(.@gid), getguildnxp(.@gid));
+        next;
+        mesc l("The average player level is @@", getguildavg(.@gid));
+        mesc l("@@ is the guild master.", getguildmaster(.@gid));
+        next;
+        mesc l("Get 100,000 GExp?"), 1;
+        if (askyesno() == ASK_YES) {
+            mes "";
+            guildgetexp(100000);
+            mesc l("Done");
+            next;
+            mesc l("Your guild is lv @@", getguildlvl(.@gid));
+            mesc l("@@ / @@ EXP", getguildexp(.@gid), getguildnxp(.@gid));
+            next;
+        }
+        mes "";
+        mesn;
+        mesc l("These are all guild info commands atm. Let's use mapreg now?");
+        next;
+        getguildinfo(.@gid);
+        mesn;
+        mesc l("Your guild is lv @@ and average player level is @@", $@guildinfo_lvl[.@gid], $@guildinfo_avg[.@gid]);
+        next;
+        return;
+    }
+
     mesn;
     mesq lg("Welcome miss.", "Good day sir.");
 
@@ -99,6 +131,7 @@
             rif(!getq(General_Guild), l("I would like to create a party.")),
             rif(getq(General_Guild) && getcharid(2) <= 0 && countitem(Emperium) == 0, l("I would like to create a guild.")),
             rif(getq(General_Guild) && getcharid(2) > 0, l("I would like to open Guild Storage.")),
+            rif(is_admin() && getcharid(2) > 0, l("I would like to read Guild Information.")),
             menuaction(l("Quit"));
 
         switch (@menu)
@@ -115,8 +148,11 @@
             case 4:
                 gstorage;
                 break;
+            case 5:
+                ginfo;
+                break;
         }
-    } while (@menu < 5);
+    } while (@menu < 6);
 
     closedialog;
     goodbye;
-- 
cgit v1.2.3-70-g09d2