equal
deleted
inserted
replaced
35 ar : array[0..MAXROPEPOINTS] of Tar; |
35 ar : array[0..MAXROPEPOINTS] of Tar; |
36 rounded : array[0..MAXROPEPOINTS + 2] of TVertex2f; |
36 rounded : array[0..MAXROPEPOINTS + 2] of TVertex2f; |
37 end; |
37 end; |
38 procedure RenderGear(Gear: PGear; x, y: LongInt); |
38 procedure RenderGear(Gear: PGear; x, y: LongInt); |
39 procedure RenderGearTimer(Gear: PGear; x, y: LongInt); |
39 procedure RenderGearTimer(Gear: PGear; x, y: LongInt); |
|
40 procedure RenderGearHealth(Gear: PGear; x, y: LongInt); |
40 procedure RenderHHGuiExtras(Gear: PGear; ox, oy: LongInt); |
41 procedure RenderHHGuiExtras(Gear: PGear; ox, oy: LongInt); |
41 procedure DrawHHOrder(); |
42 procedure DrawHHOrder(); |
42 |
43 |
43 var RopePoints: record |
44 var RopePoints: record |
44 Count: Longword; |
45 Count: Longword; |
1646 begin |
1647 begin |
1647 if Gear^.RenderTimer and (Gear^.Tex <> nil) then |
1648 if Gear^.RenderTimer and (Gear^.Tex <> nil) then |
1648 DrawTextureCentered(x + 8, y + 8, Gear^.Tex); |
1649 DrawTextureCentered(x + 8, y + 8, Gear^.Tex); |
1649 end; |
1650 end; |
1650 |
1651 |
|
1652 procedure RenderGearHealth(Gear: PGear; x, y: LongInt); |
|
1653 begin |
|
1654 if isShowGearInfo and (Gear^.RenderHealth) and (Gear^.Tex <> nil) then |
|
1655 begin |
|
1656 if (Gear^.Kind = gtCase) and ((Gear^.Pos and $02) <> 0) then |
|
1657 DrawTextureCentered(x, y - 38, Gear^.Tex); |
|
1658 if (Gear^.Kind = gtExplosives) then |
|
1659 DrawTextureCentered(x, y - 38, Gear^.Tex); |
|
1660 end; |
|
1661 end; |
|
1662 |
1651 end. |
1663 end. |