Disable followgear on ammoshove for napalm fire damage
authornemo
Sun, 18 Oct 2009 03:54:22 +0000
changeset 2537 aceebf0653f7
parent 2536 99d4e67025a3
child 2538 661079b00177
Disable followgear on ammoshove for napalm fire damage
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;