hedgewars/GSHandlers.inc
changeset 2190 cfcad6142d48
parent 2189 bf6eafc3b2e6
child 2196 7032f286301b
equal deleted inserted replaced
2189:bf6eafc3b2e6 2190:cfcad6142d48
  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     // allow brief ground touches - to be fair on this, might need another counter
  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 (((GameTicks and $1FF) = 0) and (not HHGear^.dY.isNegative) and TestCollisionYwithGear(HHGear, 1))
  2246 	or ((Gear^.Message and gm_Attack) <> 0) then
  2246 	or ((Gear^.Message and gm_Attack) <> 0) then
  2247 	begin
  2247 	begin
  2248 	with HHGear^ do
  2248 	with HHGear^ do
  2249 		begin
  2249 		begin
  2250 		Message:= 0;
  2250 		Message:= 0;