hedgewars/uAI.pas
changeset 441 f2920f08ea5f
parent 439 c336ed82e76d
child 442 57ed1444606e
equal deleted inserted replaced
440:710d12dbeb61 441:f2920f08ea5f
    40    {$IFDEF DEBUGFILE}AddFileLog('Waiting AI thread to finish');{$ENDIF}
    40    {$IFDEF DEBUGFILE}AddFileLog('Waiting AI thread to finish');{$ENDIF}
    41    StopThinking:= true;
    41    StopThinking:= true;
    42    SDL_WaitThread(ThinkThread, nil);
    42    SDL_WaitThread(ThinkThread, nil);
    43    ThinkThread:= nil
    43    ThinkThread:= nil
    44    end;
    44    end;
    45 
       
    46 with CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog] do
       
    47      if Gear <> nil then Gear^.Message:= 0;
       
    48 
    45 
    49 BestActions.Count:= 0;
    46 BestActions.Count:= 0;
    50 BestActions.Pos:= 0
    47 BestActions.Pos:= 0
    51 end;
    48 end;
    52 
    49