diff options
| author | Mario Lang <mlang@delysid.org> | 2004-02-08 21:21:59 +0000 |
|---|---|---|
| committer | Mario Lang <mlang@delysid.org> | 2004-02-08 21:21:59 +0000 |
| commit | eeed018e03002e08a185618c830d4cb0e432b2ea (patch) | |
| tree | 57b33c03a140a292e03dc5e0911ce5dd37f28eb8 | |
| parent | 42f4d7a7b036bf998f1f69ca0a63d390c8bf5b3c (diff) | |
(chess-crafty-handler): Add search-depth and
search-time engine options.
| -rw-r--r-- | chess-crafty.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/chess-crafty.el b/chess-crafty.el index a3e6c4a..25a0b43 100644 --- a/chess-crafty.el +++ b/chess-crafty.el @@ -142,7 +142,13 @@ ((eq (car args) 'ponder) (if (cadr args) (chess-engine-send nil "hard\n") - (chess-engine-send nil "easy\n"))))) + (chess-engine-send nil "easy\n"))) + ((eq (car args) 'search-depth) + (assert (and (integerp (cadr args)) (>= (cadr args) 0))) + (chess-engine-send nil (format "sd %d\n") (cadr args))) + ((eq (car args) 'search-time) + (assert (and (integerp (cadr args)) (> (cadr args) 0))) + (chess-engine-send nil (format "st %d\n") (cadr args))))) (t (if (and (eq event 'undo) |