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
--- 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