DEADSOFTWARE

GIT / REPO / FRED-BOY
Projects / d2df-editor.git / blob
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
Main: Fix trigger turret properties bug
[d2df-editor.git] / src / editor / f_main.pas
1 unit f_main;
2
3 {$INCLUDE ../shared/a_modes.inc}
4
5 interface
6
7 uses
8 LCLIntf, LCLType, SysUtils, Variants, Classes, Graphics,
9 Controls, Forms, Dialogs, StdCtrls, Buttons,
10 ComCtrls, ValEdit, Types, Menus, ExtCtrls,
11 CheckLst, Grids, OpenGLContext, utils, UTF8Process;
12
13 type
14
15 { TMainForm }
16
17 TMainForm = class(TForm)
18 lLoad: TLabel;
19 // Главное меню:
20 MainMenu: TMainMenu;
21 // "Файл":
22 miMenuFile: TMenuItem;
23 miNewMap: TMenuItem;
24 miOpenMap: TMenuItem;
25 miSaveMap: TMenuItem;
26 miSaveMapAs: TMenuItem;
27 miOpenWadMap: TMenuItem;
28 miLine1: TMenuItem;
29 miReopenMap: TMenuItem;
30 miSaveMiniMap: TMenuItem;
31 miDeleteMap: TMenuItem;
32 miPackMap: TMenuItem;
33 miLine2: TMenuItem;
34 miExit: TMenuItem;
35 // "Правка":
36 miMenuEdit: TMenuItem;
37 miUndo: TMenuItem;
38 miLine3: TMenuItem;
39 miCopy: TMenuItem;
40 miCut: TMenuItem;
41 miPaste: TMenuItem;
42 miLine4: TMenuItem;
43 miSelectAll: TMenuItem;
44 miLine5: TMenuItem;
45 miToFore: TMenuItem;
46 miToBack: TMenuItem;
47 // "Инструменты":
48 miMenuTools: TMenuItem;
49 miSnapToGrid: TMenuItem;
50 miMiniMap: TMenuItem;
51 miSwitchGrid: TMenuItem;
52 miShowEdges: TMenuItem;
53 miLayers: TMenuItem;
54 miLayer1: TMenuItem;
55 miLayer2: TMenuItem;
56 miLayer3: TMenuItem;
57 miLayer4: TMenuItem;
58 miLayer5: TMenuItem;
59 miLayer6: TMenuItem;
60 miLayer7: TMenuItem;
61 miLayer8: TMenuItem;
62 miLayer9: TMenuItem;
63 // "Сервис":
64 miMenuService: TMenuItem;
65 miCheckMap: TMenuItem;
66 miOptimmization: TMenuItem;
67 miMapPreview: TMenuItem;
68 miTestMap: TMenuItem;
69 // "Настройка":
70 miMenuSettings: TMenuItem;
71 miMapOptions: TMenuItem;
72 miLine6: TMenuItem;
73 miOptions: TMenuItem;
74 miLine7: TMenuItem;
75 miMapTestSettings: TMenuItem;
76 // "Справка":
77 miMenuHelp: TMenuItem;
78 miAbout: TMenuItem;
79 // Скрытый пункт меню для Ctrl+Tab:
80 miHidden1: TMenuItem;
81 minexttab: TMenuItem;
82
83 // Панель инструментов:
84 MainToolBar: TToolBar;
85 pbLoad: TProgressBar;
86 pLoadProgress: TPanel;
87 RenderPanel: TOpenGLControl;
88 tbNewMap: TToolButton;
89 tbOpenMap: TToolButton;
90 tbSaveMap: TToolButton;
91 tbOpenWadMap: TToolButton;
92 tbLine1: TToolButton;
93 tbShowMap: TToolButton;
94 tbLine2: TToolButton;
95 tbShow: TToolButton;
96 tbLine3: TToolButton;
97 tbGridOn: TToolButton;
98 tbGrid: TToolButton;
99 tbLine4: TToolButton;
100 tbTestMap: TToolButton;
101 // Всплывающее меню для кнопки слоев:
102 pmShow: TPopupMenu;
103 miLayerP1: TMenuItem;
104 miLayerP2: TMenuItem;
105 miLayerP3: TMenuItem;
106 miLayerP4: TMenuItem;
107 miLayerP5: TMenuItem;
108 miLayerP6: TMenuItem;
109 miLayerP7: TMenuItem;
110 miLayerP8: TMenuItem;
111 miLayerP9: TMenuItem;
112 // Всплывающее меню для кнопки теста карты:
113 pmMapTest: TPopupMenu;
114 miMapTestPMSet: TMenuItem;
115
116 // Панель карты:
117 PanelMap: TPanel;
118 // Полосы прокрутки:
119 sbHorizontal: TScrollBar;
120 sbVertical: TScrollBar;
121
122 // Панель свойств:
123 PanelProps: TPanel;
124 // Панель применения свойств:
125 PanelPropApply: TPanel;
126 bApplyProperty: TButton;
127 // Редактор свойств объектов:
128 vleObjectProperty: TValueListEditor;
129
130 // Панель объектов - вкладки:
131 PanelObjs: TPanel;
132 pcObjects: TPageControl;
133 // Вкладка "Панели":
134 tsPanels: TTabSheet;
135 lbTextureList: TListBox;
136 // Панель настройки текстур:
137 PanelTextures: TPanel;
138 LabelTxW: TLabel;
139 lTextureWidth: TLabel;
140 LabelTxH: TLabel;
141 lTextureHeight: TLabel;
142 cbPreview: TCheckBox;
143 bbAddTexture: TBitBtn;
144 bbRemoveTexture: TBitBtn;
145 bClearTexture: TButton;
146 // Панель типов панелей:
147 PanelPanelType: TPanel;
148 lbPanelType: TListBox;
149 // Вкладка "Предметы":
150 tsItems: TTabSheet;
151 lbItemList: TListBox;
152 cbOnlyDM: TCheckBox;
153 cbFall: TCheckBox;
154 // Вкладка "Монстры":
155 tsMonsters: TTabSheet;
156 lbMonsterList: TListBox;
157 rbMonsterLeft: TRadioButton;
158 rbMonsterRight: TRadioButton;
159 // Вкладка "Области":
160 tsAreas: TTabSheet;
161 lbAreasList: TListBox;
162 rbAreaLeft: TRadioButton;
163 rbAreaRight: TRadioButton;
164 // Вкладка "Триггеры":
165 tsTriggers: TTabSheet;
166 lbTriggersList: TListBox;
167 clbActivationType: TCheckListBox;
168 clbKeys: TCheckListBox;
169
170 // Остальные панели
171 Splitter1: TSplitter;
172 Splitter2: TSplitter;
173 StatusBar: TStatusBar;
174
175 // Специальные объекты:
176 ImageList: TImageList;
177 ilToolbar: TImageList;
178 OpenDialog: TOpenDialog;
179 SaveDialog: TSaveDialog;
180 selectall1: TMenuItem;
181 ColorDialog: TColorDialog;
182
183 procedure aAboutExecute(Sender: TObject);
184 procedure aCheckMapExecute(Sender: TObject);
185 procedure aMoveToFore(Sender: TObject);
186 procedure aMoveToBack(Sender: TObject);
187 procedure aCopyObjectExecute(Sender: TObject);
188 procedure aCutObjectExecute(Sender: TObject);
189 procedure aEditorOptionsExecute(Sender: TObject);
190 procedure aExitExecute(Sender: TObject);
191 procedure aMapOptionsExecute(Sender: TObject);
192 procedure aNewMapExecute(Sender: TObject);
193 procedure aOpenMapExecute(Sender: TObject);
194 procedure aOptimizeExecute(Sender: TObject);
195 procedure aPasteObjectExecute(Sender: TObject);
196 procedure aSelectAllExecute(Sender: TObject);
197 procedure aSaveMapExecute(Sender: TObject);
198 procedure aSaveMapAsExecute(Sender: TObject);
199 procedure aUndoExecute(Sender: TObject);
200 procedure aDeleteMap(Sender: TObject);
201 procedure bApplyPropertyClick(Sender: TObject);
202 procedure bbAddTextureClick(Sender: TObject);
203 procedure bbRemoveTextureClick(Sender: TObject);
204 procedure FormActivate(Sender: TObject);
205 procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
206 procedure FormCreate(Sender: TObject);
207 procedure FormDestroy(Sender: TObject);
208 procedure FormDropFiles(Sender: TObject; const FileNames: array of String);
209 procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
210 procedure FormResize(Sender: TObject);
211 procedure lbTextureListClick(Sender: TObject);
212 procedure lbTextureListDrawItem(Control: TWinControl; Index: Integer;
213 ARect: TRect; State: TOwnerDrawState);
214 procedure miReopenMapClick(Sender: TObject);
215 procedure RenderPanelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
216 procedure RenderPanelMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
217 procedure RenderPanelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
218 procedure RenderPanelPaint(Sender: TObject);
219 procedure RenderPanelResize(Sender: TObject);
220 procedure Splitter1Moved(Sender: TObject);
221 procedure vleObjectPropertyEditButtonClick(Sender: TObject);
222 procedure vleObjectPropertyApply(Sender: TObject);
223 procedure vleObjectPropertyGetPickList(Sender: TObject; const KeyName: String; Values: TStrings);
224 procedure vleObjectPropertyKeyDown(Sender: TObject; var Key: Word;
225 Shift: TShiftState);
226 procedure tbGridOnClick(Sender: TObject);
227 procedure miMapPreviewClick(Sender: TObject);
228 procedure miLayer1Click(Sender: TObject);
229 procedure miLayer2Click(Sender: TObject);
230 procedure miLayer3Click(Sender: TObject);
231 procedure miLayer4Click(Sender: TObject);
232 procedure miLayer5Click(Sender: TObject);
233 procedure miLayer6Click(Sender: TObject);
234 procedure miLayer7Click(Sender: TObject);
235 procedure miLayer8Click(Sender: TObject);
236 procedure miLayer9Click(Sender: TObject);
237 procedure tbShowClick(Sender: TObject);
238 procedure miSnapToGridClick(Sender: TObject);
239 procedure miMiniMapClick(Sender: TObject);
240 procedure miSwitchGridClick(Sender: TObject);
241 procedure miShowEdgesClick(Sender: TObject);
242 procedure minexttabClick(Sender: TObject);
243 procedure miSaveMiniMapClick(Sender: TObject);
244 procedure bClearTextureClick(Sender: TObject);
245 procedure miPackMapClick(Sender: TObject);
246 procedure aRecentFileExecute(Sender: TObject);
247 procedure miMapTestSettingsClick(Sender: TObject);
248 procedure miTestMapClick(Sender: TObject);
249 procedure sbVerticalScroll(Sender: TObject; ScrollCode: TScrollCode;
250 var ScrollPos: Integer);
251 procedure sbHorizontalScroll(Sender: TObject; ScrollCode: TScrollCode;
252 var ScrollPos: Integer);
253 procedure miOpenWadMapClick(Sender: TObject);
254 procedure selectall1Click(Sender: TObject);
255 procedure Splitter1CanResize(Sender: TObject; var NewSize: Integer;
256 var Accept: Boolean);
257 procedure Splitter2CanResize(Sender: TObject; var NewSize: Integer;
258 var Accept: Boolean);
259 procedure vleObjectPropertyEnter(Sender: TObject);
260 procedure vleObjectPropertyExit(Sender: TObject);
261 procedure FormKeyUp(Sender: TObject; var Key: Word;
262 Shift: TShiftState);
263 private
264 procedure Draw();
265 procedure OnIdle(Sender: TObject; var Done: Boolean);
266 public
267 procedure RefreshRecentMenu();
268 procedure OpenMapFile(FileName: String);
269 function RenderMousePos(): TPoint;
270 procedure RecountSelectedObjects();
271 end;
272
273 const
274 LAYER_BACK = 0;
275 LAYER_WALLS = 1;
276 LAYER_FOREGROUND = 2;
277 LAYER_STEPS = 3;
278 LAYER_WATER = 4;
279 LAYER_ITEMS = 5;
280 LAYER_MONSTERS = 6;
281 LAYER_AREAS = 7;
282 LAYER_TRIGGERS = 8;
283
284 TEST_MAP_NAME = '$$$_TEST_$$$';
285 LANGUAGE_FILE_NAME = '_Editor.txt';
286
287 var
288 MainForm: TMainForm;
289 EditorDir: String;
290 OpenedMap: String;
291 OpenedWAD: String;
292
293 DotColor: TColor;
294 DotEnable: Boolean;
295 DotStep: Byte;
296 DotStepOne, DotStepTwo: Byte;
297 DotSize: Byte;
298 DrawTexturePanel: Boolean;
299 DrawPanelSize: Boolean;
300 BackColor: TColor;
301 PreviewColor: TColor;
302 UseCheckerboard: Boolean;
303 Scale: Byte;
304 RecentCount: Integer;
305 RecentFiles: TStringList;
306 slInvalidTextures: TStringList;
307
308 TestGameMode: String;
309 TestLimTime: String;
310 TestLimScore: String;
311 TestOptionsTwoPlayers: Boolean;
312 TestOptionsTeamDamage: Boolean;
313 TestOptionsAllowExit: Boolean;
314 TestOptionsWeaponStay: Boolean;
315 TestOptionsMonstersDM: Boolean;
316 TestD2dExe: String;
317 TestMapOnce: Boolean;
318
319 LayerEnabled: Array [LAYER_BACK..LAYER_TRIGGERS] of Boolean =
320 (True, True, True, True, True, True, True, True, True);
321 PreviewMode: Byte = 0;
322 gLanguage: String;
323
324 FormCaption: String;
325
326
327 procedure OpenMap(FileName: String; mapN: String);
328 function AddTexture(aWAD, aSection, aTex: String; silent: Boolean): Boolean;
329 procedure RemoveSelectFromObjects();
330 procedure ChangeShownProperty(Name: String; NewValue: String);
331
332 implementation
333
334 uses
335 f_options, e_graphics, e_log, GL, Math,
336 f_mapoptions, g_basic, f_about, f_mapoptimization,
337 f_mapcheck, f_addresource_texture, g_textures,
338 f_activationtype, f_keys,
339 MAPREADER, f_selectmap, f_savemap, WADEDITOR, WADSTRUCT, MAPDEF,
340 g_map, f_saveminimap, f_addresource, CONFIG, f_packmap,
341 f_addresource_sound, f_maptest, f_choosetype,
342 g_language, f_selectlang, ClipBrd;
343
344 const
345 UNDO_DELETE_PANEL = 1;
346 UNDO_DELETE_ITEM = 2;
347 UNDO_DELETE_AREA = 3;
348 UNDO_DELETE_MONSTER = 4;
349 UNDO_DELETE_TRIGGER = 5;
350 UNDO_ADD_PANEL = 6;
351 UNDO_ADD_ITEM = 7;
352 UNDO_ADD_AREA = 8;
353 UNDO_ADD_MONSTER = 9;
354 UNDO_ADD_TRIGGER = 10;
355 UNDO_MOVE_PANEL = 11;
356 UNDO_MOVE_ITEM = 12;
357 UNDO_MOVE_AREA = 13;
358 UNDO_MOVE_MONSTER = 14;
359 UNDO_MOVE_TRIGGER = 15;
360 UNDO_RESIZE_PANEL = 16;
361 UNDO_RESIZE_TRIGGER = 17;
362
363 MOUSEACTION_NONE = 0;
364 MOUSEACTION_DRAWPANEL = 1;
365 MOUSEACTION_DRAWTRIGGER = 2;
366 MOUSEACTION_MOVEOBJ = 3;
367 MOUSEACTION_RESIZE = 4;
368 MOUSEACTION_MOVEMAP = 5;
369 MOUSEACTION_DRAWPRESS = 6;
370 MOUSEACTION_NOACTION = 7;
371
372 RESIZETYPE_NONE = 0;
373 RESIZETYPE_VERTICAL = 1;
374 RESIZETYPE_HORIZONTAL = 2;
375
376 RESIZEDIR_NONE = 0;
377 RESIZEDIR_DOWN = 1;
378 RESIZEDIR_UP = 2;
379 RESIZEDIR_RIGHT = 3;
380 RESIZEDIR_LEFT = 4;
381
382 SELECTFLAG_NONE = 0;
383 SELECTFLAG_TELEPORT = 1;
384 SELECTFLAG_DOOR = 2;
385 SELECTFLAG_TEXTURE = 3;
386 SELECTFLAG_LIFT = 4;
387 SELECTFLAG_MONSTER = 5;
388 SELECTFLAG_SPAWNPOINT = 6;
389 SELECTFLAG_SHOTPANEL = 7;
390 SELECTFLAG_SELECTED = 8;
391
392 RECENT_FILES_MENU_START = 12;
393
394 CLIPBOARD_SIG = 'DF:ED';
395
396 type
397 TUndoRec = record
398 UndoType: Byte;
399 case Byte of
400 UNDO_DELETE_PANEL: (Panel: ^TPanel);
401 UNDO_DELETE_ITEM: (Item: TItem);
402 UNDO_DELETE_AREA: (Area: TArea);
403 UNDO_DELETE_MONSTER: (Monster: TMonster);
404 UNDO_DELETE_TRIGGER: (Trigger: TTrigger);
405 UNDO_ADD_PANEL,
406 UNDO_ADD_ITEM,
407 UNDO_ADD_AREA,
408 UNDO_ADD_MONSTER,
409 UNDO_ADD_TRIGGER: (AddID: DWORD);
410 UNDO_MOVE_PANEL,
411 UNDO_MOVE_ITEM,
412 UNDO_MOVE_AREA,
413 UNDO_MOVE_MONSTER,
414 UNDO_MOVE_TRIGGER: (MoveID: DWORD; dX, dY: Integer);
415 UNDO_RESIZE_PANEL,
416 UNDO_RESIZE_TRIGGER: (ResizeID: DWORD; dW, dH: Integer);
417 end;
418
419 TCopyRec = record
420 ObjectType: Byte;
421 ID: Cardinal;
422 case Byte of
423 OBJECT_PANEL: (Panel: ^TPanel);
424 OBJECT_ITEM: (Item: TItem);
425 OBJECT_AREA: (Area: TArea);
426 OBJECT_MONSTER: (Monster: TMonster);
427 OBJECT_TRIGGER: (Trigger: TTrigger);
428 end;
429
430 TCopyRecArray = Array of TCopyRec;
431
432 var
433 gEditorFont: DWORD;
434 gDataLoaded: Boolean = False;
435 ShowMap: Boolean = False;
436 DrawRect: PRect = nil;
437 SnapToGrid: Boolean = True;
438
439 MousePos: Types.TPoint;
440 LastMovePoint: Types.TPoint;
441 MouseLDown: Boolean;
442 MouseRDown: Boolean;
443 MouseLDownPos: Types.TPoint;
444 MouseRDownPos: Types.TPoint;
445 WASDOffset: TPoint;
446
447 SelectFlag: Byte = SELECTFLAG_NONE;
448 MouseAction: Byte = MOUSEACTION_NONE;
449 ResizeType: Byte = RESIZETYPE_NONE;
450 ResizeDirection: Byte = RESIZEDIR_NONE;
451
452 DrawPressRect: Boolean = False;
453 EditingProperties: Boolean = False;
454
455 UndoBuffer: Array of Array of TUndoRec = nil;
456
457
458 {$R *.lfm}
459
460 //----------------------------------------
461 //Далее идут вспомогательные процедуры
462 //----------------------------------------
463
464 function NameToBool(Name: String): Boolean;
465 begin
466 if Name = BoolNames[True] then
467 Result := True
468 else
469 Result := False;
470 end;
471
472 function NameToDir(Name: String): TDirection;
473 begin
474 if Name = DirNames[D_LEFT] then
475 Result := D_LEFT
476 else
477 Result := D_RIGHT;
478 end;
479
480 function NameToDirAdv(Name: String): Byte;
481 begin
482 if Name = DirNamesAdv[1] then
483 Result := 1
484 else
485 if Name = DirNamesAdv[2] then
486 Result := 2
487 else
488 if Name = DirNamesAdv[3] then
489 Result := 3
490 else
491 Result := 0;
492 end;
493
494 function ActivateToStr(ActivateType: Byte): String;
495 begin
496 Result := '';
497
498 if ByteBool(ACTIVATE_PLAYERCOLLIDE and ActivateType) then
499 Result := Result + '+PC';
500 if ByteBool(ACTIVATE_MONSTERCOLLIDE and ActivateType) then
501 Result := Result + '+MC';
502 if ByteBool(ACTIVATE_PLAYERPRESS and ActivateType) then
503 Result := Result + '+PP';
504 if ByteBool(ACTIVATE_MONSTERPRESS and ActivateType) then
505 Result := Result + '+MP';
506 if ByteBool(ACTIVATE_SHOT and ActivateType) then
507 Result := Result + '+SH';
508 if ByteBool(ACTIVATE_NOMONSTER and ActivateType) then
509 Result := Result + '+NM';
510
511 if (Result <> '') and (Result[1] = '+') then
512 Delete(Result, 1, 1);
513 end;
514
515 function StrToActivate(Str: String): Byte;
516 begin
517 Result := 0;
518
519 if Pos('PC', Str) > 0 then
520 Result := ACTIVATE_PLAYERCOLLIDE;
521 if Pos('MC', Str) > 0 then
522 Result := Result or ACTIVATE_MONSTERCOLLIDE;
523 if Pos('PP', Str) > 0 then
524 Result := Result or ACTIVATE_PLAYERPRESS;
525 if Pos('MP', Str) > 0 then
526 Result := Result or ACTIVATE_MONSTERPRESS;
527 if Pos('SH', Str) > 0 then
528 Result := Result or ACTIVATE_SHOT;
529 if Pos('NM', Str) > 0 then
530 Result := Result or ACTIVATE_NOMONSTER;
531 end;
532
533 function KeyToStr(Key: Byte): String;
534 begin
535 Result := '';
536
537 if ByteBool(KEY_RED and Key) then
538 Result := Result + '+RK';
539 if ByteBool(KEY_GREEN and Key) then
540 Result := Result + '+GK';
541 if ByteBool(KEY_BLUE and Key) then
542 Result := Result + '+BK';
543 if ByteBool(KEY_REDTEAM and Key) then
544 Result := Result + '+RT';
545 if ByteBool(KEY_BLUETEAM and Key) then
546 Result := Result + '+BT';
547
548 if (Result <> '') and (Result[1] = '+') then
549 Delete(Result, 1, 1);
550 end;
551
552 function StrToKey(Str: String): Byte;
553 begin
554 Result := 0;
555
556 if Pos('RK', Str) > 0 then
557 Result := KEY_RED;
558 if Pos('GK', Str) > 0 then
559 Result := Result or KEY_GREEN;
560 if Pos('BK', Str) > 0 then
561 Result := Result or KEY_BLUE;
562 if Pos('RT', Str) > 0 then
563 Result := Result or KEY_REDTEAM;
564 if Pos('BT', Str) > 0 then
565 Result := Result or KEY_BLUETEAM;
566 end;
567
568 function EffectToStr(Effect: Byte): String;
569 begin
570 if Effect in [EFFECT_TELEPORT..EFFECT_FIRE] then
571 Result := EffectNames[Effect]
572 else
573 Result := EffectNames[EFFECT_NONE];
574 end;
575
576 function StrToEffect(Str: String): Byte;
577 var
578 i: Integer;
579 begin
580 Result := EFFECT_NONE;
581 for i := EFFECT_TELEPORT to EFFECT_FIRE do
582 if EffectNames[i] = Str then
583 begin
584 Result := i;
585 Exit;
586 end;
587 end;
588
589 function MonsterToStr(MonType: Byte): String;
590 begin
591 if MonType in [MONSTER_DEMON..MONSTER_MAN] then
592 Result := MonsterNames[MonType]
593 else
594 Result := MonsterNames[MONSTER_ZOMBY];
595 end;
596
597 function StrToMonster(Str: String): Byte;
598 var
599 i: Integer;
600 begin
601 Result := MONSTER_ZOMBY;
602 for i := MONSTER_DEMON to MONSTER_MAN do
603 if MonsterNames[i] = Str then
604 begin
605 Result := i;
606 Exit;
607 end;
608 end;
609
610 function ItemToStr(ItemType: Byte): String;
611 begin
612 if ItemType in [ITEM_MEDKIT_SMALL..ITEM_MAX] then
613 Result := ItemNames[ItemType]
614 else
615 Result := ItemNames[ITEM_AMMO_BULLETS];
616 end;
617
618 function StrToItem(Str: String): Byte;
619 var
620 i: Integer;
621 begin
622 Result := ITEM_AMMO_BULLETS;
623 for i := ITEM_MEDKIT_SMALL to ITEM_MAX do
624 if ItemNames[i] = Str then
625 begin
626 Result := i;
627 Exit;
628 end;
629 end;
630
631 function ShotToStr(ShotType: Byte): String;
632 begin
633 if ShotType in [TRIGGER_SHOT_PISTOL..TRIGGER_SHOT_MAX] then
634 Result := ShotNames[ShotType]
635 else
636 Result := ShotNames[TRIGGER_SHOT_PISTOL];
637 end;
638
639 function StrToShot(Str: String): Byte;
640 var
641 i: Integer;
642 begin
643 Result := TRIGGER_SHOT_PISTOL;
644 for i := TRIGGER_SHOT_PISTOL to TRIGGER_SHOT_MAX do
645 if ShotNames[i] = Str then
646 begin
647 Result := i;
648 Exit;
649 end;
650 end;
651
652 function SelectedObjectCount(): Word;
653 var
654 a: Integer;
655 begin
656 Result := 0;
657
658 if SelectedObjects = nil then
659 Exit;
660
661 for a := 0 to High(SelectedObjects) do
662 if SelectedObjects[a].Live then
663 Result := Result + 1;
664 end;
665
666 function GetFirstSelected(): Integer;
667 var
668 a: Integer;
669 begin
670 Result := -1;
671
672 if SelectedObjects = nil then
673 Exit;
674
675 for a := 0 to High(SelectedObjects) do
676 if SelectedObjects[a].Live then
677 begin
678 Result := a;
679 Exit;
680 end;
681 end;
682
683 function Normalize16(x: Integer): Integer;
684 begin
685 Result := (x div 16) * 16;
686 end;
687
688 procedure MoveMap(X, Y: Integer);
689 var
690 rx, ry, ScaleSz: Integer;
691 begin
692 with MainForm.RenderPanel do
693 begin
694 ScaleSz := 16 div Scale;
695 // Размер видимой части карты:
696 rx := min(Normalize16(Width), Normalize16(gMapInfo.Width)) div 2;
697 ry := min(Normalize16(Height), Normalize16(gMapInfo.Height)) div 2;
698 // Место клика на мини-карте:
699 MapOffset.X := X - (Width-max(gMapInfo.Width div ScaleSz, 1)-1);
700 MapOffset.Y := Y - 1;
701 // Это же место на "большой" карте:
702 MapOffset.X := MapOffset.X * ScaleSz;
703 MapOffset.Y := MapOffset.Y * ScaleSz;
704 // Левый верхний угол новой видимой части карты:
705 MapOffset.X := MapOffset.X - rx;
706 MapOffset.Y := MapOffset.Y - ry;
707 // Выход за границы:
708 if MapOffset.X < 0 then
709 MapOffset.X := 0;
710 if MapOffset.Y < 0 then
711 MapOffset.Y := 0;
712 if MapOffset.X > MainForm.sbHorizontal.Max then
713 MapOffset.X := MainForm.sbHorizontal.Max;
714 if MapOffset.Y > MainForm.sbVertical.Max then
715 MapOffset.Y := MainForm.sbVertical.Max;
716 // Кратно 16:
717 MapOffset.X := Normalize16(MapOffset.X);
718 MapOffset.Y := Normalize16(MapOffset.Y);
719 end;
720
721 MainForm.sbHorizontal.Position := MapOffset.X;
722 MainForm.sbVertical.Position := MapOffset.Y;
723
724 MapOffset.X := -MapOffset.X;
725 MapOffset.Y := -MapOffset.Y;
726
727 MainForm.Resize();
728 end;
729
730 function IsTexturedPanel(PanelType: Word): Boolean;
731 begin
732 Result := WordBool(PanelType and (PANEL_WALL or PANEL_BACK or PANEL_FORE or
733 PANEL_STEP or PANEL_OPENDOOR or PANEL_CLOSEDOOR or
734 PANEL_WATER or PANEL_ACID1 or PANEL_ACID2));
735 end;
736
737 procedure FillProperty();
738 var
739 _id: DWORD;
740 str: String;
741 begin
742 MainForm.vleObjectProperty.Strings.Clear();
743 MainForm.RecountSelectedObjects();
744
745 // Отображаем свойства если выделен только один объект:
746 if SelectedObjectCount() <> 1 then
747 Exit;
748
749 _id := GetFirstSelected();
750 if not SelectedObjects[_id].Live then
751 Exit;
752
753 with MainForm.vleObjectProperty do
754 with ItemProps[InsertRow(_lc[I_PROP_ID], IntToStr(SelectedObjects[_id].ID), True)] do
755 begin
756 EditStyle := esSimple;
757 ReadOnly := True;
758 end;
759
760 case SelectedObjects[0].ObjectType of
761 OBJECT_PANEL:
762 begin
763 with MainForm.vleObjectProperty,
764 gPanels[SelectedObjects[_id].ID] do
765 begin
766 with ItemProps[InsertRow(_lc[I_PROP_X], IntToStr(X), True)] do
767 begin
768 EditStyle := esSimple;
769 MaxLength := 5;
770 end;
771
772 with ItemProps[InsertRow(_lc[I_PROP_Y], IntToStr(Y), True)] do
773 begin
774 EditStyle := esSimple;
775 MaxLength := 5;
776 end;
777
778 with ItemProps[InsertRow(_lc[I_PROP_WIDTH], IntToStr(Width), True)] do
779 begin
780 EditStyle := esSimple;
781 MaxLength := 5;
782 end;
783
784 with ItemProps[InsertRow(_lc[I_PROP_HEIGHT], IntToStr(Height), True)] do
785 begin
786 EditStyle := esSimple;
787 MaxLength := 5;
788 end;
789
790 with ItemProps[InsertRow(_lc[I_PROP_PANEL_TYPE], GetPanelName(PanelType), True)] do
791 begin
792 EditStyle := esEllipsis;
793 ReadOnly := True;
794 end;
795
796 if IsTexturedPanel(PanelType) then
797 begin // Может быть текстура
798 with ItemProps[InsertRow(_lc[I_PROP_PANEL_TEX], TextureName, True)] do
799 begin
800 EditStyle := esEllipsis;
801 ReadOnly := True;
802 end;
803
804 if TextureName <> '' then
805 begin // Есть текстура
806 with ItemProps[InsertRow(_lc[I_PROP_PANEL_ALPHA], IntToStr(Alpha), True)] do
807 begin
808 EditStyle := esSimple;
809 MaxLength := 3;
810 end;
811
812 with ItemProps[InsertRow(_lc[I_PROP_PANEL_BLEND], BoolNames[Blending], True)] do
813 begin
814 EditStyle := esPickList;
815 ReadOnly := True;
816 end;
817 end;
818 end;
819 end;
820 end;
821
822 OBJECT_ITEM:
823 begin
824 with MainForm.vleObjectProperty,
825 gItems[SelectedObjects[_id].ID] do
826 begin
827 with ItemProps[InsertRow(_lc[I_PROP_X], IntToStr(X), True)] do
828 begin
829 EditStyle := esSimple;
830 MaxLength := 5;
831 end;
832
833 with ItemProps[InsertRow(_lc[I_PROP_Y], IntToStr(Y), True)] do
834 begin
835 EditStyle := esSimple;
836 MaxLength := 5;
837 end;
838
839 with ItemProps[InsertRow(_lc[I_PROP_DM_ONLY], BoolNames[OnlyDM], True)] do
840 begin
841 EditStyle := esPickList;
842 ReadOnly := True;
843 end;
844
845 with ItemProps[InsertRow(_lc[I_PROP_ITEM_FALLS], BoolNames[Fall], True)] do
846 begin
847 EditStyle := esPickList;
848 ReadOnly := True;
849 end;
850 end;
851 end;
852
853 OBJECT_MONSTER:
854 begin
855 with MainForm.vleObjectProperty,
856 gMonsters[SelectedObjects[_id].ID] do
857 begin
858 with ItemProps[InsertRow(_lc[I_PROP_X], IntToStr(X), True)] do
859 begin
860 EditStyle := esSimple;
861 MaxLength := 5;
862 end;
863
864 with ItemProps[InsertRow(_lc[I_PROP_Y], IntToStr(Y), True)] do
865 begin
866 EditStyle := esSimple;
867 MaxLength := 5;
868 end;
869
870 with ItemProps[InsertRow(_lc[I_PROP_DIRECTION], DirNames[Direction], True)] do
871 begin
872 EditStyle := esPickList;
873 ReadOnly := True;
874 end;
875 end;
876 end;
877
878 OBJECT_AREA:
879 begin
880 with MainForm.vleObjectProperty,
881 gAreas[SelectedObjects[_id].ID] do
882 begin
883 with ItemProps[InsertRow(_lc[I_PROP_X], IntToStr(X), True)] do
884 begin
885 EditStyle := esSimple;
886 MaxLength := 5;
887 end;
888
889 with ItemProps[InsertRow(_lc[I_PROP_Y], IntToStr(Y), True)] do
890 begin
891 EditStyle := esSimple;
892 MaxLength := 5;
893 end;
894
895 with ItemProps[InsertRow(_lc[I_PROP_DIRECTION], DirNames[Direction], True)] do
896 begin
897 EditStyle := esPickList;
898 ReadOnly := True;
899 end;
900 end;
901 end;
902
903 OBJECT_TRIGGER:
904 begin
905 with MainForm.vleObjectProperty,
906 gTriggers[SelectedObjects[_id].ID] do
907 begin
908 with ItemProps[InsertRow(_lc[I_PROP_TR_TYPE], GetTriggerName(TriggerType), True)] do
909 begin
910 EditStyle := esSimple;
911 ReadOnly := True;
912 end;
913
914 with ItemProps[InsertRow(_lc[I_PROP_X], IntToStr(X), True)] do
915 begin
916 EditStyle := esSimple;
917 MaxLength := 5;
918 end;
919
920 with ItemProps[InsertRow(_lc[I_PROP_Y], IntToStr(Y), True)] do
921 begin
922 EditStyle := esSimple;
923 MaxLength := 5;
924 end;
925
926 with ItemProps[InsertRow(_lc[I_PROP_WIDTH], IntToStr(Width), True)] do
927 begin
928 EditStyle := esSimple;
929 MaxLength := 5;
930 end;
931
932 with ItemProps[InsertRow(_lc[I_PROP_HEIGHT], IntToStr(Height), True)] do
933 begin
934 EditStyle := esSimple;
935 MaxLength := 5;
936 end;
937
938 with ItemProps[InsertRow(_lc[I_PROP_TR_ENABLED], BoolNames[Enabled], True)] do
939 begin
940 EditStyle := esPickList;
941 ReadOnly := True;
942 end;
943
944 with ItemProps[InsertRow(_lc[I_PROP_TR_TEXTURE_PANEL], IntToStr(TexturePanel), True)] do
945 begin
946 EditStyle := esEllipsis;
947 ReadOnly := True;
948 end;
949
950 with ItemProps[InsertRow(_lc[I_PROP_TR_ACTIVATION], ActivateToStr(ActivateType), True)] do
951 begin
952 EditStyle := esEllipsis;
953 ReadOnly := True;
954 end;
955
956 with ItemProps[InsertRow(_lc[I_PROP_TR_KEYS], KeyToStr(Key), True)] do
957 begin
958 EditStyle := esEllipsis;
959 ReadOnly := True;
960 end;
961
962 case TriggerType of
963 TRIGGER_EXIT:
964 begin
965 str := win2utf(Data.MapName);
966 with ItemProps[InsertRow(_lc[I_PROP_TR_NEXT_MAP], str, True)] do
967 begin
968 EditStyle := esEllipsis;
969 ReadOnly := True;
970 end;
971 end;
972
973 TRIGGER_TELEPORT:
974 begin
975 with ItemProps[InsertRow(_lc[I_PROP_TR_TELEPORT_TO], Format('(%d:%d)', [Data.TargetPoint.X, Data.TargetPoint.Y]), True)] do
976 begin
977 EditStyle := esEllipsis;
978 ReadOnly := True;
979 end;
980
981 with ItemProps[InsertRow(_lc[I_PROP_TR_D2D], BoolNames[Data.d2d_teleport], True)] do
982 begin
983 EditStyle := esPickList;
984 ReadOnly := True;
985 end;
986
987 with ItemProps[InsertRow(_lc[I_PROP_TR_TELEPORT_SILENT], BoolNames[Data.silent_teleport], True)] do
988 begin
989 EditStyle := esPickList;
990 ReadOnly := True;
991 end;
992
993 with ItemProps[InsertRow(_lc[I_PROP_TR_TELEPORT_DIR], DirNamesAdv[Data.TlpDir], True)] do
994 begin
995 EditStyle := esPickList;
996 ReadOnly := True;
997 end;
998 end;
999
1000 TRIGGER_OPENDOOR, TRIGGER_CLOSEDOOR,
1001 TRIGGER_DOOR, TRIGGER_DOOR5:
1002 begin
1003 with ItemProps[InsertRow(_lc[I_PROP_TR_DOOR_PANEL], IntToStr(Data.PanelID), True)] do
1004 begin
1005 EditStyle := esEllipsis;
1006 ReadOnly := True;
1007 end;
1008
1009 with ItemProps[InsertRow(_lc[I_PROP_TR_SILENT], BoolNames[Data.NoSound], True)] do
1010 begin
1011 EditStyle := esPickList;
1012 ReadOnly := True;
1013 end;
1014
1015 with ItemProps[InsertRow(_lc[I_PROP_TR_D2D], BoolNames[Data.d2d_doors], True)] do
1016 begin
1017 EditStyle := esPickList;
1018 ReadOnly := True;
1019 end;
1020 end;
1021
1022 TRIGGER_CLOSETRAP, TRIGGER_TRAP:
1023 begin
1024 with ItemProps[InsertRow(_lc[I_PROP_TR_TRAP_PANEL], IntToStr(Data.PanelID), True)] do
1025 begin
1026 EditStyle := esEllipsis;
1027 ReadOnly := True;
1028 end;
1029
1030 with ItemProps[InsertRow(_lc[I_PROP_TR_SILENT], BoolNames[Data.NoSound], True)] do
1031 begin
1032 EditStyle := esPickList;
1033 ReadOnly := True;
1034 end;
1035
1036 with ItemProps[InsertRow(_lc[I_PROP_TR_D2D], BoolNames[Data.d2d_doors], True)] do
1037 begin
1038 EditStyle := esPickList;
1039 ReadOnly := True;
1040 end;
1041 end;
1042
1043 TRIGGER_PRESS, TRIGGER_ON, TRIGGER_OFF,
1044 TRIGGER_ONOFF:
1045 begin
1046 with ItemProps[InsertRow(_lc[I_PROP_TR_EX_AREA],
1047 Format('(%d:%d %d:%d)', [Data.tX, Data.tY, Data.tWidth, Data.tHeight]), True)] do
1048 begin
1049 EditStyle := esEllipsis;
1050 ReadOnly := True;
1051 end;
1052
1053 with ItemProps[InsertRow(_lc[I_PROP_TR_EX_DELAY], IntToStr(Data.Wait), True)] do
1054 begin
1055 EditStyle := esSimple;
1056 MaxLength := 5;
1057 end;
1058
1059 with ItemProps[InsertRow(_lc[I_PROP_TR_EX_COUNT], IntToStr(Data.Count), True)] do
1060 begin
1061 EditStyle := esSimple;
1062 MaxLength := 5;
1063 end;
1064
1065 with ItemProps[InsertRow(_lc[I_PROP_TR_EX_MONSTER], IntToStr(Data.MonsterID-1), True)] do
1066 begin
1067 EditStyle := esEllipsis;
1068 ReadOnly := True;
1069 end;
1070
1071 if TriggerType = TRIGGER_PRESS then
1072 with ItemProps[InsertRow(_lc[I_PROP_TR_EX_RANDOM], BoolNames[Data.ExtRandom], True)] do
1073 begin
1074 EditStyle := esPickList;
1075 ReadOnly := True;
1076 end;
1077 end;
1078
1079 TRIGGER_SECRET:
1080 ;
1081
1082 TRIGGER_LIFTUP, TRIGGER_LIFTDOWN, TRIGGER_LIFT:
1083 begin
1084 with ItemProps[InsertRow(_lc[I_PROP_TR_LIFT_PANEL], IntToStr(Data.PanelID), True)] do
1085 begin
1086 EditStyle := esEllipsis;
1087 ReadOnly := True;
1088 end;
1089
1090 with ItemProps[InsertRow(_lc[I_PROP_TR_SILENT], BoolNames[Data.NoSound], True)] do
1091 begin
1092 EditStyle := esPickList;
1093 ReadOnly := True;
1094 end;
1095
1096 with ItemProps[InsertRow(_lc[I_PROP_TR_D2D], BoolNames[Data.d2d_doors], True)] do
1097 begin
1098 EditStyle := esPickList;
1099 ReadOnly := True;
1100 end;
1101 end;
1102
1103 TRIGGER_TEXTURE:
1104 begin
1105 with ItemProps[InsertRow(_lc[I_PROP_TR_TEXTURE_ONCE], BoolNames[Data.ActivateOnce], True)] do
1106 begin
1107 EditStyle := esPickList;
1108 ReadOnly := True;
1109 end;
1110
1111 with ItemProps[InsertRow(_lc[I_PROP_TR_TEXTURE_ANIM_ONCE], BoolNames[Data.AnimOnce], True)] do
1112 begin
1113 EditStyle := esPickList;
1114 ReadOnly := True;
1115 end;
1116 end;
1117
1118 TRIGGER_SOUND:
1119 begin
1120 str := win2utf(Data.SoundName);
1121 with ItemProps[InsertRow(_lc[I_PROP_TR_SOUND_NAME], str, True)] do
1122 begin
1123 EditStyle := esEllipsis;
1124 ReadOnly := True;
1125 end;
1126
1127 with ItemProps[InsertRow(_lc[I_PROP_TR_SOUND_VOLUME], IntToStr(Data.Volume), True)] do
1128 begin
1129 EditStyle := esSimple;
1130 MaxLength := 3;
1131 end;
1132
1133 with ItemProps[InsertRow(_lc[I_PROP_TR_SOUND_PAN], IntToStr(Data.Pan), True)] do
1134 begin
1135 EditStyle := esSimple;
1136 MaxLength := 3;
1137 end;
1138
1139 with ItemProps[InsertRow(_lc[I_PROP_TR_SOUND_COUNT], IntToStr(Data.PlayCount), True)] do
1140 begin
1141 EditStyle := esSimple;
1142 MaxLength := 3;
1143 end;
1144
1145 with ItemProps[InsertRow(_lc[I_PROP_TR_SOUND_LOCAL], BoolNames[Data.Local], True)] do
1146 begin
1147 EditStyle := esPickList;
1148 ReadOnly := True;
1149 end;
1150
1151 with ItemProps[InsertRow(_lc[I_PROP_TR_SOUND_SWITCH], BoolNames[Data.SoundSwitch], True)] do
1152 begin
1153 EditStyle := esPickList;
1154 ReadOnly := True;
1155 end;
1156 end;
1157
1158 TRIGGER_SPAWNMONSTER:
1159 begin
1160 with ItemProps[InsertRow(_lc[I_PROP_TR_MONSTER_TYPE], MonsterToStr(Data.MonType), True)] do
1161 begin
1162 EditStyle := esEllipsis;
1163 ReadOnly := True;
1164 end;
1165
1166 with ItemProps[InsertRow(_lc[I_PROP_TR_SPAWN_TO],
1167 Format('(%d:%d)', [Data.MonPos.X, Data.MonPos.Y]), True)] do
1168 begin
1169 EditStyle := esEllipsis;
1170 ReadOnly := True;
1171 end;
1172
1173 with ItemProps[InsertRow(_lc[I_PROP_DIRECTION], DirNames[TDirection(Data.MonDir)], True)] do
1174 begin
1175 EditStyle := esPickList;
1176 ReadOnly := True;
1177 end;
1178
1179 with ItemProps[InsertRow(_lc[I_PROP_TR_HEALTH], IntToStr(Data.MonHealth), True)] do
1180 begin
1181 EditStyle := esSimple;
1182 MaxLength := 5;
1183 end;
1184
1185 with ItemProps[InsertRow(_lc[I_PROP_TR_MONSTER_ACTIVE], BoolNames[Data.MonActive], True)] do
1186 begin
1187 EditStyle := esPickList;
1188 ReadOnly := True;
1189 end;
1190
1191 with ItemProps[InsertRow(_lc[I_PROP_TR_COUNT], IntToStr(Data.MonCount), True)] do
1192 begin
1193 EditStyle := esSimple;
1194 MaxLength := 5;
1195 end;
1196
1197 with ItemProps[InsertRow(_lc[I_PROP_TR_FX_TYPE], EffectToStr(Data.MonEffect), True)] do
1198 begin
1199 EditStyle := esEllipsis;
1200 ReadOnly := True;
1201 end;
1202
1203 with ItemProps[InsertRow(_lc[I_PROP_TR_SPAWN_MAX], IntToStr(Data.MonMax), True)] do
1204 begin
1205 EditStyle := esSimple;
1206 MaxLength := 5;
1207 end;
1208
1209 with ItemProps[InsertRow(_lc[I_PROP_TR_SPAWN_DELAY], IntToStr(Data.MonDelay), True)] do
1210 begin
1211 EditStyle := esSimple;
1212 MaxLength := 5;
1213 end;
1214
1215 case Data.MonBehav of
1216 1: str := _lc[I_PROP_TR_MONSTER_BEHAVIOUR_1];
1217 2: str := _lc[I_PROP_TR_MONSTER_BEHAVIOUR_2];
1218 3: str := _lc[I_PROP_TR_MONSTER_BEHAVIOUR_3];
1219 4: str := _lc[I_PROP_TR_MONSTER_BEHAVIOUR_4];
1220 5: str := _lc[I_PROP_TR_MONSTER_BEHAVIOUR_5];
1221 else str := _lc[I_PROP_TR_MONSTER_BEHAVIOUR_0];
1222 end;
1223 with ItemProps[InsertRow(_lc[I_PROP_TR_MONSTER_BEHAVIOUR], str, True)] do
1224 begin
1225 EditStyle := esPickList;
1226 ReadOnly := True;
1227 end;
1228 end;
1229
1230 TRIGGER_SPAWNITEM:
1231 begin
1232 with ItemProps[InsertRow(_lc[I_PROP_TR_ITEM_TYPE], ItemToStr(Data.ItemType), True)] do
1233 begin
1234 EditStyle := esEllipsis;
1235 ReadOnly := True;
1236 end;
1237
1238 with ItemProps[InsertRow(_lc[I_PROP_TR_SPAWN_TO],
1239 Format('(%d:%d)', [Data.ItemPos.X, Data.ItemPos.Y]), True)] do
1240 begin
1241 EditStyle := esEllipsis;
1242 ReadOnly := True;
1243 end;
1244
1245 with ItemProps[InsertRow(_lc[I_PROP_DM_ONLY], BoolNames[Data.ItemOnlyDM], True)] do
1246 begin
1247 EditStyle := esPickList;
1248 ReadOnly := True;
1249 end;
1250
1251 with ItemProps[InsertRow(_lc[I_PROP_ITEM_FALLS], BoolNames[Data.ItemFalls], True)] do
1252 begin
1253 EditStyle := esPickList;
1254 ReadOnly := True;
1255 end;
1256
1257 with ItemProps[InsertRow(_lc[I_PROP_TR_COUNT], IntToStr(Data.ItemCount), True)] do
1258 begin
1259 EditStyle := esSimple;
1260 MaxLength := 5;
1261 end;
1262
1263 with ItemProps[InsertRow(_lc[I_PROP_TR_FX_TYPE], EffectToStr(Data.ItemEffect), True)] do
1264 begin
1265 EditStyle := esEllipsis;
1266 ReadOnly := True;
1267 end;
1268
1269 with ItemProps[InsertRow(_lc[I_PROP_TR_SPAWN_MAX], IntToStr(Data.ItemMax), True)] do
1270 begin
1271 EditStyle := esSimple;
1272 MaxLength := 5;
1273 end;
1274
1275 with ItemProps[InsertRow(_lc[I_PROP_TR_SPAWN_DELAY], IntToStr(Data.ItemDelay), True)] do
1276 begin
1277 EditStyle := esSimple;
1278 MaxLength := 5;
1279 end;
1280 end;
1281
1282 TRIGGER_MUSIC:
1283 begin
1284 str := win2utf(Data.MusicName);
1285 with ItemProps[InsertRow(_lc[I_PROP_TR_MUSIC_NAME], str, True)] do
1286 begin
1287 EditStyle := esEllipsis;
1288 ReadOnly := True;
1289 end;
1290
1291 if Data.MusicAction = 1 then
1292 str := _lc[I_PROP_TR_MUSIC_ON]
1293 else
1294 str := _lc[I_PROP_TR_MUSIC_OFF];
1295
1296 with ItemProps[InsertRow(_lc[I_PROP_TR_MUSIC_ACT], str, True)] do
1297 begin
1298 EditStyle := esPickList;
1299 ReadOnly := True;
1300 end;
1301 end;
1302
1303 TRIGGER_PUSH:
1304 begin
1305 with ItemProps[InsertRow(_lc[I_PROP_TR_PUSH_ANGLE], IntToStr(Data.PushAngle), True)] do
1306 begin
1307 EditStyle := esSimple;
1308 MaxLength := 4;
1309 end;
1310 with ItemProps[InsertRow(_lc[I_PROP_TR_PUSH_FORCE], IntToStr(Data.PushForce), True)] do
1311 begin
1312 EditStyle := esSimple;
1313 MaxLength := 4;
1314 end;
1315 with ItemProps[InsertRow(_lc[I_PROP_TR_PUSH_RESET], BoolNames[Data.ResetVel], True)] do
1316 begin
1317 EditStyle := esPickList;
1318 ReadOnly := True;
1319 end;
1320 end;
1321
1322 TRIGGER_SCORE:
1323 begin
1324 case Data.ScoreAction of
1325 1: str := _lc[I_PROP_TR_SCORE_ACT_1];
1326 2: str := _lc[I_PROP_TR_SCORE_ACT_2];
1327 3: str := _lc[I_PROP_TR_SCORE_ACT_3];
1328 else str := _lc[I_PROP_TR_SCORE_ACT_0];
1329 end;
1330 with ItemProps[InsertRow(_lc[I_PROP_TR_SCORE_ACT], str, True)] do
1331 begin
1332 EditStyle := esPickList;
1333 ReadOnly := True;
1334 end;
1335 with ItemProps[InsertRow(_lc[I_PROP_TR_COUNT], IntToStr(Data.ScoreCount), True)] do
1336 begin
1337 EditStyle := esSimple;
1338 MaxLength := 3;
1339 end;
1340 case Data.ScoreTeam of
1341 1: str := _lc[I_PROP_TR_SCORE_TEAM_1];
1342 2: str := _lc[I_PROP_TR_SCORE_TEAM_2];
1343 3: str := _lc[I_PROP_TR_SCORE_TEAM_3];
1344 else str := _lc[I_PROP_TR_SCORE_TEAM_0];
1345 end;
1346 with ItemProps[InsertRow(_lc[I_PROP_TR_SCORE_TEAM], str, True)] do
1347 begin
1348 EditStyle := esPickList;
1349 ReadOnly := True;
1350 end;
1351 with ItemProps[InsertRow(_lc[I_PROP_TR_SCORE_CON], BoolNames[Data.ScoreCon], True)] do
1352 begin
1353 EditStyle := esPickList;
1354 ReadOnly := True;
1355 end;
1356 with ItemProps[InsertRow(_lc[I_PROP_TR_SCORE_MSG], BoolNames[Data.ScoreMsg], True)] do
1357 begin
1358 EditStyle := esPickList;
1359 ReadOnly := True;
1360 end;
1361 end;
1362
1363 TRIGGER_MESSAGE:
1364 begin
1365 case Data.MessageKind of
1366 1: str := _lc[I_PROP_TR_MESSAGE_KIND_1];
1367 else str := _lc[I_PROP_TR_MESSAGE_KIND_0];
1368 end;
1369 with ItemProps[InsertRow(_lc[I_PROP_TR_MESSAGE_KIND], str, True)] do
1370 begin
1371 EditStyle := esPickList;
1372 ReadOnly := True;
1373 end;
1374 case Data.MessageSendTo of
1375 1: str := _lc[I_PROP_TR_MESSAGE_TO_1];
1376 2: str := _lc[I_PROP_TR_MESSAGE_TO_2];
1377 3: str := _lc[I_PROP_TR_MESSAGE_TO_3];
1378 4: str := _lc[I_PROP_TR_MESSAGE_TO_4];
1379 5: str := _lc[I_PROP_TR_MESSAGE_TO_5];
1380 else str := _lc[I_PROP_TR_MESSAGE_TO_0];
1381 end;
1382 with ItemProps[InsertRow(_lc[I_PROP_TR_MESSAGE_TO], str, True)] do
1383 begin
1384 EditStyle := esPickList;
1385 ReadOnly := True;
1386 end;
1387 str := win2utf(Data.MessageText);
1388 with ItemProps[InsertRow(_lc[I_PROP_TR_MESSAGE_TEXT], str, True)] do
1389 begin
1390 EditStyle := esSimple;
1391 MaxLength := 100;
1392 end;
1393 with ItemProps[InsertRow(_lc[I_PROP_TR_MESSAGE_TIME], IntToStr(Data.MessageTime), True)] do
1394 begin
1395 EditStyle := esSimple;
1396 MaxLength := 5;
1397 end;
1398 end;
1399
1400 TRIGGER_DAMAGE:
1401 begin
1402 with ItemProps[InsertRow(_lc[I_PROP_TR_DAMAGE_VALUE], IntToStr(Data.DamageValue), True)] do
1403 begin
1404 EditStyle := esSimple;
1405 MaxLength := 5;
1406 end;
1407 with ItemProps[InsertRow(_lc[I_PROP_TR_INTERVAL], IntToStr(Data.DamageInterval), True)] do
1408 begin
1409 EditStyle := esSimple;
1410 MaxLength := 5;
1411 end;
1412 end;
1413
1414 TRIGGER_HEALTH:
1415 begin
1416 with ItemProps[InsertRow(_lc[I_PROP_TR_HEALTH], IntToStr(Data.HealValue), True)] do
1417 begin
1418 EditStyle := esSimple;
1419 MaxLength := 5;
1420 end;
1421 with ItemProps[InsertRow(_lc[I_PROP_TR_INTERVAL], IntToStr(Data.HealInterval), True)] do
1422 begin
1423 EditStyle := esSimple;
1424 MaxLength := 5;
1425 end;
1426 with ItemProps[InsertRow(_lc[I_PROP_TR_HEALTH_MAX], BoolNames[Data.HealMax], True)] do
1427 begin
1428 EditStyle := esPickList;
1429 ReadOnly := True;
1430 end;
1431 with ItemProps[InsertRow(_lc[I_PROP_TR_SILENT], BoolNames[Data.HealSilent], True)] do
1432 begin
1433 EditStyle := esPickList;
1434 ReadOnly := True;
1435 end;
1436 end;
1437
1438 TRIGGER_SHOT:
1439 begin
1440 with ItemProps[InsertRow(_lc[I_PROP_TR_SHOT_TYPE], ShotToStr(Data.ShotType), True)] do
1441 begin
1442 EditStyle := esEllipsis;
1443 ReadOnly := True;
1444 end;
1445
1446 with ItemProps[InsertRow(_lc[I_PROP_TR_SHOT_SOUND], BoolNames[Data.ShotSound], True)] do
1447 begin
1448 EditStyle := esPickList;
1449 ReadOnly := True;
1450 end;
1451
1452 with ItemProps[InsertRow(_lc[I_PROP_TR_SHOT_PANEL], IntToStr(Data.ShotPanelID), True)] do
1453 begin
1454 EditStyle := esEllipsis;
1455 ReadOnly := True;
1456 end;
1457
1458 case Data.ShotTarget of
1459 1: str := _lc[I_PROP_TR_SHOT_TO_1];
1460 2: str := _lc[I_PROP_TR_SHOT_TO_2];
1461 3: str := _lc[I_PROP_TR_SHOT_TO_3];
1462 4: str := _lc[I_PROP_TR_SHOT_TO_4];
1463 5: str := _lc[I_PROP_TR_SHOT_TO_5];
1464 6: str := _lc[I_PROP_TR_SHOT_TO_6];
1465 else str := _lc[I_PROP_TR_SHOT_TO_0];
1466 end;
1467 with ItemProps[InsertRow(_lc[I_PROP_TR_SHOT_TO], str, True)] do
1468 begin
1469 EditStyle := esPickList;
1470 ReadOnly := True;
1471 end;
1472
1473 with ItemProps[InsertRow(_lc[I_PROP_TR_SHOT_SIGHT], IntToStr(Data.ShotIntSight), True)] do
1474 begin
1475 EditStyle := esSimple;
1476 MaxLength := 3;
1477 end;
1478
1479 case Data.ShotAim of
1480 1: str := _lc[I_PROP_TR_SHOT_AIM_1];
1481 2: str := _lc[I_PROP_TR_SHOT_AIM_2];
1482 3: str := _lc[I_PROP_TR_SHOT_AIM_3];
1483 else str := _lc[I_PROP_TR_SHOT_AIM_0];
1484 end;
1485 with ItemProps[InsertRow(_lc[I_PROP_TR_SHOT_AIM], str, True)] do
1486 begin
1487 EditStyle := esPickList;
1488 ReadOnly := True;
1489 end;
1490
1491 with ItemProps[InsertRow(_lc[I_PROP_TR_SPAWN_TO],
1492 Format('(%d:%d)', [Data.ShotPos.X, Data.ShotPos.Y]), True)] do
1493 begin
1494 EditStyle := esEllipsis;
1495 ReadOnly := True;
1496 end;
1497
1498 with ItemProps[InsertRow(_lc[I_PROP_TR_SHOT_ANGLE], IntToStr(Data.ShotAngle), True)] do
1499 begin
1500 EditStyle := esSimple;
1501 MaxLength := 4;
1502 end;
1503
1504 with ItemProps[InsertRow(_lc[I_PROP_TR_EX_DELAY], IntToStr(Data.ShotWait), True)] do
1505 begin
1506 EditStyle := esSimple;
1507 MaxLength := 5;
1508 end;
1509
1510 with ItemProps[InsertRow(_lc[I_PROP_TR_SHOT_ACC], IntToStr(Data.ShotAccuracy), True)] do
1511 begin
1512 EditStyle := esSimple;
1513 MaxLength := 5;
1514 end;
1515
1516 with ItemProps[InsertRow(_lc[I_PROP_TR_SHOT_AMMO], IntToStr(Data.ShotAmmo), True)] do
1517 begin
1518 EditStyle := esSimple;
1519 MaxLength := 5;
1520 end;
1521
1522 with ItemProps[InsertRow(_lc[I_PROP_TR_SHOT_RELOAD], IntToStr(Data.ShotIntReload), True)] do
1523 begin
1524 EditStyle := esSimple;
1525 MaxLength := 4;
1526 end;
1527 end;
1528
1529 TRIGGER_EFFECT:
1530 begin
1531 with ItemProps[InsertRow(_lc[I_PROP_TR_COUNT], IntToStr(Data.FXCount), True)] do
1532 begin
1533 EditStyle := esSimple;
1534 MaxLength := 3;
1535 end;
1536
1537 if Data.FXType = 0 then
1538 str := _lc[I_PROP_TR_EFFECT_PARTICLE]
1539 else
1540 str := _lc[I_PROP_TR_EFFECT_ANIMATION];
1541 with ItemProps[InsertRow(_lc[I_PROP_TR_EFFECT_TYPE], str, True)] do
1542 begin
1543 EditStyle := esEllipsis;
1544 ReadOnly := True;
1545 end;
1546
1547 str := '';
1548 if Data.FXType = 0 then
1549 case Data.FXSubType of
1550 TRIGGER_EFFECT_SLIQUID:
1551 str := _lc[I_PROP_TR_EFFECT_SLIQUID];
1552 TRIGGER_EFFECT_LLIQUID:
1553 str := _lc[I_PROP_TR_EFFECT_LLIQUID];
1554 TRIGGER_EFFECT_DLIQUID:
1555 str := _lc[I_PROP_TR_EFFECT_DLIQUID];
1556 TRIGGER_EFFECT_BLOOD:
1557 str := _lc[I_PROP_TR_EFFECT_BLOOD];
1558 TRIGGER_EFFECT_SPARK:
1559 str := _lc[I_PROP_TR_EFFECT_SPARK];
1560 TRIGGER_EFFECT_BUBBLE:
1561 str := _lc[I_PROP_TR_EFFECT_BUBBLE];
1562 end;
1563 if Data.FXType = 1 then
1564 begin
1565 if (Data.FXSubType = 0) or (Data.FXSubType > EFFECT_FIRE) then
1566 Data.FXSubType := EFFECT_TELEPORT;
1567 str := EffectToStr(Data.FXSubType);
1568 end;
1569 with ItemProps[InsertRow(_lc[I_PROP_TR_EFFECT_SUBTYPE], str, True)] do
1570 begin
1571 EditStyle := esEllipsis;
1572 ReadOnly := True;
1573 end;
1574
1575 with ItemProps[InsertRow(_lc[I_PROP_TR_EFFECT_COLOR], IntToStr(Data.FXColorR or (Data.FXColorG shl 8) or (Data.FXColorB shl 16)), True)] do
1576 begin
1577 EditStyle := esEllipsis;
1578 ReadOnly := True;
1579 end;
1580
1581 with ItemProps[InsertRow(_lc[I_PROP_TR_EFFECT_CENTER], BoolNames[Data.FXPos = 0], True)] do
1582 begin
1583 EditStyle := esPickList;
1584 ReadOnly := True;
1585 end;
1586
1587 with ItemProps[InsertRow(_lc[I_PROP_TR_EX_DELAY], IntToStr(Data.FXWait), True)] do
1588 begin
1589 EditStyle := esSimple;
1590 MaxLength := 5;
1591 end;
1592
1593 with ItemProps[InsertRow(_lc[I_PROP_TR_EFFECT_VELX], IntToStr(Data.FXVelX), True)] do
1594 begin
1595 EditStyle := esSimple;
1596 MaxLength := 4;
1597 end;
1598
1599 with ItemProps[InsertRow(_lc[I_PROP_TR_EFFECT_VELY], IntToStr(Data.FXVelY), True)] do
1600 begin
1601 EditStyle := esSimple;
1602 MaxLength := 4;
1603 end;
1604
1605 with ItemProps[InsertRow(_lc[I_PROP_TR_EFFECT_SPL], IntToStr(Data.FXSpreadL), True)] do
1606 begin
1607 EditStyle := esSimple;
1608 MaxLength := 3;
1609 end;
1610
1611 with ItemProps[InsertRow(_lc[I_PROP_TR_EFFECT_SPR], IntToStr(Data.FXSpreadR), True)] do
1612 begin
1613 EditStyle := esSimple;
1614 MaxLength := 3;
1615 end;
1616
1617 with ItemProps[InsertRow(_lc[I_PROP_TR_EFFECT_SPU], IntToStr(Data.FXSpreadU), True)] do
1618 begin
1619 EditStyle := esSimple;
1620 MaxLength := 3;
1621 end;
1622
1623 with ItemProps[InsertRow(_lc[I_PROP_TR_EFFECT_SPD], IntToStr(Data.FXSpreadD), True)] do
1624 begin
1625 EditStyle := esSimple;
1626 MaxLength := 3;
1627 end;
1628 end;
1629 end; //case TriggerType
1630 end;
1631 end; // OBJECT_TRIGGER:
1632 end;
1633 end;
1634
1635 procedure ChangeShownProperty(Name: String; NewValue: String);
1636 var
1637 row: Integer;
1638 begin
1639 if SelectedObjectCount() <> 1 then
1640 Exit;
1641 if not SelectedObjects[GetFirstSelected()].Live then
1642 Exit;
1643
1644 // Есть ли такой ключ:
1645 if MainForm.vleObjectProperty.FindRow(Name, row) then
1646 begin
1647 MainForm.vleObjectProperty.Values[Name] := NewValue;
1648 end;
1649 end;
1650
1651 procedure SelectObject(fObjectType: Byte; fID: DWORD; Multi: Boolean);
1652 var
1653 a: Integer;
1654 b: Boolean;
1655 begin
1656 if Multi then
1657 begin
1658 b := False;
1659
1660 // Уже выделен - убираем:
1661 if SelectedObjects <> nil then
1662 for a := 0 to High(SelectedObjects) do
1663 with SelectedObjects[a] do
1664 if Live and (ID = fID) and
1665 (ObjectType = fObjectType) then
1666 begin
1667 Live := False;
1668 b := True;
1669 end;
1670
1671 if b then
1672 Exit;
1673
1674 SetLength(SelectedObjects, Length(SelectedObjects)+1);
1675
1676 with SelectedObjects[High(SelectedObjects)] do
1677 begin
1678 ObjectType := fObjectType;
1679 ID := fID;
1680 Live := True;
1681 end;
1682 end
1683 else // not Multi
1684 begin
1685 SetLength(SelectedObjects, 1);
1686
1687 with SelectedObjects[0] do
1688 begin
1689 ObjectType := fObjectType;
1690 ID := fID;
1691 Live := True;
1692 end;
1693 end;
1694
1695 MainForm.miCopy.Enabled := True;
1696 MainForm.miCut.Enabled := True;
1697
1698 if fObjectType = OBJECT_PANEL then
1699 begin
1700 MainForm.miToFore.Enabled := True;
1701 MainForm.miToBack.Enabled := True;
1702 end;
1703 end;
1704
1705 procedure RemoveSelectFromObjects();
1706 begin
1707 SelectedObjects := nil;
1708 DrawPressRect := False;
1709 MouseLDown := False;
1710 MouseRDown := False;
1711 MouseAction := MOUSEACTION_NONE;
1712 SelectFlag := SELECTFLAG_NONE;
1713 ResizeType := RESIZETYPE_NONE;
1714 ResizeDirection := RESIZEDIR_NONE;
1715
1716 MainForm.vleObjectProperty.Strings.Clear();
1717
1718 MainForm.miCopy.Enabled := False;
1719 MainForm.miCut.Enabled := False;
1720 MainForm.miToFore.Enabled := False;
1721 MainForm.miToBack.Enabled := False;
1722 end;
1723
1724 procedure DeleteSelectedObjects();
1725 var
1726 i, a, ii: Integer;
1727 b: Boolean;
1728 begin
1729 if SelectedObjects = nil then
1730 Exit;
1731
1732 b := False;
1733 i := 0;
1734
1735 for a := 0 to High(SelectedObjects) do
1736 with SelectedObjects[a] do
1737 if Live then
1738 begin
1739 if not b then
1740 begin
1741 SetLength(UndoBuffer, Length(UndoBuffer)+1);
1742 i := High(UndoBuffer);
1743 b := True;
1744 end;
1745
1746 SetLength(UndoBuffer[i], Length(UndoBuffer[i])+1);
1747 ii := High(UndoBuffer[i]);
1748
1749 case ObjectType of
1750 OBJECT_PANEL:
1751 begin
1752 UndoBuffer[i, ii].UndoType := UNDO_DELETE_PANEL;
1753 New(UndoBuffer[i, ii].Panel);
1754 UndoBuffer[i, ii].Panel^ := gPanels[ID];
1755 end;
1756 OBJECT_ITEM:
1757 begin
1758 UndoBuffer[i, ii].UndoType := UNDO_DELETE_ITEM;
1759 UndoBuffer[i, ii].Item := gItems[ID];
1760 end;
1761 OBJECT_AREA:
1762 begin
1763 UndoBuffer[i, ii].UndoType := UNDO_DELETE_AREA;
1764 UndoBuffer[i, ii].Area := gAreas[ID];
1765 end;
1766 OBJECT_TRIGGER:
1767 begin
1768 UndoBuffer[i, ii].UndoType := UNDO_DELETE_TRIGGER;
1769 UndoBuffer[i, ii].Trigger := gTriggers[ID];
1770 end;
1771 end;
1772
1773 RemoveObject(ID, ObjectType);
1774 end;
1775
1776 RemoveSelectFromObjects();
1777
1778 MainForm.miUndo.Enabled := UndoBuffer <> nil;
1779 MainForm.RecountSelectedObjects();
1780 end;
1781
1782 procedure Undo_Add(ObjectType: Byte; ID: DWORD; Group: Boolean = False);
1783 var
1784 i, ii: Integer;
1785 begin
1786 if (not Group) or (Length(UndoBuffer) = 0) then
1787 SetLength(UndoBuffer, Length(UndoBuffer)+1);
1788 SetLength(UndoBuffer[High(UndoBuffer)], Length(UndoBuffer[High(UndoBuffer)])+1);
1789 i := High(UndoBuffer);
1790 ii := High(UndoBuffer[i]);
1791
1792 case ObjectType of
1793 OBJECT_PANEL:
1794 UndoBuffer[i, ii].UndoType := UNDO_ADD_PANEL;
1795 OBJECT_ITEM:
1796 UndoBuffer[i, ii].UndoType := UNDO_ADD_ITEM;
1797 OBJECT_MONSTER:
1798 UndoBuffer[i, ii].UndoType := UNDO_ADD_MONSTER;
1799 OBJECT_AREA:
1800 UndoBuffer[i, ii].UndoType := UNDO_ADD_AREA;
1801 OBJECT_TRIGGER:
1802 UndoBuffer[i, ii].UndoType := UNDO_ADD_TRIGGER;
1803 end;
1804
1805 UndoBuffer[i, ii].AddID := ID;
1806
1807 MainForm.miUndo.Enabled := UndoBuffer <> nil;
1808 end;
1809
1810 procedure FullClear();
1811 begin
1812 RemoveSelectFromObjects();
1813 ClearMap();
1814 LoadSky(gMapInfo.SkyName);
1815 UndoBuffer := nil;
1816 slInvalidTextures.Clear();
1817 MapCheckForm.lbErrorList.Clear();
1818 MapCheckForm.mErrorDescription.Clear();
1819
1820 MainForm.miUndo.Enabled := False;
1821 MainForm.sbHorizontal.Position := 0;
1822 MainForm.sbVertical.Position := 0;
1823 MainForm.FormResize(nil);
1824 MainForm.Caption := FormCaption;
1825 OpenedMap := '';
1826 OpenedWAD := '';
1827 end;
1828
1829 procedure ErrorMessageBox(str: String);
1830 begin
1831 MessageBox(0, PChar(str), PChar(_lc[I_MSG_ERROR]),
1832 MB_ICONINFORMATION or MB_OK or MB_DEFBUTTON1);
1833 end;
1834
1835 function CheckProperty(): Boolean;
1836 var
1837 _id: Integer;
1838 begin
1839 Result := False;
1840
1841 _id := GetFirstSelected();
1842
1843 if SelectedObjects[_id].ObjectType = OBJECT_PANEL then
1844 with gPanels[SelectedObjects[_id].ID] do
1845 begin
1846 if TextureWidth <> 0 then
1847 if StrToIntDef(MainForm.vleObjectProperty.Values[_lc[I_PROP_WIDTH]], 1) mod TextureWidth <> 0 then
1848 begin
1849 ErrorMessageBox(Format(_lc[I_MSG_WRONG_TEXWIDTH],
1850 [TextureWidth]));
1851 Exit;
1852 end;
1853
1854 if TextureHeight <> 0 then
1855 if StrToIntDef(Trim(MainForm.vleObjectProperty.Values[_lc[I_PROP_HEIGHT]]), 1) mod TextureHeight <> 0 then
1856 begin
1857 ErrorMessageBox(Format(_lc[I_MSG_WRONG_TEXHEIGHT],
1858 [TextureHeight]));
1859 Exit;
1860 end;
1861
1862 if IsTexturedPanel(PanelType) and (TextureName <> '') then
1863 if not (StrToIntDef(MainForm.vleObjectProperty.Values[_lc[I_PROP_PANEL_ALPHA]], -1) in [0..255]) then
1864 begin
1865 ErrorMessageBox(_lc[I_MSG_WRONG_ALPHA]);
1866 Exit;
1867 end;
1868 end;
1869
1870 if SelectedObjects[_id].ObjectType in [OBJECT_PANEL, OBJECT_TRIGGER] then
1871 if (StrToIntDef(MainForm.vleObjectProperty.Values[_lc[I_PROP_WIDTH]], 0) <= 0) or
1872 (StrToIntDef(MainForm.vleObjectProperty.Values[_lc[I_PROP_HEIGHT]], 0) <= 0) then
1873 begin
1874 ErrorMessageBox(_lc[I_MSG_WRONG_SIZE]);
1875 Exit;
1876 end;
1877
1878 if (Trim(MainForm.vleObjectProperty.Values[_lc[I_PROP_X]]) = '') or
1879 (Trim(MainForm.vleObjectProperty.Values[_lc[I_PROP_Y]]) = '') then
1880 begin
1881 ErrorMessageBox(_lc[I_MSG_WRONG_XY]);
1882 Exit;
1883 end;
1884
1885 Result := True;
1886 end;
1887
1888 procedure SelectTexture(ID: Integer);
1889 begin
1890 MainForm.lbTextureList.ItemIndex := ID;
1891 MainForm.lbTextureListClick(nil);
1892 end;
1893
1894 function AddTexture(aWAD, aSection, aTex: String; silent: Boolean): Boolean;
1895 var
1896 a, FrameLen: Integer;
1897 ok: Boolean;
1898 FileName: String;
1899 ResourceName: String;
1900 FullResourceName: String;
1901 SectionName: String;
1902 Data: Pointer;
1903 Width, Height: Word;
1904 fn: String;
1905 begin
1906 Data := nil;
1907 FrameLen := 0;
1908 Width := 0;
1909 Height := 0;
1910
1911 if aSection = '..' then
1912 SectionName := ''
1913 else
1914 SectionName := aSection;
1915
1916 if aWAD = '' then
1917 aWAD := _lc[I_WAD_SPECIAL_MAP];
1918
1919 if aWAD = _lc[I_WAD_SPECIAL_MAP] then
1920 begin // Файл карты
1921 g_ProcessResourceStr(OpenedMap, @fn, nil, nil);
1922 //FileName := EditorDir+'maps\'+ExtractFileName(fn);
1923 FileName := fn;
1924 ResourceName := ':'+SectionName+'\'+aTex;
1925 end
1926 else
1927 if aWAD = _lc[I_WAD_SPECIAL_TEXS] then
1928 begin // Спец. текстуры
1929 FileName := '';
1930 ResourceName := aTex;
1931 end
1932 else
1933 begin // Внешний WAD
1934 FileName := EditorDir+'wads/'+aWAD;
1935 ResourceName := aWAD+':'+SectionName+'\'+aTex;
1936 end;
1937
1938 ok := True;
1939
1940 // Есть ли уже такая текстура:
1941 for a := 0 to MainForm.lbTextureList.Items.Count-1 do
1942 if ResourceName = MainForm.lbTextureList.Items[a] then
1943 begin
1944 if not silent then
1945 ErrorMessageBox(Format(_lc[I_MSG_TEXTURE_ALREADY],
1946 [ResourceName]));
1947 ok := False;
1948 end;
1949
1950 // Название ресурса <= 64 символов:
1951 if Length(ResourceName) > 64 then
1952 begin
1953 if not silent then
1954 ErrorMessageBox(Format(_lc[I_MSG_RES_NAME_64],
1955 [ResourceName]));
1956 ok := False;
1957 end;
1958
1959 if ok then
1960 begin
1961 a := -1;
1962 if aWAD = _lc[I_WAD_SPECIAL_TEXS] then
1963 begin
1964 a := MainForm.lbTextureList.Items.Add(ResourceName);
1965 if not silent then
1966 SelectTexture(a);
1967 Result := True;
1968 Exit;
1969 end;
1970
1971 FullResourceName := FileName+':'+SectionName+'\'+aTex;
1972
1973 if IsAnim(FullResourceName) then
1974 begin // Аним. текстура
1975 GetFrame(FullResourceName, Data, FrameLen, Width, Height);
1976
1977 if not g_CreateTextureMemorySize(Data, FrameLen, ResourceName, 0, 0, Width, Height, 1) then
1978 ok := False;
1979 a := MainForm.lbTextureList.Items.Add(ResourceName);
1980 end
1981 else // Обычная текстура
1982 begin
1983 if not g_CreateTextureWAD(ResourceName, FullResourceName) then
1984 ok := False;
1985 a := MainForm.lbTextureList.Items.Add(ResourceName);
1986 end;
1987 if (not ok) and (slInvalidTextures.IndexOf(ResourceName) = -1) then
1988 begin
1989 slInvalidTextures.Add(ResourceName);
1990 ok := True;
1991 end;
1992 if (a > -1) and (not silent) then
1993 SelectTexture(a);
1994 end;
1995
1996 Result := ok;
1997 end;
1998
1999 procedure UpdateCaption(sMap, sFile, sRes: String);
2000 begin
2001 with MainForm do
2002 if (sFile = '') and (sRes = '') and (sMap = '') then
2003 Caption := FormCaption
2004 else
2005 if sMap = '' then
2006 Caption := Format('%s - %s:%s', [FormCaption, sFile, sRes])
2007 else
2008 if (sFile <> '') and (sRes <> '') then
2009 Caption := Format('%s - %s (%s:%s)', [FormCaption, sMap, sFile, sRes])
2010 else
2011 Caption := Format('%s - %s', [FormCaption, sMap]);
2012 end;
2013
2014 procedure OpenMap(FileName: String; mapN: String);
2015 var
2016 MapName: String;
2017 idx: Integer;
2018 begin
2019 SelectMapForm.Caption := _lc[I_CAP_OPEN];
2020 SelectMapForm.GetMaps(FileName);
2021
2022 if (FileName = OpenedWAD) and
2023 (OpenedMap <> '') then
2024 begin
2025 MapName := OpenedMap;
2026 while (Pos(':\', MapName) > 0) do
2027 Delete(MapName, 1, Pos(':\', MapName) + 1);
2028
2029 idx := SelectMapForm.lbMapList.Items.IndexOf(MapName);
2030 SelectMapForm.lbMapList.ItemIndex := idx;
2031 end
2032 else
2033 if SelectMapForm.lbMapList.Count > 0 then
2034 SelectMapForm.lbMapList.ItemIndex := 0
2035 else
2036 SelectMapForm.lbMapList.ItemIndex := -1;
2037
2038 if mapN = '' then
2039 idx := -1
2040 else
2041 idx := SelectMapForm.lbMapList.Items.IndexOf(mapN);
2042
2043 if idx < 0 then
2044 begin
2045 if (SelectMapForm.ShowModal() = mrOK) and
2046 (SelectMapForm.lbMapList.ItemIndex <> -1) then
2047 idx := SelectMapForm.lbMapList.ItemIndex
2048 else
2049 Exit;
2050 end;
2051
2052 MapName := SelectMapForm.lbMapList.Items[idx];
2053
2054 with MainForm do
2055 begin
2056 FullClear();
2057
2058 pLoadProgress.Left := (RenderPanel.Width div 2)-(pLoadProgress.Width div 2);
2059 pLoadProgress.Top := (RenderPanel.Height div 2)-(pLoadProgress.Height div 2);
2060 pLoadProgress.Show();
2061
2062 OpenedMap := FileName+':\'+MapName;
2063 OpenedWAD := FileName;
2064
2065 idx := RecentFiles.IndexOf(OpenedMap);
2066 // Такая карта уже недавно открывалась:
2067 if idx >= 0 then
2068 RecentFiles.Delete(idx);
2069 RecentFiles.Insert(0, OpenedMap);
2070 RefreshRecentMenu();
2071
2072 LoadMap(OpenedMap);
2073
2074 pLoadProgress.Hide();
2075 FormResize(nil);
2076
2077 lbTextureList.Sorted := True;
2078 lbTextureList.Sorted := False;
2079
2080 UpdateCaption(gMapInfo.Name, ExtractFileName(FileName), MapName);
2081 end;
2082 end;
2083
2084 procedure MoveSelectedObjects(Wall, alt: Boolean; dx, dy: Integer);
2085 var
2086 okX, okY: Boolean;
2087 a: Integer;
2088 begin
2089 if SelectedObjects = nil then
2090 Exit;
2091
2092 okX := True;
2093 okY := True;
2094
2095 if Wall then
2096 for a := 0 to High(SelectedObjects) do
2097 if SelectedObjects[a].Live then
2098 begin
2099 if ObjectCollideLevel(SelectedObjects[a].ID, SelectedObjects[a].ObjectType, dx, 0) then
2100 okX := False;
2101
2102 if ObjectCollideLevel(SelectedObjects[a].ID, SelectedObjects[a].ObjectType, 0, dy) then
2103 okY := False;
2104
2105 if (not okX) or (not okY) then
2106 Break;
2107 end;
2108
2109 if okX or okY then
2110 begin
2111 for a := 0 to High(SelectedObjects) do
2112 if SelectedObjects[a].Live then
2113 begin
2114 if okX then
2115 MoveObject(SelectedObjects[a].ObjectType, SelectedObjects[a].ID, dx, 0);
2116
2117 if okY then
2118 MoveObject(SelectedObjects[a].ObjectType, SelectedObjects[a].ID, 0, dy);
2119
2120 if alt and (SelectedObjects[a].ObjectType = OBJECT_TRIGGER) then
2121 begin
2122 if gTriggers[SelectedObjects[a].ID].TriggerType in [TRIGGER_PRESS,
2123 TRIGGER_ON, TRIGGER_OFF, TRIGGER_ONOFF] then
2124 begin // Двигаем зону Расширителя
2125 if okX then
2126 gTriggers[SelectedObjects[a].ID].Data.tX := gTriggers[SelectedObjects[a].ID].Data.tX+dx;
2127 if okY then
2128 gTriggers[SelectedObjects[a].ID].Data.tY := gTriggers[SelectedObjects[a].ID].Data.tY+dy;
2129 end;
2130
2131 if gTriggers[SelectedObjects[a].ID].TriggerType in [TRIGGER_TELEPORT] then
2132 begin // Двигаем точку назначения Телепорта
2133 if okX then
2134 gTriggers[SelectedObjects[a].ID].Data.TargetPoint.X := gTriggers[SelectedObjects[a].ID].Data.TargetPoint.X+dx;
2135 if okY then
2136 gTriggers[SelectedObjects[a].ID].Data.TargetPoint.Y := gTriggers[SelectedObjects[a].ID].Data.TargetPoint.Y+dy;
2137 end;
2138
2139 if gTriggers[SelectedObjects[a].ID].TriggerType in [TRIGGER_SPAWNMONSTER] then
2140 begin // Двигаем точку создания монстра
2141 if okX then
2142 gTriggers[SelectedObjects[a].ID].Data.MonPos.X := gTriggers[SelectedObjects[a].ID].Data.MonPos.X+dx;
2143 if okY then
2144 gTriggers[SelectedObjects[a].ID].Data.MonPos.Y := gTriggers[SelectedObjects[a].ID].Data.MonPos.Y+dy;
2145 end;
2146
2147 if gTriggers[SelectedObjects[a].ID].TriggerType in [TRIGGER_SPAWNITEM] then
2148 begin // Двигаем точку создания предмета
2149 if okX then
2150 gTriggers[SelectedObjects[a].ID].Data.ItemPos.X := gTriggers[SelectedObjects[a].ID].Data.ItemPos.X+dx;
2151 if okY then
2152 gTriggers[SelectedObjects[a].ID].Data.ItemPos.Y := gTriggers[SelectedObjects[a].ID].Data.ItemPos.Y+dy;
2153 end;
2154
2155 if gTriggers[SelectedObjects[a].ID].TriggerType in [TRIGGER_SHOT] then
2156 begin // Двигаем точку создания выстрела
2157 if okX then
2158 gTriggers[SelectedObjects[a].ID].Data.ShotPos.X := gTriggers[SelectedObjects[a].ID].Data.ShotPos.X+dx;
2159 if okY then
2160 gTriggers[SelectedObjects[a].ID].Data.ShotPos.Y := gTriggers[SelectedObjects[a].ID].Data.ShotPos.Y+dy;
2161 end;
2162 end;
2163 end;
2164
2165 LastMovePoint := MousePos;
2166 end;
2167 end;
2168
2169 procedure ShowLayer(Layer: Byte; show: Boolean);
2170 begin
2171 LayerEnabled[Layer] := show;
2172
2173 case Layer of
2174 LAYER_BACK:
2175 begin
2176 MainForm.miLayer1.Checked := show;
2177 MainForm.miLayerP1.Checked := show;
2178 end;
2179 LAYER_WALLS:
2180 begin
2181 MainForm.miLayer2.Checked := show;
2182 MainForm.miLayerP2.Checked := show;
2183 end;
2184 LAYER_FOREGROUND:
2185 begin
2186 MainForm.miLayer3.Checked := show;
2187 MainForm.miLayerP3.Checked := show;
2188 end;
2189 LAYER_STEPS:
2190 begin
2191 MainForm.miLayer4.Checked := show;
2192 MainForm.miLayerP4.Checked := show;
2193 end;
2194 LAYER_WATER:
2195 begin
2196 MainForm.miLayer5.Checked := show;
2197 MainForm.miLayerP5.Checked := show;
2198 end;
2199 LAYER_ITEMS:
2200 begin
2201 MainForm.miLayer6.Checked := show;
2202 MainForm.miLayerP6.Checked := show;
2203 end;
2204 LAYER_MONSTERS:
2205 begin
2206 MainForm.miLayer7.Checked := show;
2207 MainForm.miLayerP7.Checked := show;
2208 end;
2209 LAYER_AREAS:
2210 begin
2211 MainForm.miLayer8.Checked := show;
2212 MainForm.miLayerP8.Checked := show;
2213 end;
2214 LAYER_TRIGGERS:
2215 begin
2216 MainForm.miLayer9.Checked := show;
2217 MainForm.miLayerP9.Checked := show;
2218 end;
2219 end;
2220
2221 RemoveSelectFromObjects();
2222 end;
2223
2224 procedure SwitchLayer(Layer: Byte);
2225 begin
2226 ShowLayer(Layer, not LayerEnabled[Layer]);
2227 end;
2228
2229 procedure SwitchMap();
2230 begin
2231 ShowMap := not ShowMap;
2232 MainForm.tbShowMap.Down := ShowMap;
2233 end;
2234
2235 procedure ShowEdges();
2236 begin
2237 if drEdge[3] < 255 then
2238 drEdge[3] := 255
2239 else
2240 drEdge[3] := gAlphaEdge;
2241 end;
2242
2243 function SelectedTexture(): String;
2244 begin
2245 if MainForm.lbTextureList.ItemIndex <> -1 then
2246 Result := MainForm.lbTextureList.Items[MainForm.lbTextureList.ItemIndex]
2247 else
2248 Result := '';
2249 end;
2250
2251 function IsSpecialTextureSel(): Boolean;
2252 begin
2253 Result := (MainForm.lbTextureList.ItemIndex <> -1) and
2254 IsSpecialTexture(MainForm.lbTextureList.Items[MainForm.lbTextureList.ItemIndex]);
2255 end;
2256
2257 function CopyBufferToString(var CopyBuf: TCopyRecArray): String;
2258 var
2259 i, j: Integer;
2260 Res: String;
2261
2262 procedure AddInt(x: Integer);
2263 begin
2264 Res := Res + IntToStr(x) + ' ';
2265 end;
2266
2267 begin
2268 Result := '';
2269
2270 if Length(CopyBuf) = 0 then
2271 Exit;
2272
2273 Res := CLIPBOARD_SIG + ' ';
2274
2275 for i := 0 to High(CopyBuf) do
2276 begin
2277 if (CopyBuf[i].ObjectType = OBJECT_PANEL) and
2278 (CopyBuf[i].Panel = nil) then
2279 Continue;
2280
2281 // Тип объекта:
2282 AddInt(CopyBuf[i].ObjectType);
2283 Res := Res + '; ';
2284
2285 // Свойства объекта:
2286 case CopyBuf[i].ObjectType of
2287 OBJECT_PANEL:
2288 with CopyBuf[i].Panel^ do
2289 begin
2290 AddInt(PanelType);
2291 AddInt(X);
2292 AddInt(Y);
2293 AddInt(Width);
2294 AddInt(Height);
2295 Res := Res + '"' + TextureName + '" ';
2296 AddInt(Alpha);
2297 AddInt(IfThen(Blending, 1, 0));
2298 end;
2299
2300 OBJECT_ITEM:
2301 with CopyBuf[i].Item do
2302 begin
2303 AddInt(ItemType);
2304 AddInt(X);
2305 AddInt(Y);
2306 AddInt(IfThen(OnlyDM, 1, 0));
2307 AddInt(IfThen(Fall, 1, 0));
2308 end;
2309
2310 OBJECT_MONSTER:
2311 with CopyBuf[i].Monster do
2312 begin
2313 AddInt(MonsterType);
2314 AddInt(X);
2315 AddInt(Y);
2316 AddInt(IfThen(Direction = D_LEFT, 1, 0));
2317 end;
2318
2319 OBJECT_AREA:
2320 with CopyBuf[i].Area do
2321 begin
2322 AddInt(AreaType);
2323 AddInt(X);
2324 AddInt(Y);
2325 AddInt(IfThen(Direction = D_LEFT, 1, 0));
2326 end;
2327
2328 OBJECT_TRIGGER:
2329 with CopyBuf[i].Trigger do
2330 begin
2331 AddInt(TriggerType);
2332 AddInt(X);
2333 AddInt(Y);
2334 AddInt(Width);
2335 AddInt(Height);
2336 AddInt(ActivateType);
2337 AddInt(Key);
2338 AddInt(IfThen(Enabled, 1, 0));
2339 AddInt(TexturePanel);
2340
2341 for j := 0 to 127 do
2342 AddInt(Data.Default[j]);
2343 end;
2344 end;
2345 end;
2346
2347 Result := Res;
2348 end;
2349
2350 procedure StringToCopyBuffer(Str: String; var CopyBuf: TCopyRecArray;
2351 var pmin: TPoint);
2352 var
2353 i, j, t: Integer;
2354
2355 function GetNext(): String;
2356 var
2357 p: Integer;
2358
2359 begin
2360 if Str[1] = '"' then
2361 begin
2362 Delete(Str, 1, 1);
2363 p := Pos('"', Str);
2364
2365 if p = 0 then
2366 begin
2367 Result := Str;
2368 Str := '';
2369 end
2370 else
2371 begin
2372 Result := Copy(Str, 1, p-1);
2373 Delete(Str, 1, p);
2374 Str := Trim(Str);
2375 end;
2376 end
2377 else
2378 begin
2379 p := Pos(' ', Str);
2380
2381 if p = 0 then
2382 begin
2383 Result := Str;
2384 Str := '';
2385 end
2386 else
2387 begin
2388 Result := Copy(Str, 1, p-1);
2389 Delete(Str, 1, p);
2390 Str := Trim(Str);
2391 end;
2392 end;
2393 end;
2394
2395 begin
2396 Str := Trim(Str);
2397
2398 if GetNext() <> CLIPBOARD_SIG then
2399 Exit;
2400
2401 while Str <> '' do
2402 begin
2403 // Тип объекта:
2404 t := StrToIntDef(GetNext(), 0);
2405
2406 if (t < OBJECT_PANEL) or (t > OBJECT_TRIGGER) or
2407 (GetNext() <> ';') then
2408 begin // Что-то не то => пропускаем:
2409 t := Pos(';', Str);
2410 Delete(Str, 1, t);
2411 Str := Trim(Str);
2412
2413 Continue;
2414 end;
2415
2416 i := Length(CopyBuf);
2417 SetLength(CopyBuf, i + 1);
2418
2419 CopyBuf[i].ObjectType := t;
2420 CopyBuf[i].Panel := nil;
2421
2422 // Свойства объекта:
2423 case t of
2424 OBJECT_PANEL:
2425 begin
2426 New(CopyBuf[i].Panel);
2427
2428 with CopyBuf[i].Panel^ do
2429 begin
2430 PanelType := StrToIntDef(GetNext(), PANEL_WALL);
2431 X := StrToIntDef(GetNext(), 0);
2432 Y := StrToIntDef(GetNext(), 0);
2433 pmin.X := Min(X, pmin.X);
2434 pmin.Y := Min(Y, pmin.Y);
2435 Width := StrToIntDef(GetNext(), 16);
2436 Height := StrToIntDef(GetNext(), 16);
2437 TextureName := GetNext();
2438 Alpha := StrToIntDef(GetNext(), 0);
2439 Blending := (GetNext() = '1');
2440 end;
2441 end;
2442
2443 OBJECT_ITEM:
2444 with CopyBuf[i].Item do
2445 begin
2446 ItemType := StrToIntDef(GetNext(), ITEM_MEDKIT_SMALL);
2447 X := StrToIntDef(GetNext(), 0);
2448 Y := StrToIntDef(GetNext(), 0);
2449 pmin.X := Min(X, pmin.X);
2450 pmin.Y := Min(Y, pmin.Y);
2451 OnlyDM := (GetNext() = '1');
2452 Fall := (GetNext() = '1');
2453 end;
2454
2455 OBJECT_MONSTER:
2456 with CopyBuf[i].Monster do
2457 begin
2458 MonsterType := StrToIntDef(GetNext(), MONSTER_DEMON);
2459 X := StrToIntDef(GetNext(), 0);
2460 Y := StrToIntDef(GetNext(), 0);
2461 pmin.X := Min(X, pmin.X);
2462 pmin.Y := Min(Y, pmin.Y);
2463
2464 if GetNext() = '1' then
2465 Direction := D_LEFT
2466 else
2467 Direction := D_RIGHT;
2468 end;
2469
2470 OBJECT_AREA:
2471 with CopyBuf[i].Area do
2472 begin
2473 AreaType := StrToIntDef(GetNext(), AREA_PLAYERPOINT1);
2474 X := StrToIntDef(GetNext(), 0);
2475 Y := StrToIntDef(GetNext(), 0);
2476 pmin.X := Min(X, pmin.X);
2477 pmin.Y := Min(Y, pmin.Y);
2478 if GetNext() = '1' then
2479 Direction := D_LEFT
2480 else
2481 Direction := D_RIGHT;
2482 end;
2483
2484 OBJECT_TRIGGER:
2485 with CopyBuf[i].Trigger do
2486 begin
2487 TriggerType := StrToIntDef(GetNext(), TRIGGER_EXIT);
2488 X := StrToIntDef(GetNext(), 0);
2489 Y := StrToIntDef(GetNext(), 0);
2490 pmin.X := Min(X, pmin.X);
2491 pmin.Y := Min(Y, pmin.Y);
2492 Width := StrToIntDef(GetNext(), 16);
2493 Height := StrToIntDef(GetNext(), 16);
2494 ActivateType := StrToIntDef(GetNext(), 0);
2495 Key := StrToIntDef(GetNext(), 0);
2496 Enabled := (GetNext() = '1');
2497 TexturePanel := StrToIntDef(GetNext(), 0);
2498
2499 for j := 0 to 127 do
2500 Data.Default[j] := StrToIntDef(GetNext(), 0);
2501
2502 case TriggerType of
2503 TRIGGER_TELEPORT:
2504 begin
2505 pmin.X := Min(Data.TargetPoint.X, pmin.X);
2506 pmin.Y := Min(Data.TargetPoint.Y, pmin.Y);
2507 end;
2508 TRIGGER_PRESS, TRIGGER_ON, TRIGGER_OFF, TRIGGER_ONOFF:
2509 begin
2510 pmin.X := Min(Data.tX, pmin.X);
2511 pmin.Y := Min(Data.tY, pmin.Y);
2512 end;
2513 TRIGGER_SPAWNMONSTER:
2514 begin
2515 pmin.X := Min(Data.MonPos.X, pmin.X);
2516 pmin.Y := Min(Data.MonPos.Y, pmin.Y);
2517 end;
2518 TRIGGER_SPAWNITEM:
2519 begin
2520 pmin.X := Min(Data.ItemPos.X, pmin.X);
2521 pmin.Y := Min(Data.ItemPos.Y, pmin.Y);
2522 end;
2523 TRIGGER_SHOT:
2524 begin
2525 pmin.X := Min(Data.ShotPos.X, pmin.X);
2526 pmin.Y := Min(Data.ShotPos.Y, pmin.Y);
2527 end;
2528 end;
2529 end;
2530 end;
2531 end;
2532 end;
2533
2534 //----------------------------------------
2535 //Закончились вспомогательные процедуры
2536 //----------------------------------------
2537
2538 procedure TMainForm.RefreshRecentMenu();
2539 var
2540 i: Integer;
2541 MI: TMenuItem;
2542 begin
2543 // Лишние запомненные карты:
2544 while RecentFiles.Count > RecentCount do
2545 RecentFiles.Delete(RecentFiles.Count-1);
2546
2547 // Лишние строки меню:
2548 while MainMenu.Items[0].Count > RECENT_FILES_MENU_START do
2549 MainMenu.Items[0].Delete(MainMenu.Items[0].Count-1);
2550
2551 // Отделение списка карт от строки "Выход":
2552 if RecentFiles.Count > 0 then
2553 begin
2554 MI := TMenuItem.Create(MainMenu.Items[0]);
2555 MI.Caption := '-';
2556 MainMenu.Items[0].Add(MI);
2557 end;
2558
2559 // Добавление в меню списка запомненных карт:
2560 for i := 0 to RecentFiles.Count-1 do
2561 begin
2562 MI := TMenuItem.Create(MainMenu.Items[0]);
2563 MI.Caption := IntToStr(i+1) + ' ' + RecentFiles[i];
2564 MI.OnClick := aRecentFileExecute;
2565 MainMenu.Items[0].Add(MI);
2566 end;
2567 end;
2568
2569 procedure TMainForm.aRecentFileExecute(Sender: TObject);
2570 var
2571 n, pw: Integer;
2572 s, fn: String;
2573 b: Boolean;
2574 begin
2575 s := LowerCase((Sender as TMenuItem).Caption);
2576 Delete(s, Pos('&', s), 1);
2577 s := Trim(Copy(s, 1, 2));
2578 n := StrToIntDef(s, 0) - 1;
2579
2580 if (n < 0) or (n >= RecentFiles.Count) then
2581 Exit;
2582
2583 s := RecentFiles[n];
2584 pw := Pos('.wad:\', LowerCase(s));
2585 b := False;
2586
2587 if pw > 0 then
2588 begin // Map name included
2589 fn := Copy(s, 1, pw + 3);
2590 Delete(s, 1, pw + 5);
2591 if (FileExists(fn)) then
2592 begin
2593 OpenMap(fn, s);
2594 b := True;
2595 end;
2596 end
2597 else // Only wad name
2598 if (FileExists(s)) then
2599 begin
2600 OpenMap(s, '');
2601 b := True;
2602 end;
2603
2604 if (not b) and (MessageBox(0, PChar(_lc[I_MSG_DEL_RECENT_PROMT]),
2605 PChar(_lc[I_MSG_DEL_RECENT]), MB_ICONQUESTION or MB_YESNO) = idYes) then
2606 begin
2607 RecentFiles.Delete(n);
2608 RefreshRecentMenu();
2609 end;
2610 end;
2611
2612 procedure TMainForm.aEditorOptionsExecute(Sender: TObject);
2613 begin
2614 OptionsForm.ShowModal();
2615 end;
2616
2617 procedure LoadStdFont(cfgres, texture: string; var FontID: DWORD);
2618 var
2619 cwdt, chgt: Byte;
2620 spc: ShortInt;
2621 ID: DWORD;
2622 wad: TWADEditor_1;
2623 cfgdata: Pointer;
2624 cfglen: Integer;
2625 config: TConfig;
2626 begin
2627 cfgdata := nil;
2628 cfglen := 0;
2629 ID := 0;
2630
2631 wad := TWADEditor_1.Create;
2632 if wad.ReadFile(EditorDir+'data/Game.wad') then
2633 wad.GetResource('FONTS', cfgres, cfgdata, cfglen);
2634 wad.Free();
2635
2636 if cfglen <> 0 then
2637 begin
2638 if not g_CreateTextureWAD('FONT_STD', EditorDir+'data/Game.wad:FONTS\'+texture) then
2639 e_WriteLog('ERROR ERROR ERROR', MSG_WARNING);
2640
2641 config := TConfig.CreateMem(cfgdata, cfglen);
2642 cwdt := Min(Max(config.ReadInt('FontMap', 'CharWidth', 0), 0), 255);
2643 chgt := Min(Max(config.ReadInt('FontMap', 'CharHeight', 0), 0), 255);
2644 spc := Min(Max(config.ReadInt('FontMap', 'Kerning', 0), -128), 127);
2645
2646 if g_GetTexture('FONT_STD', ID) then
2647 e_TextureFontBuild(ID, FontID, cwdt, chgt, spc-2);
2648
2649 config.Free();
2650 end
2651 else
2652 e_WriteLog('Could not load FONT_STD', MSG_WARNING);
2653
2654 if cfglen <> 0 then FreeMem(cfgdata);
2655 end;
2656
2657 procedure TMainForm.FormCreate(Sender: TObject);
2658 var
2659 config: TConfig;
2660 i: Integer;
2661 s: String;
2662 begin
2663 Randomize();
2664
2665 EditorDir := ExtractFilePath(Application.ExeName);
2666
2667 e_InitLog(EditorDir+'Editor.log', WM_NEWFILE);
2668
2669 slInvalidTextures := TStringList.Create;
2670
2671 ShowLayer(LAYER_BACK, True);
2672 ShowLayer(LAYER_WALLS, True);
2673 ShowLayer(LAYER_FOREGROUND, True);
2674 ShowLayer(LAYER_STEPS, True);
2675 ShowLayer(LAYER_WATER, True);
2676 ShowLayer(LAYER_ITEMS, True);
2677 ShowLayer(LAYER_MONSTERS, True);
2678 ShowLayer(LAYER_AREAS, True);
2679 ShowLayer(LAYER_TRIGGERS, True);
2680
2681 ClearMap();
2682
2683 FormCaption := MainForm.Caption;
2684 OpenedMap := '';
2685 OpenedWAD := '';
2686
2687 config := TConfig.CreateFile(EditorDir+'Editor.cfg');
2688
2689 if config.ReadInt('Editor', 'XPos', -1) = -1 then
2690 Position := poDesktopCenter
2691 else begin
2692 Left := config.ReadInt('Editor', 'XPos', Left);
2693 Top := config.ReadInt('Editor', 'YPos', Top);
2694 Width := config.ReadInt('Editor', 'Width', Width);
2695 Height := config.ReadInt('Editor', 'Height', Height);
2696 end;
2697 if config.ReadBool('Editor', 'Maximize', False) then
2698 WindowState := wsMaximized;
2699 ShowMap := config.ReadBool('Editor', 'Minimap', False);
2700 PanelProps.Width := config.ReadInt('Editor', 'PanelProps', PanelProps.ClientWidth);
2701 Splitter1.Left := PanelProps.Left;
2702 PanelObjs.Height := config.ReadInt('Editor', 'PanelObjs', PanelObjs.ClientHeight);
2703 Splitter2.Top := PanelObjs.Top;
2704 StatusBar.Top := PanelObjs.BoundsRect.Bottom;
2705 DotEnable := config.ReadBool('Editor', 'DotEnable', True);
2706 DotColor := config.ReadInt('Editor', 'DotColor', $FFFFFF);
2707 DotStepOne := config.ReadInt('Editor', 'DotStepOne', 16);
2708 DotStepTwo := config.ReadInt('Editor', 'DotStepTwo', 8);
2709 DotStep := config.ReadInt('Editor', 'DotStep', DotStepOne);
2710 DrawTexturePanel := config.ReadBool('Editor', 'DrawTexturePanel', True);
2711 DrawPanelSize := config.ReadBool('Editor', 'DrawPanelSize', True);
2712 BackColor := config.ReadInt('Editor', 'BackColor', $7F6040);
2713 PreviewColor := config.ReadInt('Editor', 'PreviewColor', $00FF00);
2714 UseCheckerboard := config.ReadBool('Editor', 'UseCheckerboard', True);
2715 gColorEdge := config.ReadInt('Editor', 'EdgeColor', COLOR_EDGE);
2716 gAlphaEdge := config.ReadInt('Editor', 'EdgeAlpha', ALPHA_EDGE);
2717 if gAlphaEdge = 255 then
2718 gAlphaEdge := ALPHA_EDGE;
2719 drEdge[0] := GetRValue(gColorEdge);
2720 drEdge[1] := GetGValue(gColorEdge);
2721 drEdge[2] := GetBValue(gColorEdge);
2722 if not config.ReadBool('Editor', 'EdgeShow', True) then
2723 drEdge[3] := 255
2724 else
2725 drEdge[3] := gAlphaEdge;
2726 gAlphaTriggerLine := config.ReadInt('Editor', 'LineAlpha', ALPHA_LINE);
2727 if gAlphaTriggerLine = 255 then
2728 gAlphaTriggerLine := ALPHA_LINE;
2729 gAlphaTriggerArea := config.ReadInt('Editor', 'TriggerAlpha', ALPHA_AREA);
2730 if gAlphaTriggerArea = 255 then
2731 gAlphaTriggerArea := ALPHA_AREA;
2732 gAlphaMonsterRect := config.ReadInt('Editor', 'MonsterRectAlpha', 0);
2733 gAlphaAreaRect := config.ReadInt('Editor', 'AreaRectAlpha', 0);
2734 if config.ReadInt('Editor', 'Scale', 0) = 1 then
2735 Scale := 2
2736 else
2737 Scale := 1;
2738 if config.ReadInt('Editor', 'DotSize', 0) = 1 then
2739 DotSize := 2
2740 else
2741 DotSize := 1;
2742 OpenDialog.InitialDir := config.ReadStr('Editor', 'LastOpenDir', EditorDir);
2743 SaveDialog.InitialDir := config.ReadStr('Editor', 'LastSaveDir', EditorDir);
2744
2745 s := config.ReadStr('Editor', 'Language', '');
2746 gLanguage := s;
2747
2748 RecentCount := config.ReadInt('Editor', 'RecentCount', 5);
2749 if RecentCount > 10 then
2750 RecentCount := 10;
2751 if RecentCount < 2 then
2752 RecentCount := 2;
2753
2754 RecentFiles := TStringList.Create();
2755 for i := 0 to RecentCount-1 do
2756 begin
2757 s := config.ReadStr('RecentFiles', IntToStr(i+1), '');
2758 if s <> '' then
2759 RecentFiles.Add(s);
2760 end;
2761 RefreshRecentMenu();
2762
2763 config.Free();
2764
2765 tbShowMap.Down := ShowMap;
2766 tbGridOn.Down := DotEnable;
2767 pcObjects.ActivePageIndex := 0;
2768 Application.Title := _lc[I_EDITOR_TITLE];
2769
2770 Application.OnIdle := OnIdle;
2771 end;
2772
2773 procedure PrintBlack(X, Y: Integer; Text: string; FontID: DWORD);
2774 begin
2775 // NOTE: all the font printing routines assume CP1251
2776 e_TextureFontPrintEx(X, Y, Text, FontID, 0, 0, 0, 1.0);
2777 end;
2778
2779 procedure TMainForm.Draw();
2780 var
2781 x, y: Integer;
2782 a, b: Integer;
2783 ID, PID: DWORD;
2784 Width, Height: Word;
2785 Rect: TRectWH;
2786 ObjCount: Word;
2787 aX, aY, aX2, aY2, XX, ScaleSz: Integer;
2788 begin
2789 ID := 0;
2790 PID := 0;
2791 Width := 0;
2792 Height := 0;
2793
2794 e_BeginRender();
2795
2796 e_Clear(GL_COLOR_BUFFER_BIT,
2797 GetRValue(BackColor)/255,
2798 GetGValue(BackColor)/255,
2799 GetBValue(BackColor)/255);
2800
2801 DrawMap();
2802
2803 ObjCount := SelectedObjectCount();
2804
2805 // Обводим выделенные объекты красной рамкой:
2806 if ObjCount > 0 then
2807 begin
2808 for a := 0 to High(SelectedObjects) do
2809 if SelectedObjects[a].Live then
2810 begin
2811 Rect := ObjectGetRect(SelectedObjects[a].ObjectType, SelectedObjects[a].ID);
2812
2813 with Rect do
2814 begin
2815 e_DrawQuad(X+MapOffset.X, Y+MapOffset.Y,
2816 X+MapOffset.X+Width-1, Y+MapOffset.Y+Height-1,
2817 255, 0, 0);
2818
2819 // Рисуем точки изменения размеров:
2820 if (ObjCount = 1) and
2821 (SelectedObjects[GetFirstSelected].ObjectType in [OBJECT_PANEL, OBJECT_TRIGGER]) then
2822 begin
2823 e_DrawPoint(5, X+MapOffset.X, Y+MapOffset.Y+(Height div 2), 255, 255, 255);
2824 e_DrawPoint(5, X+MapOffset.X+Width-1, Y+MapOffset.Y+(Height div 2), 255, 255, 255);
2825 e_DrawPoint(5, X+MapOffset.X+(Width div 2), Y+MapOffset.Y, 255, 255, 255);
2826 e_DrawPoint(5, X+MapOffset.X+(Width div 2), Y+MapOffset.Y+Height-1, 255, 255, 255);
2827
2828 e_DrawPoint(3, X+MapOffset.X, Y+MapOffset.Y+(Height div 2), 255, 0, 0);
2829 e_DrawPoint(3, X+MapOffset.X+Width-1, Y+MapOffset.Y+(Height div 2), 255, 0, 0);
2830 e_DrawPoint(3, X+MapOffset.X+(Width div 2), Y+MapOffset.Y, 255, 0, 0);
2831 e_DrawPoint(3, X+MapOffset.X+(Width div 2), Y+MapOffset.Y+Height-1, 255, 0, 0);
2832 end;
2833 end;
2834 end;
2835 end;
2836
2837 // Рисуем сетку:
2838 if DotEnable and (PreviewMode = 0) then
2839 begin
2840 if DotSize = 2 then
2841 a := -1
2842 else
2843 a := 0;
2844
2845 for x := 0 to (RenderPanel.Width div DotStep) do
2846 for y := 0 to (RenderPanel.Height div DotStep) do
2847 e_DrawPoint(DotSize, x*DotStep + a, y*DotStep + a,
2848 GetRValue(DotColor),
2849 GetGValue(DotColor),
2850 GetBValue(DotColor));
2851 end;
2852
2853 // Превью текстуры:
2854 if (lbTextureList.ItemIndex <> -1) and (cbPreview.Checked) and
2855 (not IsSpecialTextureSel()) and (PreviewMode = 0) then
2856 begin
2857 if not g_GetTexture(SelectedTexture(), ID) then
2858 g_GetTexture('NOTEXTURE', ID);
2859 g_GetTextureSizeByID(ID, Width, Height);
2860 if UseCheckerboard then
2861 begin
2862 if g_GetTexture('PREVIEW', PID) then
2863 e_DrawFill(PID, RenderPanel.Width-Width, RenderPanel.Height-Height, Width div 16 + 1, Height div 16 + 1, 0, True, False);
2864 end else
2865 e_DrawFillQuad(RenderPanel.Width-Width-2, RenderPanel.Height-Height-2,
2866 RenderPanel.Width-1, RenderPanel.Height-1,
2867 GetRValue(PreviewColor), GetGValue(PreviewColor), GetBValue(PreviewColor), 0);
2868 e_Draw(ID, RenderPanel.Width-Width, RenderPanel.Height-Height, 0, True, False);
2869 end;
2870
2871 // Подсказка при выборе точки Телепорта:
2872 if SelectFlag = SELECTFLAG_TELEPORT then
2873 begin
2874 with gTriggers[SelectedObjects[GetFirstSelected()].ID] do
2875 if Data.d2d_teleport then
2876 e_DrawLine(2, MousePos.X-16, MousePos.Y-1,
2877 MousePos.X+16, MousePos.Y-1,
2878 0, 0, 255)
2879 else
2880 e_DrawQuad(MousePos.X, MousePos.Y, MousePos.X+AreaSize[AREA_DMPOINT].Width-1,
2881 MousePos.Y+AreaSize[AREA_DMPOINT].Height-1, 255, 255, 255);
2882
2883 e_DrawFillQuad(MousePos.X, MousePos.Y, MousePos.X+180, MousePos.Y+18, 192, 192, 192, 127);
2884 e_DrawQuad(MousePos.X, MousePos.Y, MousePos.X+180, MousePos.Y+18, 255, 255, 255);
2885 PrintBlack(MousePos.X+2, MousePos.Y+2, _glc[I_HINT_TELEPORT], gEditorFont);
2886 end;
2887
2888 // Подсказка при выборе точки появления:
2889 if SelectFlag = SELECTFLAG_SPAWNPOINT then
2890 begin
2891 e_DrawLine(2, MousePos.X-16, MousePos.Y-1,
2892 MousePos.X+16, MousePos.Y-1,
2893 0, 0, 255);
2894 e_DrawFillQuad(MousePos.X, MousePos.Y, MousePos.X+180, MousePos.Y+18, 192, 192, 192, 127);
2895 e_DrawQuad(MousePos.X, MousePos.Y, MousePos.X+180, MousePos.Y+18, 255, 255, 255);
2896 PrintBlack(MousePos.X+2, MousePos.Y+2, _glc[I_HINT_SPAWN], gEditorFont);
2897 end;
2898
2899 // Подсказка при выборе панели двери:
2900 if SelectFlag = SELECTFLAG_DOOR then
2901 begin
2902 e_DrawFillQuad(MousePos.X, MousePos.Y, MousePos.X+180, MousePos.Y+18, 192, 192, 192, 127);
2903 e_DrawQuad(MousePos.X, MousePos.Y, MousePos.X+180, MousePos.Y+18, 255, 255, 255);
2904 PrintBlack(MousePos.X+2, MousePos.Y+2, _glc[I_HINT_PANEL_DOOR], gEditorFont);
2905 end;
2906
2907 // Подсказка при выборе панели с текстурой:
2908 if SelectFlag = SELECTFLAG_TEXTURE then
2909 begin
2910 e_DrawFillQuad(MousePos.X, MousePos.Y, MousePos.X+196, MousePos.Y+18, 192, 192, 192, 127);
2911 e_DrawQuad(MousePos.X, MousePos.Y, MousePos.X+196, MousePos.Y+18, 255, 255, 255);
2912 PrintBlack(MousePos.X+2, MousePos.Y+2, _glc[I_HINT_PANEL_TEXTURE], gEditorFont);
2913 end;
2914
2915 // Подсказка при выборе панели индикации выстрела:
2916 if SelectFlag = SELECTFLAG_SHOTPANEL then
2917 begin
2918 e_DrawFillQuad(MousePos.X, MousePos.Y, MousePos.X+316, MousePos.Y+18, 192, 192, 192, 127);
2919 e_DrawQuad(MousePos.X, MousePos.Y, MousePos.X+316, MousePos.Y+18, 255, 255, 255);
2920 PrintBlack(MousePos.X+2, MousePos.Y+2, _glc[I_HINT_PANEL_SHOT], gEditorFont);
2921 end;
2922
2923 // Подсказка при выборе панели лифта:
2924 if SelectFlag = SELECTFLAG_LIFT then
2925 begin
2926 e_DrawFillQuad(MousePos.X, MousePos.Y, MousePos.X+180, MousePos.Y+18, 192, 192, 192, 127);
2927 e_DrawQuad(MousePos.X, MousePos.Y, MousePos.X+180, MousePos.Y+18, 255, 255, 255);
2928 PrintBlack(MousePos.X+2, MousePos.Y+2, _glc[I_HINT_PANEL_LIFT], gEditorFont);
2929 end;
2930
2931 // Подсказка при выборе монстра:
2932 if SelectFlag = SELECTFLAG_MONSTER then
2933 begin
2934 e_DrawFillQuad(MousePos.X, MousePos.Y, MousePos.X+120, MousePos.Y+18, 192, 192, 192, 127);
2935 e_DrawQuad(MousePos.X, MousePos.Y, MousePos.X+120, MousePos.Y+18, 255, 255, 255);
2936 PrintBlack(MousePos.X+2, MousePos.Y+2, _glc[I_HINT_MONSTER], gEditorFont);
2937 end;
2938
2939 // Подсказка при выборе области воздействия:
2940 if DrawPressRect then
2941 begin
2942 e_DrawFillQuad(MousePos.X, MousePos.Y, MousePos.X+204, MousePos.Y+18, 192, 192, 192, 127);
2943 e_DrawQuad(MousePos.X, MousePos.Y, MousePos.X+204, MousePos.Y+18, 255, 255, 255);
2944 PrintBlack(MousePos.X+2, MousePos.Y+2, _glc[I_HINT_EXT_AREA], gEditorFont);
2945 end;
2946
2947 // Рисуем текстуры, если чертим панель:
2948 if (MouseAction = MOUSEACTION_DRAWPANEL) and (DrawTexturePanel) and
2949 (lbTextureList.ItemIndex <> -1) and (DrawRect <> nil) and
2950 (lbPanelType.ItemIndex in [0..8]) and not IsSpecialTextureSel() then
2951 begin
2952 if not g_GetTexture(SelectedTexture(), ID) then
2953 g_GetTexture('NOTEXTURE', ID);
2954 g_GetTextureSizeByID(ID, Width, Height);
2955 with DrawRect^ do
2956 if (Abs(Right-Left) >= Width) and (Abs(Bottom-Top) >= Height) then
2957 e_DrawFill(ID, Min(Left, Right), Min(Top, Bottom), Abs(Right-Left) div Width,
2958 Abs(Bottom-Top) div Height, 64, True, False);
2959 end;
2960
2961 // Прямоугольник выделения:
2962 if DrawRect <> nil then
2963 with DrawRect^ do
2964 e_DrawQuad(Left, Top, Right-1, Bottom-1, 255, 255, 255);
2965
2966 // Чертим мышью панель/триггер или меняем мышью их размер:
2967 if (((MouseAction in [MOUSEACTION_DRAWPANEL, MOUSEACTION_DRAWTRIGGER]) and
2968 not(ssCtrl in GetKeyShiftState())) or (MouseAction = MOUSEACTION_RESIZE)) and
2969 (DrawPanelSize) then
2970 begin
2971 e_DrawFillQuad(MousePos.X, MousePos.Y, MousePos.X+88, MousePos.Y+33, 192, 192, 192, 127);
2972 e_DrawQuad(MousePos.X, MousePos.Y, MousePos.X+88, MousePos.Y+33, 255, 255, 255);
2973
2974 if MouseAction in [MOUSEACTION_DRAWPANEL, MOUSEACTION_DRAWTRIGGER] then
2975 begin // Чертим новый
2976 PrintBlack(MousePos.X+2, MousePos.Y+2, Format(_glc[I_HINT_WIDTH],
2977 [Abs(MousePos.X-MouseLDownPos.X)]), gEditorFont);
2978 PrintBlack(MousePos.X+2, MousePos.Y+16, Format(_glc[I_HINT_HEIGHT],
2979 [Abs(MousePos.Y-MouseLDownPos.Y)]), gEditorFont);
2980 end
2981 else // Растягиваем существующий
2982 if SelectedObjects[GetFirstSelected].ObjectType in [OBJECT_PANEL, OBJECT_TRIGGER] then
2983 begin
2984 if SelectedObjects[GetFirstSelected].ObjectType = OBJECT_PANEL then
2985 begin
2986 Width := gPanels[SelectedObjects[GetFirstSelected].ID].Width;
2987 Height := gPanels[SelectedObjects[GetFirstSelected].ID].Height;
2988 end
2989 else
2990 begin
2991 Width := gTriggers[SelectedObjects[GetFirstSelected].ID].Width;
2992 Height := gTriggers[SelectedObjects[GetFirstSelected].ID].Height;
2993 end;
2994
2995 PrintBlack(MousePos.X+2, MousePos.Y+2, Format(_glc[I_HINT_WIDTH], [Width]),
2996 gEditorFont);
2997 PrintBlack(MousePos.X+2, MousePos.Y+16, Format(_glc[I_HINT_HEIGHT], [Height]),
2998 gEditorFont);
2999 end;
3000 end;
3001
3002 // Ближайшая к курсору мыши точка на сетке:
3003 e_DrawPoint(3, MousePos.X, MousePos.Y, 0, 0, 255);
3004
3005 // Мини-карта:
3006 if ShowMap then
3007 begin
3008 // Сколько пикселов карты в 1 пикселе мини-карты:
3009 ScaleSz := 16 div Scale;
3010 // Размеры мини-карты:
3011 aX := max(gMapInfo.Width div ScaleSz, 1);
3012 aY := max(gMapInfo.Height div ScaleSz, 1);
3013 // X-координата на RenderPanel нулевой x-координаты карты:
3014 XX := RenderPanel.Width - aX - 1;
3015 // Рамка карты:
3016 e_DrawFillQuad(XX-1, 0, RenderPanel.Width-1, aY+1, 0, 0, 0, 0);
3017 e_DrawQuad(XX-1, 0, RenderPanel.Width-1, aY+1, 197, 197, 197);
3018
3019 if gPanels <> nil then
3020 begin
3021 // Рисуем панели:
3022 for a := 0 to High(gPanels) do
3023 with gPanels[a] do
3024 if PanelType <> 0 then
3025 begin
3026 // Левый верхний угол:
3027 aX := XX + (X div ScaleSz);
3028 aY := 1 + (Y div ScaleSz);
3029 // Размеры:
3030 aX2 := max(Width div ScaleSz, 1);
3031 aY2 := max(Height div ScaleSz, 1);
3032 // Правый нижний угол:
3033 aX2 := aX + aX2 - 1;
3034 aY2 := aY + aY2 - 1;
3035
3036 case PanelType of
3037 PANEL_WALL: e_DrawFillQuad(aX, aY, aX2, aY2, 208, 208, 208, 0);
3038 PANEL_WATER: e_DrawFillQuad(aX, aY, aX2, aY2, 0, 0, 192, 0);
3039 PANEL_ACID1: e_DrawFillQuad(aX, aY, aX2, aY2, 0, 176, 0, 0);
3040 PANEL_ACID2: e_DrawFillQuad(aX, aY, aX2, aY2, 176, 0, 0, 0);
3041 PANEL_STEP: e_DrawFillQuad(aX, aY, aX2, aY2, 128, 128, 128, 0);
3042 PANEL_LIFTUP: e_DrawFillQuad(aX, aY, aX2, aY2, 116, 72, 36, 0);
3043 PANEL_LIFTDOWN: e_DrawFillQuad(aX, aY, aX2, aY2, 116, 124, 96, 0);
3044 PANEL_LIFTLEFT: e_DrawFillQuad(aX, aY, aX2, aY2, 200, 80, 4, 0);
3045 PANEL_LIFTRIGHT: e_DrawFillQuad(aX, aY, aX2, aY2, 252, 140, 56, 0);
3046 PANEL_OPENDOOR: e_DrawFillQuad(aX, aY, aX2, aY2, 100, 220, 92, 0);
3047 PANEL_CLOSEDOOR: e_DrawFillQuad(aX, aY, aX2, aY2, 212, 184, 64, 0);
3048 PANEL_BLOCKMON: e_DrawFillQuad(aX, aY, aX2, aY2, 192, 0, 192, 0);
3049 end;
3050 end;
3051
3052 // Рисуем красным выделенные панели:
3053 if SelectedObjects <> nil then
3054 for b := 0 to High(SelectedObjects) do
3055 with SelectedObjects[b] do
3056 if Live and (ObjectType = OBJECT_PANEL) then
3057 with gPanels[SelectedObjects[b].ID] do
3058 if PanelType and not(PANEL_BACK or PANEL_FORE) <> 0 then
3059 begin
3060 // Левый верхний угол:
3061 aX := XX + (X div ScaleSz);
3062 aY := 1 + (Y div ScaleSz);
3063 // Размеры:
3064 aX2 := max(Width div ScaleSz, 1);
3065 aY2 := max(Height div ScaleSz, 1);
3066 // Правый нижний угол:
3067 aX2 := aX + aX2 - 1;
3068 aY2 := aY + aY2 - 1;
3069
3070 e_DrawFillQuad(aX, aY, aX2, aY2, 255, 0, 0, 0)
3071 end;
3072 end;
3073
3074 if (gMapInfo.Width > RenderPanel.Width) or
3075 (gMapInfo.Height > RenderPanel.Height) then
3076 begin
3077 // Окно, показывающее текущее положение экрана на карте:
3078 // Размеры окна:
3079 x := max(min(RenderPanel.Width, gMapInfo.Width) div ScaleSz, 1);
3080 y := max(min(RenderPanel.Height, gMapInfo.Height) div ScaleSz, 1);
3081 // Левый верхний угол:
3082 aX := XX + ((-MapOffset.X) div ScaleSz);
3083 aY := 1 + ((-MapOffset.Y) div ScaleSz);
3084 // Правый нижний угол:
3085 aX2 := aX + x - 1;
3086 aY2 := aY + y - 1;
3087
3088 e_DrawFillQuad(aX, aY, aX2, aY2, 127, 192, 127, 127, B_BLEND);
3089 e_DrawQuad(aX, aY, aX2, aY2, 255, 0, 0);
3090 end;
3091 end; // Мини-карта
3092
3093 e_EndRender();
3094 RenderPanel.SwapBuffers();
3095 end;
3096
3097 procedure TMainForm.FormResize(Sender: TObject);
3098 begin
3099 e_SetViewPort(0, 0, RenderPanel.Width, RenderPanel.Height);
3100
3101 if gMapInfo.Width >= RenderPanel.Width then
3102 sbHorizontal.Max := Normalize16(gMapInfo.Width-RenderPanel.Width+16)
3103 else
3104 sbHorizontal.Max := 0;
3105
3106 if gMapInfo.Height >= RenderPanel.Height then
3107 sbVertical.Max := Normalize16(gMapInfo.Height-RenderPanel.Height+16)
3108 else
3109 sbVertical.Max := 0;
3110
3111 MapOffset.X := -Normalize16(sbHorizontal.Position);
3112 MapOffset.Y := -Normalize16(sbVertical.Position);
3113 end;
3114
3115 procedure SelectNextObject(X, Y: Integer; ObjectType: Byte; ID: DWORD);
3116 var
3117 j, j_max: Integer;
3118 res: Boolean;
3119 begin
3120 j_max := 0; // shut up compiler
3121 case ObjectType of
3122 OBJECT_PANEL:
3123 begin
3124 res := (gPanels <> nil) and
3125 PanelInShownLayer(gPanels[ID].PanelType) and
3126 g_CollidePoint(X, Y, gPanels[ID].X, gPanels[ID].Y,
3127 gPanels[ID].Width,
3128 gPanels[ID].Height);
3129 j_max := Length(gPanels) - 1;
3130 end;
3131
3132 OBJECT_ITEM:
3133 begin
3134 res := (gItems <> nil) and
3135 LayerEnabled[LAYER_ITEMS] and
3136 g_CollidePoint(X, Y, gItems[ID].X, gItems[ID].Y,
3137 ItemSize[gItems[ID].ItemType][0],
3138 ItemSize[gItems[ID].ItemType][1]);
3139 j_max := Length(gItems) - 1;
3140 end;
3141
3142 OBJECT_MONSTER:
3143 begin
3144 res := (gMonsters <> nil) and
3145 LayerEnabled[LAYER_MONSTERS] and
3146 g_CollidePoint(X, Y, gMonsters[ID].X, gMonsters[ID].Y,
3147 MonsterSize[gMonsters[ID].MonsterType].Width,
3148 MonsterSize[gMonsters[ID].MonsterType].Height);
3149 j_max := Length(gMonsters) - 1;
3150 end;
3151
3152 OBJECT_AREA:
3153 begin
3154 res := (gAreas <> nil) and
3155 LayerEnabled[LAYER_AREAS] and
3156 g_CollidePoint(X, Y, gAreas[ID].X, gAreas[ID].Y,
3157 AreaSize[gAreas[ID].AreaType].Width,
3158 AreaSize[gAreas[ID].AreaType].Height);
3159 j_max := Length(gAreas) - 1;
3160 end;
3161
3162 OBJECT_TRIGGER:
3163 begin
3164 res := (gTriggers <> nil) and
3165 LayerEnabled[LAYER_TRIGGERS] and
3166 g_CollidePoint(X, Y, gTriggers[ID].X, gTriggers[ID].Y,
3167 gTriggers[ID].Width,
3168 gTriggers[ID].Height);
3169 j_max := Length(gTriggers) - 1;
3170 end;
3171
3172 else
3173 res := False;
3174 end;
3175
3176 if not res then
3177 Exit;
3178
3179 // Перебор ID: от ID-1 до 0; потом от High до ID+1:
3180 j := ID;
3181
3182 while True do
3183 begin
3184 Dec(j);
3185
3186 if j < 0 then
3187 j := j_max;
3188 if j = Integer(ID) then
3189 Break;
3190
3191 case ObjectType of
3192 OBJECT_PANEL:
3193 res := PanelInShownLayer(gPanels[j].PanelType) and
3194 g_CollidePoint(X, Y, gPanels[j].X, gPanels[j].Y,
3195 gPanels[j].Width,
3196 gPanels[j].Height);
3197 OBJECT_ITEM:
3198 res := (gItems[j].ItemType <> ITEM_NONE) and
3199 g_CollidePoint(X, Y, gItems[j].X, gItems[j].Y,
3200 ItemSize[gItems[j].ItemType][0],
3201 ItemSize[gItems[j].ItemType][1]);
3202 OBJECT_MONSTER:
3203 res := (gMonsters[j].MonsterType <> MONSTER_NONE) and
3204 g_CollidePoint(X, Y, gMonsters[j].X, gMonsters[j].Y,
3205 MonsterSize[gMonsters[j].MonsterType].Width,
3206 MonsterSize[gMonsters[j].MonsterType].Height);
3207 OBJECT_AREA:
3208 res := (gAreas[j].AreaType <> AREA_NONE) and
3209 g_CollidePoint(X, Y, gAreas[j].X, gAreas[j].Y,
3210 AreaSize[gAreas[j].AreaType].Width,
3211 AreaSize[gAreas[j].AreaType].Height);
3212 OBJECT_TRIGGER:
3213 res := (gTriggers[j].TriggerType <> TRIGGER_NONE) and
3214 g_CollidePoint(X, Y, gTriggers[j].X, gTriggers[j].Y,
3215 gTriggers[j].Width,
3216 gTriggers[j].Height);
3217 else
3218 res := False;
3219 end;
3220
3221 if res then
3222 begin
3223 SetLength(SelectedObjects, 1);
3224
3225 SelectedObjects[0].ObjectType := ObjectType;
3226 SelectedObjects[0].ID := j;
3227 SelectedObjects[0].Live := True;
3228
3229 FillProperty();
3230 Break;
3231 end;
3232 end;
3233 end;
3234
3235 procedure TMainForm.RenderPanelMouseDown(Sender: TObject;
3236 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
3237 var
3238 i: Integer;
3239 Rect: TRectWH;
3240 c1, c2, c3, c4: Boolean;
3241 item: TItem;
3242 area: TArea;
3243 monster: TMonster;
3244 IDArray: DWArray;
3245 begin
3246 MainForm.ActiveControl := RenderPanel;
3247 RenderPanel.SetFocus();
3248
3249 RenderPanelMouseMove(RenderPanel, Shift, X, Y);
3250
3251 if Button = mbLeft then // Left Mouse Button
3252 begin
3253 // Двигаем карту с помощью мыши и мини-карты:
3254 if ShowMap and
3255 g_CollidePoint(X, Y,
3256 RenderPanel.Width-max(gMapInfo.Width div (16 div Scale), 1)-1,
3257 1,
3258 max(gMapInfo.Width div (16 div Scale), 1),
3259 max(gMapInfo.Height div (16 div Scale), 1) ) then
3260 begin
3261 MoveMap(X, Y);
3262 MouseAction := MOUSEACTION_MOVEMAP;
3263 end
3264 else // Ставим предмет/монстра/область:
3265 if (pcObjects.ActivePageIndex in [1, 2, 3]) and
3266 (not (ssShift in Shift)) then
3267 begin
3268 case pcObjects.ActivePageIndex of
3269 1:
3270 if lbItemList.ItemIndex = -1 then
3271 ErrorMessageBox(_lc[I_MSG_CHOOSE_ITEM])
3272 else
3273 begin
3274 item.ItemType := lbItemList.ItemIndex + ITEM_MEDKIT_SMALL;
3275 if item.ItemType >= ITEM_WEAPON_KASTET then
3276 item.ItemType := item.ItemType + 2;
3277 item.X := MousePos.X-MapOffset.X;
3278 item.Y := MousePos.Y-MapOffset.Y;
3279
3280 if not (ssCtrl in Shift) then
3281 begin
3282 item.X := item.X - (ItemSize[item.ItemType][0] div 2);
3283 item.Y := item.Y - ItemSize[item.ItemType][1];
3284 end;
3285
3286 item.OnlyDM := cbOnlyDM.Checked;
3287 item.Fall := cbFall.Checked;
3288 Undo_Add(OBJECT_ITEM, AddItem(item));
3289 end;
3290 2:
3291 if lbMonsterList.ItemIndex = -1 then
3292 ErrorMessageBox(_lc[I_MSG_CHOOSE_MONSTER])
3293 else
3294 begin
3295 monster.MonsterType := lbMonsterList.ItemIndex + MONSTER_DEMON;
3296 monster.X := MousePos.X-MapOffset.X;
3297 monster.Y := MousePos.Y-MapOffset.Y;
3298
3299 if not (ssCtrl in Shift) then
3300 begin
3301 monster.X := monster.X - (MonsterSize[monster.MonsterType].Width div 2);
3302 monster.Y := monster.Y - MonsterSize[monster.MonsterType].Height;
3303 end;
3304
3305 if rbMonsterLeft.Checked then
3306 monster.Direction := D_LEFT
3307 else
3308 monster.Direction := D_RIGHT;
3309 Undo_Add(OBJECT_MONSTER, AddMonster(monster));
3310 end;
3311 3:
3312 if lbAreasList.ItemIndex = -1 then
3313 ErrorMessageBox(_lc[I_MSG_CHOOSE_AREA])
3314 else
3315 if (lbAreasList.ItemIndex + 1) <> AREA_DOMFLAG then
3316 begin
3317 area.AreaType := lbAreasList.ItemIndex + AREA_PLAYERPOINT1;
3318 area.X := MousePos.X-MapOffset.X;
3319 area.Y := MousePos.Y-MapOffset.Y;
3320
3321 if not (ssCtrl in Shift) then
3322 begin
3323 area.X := area.X - (AreaSize[area.AreaType].Width div 2);
3324 area.Y := area.Y - AreaSize[area.AreaType].Height;
3325 end;
3326
3327 if rbAreaLeft.Checked then
3328 area.Direction := D_LEFT
3329 else
3330 area.Direction := D_RIGHT;
3331 Undo_Add(OBJECT_AREA, AddArea(area));
3332 end;
3333 end;
3334 end
3335 else
3336 begin
3337 i := GetFirstSelected();
3338
3339 // Выбираем объект под текущим:
3340 if (SelectedObjects <> nil) and
3341 (ssShift in Shift) and (i >= 0) and
3342 (SelectedObjects[i].Live) then
3343 begin
3344 if SelectedObjectCount() = 1 then
3345 SelectNextObject(X-MapOffset.X, Y-MapOffset.Y,
3346 SelectedObjects[i].ObjectType,
3347 SelectedObjects[i].ID);
3348 end
3349 else
3350 begin
3351 // Рисуем область триггера "Расширитель":
3352 if DrawPressRect and (i >= 0) and
3353 (SelectedObjects[i].ObjectType = OBJECT_TRIGGER) and
3354 (gTriggers[SelectedObjects[i].ID].TriggerType in
3355 [TRIGGER_PRESS, TRIGGER_ON, TRIGGER_OFF, TRIGGER_ONOFF]) then
3356 MouseAction := MOUSEACTION_DRAWPRESS
3357 else // Рисуем панель:
3358 if pcObjects.ActivePageIndex = 0 then
3359 begin
3360 if (lbPanelType.ItemIndex >= 0) then
3361 MouseAction := MOUSEACTION_DRAWPANEL
3362 end
3363 else // Рисуем триггер:
3364 if (lbTriggersList.ItemIndex >= 0) then
3365 begin
3366 MouseAction := MOUSEACTION_DRAWTRIGGER;
3367 end;
3368 end;
3369 end;
3370 end; // if Button = mbLeft
3371
3372 if Button = mbRight then // Right Mouse Button
3373 begin
3374 // Клик по мини-карте:
3375 if ShowMap and
3376 g_CollidePoint(X, Y,
3377 RenderPanel.Width-max(gMapInfo.Width div (16 div Scale), 1)-1,
3378 1,
3379 max(gMapInfo.Width div (16 div Scale), 1),
3380 max(gMapInfo.Height div (16 div Scale), 1) ) then
3381 begin
3382 MouseAction := MOUSEACTION_NOACTION;
3383 end
3384 else // Нужно что-то выбрать мышью:
3385 if SelectFlag <> SELECTFLAG_NONE then
3386 begin
3387 case SelectFlag of
3388 SELECTFLAG_TELEPORT:
3389 // Точку назначения телепортации:
3390 with gTriggers[SelectedObjects[
3391 GetFirstSelected() ].ID].Data.TargetPoint do
3392 begin
3393 X := MousePos.X-MapOffset.X;
3394 Y := MousePos.Y-MapOffset.Y;
3395 end;
3396
3397 SELECTFLAG_SPAWNPOINT:
3398 // Точку создания монстра:
3399 with gTriggers[SelectedObjects[GetFirstSelected()].ID] do
3400 if TriggerType = TRIGGER_SPAWNMONSTER then
3401 begin
3402 Data.MonPos.X := MousePos.X-MapOffset.X;
3403 Data.MonPos.Y := MousePos.Y-MapOffset.Y;
3404 end
3405 else if TriggerType = TRIGGER_SPAWNITEM then
3406 begin // Точка создания предмета:
3407 Data.ItemPos.X := MousePos.X-MapOffset.X;
3408 Data.ItemPos.Y := MousePos.Y-MapOffset.Y;
3409 end
3410 else if TriggerType = TRIGGER_SHOT then
3411 begin // Точка создания выстрела:
3412 Data.ShotPos.X := MousePos.X-MapOffset.X;
3413 Data.ShotPos.Y := MousePos.Y-MapOffset.Y;
3414 end;
3415
3416 SELECTFLAG_DOOR:
3417 // Дверь:
3418 begin
3419 IDArray := ObjectInRect(X-MapOffset.X,
3420 Y-MapOffset.Y,
3421 2, 2, OBJECT_PANEL, True);
3422 if IDArray <> nil then
3423 begin
3424 for i := 0 to High(IDArray) do
3425 if (gPanels[IDArray[i]].PanelType = PANEL_OPENDOOR) or
3426 (gPanels[IDArray[i]].PanelType = PANEL_CLOSEDOOR) then
3427 begin
3428 gTriggers[SelectedObjects[
3429 GetFirstSelected() ].ID].Data.PanelID := IDArray[i];
3430 Break;
3431 end;
3432 end
3433 else
3434 gTriggers[SelectedObjects[
3435 GetFirstSelected() ].ID].Data.PanelID := -1;
3436 end;
3437
3438 SELECTFLAG_TEXTURE:
3439 // Панель с текстурой:
3440 begin
3441 IDArray := ObjectInRect(X-MapOffset.X,
3442 Y-MapOffset.Y,
3443 2, 2, OBJECT_PANEL, True);
3444 if IDArray <> nil then
3445 begin
3446 for i := 0 to High(IDArray) do
3447 if ((gPanels[IDArray[i]].PanelType in
3448 [PANEL_WALL, PANEL_BACK, PANEL_FORE,
3449 PANEL_WATER, PANEL_ACID1, PANEL_ACID2,
3450 PANEL_STEP]) or
3451 (gPanels[IDArray[i]].PanelType = PANEL_OPENDOOR) or
3452 (gPanels[IDArray[i]].PanelType = PANEL_CLOSEDOOR)) and
3453 (gPanels[IDArray[i]].TextureName <> '') then
3454 begin
3455 gTriggers[SelectedObjects[
3456 GetFirstSelected() ].ID].TexturePanel := IDArray[i];
3457 Break;
3458 end;
3459 end
3460 else
3461 gTriggers[SelectedObjects[
3462 GetFirstSelected() ].ID].TexturePanel := -1;
3463 end;
3464
3465 SELECTFLAG_LIFT:
3466 // Лифт:
3467 begin
3468 IDArray := ObjectInRect(X-MapOffset.X,
3469 Y-MapOffset.Y,
3470 2, 2, OBJECT_PANEL, True);
3471 if IDArray <> nil then
3472 begin
3473 for i := 0 to High(IDArray) do
3474 if (gPanels[IDArray[i]].PanelType = PANEL_LIFTUP) or
3475 (gPanels[IDArray[i]].PanelType = PANEL_LIFTDOWN) or
3476 (gPanels[IDArray[i]].PanelType = PANEL_LIFTLEFT) or
3477 (gPanels[IDArray[i]].PanelType = PANEL_LIFTRIGHT) then
3478 begin
3479 gTriggers[SelectedObjects[
3480 GetFirstSelected() ].ID].Data.PanelID := IDArray[i];
3481 Break;
3482 end;
3483 end
3484 else
3485 gTriggers[SelectedObjects[
3486 GetFirstSelected() ].ID].Data.PanelID := -1;
3487 end;
3488
3489 SELECTFLAG_MONSTER:
3490 // Монстра:
3491 begin
3492 IDArray := ObjectInRect(X-MapOffset.X,
3493 Y-MapOffset.Y,
3494 2, 2, OBJECT_MONSTER, False);
3495 if IDArray <> nil then
3496 gTriggers[SelectedObjects[
3497 GetFirstSelected() ].ID].Data.MonsterID := IDArray[0]+1
3498 else
3499 gTriggers[SelectedObjects[
3500 GetFirstSelected() ].ID].Data.MonsterID := 0;
3501 end;
3502
3503 SELECTFLAG_SHOTPANEL:
3504 // Панель индикации выстрела:
3505 begin
3506 if gTriggers[SelectedObjects[
3507 GetFirstSelected() ].ID].TriggerType = TRIGGER_SHOT then
3508 begin
3509 IDArray := ObjectInRect(X-MapOffset.X,
3510 Y-MapOffset.Y,
3511 2, 2, OBJECT_PANEL, True);
3512 if IDArray <> nil then
3513 begin
3514 for i := 0 to High(IDArray) do
3515 if ((gPanels[IDArray[i]].PanelType in
3516 [PANEL_WALL, PANEL_BACK, PANEL_FORE,
3517 PANEL_WATER, PANEL_ACID1, PANEL_ACID2,
3518 PANEL_STEP]) or
3519 (gPanels[IDArray[i]].PanelType = PANEL_OPENDOOR) or
3520 (gPanels[IDArray[i]].PanelType = PANEL_CLOSEDOOR)) and
3521 (gPanels[IDArray[i]].TextureName <> '') then
3522 begin
3523 gTriggers[SelectedObjects[
3524 GetFirstSelected() ].ID].Data.ShotPanelID := IDArray[i];
3525 Break;
3526 end;
3527 end
3528 else
3529 gTriggers[SelectedObjects[
3530 GetFirstSelected() ].ID].Data.ShotPanelID := -1;
3531 end;
3532 end;
3533 end;
3534
3535 SelectFlag := SELECTFLAG_SELECTED;
3536 end
3537 else // if SelectFlag <> SELECTFLAG_NONE...
3538 begin
3539 // Что уже выбрано и не нажат Ctrl:
3540 if (SelectedObjects <> nil) and
3541 (not (ssCtrl in Shift)) then
3542 for i := 0 to High(SelectedObjects) do
3543 with SelectedObjects[i] do
3544 if Live then
3545 begin
3546 if (ObjectType in [OBJECT_PANEL, OBJECT_TRIGGER]) and
3547 (SelectedObjectCount() = 1) then
3548 begin
3549 Rect := ObjectGetRect(ObjectType, ID);
3550
3551 c1 := g_Collide(X-MapOffset.X-1, Y-MapOffset.Y-1, 2, 2,
3552 Rect.X-2, Rect.Y+(Rect.Height div 2)-2, 4, 4);
3553 c2 := g_Collide(X-MapOffset.X-1, Y-MapOffset.Y-1, 2, 2,
3554 Rect.X+Rect.Width-3, Rect.Y+(Rect.Height div 2)-2, 4, 4);
3555 c3 := g_Collide(X-MapOffset.X-1, Y-MapOffset.Y-1, 2, 2,
3556 Rect.X+(Rect.Width div 2)-2, Rect.Y-2, 4, 4);
3557 c4 := g_Collide(X-MapOffset.X-1, Y-MapOffset.Y-1, 2, 2,
3558 Rect.X+(Rect.Width div 2)-2, Rect.Y+Rect.Height-3, 4, 4);
3559
3560 // Меняем размер панели или триггера:
3561 if c1 or c2 or c3 or c4 then
3562 begin
3563 MouseAction := MOUSEACTION_RESIZE;
3564 LastMovePoint := MousePos;
3565
3566 if c1 or c2 then
3567 begin // Шире/уже
3568 ResizeType := RESIZETYPE_HORIZONTAL;
3569 if c1 then
3570 ResizeDirection := RESIZEDIR_LEFT
3571 else
3572 ResizeDirection := RESIZEDIR_RIGHT;
3573 RenderPanel.Cursor := crSizeWE;
3574 end
3575 else
3576 begin // Выше/ниже
3577 ResizeType := RESIZETYPE_VERTICAL;
3578 if c3 then
3579 ResizeDirection := RESIZEDIR_UP
3580 else
3581 ResizeDirection := RESIZEDIR_DOWN;
3582 RenderPanel.Cursor := crSizeNS;
3583 end;
3584
3585 Break;
3586 end;
3587 end;
3588
3589 // Перемещаем панель или триггер:
3590 if ObjectCollide(ObjectType, ID,
3591 X-MapOffset.X-1,
3592 Y-MapOffset.Y-1, 2, 2) then
3593 begin
3594 MouseAction := MOUSEACTION_MOVEOBJ;
3595 LastMovePoint := MousePos;
3596
3597 Break;
3598 end;
3599 end;
3600 end;
3601 end; // if Button = mbRight
3602
3603 MouseRDown := Button = mbRight;
3604 if MouseRDown then
3605 MouseRDownPos := MousePos;
3606
3607 MouseLDown := Button = mbLeft;
3608 if MouseLDown then
3609 MouseLDownPos := MousePos;
3610 end;
3611
3612 procedure TMainForm.RenderPanelMouseUp(Sender: TObject;
3613 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
3614 var
3615 panel: TPanel;
3616 trigger: TTrigger;
3617 rRect: TRectWH;
3618 rSelectRect: Boolean;
3619 wWidth, wHeight: Word;
3620 TextureID: DWORD;
3621
3622 procedure SelectObjects(ObjectType: Byte);
3623 var
3624 i: Integer;
3625 IDArray: DWArray;
3626 begin
3627 IDArray := ObjectInRect(rRect.X, rRect.Y,
3628 rRect.Width, rRect.Height,
3629 ObjectType, rSelectRect);
3630
3631 if IDArray <> nil then
3632 for i := 0 to High(IDArray) do
3633 SelectObject(ObjectType, IDArray[i], (ssCtrl in Shift) or rSelectRect);
3634 end;
3635 begin
3636 if Button = mbLeft then
3637 MouseLDown := False;
3638 if Button = mbRight then
3639 MouseRDown := False;
3640
3641 DrawRect := nil;
3642 ResizeType := RESIZETYPE_NONE;
3643 TextureID := 0;
3644
3645 if Button = mbLeft then // Left Mouse Button
3646 begin
3647 if MouseAction <> MOUSEACTION_NONE then
3648 begin // Было действие мышью
3649 // Мышь сдвинулась во время удержания клавиши,
3650 // либо активирован режим быстрого рисования:
3651 if ((MousePos.X <> MouseLDownPos.X) and
3652 (MousePos.Y <> MouseLDownPos.Y)) or
3653 ((MouseAction in [MOUSEACTION_DRAWPANEL, MOUSEACTION_DRAWTRIGGER]) and
3654 (ssCtrl in Shift)) then
3655 case MouseAction of
3656 // Рисовали панель:
3657 MOUSEACTION_DRAWPANEL:
3658 begin
3659 // Фон или передний план без текстуры - ошибка:
3660 if (lbPanelType.ItemIndex in [1, 2]) and
3661 (lbTextureList.ItemIndex = -1) then
3662 ErrorMessageBox(_lc[I_MSG_CHOOSE_TEXTURE])
3663 else // Назначаем параметры панели:
3664 begin
3665 case lbPanelType.ItemIndex of
3666 0: Panel.PanelType := PANEL_WALL;
3667 1: Panel.PanelType := PANEL_BACK;
3668 2: Panel.PanelType := PANEL_FORE;
3669 3: Panel.PanelType := PANEL_OPENDOOR;
3670 4: Panel.PanelType := PANEL_CLOSEDOOR;
3671 5: Panel.PanelType := PANEL_STEP;
3672 6: Panel.PanelType := PANEL_WATER;
3673 7: Panel.PanelType := PANEL_ACID1;
3674 8: Panel.PanelType := PANEL_ACID2;
3675 9: Panel.PanelType := PANEL_LIFTUP;
3676 10: Panel.PanelType := PANEL_LIFTDOWN;
3677 11: Panel.PanelType := PANEL_LIFTLEFT;
3678 12: Panel.PanelType := PANEL_LIFTRIGHT;
3679 13: Panel.PanelType := PANEL_BLOCKMON;
3680 end;
3681
3682 Panel.X := Min(MousePos.X-MapOffset.X, MouseLDownPos.X-MapOffset.X);
3683 Panel.Y := Min(MousePos.Y-MapOffset.Y, MouseLDownPos.Y-MapOffset.Y);
3684 if ssCtrl in Shift then
3685 begin
3686 wWidth := DotStep;
3687 wHeight := DotStep;
3688 if (lbTextureList.ItemIndex <> -1) and
3689 (not IsSpecialTextureSel()) then
3690 begin
3691 if not g_GetTexture(SelectedTexture(), TextureID) then
3692 g_GetTexture('NOTEXTURE', TextureID);
3693 g_GetTextureSizeByID(TextureID, wWidth, wHeight);
3694 end;
3695 Panel.Width := wWidth;
3696 Panel.Height := wHeight;
3697 end
3698 else
3699 begin
3700 Panel.Width := Abs(MousePos.X-MouseLDownPos.X);
3701 Panel.Height := Abs(MousePos.Y-MouseLDownPos.Y);
3702 end;
3703
3704 // Лифты, блокМон или отсутствие текстуры - пустая текстура:
3705 if (lbPanelType.ItemIndex in [9, 10, 11, 12, 13]) or
3706 (lbTextureList.ItemIndex = -1) then
3707 begin
3708 Panel.TextureHeight := 1;
3709 Panel.TextureWidth := 1;
3710 Panel.TextureName := '';
3711 Panel.TextureID := TEXTURE_SPECIAL_NONE;
3712 end
3713 else // Есть текстура:
3714 begin
3715 Panel.TextureName := SelectedTexture();
3716
3717 // Обычная текстура:
3718 if not IsSpecialTextureSel() then
3719 begin
3720 g_GetTextureSizeByName(Panel.TextureName,
3721 Panel.TextureWidth, Panel.TextureHeight);
3722 g_GetTexture(Panel.TextureName, Panel.TextureID);
3723 end
3724 else // Спец.текстура:
3725 begin
3726 Panel.TextureHeight := 1;
3727 Panel.TextureWidth := 1;
3728 Panel.TextureID := SpecialTextureID(SelectedTexture());
3729 end;
3730 end;
3731
3732 Panel.Alpha := 0;
3733 Panel.Blending := False;
3734
3735 Undo_Add(OBJECT_PANEL, AddPanel(Panel));
3736 end;
3737 end;
3738
3739 // Рисовали триггер:
3740 MOUSEACTION_DRAWTRIGGER:
3741 begin
3742 trigger.X := Min(MousePos.X-MapOffset.X, MouseLDownPos.X-MapOffset.X);
3743 trigger.Y := Min(MousePos.Y-MapOffset.Y, MouseLDownPos.Y-MapOffset.Y);
3744 if ssCtrl in Shift then
3745 begin
3746 wWidth := DotStep;
3747 wHeight := DotStep;
3748 trigger.Width := wWidth;
3749 trigger.Height := wHeight;
3750 end
3751 else
3752 begin
3753 trigger.Width := Abs(MousePos.X-MouseLDownPos.X);
3754 trigger.Height := Abs(MousePos.Y-MouseLDownPos.Y);
3755 end;
3756
3757 trigger.Enabled := True;
3758 trigger.TriggerType := lbTriggersList.ItemIndex+1;
3759 trigger.TexturePanel := -1;
3760
3761 // Типы активации:
3762 trigger.ActivateType := 0;
3763
3764 if clbActivationType.Checked[0] then
3765 trigger.ActivateType := Trigger.ActivateType or ACTIVATE_PLAYERCOLLIDE;
3766 if clbActivationType.Checked[1] then
3767 trigger.ActivateType := Trigger.ActivateType or ACTIVATE_MONSTERCOLLIDE;
3768 if clbActivationType.Checked[2] then
3769 trigger.ActivateType := Trigger.ActivateType or ACTIVATE_PLAYERPRESS;
3770 if clbActivationType.Checked[3] then
3771 trigger.ActivateType := Trigger.ActivateType or ACTIVATE_MONSTERPRESS;
3772 if clbActivationType.Checked[4] then
3773 trigger.ActivateType := Trigger.ActivateType or ACTIVATE_SHOT;
3774 if clbActivationType.Checked[5] then
3775 trigger.ActivateType := Trigger.ActivateType or ACTIVATE_NOMONSTER;
3776
3777 // Необходимые для активации ключи:
3778 trigger.Key := 0;
3779
3780 if clbKeys.Checked[0] then
3781 trigger.Key := Trigger.Key or KEY_RED;
3782 if clbKeys.Checked[1] then
3783 trigger.Key := Trigger.Key or KEY_GREEN;
3784 if clbKeys.Checked[2] then
3785 trigger.Key := Trigger.Key or KEY_BLUE;
3786 if clbKeys.Checked[3] then
3787 trigger.Key := Trigger.Key or KEY_REDTEAM;
3788 if clbKeys.Checked[4] then
3789 trigger.Key := Trigger.Key or KEY_BLUETEAM;
3790
3791 // Параметры триггера:
3792 FillByte(trigger.Data.Default[0], 128, 0);
3793
3794 case trigger.TriggerType of
3795 // Переключаемая панель:
3796 TRIGGER_OPENDOOR, TRIGGER_CLOSEDOOR, TRIGGER_DOOR,
3797 TRIGGER_DOOR5, TRIGGER_CLOSETRAP, TRIGGER_TRAP,
3798 TRIGGER_LIFTUP, TRIGGER_LIFTDOWN, TRIGGER_LIFT:
3799 begin
3800 Trigger.Data.PanelID := -1;
3801 end;
3802
3803 // Телепортация:
3804 TRIGGER_TELEPORT:
3805 begin
3806 trigger.Data.TargetPoint.X := trigger.X-64;
3807 trigger.Data.TargetPoint.Y := trigger.Y-64;
3808 trigger.Data.d2d_teleport := True;
3809 trigger.Data.TlpDir := 0;
3810 end;
3811
3812 // Изменение других триггеров:
3813 TRIGGER_PRESS, TRIGGER_ON, TRIGGER_OFF,
3814 TRIGGER_ONOFF:
3815 begin
3816 trigger.Data.Count := 1;
3817 end;
3818
3819 // Звук:
3820 TRIGGER_SOUND:
3821 begin
3822 trigger.Data.Volume := 255;
3823 trigger.Data.Pan := 127;
3824 trigger.Data.PlayCount := 1;
3825 trigger.Data.Local := True;
3826 trigger.Data.SoundSwitch := False;
3827 end;
3828
3829 // Музыка:
3830 TRIGGER_MUSIC:
3831 begin
3832 trigger.Data.MusicAction := 1;
3833 end;
3834
3835 // Создание монстра:
3836 TRIGGER_SPAWNMONSTER:
3837 begin
3838 trigger.Data.MonType := MONSTER_ZOMBY;
3839 trigger.Data.MonPos.X := trigger.X-64;
3840 trigger.Data.MonPos.Y := trigger.Y-64;
3841 trigger.Data.MonHealth := 0;
3842 trigger.Data.MonActive := False;
3843 trigger.Data.MonCount := 1;
3844 end;
3845
3846 // Создание предмета:
3847 TRIGGER_SPAWNITEM:
3848 begin
3849 trigger.Data.ItemType := ITEM_AMMO_BULLETS;
3850 trigger.Data.ItemPos.X := trigger.X-64;
3851 trigger.Data.ItemPos.Y := trigger.Y-64;
3852 trigger.Data.ItemOnlyDM := False;
3853 trigger.Data.ItemFalls := False;
3854 trigger.Data.ItemCount := 1;
3855 trigger.Data.ItemMax := 0;
3856 trigger.Data.ItemDelay := 0;
3857 end;
3858
3859 // Ускорение:
3860 TRIGGER_PUSH:
3861 begin
3862 trigger.Data.PushAngle := 90;
3863 trigger.Data.PushForce := 10;
3864 trigger.Data.ResetVel := True;
3865 end;
3866
3867 TRIGGER_SCORE:
3868 begin
3869 trigger.Data.ScoreCount := 1;
3870 trigger.Data.ScoreCon := True;
3871 trigger.Data.ScoreMsg := True;
3872 end;
3873
3874 TRIGGER_MESSAGE:
3875 begin
3876 trigger.Data.MessageKind := 0;
3877 trigger.Data.MessageSendTo := 0;
3878 trigger.Data.MessageText := '';
3879 trigger.Data.MessageTime := 144;
3880 end;
3881
3882 TRIGGER_DAMAGE:
3883 begin
3884 trigger.Data.DamageValue := 5;
3885 trigger.Data.DamageInterval := 12;
3886 end;
3887
3888 TRIGGER_HEALTH:
3889 begin
3890 trigger.Data.HealValue := 5;
3891 trigger.Data.HealInterval := 36;
3892 end;
3893
3894 TRIGGER_SHOT:
3895 begin
3896 trigger.Data.ShotType := TRIGGER_SHOT_BULLET;
3897 trigger.Data.ShotSound := True;
3898 trigger.Data.ShotPanelID := -1;
3899 trigger.Data.ShotTarget := 0;
3900 trigger.Data.ShotIntSight := 0;
3901 trigger.Data.ShotAim := TRIGGER_SHOT_AIM_DEFAULT;
3902 trigger.Data.ShotPos.X := trigger.X-64;
3903 trigger.Data.ShotPos.Y := trigger.Y-64;
3904 trigger.Data.ShotAngle := 0;
3905 trigger.Data.ShotWait := 18;
3906 trigger.Data.ShotAccuracy := 0;
3907 trigger.Data.ShotAmmo := 0;
3908 trigger.Data.ShotIntReload := 0;
3909 end;
3910
3911 TRIGGER_EFFECT:
3912 begin
3913 trigger.Data.FXCount := 1;
3914 trigger.Data.FXType := TRIGGER_EFFECT_PARTICLE;
3915 trigger.Data.FXSubType := TRIGGER_EFFECT_SLIQUID;
3916 trigger.Data.FXColorR := 0;
3917 trigger.Data.FXColorG := 0;
3918 trigger.Data.FXColorB := 255;
3919 trigger.Data.FXPos := TRIGGER_EFFECT_POS_CENTER;
3920 trigger.Data.FXWait := 1;
3921 trigger.Data.FXVelX := 0;
3922 trigger.Data.FXVelY := -20;
3923 trigger.Data.FXSpreadL := 5;
3924 trigger.Data.FXSpreadR := 5;
3925 trigger.Data.FXSpreadU := 4;
3926 trigger.Data.FXSpreadD := 0;
3927 end;
3928 end;
3929
3930 Undo_Add(OBJECT_TRIGGER, AddTrigger(trigger));
3931 end;
3932
3933 // Рисовали область триггера "Расширитель":
3934 MOUSEACTION_DRAWPRESS:
3935 with gTriggers[SelectedObjects[GetFirstSelected].ID] do
3936 begin
3937 Data.tX := Min(MousePos.X-MapOffset.X, MouseLDownPos.X-MapOffset.X);
3938 Data.tY := Min(MousePos.Y-MapOffset.Y, MouseLDownPos.Y-MapOffset.Y);
3939 Data.tWidth := Abs(MousePos.X-MouseLDownPos.X);
3940 Data.tHeight := Abs(MousePos.Y-MouseLDownPos.Y);
3941
3942 DrawPressRect := False;
3943 end;
3944 end;
3945
3946 MouseAction := MOUSEACTION_NONE;
3947 end;
3948 end // if Button = mbLeft...
3949 else // Right Mouse Button:
3950 begin
3951 if MouseAction = MOUSEACTION_NOACTION then
3952 begin
3953 MouseAction := MOUSEACTION_NONE;
3954 Exit;
3955 end;
3956
3957 // Объект передвинут или изменен в размере:
3958 if MouseAction in [MOUSEACTION_MOVEOBJ, MOUSEACTION_RESIZE] then
3959 begin
3960 MouseAction := MOUSEACTION_NONE;
3961 FillProperty();
3962 Exit;
3963 end;
3964
3965 // Еще не все выбрали:
3966 if SelectFlag <> SELECTFLAG_NONE then
3967 begin
3968 if SelectFlag = SELECTFLAG_SELECTED then
3969 SelectFlag := SELECTFLAG_NONE;
3970 FillProperty();
3971 Exit;
3972 end;
3973
3974 // Мышь сдвинулась во время удержания клавиши:
3975 if (MousePos.X <> MouseRDownPos.X) and
3976 (MousePos.Y <> MouseRDownPos.Y) then
3977 begin
3978 rSelectRect := True;
3979
3980 rRect.X := Min(MousePos.X, MouseRDownPos.X)-MapOffset.X;
3981 rRect.Y := Min(MousePos.Y, MouseRDownPos.Y)-MapOffset.Y;
3982 rRect.Width := Abs(MousePos.X-MouseRDownPos.X);
3983 rRect.Height := Abs(MousePos.Y-MouseRDownPos.Y);
3984 end
3985 else // Мышь не сдвинулась - нет прямоугольника:
3986 begin
3987 rSelectRect := False;
3988
3989 rRect.X := X-MapOffset.X-1;
3990 rRect.Y := Y-MapOffset.Y-1;
3991 rRect.Width := 2;
3992 rRect.Height := 2;
3993 end;
3994
3995 // Если зажат Ctrl - выделять еще, иначе только один выделенный объект:
3996 if not (ssCtrl in Shift) then
3997 RemoveSelectFromObjects();
3998
3999 // Выделяем всё в выбранном прямоугольнике:
4000 if (ssCtrl in Shift) and (ssAlt in Shift) then
4001 begin
4002 SelectObjects(OBJECT_PANEL);
4003 SelectObjects(OBJECT_ITEM);
4004 SelectObjects(OBJECT_MONSTER);
4005 SelectObjects(OBJECT_AREA);
4006 SelectObjects(OBJECT_TRIGGER);
4007 end
4008 else
4009 SelectObjects(pcObjects.ActivePageIndex+1);
4010
4011 FillProperty();
4012 end;
4013 end;
4014
4015 procedure TMainForm.RenderPanelPaint(Sender: TObject);
4016 begin
4017 Draw();
4018 end;
4019
4020 function TMainForm.RenderMousePos(): Types.TPoint;
4021 begin
4022 Result := RenderPanel.ScreenToClient(Mouse.CursorPos);
4023 end;
4024
4025 procedure TMainForm.RecountSelectedObjects();
4026 begin
4027 if SelectedObjectCount() = 0 then
4028 StatusBar.Panels[0].Text := ''
4029 else
4030 StatusBar.Panels[0].Text := Format(_lc[I_CAP_STAT_SELECTED], [SelectedObjectCount()]);
4031 end;
4032
4033 procedure TMainForm.RenderPanelMouseMove(Sender: TObject;
4034 Shift: TShiftState; X, Y: Integer);
4035 var
4036 sX, sY: Integer;
4037 dWidth, dHeight: Integer;
4038 _id: Integer;
4039 TextureID: DWORD;
4040 wWidth, wHeight: Word;
4041 begin
4042 _id := GetFirstSelected();
4043 TextureID := 0;
4044
4045 // Рисуем панель с текстурой, сетка - размеры текстуры:
4046 if (MouseAction = MOUSEACTION_DRAWPANEL) and
4047 (lbPanelType.ItemIndex in [0..8]) and
4048 (lbTextureList.ItemIndex <> -1) and
4049 (not IsSpecialTextureSel()) then
4050 begin
4051 sX := StrToIntDef(lTextureWidth.Caption, DotStep);
4052 sY := StrToIntDef(lTextureHeight.Caption, DotStep);
4053 end
4054 else
4055 // Меняем размер панели с текстурой, сетка - размеры текстуры:
4056 if (MouseAction = MOUSEACTION_RESIZE) and
4057 ( (SelectedObjects[_id].ObjectType = OBJECT_PANEL) and
4058 IsTexturedPanel(gPanels[SelectedObjects[_id].ID].PanelType) and
4059 (gPanels[SelectedObjects[_id].ID].TextureName <> '') and
4060 (not IsSpecialTexture(gPanels[SelectedObjects[_id].ID].TextureName)) ) then
4061 begin
4062 sX := gPanels[SelectedObjects[_id].ID].TextureWidth;
4063 sY := gPanels[SelectedObjects[_id].ID].TextureHeight;
4064 end
4065 else
4066 // Выравнивание по сетке:
4067 if SnapToGrid then
4068 begin
4069 sX := DotStep;
4070 sY := DotStep;
4071 end
4072 else // Нет выравнивания по сетке:
4073 begin
4074 sX := 1;
4075 sY := 1;
4076 end;
4077
4078 // Новая позиция мыши:
4079 if MouseLDown then
4080 begin // Зажата левая кнопка мыши
4081 MousePos.X := (Round((X-MouseLDownPos.X)/sX)*sX)+MouseLDownPos.X;
4082 MousePos.Y := (Round((Y-MouseLDownPos.Y)/sY)*sY)+MouseLDownPos.Y;
4083 end
4084 else
4085 if MouseRDown then
4086 begin // Зажата правая кнопка мыши
4087 MousePos.X := (Round((X-MouseRDownPos.X)/sX)*sX)+MouseRDownPos.X;
4088 MousePos.Y := (Round((Y-MouseRDownPos.Y)/sY)*sY)+MouseRDownPos.Y;
4089 end
4090 else
4091 begin // Кнопки мыши не зажаты
4092 MousePos.X := (Round(X/sX)*sX);
4093 MousePos.Y := (Round(Y/sY)*sY);
4094 end;
4095
4096 // Изменение размера закончилось - ставим обычный курсор:
4097 if ResizeType = RESIZETYPE_NONE then
4098 RenderPanel.Cursor := crDefault;
4099
4100 // Зажата только правая кнопка мыши:
4101 if (not MouseLDown) and (MouseRDown) then
4102 begin
4103 // Рисуем прямоугольник выделения:
4104 if MouseAction = MOUSEACTION_NONE then
4105 begin
4106 if DrawRect = nil then
4107 New(DrawRect);
4108 DrawRect.Top := MouseRDownPos.y;
4109 DrawRect.Left := MouseRDownPos.x;
4110 DrawRect.Bottom := MousePos.y;
4111 DrawRect.Right := MousePos.x;
4112 end
4113 else
4114 // Двигаем выделенные объекты:
4115 if MouseAction = MOUSEACTION_MOVEOBJ then
4116 begin
4117 MoveSelectedObjects(ssShift in Shift, ssCtrl in Shift,
4118 MousePos.X-LastMovePoint.X+WASDOffset.X,
4119 MousePos.Y-LastMovePoint.Y+WASDOffset.Y);
4120 WASDOffset.X := 0;
4121 WASDOffset.Y := 0;
4122 end
4123 else
4124 // Меняем размер выделенного объекта:
4125 if MouseAction = MOUSEACTION_RESIZE then
4126 begin
4127 if (SelectedObjectCount = 1) and
4128 (SelectedObjects[GetFirstSelected].Live) then
4129 begin
4130 dWidth := MousePos.X-LastMovePoint.X+WASDOffset.X;
4131 dHeight := MousePos.Y-LastMovePoint.Y+WASDOffset.Y;
4132 WASDOffset.X := 0;
4133 WASDOffset.Y := 0;
4134
4135 case ResizeType of
4136 RESIZETYPE_VERTICAL: dWidth := 0;
4137 RESIZETYPE_HORIZONTAL: dHeight := 0;
4138 end;
4139
4140 case ResizeDirection of
4141 RESIZEDIR_UP: dHeight := -dHeight;
4142 RESIZEDIR_LEFT: dWidth := -dWidth;
4143 end;
4144
4145 ResizeObject(SelectedObjects[GetFirstSelected].ObjectType,
4146 SelectedObjects[GetFirstSelected].ID,
4147 dWidth, dHeight, ResizeDirection);
4148
4149 LastMovePoint := MousePos;
4150 end;
4151 end;
4152 end;
4153
4154 // Зажата только левая кнопка мыши:
4155 if (not MouseRDown) and (MouseLDown) then
4156 begin
4157 // Рисуем прямоугольник планирования панели:
4158 if MouseAction in [MOUSEACTION_DRAWPANEL,
4159 MOUSEACTION_DRAWTRIGGER,
4160 MOUSEACTION_DRAWPRESS] then
4161 begin
4162 if DrawRect = nil then
4163 New(DrawRect);
4164 if ssCtrl in Shift then
4165 begin
4166 wWidth := DotStep;
4167 wHeight := DotStep;
4168 if (lbTextureList.ItemIndex <> -1) and (not IsSpecialTextureSel()) and
4169 (MouseAction = MOUSEACTION_DRAWPANEL) then
4170 begin
4171 if not g_GetTexture(SelectedTexture(), TextureID) then
4172 g_GetTexture('NOTEXTURE', TextureID);
4173 g_GetTextureSizeByID(TextureID, wWidth, wHeight);
4174 end;
4175 DrawRect.Top := MouseLDownPos.y;
4176 DrawRect.Left := MouseLDownPos.x;
4177 DrawRect.Bottom := DrawRect.Top + wHeight;
4178 DrawRect.Right := DrawRect.Left + wWidth;
4179 end
4180 else
4181 begin
4182 DrawRect.Top := MouseLDownPos.y;
4183 DrawRect.Left := MouseLDownPos.x;
4184 DrawRect.Bottom := MousePos.y;
4185 DrawRect.Right := MousePos.x;
4186 end;
4187 end
4188 else // Двигаем карту:
4189 if MouseAction = MOUSEACTION_MOVEMAP then
4190 begin
4191 MoveMap(X, Y);
4192 end;
4193 end;
4194
4195 // Клавиши мыши не зажаты:
4196 if (not MouseRDown) and (not MouseLDown) then
4197 DrawRect := nil;
4198
4199 // Строка состояния - координаты мыши:
4200 StatusBar.Panels[1].Text := Format('(%d:%d)',
4201 [MousePos.X-MapOffset.X, MousePos.Y-MapOffset.Y]);
4202 end;
4203
4204 procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
4205 begin
4206 CanClose := MessageBox(0, PChar(_lc[I_MSG_EXIT_PROMT]),
4207 PChar(_lc[I_MSG_EXIT]),
4208 MB_ICONQUESTION or MB_YESNO or
4209 MB_DEFBUTTON1) = idYes;
4210 end;
4211
4212 procedure TMainForm.aExitExecute(Sender: TObject);
4213 begin
4214 Close();
4215 end;
4216
4217 procedure TMainForm.FormDestroy(Sender: TObject);
4218 var
4219 config: TConfig;
4220 i: Integer;
4221 begin
4222 config := TConfig.CreateFile(EditorDir+'Editor.cfg');
4223
4224 if WindowState <> wsMaximized then
4225 begin
4226 config.WriteInt('Editor', 'XPos', Left);
4227 config.WriteInt('Editor', 'YPos', Top);
4228 config.WriteInt('Editor', 'Width', Width);
4229 config.WriteInt('Editor', 'Height', Height);
4230 end
4231 else
4232 begin
4233 config.WriteInt('Editor', 'XPos', RestoredLeft);
4234 config.WriteInt('Editor', 'YPos', RestoredTop);
4235 config.WriteInt('Editor', 'Width', RestoredWidth);
4236 config.WriteInt('Editor', 'Height', RestoredHeight);
4237 end;
4238 config.WriteBool('Editor', 'Maximize', WindowState = wsMaximized);
4239 config.WriteBool('Editor', 'Minimap', ShowMap);
4240 config.WriteInt('Editor', 'PanelProps', PanelProps.ClientWidth);
4241 config.WriteInt('Editor', 'PanelObjs', PanelObjs.ClientHeight);
4242 config.WriteBool('Editor', 'DotEnable', DotEnable);
4243 config.WriteInt('Editor', 'DotStep', DotStep);
4244 config.WriteStr('Editor', 'LastOpenDir', OpenDialog.InitialDir);
4245 config.WriteStr('Editor', 'LastSaveDir', SaveDialog.InitialDir);
4246 config.WriteBool('Editor', 'EdgeShow', drEdge[3] < 255);
4247 config.WriteInt('Editor', 'EdgeColor', gColorEdge);
4248 config.WriteInt('Editor', 'EdgeAlpha', gAlphaEdge);
4249 config.WriteInt('Editor', 'LineAlpha', gAlphaTriggerLine);
4250 config.WriteInt('Editor', 'TriggerAlpha', gAlphaTriggerArea);
4251 config.WriteInt('Editor', 'MonsterRectAlpha', gAlphaMonsterRect);
4252 config.WriteInt('Editor', 'AreaRectAlpha', gAlphaAreaRect);
4253
4254 for i := 0 to RecentCount-1 do
4255 if i < RecentFiles.Count then
4256 config.WriteStr('RecentFiles', IntToStr(i+1), RecentFiles[i])
4257 else
4258 config.WriteStr('RecentFiles', IntToStr(i+1), '');
4259 RecentFiles.Free();
4260
4261 config.SaveFile(EditorDir+'Editor.cfg');
4262 config.Free();
4263
4264 slInvalidTextures.Free;
4265 end;
4266
4267 procedure TMainForm.FormDropFiles(Sender: TObject;
4268 const FileNames: array of String);
4269 begin
4270 if Length(FileNames) <> 1 then
4271 Exit;
4272
4273 OpenMapFile(FileNames[0]);
4274 end;
4275
4276 procedure TMainForm.RenderPanelResize(Sender: TObject);
4277 begin
4278 if MainForm.Visible then
4279 MainForm.Resize();
4280 end;
4281
4282 procedure TMainForm.Splitter1Moved(Sender: TObject);
4283 begin
4284 FormResize(Sender);
4285 end;
4286
4287 procedure TMainForm.aMapOptionsExecute(Sender: TObject);
4288 var
4289 ResName: String;
4290 begin
4291 MapOptionsForm.ShowModal();
4292
4293 ResName := OpenedMap;
4294 while (Pos(':\', ResName) > 0) do
4295 Delete(ResName, 1, Pos(':\', ResName) + 1);
4296
4297 UpdateCaption(gMapInfo.Name, ExtractFileName(OpenedWAD), ResName);
4298 end;
4299
4300 procedure TMainForm.aAboutExecute(Sender: TObject);
4301 begin
4302 AboutForm.ShowModal();
4303 end;
4304
4305 procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word;
4306 Shift: TShiftState);
4307 var
4308 dx, dy, i: Integer;
4309 FileName: String;
4310 begin
4311 if (not EditingProperties) then
4312 begin
4313 if Key = Ord('1') then
4314 SwitchLayer(LAYER_BACK);
4315 if Key = Ord('2') then
4316 SwitchLayer(LAYER_WALLS);
4317 if Key = Ord('3') then
4318 SwitchLayer(LAYER_FOREGROUND);
4319 if Key = Ord('4') then
4320 SwitchLayer(LAYER_STEPS);
4321 if Key = Ord('5') then
4322 SwitchLayer(LAYER_WATER);
4323 if Key = Ord('6') then
4324 SwitchLayer(LAYER_ITEMS);
4325 if Key = Ord('7') then
4326 SwitchLayer(LAYER_MONSTERS);
4327 if Key = Ord('8') then
4328 SwitchLayer(LAYER_AREAS);
4329 if Key = Ord('9') then
4330 SwitchLayer(LAYER_TRIGGERS);
4331 if Key = Ord('0') then
4332 tbShowClick(tbShow);
4333
4334 if Key = Ord('V') then
4335 begin // Поворот монстров и областей:
4336 if (SelectedObjects <> nil) then
4337 begin
4338 for i := 0 to High(SelectedObjects) do
4339 if (SelectedObjects[i].Live) then
4340 begin
4341 if (SelectedObjects[i].ObjectType = OBJECT_MONSTER) then
4342 begin
4343 g_ChangeDir(gMonsters[SelectedObjects[i].ID].Direction);
4344 end
4345 else
4346 if (SelectedObjects[i].ObjectType = OBJECT_AREA) then
4347 begin
4348 g_ChangeDir(gAreas[SelectedObjects[i].ID].Direction);
4349 end;
4350 end;
4351 end
4352 else
4353 begin
4354 if pcObjects.ActivePage = tsMonsters then
4355 begin
4356 if rbMonsterLeft.Checked then
4357 rbMonsterRight.Checked := True
4358 else
4359 rbMonsterLeft.Checked := True;
4360 end;
4361 if pcObjects.ActivePage = tsAreas then
4362 begin
4363 if rbAreaLeft.Checked then
4364 rbAreaRight.Checked := True
4365 else
4366 rbAreaLeft.Checked := True;
4367 end;
4368 end;
4369 end;
4370
4371 if not (ssCtrl in Shift) then
4372 begin
4373 // Быстрое превью карты:
4374 if Key = Ord('E') then
4375 begin
4376 if PreviewMode = 0 then
4377 PreviewMode := 2;
4378 end;
4379
4380 // Вертикальный скролл карты:
4381 with sbVertical do
4382 begin
4383 if Key = Ord('W') then
4384 begin
4385 if (MouseLDown or MouseRDown) and (Position >= DotStep) then
4386 begin
4387 Dec(WASDOffset.Y, DotStep);
4388 RenderPanelMouseMove(Sender, Shift, RenderMousePos().X, RenderMousePos().Y);
4389 end;
4390 Position := IfThen(Position > DotStep, Position-DotStep, 0);
4391 MapOffset.Y := -Round(Position/16) * 16;
4392 end;
4393
4394 if Key = Ord('S') then
4395 begin
4396 if (MouseLDown or MouseRDown) and (Position+DotStep <= Max) then
4397 begin
4398 Inc(WASDOffset.Y, DotStep);
4399 RenderPanelMouseMove(Sender, Shift, RenderMousePos().X, RenderMousePos().Y);
4400 end;
4401 Position := IfThen(Position+DotStep < Max, Position+DotStep, Max);
4402 MapOffset.Y := -Round(Position/16) * 16;
4403 end;
4404 end;
4405
4406 // Горизонтальный скролл карты:
4407 with sbHorizontal do
4408 begin
4409 if Key = Ord('A') then
4410 begin
4411 if (MouseLDown or MouseRDown) and (Position >= DotStep) then
4412 begin
4413 Dec(WASDOffset.X, DotStep);
4414 RenderPanelMouseMove(Sender, Shift, RenderMousePos().X, RenderMousePos().Y);
4415 end;
4416 Position := IfThen(Position > DotStep, Position-DotStep, 0);
4417 MapOffset.X := -Round(Position/16) * 16;
4418 end;
4419
4420 if Key = Ord('D') then
4421 begin
4422 if (MouseLDown or MouseRDown) and (Position+DotStep <= Max) then
4423 begin
4424 Inc(WASDOffset.X, DotStep);
4425 RenderPanelMouseMove(Sender, Shift, RenderMousePos().X, RenderMousePos().Y);
4426 end;
4427 Position := IfThen(Position+DotStep < Max, Position+DotStep, Max);
4428 MapOffset.X := -Round(Position/16) * 16;
4429 end;
4430 end;
4431 end
4432 else // ssCtrl in Shift
4433 begin
4434 if ssShift in Shift then
4435 begin
4436 // Вставка по абсолютному смещению:
4437 if Key = Ord('V') then
4438 aPasteObjectExecute(Sender);
4439 end;
4440 RenderPanelMouseMove(Sender, Shift, RenderMousePos().X, RenderMousePos().Y);
4441 end;
4442 end;
4443
4444 // Удалить выделенные объекты:
4445 if (Key = VK_DELETE) and (SelectedObjects <> nil) and
4446 RenderPanel.Focused() then
4447 DeleteSelectedObjects();
4448
4449 // Снять выделение:
4450 if (Key = VK_ESCAPE) and (SelectedObjects <> nil) then
4451 RemoveSelectFromObjects();
4452
4453 // Передвинуть объекты:
4454 if MainForm.ActiveControl = RenderPanel then
4455 begin
4456 dx := 0;
4457 dy := 0;
4458
4459 if Key = VK_NUMPAD4 then
4460 dx := IfThen(ssAlt in Shift, -1, -DotStep);
4461 if Key = VK_NUMPAD6 then
4462 dx := IfThen(ssAlt in Shift, 1, DotStep);
4463 if Key = VK_NUMPAD8 then
4464 dy := IfThen(ssAlt in Shift, -1, -DotStep);
4465 if Key = VK_NUMPAD5 then
4466 dy := IfThen(ssAlt in Shift, 1, DotStep);
4467
4468 if (dx <> 0) or (dy <> 0) then
4469 begin
4470 MoveSelectedObjects(ssShift in Shift, ssCtrl in Shift, dx, dy);
4471 Key := 0;
4472 end;
4473 end;
4474
4475 if ssCtrl in Shift then
4476 begin
4477 // Выбор панели с текстурой для триггера
4478 if Key = Ord('T') then
4479 begin
4480 DrawPressRect := False;
4481 if SelectFlag = SELECTFLAG_TEXTURE then
4482 begin
4483 SelectFlag := SELECTFLAG_NONE;
4484 Exit;
4485 end;
4486 vleObjectProperty.FindRow(_lc[I_PROP_TR_TEXTURE_PANEL], i);
4487 if i > 0 then
4488 SelectFlag := SELECTFLAG_TEXTURE;
4489 end;
4490
4491 if Key = Ord('D') then
4492 begin
4493 SelectFlag := SELECTFLAG_NONE;
4494 if DrawPressRect then
4495 begin
4496 DrawPressRect := False;
4497 Exit;
4498 end;
4499 i := -1;
4500
4501 // Выбор области воздействия, в зависимости от типа триггера
4502 vleObjectProperty.FindRow(_lc[I_PROP_TR_EX_AREA], i);
4503 if i > 0 then
4504 begin
4505 DrawPressRect := True;
4506 Exit;
4507 end;
4508 vleObjectProperty.FindRow(_lc[I_PROP_TR_DOOR_PANEL], i);
4509 if i <= 0 then
4510 vleObjectProperty.FindRow(_lc[I_PROP_TR_TRAP_PANEL], i);
4511 if i > 0 then
4512 begin
4513 SelectFlag := SELECTFLAG_DOOR;
4514 Exit;
4515 end;
4516 vleObjectProperty.FindRow(_lc[I_PROP_TR_LIFT_PANEL], i);
4517 if i > 0 then
4518 begin
4519 SelectFlag := SELECTFLAG_LIFT;
4520 Exit;
4521 end;
4522 vleObjectProperty.FindRow(_lc[I_PROP_TR_TELEPORT_TO], i);
4523 if i > 0 then
4524 begin
4525 SelectFlag := SELECTFLAG_TELEPORT;
4526 Exit;
4527 end;
4528 vleObjectProperty.FindRow(_lc[I_PROP_TR_SPAWN_TO], i);
4529 if i > 0 then
4530 begin
4531 SelectFlag := SELECTFLAG_SPAWNPOINT;
4532 Exit;
4533 end;
4534
4535 // Выбор основного параметра, в зависимости от типа триггера
4536 vleObjectProperty.FindRow(_lc[I_PROP_TR_NEXT_MAP], i);
4537 if i > 0 then
4538 begin
4539 g_ProcessResourceStr(OpenedMap, @FileName, nil, nil);
4540 SelectMapForm.Caption := _lc[I_CAP_SELECT];
4541 SelectMapForm.GetMaps(FileName);
4542
4543 if SelectMapForm.ShowModal() = mrOK then
4544 begin
4545 vleObjectProperty.Cells[1, i] := SelectMapForm.lbMapList.Items[SelectMapForm.lbMapList.ItemIndex];
4546 bApplyProperty.Click();
4547 end;
4548 Exit;
4549 end;
4550 vleObjectProperty.FindRow(_lc[I_PROP_TR_SOUND_NAME], i);
4551 if i <= 0 then
4552 vleObjectProperty.FindRow(_lc[I_PROP_TR_MUSIC_NAME], i);
4553 if i > 0 then
4554 begin
4555 AddSoundForm.OKFunction := nil;
4556 AddSoundForm.lbResourcesList.MultiSelect := False;
4557 AddSoundForm.SetResource := vleObjectProperty.Cells[1, i];
4558
4559 if (AddSoundForm.ShowModal() = mrOk) then
4560 begin
4561 vleObjectProperty.Cells[1, i] := AddSoundForm.ResourceName;
4562 bApplyProperty.Click();
4563 end;
4564 Exit;
4565 end;
4566 vleObjectProperty.FindRow(_lc[I_PROP_TR_PUSH_ANGLE], i);
4567 if i <= 0 then
4568 vleObjectProperty.FindRow(_lc[I_PROP_TR_MESSAGE_TEXT], i);
4569 if i > 0 then
4570 begin
4571 vleObjectProperty.Row := i;
4572 vleObjectProperty.SetFocus();
4573 Exit;
4574 end;
4575 end;
4576 end;
4577 end;
4578
4579 procedure TMainForm.aOptimizeExecute(Sender: TObject);
4580 begin
4581 RemoveSelectFromObjects();
4582 MapOptimizationForm.ShowModal();
4583 end;
4584
4585 procedure TMainForm.aCheckMapExecute(Sender: TObject);
4586 begin
4587 MapCheckForm.ShowModal();
4588 end;
4589
4590 procedure TMainForm.bbAddTextureClick(Sender: TObject);
4591 begin
4592 AddTextureForm.lbResourcesList.MultiSelect := True;
4593 AddTextureForm.ShowModal();
4594 end;
4595
4596 procedure TMainForm.lbTextureListClick(Sender: TObject);
4597 var
4598 TextureID: DWORD;
4599 TextureWidth, TextureHeight: Word;
4600 begin
4601 TextureID := 0;
4602 TextureWidth := 0;
4603 TextureHeight := 0;
4604 if (lbTextureList.ItemIndex <> -1) and
4605 (not IsSpecialTextureSel()) then
4606 begin
4607 if g_GetTexture(SelectedTexture(), TextureID) then
4608 begin
4609 g_GetTextureSizeByID(TextureID, TextureWidth, TextureHeight);
4610
4611 lTextureWidth.Caption := IntToStr(TextureWidth);
4612 lTextureHeight.Caption := IntToStr(TextureHeight);
4613 end else
4614 begin
4615 lTextureWidth.Caption := _lc[I_NOT_ACCESSIBLE];
4616 lTextureHeight.Caption := _lc[I_NOT_ACCESSIBLE];
4617 end;
4618 end
4619 else
4620 begin
4621 lTextureWidth.Caption := '';
4622 lTextureHeight.Caption := '';
4623 end;
4624 end;
4625
4626 procedure TMainForm.lbTextureListDrawItem(Control: TWinControl; Index: Integer;
4627 ARect: TRect; State: TOwnerDrawState);
4628 begin
4629 with Control as TListBox do
4630 begin
4631 if LCLType.odSelected in State then
4632 begin
4633 Canvas.Brush.Color := clHighlight;
4634 Canvas.Font.Color := clHighlightText;
4635 end else
4636 if (Items <> nil) and (Index >= 0) then
4637 if slInvalidTextures.IndexOf(Items[Index]) > -1 then
4638 begin
4639 Canvas.Brush.Color := clRed;
4640 Canvas.Font.Color := clWhite;
4641 end;
4642 Canvas.FillRect(ARect);
4643 Canvas.TextRect(ARect, ARect.Left, ARect.Top, Items[Index]);
4644 end;
4645 end;
4646
4647 procedure TMainForm.miReopenMapClick(Sender: TObject);
4648 var
4649 FileName, Resource: String;
4650 begin
4651 if OpenedMap = '' then
4652 Exit;
4653
4654 if MessageBox(0, PChar(_lc[I_MSG_REOPEN_MAP_PROMT]),
4655 PChar(_lc[I_MENU_FILE_REOPEN]), MB_ICONQUESTION or MB_YESNO) <> idYes then
4656 Exit;
4657
4658 g_ProcessResourceStr(OpenedMap, @FileName, nil, @Resource);
4659 OpenMap(FileName, Resource);
4660 end;
4661
4662 procedure TMainForm.vleObjectPropertyGetPickList(Sender: TObject;
4663 const KeyName: String; Values: TStrings);
4664 begin
4665 if vleObjectProperty.ItemProps[KeyName].EditStyle = esPickList then
4666 begin
4667 if KeyName = _lc[I_PROP_DIRECTION] then
4668 begin
4669 Values.Add(DirNames[D_LEFT]);
4670 Values.Add(DirNames[D_RIGHT]);
4671 end
4672 else if KeyName = _lc[I_PROP_TR_TELEPORT_DIR] then
4673 begin
4674 Values.Add(DirNamesAdv[0]);
4675 Values.Add(DirNamesAdv[1]);
4676 Values.Add(DirNamesAdv[2]);
4677 Values.Add(DirNamesAdv[3]);
4678 end
4679 else if KeyName = _lc[I_PROP_TR_MUSIC_ACT] then
4680 begin
4681 Values.Add(_lc[I_PROP_TR_MUSIC_ON]);
4682 Values.Add(_lc[I_PROP_TR_MUSIC_OFF]);
4683 end
4684 else if KeyName = _lc[I_PROP_TR_MONSTER_BEHAVIOUR] then
4685 begin
4686 Values.Add(_lc[I_PROP_TR_MONSTER_BEHAVIOUR_0]);
4687 Values.Add(_lc[I_PROP_TR_MONSTER_BEHAVIOUR_1]);
4688 Values.Add(_lc[I_PROP_TR_MONSTER_BEHAVIOUR_2]);
4689 Values.Add(_lc[I_PROP_TR_MONSTER_BEHAVIOUR_3]);
4690 Values.Add(_lc[I_PROP_TR_MONSTER_BEHAVIOUR_4]);
4691 Values.Add(_lc[I_PROP_TR_MONSTER_BEHAVIOUR_5]);
4692 end
4693 else if KeyName = _lc[I_PROP_TR_SCORE_ACT] then
4694 begin
4695 Values.Add(_lc[I_PROP_TR_SCORE_ACT_0]);
4696 Values.Add(_lc[I_PROP_TR_SCORE_ACT_1]);
4697 Values.Add(_lc[I_PROP_TR_SCORE_ACT_2]);
4698 Values.Add(_lc[I_PROP_TR_SCORE_ACT_3]);
4699 end
4700 else if KeyName = _lc[I_PROP_TR_SCORE_TEAM] then
4701 begin
4702 Values.Add(_lc[I_PROP_TR_SCORE_TEAM_0]);
4703 Values.Add(_lc[I_PROP_TR_SCORE_TEAM_1]);
4704 Values.Add(_lc[I_PROP_TR_SCORE_TEAM_2]);
4705 Values.Add(_lc[I_PROP_TR_SCORE_TEAM_3]);
4706 end
4707 else if KeyName = _lc[I_PROP_TR_MESSAGE_KIND] then
4708 begin
4709 Values.Add(_lc[I_PROP_TR_MESSAGE_KIND_0]);
4710 Values.Add(_lc[I_PROP_TR_MESSAGE_KIND_1]);
4711 end
4712 else if KeyName = _lc[I_PROP_TR_MESSAGE_TO] then
4713 begin
4714 Values.Add(_lc[I_PROP_TR_MESSAGE_TO_0]);
4715 Values.Add(_lc[I_PROP_TR_MESSAGE_TO_1]);
4716 Values.Add(_lc[I_PROP_TR_MESSAGE_TO_2]);
4717 Values.Add(_lc[I_PROP_TR_MESSAGE_TO_3]);
4718 Values.Add(_lc[I_PROP_TR_MESSAGE_TO_4]);
4719 Values.Add(_lc[I_PROP_TR_MESSAGE_TO_5]);
4720 end
4721 else if KeyName = _lc[I_PROP_TR_SHOT_TO] then
4722 begin
4723 Values.Add(_lc[I_PROP_TR_SHOT_TO_0]);
4724 Values.Add(_lc[I_PROP_TR_SHOT_TO_1]);
4725 Values.Add(_lc[I_PROP_TR_SHOT_TO_2]);
4726 Values.Add(_lc[I_PROP_TR_SHOT_TO_3]);
4727 Values.Add(_lc[I_PROP_TR_SHOT_TO_4]);
4728 Values.Add(_lc[I_PROP_TR_SHOT_TO_5]);
4729 Values.Add(_lc[I_PROP_TR_SHOT_TO_6]);
4730 end
4731 else if KeyName = _lc[I_PROP_TR_SHOT_AIM] then
4732 begin
4733 Values.Add(_lc[I_PROP_TR_SHOT_AIM_0]);
4734 Values.Add(_lc[I_PROP_TR_SHOT_AIM_1]);
4735 Values.Add(_lc[I_PROP_TR_SHOT_AIM_2]);
4736 Values.Add(_lc[I_PROP_TR_SHOT_AIM_3]);
4737 end
4738 else if (KeyName = _lc[I_PROP_PANEL_BLEND]) or
4739 (KeyName = _lc[I_PROP_DM_ONLY]) or
4740 (KeyName = _lc[I_PROP_ITEM_FALLS]) or
4741 (KeyName = _lc[I_PROP_TR_ENABLED]) or
4742 (KeyName = _lc[I_PROP_TR_D2D]) or
4743 (KeyName = _lc[I_PROP_TR_SILENT]) or
4744 (KeyName = _lc[I_PROP_TR_TELEPORT_SILENT]) or
4745 (KeyName = _lc[I_PROP_TR_EX_RANDOM]) or
4746 (KeyName = _lc[I_PROP_TR_TEXTURE_ONCE]) or
4747 (KeyName = _lc[I_PROP_TR_TEXTURE_ANIM_ONCE]) or
4748 (KeyName = _lc[I_PROP_TR_SOUND_LOCAL]) or
4749 (KeyName = _lc[I_PROP_TR_SOUND_SWITCH]) or
4750 (KeyName = _lc[I_PROP_TR_MONSTER_ACTIVE]) or
4751 (KeyName = _lc[I_PROP_TR_PUSH_RESET]) or
4752 (KeyName = _lc[I_PROP_TR_SCORE_CON]) or
4753 (KeyName = _lc[I_PROP_TR_SCORE_MSG]) or
4754 (KeyName = _lc[I_PROP_TR_HEALTH_MAX]) or
4755 (KeyName = _lc[I_PROP_TR_SHOT_SOUND]) or
4756 (KeyName = _lc[I_PROP_TR_EFFECT_CENTER]) then
4757 begin
4758 Values.Add(BoolNames[True]);
4759 Values.Add(BoolNames[False]);
4760 end;
4761 end;
4762 end;
4763
4764 procedure TMainForm.bApplyPropertyClick(Sender: TObject);
4765 var
4766 _id, a, r, c: Integer;
4767 s: String;
4768 res: Boolean;
4769 NoTextureID: DWORD;
4770 NW, NH: Word;
4771 begin
4772 NoTextureID := 0;
4773 NW := 0;
4774 NH := 0;
4775
4776 if SelectedObjectCount() <> 1 then
4777 Exit;
4778 if not SelectedObjects[GetFirstSelected()].Live then
4779 Exit;
4780
4781 try
4782 if not CheckProperty() then
4783 Exit;
4784 except
4785 Exit;
4786 end;
4787
4788 _id := GetFirstSelected();
4789
4790 r := vleObjectProperty.Row;
4791 c := vleObjectProperty.Col;
4792
4793 case SelectedObjects[_id].ObjectType of
4794 OBJECT_PANEL:
4795 begin
4796 with gPanels[SelectedObjects[_id].ID] do
4797 begin
4798 X := StrToInt(Trim(vleObjectProperty.Values[_lc[I_PROP_X]]));
4799 Y := StrToInt(Trim(vleObjectProperty.Values[_lc[I_PROP_Y]]));
4800 Width := StrToInt(Trim(vleObjectProperty.Values[_lc[I_PROP_WIDTH]]));
4801 Height := StrToInt(Trim(vleObjectProperty.Values[_lc[I_PROP_HEIGHT]]));
4802
4803 PanelType := GetPanelType(vleObjectProperty.Values[_lc[I_PROP_PANEL_TYPE]]);
4804
4805 // Сброс ссылки на триггеры смены текстуры:
4806 if not WordBool(PanelType and (PANEL_WALL or PANEL_FORE or PANEL_BACK)) then
4807 if gTriggers <> nil then
4808 for a := 0 to High(gTriggers) do
4809 begin
4810 if (gTriggers[a].TriggerType <> 0) and
4811 (gTriggers[a].TexturePanel = Integer(SelectedObjects[_id].ID)) then
4812 gTriggers[a].TexturePanel := -1;
4813 if (gTriggers[a].TriggerType = TRIGGER_SHOT) and
4814 (gTriggers[a].Data.ShotPanelID = Integer(SelectedObjects[_id].ID)) then
4815 gTriggers[a].Data.ShotPanelID := -1;
4816 end;
4817
4818 // Сброс ссылки на триггеры лифта:
4819 if not WordBool(PanelType and (PANEL_LIFTUP or PANEL_LIFTDOWN or PANEL_LIFTLEFT or PANEL_LIFTRIGHT)) then
4820 if gTriggers <> nil then
4821 for a := 0 to High(gTriggers) do
4822 if (gTriggers[a].TriggerType in [TRIGGER_LIFTUP, TRIGGER_LIFTDOWN, TRIGGER_LIFT]) and
4823 (gTriggers[a].Data.PanelID = Integer(SelectedObjects[_id].ID)) then
4824 gTriggers[a].Data.PanelID := -1;
4825
4826 // Сброс ссылки на триггеры двери:
4827 if not WordBool(PanelType and (PANEL_OPENDOOR or PANEL_CLOSEDOOR)) then
4828 if gTriggers <> nil then
4829 for a := 0 to High(gTriggers) do
4830 if (gTriggers[a].TriggerType in [TRIGGER_OPENDOOR, TRIGGER_CLOSEDOOR, TRIGGER_DOOR,
4831 TRIGGER_DOOR5, TRIGGER_CLOSETRAP, TRIGGER_TRAP]) and
4832 (gTriggers[a].Data.PanelID = Integer(SelectedObjects[_id].ID)) then
4833 gTriggers[a].Data.PanelID := -1;
4834
4835 if IsTexturedPanel(PanelType) then
4836 begin // Может быть текстура
4837 if TextureName <> '' then
4838 begin // Была текстура
4839 Alpha := StrToInt(Trim(vleObjectProperty.Values[_lc[I_PROP_PANEL_ALPHA]]));
4840 Blending := NameToBool(vleObjectProperty.Values[_lc[I_PROP_PANEL_BLEND]]);
4841 end
4842 else // Не было
4843 begin
4844 Alpha := 0;
4845 Blending := False;
4846 end;
4847
4848 // Новая текстура:
4849 TextureName := vleObjectProperty.Values[_lc[I_PROP_PANEL_TEX]];
4850
4851 if TextureName <> '' then
4852 begin // Есть текстура
4853 // Обычная текстура:
4854 if not IsSpecialTexture(TextureName) then
4855 begin
4856 g_GetTextureSizeByName(TextureName,
4857 TextureWidth, TextureHeight);
4858
4859 // Проверка кратности размеров панели:
4860 res := True;
4861 if TextureWidth <> 0 then
4862 if gPanels[SelectedObjects[_id].ID].Width mod TextureWidth <> 0 then
4863 begin
4864 ErrorMessageBox(Format(_lc[I_MSG_WRONG_TEXWIDTH],
4865 [TextureWidth]));
4866 Res := False;
4867 end;
4868 if Res and (TextureHeight <> 0) then
4869 if gPanels[SelectedObjects[_id].ID].Height mod TextureHeight <> 0 then
4870 begin
4871 ErrorMessageBox(Format(_lc[I_MSG_WRONG_TEXHEIGHT],
4872 [TextureHeight]));
4873 Res := False;
4874 end;
4875
4876 if Res then
4877 begin
4878 if not g_GetTexture(TextureName, TextureID) then
4879 // Не удалось загрузить текстуру, рисуем NOTEXTURE
4880 if g_GetTexture('NOTEXTURE', NoTextureID) then
4881 begin
4882 TextureID := TEXTURE_SPECIAL_NOTEXTURE;
4883 g_GetTextureSizeByID(NoTextureID, NW, NH);
4884 TextureWidth := NW;
4885 TextureHeight := NH;
4886 end else
4887 begin
4888 TextureID := TEXTURE_SPECIAL_NONE;
4889 TextureWidth := 1;
4890 TextureHeight := 1;
4891 end;
4892 end
4893 else
4894 begin
4895 TextureName := '';
4896 TextureWidth := 1;
4897 TextureHeight := 1;
4898 TextureID := TEXTURE_SPECIAL_NONE;
4899 end;
4900 end
4901 else // Спец.текстура
4902 begin
4903 TextureHeight := 1;
4904 TextureWidth := 1;
4905 TextureID := SpecialTextureID(TextureName);
4906 end;
4907 end
4908 else // Нет текстуры
4909 begin
4910 TextureWidth := 1;
4911 TextureHeight := 1;
4912 TextureID := TEXTURE_SPECIAL_NONE;
4913 end;
4914 end
4915 else // Не может быть текстуры
4916 begin
4917 Alpha := 0;
4918 Blending := False;
4919 TextureName := '';
4920 TextureWidth := 1;
4921 TextureHeight := 1;
4922 TextureID := TEXTURE_SPECIAL_NONE;
4923 end;
4924 end;
4925 end;
4926
4927 OBJECT_ITEM:
4928 begin
4929 with gItems[SelectedObjects[_id].ID] do
4930 begin
4931 X := StrToInt(Trim(vleObjectProperty.Values[_lc[I_PROP_X]]));
4932 Y := StrToInt(Trim(vleObjectProperty.Values[_lc[I_PROP_Y]]));
4933 OnlyDM := NameToBool(vleObjectProperty.Values[_lc[I_PROP_DM_ONLY]]);
4934 Fall := NameToBool(vleObjectProperty.Values[_lc[I_PROP_ITEM_FALLS]]);
4935 end;
4936 end;
4937
4938 OBJECT_MONSTER:
4939 begin
4940 with gMonsters[SelectedObjects[_id].ID] do
4941 begin
4942 X := StrToInt(Trim(vleObjectProperty.Values[_lc[I_PROP_X]]));
4943 Y := StrToInt(Trim(vleObjectProperty.Values[_lc[I_PROP_Y]]));
4944 Direction := NameToDir(vleObjectProperty.Values[_lc[I_PROP_DIRECTION]]);
4945 end;
4946 end;
4947
4948 OBJECT_AREA:
4949 begin
4950 with gAreas[SelectedObjects[_id].ID] do
4951 begin
4952 X := StrToInt(Trim(vleObjectProperty.Values[_lc[I_PROP_X]]));
4953 Y := StrToInt(Trim(vleObjectProperty.Values[_lc[I_PROP_Y]]));
4954 Direction := NameToDir(vleObjectProperty.Values[_lc[I_PROP_DIRECTION]]);
4955 end;
4956 end;
4957
4958 OBJECT_TRIGGER:
4959 begin
4960 with gTriggers[SelectedObjects[_id].ID] do
4961 begin
4962 X := StrToInt(Trim(vleObjectProperty.Values[_lc[I_PROP_X]]));
4963 Y := StrToInt(Trim(vleObjectProperty.Values[_lc[I_PROP_Y]]));
4964 Width := StrToInt(Trim(vleObjectProperty.Values[_lc[I_PROP_WIDTH]]));
4965 Height := StrToInt(Trim(vleObjectProperty.Values[_lc[I_PROP_HEIGHT]]));
4966 Enabled := NameToBool(vleObjectProperty.Values[_lc[I_PROP_TR_ENABLED]]);
4967 ActivateType := StrToActivate(vleObjectProperty.Values[_lc[I_PROP_TR_ACTIVATION]]);
4968 Key := StrToKey(vleObjectProperty.Values[_lc[I_PROP_TR_KEYS]]);
4969
4970 case TriggerType of
4971 TRIGGER_EXIT:
4972 begin
4973 s := utf2win(vleObjectProperty.Values[_lc[I_PROP_TR_NEXT_MAP]]);
4974 FillByte(Data.MapName[0], 16, 0);
4975 if s <> '' then
4976 Move(s[1], Data.MapName[0], Min(Length(s), 16));
4977 end;
4978
4979 TRIGGER_TEXTURE:
4980 begin
4981 Data.ActivateOnce := NameToBool(vleObjectProperty.Values[_lc[I_PROP_TR_TEXTURE_ONCE]]);
4982 Data.AnimOnce := NameToBool(vleObjectProperty.Values[_lc[I_PROP_TR_TEXTURE_ANIM_ONCE]]);
4983 end;
4984
4985 TRIGGER_PRESS, TRIGGER_ON, TRIGGER_OFF, TRIGGER_ONOFF:
4986 begin
4987 Data.Wait := Min(StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_EX_DELAY]], 0), 65535);
4988 Data.Count := Min(StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_EX_COUNT]], 0), 65535);
4989 if Data.Count < 1 then
4990 Data.Count := 1;
4991 if TriggerType = TRIGGER_PRESS then
4992 Data.ExtRandom := NameToBool(vleObjectProperty.Values[_lc[I_PROP_TR_EX_RANDOM]]);
4993 end;
4994
4995 TRIGGER_OPENDOOR, TRIGGER_CLOSEDOOR, TRIGGER_DOOR, TRIGGER_DOOR5,
4996 TRIGGER_CLOSETRAP, TRIGGER_TRAP, TRIGGER_LIFTUP, TRIGGER_LIFTDOWN,
4997 TRIGGER_LIFT:
4998 begin
4999 Data.NoSound := NameToBool(vleObjectProperty.Values[_lc[I_PROP_TR_SILENT]]);
5000 Data.d2d_doors := NameToBool(vleObjectProperty.Values[_lc[I_PROP_TR_D2D]]);
5001 end;
5002
5003 TRIGGER_TELEPORT:
5004 begin
5005 Data.d2d_teleport := NameToBool(vleObjectProperty.Values[_lc[I_PROP_TR_D2D]]);
5006 Data.silent_teleport := NameToBool(vleObjectProperty.Values[_lc[I_PROP_TR_TELEPORT_SILENT]]);
5007 Data.TlpDir := NameToDirAdv(vleObjectProperty.Values[_lc[I_PROP_TR_TELEPORT_DIR]]);
5008 end;
5009
5010 TRIGGER_SOUND:
5011 begin
5012 s := utf2win(vleObjectProperty.Values[_lc[I_PROP_TR_SOUND_NAME]]);
5013 FillByte(Data.SoundName[0], 64, 0);
5014 if s <> '' then
5015 Move(s[1], Data.SoundName[0], Min(Length(s), 64));
5016
5017 Data.Volume := Min(StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_SOUND_VOLUME]], 0), 255);
5018 Data.Pan := Min(StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_SOUND_PAN]], 0), 255);
5019 Data.PlayCount := Min(StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_SOUND_COUNT]], 0), 255);
5020 Data.Local := NameToBool(vleObjectProperty.Values[_lc[I_PROP_TR_SOUND_LOCAL]]);
5021 Data.SoundSwitch := NameToBool(vleObjectProperty.Values[_lc[I_PROP_TR_SOUND_SWITCH]]);
5022 end;
5023
5024 TRIGGER_SPAWNMONSTER:
5025 begin
5026 Data.MonType := StrToMonster(vleObjectProperty.Values[_lc[I_PROP_TR_MONSTER_TYPE]]);
5027 Data.MonDir := Byte(NameToDir(vleObjectProperty.Values[_lc[I_PROP_DIRECTION]]));
5028 Data.MonHealth := Min(StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_HEALTH]], 0), 1000000);
5029 if Data.MonHealth < 0 then
5030 Data.MonHealth := 0;
5031 Data.MonActive := NameToBool(vleObjectProperty.Values[_lc[I_PROP_TR_MONSTER_ACTIVE]]);
5032 Data.MonCount := Min(StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_COUNT]], 0), 64);
5033 if Data.MonCount < 1 then
5034 Data.MonCount := 1;
5035 Data.MonEffect := StrToEffect(vleObjectProperty.Values[_lc[I_PROP_TR_FX_TYPE]]);
5036 Data.MonMax := Min(StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_SPAWN_MAX]], 0), 65535);
5037 Data.MonDelay := Min(StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_SPAWN_DELAY]], 0), 65535);
5038 Data.MonBehav := 0;
5039 if vleObjectProperty.Values[_lc[I_PROP_TR_MONSTER_BEHAVIOUR]] = _lc[I_PROP_TR_MONSTER_BEHAVIOUR_1] then
5040 Data.MonBehav := 1;
5041 if vleObjectProperty.Values[_lc[I_PROP_TR_MONSTER_BEHAVIOUR]] = _lc[I_PROP_TR_MONSTER_BEHAVIOUR_2] then
5042 Data.MonBehav := 2;
5043 if vleObjectProperty.Values[_lc[I_PROP_TR_MONSTER_BEHAVIOUR]] = _lc[I_PROP_TR_MONSTER_BEHAVIOUR_3] then
5044 Data.MonBehav := 3;
5045 if vleObjectProperty.Values[_lc[I_PROP_TR_MONSTER_BEHAVIOUR]] = _lc[I_PROP_TR_MONSTER_BEHAVIOUR_4] then
5046 Data.MonBehav := 4;
5047 if vleObjectProperty.Values[_lc[I_PROP_TR_MONSTER_BEHAVIOUR]] = _lc[I_PROP_TR_MONSTER_BEHAVIOUR_5] then
5048 Data.MonBehav := 5;
5049 end;
5050
5051 TRIGGER_SPAWNITEM:
5052 begin
5053 Data.ItemType := StrToItem(vleObjectProperty.Values[_lc[I_PROP_TR_ITEM_TYPE]]);
5054 Data.ItemOnlyDM := NameToBool(vleObjectProperty.Values[_lc[I_PROP_DM_ONLY]]);
5055 Data.ItemFalls := NameToBool(vleObjectProperty.Values[_lc[I_PROP_ITEM_FALLS]]);
5056 Data.ItemCount := Min(StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_COUNT]], 0), 64);
5057 if Data.ItemCount < 1 then
5058 Data.ItemCount := 1;
5059 Data.ItemEffect := StrToEffect(vleObjectProperty.Values[_lc[I_PROP_TR_FX_TYPE]]);
5060 Data.ItemMax := Min(StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_SPAWN_MAX]], 0), 65535);
5061 Data.ItemDelay := Min(StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_SPAWN_DELAY]], 0), 65535);
5062 end;
5063
5064 TRIGGER_MUSIC:
5065 begin
5066 s := utf2win(vleObjectProperty.Values[_lc[I_PROP_TR_MUSIC_NAME]]);
5067 FillByte(Data.MusicName[0], 64, 0);
5068 if s <> '' then
5069 Move(s[1], Data.MusicName[0], Min(Length(s), 64));
5070
5071 if vleObjectProperty.Values[_lc[I_PROP_TR_MUSIC_ACT]] = _lc[I_PROP_TR_MUSIC_ON] then
5072 Data.MusicAction := 1
5073 else
5074 Data.MusicAction := 2;
5075 end;
5076
5077 TRIGGER_PUSH:
5078 begin
5079 Data.PushAngle := Min(
5080 StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_PUSH_ANGLE]], 0), 360);
5081 Data.PushForce := Min(
5082 StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_PUSH_FORCE]], 0), 255);
5083 Data.ResetVel := NameToBool(vleObjectProperty.Values[_lc[I_PROP_TR_PUSH_RESET]]);
5084 end;
5085
5086 TRIGGER_SCORE:
5087 begin
5088 Data.ScoreAction := 0;
5089 if vleObjectProperty.Values[_lc[I_PROP_TR_SCORE_ACT]] = _lc[I_PROP_TR_SCORE_ACT_1] then
5090 Data.ScoreAction := 1
5091 else if vleObjectProperty.Values[_lc[I_PROP_TR_SCORE_ACT]] = _lc[I_PROP_TR_SCORE_ACT_2] then
5092 Data.ScoreAction := 2
5093 else if vleObjectProperty.Values[_lc[I_PROP_TR_SCORE_ACT]] = _lc[I_PROP_TR_SCORE_ACT_3] then
5094 Data.ScoreAction := 3;
5095 Data.ScoreCount := Min(Max(
5096 StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_COUNT]], 0), 0), 255);
5097 Data.ScoreTeam := 0;
5098 if vleObjectProperty.Values[_lc[I_PROP_TR_SCORE_TEAM]] = _lc[I_PROP_TR_SCORE_TEAM_1] then
5099 Data.ScoreTeam := 1
5100 else if vleObjectProperty.Values[_lc[I_PROP_TR_SCORE_TEAM]] = _lc[I_PROP_TR_SCORE_TEAM_2] then
5101 Data.ScoreTeam := 2
5102 else if vleObjectProperty.Values[_lc[I_PROP_TR_SCORE_TEAM]] = _lc[I_PROP_TR_SCORE_TEAM_3] then
5103 Data.ScoreTeam := 3;
5104 Data.ScoreCon := NameToBool(vleObjectProperty.Values[_lc[I_PROP_TR_SCORE_CON]]);
5105 Data.ScoreMsg := NameToBool(vleObjectProperty.Values[_lc[I_PROP_TR_SCORE_MSG]]);
5106 end;
5107
5108 TRIGGER_MESSAGE:
5109 begin
5110 Data.MessageKind := 0;
5111 if vleObjectProperty.Values[_lc[I_PROP_TR_MESSAGE_KIND]] = _lc[I_PROP_TR_MESSAGE_KIND_1] then
5112 Data.MessageKind := 1;
5113
5114 Data.MessageSendTo := 0;
5115 if vleObjectProperty.Values[_lc[I_PROP_TR_MESSAGE_TO]] = _lc[I_PROP_TR_MESSAGE_TO_1] then
5116 Data.MessageSendTo := 1
5117 else if vleObjectProperty.Values[_lc[I_PROP_TR_MESSAGE_TO]] = _lc[I_PROP_TR_MESSAGE_TO_2] then
5118 Data.MessageSendTo := 2
5119 else if vleObjectProperty.Values[_lc[I_PROP_TR_MESSAGE_TO]] = _lc[I_PROP_TR_MESSAGE_TO_3] then
5120 Data.MessageSendTo := 3
5121 else if vleObjectProperty.Values[_lc[I_PROP_TR_MESSAGE_TO]] = _lc[I_PROP_TR_MESSAGE_TO_4] then
5122 Data.MessageSendTo := 4
5123 else if vleObjectProperty.Values[_lc[I_PROP_TR_MESSAGE_TO]] = _lc[I_PROP_TR_MESSAGE_TO_5] then
5124 Data.MessageSendTo := 5;
5125
5126 s := utf2win(vleObjectProperty.Values[_lc[I_PROP_TR_MESSAGE_TEXT]]);
5127 FillByte(Data.MessageText[0], 100, 0);
5128 if s <> '' then
5129 Move(s[1], Data.MessageText[0], Min(Length(s), 100));
5130
5131 Data.MessageTime := Min(Max(
5132 StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_MESSAGE_TIME]], 0), 0), 65535);
5133 end;
5134
5135 TRIGGER_DAMAGE:
5136 begin
5137 Data.DamageValue := Min(Max(
5138 StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_DAMAGE_VALUE]], 0), 0), 65535);
5139 Data.DamageInterval := Min(Max(
5140 StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_INTERVAL]], 0), 0), 65535);
5141 end;
5142
5143 TRIGGER_HEALTH:
5144 begin
5145 Data.HealValue := Min(Max(
5146 StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_HEALTH]], 0), 0), 65535);
5147 Data.HealInterval := Min(Max(
5148 StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_INTERVAL]], 0), 0), 65535);
5149 Data.HealMax := NameToBool(vleObjectProperty.Values[_lc[I_PROP_TR_HEALTH_MAX]]);
5150 Data.HealSilent := NameToBool(vleObjectProperty.Values[_lc[I_PROP_TR_SILENT]]);
5151 end;
5152
5153 TRIGGER_SHOT:
5154 begin
5155 Data.ShotType := StrToShot(vleObjectProperty.Values[_lc[I_PROP_TR_SHOT_TYPE]]);
5156 Data.ShotSound := NameToBool(vleObjectProperty.Values[_lc[I_PROP_TR_SHOT_SOUND]]);
5157 Data.ShotTarget := 0;
5158 if vleObjectProperty.Values[_lc[I_PROP_TR_SHOT_TO]] = _lc[I_PROP_TR_SHOT_TO_1] then
5159 Data.ShotTarget := 1
5160 else if vleObjectProperty.Values[_lc[I_PROP_TR_SHOT_TO]] = _lc[I_PROP_TR_SHOT_TO_2] then
5161 Data.ShotTarget := 2
5162 else if vleObjectProperty.Values[_lc[I_PROP_TR_SHOT_TO]] = _lc[I_PROP_TR_SHOT_TO_3] then
5163 Data.ShotTarget := 3
5164 else if vleObjectProperty.Values[_lc[I_PROP_TR_SHOT_TO]] = _lc[I_PROP_TR_SHOT_TO_4] then
5165 Data.ShotTarget := 4
5166 else if vleObjectProperty.Values[_lc[I_PROP_TR_SHOT_TO]] = _lc[I_PROP_TR_SHOT_TO_5] then
5167 Data.ShotTarget := 5
5168 else if vleObjectProperty.Values[_lc[I_PROP_TR_SHOT_TO]] = _lc[I_PROP_TR_SHOT_TO_6] then
5169 Data.ShotTarget := 6;
5170 Data.ShotIntSight := Min(Max(
5171 StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_SHOT_SIGHT]], 0), 0), 65535);
5172 Data.ShotAim := 0;
5173 if vleObjectProperty.Values[_lc[I_PROP_TR_SHOT_AIM]] = _lc[I_PROP_TR_SHOT_AIM_1] then
5174 Data.ShotAim := 1
5175 else if vleObjectProperty.Values[_lc[I_PROP_TR_SHOT_AIM]] = _lc[I_PROP_TR_SHOT_AIM_2] then
5176 Data.ShotAim := 2
5177 else if vleObjectProperty.Values[_lc[I_PROP_TR_SHOT_AIM]] = _lc[I_PROP_TR_SHOT_AIM_3] then
5178 Data.ShotAim := 3;
5179 Data.ShotAngle := Min(
5180 StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_SHOT_ANGLE]], 0), 360);
5181 Data.ShotWait := Min(Max(
5182 StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_EX_DELAY]], 0), 0), 65535);
5183 Data.ShotAccuracy := Min(Max(
5184 StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_SHOT_ACC]], 0), 0), 65535);
5185 Data.ShotAmmo := Min(Max(
5186 StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_SHOT_AMMO]], 0), 0), 65535);
5187 Data.ShotIntReload := Min(Max(
5188 StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_SHOT_RELOAD]], 0), 0), 65535);
5189 end;
5190
5191 TRIGGER_EFFECT:
5192 begin
5193 Data.FXCount := Min(Max(
5194 StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_COUNT]], 0), 0), 255);
5195 if vleObjectProperty.Values[_lc[I_PROP_TR_EFFECT_TYPE]] = _lc[I_PROP_TR_EFFECT_PARTICLE] then
5196 begin
5197 Data.FXType := TRIGGER_EFFECT_PARTICLE;
5198 Data.FXSubType := TRIGGER_EFFECT_SLIQUID;
5199 if vleObjectProperty.Values[_lc[I_PROP_TR_EFFECT_SUBTYPE]] = _lc[I_PROP_TR_EFFECT_SLIQUID] then
5200 Data.FXSubType := TRIGGER_EFFECT_SLIQUID
5201 else if vleObjectProperty.Values[_lc[I_PROP_TR_EFFECT_SUBTYPE]] = _lc[I_PROP_TR_EFFECT_LLIQUID] then
5202 Data.FXSubType := TRIGGER_EFFECT_LLIQUID
5203 else if vleObjectProperty.Values[_lc[I_PROP_TR_EFFECT_SUBTYPE]] = _lc[I_PROP_TR_EFFECT_DLIQUID] then
5204 Data.FXSubType := TRIGGER_EFFECT_DLIQUID
5205 else if vleObjectProperty.Values[_lc[I_PROP_TR_EFFECT_SUBTYPE]] = _lc[I_PROP_TR_EFFECT_BLOOD] then
5206 Data.FXSubType := TRIGGER_EFFECT_BLOOD
5207 else if vleObjectProperty.Values[_lc[I_PROP_TR_EFFECT_SUBTYPE]] = _lc[I_PROP_TR_EFFECT_SPARK] then
5208 Data.FXSubType := TRIGGER_EFFECT_SPARK
5209 else if vleObjectProperty.Values[_lc[I_PROP_TR_EFFECT_SUBTYPE]] = _lc[I_PROP_TR_EFFECT_BUBBLE] then
5210 Data.FXSubType := TRIGGER_EFFECT_BUBBLE;
5211 end else
5212 begin
5213 Data.FXType := TRIGGER_EFFECT_ANIMATION;
5214 Data.FXSubType := StrToEffect(vleObjectProperty.Values[_lc[I_PROP_TR_EFFECT_SUBTYPE]]);
5215 end;
5216 a := Min(Max(
5217 StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_EFFECT_COLOR]], 0), 0), $FFFFFF);
5218 Data.FXColorR := a and $FF;
5219 Data.FXColorG := (a shr 8) and $FF;
5220 Data.FXColorB := (a shr 16) and $FF;
5221 if NameToBool(vleObjectProperty.Values[_lc[I_PROP_TR_EFFECT_CENTER]]) then
5222 Data.FXPos := 0
5223 else
5224 Data.FXPos := 1;
5225 Data.FXWait := Min(Max(
5226 StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_EX_DELAY]], 0), 0), 65535);
5227 Data.FXVelX := Min(Max(
5228 StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_EFFECT_VELX]], 0), -128), 127);
5229 Data.FXVelY := Min(Max(
5230 StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_EFFECT_VELY]], 0), -128), 127);
5231 Data.FXSpreadL := Min(Max(
5232 StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_EFFECT_SPL]], 0), 0), 255);
5233 Data.FXSpreadR := Min(Max(
5234 StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_EFFECT_SPR]], 0), 0), 255);
5235 Data.FXSpreadU := Min(Max(
5236 StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_EFFECT_SPU]], 0), 0), 255);
5237 Data.FXSpreadD := Min(Max(
5238 StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_EFFECT_SPD]], 0), 0), 255);
5239 end;
5240 end;
5241 end;
5242 end;
5243 end;
5244
5245 FillProperty();
5246
5247 vleObjectProperty.Row := r;
5248 vleObjectProperty.Col := c;
5249 end;
5250
5251 procedure TMainForm.bbRemoveTextureClick(Sender: TObject);
5252 var
5253 a, i: Integer;
5254 begin
5255 i := lbTextureList.ItemIndex;
5256 if i = -1 then
5257 Exit;
5258
5259 if MessageBox(0, PChar(Format(_lc[I_MSG_DEL_TEXTURE_PROMT],
5260 [SelectedTexture()])),
5261 PChar(_lc[I_MSG_DEL_TEXTURE]),
5262 MB_ICONQUESTION or MB_YESNO or
5263 MB_DEFBUTTON1) <> idYes then
5264 Exit;
5265
5266 if gPanels <> nil then
5267 for a := 0 to High(gPanels) do
5268 if (gPanels[a].PanelType <> 0) and
5269 (gPanels[a].TextureName = SelectedTexture()) then
5270 begin
5271 ErrorMessageBox(_lc[I_MSG_DEL_TEXTURE_CANT]);
5272 Exit;
5273 end;
5274
5275 g_DeleteTexture(SelectedTexture());
5276 i := slInvalidTextures.IndexOf(lbTextureList.Items[i]);
5277 if i > -1 then
5278 slInvalidTextures.Delete(i);
5279 if lbTextureList.ItemIndex > -1 then
5280 lbTextureList.Items.Delete(lbTextureList.ItemIndex)
5281 end;
5282
5283 procedure TMainForm.aNewMapExecute(Sender: TObject);
5284 begin
5285 if (MessageBox(0, PChar(_lc[I_MSG_CLEAR_MAP_PROMT]),
5286 PChar(_lc[I_MSG_CLEAR_MAP]),
5287 MB_ICONQUESTION or MB_YESNO or
5288 MB_DEFBUTTON1) = mrYes) then
5289 FullClear();
5290 end;
5291
5292 procedure TMainForm.aUndoExecute(Sender: TObject);
5293 var
5294 a: Integer;
5295 begin
5296 if UndoBuffer = nil then
5297 Exit;
5298 if UndoBuffer[High(UndoBuffer)] = nil then
5299 Exit;
5300
5301 for a := 0 to High(UndoBuffer[High(UndoBuffer)]) do
5302 with UndoBuffer[High(UndoBuffer)][a] do
5303 begin
5304 case UndoType of
5305 UNDO_DELETE_PANEL:
5306 begin
5307 AddPanel(Panel^);
5308 Panel := nil;
5309 end;
5310 UNDO_DELETE_ITEM: AddItem(Item);
5311 UNDO_DELETE_AREA: AddArea(Area);
5312 UNDO_DELETE_MONSTER: AddMonster(Monster);
5313 UNDO_DELETE_TRIGGER: AddTrigger(Trigger);
5314 UNDO_ADD_PANEL: RemoveObject(AddID, OBJECT_PANEL);
5315 UNDO_ADD_ITEM: RemoveObject(AddID, OBJECT_ITEM);
5316 UNDO_ADD_AREA: RemoveObject(AddID, OBJECT_AREA);
5317 UNDO_ADD_MONSTER: RemoveObject(AddID, OBJECT_MONSTER);
5318 UNDO_ADD_TRIGGER: RemoveObject(AddID, OBJECT_TRIGGER);
5319 end;
5320 end;
5321
5322 SetLength(UndoBuffer, Length(UndoBuffer)-1);
5323
5324 RemoveSelectFromObjects();
5325
5326 miUndo.Enabled := UndoBuffer <> nil;
5327 end;
5328
5329
5330 procedure TMainForm.aCopyObjectExecute(Sender: TObject);
5331 var
5332 a, b: Integer;
5333 CopyBuffer: TCopyRecArray;
5334 str: String;
5335 ok: Boolean;
5336
5337 function CB_Compare(I1, I2: TCopyRec): Integer;
5338 begin
5339 Result := Integer(I1.ObjectType) - Integer(I2.ObjectType);
5340
5341 if Result = 0 then // Одного типа
5342 Result := Integer(I1.ID) - Integer(I2.ID);
5343 end;
5344
5345 procedure QuickSortCopyBuffer(L, R: Integer);
5346 var
5347 I, J: Integer;
5348 P, T: TCopyRec;
5349 begin
5350 repeat
5351 I := L;
5352 J := R;
5353 P := CopyBuffer[(L + R) shr 1];
5354
5355 repeat
5356 while CB_Compare(CopyBuffer[I], P) < 0 do
5357 Inc(I);
5358 while CB_Compare(CopyBuffer[J], P) > 0 do
5359 Dec(J);
5360
5361 if I <= J then
5362 begin
5363 T := CopyBuffer[I];
5364 CopyBuffer[I] := CopyBuffer[J];
5365 CopyBuffer[J] := T;
5366 Inc(I);
5367 Dec(J);
5368 end;
5369 until I > J;
5370
5371 if L < J then
5372 QuickSortCopyBuffer(L, J);
5373
5374 L := I;
5375 until I >= R;
5376 end;
5377
5378 begin
5379 if SelectedObjects = nil then
5380 Exit;
5381
5382 b := -1;
5383 CopyBuffer := nil;
5384
5385 // Копируем объекты:
5386 for a := 0 to High(SelectedObjects) do
5387 if SelectedObjects[a].Live then
5388 with SelectedObjects[a] do
5389 begin
5390 SetLength(CopyBuffer, Length(CopyBuffer)+1);
5391 b := High(CopyBuffer);
5392 CopyBuffer[b].ID := ID;
5393 CopyBuffer[b].Panel := nil;
5394
5395 case ObjectType of
5396 OBJECT_PANEL:
5397 begin
5398 CopyBuffer[b].ObjectType := OBJECT_PANEL;
5399 New(CopyBuffer[b].Panel);
5400 CopyBuffer[b].Panel^ := gPanels[ID];
5401 end;
5402
5403 OBJECT_ITEM:
5404 begin
5405 CopyBuffer[b].ObjectType := OBJECT_ITEM;
5406 CopyBuffer[b].Item := gItems[ID];
5407 end;
5408
5409 OBJECT_MONSTER:
5410 begin
5411 CopyBuffer[b].ObjectType := OBJECT_MONSTER;
5412 CopyBuffer[b].Monster := gMonsters[ID];
5413 end;
5414
5415 OBJECT_AREA:
5416 begin
5417 CopyBuffer[b].ObjectType := OBJECT_AREA;
5418 CopyBuffer[b].Area := gAreas[ID];
5419 end;
5420
5421 OBJECT_TRIGGER:
5422 begin
5423 CopyBuffer[b].ObjectType := OBJECT_TRIGGER;
5424 CopyBuffer[b].Trigger := gTriggers[ID];
5425 end;
5426 end;
5427 end;
5428
5429 // Сортировка по ID:
5430 if CopyBuffer <> nil then
5431 begin
5432 QuickSortCopyBuffer(0, b);
5433 end;
5434
5435 // Пестановка ссылок триггеров:
5436 for a := 0 to Length(CopyBuffer)-1 do
5437 if CopyBuffer[a].ObjectType = OBJECT_TRIGGER then
5438 begin
5439 case CopyBuffer[a].Trigger.TriggerType of
5440 TRIGGER_OPENDOOR, TRIGGER_CLOSEDOOR, TRIGGER_DOOR,
5441 TRIGGER_DOOR5, TRIGGER_CLOSETRAP, TRIGGER_TRAP,
5442 TRIGGER_LIFTUP, TRIGGER_LIFTDOWN, TRIGGER_LIFT:
5443 if CopyBuffer[a].Trigger.Data.PanelID <> -1 then
5444 begin
5445 ok := False;
5446
5447 for b := 0 to Length(CopyBuffer)-1 do
5448 if (CopyBuffer[b].ObjectType = OBJECT_PANEL) and
5449 (Integer(CopyBuffer[b].ID) = CopyBuffer[a].Trigger.Data.PanelID) then
5450 begin
5451 CopyBuffer[a].Trigger.Data.PanelID := b;
5452 ok := True;
5453 Break;
5454 end;
5455
5456 // Этих панелей нет среди копируемых:
5457 if not ok then
5458 CopyBuffer[a].Trigger.Data.PanelID := -1;
5459 end;
5460
5461 TRIGGER_PRESS, TRIGGER_ON,
5462 TRIGGER_OFF, TRIGGER_ONOFF:
5463 if CopyBuffer[a].Trigger.Data.MonsterID <> 0 then
5464 begin
5465 ok := False;
5466
5467 for b := 0 to Length(CopyBuffer)-1 do
5468 if (CopyBuffer[b].ObjectType = OBJECT_MONSTER) and
5469 (Integer(CopyBuffer[b].ID) = CopyBuffer[a].Trigger.Data.MonsterID-1) then
5470 begin
5471 CopyBuffer[a].Trigger.Data.MonsterID := b+1;
5472 ok := True;
5473 Break;
5474 end;
5475
5476 // Этих монстров нет среди копируемых:
5477 if not ok then
5478 CopyBuffer[a].Trigger.Data.MonsterID := 0;
5479 end;
5480
5481 TRIGGER_SHOT:
5482 if CopyBuffer[a].Trigger.Data.ShotPanelID <> -1 then
5483 begin
5484 ok := False;
5485
5486 for b := 0 to Length(CopyBuffer)-1 do
5487 if (CopyBuffer[b].ObjectType = OBJECT_PANEL) and
5488 (Integer(CopyBuffer[b].ID) = CopyBuffer[a].Trigger.Data.ShotPanelID) then
5489 begin
5490 CopyBuffer[a].Trigger.Data.ShotPanelID := b;
5491 ok := True;
5492 Break;
5493 end;
5494
5495 // Этих панелей нет среди копируемых:
5496 if not ok then
5497 CopyBuffer[a].Trigger.Data.ShotPanelID := -1;
5498 end;
5499 end;
5500
5501 if CopyBuffer[a].Trigger.TexturePanel <> -1 then
5502 begin
5503 ok := False;
5504
5505 for b := 0 to Length(CopyBuffer)-1 do
5506 if (CopyBuffer[b].ObjectType = OBJECT_PANEL) and
5507 (Integer(CopyBuffer[b].ID) = CopyBuffer[a].Trigger.TexturePanel) then
5508 begin
5509 CopyBuffer[a].Trigger.TexturePanel := b;
5510 ok := True;
5511 Break;
5512 end;
5513
5514 // Этих панелей нет среди копируемых:
5515 if not ok then
5516 CopyBuffer[a].Trigger.TexturePanel := -1;
5517 end;
5518 end;
5519
5520 // В буфер обмена:
5521 str := CopyBufferToString(CopyBuffer);
5522 ClipBoard.AsText := str;
5523
5524 for a := 0 to Length(CopyBuffer)-1 do
5525 if (CopyBuffer[a].ObjectType = OBJECT_PANEL) and
5526 (CopyBuffer[a].Panel <> nil) then
5527 Dispose(CopyBuffer[a].Panel);
5528
5529 CopyBuffer := nil;
5530 end;
5531
5532 procedure TMainForm.aPasteObjectExecute(Sender: TObject);
5533 var
5534 a, h: Integer;
5535 CopyBuffer: TCopyRecArray;
5536 res, rel: Boolean;
5537 swad, ssec, sres: String;
5538 NoTextureID: DWORD;
5539 pmin: TPoint;
5540 begin
5541 CopyBuffer := nil;
5542 NoTextureID := 0;
5543 pmin.X := High(pmin.X);
5544 pmin.Y := High(pmin.Y);
5545
5546 StringToCopyBuffer(ClipBoard.AsText, CopyBuffer, pmin);
5547 rel := not(ssShift in GetKeyShiftState());
5548
5549 if CopyBuffer = nil then
5550 Exit;
5551
5552 RemoveSelectFromObjects();
5553
5554 h := High(CopyBuffer);
5555 for a := 0 to h do
5556 with CopyBuffer[a] do
5557 begin
5558 case ObjectType of
5559 OBJECT_PANEL:
5560 if Panel <> nil then
5561 begin
5562 if rel then
5563 begin
5564 Panel^.X := Panel^.X - pmin.X - MapOffset.X + 32;
5565 Panel^.Y := Panel^.Y - pmin.Y - MapOffset.Y + 32;
5566 end;
5567
5568 Panel^.TextureID := TEXTURE_SPECIAL_NONE;
5569 Panel^.TextureWidth := 1;
5570 Panel^.TextureHeight := 1;
5571
5572 if (Panel^.PanelType = PANEL_LIFTUP) or
5573 (Panel^.PanelType = PANEL_LIFTDOWN) or
5574 (Panel^.PanelType = PANEL_LIFTLEFT) or
5575 (Panel^.PanelType = PANEL_LIFTRIGHT) or
5576 (Panel^.PanelType = PANEL_BLOCKMON) or
5577 (Panel^.TextureName = '') then
5578 begin // Нет или не может быть текстуры:
5579 end
5580 else // Есть текстура:
5581 begin
5582 // Обычная текстура:
5583 if not IsSpecialTexture(Panel^.TextureName) then
5584 begin
5585 res := g_GetTexture(Panel^.TextureName, Panel^.TextureID);
5586
5587 if not res then
5588 begin
5589 g_ProcessResourceStr(Panel^.TextureName, swad, ssec, sres);
5590 AddTexture(swad, ssec, sres, True);
5591 res := g_GetTexture(Panel^.TextureName, Panel^.TextureID);
5592 end;
5593
5594 if res then
5595 g_GetTextureSizeByName(Panel^.TextureName,
5596 Panel^.TextureWidth, Panel^.TextureHeight)
5597 else
5598 if g_GetTexture('NOTEXTURE', NoTextureID) then
5599 begin
5600 Panel^.TextureID := TEXTURE_SPECIAL_NOTEXTURE;
5601 g_GetTextureSizeByID(NoTextureID, Panel^.TextureWidth, Panel^.TextureHeight);
5602 end;
5603 end
5604 else // Спец.текстура:
5605 begin
5606 Panel^.TextureID := SpecialTextureID(Panel^.TextureName);
5607 with MainForm.lbTextureList.Items do
5608 if IndexOf(Panel^.TextureName) = -1 then
5609 Add(Panel^.TextureName);
5610 end;
5611 end;
5612
5613 ID := AddPanel(Panel^);
5614 Dispose(Panel);
5615 Undo_Add(OBJECT_PANEL, ID, a > 0);
5616 SelectObject(OBJECT_PANEL, ID, True);
5617 end;
5618
5619 OBJECT_ITEM:
5620 begin
5621 if rel then
5622 begin
5623 Item.X := Item.X - pmin.X - MapOffset.X + 32;
5624 Item.Y := Item.Y - pmin.Y - MapOffset.Y + 32;
5625 end;
5626
5627 ID := AddItem(Item);
5628 Undo_Add(OBJECT_ITEM, ID, a > 0);
5629 SelectObject(OBJECT_ITEM, ID, True);
5630 end;
5631
5632 OBJECT_MONSTER:
5633 begin
5634 if rel then
5635 begin
5636 Monster.X := Monster.X - pmin.X - MapOffset.X + 32;
5637 Monster.Y := Monster.Y - pmin.Y - MapOffset.Y + 32;
5638 end;
5639
5640 ID := AddMonster(Monster);
5641 Undo_Add(OBJECT_MONSTER, ID, a > 0);
5642 SelectObject(OBJECT_MONSTER, ID, True);
5643 end;
5644
5645 OBJECT_AREA:
5646 begin
5647 if rel then
5648 begin
5649 Area.X := Area.X - pmin.X - MapOffset.X + 32;
5650 Area.Y := Area.Y - pmin.Y - MapOffset.Y + 32;
5651 end;
5652
5653 ID := AddArea(Area);
5654 Undo_Add(OBJECT_AREA, ID, a > 0);
5655 SelectObject(OBJECT_AREA, ID, True);
5656 end;
5657
5658 OBJECT_TRIGGER:
5659 begin
5660 if rel then
5661 with Trigger do
5662 begin
5663 X := X - pmin.X - MapOffset.X + 32;
5664 Y := Y - pmin.Y - MapOffset.Y + 32;
5665
5666 case TriggerType of
5667 TRIGGER_TELEPORT:
5668 begin
5669 Data.TargetPoint.X :=
5670 Data.TargetPoint.X - pmin.X - MapOffset.X + 32;
5671 Data.TargetPoint.Y :=
5672 Data.TargetPoint.Y - pmin.Y - MapOffset.Y + 32;
5673 end;
5674 TRIGGER_PRESS, TRIGGER_ON, TRIGGER_OFF, TRIGGER_ONOFF:
5675 begin
5676 Data.tX := Data.tX - pmin.X - MapOffset.X + 32;
5677 Data.tY := Data.tY - pmin.Y - MapOffset.Y + 32;
5678 end;
5679 TRIGGER_SPAWNMONSTER:
5680 begin
5681 Data.MonPos.X :=
5682 Data.MonPos.X - pmin.X - MapOffset.X + 32;
5683 Data.MonPos.Y :=
5684 Data.MonPos.Y - pmin.Y - MapOffset.Y + 32;
5685 end;
5686 TRIGGER_SPAWNITEM:
5687 begin
5688 Data.ItemPos.X :=
5689 Data.ItemPos.X - pmin.X - MapOffset.X + 32;
5690 Data.ItemPos.Y :=
5691 Data.ItemPos.Y - pmin.Y - MapOffset.Y + 32;
5692 end;
5693 TRIGGER_SHOT:
5694 begin
5695 Data.ShotPos.X :=
5696 Data.ShotPos.X - pmin.X - MapOffset.X + 32;
5697 Data.ShotPos.Y :=
5698 Data.ShotPos.Y - pmin.Y - MapOffset.Y + 32;
5699 end;
5700 end;
5701 end;
5702
5703 ID := AddTrigger(Trigger);
5704 Undo_Add(OBJECT_TRIGGER, ID, a > 0);
5705 SelectObject(OBJECT_TRIGGER, ID, True);
5706 end;
5707 end;
5708 end;
5709
5710 // Переставляем ссылки триггеров:
5711 for a := 0 to High(CopyBuffer) do
5712 if CopyBuffer[a].ObjectType = OBJECT_TRIGGER then
5713 begin
5714 case CopyBuffer[a].Trigger.TriggerType of
5715 TRIGGER_OPENDOOR, TRIGGER_CLOSEDOOR, TRIGGER_DOOR,
5716 TRIGGER_DOOR5, TRIGGER_CLOSETRAP, TRIGGER_TRAP,
5717 TRIGGER_LIFTUP, TRIGGER_LIFTDOWN, TRIGGER_LIFT:
5718 if CopyBuffer[a].Trigger.Data.PanelID <> -1 then
5719 gTriggers[CopyBuffer[a].ID].Data.PanelID :=
5720 CopyBuffer[CopyBuffer[a].Trigger.Data.PanelID].ID;
5721
5722 TRIGGER_PRESS, TRIGGER_ON,
5723 TRIGGER_OFF, TRIGGER_ONOFF:
5724 if CopyBuffer[a].Trigger.Data.MonsterID <> 0 then
5725 gTriggers[CopyBuffer[a].ID].Data.MonsterID :=
5726 CopyBuffer[CopyBuffer[a].Trigger.Data.MonsterID-1].ID+1;
5727
5728 TRIGGER_SHOT:
5729 if CopyBuffer[a].Trigger.Data.ShotPanelID <> -1 then
5730 gTriggers[CopyBuffer[a].ID].Data.ShotPanelID :=
5731 CopyBuffer[CopyBuffer[a].Trigger.Data.ShotPanelID].ID;
5732 end;
5733
5734 if CopyBuffer[a].Trigger.TexturePanel <> -1 then
5735 gTriggers[CopyBuffer[a].ID].TexturePanel :=
5736 CopyBuffer[CopyBuffer[a].Trigger.TexturePanel].ID;
5737 end;
5738
5739 CopyBuffer := nil;
5740
5741 if h = 0 then
5742 FillProperty();
5743 end;
5744
5745 procedure TMainForm.aCutObjectExecute(Sender: TObject);
5746 begin
5747 miCopy.Click();
5748 DeleteSelectedObjects();
5749 end;
5750
5751 procedure TMainForm.vleObjectPropertyEditButtonClick(Sender: TObject);
5752 var
5753 Key, FileName: String;
5754 b: Byte;
5755 begin
5756 Key := vleObjectProperty.Keys[vleObjectProperty.Row];
5757
5758 if Key = _lc[I_PROP_PANEL_TYPE] then
5759 begin
5760 with ChooseTypeForm, vleObjectProperty do
5761 begin // Выбор типа панели:
5762 Caption := _lc[I_PROP_PANEL_TYPE];
5763 lbTypeSelect.Items.Clear();
5764
5765 for b := 0 to High(PANELNAMES) do
5766 begin
5767 lbTypeSelect.Items.Add(PANELNAMES[b]);
5768 if Values[Key] = PANELNAMES[b] then
5769 lbTypeSelect.ItemIndex := b;
5770 end;
5771
5772 if ShowModal() = mrOK then
5773 begin
5774 b := lbTypeSelect.ItemIndex;
5775 Values[Key] := PANELNAMES[b];
5776 vleObjectPropertyApply(Sender);
5777 end;
5778 end
5779 end
5780 else if Key = _lc[I_PROP_TR_TELEPORT_TO] then
5781 SelectFlag := SELECTFLAG_TELEPORT
5782 else if Key = _lc[I_PROP_TR_SPAWN_TO] then
5783 SelectFlag := SELECTFLAG_SPAWNPOINT
5784 else if (Key = _lc[I_PROP_TR_DOOR_PANEL]) or
5785 (Key = _lc[I_PROP_TR_TRAP_PANEL]) then
5786 SelectFlag := SELECTFLAG_DOOR
5787 else if Key = _lc[I_PROP_TR_TEXTURE_PANEL] then
5788 begin
5789 DrawPressRect := False;
5790 SelectFlag := SELECTFLAG_TEXTURE;
5791 end
5792 else if Key = _lc[I_PROP_TR_SHOT_PANEL] then
5793 SelectFlag := SELECTFLAG_SHOTPANEL
5794 else if Key = _lc[I_PROP_TR_LIFT_PANEL] then
5795 SelectFlag := SELECTFLAG_LIFT
5796 else if key = _lc[I_PROP_TR_EX_MONSTER] then
5797 SelectFlag := SELECTFLAG_MONSTER
5798 else if Key = _lc[I_PROP_TR_EX_AREA] then
5799 begin
5800 SelectFlag := SELECTFLAG_NONE;
5801 DrawPressRect := True;
5802 end
5803 else if Key = _lc[I_PROP_TR_NEXT_MAP] then
5804 begin // Выбор следующей карты:
5805 g_ProcessResourceStr(OpenedMap, @FileName, nil, nil);
5806 SelectMapForm.Caption := _lc[I_CAP_SELECT];
5807 SelectMapForm.GetMaps(FileName);
5808
5809 if SelectMapForm.ShowModal() = mrOK then
5810 begin
5811 vleObjectProperty.Values[Key] := SelectMapForm.lbMapList.Items[SelectMapForm.lbMapList.ItemIndex];
5812 vleObjectPropertyApply(Sender);
5813 end;
5814 end
5815 else if (Key = _lc[I_PROP_TR_SOUND_NAME]) or
5816 (Key = _lc[I_PROP_TR_MUSIC_NAME]) then
5817 begin // Выбор файла звука/музыки:
5818 AddSoundForm.OKFunction := nil;
5819 AddSoundForm.lbResourcesList.MultiSelect := False;
5820 AddSoundForm.SetResource := vleObjectProperty.Values[Key];
5821
5822 if (AddSoundForm.ShowModal() = mrOk) then
5823 begin
5824 vleObjectProperty.Values[Key] := AddSoundForm.ResourceName;
5825 vleObjectPropertyApply(Sender);
5826 end;
5827 end
5828 else if Key = _lc[I_PROP_TR_ACTIVATION] then
5829 with ActivationTypeForm, vleObjectProperty do
5830 begin // Выбор типов активации:
5831 cbPlayerCollide.Checked := Pos('PC', Values[Key]) > 0;
5832 cbMonsterCollide.Checked := Pos('MC', Values[Key]) > 0;
5833 cbPlayerPress.Checked := Pos('PP', Values[Key]) > 0;
5834 cbMonsterPress.Checked := Pos('MP', Values[Key]) > 0;
5835 cbShot.Checked := Pos('SH', Values[Key]) > 0;
5836 cbNoMonster.Checked := Pos('NM', Values[Key]) > 0;
5837
5838 if ShowModal() = mrOK then
5839 begin
5840 b := 0;
5841 if cbPlayerCollide.Checked then
5842 b := ACTIVATE_PLAYERCOLLIDE;
5843 if cbMonsterCollide.Checked then
5844 b := b or ACTIVATE_MONSTERCOLLIDE;
5845 if cbPlayerPress.Checked then
5846 b := b or ACTIVATE_PLAYERPRESS;
5847 if cbMonsterPress.Checked then
5848 b := b or ACTIVATE_MONSTERPRESS;
5849 if cbShot.Checked then
5850 b := b or ACTIVATE_SHOT;
5851 if cbNoMonster.Checked then
5852 b := b or ACTIVATE_NOMONSTER;
5853
5854 Values[Key] := ActivateToStr(b);
5855 vleObjectPropertyApply(Sender);
5856 end;
5857 end
5858 else if Key = _lc[I_PROP_TR_KEYS] then
5859 with KeysForm, vleObjectProperty do
5860 begin // Выбор необходимых ключей:
5861 cbRedKey.Checked := Pos('RK', Values[Key]) > 0;
5862 cbGreenKey.Checked := Pos('GK', Values[Key]) > 0;
5863 cbBlueKey.Checked := Pos('BK', Values[Key]) > 0;
5864 cbRedTeam.Checked := Pos('RT', Values[Key]) > 0;
5865 cbBlueTeam.Checked := Pos('BT', Values[Key]) > 0;
5866
5867 if ShowModal() = mrOK then
5868 begin
5869 b := 0;
5870 if cbRedKey.Checked then
5871 b := KEY_RED;
5872 if cbGreenKey.Checked then
5873 b := b or KEY_GREEN;
5874 if cbBlueKey.Checked then
5875 b := b or KEY_BLUE;
5876 if cbRedTeam.Checked then
5877 b := b or KEY_REDTEAM;
5878 if cbBlueTeam.Checked then
5879 b := b or KEY_BLUETEAM;
5880
5881 Values[Key] := KeyToStr(b);
5882 vleObjectPropertyApply(Sender);
5883 end;
5884 end
5885 else if Key = _lc[I_PROP_TR_FX_TYPE] then
5886 with ChooseTypeForm, vleObjectProperty do
5887 begin // Выбор типа эффекта:
5888 Caption := _lc[I_CAP_FX_TYPE];
5889 lbTypeSelect.Items.Clear();
5890
5891 for b := EFFECT_NONE to EFFECT_FIRE do
5892 lbTypeSelect.Items.Add(EffectToStr(b));
5893
5894 lbTypeSelect.ItemIndex := StrToEffect(Values[Key]);
5895
5896 if ShowModal() = mrOK then
5897 begin
5898 b := lbTypeSelect.ItemIndex;
5899 Values[Key] := EffectToStr(b);
5900 vleObjectPropertyApply(Sender);
5901 end;
5902 end
5903 else if Key = _lc[I_PROP_TR_MONSTER_TYPE] then
5904 with ChooseTypeForm, vleObjectProperty do
5905 begin // Выбор типа монстра:
5906 Caption := _lc[I_CAP_MONSTER_TYPE];
5907 lbTypeSelect.Items.Clear();
5908
5909 for b := MONSTER_DEMON to MONSTER_MAN do
5910 lbTypeSelect.Items.Add(MonsterToStr(b));
5911
5912 lbTypeSelect.ItemIndex := StrToMonster(Values[Key]) - MONSTER_DEMON;
5913
5914 if ShowModal() = mrOK then
5915 begin
5916 b := lbTypeSelect.ItemIndex + MONSTER_DEMON;
5917 Values[Key] := MonsterToStr(b);
5918 vleObjectPropertyApply(Sender);
5919 end;
5920 end
5921 else if Key = _lc[I_PROP_TR_ITEM_TYPE] then
5922 with ChooseTypeForm, vleObjectProperty do
5923 begin // Выбор типа предмета:
5924 Caption := _lc[I_CAP_ITEM_TYPE];
5925 lbTypeSelect.Items.Clear();
5926
5927 for b := ITEM_MEDKIT_SMALL to ITEM_KEY_BLUE do
5928 lbTypeSelect.Items.Add(ItemToStr(b));
5929 lbTypeSelect.Items.Add(ItemToStr(ITEM_BOTTLE));
5930 lbTypeSelect.Items.Add(ItemToStr(ITEM_HELMET));
5931 lbTypeSelect.Items.Add(ItemToStr(ITEM_JETPACK));
5932 lbTypeSelect.Items.Add(ItemToStr(ITEM_INVIS));
5933 lbTypeSelect.Items.Add(ItemToStr(ITEM_WEAPON_FLAMETHROWER));
5934 lbTypeSelect.Items.Add(ItemToStr(ITEM_AMMO_FUELCAN));
5935
5936 b := StrToItem(Values[Key]);
5937 if b >= ITEM_BOTTLE then
5938 b := b - 2;
5939 lbTypeSelect.ItemIndex := b - ITEM_MEDKIT_SMALL;
5940
5941 if ShowModal() = mrOK then
5942 begin
5943 b := lbTypeSelect.ItemIndex + ITEM_MEDKIT_SMALL;
5944 if b >= ITEM_WEAPON_KASTET then
5945 b := b + 2;
5946 Values[Key] := ItemToStr(b);
5947 vleObjectPropertyApply(Sender);
5948 end;
5949 end
5950 else if Key = _lc[I_PROP_TR_SHOT_TYPE] then
5951 with ChooseTypeForm, vleObjectProperty do
5952 begin // Выбор типа предмета:
5953 Caption := _lc[I_PROP_TR_SHOT_TYPE];
5954 lbTypeSelect.Items.Clear();
5955
5956 for b := TRIGGER_SHOT_PISTOL to TRIGGER_SHOT_MAX do
5957 lbTypeSelect.Items.Add(ShotToStr(b));
5958
5959 lbTypeSelect.ItemIndex := StrToShot(Values[Key]);
5960
5961 if ShowModal() = mrOK then
5962 begin
5963 b := lbTypeSelect.ItemIndex;
5964 Values[Key] := ShotToStr(b);
5965 vleObjectPropertyApply(Sender);
5966 end;
5967 end
5968 else if Key = _lc[I_PROP_TR_EFFECT_TYPE] then
5969 with ChooseTypeForm, vleObjectProperty do
5970 begin // Выбор типа эффекта:
5971 Caption := _lc[I_CAP_FX_TYPE];
5972 lbTypeSelect.Items.Clear();
5973
5974 lbTypeSelect.Items.Add(_lc[I_PROP_TR_EFFECT_PARTICLE]);
5975 lbTypeSelect.Items.Add(_lc[I_PROP_TR_EFFECT_ANIMATION]);
5976 if Values[Key] = _lc[I_PROP_TR_EFFECT_ANIMATION] then
5977 lbTypeSelect.ItemIndex := 1
5978 else
5979 lbTypeSelect.ItemIndex := 0;
5980
5981 if ShowModal() = mrOK then
5982 begin
5983 b := lbTypeSelect.ItemIndex;
5984 if b = 0 then
5985 Values[Key] := _lc[I_PROP_TR_EFFECT_PARTICLE]
5986 else
5987 Values[Key] := _lc[I_PROP_TR_EFFECT_ANIMATION];
5988 vleObjectPropertyApply(Sender);
5989 end;
5990 end
5991 else if Key = _lc[I_PROP_TR_EFFECT_SUBTYPE] then
5992 with ChooseTypeForm, vleObjectProperty do
5993 begin // Выбор подтипа эффекта:
5994 Caption := _lc[I_CAP_FX_TYPE];
5995 lbTypeSelect.Items.Clear();
5996
5997 if Values[_lc[I_PROP_TR_EFFECT_TYPE]] = _lc[I_PROP_TR_EFFECT_ANIMATION] then
5998 begin
5999 for b := EFFECT_TELEPORT to EFFECT_FIRE do
6000 lbTypeSelect.Items.Add(EffectToStr(b));
6001
6002 lbTypeSelect.ItemIndex := StrToEffect(Values[Key]) - 1;
6003 end else
6004 begin
6005 lbTypeSelect.Items.Add(_lc[I_PROP_TR_EFFECT_SLIQUID]);
6006 lbTypeSelect.Items.Add(_lc[I_PROP_TR_EFFECT_LLIQUID]);
6007 lbTypeSelect.Items.Add(_lc[I_PROP_TR_EFFECT_DLIQUID]);
6008 lbTypeSelect.Items.Add(_lc[I_PROP_TR_EFFECT_BLOOD]);
6009 lbTypeSelect.Items.Add(_lc[I_PROP_TR_EFFECT_SPARK]);
6010 lbTypeSelect.Items.Add(_lc[I_PROP_TR_EFFECT_BUBBLE]);
6011 lbTypeSelect.ItemIndex := TRIGGER_EFFECT_SLIQUID;
6012 if Values[Key] = _lc[I_PROP_TR_EFFECT_LLIQUID] then
6013 lbTypeSelect.ItemIndex := TRIGGER_EFFECT_LLIQUID;
6014 if Values[Key] = _lc[I_PROP_TR_EFFECT_DLIQUID] then
6015 lbTypeSelect.ItemIndex := TRIGGER_EFFECT_DLIQUID;
6016 if Values[Key] = _lc[I_PROP_TR_EFFECT_BLOOD] then
6017 lbTypeSelect.ItemIndex := TRIGGER_EFFECT_BLOOD;
6018 if Values[Key] = _lc[I_PROP_TR_EFFECT_SPARK] then
6019 lbTypeSelect.ItemIndex := TRIGGER_EFFECT_SPARK;
6020 if Values[Key] = _lc[I_PROP_TR_EFFECT_BUBBLE] then
6021 lbTypeSelect.ItemIndex := TRIGGER_EFFECT_BUBBLE;
6022 end;
6023
6024 if ShowModal() = mrOK then
6025 begin
6026 b := lbTypeSelect.ItemIndex;
6027
6028 if Values[_lc[I_PROP_TR_EFFECT_TYPE]] = _lc[I_PROP_TR_EFFECT_ANIMATION] then
6029 Values[Key] := EffectToStr(b + 1)
6030 else begin
6031 Values[Key] := _lc[I_PROP_TR_EFFECT_SLIQUID];
6032 if b = TRIGGER_EFFECT_LLIQUID then
6033 Values[Key] := _lc[I_PROP_TR_EFFECT_LLIQUID];
6034 if b = TRIGGER_EFFECT_DLIQUID then
6035 Values[Key] := _lc[I_PROP_TR_EFFECT_DLIQUID];
6036 if b = TRIGGER_EFFECT_BLOOD then
6037 Values[Key] := _lc[I_PROP_TR_EFFECT_BLOOD];
6038 if b = TRIGGER_EFFECT_SPARK then
6039 Values[Key] := _lc[I_PROP_TR_EFFECT_SPARK];
6040 if b = TRIGGER_EFFECT_BUBBLE then
6041 Values[Key] := _lc[I_PROP_TR_EFFECT_BUBBLE];
6042 end;
6043
6044 vleObjectPropertyApply(Sender);
6045 end;
6046 end
6047 else if Key = _lc[I_PROP_TR_EFFECT_COLOR] then
6048 with vleObjectProperty do
6049 begin // Выбор цвета эффекта:
6050 ColorDialog.Color := StrToIntDef(Values[Key], 0);
6051 if ColorDialog.Execute then
6052 begin
6053 Values[Key] := IntToStr(ColorDialog.Color);
6054 vleObjectPropertyApply(Sender);
6055 end;
6056 end
6057 else if Key = _lc[I_PROP_PANEL_TEX] then
6058 begin // Смена текстуры:
6059 vleObjectProperty.Values[Key] := SelectedTexture();
6060 vleObjectPropertyApply(Sender);
6061 end;
6062 end;
6063
6064 procedure TMainForm.vleObjectPropertyApply(Sender: TObject);
6065 begin
6066 // hack to prevent empty ID in list
6067 RenderPanel.SetFocus();
6068 bApplyProperty.Click();
6069 vleObjectProperty.SetFocus();
6070 end;
6071
6072 procedure TMainForm.aSaveMapExecute(Sender: TObject);
6073 var
6074 FileName, Section, Res: String;
6075 begin
6076 if OpenedMap = '' then
6077 begin
6078 aSaveMapAsExecute(nil);
6079 Exit;
6080 end;
6081
6082 g_ProcessResourceStr(OpenedMap, FileName, Section, Res);
6083
6084 SaveMap(FileName+':\'+Res);
6085 end;
6086
6087 procedure TMainForm.aOpenMapExecute(Sender: TObject);
6088 begin
6089 OpenDialog.Filter := _lc[I_FILE_FILTER_ALL];
6090
6091 if OpenDialog.Execute() then
6092 begin
6093 OpenMapFile(OpenDialog.FileName);
6094 OpenDialog.InitialDir := ExtractFileDir(OpenDialog.FileName);
6095 end;
6096 end;
6097
6098 procedure TMainForm.OpenMapFile(FileName: String);
6099 begin
6100 if (Pos('.ini', LowerCase(ExtractFileName(FileName))) > 0) then
6101 begin // INI карты:
6102 FullClear();
6103
6104 pLoadProgress.Left := (RenderPanel.Width div 2)-(pLoadProgress.Width div 2);
6105 pLoadProgress.Top := (RenderPanel.Height div 2)-(pLoadProgress.Height div 2);
6106 pLoadProgress.Show();
6107
6108 OpenedMap := '';
6109 OpenedWAD := '';
6110
6111 LoadMapOld(FileName);
6112
6113 MainForm.Caption := Format('%s - %s', [FormCaption, ExtractFileName(FileName)]);
6114
6115 pLoadProgress.Hide();
6116 MainForm.FormResize(Self);
6117 end
6118 else // Карты из WAD:
6119 begin
6120 OpenMap(FileName, '');
6121 end;
6122 end;
6123
6124 procedure TMainForm.FormActivate(Sender: TObject);
6125 var
6126 lang: Integer;
6127 config: TConfig;
6128 begin
6129 MainForm.ActiveControl := RenderPanel;
6130
6131 // Язык:
6132 if gLanguage = '' then
6133 begin
6134 lang := SelectLanguageForm.ShowModal();
6135 case lang of
6136 1: gLanguage := LANGUAGE_ENGLISH;
6137 else gLanguage := LANGUAGE_RUSSIAN;
6138 end;
6139
6140 config := TConfig.CreateFile(EditorDir+'Editor.cfg');
6141 config.WriteStr('Editor', 'Language', gLanguage);
6142 config.SaveFile(EditorDir+'Editor.cfg');
6143 config.Free();
6144 end;
6145
6146 //e_WriteLog('Read language file', MSG_NOTIFY);
6147 //g_Language_Load(EditorDir+'\data\'+gLanguage+LANGUAGE_FILE_NAME);
6148 g_Language_Set(gLanguage);
6149 end;
6150
6151 procedure TMainForm.aDeleteMap(Sender: TObject);
6152 var
6153 WAD: TWADEditor_1;
6154 MapList: SArray;
6155 MapName: Char16;
6156 a: Integer;
6157 str: String;
6158 begin
6159 OpenDialog.Filter := _lc[I_FILE_FILTER_WAD];
6160
6161 if not OpenDialog.Execute() then
6162 Exit;
6163
6164 WAD := TWADEditor_1.Create();
6165
6166 if not WAD.ReadFile(OpenDialog.FileName) then
6167 begin
6168 WAD.Free();
6169 Exit;
6170 end;
6171
6172 WAD.CreateImage();
6173
6174 MapList := WAD.GetResourcesList('');
6175
6176 SelectMapForm.Caption := _lc[I_CAP_REMOVE];
6177 SelectMapForm.lbMapList.Items.Clear();
6178
6179 if MapList <> nil then
6180 for a := 0 to High(MapList) do
6181 SelectMapForm.lbMapList.Items.Add(win2utf(MapList[a]));
6182
6183 if (SelectMapForm.ShowModal() = mrOK) then
6184 begin
6185 str := SelectMapForm.lbMapList.Items[SelectMapForm.lbMapList.ItemIndex];
6186 MapName := '';
6187 Move(str[1], MapName[0], Min(16, Length(str)));
6188
6189 if MessageBox(0, PChar(Format(_lc[I_MSG_DELETE_MAP_PROMT],
6190 [MapName, OpenDialog.FileName])),
6191 PChar(_lc[I_MSG_DELETE_MAP]),
6192 MB_ICONQUESTION or MB_YESNO or
6193 MB_DEFBUTTON2) <> mrYes then
6194 Exit;
6195
6196 WAD.RemoveResource('', utf2win(MapName));
6197
6198 MessageBox(0, PChar(Format(_lc[I_MSG_MAP_DELETED_PROMT],
6199 [MapName])),
6200 PChar(_lc[I_MSG_MAP_DELETED]),
6201 MB_ICONINFORMATION or MB_OK or
6202 MB_DEFBUTTON1);
6203
6204 WAD.SaveTo(OpenDialog.FileName);
6205
6206 // Удалили текущую карту - сохранять по старому ее нельзя:
6207 if OpenedMap = (OpenDialog.FileName+':\'+MapName) then
6208 begin
6209 OpenedMap := '';
6210 OpenedWAD := '';
6211 MainForm.Caption := FormCaption;
6212 end;
6213 end;
6214
6215 WAD.Free();
6216 end;
6217
6218 procedure TMainForm.vleObjectPropertyKeyDown(Sender: TObject;
6219 var Key: Word; Shift: TShiftState);
6220 begin
6221 if Key = VK_RETURN then
6222 vleObjectPropertyApply(Sender);
6223 end;
6224
6225 procedure MovePanel(var ID: DWORD; MoveType: Byte);
6226 var
6227 _id, a: Integer;
6228 tmp: TPanel;
6229 begin
6230 if (ID = 0) and (MoveType = 0) then
6231 Exit;
6232 if (ID = DWORD(High(gPanels))) and (MoveType <> 0) then
6233 Exit;
6234 if (ID > DWORD(High(gPanels))) then
6235 Exit;
6236
6237 _id := Integer(ID);
6238
6239 if MoveType = 0 then // to Back
6240 begin
6241 if gTriggers <> nil then
6242 for a := 0 to High(gTriggers) do
6243 with gTriggers[a] do
6244 begin
6245 if TriggerType = TRIGGER_NONE then
6246 Continue;
6247
6248 if TexturePanel = _id then
6249 TexturePanel := 0
6250 else
6251 if (TexturePanel >= 0) and (TexturePanel < _id) then
6252 Inc(TexturePanel);
6253
6254 case TriggerType of
6255 TRIGGER_OPENDOOR, TRIGGER_CLOSEDOOR, TRIGGER_DOOR,
6256 TRIGGER_DOOR5, TRIGGER_CLOSETRAP, TRIGGER_TRAP,
6257 TRIGGER_LIFTUP, TRIGGER_LIFTDOWN, TRIGGER_LIFT:
6258 if Data.PanelID = _id then
6259 Data.PanelID := 0
6260 else
6261 if (Data.PanelID >= 0) and (Data.PanelID < _id) then
6262 Inc(Data.PanelID);
6263
6264 TRIGGER_SHOT:
6265 if Data.ShotPanelID = _id then
6266 Data.ShotPanelID := 0
6267 else
6268 if (Data.ShotPanelID >= 0) and (Data.ShotPanelID < _id) then
6269 Inc(Data.ShotPanelID);
6270 end;
6271 end;
6272
6273 tmp := gPanels[_id];
6274
6275 for a := _id downto 1 do
6276 gPanels[a] := gPanels[a-1];
6277
6278 gPanels[0] := tmp;
6279
6280 ID := 0;
6281 end
6282 else // to Front
6283 begin
6284 if gTriggers <> nil then
6285 for a := 0 to High(gTriggers) do
6286 with gTriggers[a] do
6287 begin
6288 if TriggerType = TRIGGER_NONE then
6289 Continue;
6290
6291 if TexturePanel = _id then
6292 TexturePanel := High(gPanels)
6293 else
6294 if TexturePanel > _id then
6295 Dec(TexturePanel);
6296
6297 case TriggerType of
6298 TRIGGER_OPENDOOR, TRIGGER_CLOSEDOOR, TRIGGER_DOOR,
6299 TRIGGER_DOOR5, TRIGGER_CLOSETRAP, TRIGGER_TRAP,
6300 TRIGGER_LIFTUP, TRIGGER_LIFTDOWN, TRIGGER_LIFT:
6301 if Data.PanelID = _id then
6302 Data.PanelID := High(gPanels)
6303 else
6304 if Data.PanelID > _id then
6305 Dec(Data.PanelID);
6306
6307 TRIGGER_SHOT:
6308 if Data.ShotPanelID = _id then
6309 Data.ShotPanelID := High(gPanels)
6310 else
6311 if Data.ShotPanelID > _id then
6312 Dec(Data.ShotPanelID);
6313 end;
6314 end;
6315
6316 tmp := gPanels[_id];
6317
6318 for a := _id to High(gPanels)-1 do
6319 gPanels[a] := gPanels[a+1];
6320
6321 gPanels[High(gPanels)] := tmp;
6322
6323 ID := High(gPanels);
6324 end;
6325 end;
6326
6327 procedure TMainForm.aMoveToBack(Sender: TObject);
6328 var
6329 a: Integer;
6330 begin
6331 if SelectedObjects = nil then
6332 Exit;
6333
6334 for a := 0 to High(SelectedObjects) do
6335 with SelectedObjects[a] do
6336 if Live and (ObjectType = OBJECT_PANEL) then
6337 begin
6338 SelectedObjects[0] := SelectedObjects[a];
6339 SetLength(SelectedObjects, 1);
6340 MovePanel(ID, 0);
6341 FillProperty();
6342 Break;
6343 end;
6344 end;
6345
6346 procedure TMainForm.aMoveToFore(Sender: TObject);
6347 var
6348 a: Integer;
6349 begin
6350 if SelectedObjects = nil then
6351 Exit;
6352
6353 for a := 0 to High(SelectedObjects) do
6354 with SelectedObjects[a] do
6355 if Live and (ObjectType = OBJECT_PANEL) then
6356 begin
6357 SelectedObjects[0] := SelectedObjects[a];
6358 SetLength(SelectedObjects, 1);
6359 MovePanel(ID, 1);
6360 FillProperty();
6361 Break;
6362 end;
6363 end;
6364
6365 procedure TMainForm.aSaveMapAsExecute(Sender: TObject);
6366 var
6367 idx: Integer;
6368 begin
6369 SaveDialog.Filter := _lc[I_FILE_FILTER_WAD];
6370
6371 if not SaveDialog.Execute() then
6372 Exit;
6373
6374 SaveMapForm.GetMaps(SaveDialog.FileName, True);
6375
6376 if SaveMapForm.ShowModal() <> mrOK then
6377 Exit;
6378
6379 SaveDialog.InitialDir := ExtractFileDir(SaveDialog.FileName);
6380 OpenedMap := SaveDialog.FileName+':\'+SaveMapForm.eMapName.Text;
6381 OpenedWAD := SaveDialog.FileName;
6382
6383 idx := RecentFiles.IndexOf(OpenedMap);
6384 // Такая карта уже недавно открывалась:
6385 if idx >= 0 then
6386 RecentFiles.Delete(idx);
6387 RecentFiles.Insert(0, OpenedMap);
6388 RefreshRecentMenu;
6389
6390 SaveMap(OpenedMap);
6391
6392 gMapInfo.FileName := SaveDialog.FileName;
6393 gMapInfo.MapName := SaveMapForm.eMapName.Text;
6394 UpdateCaption(gMapInfo.Name, ExtractFileName(gMapInfo.FileName), gMapInfo.MapName);
6395 end;
6396
6397 procedure TMainForm.aSelectAllExecute(Sender: TObject);
6398 var
6399 a: Integer;
6400 begin
6401 RemoveSelectFromObjects();
6402
6403 case pcObjects.ActivePageIndex+1 of
6404 OBJECT_PANEL:
6405 if gPanels <> nil then
6406 for a := 0 to High(gPanels) do
6407 if gPanels[a].PanelType <> PANEL_NONE then
6408 SelectObject(OBJECT_PANEL, a, True);
6409 OBJECT_ITEM:
6410 if gItems <> nil then
6411 for a := 0 to High(gItems) do
6412 if gItems[a].ItemType <> ITEM_NONE then
6413 SelectObject(OBJECT_ITEM, a, True);
6414 OBJECT_MONSTER:
6415 if gMonsters <> nil then
6416 for a := 0 to High(gMonsters) do
6417 if gMonsters[a].MonsterType <> MONSTER_NONE then
6418 SelectObject(OBJECT_MONSTER, a, True);
6419 OBJECT_AREA:
6420 if gAreas <> nil then
6421 for a := 0 to High(gAreas) do
6422 if gAreas[a].AreaType <> AREA_NONE then
6423 SelectObject(OBJECT_AREA, a, True);
6424 OBJECT_TRIGGER:
6425 if gTriggers <> nil then
6426 for a := 0 to High(gTriggers) do
6427 if gTriggers[a].TriggerType <> TRIGGER_NONE then
6428 SelectObject(OBJECT_TRIGGER, a, True);
6429 end;
6430
6431 RecountSelectedObjects();
6432 end;
6433
6434 procedure TMainForm.tbGridOnClick(Sender: TObject);
6435 begin
6436 DotEnable := not DotEnable;
6437 (Sender as TToolButton).Down := DotEnable;
6438 end;
6439
6440 procedure TMainForm.OnIdle(Sender: TObject; var Done: Boolean);
6441 begin
6442 // FIXME: this is a shitty hack
6443 if not gDataLoaded then
6444 begin
6445 e_WriteLog('Init OpenGL', MSG_NOTIFY);
6446 e_InitGL();
6447 e_WriteLog('Loading data', MSG_NOTIFY);
6448 LoadStdFont('STDTXT', 'STDFONT', gEditorFont);
6449 e_WriteLog('Loading more data', MSG_NOTIFY);
6450 LoadData();
6451 e_WriteLog('Loading even more data', MSG_NOTIFY);
6452 gDataLoaded := True;
6453 MainForm.FormResize(nil);
6454 end;
6455 Draw();
6456 end;
6457
6458 procedure TMainForm.miMapPreviewClick(Sender: TObject);
6459 begin
6460 if PreviewMode = 2 then
6461 Exit;
6462
6463 if PreviewMode = 0 then
6464 begin
6465 Splitter2.Visible := False;
6466 Splitter1.Visible := False;
6467 StatusBar.Visible := False;
6468 PanelObjs.Visible := False;
6469 PanelProps.Visible := False;
6470 MainToolBar.Visible := False;
6471 sbHorizontal.Visible := False;
6472 sbVertical.Visible := False;
6473 end
6474 else
6475 begin
6476 StatusBar.Visible := True;
6477 PanelObjs.Visible := True;
6478 PanelProps.Visible := True;
6479 Splitter2.Visible := True;
6480 Splitter1.Visible := True;
6481 MainToolBar.Visible := True;
6482 sbHorizontal.Visible := True;
6483 sbVertical.Visible := True;
6484 end;
6485
6486 PreviewMode := PreviewMode xor 1;
6487 (Sender as TMenuItem).Checked := PreviewMode > 0;
6488
6489 FormResize(Self);
6490 end;
6491
6492 procedure TMainForm.miLayer1Click(Sender: TObject);
6493 begin
6494 SwitchLayer(LAYER_BACK);
6495 end;
6496
6497 procedure TMainForm.miLayer2Click(Sender: TObject);
6498 begin
6499 SwitchLayer(LAYER_WALLS);
6500 end;
6501
6502 procedure TMainForm.miLayer3Click(Sender: TObject);
6503 begin
6504 SwitchLayer(LAYER_FOREGROUND);
6505 end;
6506
6507 procedure TMainForm.miLayer4Click(Sender: TObject);
6508 begin
6509 SwitchLayer(LAYER_STEPS);
6510 end;
6511
6512 procedure TMainForm.miLayer5Click(Sender: TObject);
6513 begin
6514 SwitchLayer(LAYER_WATER);
6515 end;
6516
6517 procedure TMainForm.miLayer6Click(Sender: TObject);
6518 begin
6519 SwitchLayer(LAYER_ITEMS);
6520 end;
6521
6522 procedure TMainForm.miLayer7Click(Sender: TObject);
6523 begin
6524 SwitchLayer(LAYER_MONSTERS);
6525 end;
6526
6527 procedure TMainForm.miLayer8Click(Sender: TObject);
6528 begin
6529 SwitchLayer(LAYER_AREAS);
6530 end;
6531
6532 procedure TMainForm.miLayer9Click(Sender: TObject);
6533 begin
6534 SwitchLayer(LAYER_TRIGGERS);
6535 end;
6536
6537 procedure TMainForm.tbShowClick(Sender: TObject);
6538 var
6539 a: Integer;
6540 b: Boolean;
6541 begin
6542 b := True;
6543 for a := 0 to High(LayerEnabled) do
6544 b := b and LayerEnabled[a];
6545
6546 b := not b;
6547
6548 ShowLayer(LAYER_BACK, b);
6549 ShowLayer(LAYER_WALLS, b);
6550 ShowLayer(LAYER_FOREGROUND, b);
6551 ShowLayer(LAYER_STEPS, b);
6552 ShowLayer(LAYER_WATER, b);
6553 ShowLayer(LAYER_ITEMS, b);
6554 ShowLayer(LAYER_MONSTERS, b);
6555 ShowLayer(LAYER_AREAS, b);
6556 ShowLayer(LAYER_TRIGGERS, b);
6557 end;
6558
6559 procedure TMainForm.miMiniMapClick(Sender: TObject);
6560 begin
6561 SwitchMap();
6562 end;
6563
6564 procedure TMainForm.miSwitchGridClick(Sender: TObject);
6565 begin
6566 if DotStep = DotStepOne then
6567 DotStep := DotStepTwo
6568 else
6569 DotStep := DotStepOne;
6570
6571 MousePos.X := (MousePos.X div DotStep) * DotStep;
6572 MousePos.Y := (MousePos.Y div DotStep) * DotStep;
6573 end;
6574
6575 procedure TMainForm.miShowEdgesClick(Sender: TObject);
6576 begin
6577 ShowEdges();
6578 end;
6579
6580 procedure TMainForm.miSnapToGridClick(Sender: TObject);
6581 begin
6582 SnapToGrid := not SnapToGrid;
6583
6584 MousePos.X := (MousePos.X div DotStep) * DotStep;
6585 MousePos.Y := (MousePos.Y div DotStep) * DotStep;
6586
6587 miSnapToGrid.Checked := SnapToGrid;
6588 end;
6589
6590 procedure TMainForm.minexttabClick(Sender: TObject);
6591 begin
6592 if pcObjects.ActivePageIndex < pcObjects.PageCount-1 then
6593 pcObjects.ActivePageIndex := pcObjects.ActivePageIndex+1
6594 else
6595 pcObjects.ActivePageIndex := 0;
6596 end;
6597
6598 procedure TMainForm.miSaveMiniMapClick(Sender: TObject);
6599 begin
6600 SaveMiniMapForm.ShowModal();
6601 end;
6602
6603 procedure TMainForm.bClearTextureClick(Sender: TObject);
6604 begin
6605 lbTextureList.ItemIndex := -1;
6606 lTextureWidth.Caption := '';
6607 lTextureHeight.Caption := '';
6608 end;
6609
6610 procedure TMainForm.miPackMapClick(Sender: TObject);
6611 begin
6612 PackMapForm.ShowModal();
6613 end;
6614
6615 procedure TMainForm.miMapTestSettingsClick(Sender: TObject);
6616 begin
6617 MapTestForm.ShowModal();
6618 end;
6619
6620 procedure TMainForm.miTestMapClick(Sender: TObject);
6621 var
6622 cmd, mapWAD, mapToRun, tempWAD: String;
6623 opt: LongWord;
6624 time: Integer;
6625 proc: TProcessUTF8;
6626 res: Boolean;
6627 begin
6628 mapToRun := '';
6629 if OpenedMap <> '' then
6630 begin
6631 // Указываем текущую карту для теста:
6632 g_ProcessResourceStr(OpenedMap, @mapWAD, nil, @mapToRun);
6633 mapToRun := mapWAD + ':\' + mapToRun;
6634 mapToRun := ExtractRelativePath(ExtractFilePath(TestD2dExe) + 'maps/', mapToRun);
6635 end;
6636 // Сохраняем временную карту:
6637 time := 0;
6638 repeat
6639 mapWAD := ExtractFilePath(TestD2dExe) + Format('maps/temp%.4d.wad', [time]);
6640 Inc(time);
6641 until not FileExists(mapWAD);
6642 tempWAD := mapWAD + ':\' + TEST_MAP_NAME;
6643 SaveMap(tempWAD);
6644
6645 tempWAD := ExtractRelativePath(ExtractFilePath(TestD2dExe) + 'maps/', tempWAD);
6646 // Если карта не была открыта, указываем временную в качестве текущей:
6647 if mapToRun = '' then
6648 mapToRun := tempWAD;
6649
6650 // Опции игры:
6651 opt := 32 + 64;
6652 if TestOptionsTwoPlayers then
6653 opt := opt + 1;
6654 if TestOptionsTeamDamage then
6655 opt := opt + 2;
6656 if TestOptionsAllowExit then
6657 opt := opt + 4;
6658 if TestOptionsWeaponStay then
6659 opt := opt + 8;
6660 if TestOptionsMonstersDM then
6661 opt := opt + 16;
6662
6663 // Составляем командную строку:
6664 cmd := '-map "' + mapToRun + '"';
6665 cmd := cmd + ' -testmap "' + tempWAD + '"';
6666 cmd := cmd + ' -gm ' + TestGameMode;
6667 cmd := cmd + ' -limt ' + TestLimTime;
6668 cmd := cmd + ' -lims ' + TestLimScore;
6669 cmd := cmd + ' -opt ' + IntToStr(opt);
6670
6671 if TestMapOnce then
6672 cmd := cmd + ' --close';
6673
6674 cmd := cmd + ' --debug';
6675
6676 // Запускаем:
6677 proc := TProcessUTF8.Create(nil);
6678 proc.Executable := TestD2dExe;
6679 proc.Parameters.Add(cmd);
6680 res := True;
6681 try
6682 proc.Execute();
6683 except
6684 res := False;
6685 end;
6686 if res then
6687 begin
6688 Application.Minimize();
6689 proc.WaitOnExit();
6690 end;
6691 if (not res) or (proc.ExitCode < 0) then
6692 begin
6693 MessageBox(0, 'FIXME',
6694 PChar(_lc[I_MSG_EXEC_ERROR]),
6695 MB_OK or MB_ICONERROR);
6696 end;
6697 proc.Free();
6698
6699 SysUtils.DeleteFile(mapWAD);
6700 Application.Restore();
6701 end;
6702
6703 procedure TMainForm.sbVerticalScroll(Sender: TObject;
6704 ScrollCode: TScrollCode; var ScrollPos: Integer);
6705 begin
6706 MapOffset.Y := -Normalize16(sbVertical.Position);
6707 end;
6708
6709 procedure TMainForm.sbHorizontalScroll(Sender: TObject;
6710 ScrollCode: TScrollCode; var ScrollPos: Integer);
6711 begin
6712 MapOffset.X := -Normalize16(sbHorizontal.Position);
6713 end;
6714
6715 procedure TMainForm.miOpenWadMapClick(Sender: TObject);
6716 begin
6717 if OpenedWAD <> '' then
6718 begin
6719 OpenMap(OpenedWAD, '');
6720 end;
6721 end;
6722
6723 procedure TMainForm.selectall1Click(Sender: TObject);
6724 var
6725 a: Integer;
6726 begin
6727 RemoveSelectFromObjects();
6728
6729 if gPanels <> nil then
6730 for a := 0 to High(gPanels) do
6731 if gPanels[a].PanelType <> PANEL_NONE then
6732 SelectObject(OBJECT_PANEL, a, True);
6733
6734 if gItems <> nil then
6735 for a := 0 to High(gItems) do
6736 if gItems[a].ItemType <> ITEM_NONE then
6737 SelectObject(OBJECT_ITEM, a, True);
6738
6739 if gMonsters <> nil then
6740 for a := 0 to High(gMonsters) do
6741 if gMonsters[a].MonsterType <> MONSTER_NONE then
6742 SelectObject(OBJECT_MONSTER, a, True);
6743
6744 if gAreas <> nil then
6745 for a := 0 to High(gAreas) do
6746 if gAreas[a].AreaType <> AREA_NONE then
6747 SelectObject(OBJECT_AREA, a, True);
6748
6749 if gTriggers <> nil then
6750 for a := 0 to High(gTriggers) do
6751 if gTriggers[a].TriggerType <> TRIGGER_NONE then
6752 SelectObject(OBJECT_TRIGGER, a, True);
6753
6754 RecountSelectedObjects();
6755 end;
6756
6757 procedure TMainForm.Splitter1CanResize(Sender: TObject;
6758 var NewSize: Integer; var Accept: Boolean);
6759 begin
6760 Accept := (NewSize > 140);
6761 end;
6762
6763 procedure TMainForm.Splitter2CanResize(Sender: TObject;
6764 var NewSize: Integer; var Accept: Boolean);
6765 begin
6766 Accept := (NewSize > 110);
6767 end;
6768
6769 procedure TMainForm.vleObjectPropertyEnter(Sender: TObject);
6770 begin
6771 EditingProperties := True;
6772 end;
6773
6774 procedure TMainForm.vleObjectPropertyExit(Sender: TObject);
6775 begin
6776 EditingProperties := False;
6777 end;
6778
6779 procedure TMainForm.FormKeyUp(Sender: TObject; var Key: Word;
6780 Shift: TShiftState);
6781 begin
6782 // Объекты передвигались:
6783 if MainForm.ActiveControl = RenderPanel then
6784 begin
6785 if (Key = VK_NUMPAD4) or
6786 (Key = VK_NUMPAD6) or
6787 (Key = VK_NUMPAD8) or
6788 (Key = VK_NUMPAD5) or
6789 (Key = Ord('V')) then
6790 FillProperty();
6791 end;
6792 // Быстрое превью карты:
6793 if Key = Ord('E') then
6794 begin
6795 if PreviewMode = 2 then
6796 PreviewMode := 0;
6797 end;
6798 RenderPanelMouseMove(Sender, Shift, RenderMousePos().X, RenderMousePos().Y);
6799 end;
6800
6801 end.
[MIRROR] Doom2DF editor ported to FPC/Lazarus
[25/02/2024 19:55:35]
DEADSOFTWARE 2012-2024