cleanup UILoseGame

[micropolis] / res / micropolis.tcl

diff --git a/res/micropolis.tcl b/res/micropolis.tcl
index b05d5ebc2554fe1930f3dfefc3755709e3633b31..142fa24a6721471af11bc6f60fd0bd2458c425d6 100644 (file)
--- a/res/micropolis.tcl
+++ b/res/micropolis.tcl
@@ -5250,8 +5250,7 @@ proc DoLeaveGame {head} {
 proc UILoseGame {} {
   global Messages
   UIShowPicture 200
-  sim Speed 0
-  sim Pause 1
+  sim Pause
   AskQuestion [Color . #ff0000 #ffffff] [lindex $Messages(200) 1] \
     [lindex $Messages(200) 2] \
     ""\