From a0769011c2a98841156559aa37978156766cc09f Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Wed, 10 Apr 2002 23:55:13 +0000 Subject: Added support for aborting a game. Use A or N from a display. --- chess-network.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'chess-network.el') diff --git a/chess-network.el b/chess-network.el index a4befa2..32dc70b 100644 --- a/chess-network.el +++ b/chess-network.el @@ -46,7 +46,11 @@ (cons "resign$" (function (lambda () - (funcall chess-engine-response-handler 'resign)))))) + (funcall chess-engine-response-handler 'resign)))) + (cons "abort$" + (function + (lambda () + (funcall chess-engine-response-handler 'abort)))))) (defun chess-network-handler (event &rest args) "Initialize the network chess engine." @@ -94,6 +98,9 @@ ((eq event 'resign) (chess-engine-send nil "resign\n")) + ((eq event 'abort) + (chess-engine-send nil "abort\n")) + ((eq event 'move) (chess-engine-send nil (concat (chess-ply-to-algebraic (car args)) "\n"))))) -- cgit v1.2.3