From d69e38c55b7faf9f404537363327526c6a06b30b Mon Sep 17 00:00:00 2001 From: Mario Lang Date: Sun, 16 Jan 2005 14:10:02 +0000 Subject: Implement resign/takeback/draw/flag announcements for ics (ks) --- chess-ics.el | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) (limited to 'chess-ics.el') diff --git a/chess-ics.el b/chess-ics.el index 2154902..56959d5 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -1182,6 +1182,23 @@ This function should be put on `comint-preoutput-filter-functions'." ((eq event 'forward) (chess-ics-send "forward" (chess-game-data game 'ics-buffer))) + + ((eq event 'undo) + (chess-ics-send (format "takeback %d" (car args)) + (chess-game-data game 'ics-buffer))) + + ((eq event 'abort) + (chess-ics-send "abort" (chess-game-data game 'ics-buffer))) + + ((eq event 'call-flag) + (chess-ics-send "flag" (chess-game-data game 'ics-buffer))) + + ((eq event 'draw) + (chess-ics-send "draw" (chess-game-data game 'ics-buffer))) + + ((eq event 'resign) + (chess-ics-send "resign" (chess-game-data game 'ics-buffer))) + (t (apply 'chess-network-handler game event args))))) -- cgit v1.2.3