hedgewars/uGame.pas
changeset 13039 aed4b25ff242
parent 11605 dc8de75747f9
child 13491 f725701ca529
equal deleted inserted replaced
13038:356995c8c48b 13039:aed4b25ff242
    91         else if not isAudioMuted then
    91         else if not isAudioMuted then
    92             begin
    92             begin
    93             s:= ansistring(inttostr(i));
    93             s:= ansistring(inttostr(i));
    94             AddCaption(FormatA(trmsg[sidVolume], s), cWhiteColor, capgrpVolume)
    94             AddCaption(FormatA(trmsg[sidVolume], s), cWhiteColor, capgrpVolume)
    95             end
    95             end
       
    96         end
       
    97     else if cMuteToggle then
       
    98         begin
       
    99         MuteAudio;
       
   100         if isAudioMuted then
       
   101             AddCaption(trmsg[sidMute], cWhiteColor, capgrpVolume)
       
   102         else
       
   103             begin
       
   104             s:= ansistring(inttostr(GetVolumePercent()));
       
   105             AddCaption(FormatA(trmsg[sidVolume], s), cWhiteColor, capgrpVolume);
       
   106             end;
       
   107         cMuteToggle:= false;
    96         end;
   108         end;
    97     end;
   109     end;
    98 PlayNextVoice;
   110 PlayNextVoice;
    99 i:= 1;
   111 i:= 1;
   100 while (GameState <> gsExit) and (i <= Lag) and allOK do
   112 while (GameState <> gsExit) and (i <= Lag) and allOK do