hedgewars/VGSHandlers.inc
branchphysfslayer
changeset 8520 1dedcc37bfe8
parent 8204 9a6030d96273
child 8330 aaefa587e277
child 9080 9b42757d7e71
--- a/hedgewars/VGSHandlers.inc	Sun Nov 18 01:06:01 2012 +0400
+++ b/hedgewars/VGSHandlers.inc	Fri Feb 22 05:05:32 2013 +0100
@@ -697,7 +697,9 @@
 Gear^.doStep:= @doStepBigExplosionWork;
 if Steps > 1 then
     Gear^.doStep(Gear, Steps-1);
-performRumble();
+with mobileRecord do
+    if (performRumble <> nil) and (not fastUntilLag) then
+        performRumble(kSystemSoundID_Vibrate);
 end;
 
 procedure doStepChunk(Gear: PVisualGear; Steps: Longword);