hedgewars/uVisualGears.pas
changeset 2146 f70cd51704c1
parent 2143 ad05f6b2d1c0
child 2152 a2811690da1b
--- 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;