diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-05-01 23:15:00 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-05-01 23:15:00 +0000 |
| commit | f43a2ebec00d93a8898715cd73bec03f277744e9 (patch) | |
| tree | c9e27d2fa6c8c1406ab05c016bd2ad8252f56585 /chess-common.el | |
| parent | 3169a8123361adb22387572b0c4647ce32c1917c (diff) | |
added code for forfeiting on time
Diffstat (limited to 'chess-common.el')
| -rw-r--r-- | chess-common.el | 5 |
1 files changed, 5 insertions, 0 deletions
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) |