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-common.el | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'chess-common.el') diff --git a/chess-common.el b/chess-common.el index 462050f..ce320b4 100644 --- a/chess-common.el +++ b/chess-common.el @@ -83,6 +83,11 @@ (let ((chess-engine-handling-event t)) (chess-game-undo game (car args)))) + ((eq event 'flag-fell) + (chess-game-set-data game 'active nil) + (let ((chess-game-inhibit-events t)) + (chess-game-end game :flag-fell))) + ((eq event 'move) (when (= 1 (chess-game-index game)) (chess-game-set-tag game "White" chess-full-name) -- cgit v1.2.3