hedgewars/uGears.pas
changeset 4621 1d45bf63f25c
parent 4617 42aad2cd981e
child 4623 fa24dac6c473
--- a/hedgewars/uGears.pas	Wed Dec 22 01:17:46 2010 -0500
+++ b/hedgewars/uGears.pas	Wed Dec 22 01:19:47 2010 -0500
@@ -1114,7 +1114,7 @@
     cArtillery:= true;
 
 if (Theme = 'Snow') then// or (Theme = 'Hell') then
-    for i:= 0 to Pred(vobCount) do
+    for i:= 0 to Pred(vobCount*2) do
         AddGear(GetRandom(LAND_WIDTH+1024)-512, LAND_HEIGHT - GetRandom(1024), gtFlake, 0, _0, _0, 0);
 end;