| author | koda |
| Sun, 11 Nov 2012 22:29:58 +0100 | |
| branch | webgl |
| changeset 8038 | 625b628d55f3 |
| parent 8026 | 4a4f21070479 |
| permissions | -rw-r--r-- |
|
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
1 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
2 |
// defines functions used for web port |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
3 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
4 |
unit uWeb; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
5 |
interface |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
6 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
7 |
type |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
8 |
TResourceList = record |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
9 |
count : Integer; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
10 |
files : array[0..500] of shortstring; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
11 |
end; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
12 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
13 |
function generateResourceList:TResourceList; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
14 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
15 |
implementation |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
16 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
17 |
uses uConsts, uVariables, uTypes; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
18 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
19 |
function readThemeCfg:TResourceList; forward; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
20 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
21 |
function generateResourceList:TResourceList; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
22 |
var |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
23 |
cfgRes : TResourceList; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
24 |
i,j : Integer; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
25 |
t, t2 : shortstring; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
26 |
si : TSprite; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
27 |
res : TResourceList; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
28 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
29 |
begin |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
30 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
31 |
res.count := 0; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
32 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
33 |
for i:= 0 to Pred(TeamsCount) do |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
34 |
with TeamsArray[i]^ do |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
35 |
begin |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
36 |
Str(i, t); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
37 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
38 |
res.files[res.count] := UserPathz[ptGraves] + '/' + GraveName; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
39 |
res.files[res.count + 1] := UserPathz[ptForts] + '/' + FortName; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
40 |
res.files[res.count + 2] := UserPathz[ptGraphics] + '/' + FortName; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
41 |
res.files[res.count + 3] := UserPathz[ptFlags] + '/' + flag; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
42 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
43 |
inc(res.count, 4); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
44 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
45 |
end; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
46 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
47 |
for si:= Low(TSprite) to High(TSprite) do |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
48 |
with SpritesData[si] do |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
49 |
begin |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
50 |
Str(si, t); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
51 |
res.files[res.count] := UserPathz[Path] + '/' + FileName; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
52 |
res.files[res.count + 1] := UserPathz[AltPath] + '/' + FileName; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
53 |
inc(res.count, 2); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
54 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
55 |
end; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
56 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
57 |
for i:= 0 to Pred(ClansCount) do |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
58 |
with CLansArray[i]^ do |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
59 |
begin |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
60 |
for j:= 0 to Pred(TeamsNumber) do |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
61 |
begin |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
62 |
with Teams[j]^ do |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
63 |
begin |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
64 |
Str(i, t); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
65 |
Str(j, t2); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
66 |
res.files[res.count] := UserPathz[ptForts] + '/' + FortName; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
67 |
inc(res.count); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
68 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
69 |
end; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
70 |
end; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
71 |
end; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
72 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
73 |
cfgRes := readThemeCfg(); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
74 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
75 |
for i:= 0 to Pred(cfgRes.count) do |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
76 |
begin |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
77 |
res.files[res.count] := cfgRes.files[i]; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
78 |
inc(res.count); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
79 |
end; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
80 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
81 |
res.files[res.count] := UserPathz[ptFlags] + '/cpu'; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
82 |
inc(res.count); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
83 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
84 |
res.files[res.count] := UserPathz[ptFlags] + '/hedgewars'; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
85 |
inc(res.count); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
86 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
87 |
res.files[res.count] := UserPathz[ptGraphics] + '/' + cHHFileName; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
88 |
inc(res.count); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
89 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
90 |
res.files[res.count] := UserPathz[ptGraphics] + '/Girder'; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
91 |
inc(res.count); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
92 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
93 |
res.files[res.count] := UserPathz[ptCurrTheme] + '/LandTex'; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
94 |
inc(res.count); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
95 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
96 |
res.files[res.count] := UserPathz[ptCurrTheme] + '/LandBackTex'; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
97 |
inc(res.count); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
98 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
99 |
res.files[res.count] := UserPathz[ptCurrTheme] + '/Girder'; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
100 |
inc(res.count); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
101 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
102 |
res.files[res.count] := UserPathz[ptCurrTheme] + '/Border'; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
103 |
inc(res.count); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
104 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
105 |
res.files[res.count] := UserPathz[ptMapCurrent] + '/mask'; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
106 |
inc(res.count); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
107 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
108 |
res.files[res.count] := UserPathz[ptMapCurrent] + '/map'; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
109 |
inc(res.count); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
110 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
111 |
res.files[res.count] := UserPathz[ptGraphics] + '/missions'; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
112 |
inc(res.count); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
113 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
114 |
res.files[res.count] := UserPathz[ptGraphics] + '/Progress'; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
115 |
inc(res.count); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
116 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
117 |
res.files[res.count] := UserPathz[ptGraves] + '/Statue'; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
118 |
inc(res.count); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
119 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
120 |
res.files[res.count] := UserPathz[ptGraphics] + '/' + cCHFileName; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
121 |
inc(res.count); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
122 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
123 |
generateResourceList:=res; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
124 |
end; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
125 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
126 |
function readThemeCfg : TResourceList; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
127 |
var |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
128 |
s,key : shortstring; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
129 |
f : TextFile; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
130 |
i: Integer; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
131 |
res : TResourceList; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
132 |
begin |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
133 |
s:=Pathz[ptCurrTheme] + '/' + cThemeCFGFilename; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
134 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
135 |
Assign(f, s); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
136 |
{$I-}
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
137 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
138 |
filemode := 0; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
139 |
Reset(f); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
140 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
141 |
res.count := 0; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
142 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
143 |
while not eof(f) do |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
144 |
begin |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
145 |
Readln(f, s); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
146 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
147 |
if Length(s) = 0 then |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
148 |
continue; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
149 |
if s[1] = ';' then |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
150 |
continue; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
151 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
152 |
i:= Pos('=', s);
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
153 |
key:= Trim(Copy(s, 1, Pred(i))); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
154 |
Delete(s, 1, i); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
155 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
156 |
if (key = 'object') or (key = 'spray') then |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
157 |
begin |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
158 |
i:=Pos(',', s);
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
159 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
160 |
res.files[res.count] := Pathz[ptCurrTheme] + '/' + Trim(Copy(s, 1, Pred(i))); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
161 |
res.files[res.count + 1] := Pathz[ptGraphics] + '/' + Trim(Copy(s, 1, Pred(i))); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
162 |
inc(res.count, 2); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
163 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
164 |
end; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
165 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
166 |
end; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
167 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
168 |
close(f); |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
169 |
{$I+}
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
170 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
171 |
readThemeCfg := res; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
172 |
end; |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
173 |
|
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
174 |
end. |