diff -r 75db7bb8dce8 -r c18ba8726f5a hedgewars/VGSHandlers.inc
--- a/hedgewars/VGSHandlers.inc	Sun Jan 27 00:28:57 2013 +0100
+++ b/hedgewars/VGSHandlers.inc	Tue Feb 19 22:45:02 2013 +0400
@@ -704,9 +704,12 @@
 Gear^.doStep:= @doStepBigExplosionWork;
 if Steps > 1 then
     Gear^.doStep(Gear, Steps-1);
+
+{$IFNDEF PAS2C}
 with mobileRecord do
     if (performRumble <> nil) and (not fastUntilLag) then
         performRumble(kSystemSoundID_Vibrate);
+{$ENDIF}
 end;
 
 procedure doStepChunk(Gear: PVisualGear; Steps: Longword);