--- a/hedgewars/GSHandlers.inc	Tue Jul 01 22:26:36 2008 +0000
+++ b/hedgewars/GSHandlers.inc	Fri Jul 04 14:40:52 2008 +0000
@@ -782,7 +782,7 @@
 end;
 
 ////////////////////////////////////////////////////////////////////////////////
-procedure doStepExplosion(Gear: PGear);
+procedure doStepExplosionWork(Gear: PGear);
 begin
 inc(Gear^.Timer);
 if Gear^.Timer > 75 then
@@ -793,6 +793,13 @@
    end;
 end;
 
+procedure doStepExplosion(Gear: PGear);
+var i: LongWord;
+begin
+for i:= 0 to 15 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtExplPart);
+Gear^.doStep:= @doStepExplosionWork
+end;
+
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepMine(Gear: PGear);
 begin