Display laser sight icon above wind bar when laser sight utility is active
authorWuzzy <Wuzzy2@mail.ru>
Sat, 18 May 2019 03:07:21 +0200
changeset 15020 6d4a607f2196
parent 15019 39dd40aca1b1
child 15021 d597a851f5d8
Display laser sight icon above wind bar when laser sight utility is active
hedgewars/uWorld.pas
--- a/hedgewars/uWorld.pas	Sat May 18 00:55:59 2019 +0200
+++ b/hedgewars/uWorld.pas	Sat May 18 03:07:21 2019 +0200
@@ -1708,6 +1708,16 @@
         begin
             DrawTextureF(ropeIconTex, 1, (cScreenWidth shr 1) - offsetX, cScreenHeight - offsetY, 0, 1, 32, 32);
             DrawTextureF(SpritesData[sprAMAmmos].Texture, 0.90, (cScreenWidth shr 1) - offsetX, cScreenHeight - offsetY, ord(amLowGravity) - 1, 1, 32, 32);
+{$IFDEF USE_TOUCH_INTERFACE}
+            offsetX := offsetX - 33
+{$ELSE}
+            offsetX := offsetX + 33
+{$ENDIF}
+        end;
+    if cLaserSighting then
+        begin
+            DrawTextureF(ropeIconTex, 1, (cScreenWidth shr 1) - offsetX, cScreenHeight - offsetY, 0, 1, 32, 32);
+            DrawTextureF(SpritesData[sprAMAmmos].Texture, 0.90, (cScreenWidth shr 1) - offsetX, cScreenHeight - offsetY, ord(amLaserSight) - 1, 1, 32, 32);
         end;
     end;