hedgewars/uWorld.pas
changeset 3444 9d501dc22f71
parent 3434 6af73e7f2438
child 3445 1ce844170014
--- a/hedgewars/uWorld.pas	Fri May 07 06:29:46 2010 +0000
+++ b/hedgewars/uWorld.pas	Fri May 07 09:57:12 2010 +0000
@@ -540,16 +540,21 @@
     scale: GLfloat;
     VertexBuffer: array [0..3] of TVertex2f;
 begin
-if ZoomValue < zoom then
+if not isPaused 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;
+    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
+    end
+else
+    ZoomValue:= zoom;
 
 // Sky
 glClear(GL_COLOR_BUFFER_BIT);