don't quit immediately when the user loses a scenario, instead present a message
authorMichael Gernoth <michael@gernoth.net>
Sun, 27 Jan 2008 00:18:33 +0000 (01:18 +0100)
committerMichael Gernoth <michael@gernoth.net>
Sun, 27 Jan 2008 00:18:33 +0000 (01:18 +0100)
res/micropolis.tcl

index 250ebf2..b05d5eb 100644 (file)
@@ -5248,8 +5248,15 @@ proc DoLeaveGame {head} {
 
 
 proc UILoseGame {} {
-  UIPickScenarioMode
+  global Messages
   UIShowPicture 200
+  sim Speed 0
+  sim Pause 1
+  AskQuestion [Color . #ff0000 #ffffff] [lindex $Messages(200) 1] \
+    [lindex $Messages(200) 2] \
+    ""\
+    ""\
+    "{Ok} SelectCity.Yes {UIPickScenarioMode}"
 }
 
 
Impressum, Datenschutz