hedgewars/uAI.pas
changeset 4198 55814f1ef60a
parent 4197 dad127904958
child 4208 dd54999c2822
equal deleted inserted replaced
4197:dad127904958 4198:55814f1ef60a
   331       cStopThinkTime = 40;
   331       cStopThinkTime = 40;
   332 begin
   332 begin
   333 with CurrentHedgehog^ do
   333 with CurrentHedgehog^ do
   334      if (Gear <> nil)
   334      if (Gear <> nil)
   335         and ((Gear^.State and gstHHDriven) <> 0)
   335         and ((Gear^.State and gstHHDriven) <> 0)
   336         and (TurnTimeLeft < (cHedgehogTurnTime * 1000) - 50) then
   336         and (TurnTimeLeft < cHedgehogTurnTime - 50) then
   337         if ((Gear^.State and gstHHThinking) = 0) then
   337         if ((Gear^.State and gstHHThinking) = 0) then
   338            if (BestActions.Pos >= BestActions.Count)
   338            if (BestActions.Pos >= BestActions.Count)
   339               and (TurnTimeLeft > cStopThinkTime) then
   339               and (TurnTimeLeft > cStopThinkTime) then
   340               begin
   340               begin
   341               if Gear^.Message <> 0 then
   341               if Gear^.Message <> 0 then