hedgewars/uGearsHandlersMess.pas
changeset 10815 2a85c551909c
parent 10807 66cde98f8cbe
child 10818 f642a28cab0c
equal deleted inserted replaced
10814:810ac1d21fd0 10815:2a85c551909c
  1797     // then we aren't hunting
  1797     // then we aren't hunting
  1798     if (ReadyTimeLeft > 0) or (TurnTimeLeft = 0) or 
  1798     if (ReadyTimeLeft > 0) or (TurnTimeLeft = 0) or 
  1799         ((TurnTimeLeft < cHedgehogTurnTime) and (cHedgehogTurnTime-TurnTimeLeft < 5000)) or
  1799         ((TurnTimeLeft < cHedgehogTurnTime) and (cHedgehogTurnTime-TurnTimeLeft < 5000)) or
  1800         (Gear^.State and gsttmpFlag = 0) or
  1800         (Gear^.State and gsttmpFlag = 0) or
  1801         (Gear^.Angle = 0) then
  1801         (Gear^.Angle = 0) then
  1802         gear^.State:= gear^.State and not gstHHChooseTarget
  1802         gear^.State:= gear^.State and (not gstHHChooseTarget)
  1803     else if
  1803     else if
  1804     // todo, allow not finding new target, set timeout on target retention
  1804     // todo, allow not finding new target, set timeout on target retention
  1805         (Gear^.State and gstAttacking = 0) and
  1805         (Gear^.State and gstAttacking = 0) and
  1806         ((GameTicks and $FF) = 17) and
  1806         ((GameTicks and $FF) = 17) and
  1807         (GameTicks > Gear^.FlightTime) then // recheck hunted hog
  1807         (GameTicks > Gear^.FlightTime) then // recheck hunted hog