hedgewars/uWorld.pas
changeset 11520 663ecfb05df6
parent 11519 aab4767d9a50
child 11522 17bd1c25670a
equal deleted inserted replaced
11519:aab4767d9a50 11520:663ecfb05df6
  1381 
  1381 
  1382 // this scale is used to keep the various widgets at the same dimension at all zoom levels
  1382 // this scale is used to keep the various widgets at the same dimension at all zoom levels
  1383 SetScale(cDefaultZoomLevel);
  1383 SetScale(cDefaultZoomLevel);
  1384 
  1384 
  1385 // cinematic effects
  1385 // cinematic effects
  1386 if InCinematicMode
  1386 if CinematicScript or (InCinematicMode
  1387     and ((CurrentHedgehog = nil) or CurrentHedgehog^.Team^.ExtDriven
  1387     and ((CurrentHedgehog = nil) or CurrentHedgehog^.Team^.ExtDriven
  1388     or (CurrentHedgehog^.BotLevel <> 0) or (GameType = gmtDemo)) then
  1388     or (CurrentHedgehog^.BotLevel <> 0) or (GameType = gmtDemo))) then
  1389     begin
  1389     begin
  1390     inc(CinematicSteps, Lag);
  1390     inc(CinematicSteps, Lag);
  1391     if CinematicSteps > 300 then
  1391     if CinematicSteps > 300 then
  1392         CinematicSteps:= 300;
  1392         CinematicSteps:= 300;
  1393     end
  1393     end