system: remove sys_Delay

[d2df-sdl.git] / src / game / stub / g_system.pas

diff --git a/src/game/stub/g_system.pas b/src/game/stub/g_system.pas
index c3b4b23e0ee43fbacdec4756a62f4bdd782c4dcd..a1e3473e9b613c0b4b624957ae78da2b47840e59 100644 (file)
--- a/src/game/stub/g_system.pas
+++ b/src/game/stub/g_system.pas
@@ -19,10 +19,6 @@ interface
 
   uses Utils;
 
-  (* --- Utils --- *)
-  function sys_GetTicks (): Int64;
-  procedure sys_Delay (ms: Integer);
-
   (* --- Graphics --- *)
   function sys_GetDisplayModes (bpp: Integer): SSArray;
   function sys_SetDisplayMode (w, h, bpp: Integer; fullscreen, maximized: Boolean): Boolean;
@@ -37,22 +33,14 @@ interface
   procedure sys_Init;
   procedure sys_Final;
 
+  var (* hooks *)
+    sys_CharPress: procedure (ch: AnsiChar) = nil;
+    sys_ScreenResize: procedure (w, h: Integer) = nil;
+
 implementation
 
   uses SysUtils;
 
-  (* --------- Utils --------- *)
-
-  function sys_GetTicks (): Int64;
-  begin
-    Result := Round(TimeStampToMSecs(DateTimeToTimeStamp(Now())))
-  end;
-
-  procedure sys_Delay (ms: Integer);
-  begin
-    Sleep(ms)
-  end;
-
   (* --------- Graphics --------- *)
 
   procedure sys_Repaint;