diff -r 525e7d3a4958 -r 9e80b7fc4017 hedgewars/GSHandlers.inc --- a/hedgewars/GSHandlers.inc Fri Oct 16 14:53:58 2009 +0000 +++ b/hedgewars/GSHandlers.inc Fri Oct 16 15:35:41 2009 +0000 @@ -228,8 +228,8 @@ if (Gear^.State and gstCollision) <> 0 then begin PlaySound(sndMolotov, false, nil); //doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 5, EXPLAutoSound); - for i:= 0 to 40 do begin - dX:= AngleCos(i * 2) * ((_0_08*(i div 10))) * (GetRandom + _1); + for i:= 0 to 20 do begin + dX:= AngleCos(i * 2) * ((_0_08*(i div 6))) * (GetRandom + _1); dY:= AngleSin(i * 8) * _0_5 * (GetRandom + _1); Fire:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, dY, 0); Fire^.State:= Fire^.State or gsttmpFlag;