# HG changeset patch
# User Wuzzy <Wuzzy2@mail.ru>
# Date 1602458704 -7200
# Node ID ff8bd08f7d987d0c9c982a7af51a0a669694b716
# Parent  ed3c5c15dcbde491e82d3c4f3e3586c9a032ba2e
Fix freeze when aiming laser at 90° into sky

diff -r ed3c5c15dcbd -r ff8bd08f7d98 hedgewars/uGearsRender.pas
--- a/hedgewars/uGearsRender.pas	Mon Oct 12 01:01:28 2020 +0200
+++ b/hedgewars/uGearsRender.pas	Mon Oct 12 01:25:04 2020 +0200
@@ -550,14 +550,16 @@
                     tx:= round(lx);
                     ty:= round(ly);
                     // reached top edge of land mask
-                    if ((ty and LAND_HEIGHT_MASK) <> 0) and (((ty < LAND_HEIGHT) and (ay < 0)) or ((ty >= TopY) and (ay > 0))) and
-                        (WorldEdge <> weWrap) and (WorldEdge <> weBounce) then
+                    if (WorldEdge <> weBounce) and (WorldEdge <> weWrap) and
+                        ((ty and LAND_HEIGHT_MASK) <> 0) and (((ty < LAND_HEIGHT) and (ay < 0)) or ((ty >= TopY) and (ay > 0))) then
                         begin
                         // assume infinite beam. Extend it way out past camera
                         tx:= round(lx + ax * (max(LAND_WIDTH,4096) div 2));
                         ty:= round(ly + ay * (max(LAND_WIDTH,4096) div 2));
                         break;
                         end;
+                    if ((WorldEdge = weWrap) or (WorldEdge = weBounce)) and (ty < -cCamLimitY) and (ay < 0) then
+                        break;
 
                     if ((hogLR < 0) and (tx < LeftX)) or ((hogLR > 0) and (tx >= RightX)) then
                         if (WorldEdge = weWrap) then