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.
Add missing gstCollision bug #725
authornemo
Sun, 08 Dec 2013 13:49:11 -0500
changeset 9767 17df4c8201f6
parent 9766 62c49992b049
child 9768 08799c901a42
Add missing gstCollision bug #725
hedgewars/uGearsHandlersMess.pas file | annotate | diff | comparison | revisions 
--- a/hedgewars/uGearsHandlersMess.pas	Sun Dec 08 17:58:45 2013 +0100
+++ b/hedgewars/uGearsHandlersMess.pas	Sun Dec 08 13:49:11 2013 -0500
@@ -398,7 +398,8 @@
         if (xland or land) and lfBouncy = 0 then
             begin
             Gear^.dX := tdY*Gear^.Elasticity*Gear^.Friction;
-            Gear^.dY := tdX*Gear^.Elasticity
+            Gear^.dY := tdX*Gear^.Elasticity;
+            Gear^.State := Gear^.State or gstCollision
             end
         else
             begin
hedgewars