# HG changeset patch
# User Wuzzy <Wuzzy2@mail.ru>
# Date 1547177887 -3600
# Node ID 5ae97eab70ebbc6769470b9725adc7b32c8815ad
# Parent  05b9298085850181610bf6fe5706859e3c4701cc
Make sure to render crosshair above render

diff -r 05b929808585 -r 5ae97eab70eb hedgewars/uGearsRender.pas
--- a/hedgewars/uGearsRender.pas	Fri Jan 11 03:50:06 2019 +0100
+++ b/hedgewars/uGearsRender.pas	Fri Jan 11 04:38:07 2019 +0100
@@ -263,7 +263,7 @@
 // Render some informational GUI next to hedgehog, like fuel and alternate weapon
 procedure RenderHHGuiExtras(Gear: PGear; ox, oy: LongInt);
 var HH: PHedgehog;
-    sx, sy: LongInt;
+    sx, sy, sign, m: LongInt;
 begin
     HH:= Gear^.Hedgehog;
     sx:= ox + 1; // this offset is very common
@@ -275,6 +275,23 @@
     if (Gear^.State and gstHHGone) <> 0 then
         exit;
 
+    // render crosshair
+    if (Gear = CrosshairGear) then
+        begin
+        sign:= hwSign(Gear^.dX);
+        m:= 1;
+        if ((Gear^.State and gstHHHJump) <> 0) and (HH^.Effects[heArtillery] = 0) then
+            m:= -1;
+        setTintAdd(true);
+        Tint(HH^.Team^.Clan^.Color shl 8 or $FF);
+        DrawTextureRotated(CrosshairTexture,
+                12, 12, CrosshairX + WorldDx, CrosshairY + WorldDy, 0,
+                sign * m * (Gear^.Angle * 180.0) / cMaxAngle);
+        untint;
+        setTintAdd(false);
+        end;
+
+    // render gear-related extras: alt weapon, fuel, other
     if ((Gear^.State and gstHHDriven) <> 0) and (CurAmmoGear <> nil) then
         begin
         case CurAmmoGear^.Kind of
@@ -496,17 +513,11 @@
 
                 DrawLineWrapped(hx, hy, tx, ty, 1.0, (sign*m) < 0, wraps, $FF, $00, $00, $C0);
                 end;
-            // draw crosshair
+            // calculate crosshair position
             CrosshairX := Round(hwRound(Gear^.X) + dx * 80 + GetLaunchX(HH^.CurAmmoType, sign * m, Gear^.Angle));
             CrosshairY := Round(hwRound(Gear^.Y) + dy * 80 + GetLaunchY(HH^.CurAmmoType, Gear^.Angle));
-
-            setTintAdd(true);
-            Tint(HH^.Team^.Clan^.Color shl 8 or $FF);
-            DrawTextureRotated(CrosshairTexture,
-                    12, 12, CrosshairX + WorldDx, CrosshairY + WorldDy, 0,
-                    sign * m * (Gear^.Angle * 180.0) / cMaxAngle);
-            untint;
-            setTintAdd(false);
+            // crosshair will be rendered in RenderHHGuiExtras
+            CrosshairGear := Gear;
             end;
 
         hx:= ox + 8 * sign;
@@ -922,6 +933,7 @@
 
     end else // not gstHHDriven
         begin
+        CrosshairGear:= nil;
         // check if hedgehog is sliding/rolling
         if (Gear^.Damage > 0) and (HH^.Effects[heFrozen] = 0)
         and (hwSqr(Gear^.dX) + hwSqr(Gear^.dY) > _0_003) then
diff -r 05b929808585 -r 5ae97eab70eb hedgewars/uVariables.pas
--- a/hedgewars/uVariables.pas	Fri Jan 11 03:50:06 2019 +0100
+++ b/hedgewars/uVariables.pas	Fri Jan 11 04:38:07 2019 +0100
@@ -186,6 +186,7 @@
 
     CrosshairX      : LongInt;
     CrosshairY      : LongInt;
+    CrosshairGear   : PGear;
     CursorMovementX : LongInt;
     CursorMovementY : LongInt;
     cWaveHeight     : LongInt;