X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_console.pas;h=1caeaf87b99ef93936c42993d7916567e3fab5d8;hb=f5e6473ba0ddfeba497a6e5d4902833c2aba46ed;hp=35778ef797dc9fbfa9897493209f7d2a00d2d4e8;hpb=a7ab3742313f79cefd688def25534d692dc7346c;p=d2df-sdl.git

diff --git a/src/game/g_console.pas b/src/game/g_console.pas
index 35778ef..1caeaf8 100644
--- a/src/game/g_console.pas
+++ b/src/game/g_console.pas
@@ -95,7 +95,8 @@ implementation
 uses
   g_textures, g_main, e_graphics, e_input, g_game, g_gfx, g_player, g_items,
   SysUtils, g_basic, g_options, Math, g_touch, e_res,
-  g_menu, g_gui, g_language, g_net, g_netmsg, e_log, conbuf, g_weapons;
+  g_menu, g_gui, g_language, g_net, g_netmsg, e_log, conbuf, g_weapons,
+  Keyboard;
 
 const
   autoexecScript = 'autoexec.cfg';
@@ -162,6 +163,7 @@ var
   ChatTop: BOOLEAN;
   ConsoleStep: Single;
   ConsoleTrans: Single;
+  ConsoleStdIn: Boolean;
 
 
 procedure g_Console_Switch;
@@ -963,6 +965,28 @@ begin
   end
 end;
 
+procedure ReadStdIn;
+var
+  K: Char;
+  KEv: TKeyEvent;
+begin
+  gConsoleShow := True;
+  InputReady := True;
+  // one key per frame
+  KEv := PollKeyEvent();
+  if KEv <> 0 then
+  begin
+    K := GetKeyEventChar(TranslateKeyEvent(GetKeyEvent()));
+    Write(K);
+    case K of
+      #8: g_Console_Control(IK_BACKSPACE);
+      #10, #13: g_Console_Control(IK_RETURN);
+      #32..#126: g_Console_Char(K);
+      // arrow keys and DEL all return 0 for some reason, so fuck em
+    end;
+  end;
+end;
+
 procedure g_Console_SysInit;
   var a: Integer;
 begin
@@ -1040,6 +1064,8 @@ begin
   AddCommand('p2_autoswitch', PlayerSettingsCVars);
   AddCommand('p1_switch_empty', PlayerSettingsCVars);
   AddCommand('p2_switch_empty', PlayerSettingsCVars);
+  AddCommand('p1_skip_fist', PlayerSettingsCVars);
+  AddCommand('p2_skip_fist', PlayerSettingsCVars);
   AddCommand('p1_priority_kastet', PlayerSettingsCVars);
   AddCommand('p2_priority_kastet', PlayerSettingsCVars);
   AddCommand('p1_priority_saw', PlayerSettingsCVars);
@@ -1069,6 +1095,8 @@ begin
   AddCommand('g_max_shells', GameCVars);
   AddCommand('g_max_gibs', GameCVars);
   AddCommand('g_max_corpses', GameCVars);
+  AddCommand('g_force_model', GameCVars);
+  AddCommand('g_force_model_name', GameCVars);
   AddCommand('g_gamemode', GameCVars);
   AddCommand('g_friendlyfire', GameCVars);
   AddCommand('g_friendly_hit_trace', GameCVars);
@@ -1082,6 +1110,7 @@ begin
   AddCommand('g_throw_flag', GameCVars);
   AddCommand('g_bot_vsmonsters', GameCVars);
   AddCommand('g_bot_vsplayers', GameCVars);
+  AddCommand('g_max_bots', GameCVars); // intentionally not whitelisted
   AddCommand('g_scorelimit', GameCVars);
   AddCommand('g_timelimit', GameCVars);
   AddCommand('g_maxlives', GameCVars);
@@ -1107,6 +1136,8 @@ begin
   AddCommand('bot_removeall', GameCommands);
   AddCommand('chat', GameCommands);
   AddCommand('teamchat', GameCommands);
+  AddCommand('announce', GameCommands);
+  AddCommand('an', GameCommands);
   AddCommand('game', GameCommands);
   AddCommand('host', GameCommands);
   AddCommand('map', GameCommands);
