chiark
/
gitweb
/
~mdw
/
atoms
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
atoms.lisp: Allow a single player.
[atoms]
/
atoms.lisp
diff --git
a/atoms.lisp
b/atoms.lisp
index fa65755b3b179223be8f2035f6bbd7b7c4ee72f0..77329cf7841a466e1496bebb6d3e2d3023667cac 100644
(file)
--- a/
atoms.lisp
+++ b/
atoms.lisp
@@
-294,7
+294,7
@@
(defmethod game-update-scores (game)
(incf remaining)
(setf found player)))))
(changed game :scores :players players)
(incf remaining)
(setf found player)))))
(changed game :scores :players players)
- (when (
= remaining 1
)
+ (when (
and (= remaining 1) (>= (length players) 2)
)
(setf (player-state found) :winning)
(changed game :finished :victor found)))))
(setf (player-state found) :winning)
(changed game :finished :victor found)))))
@@
-742,7
+742,7
@@
(defclass new-game-dialogue (gtk:dialog)
:step-increment 1))
(count-adjustment :type gtk:adjustment
:initform (make-instance 'gtk:adjustment
:step-increment 1))
(count-adjustment :type gtk:adjustment
:initform (make-instance 'gtk:adjustment
- :lower
2
:upper 20
+ :lower
1
:upper 20
:step-increment 1))
(players :type gtk:list-store
:initform (make-instance 'gtk:list-store
:step-increment 1))
(players :type gtk:list-store
:initform (make-instance 'gtk:list-store