simponic/speedrun-timer
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bruh moment

Browse Source
This commit is contained in:
Simponic 2021-04-21 23:13:58 -06:00
parent 6d90b926fa
commit 0c81053a94
2 changed files with 29 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
main.lisp
View File

@ -1,7 +1,8 @@
(ql:quickload "cl-charms") (ql:quickload "cl-charms")
(ql:quickload "trivial-left-pad") (ql:quickload "trivial-left-pad")
(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 *splits* '(("Chozo" 0 0 0 0)("Kraid" 0 0 0 0)("Wave Beam" 0 0 0 0)("Phantoon" 0 0 0 0)("Botwoon" 0 0 0 0)("Draygon" 0 0 0 0)("Lower Norfair" 0 0 0 0)("Ridley" 0 0 0 0)("Mother Brain" 0 0 0 0)))
(defvar *all-splits* '())
(defvar *current-split-index* 0) (defvar *current-split-index* 0)
(defvar *interval* internal-time-units-per-second) (defvar *interval* internal-time-units-per-second)
(defvar *start-time* 0) (defvar *start-time* 0)
@ -18,25 +19,38 @@
((zerop index) (setq list (cons value (cdr list)))) ((zerop index) (setq list (cons value (cdr list))))
(t (setq list (cons (car list) (change-value (cdr list) (1- index) value)))))) (t (setq list (cons (car list) (change-value (cdr list) (1- index) value))))))
(defun get-minimum (splits index current_minimum) (defun get-minimum (list index current_minimum)
(cond (cond
((null splits) '()) ((null list) current_minimum)
(t (t
(let ((val (get-value (car splits) index))) (let ((val (get-value (get-value (car list) index) 3)))
(cond ((< val current_minimum) (cond ((< val current_minimum) (get-minimum (cdr list) index val))
(t (get-minimum (cdr list) index current_minimum)))))))
(defun load-splits (index)
(cond ((null (get-value *splits* index)) nil)
(t
(progn
(setf *splits*
(change-value *splits* index
(change-value (get-value *splits* index) 4
(get-minimum *all-splits* index 99999999999999999999999))))
(load-splits (1+ index))
))))
(defun read-list-splits (filename) (defun read-list-splits (filename)
(with-open-file (in filename) (with-open-file (in filename :if-does-not-exist :create)
(with-standard-io-syntax (with-standard-io-syntax
(setf *splits* (read in))))) (setf *all-splits* (read in)))))
(defun save-split-file (filename) (defun save-split-file (filename)
(with-open-file (out filename (with-open-file (out filename
:direction :output :direction :output
:if-exists :append) :if-does-not-exist :create
:if-exists :supersede)
(with-standard-io-syntax (with-standard-io-syntax
(print *splits* out)))) (print *all-splits* out))))
(defun current-time () (defun current-time ()
(let ((time (get-internal-real-time))) (let ((time (get-internal-real-time)))
@ -118,6 +132,7 @@
*current-split-index*))))) *current-split-index*)))))
(defun hello-world (filename) (defun hello-world (filename)
(cond ((y-or-n-p "Read file? ") (progn (read-list-splits filename) (load-splits 0))))
(charms:with-curses () (charms:with-curses ()
(charms:disable-echoing) (charms:disable-echoing)
(charms:enable-raw-input :interpret-control-characters t) (charms:enable-raw-input :interpret-control-characters t)
@ -138,7 +153,8 @@
((#\q) (return-from driver-loop))) ((#\q) (return-from driver-loop)))
(sleep 0.01) (sleep 0.01)
))) )))
(save-split-file filename) (setf *all-splits* (cons *splits* *all-splits*))
(cond ((y-or-n-p "Save?") (save-split-file filename)))
(get-value *splits* (1- *current-split-index*)) (get-value *splits* (1- *current-split-index*))
) )

2
thing.out
View File

@ -1,2 +0,0 @@
(("Chozo" 10 538333/500 533333/500) ("Kraid" 1090 1770 680) ("Wave Beam" 1780 1158333/500 268333/500) ("Phantoon" 1163333/500 2890 281667/500) ("Botwoon" 2900 1733333/500 283333/500) ("Draygon" 1738333/500 3933333/1000 456667/1000) ("Lower Norfair" 3943333/1000 4463333/1000 520) ("Ridley" 4473333/1000 5033333/1000 560) ("Mother Brain" 5043333/1000 5680 636667/1000))