hedgewars/GSHandlers.inc
changeset 2189 bf6eafc3b2e6
parent 2188 6cdf9109cc58
child 2190 cfcad6142d48
equal deleted inserted replaced
2188:6cdf9109cc58 2189:bf6eafc3b2e6
  2239 
  2239 
  2240 if  (Gear^.Health = 0)
  2240 if  (Gear^.Health = 0)
  2241     or (HHGear^.Damage <> 0)
  2241     or (HHGear^.Damage <> 0)
  2242 	or CheckGearDrowning(HHGear)
  2242 	or CheckGearDrowning(HHGear)
  2243     or (TurnTimeLeft = 0) 
  2243     or (TurnTimeLeft = 0) 
  2244     or TestCollisionYwithGear(HHGear, 1)
  2244     // allow brief ground touches - to be fair on this, might need another counter
       
  2245     or (((GameTicks and $1FF) = 0) and TestCollisionYwithGear(HHGear, 1))
  2245 	or ((Gear^.Message and gm_Attack) <> 0) then
  2246 	or ((Gear^.Message and gm_Attack) <> 0) then
  2246 	begin
  2247 	begin
  2247 	with HHGear^ do
  2248 	with HHGear^ do
  2248 		begin
  2249 		begin
  2249 		Message:= 0;
  2250 		Message:= 0;