3 {$INCLUDE ../shared/a_modes.inc}
8 LCLIntf
, LCLType
, g_basic
, e_graphics
, MAPREADER
, MAPSTRUCT
,
9 MAPWRITER
, e_log
, MAPDEF
, utils
;
40 Direction
: TDirection
;
46 Direction
: TDirection
;
53 TexturePanel
: Integer;
72 TMonsterSizeDelta
= record
84 COLOR_EDGE
: Integer = $000000;
85 ALPHA_EDGE
: Byte = 96;
86 ALPHA_LINE
: Byte = 208;
87 ALPHA_AREA
: Byte = 96;
89 TEXTURE_NAME_WATER
= '_water_0';
90 TEXTURE_NAME_ACID1
= '_water_1';
91 TEXTURE_NAME_ACID2
= '_water_2';
92 TEXTURE_SPECIAL_NONE
= DWORD(-1);
93 TEXTURE_SPECIAL_WATER
= DWORD(-2);
94 TEXTURE_SPECIAL_ACID1
= DWORD(-3);
95 TEXTURE_SPECIAL_ACID2
= DWORD(-4);
96 TEXTURE_SPECIAL_NOTEXTURE
= DWORD(-8);
98 ItemSize
: Array [ITEM_MEDKIT_SMALL
..ITEM_MAX
] of Array [0..1] of Byte =
99 (((14), (15)), // MEDKIT_SMALL
100 ((28), (19)), // MEDKIT_LARGE
101 ((28), (19)), // MEDKIT_BLACK
102 ((31), (16)), // ARMOR_GREEN
103 ((31), (16)), // ARMOR_BLUE
104 ((25), (25)), // SPHERE_BLUE
105 ((25), (25)), // SPHERE_WHITE
106 ((24), (47)), // SUIT
107 ((14), (27)), // OXYGEN
108 ((25), (25)), // INVUL
109 ((62), (24)), // WEAPON_SAW
110 ((63), (12)), // WEAPON_SHOTGUN1
111 ((54), (13)), // WEAPON_SHOTGUN2
112 ((54), (16)), // WEAPON_CHAINGUN
113 ((62), (16)), // WEAPON_ROCKETLAUNCHER
114 ((54), (16)), // WEAPON_PLASMA
115 ((61), (36)), // WEAPON_BFG
116 ((54), (16)), // WEAPON_SUPERPULEMET
117 (( 9), (11)), // AMMO_BULLETS
118 ((28), (16)), // AMMO_BULLETS_BOX
119 ((15), ( 7)), // AMMO_SHELLS
120 ((32), (12)), // AMMO_SHELLS_BOX
121 ((12), (27)), // AMMO_ROCKET
122 ((54), (21)), // AMMO_ROCKET_BOX
123 ((15), (12)), // AMMO_CELL
124 ((32), (21)), // AMMO_CELL_BIG
125 ((22), (29)), // AMMO_BACKPACK
126 ((16), (16)), // KEY_RED
127 ((16), (16)), // KEY_GREEN
128 ((16), (16)), // KEY_BLUE
129 (( 1), ( 1)), // WEAPON_KASTET
130 ((43), (16)), // WEAPON_PISTOL
131 ((14), (18)), // BOTTLE
132 ((16), (15)), // HELMET
133 ((32), (24)), // JETPACK
134 ((25), (25)), // INVIS
135 ((53), (20)), // WEAPON_FLAMETHROWER
136 ((13), (20))); // AMMO_FUELCAN
138 AreaSize
: Array [AREA_PLAYERPOINT1
..AREA_BLUETEAMPOINT
] of TRectWH
=
139 ((X
:15; Y
:12; Width
:34; Height
:52), // PLAYERPOINT1
140 (X
:15; Y
:12; Width
:34; Height
:52), // PLAYERPOINT2
141 (X
:15; Y
:12; Width
:34; Height
:52), // DMPOINT
142 (X
:15; Y
:11; Width
:34; Height
:52), // REDFLAG
143 (X
:15; Y
:11; Width
:34; Height
:52), // BLUEFLAG
144 (X
:15; Y
:11; Width
:34; Height
:52), // DOMFLAG
145 (X
:15; Y
:12; Width
:34; Height
:52), // REDTEAMPOINT
146 (X
:15; Y
:12; Width
:34; Height
:52)); // BLUETEAMPOINT
148 MonsterSize
: Array [MONSTER_DEMON
..MONSTER_MAN
] of TRectWH
=
149 ((X
: 7; Y
: 8; Width
: 50; Height
: 52), // DEMON
150 (X
: 15; Y
: 10; Width
: 34; Height
: 50), // IMP
151 (X
: 15; Y
: 8; Width
: 34; Height
: 52), // ZOMBY
152 (X
: 15; Y
: 8; Width
: 34; Height
: 52), // SERG
153 (X
: 24; Y
: 9; Width
: 80; Height
: 110), // CYBER
154 (X
: 15; Y
: 4; Width
: 34; Height
: 56), // CGUN
155 (X
: 39; Y
: 32; Width
: 50; Height
: 64), // BARON
156 (X
: 39; Y
: 32; Width
: 50; Height
: 64), // KNIGHT
157 (X
: 34; Y
: 36; Width
: 60; Height
: 56), // CACO
158 (X
: 16; Y
: 14; Width
: 32; Height
: 36), // SOUL
159 (X
: 34; Y
: 36; Width
: 60; Height
: 56), // PAIN
160 (X
: 23; Y
: 14; Width
: 210; Height
: 100), // SPIDER
161 (X
: 14; Y
: 17; Width
: 100; Height
: 42), // BSP
162 (X
: 28; Y
: 34; Width
: 72; Height
: 60), // MANCUB
163 (X
: 30; Y
: 28; Width
: 68; Height
: 72), // SKEL
164 (X
: 30; Y
: 28; Width
: 68; Height
: 72), // VILE
165 (X
: 6; Y
: 11; Width
: 20; Height
: 10), // FISH
166 (X
: 20; Y
: 13; Width
: 24; Height
: 36), // BARREL
167 (X
: 30; Y
: 26; Width
: 68; Height
: 76), // ROBO
168 (X
: 15; Y
: 6; Width
: 34; Height
: 52)); // MAN
170 MonsterSizeDelta
: Array [MONSTER_DEMON
..MONSTER_MAN
] of TMonsterSizeDelta
=
171 ((X
: 1; Y
: 4; Width
: 64), // DEMON
172 (X
: 8; Y
: -4; Width
: 64), // IMP
173 (X
: 1; Y
: -4; Width
: 64), // ZOMBY
174 (X
: 0; Y
: -4; Width
: 64), // SERG
175 (X
: 2; Y
: -6; Width
: 128), // CYBER
176 (X
: -1; Y
: -2; Width
: 64), // CGUN
177 (X
: 4; Y
: 0; Width
: 128), // BARON
178 (X
: 4; Y
: 0; Width
: 128), // KNIGHT
179 (X
: 0; Y
: -4; Width
: 128), // CACO
180 (X
: 1; Y
: -10; Width
: 64), // SOUL
181 (X
: -1; Y
: -3; Width
: 128), // PAIN
182 (X
: -4; Y
: -4; Width
: 256), // SPIDER
183 (X
: 0; Y
: -1; Width
: 128), // BSP
184 (X
: -2; Y
: -7; Width
: 128), // MANCUB
185 (X
: -1; Y
: 4; Width
: 128), // SKEL
186 (X
: 5; Y
: -21; Width
: 128), // VILE
187 (X
: -1; Y
: 0; Width
: 32), // FISH
188 (X
: 0; Y
: -15; Width
: 64), // BARREL
189 (X
: -2; Y
: -26; Width
: 128), // ROBO
190 (X
: 0; Y
: -6; Width
: 64)); // MAN
195 gAlphaTriggerLine
: Byte;
196 gAlphaTriggerArea
: Byte;
197 gAlphaMonsterRect
: Byte;
198 gAlphaAreaRect
: Byte;
199 drEdge
: Array[0..3] of Byte;
200 gPanels
: Array of TPanel
;
201 gItems
: Array of TItem
;
202 gAreas
: Array of TArea
;
203 gMonsters
: Array of TMonster
;
204 gTriggers
: Array of TTrigger
;
206 MapOffset
: TPoint
= (X
: 0; Y
: 0);
207 SelectedObjects
: Array of TMapObject
= nil;
209 procedure LoadSky(Res
: String);
211 function AddItem(Item
: TItem
): DWORD
;
212 function AddPanel(Panel
: TPanel
): DWORD
;
213 function AddArea(Area
: TArea
): DWORD
;
214 function AddMonster(Monster
: TMonster
): DWORD
;
215 function AddTrigger(Trigger
: TTrigger
): DWORD
;
217 procedure RemoveObject(ID
: DWORD
; ObjectType
: Byte);
218 function PanelInShownLayer(PanelType
: Word): Boolean;
219 function ObjectInRect(fX
, fY
: Integer; fWidth
, fHeight
: Word; ObjectType
: Byte; All
: Boolean): DWArray
;
220 function ObjectCollideLevel(fID
: DWORD
; ObjectType
: Byte; dX
, dY
: Integer): Boolean;
221 function ObjectCollide(ObjectType
: Byte; ID
: DWORD
; fX
, fY
: Integer; fWidth
, fHeight
: Word): Boolean;
222 function ObjectGetRect(ObjectType
: Byte; ID
: DWORD
): TRectWH
;
223 procedure MoveObject(ObjectType
: Byte; ID
: DWORD
; dX
, dY
: Integer);
224 procedure ResizeObject(ObjectType
: Byte; ID
: DWORD
; dWidth
, dHeight
: Integer; ResizeDir
: Byte);
225 function ObjectSelected(ObjectType
: Byte; ID
: DWORD
): Boolean;
227 function GetPanelName(PanelType
: Word): String;
228 function GetPanelType(PanelName
: String): Word;
229 function GetTriggerName(TriggerType
: Byte): String;
230 function GetTriggerType(TriggerName
: String): Byte;
232 function IsSpecialTexture(TextureName
: String): Boolean;
233 function SpecialTextureID(TextureName
: String): DWORD
;
235 procedure ClearMap();
236 function SaveMap(Res
: String): Pointer;
237 function LoadMap(Res
: String): Boolean;
238 function LoadMapOld(_FileName
: String): Boolean;
240 procedure LoadData();
241 procedure FreeData();
243 procedure ShiftMapObjects(dx
, dy
: Integer);
248 BinEditor
, g_textures
, Dialogs
, SysUtils
, CONFIG
, f_main
,
249 Forms
, Math
, f_addresource_texture
, WADEDITOR
, g_language
;
252 OLD_ITEM_MEDKIT_SMALL
= 1;
253 OLD_ITEM_MEDKIT_LARGE
= 2;
254 OLD_ITEM_ARMOR_GREEN
= 3;
255 OLD_ITEM_ARMOR_BLUE
= 4;
256 OLD_ITEM_SPHERE_BLUE
= 5;
257 OLD_ITEM_SPHERE_WHITE
= 6;
258 OLD_ITEM_WEAPON_SAW
= 7;
259 OLD_ITEM_WEAPON_SHOTGUN1
= 8;
260 OLD_ITEM_WEAPON_SHOTGUN2
= 9;
261 OLD_ITEM_WEAPON_CHAINGUN
= 10;
262 OLD_ITEM_WEAPON_ROCKETLAUNCHER
= 11;
263 OLD_ITEM_WEAPON_PLASMA
= 12;
264 OLD_ITEM_WEAPON_BFG
= 13;
265 OLD_ITEM_WEAPON_SUPERPULEMET
= 14;
266 OLD_ITEM_AMMO_BULLETS
= 15;
267 OLD_ITEM_AMMO_BULLETS_BOX
= 16;
268 OLD_ITEM_AMMO_SHELLS
= 17;
269 OLD_ITEM_AMMO_SHELLS_BOX
= 18;
270 OLD_ITEM_AMMO_ROCKET
= 19;
271 OLD_ITEM_AMMO_ROCKET_BOX
= 20;
272 OLD_ITEM_AMMO_CELL
= 21;
273 OLD_ITEM_AMMO_CELL_BIG
= 22;
274 OLD_ITEM_AMMO_BACKPACK
= 23;
275 OLD_ITEM_KEY_RED
= 24;
276 OLD_ITEM_KEY_GREEN
= 25;
277 OLD_ITEM_KEY_BLUE
= 26;
279 OLD_ITEM_OXYGEN
= 28;
280 OLD_ITEM_MEDKIT_BLACK
= 29;
283 ITEMSCONVERT
: Array [OLD_ITEM_MEDKIT_SMALL
..OLD_ITEM_INVUL
] of Integer =
284 ((ITEM_MEDKIT_SMALL
),
291 (ITEM_WEAPON_SHOTGUN1
),
292 (ITEM_WEAPON_SHOTGUN2
),
293 (ITEM_WEAPON_CHAINGUN
),
294 (ITEM_WEAPON_ROCKETLAUNCHER
),
295 (ITEM_WEAPON_PLASMA
),
297 (ITEM_WEAPON_SUPERPULEMET
),
299 (ITEM_AMMO_BULLETS_BOX
),
301 (ITEM_AMMO_SHELLS_BOX
),
303 (ITEM_AMMO_ROCKET_BOX
),
305 (ITEM_AMMO_CELL_BIG
),
306 (ITEM_AMMO_BACKPACK
),
315 OldItemSize
: Array [ITEM_MEDKIT_SMALL
..ITEM_KEY_BLUE
] of Array [0..1] of Byte =
316 (((14), (15)), // MEDKIT_SMALL
317 ((28), (19)), // MEDKIT_LARGE
318 ((28), (19)), // MEDKIT_BLACK - not in map generator
319 ((30), (16)), // ARMOR_GREEN
320 ((30), (16)), // ARMOR_BLUE
321 ((24), (24)), // SPHERE_BLUE
322 ((24), (24)), // SPHERE_WHITE
323 ((24), (46)), // SUIT
324 ((14), (27)), // OXYGEN
325 ((25), (25)), // INVUL - not in map generator
326 ((61), (23)), // WEAPON_SAW
327 ((62), (10)), // WEAPON_SHOTGUN1
328 ((52), (12)), // WEAPON_SHOTGUN2
329 ((53), (15)), // WEAPON_CHAINGUN
330 ((61), (15)), // WEAPON_ROCKETLAUNCHER
331 ((53), (14)), // WEAPON_PLASMA
332 ((61), (34)), // WEAPON_BFG
333 ((53), (16)), // WEAPON_SUPERPULEMET
334 (( 9), (10)), // AMMO_BULLETS
335 ((28), (16)), // AMMO_BULLETS_BOX
336 ((15), ( 7)), // AMMO_SHELLS
337 ((32), (12)), // AMMO_SHELLS_BOX
338 ((12), (26)), // AMMO_ROCKET
339 ((54), (21)), // AMMO_ROCKET_BOX
340 ((15), (12)), // AMMO_CELL
341 ((32), (21)), // AMMO_CELL_BIG
342 ((22), (29)), // AMMO_BACKPACK
343 ((16), (16)), // KEY_RED
344 ((16), (16)), // KEY_GREEN
345 ((16), (16))); // KEY_BLUE
347 OldAreaSize
: Array [0..1] of Byte = ((34), (56));
351 procedure LoadSky(Res
: String);
356 g_DeleteTexture(SKY_TEXTURE
);
361 g_ProcessResourceStr(Res
, @fn
, nil, nil);
365 g_ProcessResourceStr(OpenedMap
, @fn
, nil, nil);
369 fn
:= EditorDir
+ 'wads/' + Res
;
371 g_CreateTextureWAD(SKY_TEXTURE
, fn
);
374 function AddItem(Item
: TItem
): DWORD
;
383 if gItems
<> nil then
384 for a
:= 0 to High(gItems
) do
385 if gItems
[a
].ItemType
= ITEM_NONE
then
394 SetLength(gItems
, a
+ 128);
402 function AddPanel(Panel
: TPanel
): DWORD
;
412 if gPanels
<> nil then
413 for a
:= High(gPanels
) downto 0 do
414 if gPanels
[a
].PanelType
= PANEL_NONE
then
427 a
:= Length(gPanels
);
428 SetLength(gPanels
, a
+ 512);
436 function AddArea(Area
: TArea
): DWORD
;
445 if gAreas
<> nil then
446 for a
:= 0 to High(gAreas
) do
447 if gAreas
[a
].AreaType
= AREA_NONE
then
456 SetLength(gAreas
, a
+ 64);
464 function AddMonster(Monster
: TMonster
): DWORD
;
473 if gMonsters
<> nil then
474 for a
:= 0 to High(gMonsters
) do
475 if gMonsters
[a
].MonsterType
= MONSTER_NONE
then
483 a
:= Length(gMonsters
);
484 SetLength(gMonsters
, a
+ 128);
487 gMonsters
[a
] := Monster
;
492 function AddTrigger(Trigger
: TTrigger
): DWORD
;
501 if gTriggers
<> nil then
502 for a
:= 0 to High(gTriggers
) do
503 if gTriggers
[a
].TriggerType
= TRIGGER_NONE
then
511 a
:= Length(gTriggers
);
512 SetLength(gTriggers
, a
+ 64);
515 gTriggers
[a
] := Trigger
;
520 procedure RemoveObject(ID
: DWORD
; ObjectType
: Byte);
528 // Убираем ссылки триггеров на эту панель:
529 if gTriggers
<> nil then
530 for a
:= 0 to High(gTriggers
) do
531 if gTriggers
[a
].TriggerType
<> 0 then
533 if gTriggers
[a
].TexturePanel
= Integer(ID
) then
534 gTriggers
[a
].TexturePanel
:= -1;
536 if gTriggers
[a
].TriggerType
in [
537 TRIGGER_OPENDOOR
, TRIGGER_CLOSEDOOR
,
538 TRIGGER_DOOR
, TRIGGER_DOOR5
, TRIGGER_CLOSETRAP
,
539 TRIGGER_TRAP
, TRIGGER_LIFTUP
, TRIGGER_LIFTDOWN
,
541 if gTriggers
[a
].Data
.PanelID
= Integer(ID
) then
542 gTriggers
[a
].Data
.PanelID
:= -1;
544 if (gTriggers
[a
].TriggerType
= TRIGGER_SHOT
) and
545 (gTriggers
[a
].Data
.ShotPanelID
= Integer(ID
)) then
546 gTriggers
[a
].Data
.ShotPanelID
:= -1;
549 gPanels
[ID
].PanelType
:= 0;
553 gItems
[ID
].ItemType
:= 0;
557 // Убираем ссылки триггеров на этого монстра:
558 if gTriggers
<> nil then
559 for a
:= 0 to High(gTriggers
) do
560 if gTriggers
[a
].TriggerType
<> 0 then
562 if gTriggers
[a
].TriggerType
in [TRIGGER_PRESS
,
563 TRIGGER_ON
, TRIGGER_OFF
, TRIGGER_ONOFF
] then
564 if (gTriggers
[a
].Data
.MonsterID
-1 = Integer(ID
)) then
565 gTriggers
[a
].Data
.MonsterID
:= 0;
568 gMonsters
[ID
].MonsterType
:= 0;
572 gAreas
[ID
].AreaType
:= 0;
575 gTriggers
[ID
].TriggerType
:= 0;
579 function PanelInShownLayer(PanelType
: Word): Boolean;
583 Result
:= LayerEnabled
[LAYER_WALLS
];
586 Result
:= LayerEnabled
[LAYER_BACK
];
589 Result
:= LayerEnabled
[LAYER_FOREGROUND
];
592 Result
:= LayerEnabled
[LAYER_STEPS
];
594 PANEL_WATER
, PANEL_ACID1
, PANEL_ACID2
,
595 PANEL_LIFTUP
, PANEL_LIFTDOWN
, PANEL_LIFTLEFT
, PANEL_LIFTRIGHT
,
596 PANEL_OPENDOOR
, PANEL_CLOSEDOOR
,
598 Result
:= LayerEnabled
[LAYER_WATER
];
605 function ObjectInRect(fX
, fY
: Integer; fWidth
, fHeight
: Word; ObjectType
: Byte; All
: Boolean): DWArray
;
614 if gPanels
<> nil then
615 for a
:= High(gPanels
) downto 0 do
618 if not PanelInShownLayer(gPanels
[a
].PanelType
) then
621 if g_Collide(X
, Y
, Width
, Height
,
622 fX
, fY
, fWidth
, fHeight
) then
624 SetLength(Result
, Length(Result
)+1);
625 Result
[High(Result
)] := a
;
633 if LayerEnabled
[LAYER_ITEMS
] and (gItems
<> nil) then
634 for a
:= High(gItems
) downto 0 do
636 if (ItemType
<> ITEM_NONE
) and
637 g_Collide(X
, Y
, ItemSize
[ItemType
][0], ItemSize
[ItemType
][1],
638 fX
, fY
, fWidth
, fHeight
) then
640 SetLength(Result
, Length(Result
)+1);
641 Result
[High(Result
)] := a
;
648 if LayerEnabled
[LAYER_MONSTERS
] and (gMonsters
<> nil) then
649 for a
:= High(gMonsters
) downto 0 do
650 if gMonsters
[a
].MonsterType
<> MONSTER_NONE
then
651 with MonsterSize
[gMonsters
[a
].MonsterType
] do
652 if (gMonsters
[a
].MonsterType
<> 0) and
653 g_Collide(gMonsters
[a
].X
, gMonsters
[a
].Y
, Width
, Height
,
654 fX
, fY
, fWidth
, fHeight
) then
656 SetLength(Result
, Length(Result
)+1);
657 Result
[High(Result
)] := a
;
664 if LayerEnabled
[LAYER_AREAS
] and (gAreas
<> nil) then
665 for a
:= High(gAreas
) downto 0 do
666 if gAreas
[a
].AreaType
<> AREA_NONE
then
667 with AreaSize
[gAreas
[a
].AreaType
] do
668 if (gAreas
[a
].AreaType
<> 0) and
669 g_Collide(gAreas
[a
].X
, gAreas
[a
].Y
, Width
, Height
,
670 fX
, fY
, fWidth
, fHeight
) then
672 SetLength(Result
, Length(Result
)+1);
673 Result
[High(Result
)] := a
;
680 if LayerEnabled
[LAYER_TRIGGERS
] and (gTriggers
<> nil) then
681 for a
:= High(gTriggers
) downto 0 do
682 if gTriggers
[a
].TriggerType
<> TRIGGER_NONE
then
685 if (TriggerType
<> 0) and
686 g_Collide(X
, Y
, Width
, Height
,
687 fX
, fY
, fWidth
, fHeight
) then
689 SetLength(Result
, Length(Result
)+1);
690 Result
[High(Result
)] := a
;
699 function ObjectCollideLevel(fID
: DWORD
; ObjectType
: Byte; dX
, dY
: Integer): Boolean;
705 PanelID
:= DWORD(-1);
710 Result
:= (PanelID
<> fID
) and
711 g_CollideLevel2(X
+dX
, Y
+dY
,
717 Result
:= g_CollideLevel(X
+dX
, Y
+dY
,
718 ItemSize
[ItemType
][0], ItemSize
[ItemType
][1]);
721 with MonsterSize
[gMonsters
[fID
].MonsterType
] do
722 Result
:= g_CollideLevel(gMonsters
[fID
].X
+dX
, gMonsters
[fID
].Y
+dY
,
726 with AreaSize
[gAreas
[fID
].AreaType
] do
727 Result
:= g_CollideLevel(gAreas
[fID
].X
+dX
, gAreas
[fID
].Y
+dY
,
731 with gTriggers
[fID
] do
732 Result
:= g_CollideLevel(X
+dX
, Y
+dY
,
737 function ObjectCollide(ObjectType
: Byte; ID
: DWORD
; fX
, fY
: Integer; fWidth
, fHeight
: Word): Boolean;
744 Result
:= g_Collide(X
, Y
, Width
, Height
,
745 fX
, fY
, fWidth
, fHeight
);
749 Result
:= g_Collide(X
, Y
, ItemSize
[ItemType
][0], ItemSize
[ItemType
][1],
750 fX
, fY
, fWidth
, fHeight
);
753 with MonsterSize
[gMonsters
[ID
].MonsterType
] do
754 Result
:= g_Collide(gMonsters
[ID
].X
, gMonsters
[ID
].Y
, Width
, Height
,
755 fX
, fY
, fWidth
, fHeight
);
758 with AreaSize
[gAreas
[ID
].AreaType
] do
759 Result
:= g_Collide(gAreas
[ID
].X
, gAreas
[ID
].Y
, Width
, Height
,
760 fX
, fY
, fWidth
, fHeight
);
763 with gTriggers
[ID
] do
764 Result
:= g_Collide(X
, Y
, Width
, Height
,
765 fX
, fY
, fWidth
, fHeight
);
769 function ObjectGetRect(ObjectType
: Byte; ID
: DWORD
): TRectWH
;
777 Result
.Width
:= Width
;
778 Result
.Height
:= Height
;
786 Result
.Width
:= ItemSize
[ItemType
][0];
787 Result
.Height
:= ItemSize
[ItemType
][1];
791 with MonsterSize
[gMonsters
[ID
].MonsterType
] do
793 Result
.X
:= gMonsters
[ID
].X
;
794 Result
.Y
:= gMonsters
[ID
].Y
;
795 Result
.Width
:= Width
;
796 Result
.Height
:= Height
;
800 with AreaSize
[gAreas
[ID
].AreaType
] do
802 Result
.X
:= gAreas
[ID
].X
;
803 Result
.Y
:= gAreas
[ID
].Y
;
804 Result
.Width
:= Width
;
805 Result
.Height
:= Height
;
809 with gTriggers
[ID
] do
813 Result
.Width
:= Width
;
814 Result
.Height
:= Height
;
827 procedure MoveObject(ObjectType
: Byte; ID
: DWORD
; dX
, dY
: Integer);
845 with gMonsters
[ID
] do
859 with gTriggers
[ID
] do
867 procedure ResizeObject(ObjectType
: Byte; ID
: DWORD
; dWidth
, dHeight
: Integer; ResizeDir
: Byte);
873 if Width
>= -dWidth
then
874 Width
:= Width
+dWidth
881 if Height
>= -dHeight
then
882 Height
:= Height
+dHeight
895 OBJECT_ITEM
, OBJECT_MONSTER
, OBJECT_AREA
:
899 with gTriggers
[ID
] do
901 if Width
>= -dWidth
then
902 Width
:= Width
+dWidth
909 if Height
>= -dHeight
then
910 Height
:= Height
+dHeight
925 function ObjectSelected(ObjectType
: Byte; ID
: DWORD
): Boolean;
932 if SelectedObjects
<> nil then
933 for a
:= 0 to High(SelectedObjects
) do
934 if SelectedObjects
[a
].Live
and
935 (SelectedObjects
[a
].ObjectType
= ObjectType
) and
936 (SelectedObjects
[a
].ID
= ID
) then
943 function GetPanelName(PanelType
: Word): String;
948 PANEL_WALL
: Result
:= PANELNAMES
[0];
949 PANEL_BACK
: Result
:= PANELNAMES
[1];
950 PANEL_FORE
: Result
:= PANELNAMES
[2];
951 PANEL_OPENDOOR
: Result
:= PANELNAMES
[3];
952 PANEL_CLOSEDOOR
: Result
:= PANELNAMES
[4];
953 PANEL_STEP
: Result
:= PANELNAMES
[5];
954 PANEL_WATER
: Result
:= PANELNAMES
[6];
955 PANEL_ACID1
: Result
:= PANELNAMES
[7];
956 PANEL_ACID2
: Result
:= PANELNAMES
[8];
957 PANEL_LIFTUP
: Result
:= PANELNAMES
[9];
958 PANEL_LIFTDOWN
: Result
:= PANELNAMES
[10];
959 PANEL_LIFTLEFT
: Result
:= PANELNAMES
[11];
960 PANEL_LIFTRIGHT
: Result
:= PANELNAMES
[12];
961 PANEL_BLOCKMON
: Result
:= PANELNAMES
[13];
966 function GetPanelType(PanelName
: String): Word;
970 if PanelName
= PANELNAMES
[0] then
972 else if PanelName
= PANELNAMES
[1] then
974 else if PanelName
= PANELNAMES
[2] then
976 else if PanelName
= PANELNAMES
[3] then
977 Result
:= PANEL_OPENDOOR
978 else if PanelName
= PANELNAMES
[4] then
979 Result
:= PANEL_CLOSEDOOR
980 else if PanelName
= PANELNAMES
[5] then
982 else if PanelName
= PANELNAMES
[6] then
983 Result
:= PANEL_WATER
984 else if PanelName
= PANELNAMES
[7] then
985 Result
:= PANEL_ACID1
986 else if PanelName
= PANELNAMES
[8] then
987 Result
:= PANEL_ACID2
988 else if PanelName
= PANELNAMES
[9] then
989 Result
:= PANEL_LIFTUP
990 else if PanelName
= PANELNAMES
[10] then
991 Result
:= PANEL_LIFTDOWN
992 else if PanelName
= PANELNAMES
[11] then
993 Result
:= PANEL_LIFTLEFT
994 else if PanelName
= PANELNAMES
[12] then
995 Result
:= PANEL_LIFTRIGHT
996 else if PanelName
= PANELNAMES
[13] then
997 Result
:= PANEL_BLOCKMON
;
1002 function GetTriggerName(TriggerType
: Byte): String;
1004 if TriggerType
in [TRIGGER_EXIT
..TRIGGER_MAX
] then
1005 Result
:= TriggerNames
[TriggerType
]
1010 function GetTriggerType(TriggerName
: String): Byte;
1015 Result
:= TRIGGER_NONE
;
1016 for i
:= TRIGGER_EXIT
to TRIGGER_MAX
do
1017 if TriggerNames
[i
] = TriggerName
then
1026 function IsSpecialTexture(TextureName
: string): Boolean;
1028 Result
:= (TextureName
= TEXTURE_NAME_WATER
) or
1029 (TextureName
= TEXTURE_NAME_ACID1
) or
1030 (TextureName
= TEXTURE_NAME_ACID2
);
1033 function SpecialTextureID(TextureName
: string): DWORD
;
1035 Assert(IsSpecialTexture(TextureName
));
1039 if TextureName
= TEXTURE_NAME_WATER
then
1040 Result
:= TEXTURE_SPECIAL_WATER
1042 if TextureName
= TEXTURE_NAME_ACID1
then
1043 Result
:= TEXTURE_SPECIAL_ACID1
1045 if TextureName
= TEXTURE_NAME_ACID2
then
1046 Result
:= TEXTURE_SPECIAL_ACID2
;
1049 function SaveMap(Res
: String): Pointer;
1052 MapWriter
: TMapWriter_1
;
1053 textures
: TTexturesRec1Array
;
1054 panels
: TPanelsRec1Array
;
1055 items
: TItemsRec1Array
;
1056 areas
: TAreasRec1Array
;
1057 monsters
: TMonsterRec1Array
;
1058 triggers
: TTriggersRec1Array
;
1059 header
: TMapHeaderRec_1
;
1062 PanelTable
: Array of Array [0..1] of Word;
1063 MonsterTable
: Array of Array [0..1] of Word;
1065 FileName
, SectionName
, ResName
: String;
1077 MonsterTable
:= nil;
1081 // Открываем WAD, если надо:
1084 WAD
:= TWADEditor_1
.Create();
1085 g_ProcessResourceStr(Res
, FileName
, SectionName
, ResName
);
1086 if not WAD
.ReadFile(FileName
) then
1092 MapWriter
:= TMapWriter_1
.Create();
1094 // Сохраняем заголовок:
1097 ZeroMemory(@header
, SizeOf(TMapHeaderRec_1
));
1099 s
:= utf2win(gMapInfo
.Name
);
1101 CopyMemory(@MapName
[0], @s
[1], Min(32, Length(s
)));
1103 s
:= utf2win(gMapInfo
.Description
);
1105 CopyMemory(@MapDescription
[0], @s
[1], Min(256, Length(s
)));
1107 s
:= utf2win(gMapInfo
.Author
);
1109 CopyMemory(@MapAuthor
[0], @s
[1], Min(32, Length(s
)));
1111 s
:= utf2win(gMapInfo
.MusicName
);
1113 CopyMemory(@MusicName
[0], @s
[1], Min(64, Length(s
)));
1115 s
:= utf2win(gMapInfo
.SkyName
);
1117 CopyMemory(@SkyName
[0], @s
[1], Min(64, Length(s
)));
1119 Width
:= gMapInfo
.Width
;
1120 Height
:= gMapInfo
.Height
;
1123 MapWriter
.AddHeader(header
);
1125 // Сохраняем названия текстур:
1126 if MainForm
.lbTextureList
.Items
.Count
> 0 then
1128 for a
:= 0 to MainForm
.lbTextureList
.Items
.Count
-1 do
1130 SetLength(textures
, Length(textures
)+1);
1131 s
:= utf2win(MainForm
.lbTextureList
.Items
[a
]);
1132 CopyMemory(@textures
[High(textures
)].Resource
[0], @s
[1], Min(64, Length(s
)));
1133 if g_GetTextureFlagByName(MainForm
.lbTextureList
.Items
[a
]) = 1 then
1134 textures
[High(textures
)].Anim
:= 1
1136 textures
[High(textures
)].Anim
:= 0;
1139 MapWriter
.AddTextures(textures
);
1142 // Сохраняем панели:
1143 if gPanels
<> nil then
1147 for a
:= 0 to High(gPanels
) do
1148 if gPanels
[a
].PanelType
<> 0 then
1150 SetLength(PanelTable
, Length(PanelTable
)+1);
1151 PanelTable
[High(PanelTable
)][0] := a
;
1152 PanelTable
[High(PanelTable
)][1] := c
;
1155 SetLength(panels
, Length(panels
)+1);
1157 with panels
[High(panels
)] do
1161 Width
:= gPanels
[a
].Width
;
1162 Height
:= gPanels
[a
].Height
;
1163 PanelType
:= gPanels
[a
].PanelType
;
1164 Alpha
:= gPanels
[a
].Alpha
;
1169 if WordBool(gPanels
[a
].PanelType
and
1170 (PANEL_WATER
or PANEL_ACID1
or PANEL_ACID2
)) then
1171 Flags
:= PANEL_FLAG_WATERTEXTURES
;
1173 // Может быть текстура:
1174 if not WordBool(gPanels
[a
].PanelType
and
1175 (PANEL_LIFTUP
or PANEL_LIFTDOWN
or PANEL_LIFTLEFT
or PANEL_LIFTRIGHT
or PANEL_BLOCKMON
)) then
1177 if gPanels
[a
].Blending
then
1178 Flags
:= Flags
or PANEL_FLAG_BLENDING
;
1179 if gPanels
[a
].TextureID
= TEXTURE_SPECIAL_NONE
then
1180 Flags
:= Flags
or PANEL_FLAG_HIDE
;
1182 // Номер текстуры в списке текстур:
1183 if gPanels
[a
].TextureID
<> TEXTURE_SPECIAL_NONE
then
1184 for b
:= 0 to High(textures
) do
1185 if utf2win(gPanels
[a
].TextureName
) = textures
[b
].Resource
then
1194 MapWriter
.AddPanels(panels
);
1197 // Сохраняем предметы:
1198 if gItems
<> nil then
1200 for a
:= 0 to High(gItems
) do
1201 if gItems
[a
].ItemType
<> 0 then
1203 SetLength(items
, Length(items
)+1);
1205 with items
[High(items
)] do
1209 ItemType
:= gItems
[a
].ItemType
;
1210 if gItems
[a
].OnlyDM
then
1211 Options
:= Options
or ITEM_OPTION_ONLYDM
;
1212 if gItems
[a
].Fall
then
1213 Options
:= Options
or ITEM_OPTION_FALL
;
1217 MapWriter
.AddItems(items
);
1220 // Сохраняем монстров:
1221 if gMonsters
<> nil then
1225 for a
:= 0 to High(gMonsters
) do
1226 if gMonsters
[a
].MonsterType
<> 0 then
1228 SetLength(MonsterTable
, Length(MonsterTable
)+1);
1229 MonsterTable
[High(MonsterTable
)][0] := a
;
1230 MonsterTable
[High(MonsterTable
)][1] := c
;
1233 SetLength(monsters
, Length(monsters
)+1);
1235 with monsters
[High(monsters
)] do
1237 X
:= gMonsters
[a
].X
;
1238 Y
:= gMonsters
[a
].Y
;
1239 MonsterType
:= gMonsters
[a
].MonsterType
;
1240 Direction
:= Ord(gMonsters
[a
].Direction
);
1244 MapWriter
.AddMonsters(monsters
);
1247 // Сохраняем области:
1248 if gAreas
<> nil then
1250 for a
:= 0 to High(gAreas
) do
1251 if gAreas
[a
].AreaType
<> 0 then
1253 SetLength(areas
, Length(areas
)+1);
1255 with areas
[High(areas
)] do
1259 AreaType
:= gAreas
[a
].AreaType
;
1260 Direction
:= Ord(gAreas
[a
].Direction
);
1264 MapWriter
.AddAreas(areas
);
1267 // Сохраняем триггеры:
1268 if gTriggers
<> nil then
1270 for a
:= 0 to High(gTriggers
) do
1271 if gTriggers
[a
].TriggerType
<> 0 then
1273 SetLength(triggers
, Length(triggers
)+1);
1275 with triggers
[High(triggers
)] do
1277 X
:= gTriggers
[a
].X
;
1278 Y
:= gTriggers
[a
].Y
;
1279 Width
:= gTriggers
[a
].Width
;
1280 Height
:= gTriggers
[a
].Height
;
1281 Enabled
:= Byte(gTriggers
[a
].Enabled
);
1283 TriggerType
:= gTriggers
[a
].TriggerType
;
1284 ActivateType
:= gTriggers
[a
].ActivateType
;
1285 Keys
:= gTriggers
[a
].Key
;
1286 DATA
:= gTriggers
[a
].Data
.Default
;
1288 if PanelTable
<> nil then
1290 // Ищем номер панели, которой этот триггер меняет текстуру:
1291 if gTriggers
[a
].TexturePanel
<> -1 then
1293 for c
:= 0 to High(PanelTable
) do
1294 if PanelTable
[c
][0] = gTriggers
[a
].TexturePanel
then
1295 TexturePanel
:= PanelTable
[c
][1];
1298 // Ищем номер панели, которую меняет этот триггер:
1299 if gTriggers
[a
].TriggerType
in [
1300 TRIGGER_OPENDOOR
, TRIGGER_CLOSEDOOR
, TRIGGER_DOOR
,
1301 TRIGGER_DOOR5
, TRIGGER_CLOSETRAP
, TRIGGER_TRAP
,
1302 TRIGGER_LIFTUP
, TRIGGER_LIFTDOWN
, TRIGGER_LIFT
] then
1303 if TTriggerData(DATA
).PanelID
<> -1 then
1304 for c
:= 0 to High(PanelTable
) do
1305 if PanelTable
[c
][0] = TTriggerData(DATA
).PanelID
then
1307 TTriggerData(DATA
).PanelID
:= PanelTable
[c
][1];
1311 // Ищем номер панели индикации, которой этот триггер меняет текстуру:
1312 if (gTriggers
[a
].TriggerType
= TRIGGER_SHOT
) and
1313 (TTriggerData(DATA
).ShotPanelID
<> -1) then
1315 for c
:= 0 to High(PanelTable
) do
1316 if PanelTable
[c
][0] = TTriggerData(DATA
).ShotPanelID
then
1317 TTriggerData(DATA
).ShotPanelID
:= PanelTable
[c
][1];
1321 if MonsterTable
<> nil then
1323 // Ищем номер монстра - условие активации триггера:
1324 if gTriggers
[a
].TriggerType
in [
1325 TRIGGER_PRESS
, TRIGGER_ON
,
1326 TRIGGER_OFF
, TRIGGER_ONOFF
] then
1327 if TTriggerData(DATA
).MonsterID
<> 0 then
1328 for c
:= 0 to High(MonsterTable
) do
1329 if MonsterTable
[c
][0] = TTriggerData(DATA
).MonsterID
-1 then
1331 TTriggerData(DATA
).MonsterID
:= MonsterTable
[c
][1]+1;
1338 MapWriter
.AddTriggers(triggers
);
1341 // Сохраняем карту в память:
1342 Len
:= MapWriter
.SaveMap(Data
);
1346 // Записываем в WAD, если надо:
1349 s
:= utf2win(ResName
);
1350 WAD
.RemoveResource('', s
);
1351 WAD
.AddResource(Data
, Len
, s
, '');
1352 WAD
.SaveTo(FileName
);
1363 procedure AddTexture(res
: String; Error
: Boolean);
1367 with MainForm
.lbTextureList
do
1369 for a
:= 0 to Count
-1 do
1370 if Items
[a
] = res
then
1373 if Error
and (slInvalidTextures
.IndexOf(res
) = -1) then
1374 slInvalidTextures
.Add(res
);
1379 function LoadMap(Res
: String): Boolean;
1382 MapReader
: TMapReader_1
;
1383 Header
: TMapHeaderRec_1
;
1384 textures
: TTexturesRec1Array
;
1385 panels
: TPanelsRec1Array
;
1386 items
: TItemsRec1Array
;
1387 monsters
: TMonsterRec1Array
;
1388 areas
: TAreasRec1Array
;
1389 triggers
: TTriggersRec1Array
;
1397 Width
, Height
, m
: Word;
1398 FileName
, SectionName
, ResName
, _fn
: String;
1399 TextureRes
, ustr
: String;
1401 Len
, FrameLen
: Integer;
1417 MainForm
.pbLoad
.Position
:= 0;
1418 MainForm
.lLoad
.Caption
:= _lc
[I_LOAD_WAD
];
1419 Application
.ProcessMessages();
1422 WAD
:= TWADEditor_1
.Create();
1423 g_ProcessResourceStr(Res
, FileName
, SectionName
, ResName
);
1425 if not WAD
.ReadFile(FileName
) then
1431 // Читаем ресурс карты:
1432 if not WAD
.GetResource('', utf2win(ResName
), pData
, Len
) then
1440 MapReader
:= TMapReader_1
.Create();
1442 MainForm
.lLoad
.Caption
:= _lc
[I_LOAD_MAP
];
1443 Application
.ProcessMessages();
1445 MapReader
.LoadMap(pData
);
1447 // Загружаем текстуры:
1448 textures
:= MapReader
.GetTextures();
1450 if textures
<> nil then
1452 MainForm
.pbLoad
.Position
:= 0;
1453 MainForm
.pbLoad
.Max
:= Length(textures
);
1454 MainForm
.lLoad
.Caption
:= _lc
[I_LOAD_TEXTURES
];
1456 for a
:= 0 to High(textures
) do
1458 MainForm
.pbLoad
.StepIt();
1459 Application
.ProcessMessages();
1460 ustr
:= win2utf(textures
[a
].Resource
);
1462 if IsSpecialTexture(ustr
) then
1464 AddTexture(ustr
, False);
1468 g_ProcessResourceStr(ustr
, @_fn
, nil, nil);
1471 TextureRes
:= FileName
+ ustr
1473 TextureRes
:= EditorDir
+'wads/'+ustr
;
1477 if not ByteBool(textures
[a
].Anim
) then
1478 begin // Обычная текстура
1479 if not g_CreateTextureWAD(ustr
, TextureRes
) then
1481 e_WriteLog(Format('g_CreateTextureWAD() error, res=%s',
1482 [ustr
]), MSG_WARNING
);
1486 AddTexture(ustr
, Error
);
1489 begin // Анимированная текстура
1490 if not GetFrame(TextureRes
, Data
, FrameLen
, Width
, Height
) then
1492 e_WriteLog(Format('GetFrame() error, res=%s',
1493 [ustr
]), MSG_WARNING
);
1497 if not g_CreateTextureMemorySize(Data
, FrameLen
, ustr
, 0, 0, Width
, Height
, 1) then
1498 begin // Сама текстура
1499 e_WriteLog(Format('g_CreateTextureMemorySize() error, res=%s',
1500 [ustr
]), MSG_WARNING
);
1504 AddTexture(ustr
, Error
);
1509 // Загружаем панели:
1510 panels
:= MapReader
.GetPanels();
1512 if panels
<> nil then
1514 MainForm
.pbLoad
.Position
:= 0;
1515 MainForm
.pbLoad
.Max
:= Length(panels
);
1516 MainForm
.lLoad
.Caption
:= _lc
[I_LOAD_PANELS
];
1518 for a
:= 0 to High(panels
) do
1520 MainForm
.pbLoad
.StepIt();
1521 Application
.ProcessMessages();
1523 panel
.X
:= panels
[a
].X
;
1524 panel
.Y
:= panels
[a
].Y
;
1525 panel
.Height
:= panels
[a
].Height
;
1526 panel
.Width
:= panels
[a
].Width
;
1527 panel
.PanelType
:= panels
[a
].PanelType
;
1528 panel
.Alpha
:= panels
[a
].Alpha
;
1530 panel
.Blending
:= ByteBool(panels
[a
].Flags
and PANEL_FLAG_BLENDING
);
1532 panel
.TextureWidth
:= 0;
1533 panel
.TextureHeight
:= 0;
1534 panel
.TextureName
:= '';
1535 panel
.TextureID
:= TEXTURE_SPECIAL_NONE
;
1537 m
:= PANEL_WALL
or PANEL_BACK
or PANEL_FORE
or PANEL_STEP
or
1538 PANEL_OPENDOOR
or PANEL_CLOSEDOOR
;
1540 if ByteBool(panels
[a
].Flags
and PANEL_FLAG_WATERTEXTURES
) then
1541 m
:= m
or PANEL_WATER
or PANEL_ACID1
or PANEL_ACID2
;
1543 // Если панель видима:
1544 if WordBool(panel
.PanelType
and m
) and
1545 (not (ByteBool(panels
[a
].Flags
and PANEL_FLAG_HIDE
))) then
1547 ustr
:= win2utf(textures
[panels
[a
].TextureNum
].Resource
);
1548 if not IsSpecialTexture(ustr
) then
1550 if g_GetTexture(ustr
, panel
.TextureID
) then
1551 g_GetTextureSizeByID(panel
.TextureID
, panel
.TextureWidth
, panel
.TextureHeight
)
1553 panel
.TextureWidth
:= 1;
1554 panel
.TextureHeight
:= 1;
1555 if g_GetTexture('NOTEXTURE', NoTextureID
) then
1557 panel
.TextureID
:= TEXTURE_SPECIAL_NOTEXTURE
;
1558 g_GetTextureSizeByID(NoTextureID
, NW
, NH
);
1559 panel
.TextureWidth
:= NW
;
1560 panel
.TextureHeight
:= NH
;
1564 else // Спец. текстура
1565 panel
.TextureID
:= SpecialTextureID(ustr
);
1567 panel
.TextureName
:= ustr
;
1570 // Жидкость без текстуры:
1571 if WordBool(panel
.PanelType
and (PANEL_WATER
or PANEL_ACID1
or PANEL_ACID2
)) and
1572 (not ByteBool(panels
[a
].Flags
and PANEL_FLAG_WATERTEXTURES
)) then
1574 case panel
.PanelType
of
1575 PANEL_WATER
: panel
.TextureName
:= TEXTURE_NAME_WATER
;
1576 PANEL_ACID1
: panel
.TextureName
:= TEXTURE_NAME_ACID1
;
1577 PANEL_ACID2
: panel
.TextureName
:= TEXTURE_NAME_ACID2
;
1580 panel
.TextureID
:= SpecialTextureID(panel
.TextureName
);
1581 AddTexture(panel
.TextureName
, False);
1588 // Загружаем предметы:
1589 items
:= MapReader
.GetItems();
1591 if items
<> nil then
1593 MainForm
.pbLoad
.Position
:= 0;
1594 MainForm
.pbLoad
.Max
:= Length(items
);
1595 MainForm
.lLoad
.Caption
:= _lc
[I_LOAD_ITEMS
];
1597 for a
:= 0 to High(items
) do
1599 MainForm
.pbLoad
.StepIt();
1600 Application
.ProcessMessages();
1602 item
.X
:= items
[a
].X
;
1603 item
.Y
:= items
[a
].Y
;
1604 item
.ItemType
:= items
[a
].ItemType
;
1605 item
.OnlyDM
:= ByteBool(items
[a
].Options
and ITEM_OPTION_ONLYDM
);
1606 item
.Fall
:= ByteBool(items
[a
].Options
and ITEM_OPTION_FALL
);
1612 // Загружаем монстров:
1613 monsters
:= MapReader
.GetMonsters();
1615 if monsters
<> nil then
1617 MainForm
.pbLoad
.Position
:= 0;
1618 MainForm
.pbLoad
.Max
:= Length(monsters
);
1619 MainForm
.lLoad
.Caption
:= _lc
[I_LOAD_MONSTERS
];
1621 for a
:= 0 to High(monsters
) do
1623 MainForm
.pbLoad
.StepIt();
1624 Application
.ProcessMessages();
1626 monster
.X
:= monsters
[a
].X
;
1627 monster
.Y
:= monsters
[a
].Y
;
1628 monster
.MonsterType
:= monsters
[a
].MonsterType
;
1629 monster
.Direction
:= TDirection(monsters
[a
].Direction
);
1631 AddMonster(monster
);
1635 // Загружаем области:
1636 areas
:= MapReader
.GetAreas();
1638 if areas
<> nil then
1640 MainForm
.pbLoad
.Position
:= 0;
1641 MainForm
.pbLoad
.Max
:= Length(areas
);
1642 MainForm
.lLoad
.Caption
:= _lc
[I_LOAD_AREAS
];
1644 for a
:= 0 to High(areas
) do
1646 MainForm
.pbLoad
.StepIt();
1647 Application
.ProcessMessages();
1649 area
.X
:= areas
[a
].X
;
1650 area
.Y
:= areas
[a
].Y
;
1651 area
.AreaType
:= areas
[a
].AreaType
;
1652 area
.Direction
:= TDirection(areas
[a
].Direction
);
1658 // Загружаем триггеры:
1659 triggers
:= MapReader
.GetTriggers();
1661 if triggers
<> nil then
1663 MainForm
.pbLoad
.Position
:= 0;
1664 MainForm
.pbLoad
.Max
:= Length(triggers
);
1665 MainForm
.lLoad
.Caption
:= _lc
[I_LOAD_TRIGGERS
];
1667 for a
:= 0 to High(triggers
) do
1669 MainForm
.pbLoad
.StepIt();
1670 Application
.ProcessMessages();
1672 trigger
.X
:= triggers
[a
].X
;
1673 trigger
.Y
:= triggers
[a
].Y
;
1674 trigger
.Width
:= triggers
[a
].Width
;
1675 trigger
.Height
:= triggers
[a
].Height
;
1677 trigger
.Enabled
:= ByteBool(triggers
[a
].Enabled
);
1678 trigger
.TexturePanel
:= triggers
[a
].TexturePanel
;
1679 trigger
.TriggerType
:= triggers
[a
].TriggerType
;
1680 trigger
.ActivateType
:= triggers
[a
].ActivateType
;
1681 trigger
.Key
:= triggers
[a
].Keys
;
1682 trigger
.Data
.Default
:= triggers
[a
].DATA
;
1684 AddTrigger(trigger
);
1688 // Загружаем заголовок карты:
1689 Header
:= MapReader
.GetMapHeader();
1691 gMapInfo
.FileName
:= FileName
;
1696 Name
:= win2utf(Header
.MapName
);
1697 Description
:= win2utf(Header
.MapDescription
);
1698 Author
:= win2utf(Header
.MapAuthor
);
1699 MusicName
:= win2utf(Header
.MusicName
);
1700 SkyName
:= win2utf(Header
.SkyName
);
1701 Height
:= Header
.Height
;
1702 Width
:= Header
.Width
;
1705 LoadSky(gMapInfo
.SkyName
);
1719 function LoadMapOld(_FileName
: String): Boolean;
1721 TexturePrefix
= 'Standart.wad:STDTEXTURES\';
1722 DefaultMusRes
= 'Standart.wad:STDMUS\MUS1';
1723 DefaultSkyRes
= 'Standart.wad:STDSKY\SKY0';
1736 if not FileExists(_FileName
) then
1740 MainForm
.pbLoad
.Position
:= 0;
1741 MainForm
.lLoad
.Caption
:= _lc
[I_LOAD_MAP
];;
1742 Application
.ProcessMessages();
1744 map
:= TConfig
.CreateFile(_FileName
);
1747 i
:= map
.ReadInt('MapOptions', 'TextureCount', 0);
1749 MainForm
.pbLoad
.Max
:= i
;
1750 MainForm
.pbLoad
.Position
:= 0;
1751 MainForm
.lLoad
.Caption
:= _lc
[I_LOAD_TEXTURES
];
1755 MainForm
.pbLoad
.StepIt();
1756 Application
.ProcessMessages();
1758 s
:= TexturePrefix
+ UpperCase(map
.ReadStr('Textures', 'TextureName'+IntToStr(a
), ''));
1759 if s
= TexturePrefix
then
1762 // Нет такой текстуры - ищем в WAD карты:
1763 if not g_CreateTextureWAD(s
, EditorDir
+'wads/'+s
) then
1765 s
:= ExtractFileName(_FileName
);
1766 Delete(s
, Length(s
)-3, 4);
1767 s
:= UpperCase(s
) + '.WAD:TEXTURES\'+ UpperCase(win2utf(map
.ReadStr('Textures', 'TextureName'+IntToStr(a
), '')));
1769 if not g_CreateTextureWAD(s
, EditorDir
+'wads/'+s
) then
1773 MainForm
.lbTextureList
.Items
.Add(s
);
1777 i
:= map
.ReadInt('MapOptions', 'PanelCount', 0);
1779 MainForm
.pbLoad
.Max
:= i
;
1780 MainForm
.pbLoad
.Position
:= 0;
1781 MainForm
.lLoad
.Caption
:= _lc
[I_LOAD_PANELS
];
1785 MainForm
.pbLoad
.StepIt();
1786 Application
.ProcessMessages();
1788 section
:= 'Panel' + IntToStr(a
);
1789 if not map
.SectionExists(section
) then
1792 panel
.X
:= map
.ReadInt(section
, 'X1', 0);
1793 panel
.Y
:= map
.ReadInt(section
, 'Y1', 0);
1794 panel
.Height
:= map
.ReadInt(section
, 'Height', 16);
1795 panel
.Width
:= map
.ReadInt(section
, 'Width', 16);
1797 case map
.ReadInt(section
, 'PanelType', 0) of
1798 0: panel
.PanelType
:= PANEL_WALL
;
1799 1: panel
.PanelType
:= PANEL_BACK
;
1800 2: panel
.PanelType
:= PANEL_FORE
;
1801 3: panel
.PanelType
:= PANEL_STEP
;
1802 4: panel
.PanelType
:= PANEL_WATER
;
1803 5: panel
.PanelType
:= PANEL_ACID1
;
1804 6: panel
.PanelType
:= PANEL_ACID2
;
1807 panel
.Alpha
:= map
.ReadInt(section
, 'Alpha', 0);
1810 if panel
.PanelType
in [PANEL_WALL
, PANEL_BACK
, PANEL_FORE
, PANEL_STEP
] then
1812 s
:= TexturePrefix
+ UpperCase(map
.ReadStr(section
, 'TextureName', ''));
1814 if g_GetTexture(s
, panel
.TextureID
) then
1816 g_GetTextureSizeByID(panel
.TextureID
, panel
.TextureWidth
, panel
.TextureHeight
);
1817 panel
.TextureName
:= s
;
1819 else // Нет такой текстуры - ищем в WAD карты:
1821 s
:= ExtractFileName(_FileName
);
1822 Delete(s
, Length(s
)-3, 4);
1823 s
:= UpperCase(s
) + '.WAD:TEXTURES\' + UpperCase(win2utf(map
.ReadStr(section
, 'TextureName', '')));
1825 if g_GetTexture(s
, panel
.TextureID
) then
1827 g_GetTextureSizeByID(panel
.TextureID
, panel
.TextureWidth
, panel
.TextureHeight
);
1828 panel
.TextureName
:= s
;
1834 else if panel
.PanelType
in [PANEL_WATER
, PANEL_ACID1
, PANEL_ACID2
] then
1836 case panel
.PanelType
of
1839 s
:= TEXTURE_NAME_WATER
;
1840 panel
.TextureID
:= TEXTURE_SPECIAL_WATER
;
1844 s
:= TEXTURE_NAME_ACID2
;
1845 panel
.TextureID
:= TEXTURE_SPECIAL_ACID2
;
1849 s
:= TEXTURE_NAME_ACID1
;
1850 panel
.TextureID
:= TEXTURE_SPECIAL_ACID1
;
1854 with MainForm
.lbTextureList
.Items
do
1855 if IndexOf(s
) = -1 then
1857 panel
.TextureName
:= s
;
1858 panel
.TextureWidth
:= 1;
1859 panel
.TextureHeight
:= 1;
1865 // Чтение предметов:
1866 i
:= map
.ReadInt('MapOptions', 'ItemCount', 0);
1868 MainForm
.pbLoad
.Max
:= i
;
1869 MainForm
.pbLoad
.Position
:= 0;
1870 MainForm
.lLoad
.Caption
:= _lc
[I_LOAD_ITEMS
];
1874 MainForm
.pbLoad
.StepIt();
1875 Application
.ProcessMessages();
1877 section
:= 'Item' + IntToStr(a
);
1878 if not map
.SectionExists(section
) then
1881 item
.X
:= map
.ReadInt(section
, 'X', 0);
1882 item
.Y
:= map
.ReadInt(section
, 'Y', 0);
1883 item
.ItemType
:= ITEMSCONVERT
[map
.ReadInt(section
, 'Type', 0)];
1884 item
.OnlyDM
:= False;
1885 item
.Fall
:= item
.ItemType
in [ITEM_KEY_RED
, ITEM_KEY_GREEN
, ITEM_KEY_BLUE
];
1887 // Размер предметов теперь другой:
1888 item
.X
:= item
.X
+ OldItemSize
[item
.ItemType
][0] - ItemSize
[item
.ItemType
][0];
1889 item
.Y
:= item
.Y
+ OldItemSize
[item
.ItemType
][1] - ItemSize
[item
.ItemType
][1];
1895 i
:= map
.ReadInt('MapOptions', 'AreaCount', 0);
1897 MainForm
.pbLoad
.Max
:= i
;
1898 MainForm
.pbLoad
.Position
:= 0;
1899 MainForm
.lLoad
.Caption
:= _lc
[I_LOAD_AREAS
];
1903 MainForm
.pbLoad
.StepIt();
1904 Application
.ProcessMessages();
1906 section
:= 'Area' + IntToStr(a
);
1907 if not map
.SectionExists(section
) then
1910 area
.X
:= map
.ReadInt(section
, 'X', 0);
1911 area
.Y
:= map
.ReadInt(section
, 'Y', 0);
1912 area
.AreaType
:= map
.ReadInt(section
, 'Type', 0);
1913 area
.Direction
:= D_RIGHT
;
1915 // Размер областей теперь другой:
1916 area
.X
:= area
.X
+ OldAreaSize
[0] - AreaSize
[area
.AreaType
].Width
;
1917 area
.Y
:= area
.Y
+ OldAreaSize
[1] - AreaSize
[area
.AreaType
].Height
;
1922 // Чтение параметров карты:
1925 Name
:= map
.ReadStr('MapOptions', 'MapName', '');
1926 Description
:= map
.ReadStr('MapOptions', 'MapDescription', '');
1928 MusicName
:= DefaultMusRes
;
1929 SkyName
:= DefaultSkyRes
;
1930 FileName
:= _FileName
;
1931 Height
:= map
.ReadInt('MapOptions', 'Height', 1600);
1932 Width
:= map
.ReadInt('MapOptions', 'Width', 1600);
1934 if Length(Name
) > 32 then
1935 SetLength(Name
, 32);
1936 if Length(Description
) > 256 then
1937 SetLength(Description
, 256);
1945 procedure ClearMap();
1950 if gPanels
<> nil then
1951 for a
:= 0 to High(gPanels
) do
1952 if gPanels
[a
].TextureName
<> '' then
1953 g_DeleteTexture(gPanels
[a
].TextureName
);
1955 SetLength(gPanels
, 0);
1957 SetLength(gItems
, 0);
1959 SetLength(gAreas
, 0);
1961 SetLength(gMonsters
, 0);
1963 SetLength(gTriggers
, 0);
1978 with MainForm
.lbTextureList
do
1980 if Items
.Count
> 0 then
1981 for a
:= Items
.Count
-1 downto 0 do
1982 if not IsSpecialTexture(Items
[a
]) then
1983 g_DeleteTexture(Items
[a
]);
1992 procedure DrawPanels(fPanelType
: Word);
1994 procedure DrawTexture(a
: Integer);
2005 TEXTURE_SPECIAL_NONE
:
2006 if PreviewMode
= 0 then
2007 e_DrawFillQuad(X
+MapOffset
.X
, Y
+MapOffset
.Y
,
2008 X
+MapOffset
.X
+Width
-1, Y
+MapOffset
.Y
+Height
-1,
2011 TEXTURE_SPECIAL_NOTEXTURE
:
2012 if g_GetTexture('NOTEXTURE', NoTextureID
) then
2014 g_GetTextureSizeByID(NoTextureID
, NW
, NH
);
2015 e_DrawFill(NoTextureID
, X
+MapOffset
.X
, Y
+MapOffset
.Y
,
2016 Width
div NW
, Height
div NH
, 0, False, False);
2019 TEXTURE_SPECIAL_WATER
:
2020 if PreviewMode
> 0 then
2021 e_DrawFillQuad(X
+MapOffset
.X
, Y
+MapOffset
.Y
,
2022 X
+MapOffset
.X
+Width
-1, Y
+MapOffset
.Y
+Height
-1,
2023 0, 0, 255, 0, B_FILTER
)
2025 e_DrawFillQuad(X
+MapOffset
.X
, Y
+MapOffset
.Y
,
2026 X
+MapOffset
.X
+Width
-1, Y
+MapOffset
.Y
+Height
-1,
2029 TEXTURE_SPECIAL_ACID1
:
2030 if PreviewMode
> 0 then
2031 e_DrawFillQuad(X
+MapOffset
.X
, Y
+MapOffset
.Y
,
2032 X
+MapOffset
.X
+Width
-1, Y
+MapOffset
.Y
+Height
-1,
2033 0, 127, 0, 0, B_FILTER
)
2035 e_DrawFillQuad(X
+MapOffset
.X
, Y
+MapOffset
.Y
,
2036 X
+MapOffset
.X
+Width
-1, Y
+MapOffset
.Y
+Height
-1,
2039 TEXTURE_SPECIAL_ACID2
:
2040 if PreviewMode
> 0 then
2041 e_DrawFillQuad(X
+MapOffset
.X
, Y
+MapOffset
.Y
,
2042 X
+MapOffset
.X
+Width
-1, Y
+MapOffset
.Y
+Height
-1,
2043 127, 0, 0, 0, B_FILTER
)
2045 e_DrawFillQuad(X
+MapOffset
.X
, Y
+MapOffset
.Y
,
2046 X
+MapOffset
.X
+Width
-1, Y
+MapOffset
.Y
+Height
-1,
2050 e_DrawFill(TextureID
, X
+MapOffset
.X
, Y
+MapOffset
.Y
,
2051 Width
div TextureWidth
, Height
div TextureHeight
,
2052 Alpha
, True, Blending
);
2060 if gPanels
<> nil then
2061 for a
:= 0 to High(gPanels
) do
2062 if (gPanels
[a
].PanelType
<> 0) and
2063 WordBool(gPanels
[a
].PanelType
and fPanelType
) then
2066 if (TextureID
< TEXTURE_SPECIAL_NOTEXTURE
) and (TextureWidth
= 0) and (TextureWidth
= 0) then
2067 TextureID
:= TEXTURE_SPECIAL_NOTEXTURE
;
2069 PANEL_WALL
, PANEL_BACK
, PANEL_FORE
,
2070 PANEL_STEP
, PANEL_OPENDOOR
, PANEL_CLOSEDOOR
,
2071 PANEL_WATER
, PANEL_ACID1
, PANEL_ACID2
:
2075 if PreviewMode
= 0 then
2076 e_DrawFillQuad(X
+MapOffset
.X
, Y
+MapOffset
.Y
,
2077 X
+MapOffset
.X
+Width
-1, Y
+MapOffset
.Y
+Height
-1,
2080 if PreviewMode
= 0 then
2081 e_DrawFillQuad(X
+MapOffset
.X
, Y
+MapOffset
.Y
,
2082 X
+MapOffset
.X
+Width
-1, Y
+MapOffset
.Y
+Height
-1,
2085 if PreviewMode
= 0 then
2086 e_DrawFillQuad(X
+MapOffset
.X
, Y
+MapOffset
.Y
,
2087 X
+MapOffset
.X
+Width
-1, Y
+MapOffset
.Y
+Height
-1,
2090 if PreviewMode
= 0 then
2091 e_DrawFillQuad(X
+MapOffset
.X
, Y
+MapOffset
.Y
,
2092 X
+MapOffset
.X
+Width
-1, Y
+MapOffset
.Y
+Height
-1,
2095 if PreviewMode
= 0 then
2096 e_DrawFillQuad(X
+MapOffset
.X
, Y
+MapOffset
.Y
,
2097 X
+MapOffset
.X
+Width
-1, Y
+MapOffset
.Y
+Height
-1,
2103 procedure DrawMap();
2107 xx
, yy
, dx
, dy
: Integer;
2114 // В режиме Превью рисуем небо:
2115 if PreviewMode
> 0 then
2117 w
:= Max(MainForm
.RenderPanel
.Width
, MainForm
.RenderPanel
.Height
);
2118 if MainForm
.RenderPanel
.Height
> MainForm
.RenderPanel
.Width
*3/4 then
2122 if g_GetTexture(SKY_TEXTURE
, ID
) then
2123 e_DrawSize(ID
, 0, 0, 0, False, False, w
, h
)
2125 e_DrawFillQuad(0, 0, w
-1, h
-1, 0, 0, 0, 0, B_NONE
);
2128 // Рисуем панели (если Превью или если включен слой):
2129 if LayerEnabled
[LAYER_BACK
] or (PreviewMode
= 1) then
2130 DrawPanels(PANEL_BACK
);
2131 if PreviewMode
> 0 then
2132 DrawPanels(PANEL_LIFTUP
or PANEL_LIFTDOWN
or PANEL_LIFTLEFT
or PANEL_LIFTRIGHT
)
2134 if LayerEnabled
[LAYER_WATER
] then
2135 DrawPanels(PANEL_LIFTUP
or PANEL_LIFTDOWN
or PANEL_LIFTLEFT
or PANEL_LIFTRIGHT
or
2136 PANEL_OPENDOOR
or PANEL_CLOSEDOOR
or PANEL_BLOCKMON
);
2137 if LayerEnabled
[LAYER_WALLS
] or (PreviewMode
= 1) then
2138 DrawPanels(PANEL_WALL
);
2139 if LayerEnabled
[LAYER_STEPS
] or (PreviewMode
= 1) then
2140 DrawPanels(PANEL_STEP
);
2143 if (LayerEnabled
[LAYER_ITEMS
] or (PreviewMode
= 1)) and
2144 (gItems
<> nil) then
2145 for a
:= 0 to High(gItems
) do
2146 if gItems
[a
].ItemType
<> ITEM_NONE
then
2153 ITEM_MEDKIT_SMALL
: g_GetTexture('ITEM_MEDKIT_SMALL', ID
);
2154 ITEM_MEDKIT_LARGE
: g_GetTexture('ITEM_MEDKIT_LARGE', ID
);
2155 ITEM_MEDKIT_BLACK
: g_GetTexture('ITEM_MEDKIT_BLACK', ID
);
2156 ITEM_ARMOR_GREEN
: g_GetTexture('ITEM_ARMORGREEN', ID
);
2157 ITEM_ARMOR_BLUE
: g_GetTexture('ITEM_ARMORBLUE', ID
);
2158 ITEM_SPHERE_BLUE
: g_GetTexture('ITEM_BLUESPHERE', ID
);
2159 ITEM_SPHERE_WHITE
: g_GetTexture('ITEM_WHITESPHERE', ID
);
2160 ITEM_SUIT
: g_GetTexture('ITEM_SUIT', ID
);
2161 ITEM_OXYGEN
: g_GetTexture('ITEM_OXYGEN', ID
);
2162 ITEM_INVUL
: g_GetTexture('ITEM_INVUL', ID
);
2163 ITEM_WEAPON_SAW
: g_GetTexture('ITEM_WEAPON_SAW', ID
);
2164 ITEM_WEAPON_SHOTGUN1
: g_GetTexture('ITEM_WEAPON_SHOTGUN1', ID
);
2165 ITEM_WEAPON_SHOTGUN2
: g_GetTexture('ITEM_WEAPON_SHOTGUN2', ID
);
2166 ITEM_WEAPON_CHAINGUN
: g_GetTexture('ITEM_WEAPON_CHAINGUN', ID
);
2167 ITEM_WEAPON_ROCKETLAUNCHER
: g_GetTexture('ITEM_WEAPON_ROCKETLAUNCHER', ID
);
2168 ITEM_WEAPON_PLASMA
: g_GetTexture('ITEM_WEAPON_PLASMA', ID
);
2169 ITEM_WEAPON_BFG
: g_GetTexture('ITEM_WEAPON_BFG', ID
);
2170 ITEM_WEAPON_SUPERPULEMET
: g_GetTexture('ITEM_WEAPON_SUPERPULEMET', ID
);
2171 ITEM_AMMO_BULLETS
: g_GetTexture('ITEM_AMMO_BULLETS', ID
);
2172 ITEM_AMMO_BULLETS_BOX
: g_GetTexture('ITEM_AMMO_BULLETS_BOX', ID
);
2173 ITEM_AMMO_SHELLS
: g_GetTexture('ITEM_AMMO_SHELLS', ID
);
2174 ITEM_AMMO_SHELLS_BOX
: g_GetTexture('ITEM_AMMO_SHELLS_BOX', ID
);
2175 ITEM_AMMO_ROCKET
: g_GetTexture('ITEM_AMMO_ROCKET', ID
);
2176 ITEM_AMMO_ROCKET_BOX
: g_GetTexture('ITEM_AMMO_ROCKET_BOX', ID
);
2177 ITEM_AMMO_CELL
: g_GetTexture('ITEM_AMMO_CELL', ID
);
2178 ITEM_AMMO_CELL_BIG
: g_GetTexture('ITEM_AMMO_CELL_BIG', ID
);
2179 ITEM_AMMO_BACKPACK
: g_GetTexture('ITEM_AMMO_BACKPACK', ID
);
2180 ITEM_KEY_RED
: g_GetTexture('ITEM_KEY_RED', ID
);
2181 ITEM_KEY_GREEN
: g_GetTexture('ITEM_KEY_GREEN', ID
);
2182 ITEM_KEY_BLUE
: g_GetTexture('ITEM_KEY_BLUE', ID
);
2183 ITEM_BOTTLE
: g_GetTexture('ITEM_BOTTLE', ID
);
2184 ITEM_HELMET
: g_GetTexture('ITEM_HELMET', ID
);
2185 ITEM_JETPACK
: g_GetTexture('ITEM_JETPACK', ID
);
2186 ITEM_INVIS
: g_GetTexture('ITEM_INVIS', ID
);
2187 ITEM_WEAPON_FLAMETHROWER
: g_GetTexture('ITEM_WEAPON_FLAMETHROWER', ID
);
2188 ITEM_AMMO_FUELCAN
: g_GetTexture('ITEM_AMMO_FUELCAN', ID
);
2191 if ID
<> DWORD(-1) then
2192 e_Draw(ID
, MapOffset
.X
+X
, MapOffset
.Y
+Y
, 0, True, False);
2196 if (LayerEnabled
[LAYER_MONSTERS
] or (PreviewMode
= 1)) and
2197 (gMonsters
<> nil) then
2198 for a
:= 0 to High(gMonsters
) do
2199 if gMonsters
[a
].MonsterType
<> MONSTER_NONE
then
2200 with MonsterSize
[gMonsters
[a
].MonsterType
] do
2203 sel
:= ObjectSelected(OBJECT_MONSTER
, a
);
2205 case gMonsters
[a
].MonsterType
of
2207 MONSTER_DEMON
: g_GetTexture('MONSTER_DEMON', ID
);
2208 MONSTER_IMP
: g_GetTexture('MONSTER_IMP', ID
);
2209 MONSTER_ZOMBY
: g_GetTexture('MONSTER_ZOMBY', ID
);
2210 MONSTER_SERG
: g_GetTexture('MONSTER_SERG', ID
);
2211 MONSTER_CYBER
: g_GetTexture('MONSTER_CYBER', ID
);
2212 MONSTER_CGUN
: g_GetTexture('MONSTER_CGUN', ID
);
2213 MONSTER_BARON
: g_GetTexture('MONSTER_BARON', ID
);
2214 MONSTER_KNIGHT
: g_GetTexture('MONSTER_KNIGHT', ID
);
2215 MONSTER_CACO
: g_GetTexture('MONSTER_CACO', ID
);
2216 MONSTER_SOUL
: g_GetTexture('MONSTER_SOUL', ID
);
2217 MONSTER_PAIN
: g_GetTexture('MONSTER_PAIN', ID
);
2218 MONSTER_SPIDER
: g_GetTexture('MONSTER_SPIDER', ID
);
2219 MONSTER_BSP
: g_GetTexture('MONSTER_BSP', ID
);
2220 MONSTER_MANCUB
: g_GetTexture('MONSTER_MANCUB', ID
);
2221 MONSTER_SKEL
: g_GetTexture('MONSTER_SKEL', ID
);
2222 MONSTER_VILE
: g_GetTexture('MONSTER_VILE', ID
);
2223 MONSTER_FISH
: g_GetTexture('MONSTER_FISH', ID
);
2224 MONSTER_BARREL
: g_GetTexture('MONSTER_BARREL', ID
);
2225 MONSTER_ROBO
: g_GetTexture('MONSTER_ROBO', ID
);
2226 MONSTER_MAN
: g_GetTexture('MONSTER_MAN', ID
);
2229 if ID
<> DWORD(-1) then
2230 if gMonsters
[a
].Direction
= D_LEFT
then
2232 // Расстояние от края текстуры до края визуального положения объекта на текстуре:
2233 xx
:= (X
- MonsterSizeDelta
[gMonsters
[a
].MonsterType
].X
) + Width
;
2234 // Расстояние от края хит бокса до края визуального положения объекта на текстуре:
2235 xx
:= MonsterSizeDelta
[gMonsters
[a
].MonsterType
].Width
- xx
- X
;
2236 // Т.к. двигать текстуру нужно будет в противоположном направлении:
2237 xx
:= (gMonsters
[a
].X
- X
) - xx
;
2239 yy
:= (gMonsters
[a
].Y
- Y
) +
2240 MonsterSizeDelta
[gMonsters
[a
].MonsterType
].Y
;
2242 e_Draw(ID
, MapOffset
.X
+ xx
, MapOffset
.Y
+ yy
,
2243 0, True, False, M_HORIZONTAL
);
2247 // Левый верхний угол текстуры + смещение анимации:
2248 xx
:= (gMonsters
[a
].X
- X
) +
2249 MonsterSizeDelta
[gMonsters
[a
].MonsterType
].X
;
2250 yy
:= (gMonsters
[a
].Y
- Y
) +
2251 MonsterSizeDelta
[gMonsters
[a
].MonsterType
].Y
;
2253 e_Draw(ID
, MapOffset
.X
+ xx
, MapOffset
.Y
+ yy
,
2258 if PreviewMode
= 0 then
2260 e_DrawQuad(MapOffset
.X
+gMonsters
[a
].X
, MapOffset
.Y
+gMonsters
[a
].Y
,
2261 MapOffset
.X
+gMonsters
[a
].X
+Width
-1, MapOffset
.Y
+gMonsters
[a
].Y
+Height
-1,
2262 255, 255, 255, IfThen(sel
, 0, gAlphaMonsterRect
));
2266 // Рисуем закрытые двери после монстров:
2267 if ((PreviewMode
= 2) and LayerEnabled
[LAYER_WATER
])
2268 or (PreviewMode
= 1) then
2269 DrawPanels(PANEL_CLOSEDOOR
);
2272 if (LayerEnabled
[LAYER_AREAS
] or (PreviewMode
= 1)) and
2273 (gAreas
<> nil) then
2274 for a
:= 0 to High(gAreas
) do
2275 if gAreas
[a
].AreaType
<> AREA_NONE
then
2276 with AreaSize
[gAreas
[a
].AreaType
] do
2279 sel
:= ObjectSelected(OBJECT_AREA
, a
);
2281 case gAreas
[a
].AreaType
of
2282 AREA_PLAYERPOINT1
: g_GetTexture('AREA_PLAYERPOINT1', ID
);
2283 AREA_PLAYERPOINT2
: g_GetTexture('AREA_PLAYERPOINT2', ID
);
2284 AREA_DMPOINT
: g_GetTexture('AREA_DMPOINT', ID
);
2285 AREA_REDFLAG
: g_GetTexture('AREA_REDFLAG', ID
);
2286 AREA_BLUEFLAG
: g_GetTexture('AREA_BLUEFLAG', ID
);
2287 AREA_DOMFLAG
: g_GetTexture('AREA_DOMFLAG', ID
);
2288 AREA_REDTEAMPOINT
: g_GetTexture('AREA_REDPOINT', ID
);
2289 AREA_BLUETEAMPOINT
: g_GetTexture('AREA_BLUEPOINT', ID
);
2292 if (PreviewMode
= 0) or
2293 (gAreas
[a
].AreaType
= AREA_REDFLAG
) or
2294 (gAreas
[a
].AreaType
= AREA_BLUEFLAG
) or
2295 (gAreas
[a
].AreaType
= AREA_DOMFLAG
) then
2296 if ID
<> DWORD(-1) then
2297 if gAreas
[a
].Direction
= D_LEFT
then
2298 e_Draw(ID
, MapOffset
.X
+gAreas
[a
].X
-X
, MapOffset
.Y
+gAreas
[a
].Y
-Y
,
2299 0, True, False, M_HORIZONTAL
)
2301 e_Draw(ID
, MapOffset
.X
+gAreas
[a
].X
-X
, MapOffset
.Y
+gAreas
[a
].Y
-Y
,
2305 if PreviewMode
= 0 then
2307 e_DrawQuad(MapOffset
.X
+gAreas
[a
].X
, MapOffset
.Y
+gAreas
[a
].Y
,
2308 MapOffset
.X
+gAreas
[a
].X
+Width
-1, MapOffset
.Y
+gAreas
[a
].Y
+Height
-1,
2309 255, 255, 255, IfThen(sel
, 0, gAlphaAreaRect
));
2311 e_DrawPoint(2, MapOffset
.X
+gAreas
[a
].X
, MapOffset
.Y
+gAreas
[a
].Y
, 255, 0, 0);
2315 // Рисуем жидкости и передний план после областей:
2316 if LayerEnabled
[LAYER_WATER
] or (PreviewMode
= 1) then
2317 DrawPanels(PANEL_WATER
or PANEL_ACID1
or PANEL_ACID2
);
2318 if LayerEnabled
[LAYER_FOREGROUND
] or (PreviewMode
= 1) then
2319 DrawPanels(PANEL_FORE
);
2322 if LayerEnabled
[LAYER_TRIGGERS
] and
2323 (PreviewMode
= 0) and (gTriggers
<> nil) then
2324 for a
:= 0 to High(gTriggers
) do
2325 with gTriggers
[a
] do
2326 if TriggerType
<> TRIGGER_NONE
then
2328 // Если выбран - рисуем красным, иначе - белым:
2329 sel
:= ObjectSelected(OBJECT_TRIGGER
, a
);
2331 e_DrawFillQuad(MapOffset
.X
+X
, MapOffset
.Y
+Y
,
2332 MapOffset
.X
+X
+Width
-1, MapOffset
.Y
+Y
+Height
-1,
2335 if TexturePanel
<> -1 then
2337 with gPanels
[TexturePanel
] do
2345 e_DrawQuad(MapOffset
.X
+xx
, MapOffset
.Y
+yy
,
2346 MapOffset
.X
+xx
+ww
-1, MapOffset
.Y
+yy
+hh
-1,
2347 255, 255, 255, IfThen(sel
, 0, gAlphaTriggerArea
));
2348 e_DrawLine(1, MapOffset
.X
+X
+(Width
div 2), MapOffset
.Y
+Y
+(Height
div 2),
2349 MapOffset
.X
+xx
, MapOffset
.Y
+yy
,
2350 0, 255, 0, IfThen(sel
, 0, gAlphaTriggerArea
));
2358 // Точка назначения Телепорта:
2359 if Data
.d2d_teleport
then
2360 e_DrawLine(2, MapOffset
.X
+Data
.TargetPoint
.X
-16,
2361 MapOffset
.Y
+Data
.TargetPoint
.Y
-1,
2362 MapOffset
.X
+Data
.TargetPoint
.X
+16, MapOffset
.Y
+Data
.TargetPoint
.Y
-1,
2363 0, 0, 255, IfThen(sel
, 0, gAlphaTriggerArea
))
2365 e_DrawQuad(MapOffset
.X
+Data
.TargetPoint
.X
,
2366 MapOffset
.Y
+Data
.TargetPoint
.Y
,
2367 MapOffset
.X
+Data
.TargetPoint
.X
+AreaSize
[AREA_DMPOINT
].Width
-1,
2368 MapOffset
.Y
+Data
.TargetPoint
.Y
+AreaSize
[AREA_DMPOINT
].Height
-1,
2369 255, 255, 255, IfThen(sel
, 0, gAlphaTriggerArea
));
2370 e_DrawPoint(2, MapOffset
.X
+Data
.TargetPoint
.X
,
2371 MapOffset
.Y
+Data
.TargetPoint
.Y
,
2373 // Линия к точке назначения Телепорта:
2374 e_DrawLine(1, MapOffset
.X
+X
+(Width
div 2),
2375 MapOffset
.Y
+Y
+(Height
div 2),
2376 MapOffset
.X
+Data
.TargetPoint
.X
,
2377 MapOffset
.Y
+Data
.TargetPoint
.Y
,
2378 255, 255, 255, IfThen(sel
, 0, gAlphaTriggerLine
));
2381 TRIGGER_OPENDOOR
, TRIGGER_CLOSEDOOR
,
2382 TRIGGER_DOOR
, TRIGGER_DOOR5
, TRIGGER_CLOSETRAP
,
2383 TRIGGER_TRAP
, TRIGGER_LIFTUP
, TRIGGER_LIFTDOWN
,
2385 if Data
.PanelID
<> -1 then
2387 // Дверь/Ловушка/Лифт:
2388 e_DrawQuad(MapOffset
.X
+gPanels
[Data
.PanelID
].X
,
2389 MapOffset
.Y
+gPanels
[Data
.PanelID
].Y
,
2390 MapOffset
.X
+gPanels
[Data
.PanelID
].X
+gPanels
[Data
.PanelID
].Width
-1,
2391 MapOffset
.Y
+gPanels
[Data
.PanelID
].Y
+gPanels
[Data
.PanelID
].Height
-1,
2392 255, 255, 255, IfThen(sel
, 0, gAlphaTriggerArea
));
2393 e_DrawPoint(2, MapOffset
.X
+gPanels
[Data
.PanelID
].X
,
2394 MapOffset
.Y
+gPanels
[Data
.PanelID
].Y
,
2396 // Линия к Двери/Ловушке/Лифту:
2397 e_DrawLine(1, MapOffset
.X
+X
+(Width
div 2),
2398 MapOffset
.Y
+Y
+(Height
div 2),
2399 MapOffset
.X
+gPanels
[Data
.PanelID
].X
,
2400 MapOffset
.Y
+gPanels
[Data
.PanelID
].Y
,
2401 255, 255, 255, IfThen(sel
, 0, gAlphaTriggerLine
));
2404 TRIGGER_PRESS
, TRIGGER_ON
,
2405 TRIGGER_OFF
, TRIGGER_ONOFF
:
2407 if (Data
.tWidth
> 0) and
2408 (Data
.tHeight
> 0) then
2410 // Область Расширителя:
2411 e_DrawQuad(MapOffset
.X
+Data
.tX
,
2412 MapOffset
.Y
+Data
.tY
,
2413 MapOffset
.X
+Data
.tX
+Data
.tWidth
-1,
2414 MapOffset
.Y
+Data
.tY
+Data
.tHeight
-1,
2415 255, 255, 255, IfThen(sel
, 0, gAlphaTriggerArea
));
2416 e_DrawPoint(2, MapOffset
.X
+Data
.tX
,
2417 MapOffset
.Y
+Data
.tY
,
2419 // Линия к области Расширителя:
2420 e_DrawLine(1, MapOffset
.X
+X
+(Width
div 2),
2421 MapOffset
.Y
+Y
+(Height
div 2),
2422 MapOffset
.X
+Data
.tX
,
2423 MapOffset
.Y
+Data
.tY
,
2424 255, 255, 255, IfThen(sel
, 0, gAlphaTriggerLine
));
2427 if Data
.MonsterID
<> 0 then
2428 if (gMonsters
<> nil) and
2429 (gMonsters
[Data
.MonsterID
-1].MonsterType
<> MONSTER_NONE
) then
2431 // Рамка вокруг Монстра - условия активации:
2432 r
:= ObjectGetRect(OBJECT_MONSTER
, Data
.MonsterID
-1);
2433 e_DrawQuad(MapOffset
.X
+r
.X
,
2435 MapOffset
.X
+r
.X
+r
.Width
-1,
2436 MapOffset
.Y
+r
.Y
+r
.Height
-1,
2437 0, 255, 0, IfThen(sel
, 0, gAlphaTriggerArea
));
2438 // Линия к Монстру - условию активации:
2439 e_DrawLine(1, MapOffset
.X
+X
+(Width
div 2),
2440 MapOffset
.Y
+Y
+(Height
div 2),
2443 0, 255, 0, IfThen(sel
, 0, gAlphaTriggerArea
));
2450 TRIGGER_SPAWNMONSTER
, TRIGGER_SPAWNITEM
:
2452 if TriggerType
= TRIGGER_SPAWNMONSTER
then
2454 xx
:= Data
.MonPos
.X
;
2455 yy
:= Data
.MonPos
.Y
;
2459 xx
:= Data
.ItemPos
.X
;
2460 yy
:= Data
.ItemPos
.Y
;
2462 // Точка появления Монстра/Предмета:
2463 e_DrawLine(2, MapOffset
.X
+xx
-16,
2467 0, 0, 255, IfThen(sel
, 0, gAlphaTriggerArea
));
2468 e_DrawPoint(2, MapOffset
.X
+xx
,
2471 // Линия к точке появления Монстра/Предмета:
2472 e_DrawLine(1, MapOffset
.X
+X
+(Width
div 2),
2473 MapOffset
.Y
+Y
+(Height
div 2),
2476 255, 255, 255, IfThen(sel
, 0, gAlphaTriggerLine
));
2477 // Предпросмотр создаваемого объекта:
2481 if TriggerType
= TRIGGER_SPAWNMONSTER
then
2483 if Data
.MonType
<> MONSTER_NONE
then
2484 with MonsterSize
[Data
.MonType
] do
2487 case Data
.MonType
of
2488 MONSTER_DEMON
: g_GetTexture('MONSTER_DEMON', ID
);
2489 MONSTER_IMP
: g_GetTexture('MONSTER_IMP', ID
);
2490 MONSTER_ZOMBY
: g_GetTexture('MONSTER_ZOMBY', ID
);
2491 MONSTER_SERG
: g_GetTexture('MONSTER_SERG', ID
);
2492 MONSTER_CYBER
: g_GetTexture('MONSTER_CYBER', ID
);
2493 MONSTER_CGUN
: g_GetTexture('MONSTER_CGUN', ID
);
2494 MONSTER_BARON
: g_GetTexture('MONSTER_BARON', ID
);
2495 MONSTER_KNIGHT
: g_GetTexture('MONSTER_KNIGHT', ID
);
2496 MONSTER_CACO
: g_GetTexture('MONSTER_CACO', ID
);
2497 MONSTER_SOUL
: g_GetTexture('MONSTER_SOUL', ID
);
2498 MONSTER_PAIN
: g_GetTexture('MONSTER_PAIN', ID
);
2499 MONSTER_SPIDER
: g_GetTexture('MONSTER_SPIDER', ID
);
2500 MONSTER_BSP
: g_GetTexture('MONSTER_BSP', ID
);
2501 MONSTER_MANCUB
: g_GetTexture('MONSTER_MANCUB', ID
);
2502 MONSTER_SKEL
: g_GetTexture('MONSTER_SKEL', ID
);
2503 MONSTER_VILE
: g_GetTexture('MONSTER_VILE', ID
);
2504 MONSTER_FISH
: g_GetTexture('MONSTER_FISH', ID
);
2505 MONSTER_BARREL
: g_GetTexture('MONSTER_BARREL', ID
);
2506 MONSTER_ROBO
: g_GetTexture('MONSTER_ROBO', ID
);
2507 MONSTER_MAN
: g_GetTexture('MONSTER_MAN', ID
);
2509 if ID
<> DWORD(-1) then
2511 if Data
.MonDir
= Byte(D_LEFT
) then
2513 xx
:= X
- MonsterSizeDelta
[Data
.MonType
].X
+ Width
;
2514 xx
:= MonsterSizeDelta
[Data
.MonType
].Width
- xx
- X
;
2515 xx
:= Data
.TargetPoint
.X
- X
- xx
- (Width
div 2);
2517 yy
:= Data
.TargetPoint
.Y
- Y
+
2518 MonsterSizeDelta
[Data
.MonType
].Y
-Height
;
2520 e_Draw(ID
, MapOffset
.X
+ xx
, MapOffset
.Y
+ yy
,
2521 128, True, False, M_HORIZONTAL
);
2525 xx
:= Data
.TargetPoint
.X
- X
+
2526 MonsterSizeDelta
[Data
.MonType
].X
-(Width
div 2);
2527 yy
:= Data
.TargetPoint
.Y
- Y
+
2528 MonsterSizeDelta
[Data
.MonType
].Y
-Height
;
2530 e_Draw(ID
, MapOffset
.X
+ xx
, MapOffset
.Y
+ yy
,
2534 e_DrawQuad(MapOffset
.X
+Data
.TargetPoint
.X
-(Width
div 2), MapOffset
.Y
+Data
.TargetPoint
.Y
-Height
,
2535 MapOffset
.X
+Data
.TargetPoint
.X
+(Width
div 2)-1, MapOffset
.Y
+Data
.TargetPoint
.Y
-1,
2543 if Data
.ItemType
<> ITEM_NONE
then
2546 case Data
.ItemType
of
2547 ITEM_MEDKIT_SMALL
: g_GetTexture('ITEM_MEDKIT_SMALL', ID
);
2548 ITEM_MEDKIT_LARGE
: g_GetTexture('ITEM_MEDKIT_LARGE', ID
);
2549 ITEM_MEDKIT_BLACK
: g_GetTexture('ITEM_MEDKIT_BLACK', ID
);
2550 ITEM_ARMOR_GREEN
: g_GetTexture('ITEM_ARMORGREEN', ID
);
2551 ITEM_ARMOR_BLUE
: g_GetTexture('ITEM_ARMORBLUE', ID
);
2552 ITEM_SPHERE_BLUE
: g_GetTexture('ITEM_BLUESPHERE', ID
);
2553 ITEM_SPHERE_WHITE
: g_GetTexture('ITEM_WHITESPHERE', ID
);
2554 ITEM_SUIT
: g_GetTexture('ITEM_SUIT', ID
);
2555 ITEM_OXYGEN
: g_GetTexture('ITEM_OXYGEN', ID
);
2556 ITEM_INVUL
: g_GetTexture('ITEM_INVUL', ID
);
2557 ITEM_WEAPON_SAW
: g_GetTexture('ITEM_WEAPON_SAW', ID
);
2558 ITEM_WEAPON_SHOTGUN1
: g_GetTexture('ITEM_WEAPON_SHOTGUN1', ID
);
2559 ITEM_WEAPON_SHOTGUN2
: g_GetTexture('ITEM_WEAPON_SHOTGUN2', ID
);
2560 ITEM_WEAPON_CHAINGUN
: g_GetTexture('ITEM_WEAPON_CHAINGUN', ID
);
2561 ITEM_WEAPON_ROCKETLAUNCHER
: g_GetTexture('ITEM_WEAPON_ROCKETLAUNCHER', ID
);
2562 ITEM_WEAPON_PLASMA
: g_GetTexture('ITEM_WEAPON_PLASMA', ID
);
2563 ITEM_WEAPON_BFG
: g_GetTexture('ITEM_WEAPON_BFG', ID
);
2564 ITEM_WEAPON_SUPERPULEMET
: g_GetTexture('ITEM_WEAPON_SUPERPULEMET', ID
);
2565 ITEM_AMMO_BULLETS
: g_GetTexture('ITEM_AMMO_BULLETS', ID
);
2566 ITEM_AMMO_BULLETS_BOX
: g_GetTexture('ITEM_AMMO_BULLETS_BOX', ID
);
2567 ITEM_AMMO_SHELLS
: g_GetTexture('ITEM_AMMO_SHELLS', ID
);
2568 ITEM_AMMO_SHELLS_BOX
: g_GetTexture('ITEM_AMMO_SHELLS_BOX', ID
);
2569 ITEM_AMMO_ROCKET
: g_GetTexture('ITEM_AMMO_ROCKET', ID
);
2570 ITEM_AMMO_ROCKET_BOX
: g_GetTexture('ITEM_AMMO_ROCKET_BOX', ID
);
2571 ITEM_AMMO_CELL
: g_GetTexture('ITEM_AMMO_CELL', ID
);
2572 ITEM_AMMO_CELL_BIG
: g_GetTexture('ITEM_AMMO_CELL_BIG', ID
);
2573 ITEM_AMMO_BACKPACK
: g_GetTexture('ITEM_AMMO_BACKPACK', ID
);
2574 ITEM_KEY_RED
: g_GetTexture('ITEM_KEY_RED', ID
);
2575 ITEM_KEY_GREEN
: g_GetTexture('ITEM_KEY_GREEN', ID
);
2576 ITEM_KEY_BLUE
: g_GetTexture('ITEM_KEY_BLUE', ID
);
2577 ITEM_BOTTLE
: g_GetTexture('ITEM_BOTTLE', ID
);
2578 ITEM_HELMET
: g_GetTexture('ITEM_HELMET', ID
);
2579 ITEM_JETPACK
: g_GetTexture('ITEM_JETPACK', ID
);
2580 ITEM_INVIS
: g_GetTexture('ITEM_INVIS', ID
);
2581 ITEM_WEAPON_FLAMETHROWER
: g_GetTexture('ITEM_WEAPON_FLAMETHROWER', ID
);
2582 ITEM_AMMO_FUELCAN
: g_GetTexture('ITEM_AMMO_FUELCAN', ID
);
2584 if ID
<> DWORD(-1) then
2585 e_Draw(ID
, MapOffset
.X
+Data
.ItemPos
.X
-(ItemSize
[Data
.ItemType
][0] div 2),
2586 MapOffset
.Y
+Data
.ItemPos
.Y
-ItemSize
[Data
.ItemType
][1],
2589 e_DrawQuad(MapOffset
.X
+Data
.ItemPos
.X
-(ItemSize
[Data
.ItemType
][0] div 2), MapOffset
.Y
+Data
.ItemPos
.Y
-ItemSize
[Data
.ItemType
][1],
2590 MapOffset
.X
+Data
.ItemPos
.X
+(ItemSize
[Data
.ItemType
][0] div 2)-1, MapOffset
.Y
+Data
.ItemPos
.Y
-1,
2599 // Линия направления и силы ускорения:
2600 xx
:= Round(Cos(-DegToRad(Data
.PushAngle
)) * Data
.PushForce
) + X
+(Width
div 2);
2601 yy
:= Round(Sin(-DegToRad(Data
.PushAngle
)) * Data
.PushForce
) + Y
+(Height
div 2);
2602 e_DrawLine(1, MapOffset
.X
+X
+(Width
div 2),
2603 MapOffset
.Y
+Y
+(Height
div 2),
2606 255, 255, 255, IfThen(sel
, 0, gAlphaTriggerLine
));
2611 xx
:= Data
.ShotPos
.X
;
2612 yy
:= Data
.ShotPos
.Y
;
2613 // Точка появления снаряда:
2614 e_DrawPoint(2, MapOffset
.X
+xx
,
2617 // Линия к точке появления снаряда:
2618 e_DrawLine(1, MapOffset
.X
+X
+(Width
div 2),
2619 MapOffset
.Y
+Y
+(Height
div 2),
2622 255, 255, 255, IfThen(sel
, 0, gAlphaTriggerLine
));
2623 // Линия направления выстрела:
2624 dx
:= Round(Cos(-DegToRad(Data
.ShotAngle
)) * 24);
2625 dy
:= Round(Sin(-DegToRad(Data
.ShotAngle
)) * 24);
2626 e_DrawLine(1, MapOffset
.X
+xx
,
2630 255, 255, 255, IfThen(sel
, 0, gAlphaTriggerLine
));
2632 if (Data
.ShotPanelID
<> -1) and
2633 (Data
.ShotPanelID
<= High(gPanels
)) then
2635 // Линия к панели индикации выстрела
2636 with gPanels
[Data
.ShotPanelID
] do
2644 e_DrawQuad(MapOffset
.X
+xx
, MapOffset
.Y
+yy
,
2645 MapOffset
.X
+xx
+ww
-1, MapOffset
.Y
+yy
+hh
-1,
2646 255, 255, 255, IfThen(sel
, 0, gAlphaTriggerArea
));
2647 e_DrawLine(1, MapOffset
.X
+X
+(Width
div 2), MapOffset
.Y
+Y
+(Height
div 2),
2648 MapOffset
.X
+xx
, MapOffset
.Y
+yy
,
2649 255, 255, 0, IfThen(sel
, 0, gAlphaTriggerArea
));
2656 if PreviewMode
= 0 then
2658 e_DrawFillQuad(-32+MapOffset
.X
,
2660 gMapInfo
.Width
+31+MapOffset
.X
,
2662 drEdge
[0], drEdge
[1], drEdge
[2], drEdge
[3], B_NONE
); // Top
2663 e_DrawFillQuad(-32+MapOffset
.X
,
2664 gMapInfo
.Height
+MapOffset
.Y
,
2665 gMapInfo
.Width
+31+MapOffset
.X
,
2666 gMapInfo
.Height
+31+MapOffset
.Y
,
2667 drEdge
[0], drEdge
[1], drEdge
[2], drEdge
[3], B_NONE
); // Bottom
2668 e_DrawFillQuad(-32+MapOffset
.X
,
2671 gMapInfo
.Height
+MapOffset
.Y
-1,
2672 drEdge
[0], drEdge
[1], drEdge
[2], drEdge
[3], B_NONE
); // Left
2673 e_DrawFillQuad(gMapInfo
.Width
+MapOffset
.X
,
2675 gMapInfo
.Width
+31+MapOffset
.X
,
2676 gMapInfo
.Height
+MapOffset
.Y
-1,
2677 drEdge
[0], drEdge
[1], drEdge
[2], drEdge
[3], B_NONE
); // Right
2681 procedure ShiftMapObjects(dx
, dy
: Integer);
2685 if gPanels
<> nil then
2686 for i
:= 0 to High(gPanels
) do
2687 if gPanels
[i
].PanelType
<> 0 then
2689 Inc(gPanels
[i
].X
, dx
);
2690 Inc(gPanels
[i
].Y
, dy
);
2693 if gItems
<> nil then
2694 for i
:= 0 to High(gItems
) do
2695 if gItems
[i
].ItemType
<> 0 then
2697 Inc(gItems
[i
].X
, dx
);
2698 Inc(gItems
[i
].Y
, dy
);
2701 if gAreas
<> nil then
2702 for i
:= 0 to High(gAreas
) do
2703 if gAreas
[i
].AreaType
<> 0 then
2705 Inc(gAreas
[i
].X
, dx
);
2706 Inc(gAreas
[i
].Y
, dy
);
2709 if gMonsters
<> nil then
2710 for i
:= 0 to High(gMonsters
) do
2711 if gMonsters
[i
].MonsterType
<> 0 then
2713 Inc(gMonsters
[i
].X
, dx
);
2714 Inc(gMonsters
[i
].Y
, dy
);
2717 if gTriggers
<> nil then
2718 for i
:= 0 to High(gTriggers
) do
2719 if gTriggers
[i
].TriggerType
<> 0 then
2721 Inc(gTriggers
[i
].X
, dx
);
2722 Inc(gTriggers
[i
].Y
, dy
);
2724 case gTriggers
[i
].TriggerType
of
2727 Inc(gTriggers
[i
].Data
.TargetPoint
.X
, dx
);
2728 Inc(gTriggers
[i
].Data
.TargetPoint
.Y
, dy
);
2731 TRIGGER_PRESS
, TRIGGER_ON
,
2732 TRIGGER_OFF
, TRIGGER_ONOFF
:
2734 Inc(gTriggers
[i
].Data
.tX
, dx
);
2735 Inc(gTriggers
[i
].Data
.tY
, dy
);
2738 TRIGGER_SPAWNMONSTER
:
2740 Inc(gTriggers
[i
].Data
.MonPos
.X
, dx
);
2741 Inc(gTriggers
[i
].Data
.MonPos
.Y
, dy
);
2746 Inc(gTriggers
[i
].Data
.ItemPos
.X
, dx
);
2747 Inc(gTriggers
[i
].Data
.ItemPos
.Y
, dy
);
2752 Inc(gTriggers
[i
].Data
.ShotPos
.X
, dx
);
2753 Inc(gTriggers
[i
].Data
.ShotPos
.Y
, dy
);
2759 procedure LoadData();
2761 g_CreateTextureWAD('PREVIEW', EditorDir
+'data/Editor.wad:TEXTURES\CHECKERS');
2762 g_CreateTextureWAD('NOTEXTURE', EditorDir
+'data/Game.wad:TEXTURES\NOTEXTURE');
2764 g_CreateTextureWADSize('AREA_REDFLAG', EditorDir
+'data/Game.wad:TEXTURES\FLAGRED', 0, 0, 64, 64);
2765 g_CreateTextureWADSize('AREA_BLUEFLAG', EditorDir
+'data/Game.wad:TEXTURES\FLAGBLUE', 0, 0, 64, 64);
2766 g_CreateTextureWADSize('AREA_DOMFLAG', EditorDir
+'data/Game.wad:TEXTURES\FLAGDOM', 0, 0, 64, 64);
2768 g_CreateTextureWADSize('MONSTER_DEMON', EditorDir
+'data/Game.wad:MTEXTURES\DEMON_SLEEP', 0, 0, 64, 64);
2769 g_CreateTextureWADSize('MONSTER_IMP', EditorDir
+'data/Game.wad:MTEXTURES\IMP_SLEEP', 0, 0, 64, 64);
2770 g_CreateTextureWADSize('MONSTER_ZOMBY', EditorDir
+'data/Game.wad:MTEXTURES\ZOMBY_SLEEP', 0, 0, 64, 64);
2771 g_CreateTextureWADSize('MONSTER_SERG', EditorDir
+'data/Game.wad:MTEXTURES\SERG_SLEEP', 0, 0, 64, 64);
2772 g_CreateTextureWADSize('MONSTER_CYBER', EditorDir
+'data/Game.wad:MTEXTURES\CYBER_SLEEP', 0, 0, 128, 128);
2773 g_CreateTextureWADSize('MONSTER_CGUN', EditorDir
+'data/Game.wad:MTEXTURES\CGUN_SLEEP', 0, 0, 64, 64);
2774 g_CreateTextureWADSize('MONSTER_BARON', EditorDir
+'data/Game.wad:MTEXTURES\BARON_SLEEP', 0, 0, 128, 128);
2775 g_CreateTextureWADSize('MONSTER_KNIGHT', EditorDir
+'data/Game.wad:MTEXTURES\KNIGHT_SLEEP', 0, 0, 128, 128);
2776 g_CreateTextureWADSize('MONSTER_CACO', EditorDir
+'data/Game.wad:MTEXTURES\CACO_SLEEP', 0, 0, 128, 128);
2777 g_CreateTextureWADSize('MONSTER_SOUL', EditorDir
+'data/Game.wad:MTEXTURES\SOUL_SLEEP', 0, 0, 64, 64);
2778 g_CreateTextureWADSize('MONSTER_PAIN', EditorDir
+'data/Game.wad:MTEXTURES\PAIN_SLEEP', 0, 0, 128, 128);
2779 g_CreateTextureWADSize('MONSTER_SPIDER', EditorDir
+'data/Game.wad:MTEXTURES\SPIDER_SLEEP', 0, 0, 256, 128);
2780 g_CreateTextureWADSize('MONSTER_BSP', EditorDir
+'data/Game.wad:MTEXTURES\BSP_SLEEP', 0, 0, 128, 64);
2781 g_CreateTextureWADSize('MONSTER_MANCUB', EditorDir
+'data/Game.wad:MTEXTURES\MANCUB_SLEEP', 0, 0, 128, 128);
2782 g_CreateTextureWADSize('MONSTER_SKEL', EditorDir
+'data/Game.wad:MTEXTURES\SKEL_SLEEP', 0, 0, 128, 128);
2783 g_CreateTextureWADSize('MONSTER_VILE', EditorDir
+'data/Game.wad:MTEXTURES\VILE_SLEEP', 0, 0, 128, 128);
2784 g_CreateTextureWADSize('MONSTER_FISH', EditorDir
+'data/Game.wad:MTEXTURES\FISH_SLEEP', 0, 0, 32, 32);
2785 g_CreateTextureWADSize('MONSTER_BARREL', EditorDir
+'data/Game.wad:MTEXTURES\BARREL_SLEEP', 0, 0, 64, 64);
2786 g_CreateTextureWADSize('MONSTER_ROBO', EditorDir
+'data/Game.wad:MTEXTURES\ROBO_SLEEP', 0, 0, 128, 128);
2787 g_CreateTextureWADSize('MONSTER_MAN', EditorDir
+'data/Game.wad:MTEXTURES\MAN_SLEEP', 0, 0, 64, 64);
2789 g_CreateTextureWADSize('ITEM_BLUESPHERE', EditorDir
+'data/Game.wad:TEXTURES\SBLUE', 0, 0, 32, 32);
2790 g_CreateTextureWADSize('ITEM_WHITESPHERE', EditorDir
+'data/Game.wad:TEXTURES\SWHITE', 0, 0, 32, 32);
2791 g_CreateTextureWADSize('ITEM_ARMORGREEN', EditorDir
+'data/Game.wad:TEXTURES\ARMORGREEN', 0, 0, 32, 16);
2792 g_CreateTextureWADSize('ITEM_ARMORBLUE', EditorDir
+'data/Game.wad:TEXTURES\ARMORBLUE', 0, 0, 32, 16);
2793 g_CreateTextureWADSize('ITEM_INVUL', EditorDir
+'data/Game.wad:TEXTURES\INVUL', 0, 0, 32, 32);
2794 g_CreateTextureWADSize('ITEM_BOTTLE', EditorDir
+'data/Game.wad:TEXTURES\BOTTLE', 0, 0, 16, 32);
2795 g_CreateTextureWADSize('ITEM_HELMET', EditorDir
+'data/Game.wad:TEXTURES\HELMET', 0, 0, 16, 16);
2796 g_CreateTextureWADSize('ITEM_JETPACK', EditorDir
+'data/Game.wad:TEXTURES\JETPACK', 0, 0, 32, 32);
2797 g_CreateTextureWADSize('ITEM_INVIS', EditorDir
+'data/Game.wad:TEXTURES\INVIS', 0, 0, 32, 32);
2798 g_CreateTextureWADSize('ITEM_WEAPON_FLAMETHROWER', EditorDir
+'data/Game.wad:TEXTURES\FLAMETHROWER', 0, 0, 64, 32);
2799 g_CreateTextureWADSize('ITEM_AMMO_FUELCAN', EditorDir
+'data/Game.wad:TEXTURES\FUELCAN', 0, 0, 16, 32);
2801 g_CreateTextureWAD('ITEM_MEDKIT_SMALL', EditorDir
+'data/Game.wad:TEXTURES\MED1');
2802 g_CreateTextureWAD('ITEM_MEDKIT_LARGE', EditorDir
+'data/Game.wad:TEXTURES\MED2');
2803 g_CreateTextureWAD('ITEM_WEAPON_SAW', EditorDir
+'data/Game.wad:TEXTURES\SAW');
2804 g_CreateTextureWAD('ITEM_WEAPON_PISTOL', EditorDir
+'data/Game.wad:TEXTURES\PISTOL');
2805 g_CreateTextureWAD('ITEM_WEAPON_KASTET', EditorDir
+'data/Game.wad:TEXTURES\KASTET');
2806 g_CreateTextureWAD('ITEM_WEAPON_SHOTGUN1', EditorDir
+'data/Game.wad:TEXTURES\SHOTGUN1');
2807 g_CreateTextureWAD('ITEM_WEAPON_SHOTGUN2', EditorDir
+'data/Game.wad:TEXTURES\SHOTGUN2');
2808 g_CreateTextureWAD('ITEM_WEAPON_CHAINGUN', EditorDir
+'data/Game.wad:TEXTURES\MGUN');
2809 g_CreateTextureWAD('ITEM_WEAPON_ROCKETLAUNCHER', EditorDir
+'data/Game.wad:TEXTURES\RLAUNCHER');
2810 g_CreateTextureWAD('ITEM_WEAPON_PLASMA', EditorDir
+'data/Game.wad:TEXTURES\PGUN');
2811 g_CreateTextureWAD('ITEM_WEAPON_BFG', EditorDir
+'data/Game.wad:TEXTURES\BFG');
2812 g_CreateTextureWAD('ITEM_WEAPON_SUPERPULEMET', EditorDir
+'data/Game.wad:TEXTURES\SPULEMET');
2813 g_CreateTextureWAD('ITEM_AMMO_BULLETS', EditorDir
+'data/Game.wad:TEXTURES\CLIP');
2814 g_CreateTextureWAD('ITEM_AMMO_BULLETS_BOX', EditorDir
+'data/Game.wad:TEXTURES\AMMO');
2815 g_CreateTextureWAD('ITEM_AMMO_SHELLS', EditorDir
+'data/Game.wad:TEXTURES\SHELL1');
2816 g_CreateTextureWAD('ITEM_AMMO_SHELLS_BOX', EditorDir
+'data/Game.wad:TEXTURES\SHELL2');
2817 g_CreateTextureWAD('ITEM_AMMO_ROCKET', EditorDir
+'data/Game.wad:TEXTURES\ROCKET');
2818 g_CreateTextureWAD('ITEM_AMMO_ROCKET_BOX', EditorDir
+'data/Game.wad:TEXTURES\ROCKETS');
2819 g_CreateTextureWAD('ITEM_AMMO_CELL', EditorDir
+'data/Game.wad:TEXTURES\CELL');
2820 g_CreateTextureWAD('ITEM_AMMO_CELL_BIG', EditorDir
+'data/Game.wad:TEXTURES\CELL2');
2821 g_CreateTextureWAD('ITEM_AMMO_BACKPACK', EditorDir
+'data/Game.wad:TEXTURES\BPACK');
2822 g_CreateTextureWAD('ITEM_KEY_RED', EditorDir
+'data/Game.wad:TEXTURES\KEYR');
2823 g_CreateTextureWAD('ITEM_KEY_GREEN', EditorDir
+'data/Game.wad:TEXTURES\KEYG');
2824 g_CreateTextureWAD('ITEM_KEY_BLUE', EditorDir
+'data/Game.wad:TEXTURES\KEYB');
2825 g_CreateTextureWAD('ITEM_OXYGEN', EditorDir
+'data/Game.wad:TEXTURES\OXYGEN');
2826 g_CreateTextureWAD('ITEM_SUIT', EditorDir
+'data/Game.wad:TEXTURES\SUIT');
2827 g_CreateTextureWAD('ITEM_MEDKIT_BLACK', EditorDir
+'data/Game.wad:TEXTURES\BMED');
2829 g_CreateTextureWAD('AREA_PLAYERPOINT1', EditorDir
+'data/Editor.wad:TEXTURES\P1POINT');
2830 g_CreateTextureWAD('AREA_PLAYERPOINT2', EditorDir
+'data/Editor.wad:TEXTURES\P2POINT');
2831 g_CreateTextureWAD('AREA_DMPOINT', EditorDir
+'data/Editor.wad:TEXTURES\DMPOINT');
2832 g_CreateTextureWAD('AREA_REDPOINT', EditorDir
+'data/Editor.wad:TEXTURES\REDPOINT');
2833 g_CreateTextureWAD('AREA_BLUEPOINT', EditorDir
+'data/Editor.wad:TEXTURES\BLUEPOINT');
2836 procedure FreeData();
2838 g_DeleteTexture('NOTEXTURE');
2840 g_DeleteTexture('ITEM_BLUESPHERE');
2841 g_DeleteTexture('ITEM_WHITESPHERE');
2842 g_DeleteTexture('ITEM_ARMORGREEN');
2843 g_DeleteTexture('ITEM_ARMORBLUE');
2844 g_DeleteTexture('ITEM_INVUL');
2845 g_DeleteTexture('ITEM_BOTTLE');
2846 g_DeleteTexture('ITEM_HELMET');
2847 g_DeleteTexture('AREA_REDFLAG');
2848 g_DeleteTexture('AREA_BLUEFLAG');
2849 g_DeleteTexture('AREA_DOMFLAG');
2851 g_DeleteTexture('MONSTER_DEMON');
2852 g_DeleteTexture('MONSTER_IMP');
2853 g_DeleteTexture('MONSTER_ZOMBY');
2854 g_DeleteTexture('MONSTER_SERG');
2855 g_DeleteTexture('MONSTER_CGUN');
2856 g_DeleteTexture('MONSTER_BARREL');
2857 g_DeleteTexture('MONSTER_MAN');
2859 g_DeleteTexture('MONSTER_DEMON');
2860 g_DeleteTexture('MONSTER_IMP');
2861 g_DeleteTexture('MONSTER_ZOMBY');
2862 g_DeleteTexture('MONSTER_SERG');
2863 g_DeleteTexture('MONSTER_CYBER');
2864 g_DeleteTexture('MONSTER_CGUN');
2865 g_DeleteTexture('MONSTER_BARON');
2866 g_DeleteTexture('MONSTER_KNIGHT');
2867 g_DeleteTexture('MONSTER_CACO');
2868 g_DeleteTexture('MONSTER_SOUL');
2869 g_DeleteTexture('MONSTER_PAIN');
2870 g_DeleteTexture('MONSTER_SPIDER');
2871 g_DeleteTexture('MONSTER_BSP');
2872 g_DeleteTexture('MONSTER_MANCUB');
2873 g_DeleteTexture('MONSTER_SKEL');
2874 g_DeleteTexture('MONSTER_VILE');
2875 g_DeleteTexture('MONSTER_FISH');
2876 g_DeleteTexture('MONSTER_BARREL');
2877 g_DeleteTexture('MONSTER_ROBO');
2878 g_DeleteTexture('MONSTER_MAN');
2880 g_DeleteTexture('ITEM_MEDKIT_SMALL');
2881 g_DeleteTexture('ITEM_MEDKIT_LARGE');
2882 g_DeleteTexture('ITEM_WEAPON_SAW');
2883 g_DeleteTexture('ITEM_WEAPON_PISTOL');
2884 g_DeleteTexture('ITEM_WEAPON_KASTET');
2885 g_DeleteTexture('ITEM_WEAPON_SHOTGUN1');
2886 g_DeleteTexture('ITEM_WEAPON_SHOTGUN2');
2887 g_DeleteTexture('ITEM_WEAPON_CHAINGUN');
2888 g_DeleteTexture('ITEM_WEAPON_ROCKETLAUNCHER');
2889 g_DeleteTexture('ITEM_WEAPON_PLASMA');
2890 g_DeleteTexture('ITEM_WEAPON_BFG');
2891 g_DeleteTexture('ITEM_WEAPON_SUPERPULEMET');
2892 g_DeleteTexture('ITEM_AMMO_BULLETS');
2893 g_DeleteTexture('ITEM_AMMO_BULLETS_BOX');
2894 g_DeleteTexture('ITEM_AMMO_SHELLS');
2895 g_DeleteTexture('ITEM_AMMO_SHELLS_BOX');
2896 g_DeleteTexture('ITEM_AMMO_ROCKET');
2897 g_DeleteTexture('ITEM_AMMO_ROCKET_BOX');
2898 g_DeleteTexture('ITEM_AMMO_CELL');
2899 g_DeleteTexture('ITEM_AMMO_CELL_BIG');
2900 g_DeleteTexture('ITEM_AMMO_BACKPACK');
2901 g_DeleteTexture('ITEM_KEY_RED');
2902 g_DeleteTexture('ITEM_KEY_GREEN');
2903 g_DeleteTexture('ITEM_KEY_BLUE');
2904 g_DeleteTexture('ITEM_OXYGEN');
2905 g_DeleteTexture('ITEM_SUIT');
2906 g_DeleteTexture('ITEM_MEDKIT_BLACK');
2907 g_DeleteTexture('ITEM_JETPACK');
2908 g_DeleteTexture('ITEM_INVIS');
2909 g_DeleteTexture('ITEM_WEAPON_FLAMETHROWER');
2910 g_DeleteTexture('ITEM_AMMO_FUELCAN');
2912 g_DeleteTexture('AREA_PLAYERPOINT1');
2913 g_DeleteTexture('AREA_PLAYERPOINT2');
2914 g_DeleteTexture('AREA_DMPOINT');
2915 g_DeleteTexture('AREA_REDPOINT');
2916 g_DeleteTexture('AREA_BLUEPOINT');