fix crosshairs spinning around
authoralfadur
Sun, 21 Jun 2020 03:17:57 +0300
changeset 15646 adbd2bcf7159
parent 15645 6c689729b745
child 15647 1b044b47773b
fix crosshairs spinning around
hedgewars/uGearsRender.pas
--- a/hedgewars/uGearsRender.pas	Sun Jun 21 03:08:21 2020 +0300
+++ b/hedgewars/uGearsRender.pas	Sun Jun 21 03:17:57 2020 +0300
@@ -315,9 +315,14 @@
     // render crosshair
     if (CrosshairGear <> nil) and (Gear = CrosshairGear) then
         begin
-        hogLR:= 1;
-        if IsHogFacingLeft(Gear) then
-            hogLR:= -1;
+        if (CurAmmoGear <> nil) and (CurAmmoGear^.Kind = gtBlowTorch) then
+            hogLR:= CurAmmoGear^.Tag
+        else
+            begin
+            hogLR:= 1;
+            if IsHogFacingLeft(Gear) then
+                hogLR:= -1
+            end;
         setTintAdd(true);
         Tint(HH^.Team^.Clan^.Color shl 8 or $FF);
         DrawTextureRotated(CrosshairTexture,