added code for forfeiting on time

1 files changed, 8 insertions, 0 deletions

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)))))