Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Allow escaping from tight spots
authornemo
Sat, 25 Aug 2012 15:04:24 -0400
changeset 7601 c96ff1a053d0
parent 7600 31a177d2856c
child 7602 a620319d377e
Allow escaping from tight spots
hedgewars/uGearsHandlersRope.pas file | annotate | diff | comparison | revisions 
--- 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
hedgewars