From cdba8a5aed3bd66e62f348a7064acece342bb68e Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Fri, 12 Apr 2002 01:17:38 +0000
Subject: *** no comment ***

---
 chess-sound.el | 101 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 101 insertions(+)
 create mode 100644 chess-sound.el

(limited to 'chess-sound.el')

diff --git a/chess-sound.el b/chess-sound.el
new file mode 100644
index 0000000..c8f554c
--- /dev/null
+++ b/chess-sound.el
@@ -0,0 +1,101 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;; This is very similar to chess-announce, except it uses specific
+;; .WAV files instead of text-to-speech.
+;;
+;; $Revision$
+
+(require 'chess-game)
+
+(defgroup chess-sound nil
+  "Code to play specific sounds when announcing chess moves."
+  :group 'chess)
+
+(defcustom chess-sound-directory
+  (expand-file-name "sounds"
+		    (file-name-directory
+		     (or load-file-name buffer-file-name)))
+  "The directory where chess sounds can be found."
+  :type 'directory
+  :group 'chess-sound)
+
+(defcustom chess-sound-play-function (if (fboundp 'play-sound-file)
+					 'play-sound-file
+				       'chess-sound-play)
+  "Non-nil if chess-sound should play sounds ."
+  :type 'file
+  :group 'chess-sound)
+
+(defcustom chess-sound-program (or (executable-find "esdplay")
+				   (executable-find "play"))
+  "Program used to play sounds, if `play-sound-file' does not exist."
+  :type 'file
+  :group 'chess-sound)
+
+(defcustom chess-sound-args nil
+  "Additional args to pass to `chess-sound-program', before the .WAV file."
+  :type '(repeat string)
+  :group 'chess-sound)
+
+(defun chess-sound-for-game (game)
+  "Announce the opponent's moves in GAME."
+  (if (and (file-directory-p chess-sound-directory)
+	   (file-exists-p (expand-file-name "tap.wav"
+					    chess-sound-directory)))
+  (chess-game-add-hook game 'chess-sound-event-handler)))
+
+(defun chess-sound (ch)
+  (let ((file
+	 (cond
+	  ((stringp ch)
+	   (format "%s.wav" ch))
+	  ((memq ch '(?\# ?\+ ?k ?q ?b ?n ?r ?p ?x))
+	   (format "%c_.wav" ch))
+	  (t
+	   (format "%s.wav" (chess-index-to-coord ch))))))
+    (funcall chess-sound-play-function
+	     (expand-file-name file chess-sound-directory))))
+
+(defun chess-sound-play (file)
+  (apply 'call-process chess-sound-program
+	 nil nil nil chess-sound-args))
+
+(defun chess-sound-event-handler (game ignore event &rest args)
+  "This display module presents a standard chessboard.
+See `chess-display-type' for the different kinds of displays."
+  (cond
+   ((memq event '(move game-over))
+    (let* ((ply (chess-game-ply game (1- (chess-game-index game))))
+	   (pos (chess-ply-pos ply)))
+      (if (eq (chess-game-data game 'my-color)
+	      (chess-pos-side-to-move pos))
+	  (chess-sound "tap")
+	(let* ((source (chess-ply-source ply))
+	       (target (chess-ply-target ply))
+	       (s-piece (chess-pos-piece pos source))
+	       (t-piece (chess-pos-piece pos target))
+	       text)
+	  (cond
+	   ((memq :castle changes)
+	    (chess-sound "O-O"))
+	   ((memq :long-castle changes)
+	    (chess-sound "O-O-O"))
+	   ((= t-piece ? )
+	    (chess-sound (downcase s-piece))
+	    (chess-sound target))
+	   (t
+	    (chess-sound (downcase s-piece))
+	    (chess-sound ?x)
+	    (chess-sound (downcase t-piece))
+	    (chess-sound target)))
+	  (if (memq :check changes)
+	      (chess-sound ?+))
+	  (if (memq :checkmate changes)
+	      (chess-sound ?#))
+	  (if (memq :stalemate changes)
+	      (chess-sound "smate")))))
+    nil)))
+
+(provide 'chess-sound)
+
+;;; chess-sound.el ends here
-- 
cgit v1.2.3