From: Michael Gernoth <michael@gernoth.net>
Date: Sun, 13 Jan 2008 12:51:38 +0000 (+0100)
Subject: play sounds using 'play'
X-Git-Url: https://git.zerfleddert.de/cgi-bin/gitweb.cgi/micropolis/commitdiff_plain/4809bf6ac93e116ac30932bb00730d308245e2e5?ds=inline

play sounds using 'play'
---

diff --git a/res/micropolis.tcl b/res/micropolis.tcl
index b1379c1..421fd2b 100644
--- a/res/micropolis.tcl
+++ b/res/micropolis.tcl
@@ -941,6 +941,7 @@ proc EchoPlaySound {soundspec} {
   global Sound
   if {$Sound} {
     echo PlaySound [lindex $soundspec 0]
+    exec play res/sounds/[string tolower [lindex $soundspec 0]].wav &
   }
 }