changeset 13 | 7a5db822fd3f |
parent 6 | 9c1f00e7b43e |
child 23 | 16322d14f068 |
--- a/hedgewars/uWorld.pas Tue Sep 06 19:09:39 2005 +0000 +++ b/hedgewars/uWorld.pas Wed Sep 07 18:51:53 2005 +0000 @@ -139,6 +139,7 @@ if (Gear.State and gstHHThinking) <> 0 then DrawGear(sQuestion, Round(Gear.X) - 10 + WorldDx, Round(Gear.Y) - cHHHalfHeight - 34 + WorldDy, Surface) else + if ShowCrosshair then DrawCaption(Round(Gear.X + Sign(Gear.dX) * Sin(Gear.Angle*pi/cMaxAngle)*60) + WorldDx, Round(Gear.Y - Cos(Gear.Angle*pi/cMaxAngle)*60) + WorldDy - 5, Team.CrossHairRect, Surface)