hedgewars/uCommandHandlers.pas
changeset 13039 aed4b25ff242
parent 13013 4234a18a082c
child 13077 c213645ff848
--- a/hedgewars/uCommandHandlers.pas	Tue Feb 20 15:37:36 2018 +0100
+++ b/hedgewars/uCommandHandlers.pas	Tue Feb 20 17:52:22 2018 +0100
@@ -569,6 +569,12 @@
 dec(cVolumeDelta, 3)
 end;
 
+procedure chMute(var s: shortstring);
+begin
+s:= s; // avoid compiler hint
+cMuteToggle:= true;
+end;
+
 procedure chFindhh(var s: shortstring);
 begin
 s:= s; // avoid compiler hint
@@ -901,6 +907,7 @@
     RegisterVariable('-volup'  , @chVol_m        , true );
     RegisterVariable('+voldown', @chVol_m        , true );
     RegisterVariable('-voldown', @chVol_p        , true );
+    RegisterVariable('mute'    , @chMute         , true );
     RegisterVariable('findhh'  , @chFindhh       , true );
     RegisterVariable('pause'   , @chPause        , true );
     RegisterVariable('+cur_u'  , @chCurU_p       , true );