hedgewars/uGears.pas
changeset 4007 c76c895825ab
parent 4003 ca0600ab38bf
parent 4002 3e173ac63849
child 4024 1ffb84b3823d
--- a/hedgewars/uGears.pas	Fri Oct 29 00:24:17 2010 +0200
+++ b/hedgewars/uGears.pas	Fri Oct 29 00:25:18 2010 +0200
@@ -1307,7 +1307,7 @@
                                 if not Gear^.Invulnerable then
                                     Gear^.State:= (Gear^.State or gstMoving) and (not gstWinner);
                                 Gear^.Active:= true;
-                                FollowGear:= Gear
+                                if Gear^.Kind <> gtFlame then FollowGear:= Gear
                                 end;
                             if ((Mask and EXPLPoisoned) <> 0) and (Gear^.Kind = gtHedgehog) then
                                 PHedgehog(Gear^.Hedgehog)^.Effects[hePoisoned] := true;