hedgewars/uTeams.pas
changeset 800 e95f16b7ec80
parent 783 4f59db6f147d
child 801 0323e5c7ee54
--- a/hedgewars/uTeams.pas	Fri Mar 07 14:10:13 2008 +0000
+++ b/hedgewars/uTeams.pas	Fri Mar 07 14:32:26 2008 +0000
@@ -90,7 +90,7 @@
 procedure SendStats;
 
 implementation
-uses uMisc, uWorld, uAI, uLocale, uConsole, uAmmos;
+uses uMisc, uWorld, uAI, uLocale, uConsole, uAmmos, uSound;
 const MaxTeamHealth: LongInt = 0;
 
 procedure FreeTeamsList; forward;
@@ -191,9 +191,13 @@
 g^.Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed);
 {$IFDEF DEBUGFILE}AddFileLog('Wind = '+FloatToStr(cWindSpeed));{$ENDIF}
 ApplyAmmoChanges(CurrentHedgehog^);
+
 if CurrentTeam^.ExtDriven then SetDefaultBinds
                           else SetBinds(CurrentTeam^.Binds);
 bShowFinger:= true;
+
+if not (CurrentTeam^.ExtDriven or (CurrentHedgehog^.BotLevel > 0)) then PlaySound(sndYesSir, false);
+
 TurnTimeLeft:= cHedgehogTurnTime
 end;