hedgewars/uWorld.pas
changeset 6734 9709d15dabfa
parent 6714 f2f93017132c
child 6794 95ee7bde3514
--- a/hedgewars/uWorld.pas	Thu Feb 23 18:41:52 2012 +0400
+++ b/hedgewars/uWorld.pas	Thu Feb 23 12:58:17 2012 -0500
@@ -857,21 +857,18 @@
 
 procedure DrawWorld(Lag: LongInt);
 begin
-if not isPaused then
+    if ZoomValue < zoom then
     begin
-        if ZoomValue < zoom then
+        zoom:= zoom - 0.002 * Lag;
+        if ZoomValue > zoom then
+            zoom:= ZoomValue
+    end
+    else
+        if ZoomValue > zoom then
         begin
-            zoom:= zoom - 0.002 * Lag;
-            if ZoomValue > zoom then
-                zoom:= ZoomValue
-        end
-        else
-            if ZoomValue > zoom then
-            begin
-            zoom:= zoom + 0.002 * Lag;
-            if ZoomValue < zoom then
-                zoom:= ZoomValue
-            end
+        zoom:= zoom + 0.002 * Lag;
+        if ZoomValue < zoom then
+            zoom:= ZoomValue
         end
     else
         ZoomValue:= zoom;