index 1f4061abf7fdc4ba9ff74475e09d7ece908356e1..7527073c1ad7e0ad811001cf519c7bcf2476bd46 100644 (file)
procedure sys_Init;
procedure sys_Final;
+ var (* hooks *)
+ sys_CharPress: procedure (ch: AnsiChar) = nil;
+
implementation
uses
SysUtils, SDL, Math,
{$INCLUDE ../nogl/noGLuses.inc}
- e_log, e_graphics, e_input, e_sound,
- g_options, g_window, g_console, g_game, g_menu, g_gui, g_main, g_basic;
+ e_log, r_graphics, e_input, e_sound,
+ g_options, g_window, g_console, g_game, g_menu, g_gui, g_basic;
const
GameTitle = 'Doom 2D: Forever (SDL 1.2, %s)';
begin
g_Console_ProcessBindRepeat(key)
end;
- if down and IsValid1251(ev.keysym.unicode) and IsPrintable1251(ch) then
- CharPress(ch)
+ if @sys_CharPress <> nil then
+ if down and IsValid1251(ev.keysym.unicode) and IsPrintable1251(ch) then
+ sys_CharPress(ch)
end;
procedure HandleResize (var ev: TSDL_ResizeEvent);