--- a/hedgewars/uGears.pas Fri Mar 26 17:18:44 2010 +0000
+++ b/hedgewars/uGears.pas Fri Mar 26 17:22:52 2010 +0000
@@ -1759,6 +1759,8 @@
begin
TargetPoint.X:= NoPointX;
{$IFDEF DEBUGFILE}if Radius > 4 then AddFileLog('Explosion: at (' + inttostr(x) + ',' + inttostr(y) + ')');{$ENDIF}
+if Radius > 25 then KickFlakes(Radius, X, Y);
+
if ((Mask and EXPLNoGfx) = 0) then
begin
if Radius > 50 then AddGear(X, Y, gtBigExplosion, 0, _0, _0, 0)
@@ -1771,8 +1773,6 @@
else
dmgRadius:= Radius;
-KickFlakes(dmgRadius, X, Y);
-
Gear:= GearsList;
while Gear <> nil do
begin