hedgewars/uGearsUtils.pas
changeset 11756 20e0a72e0e2c
parent 11556 aefc770feb65
child 11827 4600dcb9db4f
--- a/hedgewars/uGearsUtils.pas	Wed Apr 27 23:14:47 2016 +0200
+++ b/hedgewars/uGearsUtils.pas	Wed Apr 27 23:52:43 2016 +0200
@@ -939,7 +939,7 @@
             while (cnt < 1000) do
                 begin
                 inc(cnt);
-                x:= leftX+GetRandom(rightX-leftX-32)+16;
+                x:= left+GetRandom(right-left-2*cHHRadius)+cHHRadius;
                 y:= topY+GetRandom(LAND_HEIGHT-topY-64)+48;
                 if NoGearsToAvoid(x, y, 100 div max(1,cnt div 100), 100 div max(1,cnt div 100)) then
                     begin