# HG changeset patch
# User nemo
# Date 1345914388 14400
# Node ID 74db5b16a776d23f14bcfacbf07eb5e9c137aa21
# Parent  f06d8603097cddca5d2ca0eee01982c3805efbff
Ensure crates can spawn just below the border on a bordered map.

diff -r f06d8603097c -r 74db5b16a776 hedgewars/uGearsUtils.pas
--- a/hedgewars/uGearsUtils.pas	Sat Aug 25 09:17:42 2012 -0400
+++ b/hedgewars/uGearsUtils.pas	Sat Aug 25 13:06:28 2012 -0400
@@ -569,7 +569,9 @@
         repeat
             inc(x, Delta);
             cnt:= 0;
-            y:= min(1024, topY) - 2 * Gear^.Radius;
+            if hasBorder then
+                 y:= min(1024, topY+4)
+            else y:= min(1024, topY) - 2 * Gear^.Radius;
             while y < cWaterLine do
                 begin
                 repeat