hedgewars/uGearsRender.pas
changeset 15652 c9fec197335a
parent 15646 adbd2bcf7159
child 15661 afeffdb4a712
--- a/hedgewars/uGearsRender.pas	Wed Jun 24 17:27:57 2020 +0200
+++ b/hedgewars/uGearsRender.pas	Wed Jun 24 19:50:58 2020 +0300
@@ -315,14 +315,9 @@
     // render crosshair
     if (CrosshairGear <> nil) and (Gear = CrosshairGear) then
         begin
-        if (CurAmmoGear <> nil) and (CurAmmoGear^.Kind = gtBlowTorch) then
-            hogLR:= CurAmmoGear^.Tag
-        else
-            begin
-            hogLR:= 1;
-            if IsHogFacingLeft(Gear) then
-                hogLR:= -1
-            end;
+        hogLR:= 1;
+        if IsHogFacingLeft(Gear) then
+            hogLR:= -1;
         setTintAdd(true);
         Tint(HH^.Team^.Clan^.Color shl 8 or $FF);
         DrawTextureRotated(CrosshairTexture,
@@ -421,8 +416,6 @@
         hogLR:= -1
     else
         hogLR:= 1;
-    if (CurAmmoGear <> nil) and (CurAmmoGear^.Kind = gtBlowTorch) then
-        hogLR:= CurAmmoGear^.Tag;
 
     if (Gear^.State and gstHHDeath) <> 0 then
         begin
@@ -669,7 +662,6 @@
                     end;
                 gtBlowTorch:
                     begin
-                    sign:= CurAmmoGear^.Tag;
                     DrawSpriteRotated(sprBlowTorch, ox + 8 * sign, oy - 2, sign, aangle);
                     DrawHedgehog(ox + 1, oy - 3,
                             sign,