hedgewars/uGearsHandlersMess.pas
changeset 13609 13f68f3e7153
parent 13608 92b87845beeb
child 13610 f1b6070a6e14
--- a/hedgewars/uGearsHandlersMess.pas	Mon Aug 06 15:20:25 2018 +0200
+++ b/hedgewars/uGearsHandlersMess.pas	Mon Aug 06 15:56:03 2018 +0200
@@ -3568,6 +3568,10 @@
         Gear^.Angle := (LongInt(Gear^.Angle) + 2) and 3;
         Gear^.Karma := 0;
 
+        // Bounce effect
+        if (Gear^.Radius > 2) then
+            AddBounceEffectForGear(Gear, 0.55);
+
         // Reset CakePoints to fix cake angle
         cakeData:= PCakeData(Gear^.Data);
         with cakeData^ do