github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-05-05 15:44:10 +00:00
Code Issues Releases Wiki Activity

Keep the high score table in GAMES; ITSTER SCORES.

Browse Source
This commit is contained in:
Adam Sampson
2018-07-26 22:23:16 +01:00
committed by Adam Sampson
parent 46900d3f2b
commit 1a3b859966
2 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
bin/games/itster.scores Normal file
View File

@@ -0,0 +1 @@
()

4
src/hibou/itster.186 → src/hibou/itster.187
View File

@@ -296,7 +296,7 @@
(sleep tick-length)))) (sleep tick-length))))
(defun update-scores (score) (defun update-scores (score)
(let* ((f (open '(itster scores) 'in)) (let* ((f (open '((dsk games) itster scores) 'in))
;; Read old hall of fame. ;; Read old hall of fame.
(scores (read f))) (scores (read f)))
(close f) (close f)
@@ -336,6 +336,6 @@
(car daytime) (cadr daytime) (caddr daytime)))) (car daytime) (cadr daytime) (caddr daytime))))
scores) scores)
;; Save new hall of fame. ;; Save new hall of fame.
(setf f (open '(itster scores) 'out)) (setf f (open '((dsk games) itster scores) 'out))
(print scores f) (print scores f)
(close f))) (close f)))