hedgewars/uGearsHandlersRope.pas
changeset 7662 35d895dcd6f7
parent 7660 8398faa1e628
child 7674 aead327f1e1a
--- a/hedgewars/uGearsHandlersRope.pas	Mon Sep 03 20:46:34 2012 +0200
+++ b/hedgewars/uGearsHandlersRope.pas	Mon Sep 03 14:50:26 2012 -0400
@@ -415,6 +415,8 @@
             end;
         end;
 
+    if Gear^.Elasticity < _20 then Gear^.CollisionMask:= $FF00
+    else Gear^.CollisionMask:= $FF7F;
     CheckCollision(Gear);
 
     if (Gear^.State and gstCollision) <> 0 then