hedgewars/uGearsRender.pas
changeset 8145 6408c0ba4ba1
parent 7978 2ce76d1f594b
child 8161 0b8beacff8a5
equal deleted inserted replaced
8143:3f2ba6debbdd 8145:6408c0ba4ba1
    36                 rounded: array[0..MAXROPEPOINTS + 2] of TVertex2f;
    36                 rounded: array[0..MAXROPEPOINTS + 2] of TVertex2f;
    37                 end;
    37                 end;
    38 
    38 
    39 implementation
    39 implementation
    40 uses uRender, uUtils, uVariables, uAmmos, Math, uVisualGears;
    40 uses uRender, uUtils, uVariables, uAmmos, Math, uVisualGears;
       
    41 
       
    42 const
       
    43     // hog tag mask
       
    44     htNone        = $00;
       
    45     htTeamName    = $01;
       
    46     htName        = $02;
       
    47     htHealth      = $04;
       
    48     htTransparent = $08;
    41 
    49 
    42 procedure DrawRopeLinesRQ(Gear: PGear);
    50 procedure DrawRopeLinesRQ(Gear: PGear);
    43 begin
    51 begin
    44 with RopePoints do
    52 with RopePoints do
    45     begin
    53     begin