Add Moubootaur Legends top-notch debug commands @callfunc and @doevent

Require a special global variable to be set server-wide.

1 files changed, 26 insertions, 0 deletions

diff --git a/npc/commands/debug.txt b/npc/commands/debug.txt
index b86dab04..e8e28290 100644
--- a/npc/commands/debug.txt
+++ b/npc/commands/debug.txt
@@ -640,6 +640,30 @@ OnAllPerms:
     @allperms=true;
     end;
 
+// These are really dangerous functions
+// Force ADMs to set a variable to use, so I know they are aware of server code
+OnCallFunc:
+    if (!$@ALLOW_SUPERDEBUG) {
+        dispbottom col("This command is restricted for senior dev-admins. Please do not use it again.", 1);
+        die();
+        end;
+    }
+    .@request$ = "";
+	.@request$ += implode(.@atcmd_parameters$, " ");
+    callfunc .@request$;
+    end;
+
+OnDoEvent:
+    if (!$@ALLOW_SUPERDEBUG) {
+        dispbottom col("This command is restricted for senior dev-admins. Please do not use it again.", 1);
+        die();
+        end;
+    }
+    .@request$ = "";
+	.@request$ += implode(.@atcmd_parameters$, " ");
+    doevent .@request$;
+    end;
+
 OnInit:
     registercmd "@debug", "Debug Spell::OnDebug";
     bindatcmd "getvar", "Debug Spell::OnGetVar", 99, 99, 1;
@@ -648,6 +672,8 @@ OnInit:
     bindatcmd "set-var", "Debug Spell::OnSetVar", 99, 99, 1;
     bindatcmd "sclear", "Debug Spell::OnSClear", 99, 99, 1;
     bindatcmd "allperms", "Debug Spell::OnAllPerms", 99, 100, 1;
+    bindatcmd "callfunc", "@wgm::OnCallFunc", 99, 99, 1;
+    bindatcmd "doevent", "@wgm::OnDoEvent", 99, 99, 1;
     // Setup debug server command overrides
     if (debug) {
         add_group_command("str", 0, true, false);