minor code tweaks
authorsheepluva
Sat, 23 Jan 2016 10:14:47 +0100
changeset 11527 17bd1c25670a
parent 11526 dc36fad455f4
child 11528 50636bc6d145
minor code tweaks
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;