Don't set moving if on flat surface
authornemo
Sat, 05 Nov 2011 20:09:48 -0400
changeset 6294 34aa727d4a25
parent 6293 60d7f88a7de3
child 6295 5b2b304a91ec
Don't set moving if on flat surface
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);