diff --git a/src/game/g_console.pas b/src/game/g_console.pas
index 2105faf013636025b9175cf27828dcc645462115..3f3fd8ec2c998132439d1c30cfc78e3a35b701e7 100644 (file)
--- a/src/game/g_console.pas
+++ b/src/game/g_console.pas
RecursionDepth: Word = 0;
RecursionLimitHit: Boolean = False;
Cons_Y: SmallInt;
+ ConsoleHeight: Single;
Cons_Shown: Boolean; // Ðèñîâàòü ëè êîíñîëü?
Line: AnsiString;
CPos: Word;
down, up: SSArray;
end;
menu_toggled: BOOLEAN; (* hack for menu controls *)
+ ChatTop: BOOLEAN;
procedure g_Console_Switch;
begin
+ if gConsoleShow or Cons_Shown or gChatShow then
+ g_Touch_ShowKeyboard(False);
gChatShow := False;
gConsoleShow := not gConsoleShow;
Cons_Shown := True;
- g_Touch_ShowKeyboard(gConsoleShow or gChatShow);
end;
procedure g_Console_Chat_Switch (Team: Boolean = False);
begin
+ if gConsoleShow or Cons_Shown or gChatShow then
+ g_Touch_ShowKeyboard(False);
if not g_Game_IsNet then Exit;
gConsoleShow := False;
gChatShow := not gChatShow;
gChatTeam := Team;
+ Cons_Shown := True;
Line := '';
CPos := 1;
- g_Touch_ShowKeyboard(gConsoleShow or gChatShow);
end;
// poor man's floating literal parser; i'm sorry, but `StrToFloat()` sux cocks
'hidekeyboard':
g_Touch_ShowKeyboard(False);
'togglemenu':
- if gConsoleShow then
begin
- g_Console_Switch;
- menu_toggled := True
- end
- else
- begin
- KeyPress(VK_ESCAPE);
+ if gConsoleShow then
+ g_Console_Switch
+ else if gChatShow then
+ g_Console_Chat_Switch
+ else
+ KeyPress(VK_ESCAPE);
menu_toggled := True
end;
'toggleconsole':
a: Integer;
begin
g_Texture_CreateWAD(ID, GameWAD+':TEXTURES\CONSOLE');
- Cons_Y := -(gScreenHeight div 2);
+ Cons_Y := -Floor(gScreenHeight * ConsoleHeight);
gConsoleShow := False;
gChatShow := False;
Cons_Shown := False;
begin
// Â ïðîöåññå îòêðûòèÿ:
if gConsoleShow and (Cons_Y < 0) then
- begin
Cons_Y := Cons_Y+Step;
- end;
// Â ïðîöåññå çàêðûòèÿ:
- if (not gConsoleShow) and
- (Cons_Y > -(gScreenHeight div 2)) then
+ if (not gConsoleShow) and (Cons_Y > -Floor(gScreenHeight * ConsoleHeight)) then
Cons_Y := Cons_Y-Step;
+ // Open chat
+ if gChatShow then
+ begin
+ Cons_Y := -Floor(gScreenHeight * ConsoleHeight);
+ Cons_Shown := False;
+ g_Touch_ShowKeyboard(True);
+ end;
+
// Îêîí÷àòåëüíî îòêðûëàñü:
if Cons_Y > 0 then
+ begin
Cons_Y := 0;
+ g_Touch_ShowKeyboard(True);
+ end;
// Îêîí÷àòåëüíî çàêðûëàñü:
- if Cons_Y <= (-(gScreenHeight div 2)) then
+ if Cons_Y <= -Floor(gScreenHeight * ConsoleHeight) then
begin
- Cons_Y := -(gScreenHeight div 2);
+ Cons_Y := -Floor(gScreenHeight * ConsoleHeight);
Cons_Shown := False;
end;
end;
begin
e_TextureFontGetSize(gStdFont, CWidth, CHeight);
- ty := (gScreenHeight div 2)-4-2*CHeight-Abs(Cons_Y);
+ ty := Floor(gScreenHeight * ConsoleHeight) - 4 - 2 * CHeight - Abs(Cons_Y);
skip := conSkipLines;
cbufLastLine(sp, ep);
repeat
var
CWidth, CHeight: Byte;
mfW, mfH: Word;
- a, b: Integer;
+ a, b, offset_y: Integer;
begin
e_TextureFontGetSize(gStdFont, CWidth, CHeight);
+ if ChatTop and gChatShow then
+ offset_y := CHeight
+ else
+ offset_y := 0;
+
for a := 0 to High(MsgArray) do
if MsgArray[a].Time > 0 then
- e_TextureFontPrintFmt(0, CHeight*a, MsgArray[a].Msg,
- gStdFont, True);
+ e_TextureFontPrintFmt(0, offset_y + CHeight * a, MsgArray[a].Msg, gStdFont, True);
if not Cons_Shown then
begin
if gChatShow then
begin
+ if ChatTop then
+ offset_y := 0
+ else
+ offset_y := gScreenHeight - CHeight - 1;
if gChatTeam then
begin
- e_TextureFontPrintEx(0, gScreenHeight - CHeight - 1, 'say team> ' + Line,
- gStdFont, 255, 255, 255, 1, True);
- e_TextureFontPrintEx((CPos + 9)*CWidth, gScreenHeight - CHeight - 1, '_',
- gStdFont, 255, 255, 255, 1, True);
+ e_TextureFontPrintEx(0, offset_y, 'say team> ' + Line, gStdFont, 255, 255, 255, 1, True);
+ e_TextureFontPrintEx((CPos + 9) * CWidth, offset_y, '_', gStdFont, 255, 255, 255, 1, True);
end
else
begin
- e_TextureFontPrintEx(0, gScreenHeight - CHeight - 1, 'say> ' + Line,
- gStdFont, 255, 255, 255, 1, True);
- e_TextureFontPrintEx((CPos + 4)*CWidth, gScreenHeight - CHeight - 1, '_',
- gStdFont, 255, 255, 255, 1, True);
- end;
+ e_TextureFontPrintEx(0, offset_y, 'say> ' + Line, gStdFont, 255, 255, 255, 1, True);
+ e_TextureFontPrintEx((CPos + 4) * CWidth, offset_y, '_', gStdFont, 255, 255, 255, 1, True);
+ end
end;
Exit;
end;
begin
e_CharFont_GetSize(gMenuFont, DEBUG_STRING, mfW, mfH);
a := (gScreenWidth - 2*mfW) div 2;
- b := Cons_Y + ((gScreenHeight div 2) - 2*mfH) div 2;
+ b := Cons_Y + (Floor(gScreenHeight * ConsoleHeight) - 2 * mfH) div 2;
e_CharFont_PrintEx(gMenuFont, a div 2, b div 2, DEBUG_STRING,
_RGB(128, 0, 0), 2.0);
end;
- e_DrawSize(ID, 0, Cons_Y, Alpha, False, False, gScreenWidth, gScreenHeight div 2);
- e_TextureFontPrint(0, Cons_Y+(gScreenHeight div 2)-CHeight-4, '> '+Line, gStdFont);
+ e_DrawSize(ID, 0, Cons_Y, Alpha, False, False, gScreenWidth, Floor(gScreenHeight * ConsoleHeight));
+ e_TextureFontPrint(0, Cons_Y + Floor(gScreenHeight * ConsoleHeight) - CHeight - 4, '> ' + Line, gStdFont);
drawConsoleText();
(*
begin
b := 0;
if CHeight > 0 then
- if Length(ConsoleHistory) > ((gScreenHeight div 2) div CHeight)-1 then
- b := Length(ConsoleHistory)-((gScreenHeight div 2) div CHeight)+1;
+ if Length(ConsoleHistory) > (Floor(gScreenHeight * ConsoleHeight) div CHeight) - 1 then
+ b := Length(ConsoleHistory) - (Floor(gScreenHeight * ConsoleHeight) div CHeight) + 1;
b := Max(b-Offset, 0);
d := Max(High(ConsoleHistory)-Offset, 0);
c := 2;
for a := d downto b do
begin
- e_TextureFontPrintFmt(0, (gScreenHeight div 2)-4-c*CHeight-Abs(Cons_Y), ConsoleHistory[a],
- gStdFont, True);
+ e_TextureFontPrintFmt(0, Floor(gScreenHeight * ConsoleHeight) - 4 - c * CHeight - Abs(Cons_Y), ConsoleHistory[a], gStdFont, True);
c := c + 1;
end;
end;
*)
- e_TextureFontPrint((CPos+1)*CWidth, Cons_Y+(gScreenHeight div 2)-21, '_', gStdFont);
+ e_TextureFontPrint((CPos + 1) * CWidth, Cons_Y + Floor(gScreenHeight * ConsoleHeight) - 21, '_', gStdFont);
end;
procedure g_Console_Char(C: AnsiChar);
CPos := CPos + 1;
IK_RETURN, IK_KPRETURN, VK_OPEN, VK_FIRE, JOY0_ATTACK, JOY1_ATTACK, JOY2_ATTACK, JOY3_ATTACK:
begin
- if Cons_Shown then
+ if gConsoleShow then
g_Console_Process(Line)
else
if gChatShow then
Line := '';
CPos := 1;
- gChatShow := False;
gJustChatted := True;
- g_Touch_ShowKeyboard(gConsoleShow or gChatShow);
+ g_Console_Chat_Switch
end;
end;
IK_TAB:
IK_SEMICOLON, IK_QUOTE, IK_BACKSLASH, IK_SLASH, IK_COMMA, IK_DOT, IK_EQUALS,
IK_0, IK_1, IK_2, IK_3, IK_4, IK_5, IK_6, IK_7, IK_8, IK_9, IK_MINUS, IK_EQUALS:
(* see TEXTINPUT event *)
- else
- if gConsoleShow and not Cons_Shown and g_Console_MatchBind(K, 'toggleconsole') then
- g_Console_Switch;
- if g_Console_MatchBind(K, 'togglemenu') then
- begin
- menu_toggled := True;
- if gChatShow then
- g_Console_Chat_Switch
- else if gConsoleShow and not Cons_Shown then
- g_Console_Switch
- end
end
end;
Result := i < len
end;
+function BindsAllowed (key: Integer): Boolean;
+begin
+ Result := False;
+ if (not g_GUIGrabInput) and (key >= 0) and (key < e_MaxInputKeys) and ((gInputBinds[key].down <> nil) or (gInputBinds[key].up <> nil)) then
+ begin
+ if gChatShow then
+ Result := g_Console_MatchBind(key, 'togglemenu') or
+ g_Console_MatchBind(key, 'showkeyboard') or
+ g_Console_MatchBind(key, 'hidekeyboard')
+ else if gConsoleShow or (g_ActiveWindow <> nil) or (gGameSettings.GameType = GT_NONE) then
+ Result := g_Console_MatchBind(key, 'togglemenu') or
+ g_Console_MatchBind(key, 'toggleconsole') or
+ g_Console_MatchBind(key, 'showkeyboard') or
+ g_Console_MatchBind(key, 'hidekeyboard')
+ else (* in game *)
+ Result := True
+ end
+end;
+
procedure g_Console_ProcessBind (key: Integer; down: Boolean);
var i: Integer;
begin
- if (not g_GUIGrabInput) and (key >= 0) and (key < e_MaxInputKeys) and ((gInputBinds[key].down <> nil) or (gInputBinds[key].up <> nil)) then
+ if BindsAllowed(key) then
begin
if down then
- begin
- if not gChatShow then
- for i := 0 to High(gInputBinds[key].down) do
- g_Console_Process(gInputBinds[key].down[i], True);
- end
+ for i := 0 to High(gInputBinds[key].down) do
+ g_Console_Process(gInputBinds[key].down[i], True)
else
for i := 0 to High(gInputBinds[key].up) do
g_Console_Process(gInputBinds[key].up[i], True)
g_Console_WriteConfig(GameDir + '/dfconfig.cfg');
end;
+initialization
+ conRegVar('chat_at_top', @ChatTop, 'draw chat at top border', 'draw chat at top border');
+ conRegVar('console_height', @ConsoleHeight, 0.0, 1.0, 'set console size', 'set console size');
+{$IFDEF ANDROID}
+ ChatTop := True;
+ ConsoleHeight := 0.35
+{$ELSE}
+ ChatTop := False;
+ ConsoleHeight := 0.5
+{$ENDIF}
end.