From 60c8544e968f52b9ef73f7fae3dbe373453c2e79 Mon Sep 17 00:00:00 2001
From: Michael Gernoth <michael@gernoth.net>
Date: Sun, 27 Jan 2008 14:20:47 +0100
Subject: [PATCH 1/1] cleanup UILoseGame

---
 res/micropolis.tcl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/res/micropolis.tcl b/res/micropolis.tcl
index b05d5eb..142fa24 100644
--- 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] \
     ""\
-- 
2.39.5