hedgewars/uGears.pas
changeset 3508 a7ca07614a2d
parent 3499 66eba4e41b91
child 3580 85bd667955f2
--- a/hedgewars/uGears.pas	Wed Jun 16 15:20:18 2010 +0200
+++ b/hedgewars/uGears.pas	Wed Jun 16 21:14:23 2010 +0200
@@ -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