From 99d0a8277f275c1ffa48b948723a79df4d296e22 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Fri, 12 Apr 2002 11:09:40 +0000 Subject: *** no comment *** --- TODO | 4 +--- chess-ics.el | 15 +++++++-------- 2 files changed, 8 insertions(+), 11 deletions(-) diff --git a/TODO b/TODO index 5c1a3bb..305c782 100644 --- a/TODO +++ b/TODO @@ -6,6 +6,7 @@ bughouse/crazyhouse analysis/highlight tools database interaction (chess-file.el, chess-scid.el) + full ICS interaction ---------------------------------------------------------------------- @@ -19,9 +20,6 @@ - when announcing abiguous pieces, name the rank/file ("e pawn") -- there needs to be much more robustness; it's too easy to get the - game into an unplayable state right now - ---------------------------------------------------------------------- - Read-only mode needs to be a bit more vigorous. There's nothing diff --git a/chess-ics.el b/chess-ics.el index d0a3042..510fd69 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -131,14 +131,13 @@ who is black." (assert game) (if (and (chess-game-data game 'active) (> (chess-game-index game) 0)) - (when (and (cadr info) - (eq (chess-pos-side-to-move (car info)) - (chess-game-data game 'my-color))) - (chess-engine-do-move - (chess-algebraic-to-ply - (chess-ply-pos (car (last (chess-game-plies game)))) - (cadr info) t)) - (assert (equal (car info) (chess-engine-position nil)))) + (if (and (cadr info) + (eq (chess-pos-side-to-move (car info)) + (chess-game-data game 'my-color))) + (chess-engine-do-move + (chess-algebraic-to-ply + (chess-ply-pos (car (last (chess-game-plies game)))) + (cadr info) t))) (let ((chess-game-inhibit-events t) plies) (chess-game-set-data game 'my-color (string= (nth 2 info) chess-ics-handle)) -- cgit v1.2.3