hedgewars/uGearsRender.pas
changeset 14960 088c1d319612
parent 14954 37ae92c11a36
child 14999 d9de740e194c
equal deleted inserted replaced
14959:f59b7f5cf6e8 14960:088c1d319612
  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;