github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-11 23:53:12 +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
Show Stats 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))))
(defun update-scores (score)
(let* ((f (open '(itster scores) 'in))
(let* ((f (open '((dsk games) itster scores) 'in))
;; Read old hall of fame.
(scores (read f)))
(close f)
@ -336,6 +336,6 @@
(car daytime) (cadr daytime) (caddr daytime))))
scores)
;; Save new hall of fame.
(setf f (open '(itster scores) 'out))
(setf f (open '((dsk games) itster scores) 'out))
(print scores f)
(close f)))