diff -r 36586b751d64 -r 8da8f2515221 hedgewars/uGears.pas --- 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