@@ -1227,12 +1258,24 @@ begin
   g_Texture_CreateWAD(ID, GameWAD+':TEXTURES\CONSOLE');
   g_Console_Add(Format(_lc[I_CONSOLE_WELCOME], [GAME_VERSION]));
   g_Console_Add('');
+{$IFDEF HEADLESS}
+  if ConsoleStdIn then
+  begin
+    InitKeyboard();
+    conbufStdOutRawMode := true;
+  end;
+{$ENDIF}
 end;
 
 procedure g_Console_Update;
 var
   a, b, Step: Integer;
 begin
+{$IFDEF HEADLESS}
+  if ConsoleStdIn then
+    ReadStdIn();
+{$ENDIF}
+
   if Cons_Shown then
   begin
     Step := Max(1, Round(Floor(gScreenHeight * ConsoleHeight) * ConsoleStep));
@@ -1938,10 +1981,13 @@ begin
   i := 0;
   while (n >= 1) and (i < e_MaxInputKeys) do
   begin
-    if g_Console_MatchBind(i, down, up) then
+    if (i < VK_FIRSTKEY) or (i > VK_LASTKEY) then (* never show virtual keys in gui *)
     begin
-      result := i;
-      dec(n)
+      if g_Console_MatchBind(i, down, up) then
+      begin
+        result := i;
+        dec(n)
+      end;
     end;
     inc(i)
   end;
@@ -2044,7 +2090,7 @@ begin
   g_Console_BindKey(IK_T, 'togglechat');
   g_Console_BindKey(IK_Y, 'toggleteamchat');
   g_Console_BindKey(IK_F11, 'screenshot');
-  g_Console_BindKey(IK_TAB, '+p1_scores', '-p1_scores');
+  g_Console_BindKey(IK_TAB, '+scores', '-scores');
   g_Console_BindKey(IK_PAUSE, 'pause');
   g_Console_BindKey(IK_F1, 'vote');
 
@@ -2178,11 +2224,13 @@ begin
   WriteLn(f, 'g_max_shells ', g_Shells_GetMax());
   WriteLn(f, 'g_max_gibs ', g_Gibs_GetMax());
   WriteLn(f, 'g_max_corpses ', g_Corpses_GetMax());
+  WriteLn(f, 'g_force_model ', g_Force_Model_Get());
+  WriteLn(f, 'g_force_model_name ', g_Forced_Model_GetName());
   WriteLn(f, 'sv_intertime ', gDefInterTime);
 
   // gameplay settings
   WriteLn(f, 'g_gamemode ', gsGameMode);
-  WriteLn(f, 'g_scorelimit ', gsGoalLimit);
+  WriteLn(f, 'g_scorelimit ', gsScoreLimit);
   WriteLn(f, 'g_timelimit ', gsTimeLimit);
   WriteLn(f, 'g_maxlives ', gsMaxLives);
   WriteLn(f, 'g_item_respawn_time ', gsItemRespawnTime);
@@ -2304,6 +2352,7 @@ begin
   conRegVar('console_height', @ConsoleHeight, 0.0, 1.0, 'set console size', 'set console size');
   conRegVar('console_trans', @ConsoleTrans, 0.0, 1.0, 'set console transparency', 'set console transparency');
   conRegVar('console_step', @ConsoleStep, 0.0, 1.0, 'set console animation speed', 'set console animation speed');
+  conRegVar('console_stdin', @ConsoleStdIn, 'enable reading commands from stdin', 'enable reading commands from stdin');
 {$IFDEF ANDROID}
   ChatTop := True;
   ConsoleHeight := 0.35;
@@ -2313,6 +2362,11 @@ begin
 {$ENDIF}
   ConsoleTrans := 0.1;
   ConsoleStep := 0.07;
+{$IFDEF HEADLESS}
+  ConsoleStdIn := True;
+{$ELSE}
+  ConsoleStdIn := False;
+{$ENDIF}
   conRegVar('d_eres', @debug_e_res, '', '');
   for i := 1 to e_MaxJoys do
     conRegVar('joy' + IntToStr(i) + '_deadzone', @e_JoystickDeadzones[i - 1], '', '')
@@ -2320,4 +2374,11 @@ end;
 
 initialization
   Init
+
+{$IFDEF HEADLESS}
+finalization
+  DoneKeyboard;
+  conbufStdOutRawMode := false;
+{$ENDIF}
+
 end.