equal
deleted
inserted
replaced
1654 |
1654 |
1655 procedure RenderGearHealth(Gear: PGear; x, y: LongInt); |
1655 procedure RenderGearHealth(Gear: PGear; x, y: LongInt); |
1656 begin |
1656 begin |
1657 if isShowGearInfo and (Gear^.RenderHealth) and (Gear^.Tex <> nil) then |
1657 if isShowGearInfo and (Gear^.RenderHealth) and (Gear^.Tex <> nil) then |
1658 begin |
1658 begin |
1659 if (Gear^.Kind = gtCase) and ((Gear^.Pos and $02) <> 0) then |
1659 if (Gear^.Kind = gtCase) and ((Gear^.Pos and posCaseHealth) <> 0) then |
1660 DrawTextureCentered(x, y - 38, Gear^.Tex); |
1660 DrawTextureCentered(x, y - 38, Gear^.Tex); |
1661 if (Gear^.Kind = gtExplosives) then |
1661 if (Gear^.Kind = gtExplosives) then |
1662 DrawTextureCentered(x, y - 38, Gear^.Tex); |
1662 DrawTextureCentered(x, y - 38, Gear^.Tex); |
1663 end; |
1663 end; |
1664 end; |
1664 end; |