diff --git a/src/game/g_console.pas b/src/game/g_console.pas
index b2194ba719e6e5127995bd8dc9453628556a1356..1caeaf87b99ef93936c42993d7916567e3fab5d8 100644 (file)
--- a/src/game/g_console.pas
+++ b/src/game/g_console.pas
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';
ChatTop: BOOLEAN;
ConsoleStep: Single;
ConsoleTrans: Single;
+ ConsoleStdIn: Boolean;
procedure g_Console_Switch;
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
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);
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));
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');
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);
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;
{$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], '', '')
initialization
Init
+
+{$IFDEF HEADLESS}
+finalization
+ DoneKeyboard;
+ conbufStdOutRawMode := false;
+{$ENDIF}
+
end.