hedgewars/uAI.pas
changeset 4197 dad127904958
parent 3894 9abce5468583
child 4198 55814f1ef60a
equal deleted inserted replaced
4196:78c45314f123 4197:dad127904958
   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 < (cHedgehogTurnTime * 1000) - 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