# HG changeset patch
# User nemo
# Date 1320538188 14400
# Node ID 34aa727d4a25c44d35eb35017970ee1509d292c7
# Parent  60d7f88a7de376024e877559d7c064a30cd2c84d
Don't set moving if on flat surface

diff -r 60d7f88a7de3 -r 34aa727d4a25 hedgewars/HHHandlers.inc
--- a/hedgewars/HHHandlers.inc	Sat Nov 05 19:12:15 2011 -0400
+++ b/hedgewars/HHHandlers.inc	Sat Nov 05 20:09:48 2011 -0400
@@ -1137,7 +1137,7 @@
     begin
     slope:= CalcSlopeBelowGear(Gear);
     Gear^.dX:=Gear^.dX+cGravity*_128*slope;
-    Gear^.State:= Gear^.State or gstMoving;
+    if slope.QWordValue <> 0 then Gear^.State:= Gear^.State or gstMoving;
 (*
     x:= hwRound(Gear^.X);
     y:= hwRound(Gear^.Y);