From 10d7a20a79f8e7746d965cfadf1757b3e3799858 Mon Sep 17 00:00:00 2001 From: Logan Hunt Date: Tue, 31 May 2022 15:59:29 -0700 Subject: Change to centiseconds across the program --- speedrun.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'speedrun.lisp') diff --git a/speedrun.lisp b/speedrun.lisp index df473c9..ba2d199 100644 --- a/speedrun.lisp +++ b/speedrun.lisp @@ -44,7 +44,7 @@ ;; Updates the current total elapsed time of the speedrun if it's running (defun update-time (speedrun) (if (eq (speedrun-state speedrun) 'RUNNING) - (setf (speedrun-elapsed speedrun) (* 1000 (/ (- (get-internal-real-time) (speedrun-start-timestamp speedrun)) internal-time-units-per-second))))) + (setf (speedrun-elapsed speedrun) (floor (* 100 (/ (- (get-internal-real-time) (speedrun-start-timestamp speedrun)) internal-time-units-per-second)))))) ;; Initializes a speedrun to start running the timer (defun start-speedrun (speedrun) @@ -64,7 +64,9 @@ (setf (run-split-end-time (current-split speedrun)) now) (if (equal (speedrun-current-split-index speedrun) (1- (length (speedrun-splits speedrun)))) (progn - (setf (speedrun-state speedrun) 'STOPPED) + (setf + (speedrun-elapsed speedrun) (apply '+ (mapcar 'run-split-elapsed-time (speedrun-splits speedrun))) + (speedrun-state speedrun) 'STOPPED) (save-speedrun speedrun)) (progn (inc (speedrun-current-split-index speedrun)) -- cgit v1.2.3-70-g09d2