changeset 5722 | 3b7f2bfc8632 |
parent 5716 | 9505a6f3fe05 |
child 5728 | aca2acfba4ca |
--- a/hedgewars/GSHandlers.inc Thu Sep 01 00:00:23 2011 -0400 +++ b/hedgewars/GSHandlers.inc Thu Sep 01 17:45:21 2011 +0400 @@ -1227,7 +1227,7 @@ if abs(LongInt(HHGear^.Angle) - BTPrevAngle) > 7 then begin - Gear^.dX := SignAs(AngleSin(HHGear^.Angle) * _0_5, HHGear^.dX); + Gear^.dX := SignAs(AngleSin(HHGear^.Angle) * _0_5, Gear^.dX); Gear^.dY := AngleCos(HHGear^.Angle) * ( - _0_5); BTPrevAngle := HHGear^.Angle; b := true