3 {$INCLUDE ../shared/a_modes.inc}
6 -----------------------------------
7 MAPSTRUCT.PAS ВЕРСИЯ ОТ 13.11.07
9 Поддержка карт версии 1
10 -----------------------------------
14 Карта представляет собою WAD, в котором ресурсы в корне - собственно сами карты
15 (MAP01, MAP02 и т.д.).
17 Блоки заканчиваются нулевым блоком (BlockType=BLOCK_NONE)
19 Структура карты (MAP01, MAP02...):
20 --------------------------------------
21 SIGNATURE | Byte[3] | 'MAP'
28 --------------------------------------
31 --------------------------------------
32 BLOCKTYPE | Byte | (BLOCK_TEXTURES, BLOCK_PANELS,...)
33 RESERVED | LongWord | $00000000
34 BLOCKSIZE | LongWord | Сколько этот блок в размере (байт после record'а)
35 --------------------------------------
41 MAP_SIGNATURE
= 'MAP';
52 Char16
= packed array[0..15] of Char;
53 Char32
= packed array[0..31] of Char;
54 Char64
= packed array[0..63] of Char;
55 Char100
= packed array[0..99] of Char;
56 Char256
= packed array[0..255] of Char;
57 Byte128
= packed array[0..127] of Byte;
59 TMapHeaderRec_1
= packed record
62 MapDescription
: Char256
;
69 TTextureRec_1
= packed record
74 TPanelRec_1
= packed record
84 TItemRec_1
= packed record
90 TMonsterRec_1
= packed record
96 TAreaRec_1
= packed record
102 TTriggerRec_1
= packed record
107 TexturePanel
: Integer;
114 TBlock
= packed record
120 TTexturesRec1Array
= array of TTextureRec_1
;
121 TPanelsRec1Array
= array of TPanelRec_1
;
122 TItemsRec1Array
= array of TItemRec_1
;
123 TMonsterRec1Array
= array of TMonsterRec_1
;
124 TAreasRec1Array
= array of TAreaRec_1
;
125 TTriggersRec1Array
= array of TTriggerRec_1
;