# HG changeset patch
# User nemo
# Date 1255838062 0
# Node ID aceebf0653f72352a272bb9a3039cf4765e41ed6
# Parent  99d4e67025a335fdb5a736f63951016cfcb3147c
Disable followgear on ammoshove for napalm fire damage

diff -r 99d4e67025a3 -r aceebf0653f7 hedgewars/uGears.pas
--- 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;