hedgewars/uWorld.pas
changeset 7403 e8d0b21efa82
parent 7368 20448801e86a
child 7404 38a23771ee45
--- a/hedgewars/uWorld.pas	Fri Jul 20 09:09:17 2012 +0400
+++ b/hedgewars/uWorld.pas	Fri Jul 20 12:25:53 2012 +0100
@@ -1114,6 +1114,7 @@
     highlight: Boolean;
     smallScreenOffset, offsetX, offsetY, screenBottom: LongInt;
     VertexBuffer: array [0..3] of TVertex2f;
+	volume: LongInt;
 begin
 if (cReducedQuality and rqNoBackground) = 0 then
     begin
@@ -1526,14 +1527,18 @@
 end;
 
 if SoundTimerTicks >= 50 then
-   begin
-   SoundTimerTicks:= 0;
-   if cVolumeDelta <> 0 then
-      begin
-      str(ChangeVolume(cVolumeDelta), s);
-      AddCaption(Format(trmsg[sidVolume], s), cWhiteColor, capgrpVolume)
-      end
-   end;
+begin
+    SoundTimerTicks:= 0;
+    if cVolumeDelta <> 0 then
+    begin
+        str(ChangeVolume(cVolumeDelta), s);
+        AddCaption(Format(trmsg[sidVolume], s), cWhiteColor, capgrpVolume);
+    end;
+	if isAudioMuted then
+		AddCaption(trmsg[sidMute], cWhiteColor, capgrpVolume)
+	else
+        FreeTexture(Captions[capgrpVolume].Tex)
+end;
 
 if GameState = gsConfirm then
     DrawTextureCentered(0, (cScreenHeight shr 1), ConfirmTexture);