37f9f0091ced2a3c9f117838fa1fceb42ebd3849
1 (* Copyright (C) DooM 2D:Forever Developers
2 *
3 * This program is free software: you can redistribute it and/or modify
4 * it under the terms of the GNU General Public License as published by
5 * the Free Software Foundation, either version 3 of the License, or
6 * (at your option) any later version.
7 *
8 * This program is distributed in the hope that it will be useful,
9 * but WITHOUT ANY WARRANTY; without even the implied warranty of
10 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 * GNU General Public License for more details.
12 *
13 * You should have received a copy of the GNU General Public License
14 * along with this program. If not, see <http://www.gnu.org/licenses/>.
15 *)
16 {$INCLUDE a_modes.inc}
17 {$M+}
20 {
21 -----------------------------------
22 MAPDEF.PAS ÂÅÐÑÈß ÎÒ 22.03.09
24 Ïîääåðæêà êàðò âåðñèè 1
25 -----------------------------------
26 }
28 interface
30 uses
31 xdynrec;
34 const
38 const
44 type
56 {$INCLUDE mapdef.inc}
58 type
76 implementation
78 uses
83 var
85 begin
88 try
99 var
103 begin
108 try
111 begin
116 except
124 var
128 begin
133 try
136 begin
141 except
149 var
153 begin
158 try
161 begin
166 except
174 var
178 begin
183 try
186 begin
191 except
199 var
203 begin
208 try
211 begin
216 except
224 var
228 //wr: TTextWriter;
229 //fo: File;
230 begin
235 try
236 //wr := TFileTextWriter.Create('z00.txt');
239 begin
241 //e_LogWritefln(': trigger #%s; TexturePanel=%s', [f, result[f].TexturePanel]);
244 {
245 e_LogWritefln(': trigger #%s; X=%s; Y=%s; Width=%s; Height=%s; Enabled=%s; TexturePanel=%s; TriggerType=%s; ActivateType=%s; Keys=%s', [f,
246 result[f].X,
247 result[f].Y,
248 result[f].Width,
249 result[f].Height,
250 result[f].Enabled,
251 result[f].TexturePanel,
252 result[f].TriggerType,
253 result[f].ActivateType,
254 result[f].Keys
255 ]);
256 //e_LogWritefln('***'#10'%s'#10'***', [);
257 fld.item[f].writeTo(wr);
258 if (f = 0) then
259 begin
260 AssignFile(fo, 'z00.bin');
261 Rewrite(fo, 1);
262 BlockWrite(fo, result[f], sizeof(result[f]));
263 CloseFile(fo);
264 end;
265 }
267 //wr.Free();
268 except