Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix crosshairs spinning around
authoralfadur
Sun, 21 Jun 2020 03:17:57 +0300
changeset 15624 adbd2bcf7159
parent 15623 6c689729b745
child 15625 1b044b47773b
fix crosshairs spinning around
hedgewars/uGearsRender.pas file | annotate | diff | comparison | revisions 
--- 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,
hedgewars