hedgewars/uAI.pas
changeset 4210 caa9b08990eb
parent 4208 dd54999c2822
child 4211 7dcbd236ca59
equal deleted inserted replaced
4209:f133a26e05dd 4210:caa9b08990eb
   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 + 50 > cHedgehogTurnTime ) 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