remove usage of getgroupid

2 files changed, 32 insertions, 2 deletions

diff --git a/npc/functions/permissions.txt b/npc/functions/permissions.txt
new file mode 100644
index 00000000..646b3779
--- /dev/null
+++ b/npc/functions/permissions.txt
@@ -0,0 +1,30 @@
+// Evol scripts.
+// Author:
+//    gumi
+// Description:
+//    checks player permissions
+
+// any staff member
+function	script	is_trusted	{
+    return has_permission("show_client_version", getarg(0, getcharid(CHAR_ID_ACCOUNT)));
+}
+
+// developer
+function	script	is_dev	{
+    return has_permission(PERM_RECEIVE_REQUESTS, getarg(0, getcharid(CHAR_ID_ACCOUNT)));
+}
+
+// event coordinator
+function	script	is_evtc	{
+    return can_use_command("@monster", getarg(0, getcharid(CHAR_ID_ACCOUNT)));
+}
+
+// game master
+function	script	is_gm	{
+    return has_permission("send_gm", getarg(0, getcharid(CHAR_ID_ACCOUNT)));
+}
+
+// administrator
+function	script	is_admin	{
+    return has_permission(PERM_USE_ALL_COMMANDS, getarg(0, getcharid(CHAR_ID_ACCOUNT)));
+}
diff --git a/npc/functions/quest-debug/functions.txt b/npc/functions/quest-debug/functions.txt
index 3d319820..f89adfab 100644
--- a/npc/functions/quest-debug/functions.txt
+++ b/npc/functions/quest-debug/functions.txt
@@ -11,7 +11,7 @@
 //     is in debug mode.
 
 function	script	GenericQuestDebug	{
-    if (!debug)
+    if (!debug && !is_admin())
     {
         select
             menuimage("actions/back", l("Go back"));
@@ -39,7 +39,7 @@ function	script	GenericQuestDebug	{
         }
     }
 
-    if (getgroupid() >= 99)
+    if (is_admin())
     {
         .@menustr$ += menuimage("actions/nuke", l("Set state manually"));
         .@vals[.@cnt] = -0x7FFFFFFE;