hedgewars/uGearsUtils.pas
changeset 11479 846a3b3a3d1c
parent 11478 8c95d5a4366c
child 11550 881231c1ba46
--- a/hedgewars/uGearsUtils.pas	Thu Dec 31 15:11:44 2015 -0500
+++ b/hedgewars/uGearsUtils.pas	Fri Jan 01 10:49:59 2016 -0500
@@ -940,7 +940,7 @@
                 begin
                 inc(cnt);
                 x:= leftX+GetRandom(rightX-leftX-32)+16;
-                y:= topY+GetRandom(LAND_HEIGHT-topY-32)+16;
+                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
                     Gear^.State:= Gear^.State or gsttmpFlag;