|
4393
|
1 |
unit uCaptions;
|
|
|
2 |
|
|
|
3 |
interface
|
|
|
4 |
uses uTypes;
|
|
|
5 |
|
|
|
6 |
procedure AddCaption(s: shortstring; Color: Longword; Group: TCapGroup);
|
|
|
7 |
procedure DrawCaptions;
|
|
|
8 |
|
|
|
9 |
procedure initModule;
|
|
|
10 |
procedure freeModule;
|
|
|
11 |
|
|
|
12 |
implementation
|
|
4850
|
13 |
uses uTextures, uRenderUtils, uVariables, uRender;
|
|
4393
|
14 |
|
|
|
15 |
type TCaptionStr = record
|
|
|
16 |
Tex: PTexture;
|
|
|
17 |
EndTime: LongWord;
|
|
|
18 |
end;
|
|
|
19 |
var
|
|
|
20 |
Captions: array[TCapGroup] of TCaptionStr;
|
|
|
21 |
|
|
|
22 |
procedure AddCaption(s: shortstring; Color: Longword; Group: TCapGroup);
|
|
|
23 |
begin
|
|
|
24 |
if Captions[Group].Tex <> nil then
|
|
|
25 |
FreeTexture(Captions[Group].Tex);
|
|
|
26 |
Captions[Group].Tex:= nil;
|
|
|
27 |
|
|
|
28 |
Captions[Group].Tex:= RenderStringTex(s, Color, fntBig);
|
|
|
29 |
|
|
|
30 |
case Group of
|
|
|
31 |
capgrpGameState: Captions[Group].EndTime:= RealTicks + 2200
|
|
|
32 |
else
|
|
|
33 |
Captions[Group].EndTime:= RealTicks + 1400 + LongWord(Captions[Group].Tex^.w) * 3;
|
|
|
34 |
end;
|
|
|
35 |
end;
|
|
|
36 |
|
|
|
37 |
procedure DrawCaptions;
|
|
|
38 |
var
|
|
|
39 |
grp: TCapGroup;
|
|
|
40 |
offset: LongInt;
|
|
|
41 |
begin
|
|
4808
|
42 |
{$IFDEF IPHONEOS}
|
|
4393
|
43 |
offset:= 40;
|
|
4808
|
44 |
{$ELSE}
|
|
|
45 |
offset:= 8;
|
|
|
46 |
{$ENDIF}
|
|
4393
|
47 |
|
|
|
48 |
for grp:= Low(TCapGroup) to High(TCapGroup) do
|
|
|
49 |
with Captions[grp] do
|
|
|
50 |
if Tex <> nil then
|
|
|
51 |
begin
|
|
|
52 |
DrawCentered(0, offset, Tex);
|
|
|
53 |
inc(offset, Tex^.h + 2);
|
|
|
54 |
if EndTime <= RealTicks then
|
|
|
55 |
begin
|
|
|
56 |
FreeTexture(Tex);
|
|
|
57 |
Tex:= nil;
|
|
|
58 |
EndTime:= 0
|
|
|
59 |
end;
|
|
|
60 |
end;
|
|
|
61 |
end;
|
|
|
62 |
|
|
|
63 |
procedure initModule;
|
|
|
64 |
begin
|
|
|
65 |
FillChar(Captions, sizeof(Captions), 0)
|
|
|
66 |
end;
|
|
|
67 |
|
|
|
68 |
procedure freeModule;
|
|
4901
|
69 |
var
|
|
|
70 |
group: TCapGroup;
|
|
4393
|
71 |
begin
|
|
4901
|
72 |
for group:= Low(TCapGroup) to High(TCapGroup) do
|
|
|
73 |
begin
|
|
|
74 |
FreeTexture(Captions[group].Tex);
|
|
|
75 |
end;
|
|
4393
|
76 |
end;
|
|
|
77 |
|
|
|
78 |
end.
|