X-Git-Url: http://git.zerfleddert.de/cgi-bin/gitweb.cgi/micropolis/blobdiff_plain/5a6a8ae5829f6f2836cb58d35629c5fa1f7eb4ba..7709f34cf5785350db2d99f196afcbcf6122b4aa:/res/micropolis.tcl

diff --git a/res/micropolis.tcl b/res/micropolis.tcl
index 250ebf2..6c6c03a 100644
--- 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.
-  global Sound
+  global Sound ResourceDir
   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" &
   }
 }
 
@@ -5248,8 +5248,14 @@ proc DoLeaveGame {head} {
 
 
 proc UILoseGame {} {
-  UIPickScenarioMode
+  global Messages
   UIShowPicture 200
+  sim Pause
+  AskQuestion [Color . #ff0000 #ffffff] [lindex $Messages(200) 1] \
+    [lindex $Messages(200) 2] \
+    ""\
+    ""\
+    "{Ok} SelectCity.Yes {UIPickScenarioMode}"
 }