From c649d124baa42c1207d94ae5f6ed5e4f33b7c3f2 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Wed, 1 May 2002 22:01:09 +0000 Subject: *** no comment *** --- chess-ics.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/chess-ics.el b/chess-ics.el index ac206c5..3889842 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -364,8 +364,15 @@ who is black." ((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")))) + (let ((move + (if (chess-ply-any-keyword (car args) + :castle :long-castle) + (chess-ply-to-algebraic (car args)) + (concat (chess-index-to-coord + (car (chess-ply-changes (car args)))) "-" + (chess-index-to-coord + (cadr (chess-ply-changes (car args)))))))) + (chess-engine-send nil (concat move "\n"))))) (if (chess-game-over-p game) (chess-game-set-data game 'active nil))) -- cgit v1.2.3