index 4e9fcedc40989b2414655f8572f1881a5daeacbf..4b6201d7c649424198b718a8449b6a15a70e10fb 100644 (file)
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 --------- *)