cleanup UILoseGame

[micropolis] / res / micropolis.tcl

diff --git a/res/micropolis.tcl b/res/micropolis.tcl
index 250ebf25839529b3132f9bedc9236e9b7e6b5e16..142fa24a6721471af11bc6f60fd0bd2458c425d6 100644 (file)
--- a/res/micropolis.tcl
+++ b/res/micropolis.tcl
@@ -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}"
 }