From: Michael Gernoth Date: Sun, 27 Jan 2008 00:18:33 +0000 (+0100) Subject: don't quit immediately when the user loses a scenario, instead present a message X-Git-Url: https://git.zerfleddert.de/cgi-bin/gitweb.cgi/micropolis/commitdiff_plain/4f9aac609824866d312f85355f4fe2858a02f63d don't quit immediately when the user loses a scenario, instead present a message --- diff --git a/res/micropolis.tcl b/res/micropolis.tcl index 250ebf2..b05d5eb 100644 --- a/res/micropolis.tcl +++ b/res/micropolis.tcl @@ -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}" }