From eeed018e03002e08a185618c830d4cb0e432b2ea Mon Sep 17 00:00:00 2001 From: Mario Lang Date: Sun, 8 Feb 2004 21:21:59 +0000 Subject: (chess-crafty-handler): Add search-depth and search-time engine options. --- chess-crafty.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'chess-crafty.el') 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) -- cgit v1.2.3