From f43a2ebec00d93a8898715cd73bec03f277744e9 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Wed, 1 May 2002 23:15:00 +0000 Subject: added code for forfeiting on time --- chess-network.el | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'chess-network.el') diff --git a/chess-network.el b/chess-network.el index f4a369b..e78eabc 100644 --- a/chess-network.el +++ b/chess-network.el @@ -74,6 +74,10 @@ (function (lambda () (funcall chess-engine-response-handler 'call-flag)))) + (cons "forfeit$" + (function + (lambda () + (funcall chess-engine-response-handler 'flag-fell)))) (cons "kibitz\\s-+\\(.+\\)$" (function (lambda () @@ -195,6 +199,10 @@ ((eq event 'set-index) (chess-engine-send nil (format "index %d\n" (car args)))) + ((eq event 'flag-fell) + (chess-engine-send nil "forfeit\n") + (chess-common-handler game 'flag-fell)) + (t (apply 'chess-common-handler game event args))))) -- cgit v1.2.3