don't quit immediately when the user loses a scenario, instead present a message

[micropolis] / res / micropolis.tcl

diff --git a/res/micropolis.tcl b/res/micropolis.tcl
index 250ebf25839529b3132f9bedc9236e9b7e6b5e16..b05d5ebc2554fe1930f3dfefc3755709e3633b31 100644 (file)
--- a/res/micropolis.tcl
+++ b/res/micropolis.tcl
@@ -5248,8 +5248,15 @@ proc DoLeaveGame {head} {
 
 
 proc UILoseGame {} {
 
 
 proc UILoseGame {} {

-  UIPickScenarioMode
+  global Messages

   UIShowPicture 200
   UIShowPicture 200

+  sim Speed 0
+  sim Pause 1
+  AskQuestion [Color . #ff0000 #ffffff] [lindex $Messages(200) 1] \
+    [lindex $Messages(200) 2] \
+    ""\
+    ""\
+    "{Ok} SelectCity.Yes {UIPickScenarioMode}"

 }
 
 
 }