From ecb9d2a2fcd5befd74f13d072a074f7be83416c8 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Wed, 1 May 2002 21:47:30 +0000 Subject: *** no comment *** --- chess-ics.el | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'chess-ics.el') diff --git a/chess-ics.el b/chess-ics.el index 5b90b19..dca9088 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -353,6 +353,21 @@ who is black." nil (format "match %s\n" (read-string (chess-string 'challenge-whom))))) + ((eq event 'move) + (when (= 1 (chess-game-index game)) + (chess-game-set-tag game "White" chess-full-name) + (chess-game-set-tag game "Black" chess-engine-opponent-name)) + + (cond + ((chess-ply-keyword (car args) :resign) + (chess-engine-send nil "resign\n")) + (t + (chess-engine-send nil (concat (chess-ply-to-algebraic (car args) t) + "\n")))) + + (if (chess-game-over-p game) + (chess-game-set-data game 'active nil))) + ((eq event 'send) (comint-send-string (get-buffer-process (current-buffer)) (car args))) -- cgit v1.2.3