hedgewars/uGears.pas
changeset 3083 8da8f2515221
parent 3080 b7fa8ad60e3b
child 3086 d11dea92fa2c
--- 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