hedgewars/uAI.pas
changeset 442 57ed1444606e
parent 441 f2920f08ea5f
child 445 fb66abeb551f
equal deleted inserted replaced
441:f2920f08ea5f 442:57ed1444606e
    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 
    45 
       
    46    with CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog] do
       
    47      if Gear <> nil then Gear^.Message:= 0;
       
    48      
    46 BestActions.Count:= 0;
    49 BestActions.Count:= 0;
    47 BestActions.Pos:= 0
    50 BestActions.Pos:= 0
    48 end;
    51 end;
    49 
    52 
    50 procedure TestAmmos(var Actions: TActions; Me: PGear);
    53 procedure TestAmmos(var Actions: TActions; Me: PGear);