hedgewars/uLandGenTemplateBased.pas
changeset 14291 7a7c090f96f6
parent 14290 a7810074c20d
--- a/hedgewars/uLandGenTemplateBased.pas	Fri Nov 23 16:38:47 2018 -0500
+++ b/hedgewars/uLandGenTemplateBased.pas	Fri Nov 23 21:38:34 2018 -0500
@@ -116,7 +116,7 @@
             or (dab < minDistance * 3)
             or (mp.x < leftX + mapBorderMargin)
             or (mp.x > rightX - mapBorderMargin)
-            or (mp.y < LongInt(topY) + mapBorderMargin)
+            or (mp.y < topY + mapBorderMargin)
             or (mp.y > LongInt(LAND_HEIGHT) - mapBorderMargin)
     then
     begin
@@ -146,7 +146,7 @@
     if b <> 0 then
     begin
         // top border
-        ix:= (LongInt(topY) + mapBorderMargin - mp.y) * a div b + mp.x;
+        ix:= (topY + mapBorderMargin - mp.y) * a div b + mp.x;
         d:= DistanceI(mp.y - topY - mapBorderMargin, mp.x - ix).Round;
         t2:= b * (mp.y - mapBorderMargin) + a * (mp.x - ix);
         if t2 > 0 then distL:= min(d, distL) else distR:= min(d, distR);