diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-24 18:26:54 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-24 18:26:54 +0000 |
| commit | 92bddf357e407ad14857fcd36c9bba4c24c37b55 (patch) | |
| tree | e504c29bdd5189f1594a3e9723455593e96c5d47 /chess-crafty.el | |
| parent | e733086fa3d452c01d1fa6eb8173f5eb9a1959eb (diff) | |
added support for a 'resign' option
Diffstat (limited to 'chess-crafty.el')
| -rw-r--r-- | chess-crafty.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/chess-crafty.el b/chess-crafty.el index 9914d03..9c3924e 100644 --- a/chess-crafty.el +++ b/chess-crafty.el @@ -81,6 +81,17 @@ (insert (chess-game-to-string (car args)) ?\n)))) (chess-engine-send nil (format "read %s\n" file)))) + ((eq event 'set-option) + (cond + ((eq (car args) 'resign) + (if (cadr args) + (chess-engine-send nil "resign 9\n") + (chess-engine-send nil "resign -1\n"))) + ((eq (car args) 'ponder) + (if (cadr args) + (chess-engine-send nil "ponder on\n") + (chess-engine-send nil "ponder off\n"))))) + (t (if (and (eq event 'undo) (= 1 (mod (car args) 2))) |