hedgewars/uTeams.pas
changeset 3774 af0e68ca273e
parent 3773 f552c7b439fa
child 3798 7dcfdd595b30
--- a/hedgewars/uTeams.pas	Thu Aug 26 14:46:30 2010 +0100
+++ b/hedgewars/uTeams.pas	Thu Aug 26 16:02:09 2010 +0200
@@ -137,6 +137,7 @@
 CheckForWin:= true;
 
 TurnTimeLeft:= 0;
+ReadyTimeLeft:= 0;
 if AliveCount = 0 then
     begin // draw
     AddCaption(trmsg[sidDraw], cWhiteColor, capgrpGameState);
@@ -274,17 +275,19 @@
 
 bShowFinger:= true;
 
-if (CurrentTeam^.ExtDriven or (CurrentHedgehog^.BotLevel > 0)) then
-    PlaySound(sndIllGetYou, CurrentTeam^.voicepack)
-else
-    PlaySound(sndYesSir, CurrentTeam^.voicepack);
-
 if PlacingHogs then
    begin
    if CurrentHedgehog^.Unplaced then TurnTimeLeft:= 15000
    else TurnTimeLeft:= 0
    end
-else TurnTimeLeft:= cHedgehogTurnTime
+else TurnTimeLeft:= cHedgehogTurnTime;
+if (TurnTimeLeft > 0) and (CurrentHedgehog^.BotLevel = 0) then
+    begin
+    PlaySound(sndComeonthen, CurrentTeam^.voicepack);
+    ReadyTimeLeft:= cReadyDelay
+    end
+else
+    ReadyTimeLeft:= 0;
 end;
 
 function AddTeam(TeamColor: Longword): PTeam;