equal
deleted
inserted
replaced
1643 if Gear^.State and gstFrozen <> 0 then untint |
1643 if Gear^.State and gstFrozen <> 0 then untint |
1644 end; |
1644 end; |
1645 |
1645 |
1646 procedure RenderGearTimer(Gear: PGear; x, y: LongInt); |
1646 procedure RenderGearTimer(Gear: PGear; x, y: LongInt); |
1647 begin |
1647 begin |
1648 if Gear^.RenderTimer and (Gear^.Tex <> nil) then |
1648 if Gear^.RenderTimer and (Gear^.Tex <> nil) and (isShowGearInfo or (not (Gear^.Kind in [gtMine, gtSMine, gtAirMine]))) then |
1649 DrawTextureCentered(x + 8, y + 8, Gear^.Tex); |
1649 DrawTextureCentered(x + 8, y + 8, Gear^.Tex); |
1650 end; |
1650 end; |
1651 |
1651 |
1652 procedure RenderGearHealth(Gear: PGear; x, y: LongInt); |
1652 procedure RenderGearHealth(Gear: PGear; x, y: LongInt); |
1653 begin |
1653 begin |