From 4809bf6ac93e116ac30932bb00730d308245e2e5 Mon Sep 17 00:00:00 2001
From: Michael Gernoth <michael@gernoth.net>
Date: Sun, 13 Jan 2008 13:51:38 +0100
Subject: [PATCH 1/1] play sounds using 'play'

---
 res/micropolis.tcl | 1 +
 1 file changed, 1 insertion(+)

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 &
   }
 }
 
-- 
2.39.5