hedgewars/uAI.pas
changeset 4225 ce9e2b05e9c1
parent 4211 7dcbd236ca59
child 4357 a1fcfc341a52
equal deleted inserted replaced
4224:99c6d87df131 4225:ce9e2b05e9c1
   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