changeset 11751 | 20e0a72e0e2c |
parent 11551 | aefc770feb65 |
child 11822 | 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