hedgewars/uAI.pas
changeset 4208 dd54999c2822
parent 4198 55814f1ef60a
child 4210 caa9b08990eb
equal deleted inserted replaced
4207:31e77dcf18fe 4208:dd54999c2822
   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 - 50) then
   336         and (TurnTimeLeft + 50 > cHedgehogTurnTime ) 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