384 			@doStepTeamHealthSorter,

   384 			@doStepTeamHealthSorter,

   385 			@doStepSpeechBubble,

   385 			@doStepSpeechBubble,

   386 			@doStepBubble,

   386 			@doStepBubble,

   387 			@doStepSteam,

   387 			@doStepSteam,

   388 			@doStepSmoke,

   388 			@doStepSmoke,

   389 			@doStepHealth,

   390 			@doStepHealth,

   390 			@doStepShell,

   391 			@doStepShell,

   391 			@doStepDust

   392 			@doStepDust

   392 		);

   393 		);

   393 

   394 

   478 				dy:= _0_001 * (random(85) + 95);

   479 				dy:= _0_001 * (random(85) + 95);

   479 				dy.isNegative:= false;

   480 				dy.isNegative:= false;

   480 				Frame:= 7 - random(3);

   481 				Frame:= 7 - random(3);

   481 				FrameTicks:= cExplFrameTicks * 2;

   482 				FrameTicks:= cExplFrameTicks * 2;

   482 				end;

   483 				end;

   483   vgtSmoke: begin

   485   vgtSmoke: begin

   484 				dx:= _0_0002 * (random(45) + 10);

   486 				dx:= _0_0002 * (random(45) + 10);

   485 				dx.isNegative:= random(2) = 0;

   487 				dx.isNegative:= random(2) = 0;

   486 				dy:= _0_0002 * (random(45) + 10);

   488 				dy:= _0_0002 * (random(45) + 10);

   487 				dy.isNegative:= false;

   489 				dy.isNegative:= false;

   559 	1: while Gear <> nil do

   561 	1: while Gear <> nil do

   560 		begin

   562 		begin

   561 			if not cReducedQuality then

   563 			if not cReducedQuality then

   562 				case Gear^.Kind of

   564 				case Gear^.Kind of

   563 					vgtSmoke: DrawSprite(sprSmoke, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);

   565 					vgtSmoke: DrawSprite(sprSmoke, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);

   564 					vgtDust: DrawSprite(sprDust, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);

   567 					vgtDust: DrawSprite(sprDust, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);

   565 				end;

   568 				end;

   566 		Gear:= Gear^.NextGear

   569 		Gear:= Gear^.NextGear

   567 		end;

   570 		end;

   568 	2: while Gear <> nil do

   571 	2: while Gear <> nil do