hedgewars/uGears.pas
changeset 3512 6a8b5f313190
parent 3508 a7ca07614a2d
child 3580 85bd667955f2
--- a/hedgewars/uGears.pas	Thu Jun 17 11:41:38 2010 -0400
+++ b/hedgewars/uGears.pas	Thu Jun 17 11:42:23 2010 -0400
@@ -431,6 +431,7 @@
                 gear^.Radius:= 7;
                 gear^.Z:= cOnHHZ;
                 gear^.RenderTimer:= true;
+                gear^.DirAngle:= -90 * hwSign(Gear^.dX);
                 if not dX.isNegative then gear^.Angle:= 1 else gear^.Angle:= 3
                 end;
  gtHellishBomb: begin