X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fstub%2Fg_system.pas;h=4e4f42377e3da2e59abb09b1967ce97add6ad01f;hb=64e4a0cca80170987eb2c67d111a7c43ba6304b6;hp=c3b4b23e0ee43fbacdec4756a62f4bdd782c4dcd;hpb=91448a18a3dad8151acb610601f79bf82bca6c91;p=d2df-sdl.git

diff --git a/src/game/stub/g_system.pas b/src/game/stub/g_system.pas
index c3b4b23..4e4f423 100644
--- a/src/game/stub/g_system.pas
+++ b/src/game/stub/g_system.pas
@@ -37,6 +37,9 @@ interface
   procedure sys_Init;
   procedure sys_Final;
 
+  var (* hooks *)
+    sys_CharPress: procedure (ch: AnsiChar) = nil;
+
 implementation
 
   uses SysUtils;