"mon_sq_enabled" console command

diff --git a/src/game/g_console.pas b/src/game/g_console.pas
index 729bf956f956201f4c7a3787d9e1e59e4cdb98b4..0db51cf209682768cb56a34eada71f7512781e77 100644 (file)
--- a/src/game/g_console.pas
+++ b/src/game/g_console.pas
@@ -401,6 +401,8 @@ begin
   AddCommand('sq_use_grid', ProfilerCommands);
   AddCommand('sq_use_tree', ProfilerCommands);
 
+  AddCommand('mon_sq_enabled', ProfilerCommands);
+
   AddCommand('p1_name', GameCVars);
   AddCommand('p2_name', GameCVars);
   AddCommand('p1_color', GameCVars);

diff --git a/src/game/g_game.pas b/src/game/g_game.pas
index ad2a0f7e1fd54ead47a35dba8880325ffbe9d4d5..9edbcf0ed2f5c7d00cbba3850735174494a7419c 100644 (file)
--- a/src/game/g_game.pas
+++ b/src/game/g_game.pas
@@ -4995,6 +4995,17 @@ begin
     if gdbg_map_dump_coldet_tree_queries then g_Console_Add('grid coldet tree queries: tan') else g_Console_Add('grid coldet tree queries: ona');
     exit;
   end;
+
+  if (cmd = 'mon_sq_enabled') then
+  begin
+    case getBool(1) of
+      -1: begin end;
+       0: gmon_debug_use_sqaccel := false;
+       1: gmon_debug_use_sqaccel := true;
+    end;
+    if gmon_debug_use_sqaccel then g_Console_Add('accelerated monster coldet: tan') else g_Console_Add('accelerated monster coldet: ona');
+    exit;
+  end;
 end;
 
 procedure DebugCommands(P: SArray);