hedgewars/GSHandlers.inc
changeset 8204 9a6030d96273
parent 8061 c08e9c3e0737
child 8330 aaefa587e277
child 8370 0c79946e96f8
--- a/hedgewars/GSHandlers.inc	Mon Dec 03 17:49:02 2012 +0100
+++ b/hedgewars/GSHandlers.inc	Mon Dec 03 17:51:57 2012 +0100
@@ -2223,7 +2223,9 @@
         begin
         doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, Gear^.Hedgehog, EXPLAutoSound);
         DeleteGear(Gear);
-        performRumble();
+        with mobileRecord do
+            if (performRumble <> nil) and (not fastUntilLag) then
+                performRumble(kSystemSoundID_Vibrate);
         exit
         end;
     if (GameTicks and $3F) = 0 then
@@ -4308,7 +4310,9 @@
     Gear^.dY.isNegative := not Gear^.dY.isNegative;
 
     Gear^.doStep := @doStepSineGunShotWork;
-    performRumble();
+    with mobileRecord do
+        if (performRumble <> nil) and (not fastUntilLag) then
+            performRumble(kSystemSoundID_Vibrate);
 end;
 
 ////////////////////////////////////////////////////////////////////////////////