hedgewars/uGearsRender.pas
changeset 14960 088c1d319612
parent 14954 37ae92c11a36
child 14999 d9de740e194c
--- a/hedgewars/uGearsRender.pas	Wed May 15 09:08:39 2019 +0200
+++ b/hedgewars/uGearsRender.pas	Wed May 15 14:12:15 2019 +0300
@@ -1656,7 +1656,7 @@
 begin
 if isShowGearInfo and (Gear^.RenderHealth) and (Gear^.Tex <> nil) then
     begin
-    if (Gear^.Kind = gtCase) and ((Gear^.Pos and $02) <> 0) then
+    if (Gear^.Kind = gtCase) and ((Gear^.Pos and posCaseHealth) <> 0) then
         DrawTextureCentered(x, y - 38, Gear^.Tex);
     if (Gear^.Kind = gtExplosives) then
         DrawTextureCentered(x, y - 38, Gear^.Tex);