summaryrefslogtreecommitdiff
path: root/chess-ics.el
diff options
context:
space:
mode:
authorJohn Wiegley <johnw@newartisans.com>2002-05-01 23:15:00 +0000
committerJohn Wiegley <johnw@newartisans.com>2002-05-01 23:15:00 +0000
commitf43a2ebec00d93a8898715cd73bec03f277744e9 (patch)
treec9e27d2fa6c8c1406ab05c016bd2ad8252f56585 /chess-ics.el
parent3169a8123361adb22387572b0c4647ce32c1917c (diff)
added code for forfeiting on time
Diffstat (limited to 'chess-ics.el')
-rw-r--r--chess-ics.el5
1 files changed, 5 insertions, 0 deletions
diff --git a/chess-ics.el b/chess-ics.el
index 020fa44..9d5c9bb 100644
--- a/chess-ics.el
+++ b/chess-ics.el
@@ -88,6 +88,11 @@ The format of each entry is:
(lambda ()
(if (string= (match-string 1) chess-engine-opponent-name)
(funcall chess-engine-response-handler 'resign)))))
+ (cons "\\(\\S-+\\) forfeits on time}"
+ (function
+ (lambda ()
+ (if (string= (match-string 1) chess-engine-opponent-name)
+ (funcall chess-engine-response-handler 'flag-fell)))))
(cons "Illegal move (\\([^)]+\\))\\."
(function
(lambda ()