--- a/hedgewars/uGears.pas	Wed Nov 14 22:27:05 2012 -0500
+++ b/hedgewars/uGears.pas	Wed Nov 14 23:23:56 2012 -0500
@@ -643,7 +643,7 @@
 
 if (GameFlags and gfArtillery) <> 0 then
     cArtillery:= true;
-for i:= GetRandom(10)+30 downto 0 do
+for i:= (LAND_WIDTH*LAND_HEIGHT) div 524288+2 downto 0 do
     begin
     rx:= GetRandom(rightX-leftX)+leftX;
     ry:= GetRandom(LAND_HEIGHT-topY)+topY;