"mon_sq_enabled" console command

[d2df-sdl.git] / src / game / g_console.pas

diff --git a/src/game/g_console.pas b/src/game/g_console.pas
index aa5713030ed50452c92a87ddeb73d5d468c0a72a..0db51cf209682768cb56a34eada71f7512781e77 100644 (file)
--- a/src/game/g_console.pas
+++ b/src/game/g_console.pas
@@ -1,4 +1,19 @@
-{$MODE DELPHI}
+(* Copyright (C)  DooM 2D:Forever Developers
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ *)
+{$INCLUDE ../shared/a_modes.inc}
 unit g_console;
 
 interface
@@ -373,6 +388,21 @@ begin
   AddCommand('d_player', DebugCommands);
   AddCommand('d_joy', DebugCommands);
 
+  AddCommand('pf_draw_frame', ProfilerCommands);
+  AddCommand('pf_update_frame', ProfilerCommands);
+  AddCommand('pf_coldet', ProfilerCommands);
+  AddCommand('r_sq_draw', ProfilerCommands);
+  AddCommand('r_sq_use_grid', ProfilerCommands);
+  AddCommand('r_sq_use_tree', ProfilerCommands);
+  AddCommand('dbg_sq_coldet', ProfilerCommands);
+
+  AddCommand('t_dump_node_queries', ProfilerCommands);
+
+  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);
@@ -858,42 +888,26 @@ begin
   end;
 end;
 
-procedure g_Console_Add(L: String; Show: Boolean = False);
-{var
-  a: Integer;}
-begin
-  // Âûâîä ñòðîê ñ ïåðåíîñàìè ïî î÷åðåäè
-  {
-  while Pos(#10, L) > 0 do
-  begin
-    g_Console_Add(Copy(L, 1, Pos(#10, L) - 1), Show);
-    Delete(L, 1, Pos(#10, L));
-  end;
-  }
-
-  //SetLength(ConsoleHistory, Length(ConsoleHistory)+1);
-  //ConsoleHistory[High(ConsoleHistory)] := L;
-
-  cbufPut(L);
-  if (length(L) = 0) or ((L[length(L)] <> #10) and (L[length(L)] <> #13)) then cbufPut(#10);
-
-  (*
-  Show := Show and gAllowConsoleMessages;
+procedure g_Console_Add (L: string; Show: Boolean=false);
 
-  if Show and gShowMessages then
+  procedure conmsg (s: AnsiString);
+  var
+    a: Integer;
   begin
+    if length(s) = 0 then exit;
     for a := 0 to High(MsgArray) do
+    begin
       with MsgArray[a] do
+      begin
         if Time = 0 then
         begin
-          Msg := L;
+          Msg := s;
           Time := MsgTime;
-          Exit;
+          exit;
         end;
-
-    for a := 0 to High(MsgArray)-1 do
-      MsgArray[a] := MsgArray[a+1];
-
+      end;
+    end;
+    for a := 0 to High(MsgArray)-1 do MsgArray[a] := MsgArray[a+1];
     with MsgArray[High(MsgArray)] do
     begin
       Msg := L;
@@ -901,6 +915,31 @@ begin
     end;
   end;
 
+var
+  f: Integer;
+begin
+  // put it to console
+  cbufPut(L);
+  if (length(L) = 0) or ((L[length(L)] <> #10) and (L[length(L)] <> #13)) then cbufPut(#10);
+
+  // now show 'em out of console too
+  Show := Show and gAllowConsoleMessages;
+  if Show and gShowMessages then
+  begin
+    // Âûâîä ñòðîê ñ ïåðåíîñàìè ïî î÷åðåäè
+    while length(L) > 0 do
+    begin
+      f := Pos(#10, L);
+      if f <= 0 then f := length(L)+1;
+      conmsg(Copy(L, 1, f-1));
+      Delete(L, 1, f);
+    end;
+  end;
+
+  //SetLength(ConsoleHistory, Length(ConsoleHistory)+1);
+  //ConsoleHistory[High(ConsoleHistory)] := L;
+
+  (*
 {$IFDEF HEADLESS}
   e_WriteLog('CON: ' + L, MSG_NOTIFY);
 {$ENDIF}
@@ -961,6 +1000,8 @@ begin
   if Trim(L) = '' then
     Exit;
 
+  conSkipLines := 0; // "unscroll"
+
   if L = 'goobers' then
   begin
     Line := '';