search for available audioplayer

[micropolis] / res / micropolis.tcl

diff --git a/res/micropolis.tcl b/res/micropolis.tcl
index 421fd2b47b26feb24dd8e1425665231d6703e661..7b65a4c38623c0d1e04532a5804faee174b05dfc 100644 (file)
--- a/res/micropolis.tcl
+++ b/res/micropolis.tcl
@@ -941,7 +941,8 @@ proc EchoPlaySound {soundspec} {
   global Sound
   if {$Sound} {
     echo PlaySound [lindex $soundspec 0]
-    exec play res/sounds/[string tolower [lindex $soundspec 0]].wav &
+    signal ignore SIGCHLD
+    exec res/sounds/player res/sounds/[string tolower [lindex $soundspec 0]].wav &
   }
 }