--- a/hedgewars/uMobile.pas	Sun Oct 31 04:16:10 2010 +0100
+++ b/hedgewars/uMobile.pas	Sun Oct 31 18:04:02 2010 +0100
@@ -22,7 +22,7 @@
 interface
 
 {$IFDEF IPHONEOS}
-(*  iOS calls written in C/Objc  *)
+(*  iOS calls written in ObjcExports.m  *)
 procedure clearView; cdecl; external;
 procedure startSpinning; cdecl; external;
 procedure stopSpinning; cdecl; external;
@@ -30,9 +30,10 @@
 procedure replayFinished; cdecl; external;
 procedure updateVisualsNewTurn; cdecl; external;
 function  isApplePhone: Boolean; cdecl; external;
+procedure AudioServicesPlaySystemSound(num: LongInt); cdecl; external;
 {$ENDIF}
 function  isPhone: Boolean; inline;
-procedure doRumble; inline;
+procedure performRumble; inline;
 procedure perfExt_AddProgress; inline;
 procedure perfExt_FinishProgress; inline;
 procedure perfExt_AmmoUpdate; // don't inline
@@ -51,9 +52,12 @@
     exit(false);
 end;
 
-procedure doRumble; inline;
+procedure performRumble; inline;
 begin
-    // fill me!
+{$IFDEF IPHONEOS}
+    // kSystemSoundID_Vibrate = $00000FFF
+    AudioServicesPlaySystemSound($00000FFF);
+{$ENDIF}
 end;
 
 procedure perfExt_AddProgress; inline;