diff options
| author | Mario Lang <mlang@delysid.org> | 2004-01-06 16:03:21 +0000 |
|---|---|---|
| committer | Mario Lang <mlang@delysid.org> | 2004-01-06 16:03:21 +0000 |
| commit | 9c8149270d6a9349356b1b8fd62e14ad9a42f0fe (patch) | |
| tree | 4a1d0c25805fb18f904e9e5f26fe265bfe4a7142 | |
| parent | e867c4ebb49cdad7f1fdc6a206dfb8f9410b85de (diff) | |
Require cl and add message calls
| -rw-r--r-- | chess-ai.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/chess-ai.el b/chess-ai.el index f530a19..0e5eca6 100644 --- a/chess-ai.el +++ b/chess-ai.el @@ -24,6 +24,7 @@ (require 'chess-common) (require 'chess-pos) (require 'chess-ply) +(require 'cl) (defgroup chess-ai () "A simple chess engine written in elisp." @@ -123,9 +124,11 @@ Returns (VALUE . LIST-OF-PLIES) where ((eq event 'post-move) (unless (chess-game-over-p game) (let (chess-display-handling-event) + (message "Thinking...") (funcall chess-engine-response-handler 'move (cadr (chess-ai-best-move (chess-engine-position nil) - chess-ai-depth)))))) + chess-ai-depth))) + (message "Thinking... done")))) (t (apply 'chess-common-handler game event args))))) |