DEADSOFTWARE

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