hedgewars/GSHandlers.inc
changeset 1496 bc2a166b4fd2
parent 1495 2b2b89bdb5f3
child 1501 a0e56fdf10cd
--- a/hedgewars/GSHandlers.inc	Fri Nov 14 16:44:39 2008 +0000
+++ b/hedgewars/GSHandlers.inc	Sun Nov 16 18:16:34 2008 +0000
@@ -147,7 +147,7 @@
 				for i:= 0 to 5 do
 					begin
 					dX:= rndSign(GetRandom * _0_1);
-					dY:= (GetRandom - _2) * _0_2;
+					dY:= (GetRandom - _1_5) * _0_3;
 					AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtMelonPiece, 0, dX, dY, 75)^.DirAngle:= i * 60;
 					end
 				end;