play sounds using 'play'
authorMichael Gernoth <michael@gernoth.net>
Sun, 13 Jan 2008 12:51:38 +0000 (13:51 +0100)
committerMichael Gernoth <michael@gernoth.net>
Sun, 13 Jan 2008 12:51:38 +0000 (13:51 +0100)
res/micropolis.tcl

index b1379c1..421fd2b 100644 (file)
@@ -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 &
   }
 }
 
Impressum, Datenschutz