# HG changeset patch
# User nemo
# Date 1243969374 0
# Node ID f70cd51704c133c106122b18f4ca3dd00957a398
# Parent  fa43619eb3e75590d72c76ebc79cd43ff5f8148e
Remove steam on explosion effects

diff -r fa43619eb3e7 -r f70cd51704c1 hedgewars/uVisualGears.pas
--- a/hedgewars/uVisualGears.pas	Tue Jun 02 18:59:13 2009 +0000
+++ b/hedgewars/uVisualGears.pas	Tue Jun 02 19:02:54 2009 +0000
@@ -140,22 +140,14 @@
 end;
 
 procedure doStepFire(Gear: PVisualGear; Steps: Longword);
-var i: Integer;
 begin
 Gear^.X:= Gear^.X + Gear^.dX * Steps;
 
 Gear^.Y:= Gear^.Y + Gear^.dY * Steps;// + cGravity * (Steps * Steps);
 Gear^.dY:= Gear^.dY + cGravity * Steps;
 
-if (Gear^.FrameTicks <= Steps) or (hwRound(Gear^.Y) > cWaterLine) then
-	begin
-	if hwRound(Gear^.Y) > cWaterLine then for i:= 0 to 3 do
-		begin
-		AddVisualGear(hwRound(Gear^.X) - 16 + Random(32), hwRound(Gear^.Y) - 16 + Random(16), vgtSteam);
-		PlaySound(sndVaporize, false, nil);
-		end;
-	DeleteVisualGear(Gear);
-	end
+if Gear^.FrameTicks <= Steps then
+       DeleteVisualGear(Gear)
 else
 	dec(Gear^.FrameTicks, Steps)
 end;