hedgewars/uGame.pas
branchios-develop
changeset 13413 ba39a1d396c0
parent 13039 aed4b25ff242
child 13495 f725701ca529
equal deleted inserted replaced
13411:6e8b807bda4b 13413:ba39a1d396c0
    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