hedgewars/uGears.pas
changeset 2537 aceebf0653f7
parent 2492 9e80b7fc4017
child 2568 e654cbfb23ba
--- a/hedgewars/uGears.pas	Sun Oct 18 01:40:08 2009 +0000
+++ b/hedgewars/uGears.pas	Sun Oct 18 03:54:22 2009 +0000
@@ -1713,7 +1713,7 @@
 							or TestCollisionYwithGear(Gear, -1)) then Gear^.Y:= Gear^.Y - _1;
 						end;
 					
-					FollowGear:= Gear
+                    if (Ammo^.Kind <> gtFlame) or ((Ammo^.State and gsttmpFlag) = 0) then FollowGear:= Gear
 					end;
 		end
 		end;