make napalm strike a bit less irritating
authornemo
Wed, 27 Oct 2010 00:23:38 -0400
changeset 3997 6baa46aad645
parent 3996 eb549fd864a5
child 4002 3e173ac63849
make napalm strike a bit less irritating
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;