--- a/hedgewars/uMobile.pas	Sun Dec 05 00:05:21 2010 +0100
+++ b/hedgewars/uMobile.pas	Sun Dec 05 02:44:20 2010 +0100
@@ -30,9 +30,11 @@
 procedure replayFinished; cdecl; external;
 procedure updateVisualsNewTurn; cdecl; external;
 function  isApplePhone: Boolean; cdecl; external;
+function  isAppleDeviceMuted: Boolean; cdecl; external;
 procedure AudioServicesPlaySystemSound(num: LongInt); cdecl; external;
 {$ENDIF}
 function  isPhone: Boolean; inline;
+function  isDeviceMute: Boolean; inline;
 procedure performRumble; inline;
 procedure perfExt_AddProgress; inline;
 procedure perfExt_FinishProgress; inline;
@@ -52,6 +54,14 @@
     exit(false);
 end;
 
+function isDeviceMute: Boolean; inline;
+begin
+{$IFDEF IPHONEOS}
+    exit(isAppleDeviceMuted());
+{$ENDIF}
+    exit(false);
+end;
+
 procedure performRumble; inline;
 begin
 {$IFDEF IPHONEOS}