--- a/hedgewars/GSHandlers.inc	Fri Jul 04 19:25:00 2008 +0000
+++ b/hedgewars/GSHandlers.inc	Fri Jul 04 21:20:17 2008 +0000
@@ -796,8 +796,9 @@
 procedure doStepExplosion(Gear: PGear);
 var i: LongWord;
 begin
-for i:= 0 to 15 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtFire);
-for i:= 0 to 15 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtExplPart);
+for i:= 0 to 31 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtFire);
+for i:= 0 to 8 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtExplPart);
+for i:= 0 to 8 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtExplPart2);
 Gear^.doStep:= @doStepExplosionWork
 end;