search sounds and player in $ResourceDir

diff --git a/res/micropolis.tcl b/res/micropolis.tcl
index 142fa24a6721471af11bc6f60fd0bd2458c425d6..6c6c03a82b50775fb12b949039dca34bd3942a31 100644 (file)
--- a/res/micropolis.tcl
+++ b/res/micropolis.tcl
@@ -939,11 +939,11 @@ proc UISetChannelVolume {win chan vol} {
 
 proc EchoPlaySound {soundspec} {
   # Temporary workaround to tell Python Sugar app to play sound.
 
 proc EchoPlaySound {soundspec} {
   # Temporary workaround to tell Python Sugar app to play sound.

-  global Sound
+  global Sound ResourceDir

   if {$Sound} {
     #echo PlaySound [lindex $soundspec 0]
     signal ignore SIGCHLD
   if {$Sound} {
     #echo PlaySound [lindex $soundspec 0]
     signal ignore SIGCHLD

-    exec res/sounds/player res/sounds/[string tolower [lindex $soundspec 0]].wav &
+    exec "${ResourceDir}/sounds/player" "${ResourceDir}/sounds/[string tolower [lindex $soundspec 0]].wav" &

   }
 }
 
   }
 }