hedgewars/uTeams.pas
changeset 3798 7dcfdd595b30
parent 3774 af0e68ca273e
child 3799 5341dc5a8919
equal deleted inserted replaced
3797:e097914ac0e2 3798:7dcfdd595b30
   281    else TurnTimeLeft:= 0
   281    else TurnTimeLeft:= 0
   282    end
   282    end
   283 else TurnTimeLeft:= cHedgehogTurnTime;
   283 else TurnTimeLeft:= cHedgehogTurnTime;
   284 if (TurnTimeLeft > 0) and (CurrentHedgehog^.BotLevel = 0) then
   284 if (TurnTimeLeft > 0) and (CurrentHedgehog^.BotLevel = 0) then
   285     begin
   285     begin
   286     PlaySound(sndComeonthen, CurrentTeam^.voicepack);
   286     if CurrentTeam^.ExtDriven then
       
   287         PlaySound(sndIllGetYou, CurrentTeam^.voicepack)
       
   288     else
       
   289         PlaySound(sndYesSir, CurrentTeam^.voicepack);
   287     ReadyTimeLeft:= cReadyDelay
   290     ReadyTimeLeft:= cReadyDelay
   288     end
   291     end
   289 else
   292 else
   290     ReadyTimeLeft:= 0;
   293     begin
       
   294     if TurnTimeLeft > 0 then
       
   295         PlaySound(sndIllGetYou, CurrentTeam^.voicepack);
       
   296     ReadyTimeLeft:= 0
       
   297     end
   291 end;
   298 end;
   292 
   299 
   293 function AddTeam(TeamColor: Longword): PTeam;
   300 function AddTeam(TeamColor: Longword): PTeam;
   294 var team: PTeam;
   301 var team: PTeam;
   295     c: LongInt;
   302     c: LongInt;