# HG changeset patch
# User nemo
# Date 1386528551 18000
# Node ID 17df4c8201f6e4502ee5ee0538a78e7be64c661c
# Parent  62c49992b049206e98755bc46ee0203e96340ae0
Add missing gstCollision bug #725

diff -r 62c49992b049 -r 17df4c8201f6 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