hedgewars/uGearsHandlersRope.pas
changeset 7601 c96ff1a053d0
parent 7596 2c12b8cbd002
child 7602 a620319d377e
--- a/hedgewars/uGearsHandlersRope.pas	Sat Aug 25 23:00:19 2012 +0400
+++ b/hedgewars/uGearsHandlersRope.pas	Sat Aug 25 15:04:24 2012 -0400
@@ -431,6 +431,8 @@
             end;
         end;
 
+    if Gear^.Elasticity < _20 then Gear^.CollisionMask:= $FF00
+    else Gear^.CollisionMask:= $FF7F;
     CheckCollision(Gear);
 
     if (Gear^.State and gstCollision) <> 0 then