# HG changeset patch
# User nemo
# Date 1288153418 14400
# Node ID 6baa46aad64560620d083d3c4f09647489253cb3
# Parent  eb549fd864a5640a328b45a442e87f48622ccd14
make napalm strike a bit less irritating

diff -r eb549fd864a5 -r 6baa46aad645 hedgewars/uGears.pas
--- a/hedgewars/uGears.pas	Mon Oct 25 22:19:00 2010 +0200
+++ b/hedgewars/uGears.pas	Wed Oct 27 00:23:38 2010 -0400
@@ -1309,7 +1309,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;