hedgewars/uWorld.pas
changeset 11524 c6bae7605ea4
parent 11522 17bd1c25670a
child 11525 c27565c942f5
equal deleted inserted replaced
11523:50636bc6d145 11524:c6bae7605ea4
  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 CinematicScript or (InCinematicMode
  1386 if CinematicScript or (InCinematicMode and autoCameraOn
  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     if CinematicSteps < 300 then
  1390     if CinematicSteps < 300 then
  1391         begin
  1391         begin
  1783             WorldDx:= WorldDx - LongInt(rightX) + leftX
  1783             WorldDx:= WorldDx - LongInt(rightX) + leftX
  1784         else if -WorldDx > rightX then
  1784         else if -WorldDx > rightX then
  1785             WorldDx:= WorldDx + LongInt(rightX) - leftX;
  1785             WorldDx:= WorldDx + LongInt(rightX) - leftX;
  1786     end;
  1786     end;
  1787 
  1787 
  1788 wdy:= trunc(cScreenHeight / cScaleFactor) + cScreenHeight div 2 - cWaterLine - (cVisibleWater + CinematicBarH);
  1788 wdy:= trunc(cScreenHeight / cScaleFactor) + cScreenHeight div 2 - cWaterLine - (cVisibleWater + trunc(CinematicBarH / (cScaleFactor / 2.0)));
  1789 if WorldDy < wdy then
  1789 if WorldDy < wdy then
  1790     WorldDy:= wdy;
  1790     WorldDy:= wdy;
  1791 
  1791 
  1792 if ((CursorPoint.X = prevPoint.X) and (CursorPoint.Y = prevpoint.Y)) then
  1792 if ((CursorPoint.X = prevPoint.X) and (CursorPoint.Y = prevpoint.Y)) then
  1793     exit;
  1793     exit;