Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uWorld.pas
changeset 203 0ee86f9d9ba6
parent 198 6f00e0f4cb88
child 244 b37ca2295b73 
--- a/hedgewars/uWorld.pas	Thu Oct 19 18:57:58 2006 +0000
+++ b/hedgewars/uWorld.pas	Wed Oct 25 18:03:41 2006 +0000
@@ -235,7 +235,7 @@
                         if ShowCrosshair and ((Gear.State and gstAttacked) = 0) then
                            DrawSurfSprite(Round(Gear.X + hwSign(Gear.dX) * Sin(Gear.Angle*pi/cMaxAngle)*60) + WorldDx - 8,
                                           Round(Gear.Y - Cos(Gear.Angle*pi/cMaxAngle)*60) + WorldDy - 12,
-                                          24, 0,
+                                          24, (18 + hwSign(Gear.dX) * integer(((Gear.Angle * 72 div cMaxAngle) + 1) div 2) mod 18) mod 18,
                                           Team.CrosshairSurf, Surface);
                      end;
       team:= team.Next
hedgewars