--- 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;