90 lines
2.4 KiB
Common Lisp
90 lines
2.4 KiB
Common Lisp
|
(ql:quickload "cl-charms")
|
||
|
|
|
||
|
|
;; Splits are in the following format
|
||
|
|
;; (name elapsed-time-for-split best-split split-pb)
|
||
|
|
(defvar *interval* internal-time-units-per-second)
|
||
|
|
(defvar *splits*
|
||
|
|
'(
|
||
|
|
("Chozo" 0 0 0)
|
||
|
|
("Kraid" 0 0 0)
|
||
|
|
("Wave Beam" 0 0 0)
|
||
|
|
("Phantoon" 0 0 0)
|
||
|
|
("Botwoon" 0 0 0)
|
||
|
|
("Draygon" 0 0 0)
|
||
|
|
("Lower Norfair" 0 0 0)
|
||
|
|
("Ridley" 0 0 0)
|
||
|
|
("Mother Brain" 0 0 0)))
|
||
|
|
(defvar *all-splits* '())
|
||
|
|
|
||
|
|
(defun set-val-in-list (list index value)
|
||
|
|
(cond
|
||
|
|
((null list) '())
|
||
|
|
((zerop index) (cons value (cdr list)))
|
||
|
|
(t (cons (car list) (set-val-in-list (cdr list) (1- index) value)))))
|
||
|
|
|
||
|
|
(defun get-val-in-list (list index)
|
||
|
|
(cond
|
||
|
|
((null list) nil)
|
||
|
|
((zerop index) (car list))
|
||
|
|
(t (get-val-in-list (cdr list) (1- index)))))
|
||
|
|
|
||
|
|
(defun push-on-list (value list)
|
||
|
|
(cond
|
||
|
|
((null list) (list value))
|
||
|
|
(t (cons (car list) (push-on-list value (cdr list))))))
|
||
|
|
|
||
|
|
(defun read-file-of-splits (filename)
|
||
|
|
(with-open-file (in filename)
|
||
|
|
(with-standard-io-syntax
|
||
|
|
(setf *all-splits* (read in)))))
|
||
|
|
|
||
|
|
(defun write-file-of-splits (filename splits)
|
||
|
|
(with-open-file (output filename)
|
||
|
|
:direction :output
|
||
|
|
:if-exists :supersede
|
||
|
|
(with-standard-io-syntax
|
||
|
|
(print splits output))))
|
||
|
|
|
||
|
|
(defun print-character-times (n char)
|
||
|
|
(cond
|
||
|
|
((zerop n) "")
|
||
|
|
(t
|
||
|
|
(concatenate 'string (format nil "~a" char) (print-character-times (1- n) char)))))
|
||
|
|
|
||
|
|
(defun center-string (string length)
|
||
|
|
(concatenate
|
||
|
|
'string
|
||
|
|
(print-character-times (floor (/ (- length (length string)) 2)) " ")
|
||
|
|
(format nil "~a" string)
|
||
|
|
(print-character-times (ceiling (/ (- length (length string)) 2)) " ")))
|
||
|
|
|
||
|
|
(defun time-to-milliseconds (time)
|
||
|
|
(* (/ time *interval*) 1000))
|
||
|
|
|
||
|
|
(defun format-time (milliseconds)
|
||
|
|
(let*
|
||
|
|
((hours (floor (/ milliseconds (* 1000 60 60))))
|
||
|
|
(minutes (floor (mod (/ milliseconds (* 1000 60)) 60)))
|
||
|
|
(seconds (floor (mod (/ milliseconds 1000) 60)))
|
||
|
|
(centis (mod (floor (/ milliseconds 10)) 100)))
|
||
|
|
(format
|
||
|
|
nil "~a"
|
||
|
|
(concatenate
|
||
|
|
'string
|
||
|
|
(cond ((zerop hours) "") (t (format nil "~2,'0D:" hours)))
|
||
|
|
(cond ((zerop minutes) "") (t (format nil "~2,'0D:" minutes)))
|
||
|
|
(format nil "~2,'0D." seconds)
|
||
|
|
(format nil "~2,'0D" centis)))))
|
||
|
|
|
||
|
|
(defun format-split (split)
|
||
|
|
(cond
|
||
|
|
((null split) "")
|
||
|
|
(t
|
||
|
|
(concatenate
|
||
|
|
'string
|
||
|
|
(cond
|
||
|
|
((numberp (car split))
|
||
|
|
(format nil "~a|" (center-string (format-time (car split)) 12)))
|
||
|
|
(t (format nil "|~a|" (center-string (car split) 15))))
|
||
|
|
(format-split (cdr split))))))
|