--- a/hedgewars/uVisualGears.pas	Fri Mar 05 15:54:23 2010 +0000
+++ b/hedgewars/uVisualGears.pas	Fri Mar 05 17:32:13 2010 +0000
@@ -386,6 +386,7 @@
 			@doStepBubble,
 			@doStepSteam,
 			@doStepSmoke,
+			@doStepSmoke,
 			@doStepHealth,
 			@doStepShell,
 			@doStepDust
@@ -480,6 +481,7 @@
 				Frame:= 7 - random(3);
 				FrameTicks:= cExplFrameTicks * 2;
 				end;
+  vgtSmokeWhite, 
   vgtSmoke: begin
 				dx:= _0_0002 * (random(45) + 10);
 				dx.isNegative:= random(2) = 0;
@@ -561,6 +563,7 @@
 			if not cReducedQuality then
 				case Gear^.Kind of
 					vgtSmoke: DrawSprite(sprSmoke, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
+					vgtSmokeWhite: DrawSprite(sprSmokeWhite, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
 					vgtDust: DrawSprite(sprDust, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
 				end;
 		Gear:= Gear^.NextGear