# HG changeset patch
# User sheepluva
# Date 1453540487 -3600
# Node ID 17bd1c25670a4b42b112db541ca6f8306a3fe03c
# Parent  dc36fad455f49d5151e5a903065d2d2fb7e7cf0b
minor code tweaks

diff -r dc36fad455f4 -r 17bd1c25670a hedgewars/uWorld.pas
--- a/hedgewars/uWorld.pas	Sat Jan 23 09:05:37 2016 +0100
+++ b/hedgewars/uWorld.pas	Sat Jan 23 10:14:47 2016 +0100
@@ -1387,15 +1387,20 @@
     and ((CurrentHedgehog = nil) or CurrentHedgehog^.Team^.ExtDriven
     or (CurrentHedgehog^.BotLevel <> 0) or (GameType = gmtDemo))) then
     begin
-    inc(CinematicSteps, Lag);
-    if CinematicSteps > 300 then
+    if CinematicSteps < 300 then
+        begin
+        inc(CinematicSteps, Lag);
+        if CinematicSteps > 300 then
         CinematicSteps:= 300;
+        CinematicBarH:= (ViewHeight * CinematicSteps) div 2048;
+        end;
     end
 else if CinematicSteps > 0 then
     begin
     dec(CinematicSteps, Lag);
     if CinematicSteps < 0 then
         CinematicSteps:= 0;
+    CinematicBarH:= (ViewHeight * CinematicSteps) div 2048;
     end;
 
 // render black bars
@@ -1404,7 +1409,6 @@
     r.x:= ViewLeftX;
     r.w:= ViewWidth;
     r.y:= ViewTopY;
-    CinematicBarH:= (ViewHeight * CinematicSteps) div 2048;
     r.h:= CinematicBarH;
     DrawRect(r, 0, 0, 0, $FF, true);
     r.y:= ViewBottomY - r.h;