diff options
| -rw-r--r-- | TODO | 4 | ||||
| -rw-r--r-- | chess-engine.el | 4 | ||||
| -rw-r--r-- | chess-ply.el | 1 | ||||
| -rw-r--r-- | chess.el | 2 |
4 files changed, 6 insertions, 5 deletions
@@ -19,7 +19,7 @@ related to the given letter - modify displays and engines so they ONLY keep game objects; thus - set-start-position now is just set-position + set-start-position would become just set-position - distinguish between chess-display-set-game and chess-display-set-game*. The latter detaches and sets a new game @@ -40,7 +40,7 @@ - for network transports, if an illegal move is encountered, report this with "illegal move: REASON" -- incorporate any .wav files from xchat's sounds that chess-sound +- incorporate the .wav files from xchat's sounds that chess-sound currently doesn't have - in chess-engine-filter and chess-ics-filter, if an error is diff --git a/chess-engine.el b/chess-engine.el index b097fe3..f90c504 100644 --- a/chess-engine.el +++ b/chess-engine.el @@ -120,7 +120,9 @@ (format "Do you wish to play a chess game against an anonymous opponent? "))) (progn (let ((chess-engine-handling-event t)) - (chess-game-set-data game 'active t)) + (unless game + (setq game (chess-engine-set-game nil (chess-game-create)))) + (chess-engine-set-start-position nil)) (chess-engine-command nil 'accept)) (chess-engine-command nil 'decline))) t) diff --git a/chess-ply.el b/chess-ply.el index 845ff00..ea6e0ac 100644 --- a/chess-ply.el +++ b/chess-ply.el @@ -44,6 +44,7 @@ ;;; Code: +(require 'cl) (require 'chess-pos) (defgroup chess-ply nil @@ -73,8 +73,6 @@ a0 243 ;; interface commands available in each of those buffer types. ;;; Code: -(require 'cl) - (require 'chess-game) (require 'chess-display) |