X-Git-Url: http://deadsoftware.ru/gitweb?p=d2df-sdl.git;a=blobdiff_plain;f=src%2Fgame%2Fstub%2Fg_system.pas;h=4b6201d7c649424198b718a8449b6a15a70e10fb;hp=4e9fcedc40989b2414655f8572f1881a5daeacbf;hb=ff17260e083bdf4461154b916a716cd9b61126b1;hpb=4171d8dd0b8d733da27c584616e431811bf0fdcf

diff --git a/src/game/stub/g_system.pas b/src/game/stub/g_system.pas
index 4e9fced..4b6201d 100644
--- a/src/game/stub/g_system.pas
+++ b/src/game/stub/g_system.pas
@@ -39,15 +39,18 @@ interface
 
 implementation
 
+  uses SysUtils;
+
   (* --------- Utils --------- *)
 
   function sys_GetTicks (): Int64;
   begin
-    Result := 0
+    Result := Round(TimeStampToMSecs(DateTimeToTimeStamp(Now())))
   end;
 
   procedure sys_Delay (ms: Integer);
   begin
+    Sleep(ms)
   end;
 
   (* --------- Graphics --------- *)