3 {$INCLUDE ../shared/a_modes.inc}
8 LCLIntf
, LCLType
, SysUtils
, Variants
, Classes
, Graphics
,
9 Controls
, Forms
, Dialogs
, StdCtrls
, Buttons
,
10 ComCtrls
, ValEdit
, Types
, Menus
, ExtCtrls
,
11 CheckLst
, Grids
, OpenGLContext
, Utils
, UTF8Process
;
17 TMainForm
= class(TForm
)
22 miMenuFile
: TMenuItem
;
26 miSaveMapAs
: TMenuItem
;
27 miOpenWadMap
: TMenuItem
;
29 miReopenMap
: TMenuItem
;
30 miSaveMiniMap
: TMenuItem
;
31 miDeleteMap
: TMenuItem
;
36 miMenuEdit
: TMenuItem
;
43 miSelectAll
: TMenuItem
;
48 miMenuTools
: TMenuItem
;
49 miSnapToGrid
: TMenuItem
;
51 miSwitchGrid
: TMenuItem
;
52 miShowEdges
: TMenuItem
;
64 miMenuService
: TMenuItem
;
65 miCheckMap
: TMenuItem
;
66 miOptimmization
: TMenuItem
;
67 miMapPreview
: TMenuItem
;
70 miMenuSettings
: TMenuItem
;
71 miMapOptions
: TMenuItem
;
75 miMapTestSettings
: TMenuItem
;
77 miMenuHelp
: TMenuItem
;
79 // Скрытый пункт меню для Ctrl+Tab:
83 // Панель инструментов:
84 MainToolBar
: TToolBar
;
86 pLoadProgress
: TPanel
;
87 RenderPanel
: TOpenGLControl
;
88 tbNewMap
: TToolButton
;
89 tbOpenMap
: TToolButton
;
90 tbSaveMap
: TToolButton
;
91 tbOpenWadMap
: TToolButton
;
93 tbShowMap
: TToolButton
;
97 tbGridOn
: TToolButton
;
100 tbTestMap
: TToolButton
;
101 // Всплывающее меню для кнопки слоев:
103 miLayerP1
: TMenuItem
;
104 miLayerP2
: TMenuItem
;
105 miLayerP3
: TMenuItem
;
106 miLayerP4
: TMenuItem
;
107 miLayerP5
: TMenuItem
;
108 miLayerP6
: TMenuItem
;
109 miLayerP7
: TMenuItem
;
110 miLayerP8
: TMenuItem
;
111 miLayerP9
: TMenuItem
;
112 // Всплывающее меню для кнопки теста карты:
113 pmMapTest
: TPopupMenu
;
114 miMapTestPMSet
: TMenuItem
;
119 sbHorizontal
: TScrollBar
;
120 sbVertical
: TScrollBar
;
124 // Панель применения свойств:
125 PanelPropApply
: TPanel
;
126 bApplyProperty
: TButton
;
127 MapTestTimer
: TTimer
;
128 // Редактор свойств объектов:
129 vleObjectProperty
: TValueListEditor
;
131 // Панель объектов - вкладки:
133 pcObjects
: TPageControl
;
136 lbTextureList
: TListBox
;
137 // Панель настройки текстур:
138 PanelTextures
: TPanel
;
140 lTextureWidth
: TLabel
;
142 lTextureHeight
: TLabel
;
143 cbPreview
: TCheckBox
;
144 bbAddTexture
: TBitBtn
;
145 bbRemoveTexture
: TBitBtn
;
146 bClearTexture
: TButton
;
147 // Панель типов панелей:
148 PanelPanelType
: TPanel
;
149 lbPanelType
: TListBox
;
150 // Вкладка "Предметы":
152 lbItemList
: TListBox
;
155 // Вкладка "Монстры":
156 tsMonsters
: TTabSheet
;
157 lbMonsterList
: TListBox
;
158 rbMonsterLeft
: TRadioButton
;
159 rbMonsterRight
: TRadioButton
;
160 // Вкладка "Области":
162 lbAreasList
: TListBox
;
163 rbAreaLeft
: TRadioButton
;
164 rbAreaRight
: TRadioButton
;
165 // Вкладка "Триггеры":
166 tsTriggers
: TTabSheet
;
167 lbTriggersList
: TListBox
;
168 clbActivationType
: TCheckListBox
;
169 clbKeys
: TCheckListBox
;
172 Splitter1
: TSplitter
;
173 Splitter2
: TSplitter
;
174 StatusBar
: TStatusBar
;
176 // Специальные объекты:
177 ImageList
: TImageList
;
178 ilToolbar
: TImageList
;
179 OpenDialog
: TOpenDialog
;
180 SaveDialog
: TSaveDialog
;
181 selectall1
: TMenuItem
;
182 ColorDialog
: TColorDialog
;
184 procedure aAboutExecute(Sender
: TObject
);
185 procedure aCheckMapExecute(Sender
: TObject
);
186 procedure aMoveToFore(Sender
: TObject
);
187 procedure aMoveToBack(Sender
: TObject
);
188 procedure aCopyObjectExecute(Sender
: TObject
);
189 procedure aCutObjectExecute(Sender
: TObject
);
190 procedure aEditorOptionsExecute(Sender
: TObject
);
191 procedure aExitExecute(Sender
: TObject
);
192 procedure aMapOptionsExecute(Sender
: TObject
);
193 procedure aNewMapExecute(Sender
: TObject
);
194 procedure aOpenMapExecute(Sender
: TObject
);
195 procedure aOptimizeExecute(Sender
: TObject
);
196 procedure aPasteObjectExecute(Sender
: TObject
);
197 procedure aSelectAllExecute(Sender
: TObject
);
198 procedure aSaveMapExecute(Sender
: TObject
);
199 procedure aSaveMapAsExecute(Sender
: TObject
);
200 procedure aUndoExecute(Sender
: TObject
);
201 procedure aDeleteMap(Sender
: TObject
);
202 procedure bApplyPropertyClick(Sender
: TObject
);
203 procedure bbAddTextureClick(Sender
: TObject
);
204 procedure bbRemoveTextureClick(Sender
: TObject
);
205 procedure FormActivate(Sender
: TObject
);
206 procedure FormCloseQuery(Sender
: TObject
; var CanClose
: Boolean);
207 procedure FormCreate(Sender
: TObject
);
208 procedure FormDestroy(Sender
: TObject
);
209 procedure FormDropFiles(Sender
: TObject
; const FileNames
: array of String);
210 procedure FormKeyDown(Sender
: TObject
; var Key
: Word; Shift
: TShiftState
);
211 procedure FormResize(Sender
: TObject
);
212 procedure lbTextureListClick(Sender
: TObject
);
213 procedure lbTextureListDrawItem(Control
: TWinControl
; Index
: Integer;
214 ARect
: TRect
; State
: TOwnerDrawState
);
215 procedure miReopenMapClick(Sender
: TObject
);
216 procedure RenderPanelMouseDown(Sender
: TObject
; Button
: TMouseButton
; Shift
: TShiftState
; X
, Y
: Integer);
217 procedure RenderPanelMouseMove(Sender
: TObject
; Shift
: TShiftState
; X
, Y
: Integer);
218 procedure RenderPanelMouseUp(Sender
: TObject
; Button
: TMouseButton
; Shift
: TShiftState
; X
, Y
: Integer);
219 procedure RenderPanelPaint(Sender
: TObject
);
220 procedure RenderPanelResize(Sender
: TObject
);
221 procedure Splitter1Moved(Sender
: TObject
);
222 procedure MapTestCheck(Sender
: TObject
);
223 procedure vleObjectPropertyEditButtonClick(Sender
: TObject
);
224 procedure vleObjectPropertyApply(Sender
: TObject
);
225 procedure vleObjectPropertyGetPickList(Sender
: TObject
; const KeyName
: String; Values
: TStrings
);
226 procedure vleObjectPropertyKeyDown(Sender
: TObject
; var Key
: Word;
228 procedure tbGridOnClick(Sender
: TObject
);
229 procedure miMapPreviewClick(Sender
: TObject
);
230 procedure miLayer1Click(Sender
: TObject
);
231 procedure miLayer2Click(Sender
: TObject
);
232 procedure miLayer3Click(Sender
: TObject
);
233 procedure miLayer4Click(Sender
: TObject
);
234 procedure miLayer5Click(Sender
: TObject
);
235 procedure miLayer6Click(Sender
: TObject
);
236 procedure miLayer7Click(Sender
: TObject
);
237 procedure miLayer8Click(Sender
: TObject
);
238 procedure miLayer9Click(Sender
: TObject
);
239 procedure tbShowClick(Sender
: TObject
);
240 procedure miSnapToGridClick(Sender
: TObject
);
241 procedure miMiniMapClick(Sender
: TObject
);
242 procedure miSwitchGridClick(Sender
: TObject
);
243 procedure miShowEdgesClick(Sender
: TObject
);
244 procedure minexttabClick(Sender
: TObject
);
245 procedure miSaveMiniMapClick(Sender
: TObject
);
246 procedure bClearTextureClick(Sender
: TObject
);
247 procedure miPackMapClick(Sender
: TObject
);
248 procedure aRecentFileExecute(Sender
: TObject
);
249 procedure miMapTestSettingsClick(Sender
: TObject
);
250 procedure miTestMapClick(Sender
: TObject
);
251 procedure sbVerticalScroll(Sender
: TObject
; ScrollCode
: TScrollCode
;
252 var ScrollPos
: Integer);
253 procedure sbHorizontalScroll(Sender
: TObject
; ScrollCode
: TScrollCode
;
254 var ScrollPos
: Integer);
255 procedure miOpenWadMapClick(Sender
: TObject
);
256 procedure selectall1Click(Sender
: TObject
);
257 procedure Splitter1CanResize(Sender
: TObject
; var NewSize
: Integer;
258 var Accept
: Boolean);
259 procedure Splitter2CanResize(Sender
: TObject
; var NewSize
: Integer;
260 var Accept
: Boolean);
261 procedure vleObjectPropertyEnter(Sender
: TObject
);
262 procedure vleObjectPropertyExit(Sender
: TObject
);
263 procedure FormKeyUp(Sender
: TObject
; var Key
: Word;
267 procedure OnIdle(Sender
: TObject
; var Done
: Boolean);
269 procedure RefreshRecentMenu();
270 procedure OpenMapFile(FileName
: String);
271 function RenderMousePos(): TPoint
;
272 procedure RecountSelectedObjects();
278 LAYER_FOREGROUND
= 2;
286 TEST_MAP_NAME
= '$$$_TEST_$$$';
287 LANGUAGE_FILE_NAME
= '_Editor.txt';
298 DotStepOne
, DotStepTwo
: Word;
300 DrawTexturePanel
: Boolean;
301 DrawPanelSize
: Boolean;
303 PreviewColor
: TColor
;
304 UseCheckerboard
: Boolean;
306 RecentCount
: Integer;
307 RecentFiles
: TStringList
;
308 slInvalidTextures
: TStringList
;
310 TestGameMode
: String;
312 TestLimScore
: String;
313 TestOptionsTwoPlayers
: Boolean;
314 TestOptionsTeamDamage
: Boolean;
315 TestOptionsAllowExit
: Boolean;
316 TestOptionsWeaponStay
: Boolean;
317 TestOptionsMonstersDM
: Boolean;
318 TestD2dExe
, TestD2DArgs
: String;
319 TestMapOnce
: Boolean;
321 LayerEnabled
: Array [LAYER_BACK
..LAYER_TRIGGERS
] of Boolean =
322 (True, True, True, True, True, True, True, True, True);
323 ContourEnabled
: Array [LAYER_BACK
..LAYER_TRIGGERS
] of Boolean =
324 (False, False, False, False, False, False, False, False, False);
325 PreviewMode
: Byte = 0;
331 procedure OpenMap(FileName
: String; mapN
: String);
332 function AddTexture(aWAD
, aSection
, aTex
: String; silent
: Boolean): Boolean;
333 procedure RemoveSelectFromObjects();
334 procedure ChangeShownProperty(Name
: String; NewValue
: String);
339 f_options
, e_graphics
, e_log
, GL
, Math
,
340 f_mapoptions
, g_basic
, f_about
, f_mapoptimization
,
341 f_mapcheck
, f_addresource_texture
, g_textures
,
342 f_activationtype
, f_keys
, wadreader
, fileutil
,
343 MAPREADER
, f_selectmap
, f_savemap
, WADEDITOR
, MAPDEF
,
344 g_map
, f_saveminimap
, f_addresource
, CONFIG
, f_packmap
,
345 f_addresource_sound
, f_maptest
, f_choosetype
,
346 g_language
, f_selectlang
, ClipBrd
, g_resources
, g_options
;
349 UNDO_DELETE_PANEL
= 1;
350 UNDO_DELETE_ITEM
= 2;
351 UNDO_DELETE_AREA
= 3;
352 UNDO_DELETE_MONSTER
= 4;
353 UNDO_DELETE_TRIGGER
= 5;
357 UNDO_ADD_MONSTER
= 9;
358 UNDO_ADD_TRIGGER
= 10;
359 UNDO_MOVE_PANEL
= 11;
362 UNDO_MOVE_MONSTER
= 14;
363 UNDO_MOVE_TRIGGER
= 15;
364 UNDO_RESIZE_PANEL
= 16;
365 UNDO_RESIZE_TRIGGER
= 17;
367 MOUSEACTION_NONE
= 0;
368 MOUSEACTION_DRAWPANEL
= 1;
369 MOUSEACTION_DRAWTRIGGER
= 2;
370 MOUSEACTION_MOVEOBJ
= 3;
371 MOUSEACTION_RESIZE
= 4;
372 MOUSEACTION_MOVEMAP
= 5;
373 MOUSEACTION_DRAWPRESS
= 6;
374 MOUSEACTION_NOACTION
= 7;
377 RESIZETYPE_VERTICAL
= 1;
378 RESIZETYPE_HORIZONTAL
= 2;
387 SELECTFLAG_TELEPORT
= 1;
389 SELECTFLAG_TEXTURE
= 3;
391 SELECTFLAG_MONSTER
= 5;
392 SELECTFLAG_SPAWNPOINT
= 6;
393 SELECTFLAG_SHOTPANEL
= 7;
394 SELECTFLAG_SELECTED
= 8;
396 RECENT_FILES_MENU_START
= 12;
398 CLIPBOARD_SIG
= 'DF:ED';
404 UNDO_DELETE_PANEL
: (Panel
: ^TPanel
);
405 UNDO_DELETE_ITEM
: (Item
: TItem
);
406 UNDO_DELETE_AREA
: (Area
: TArea
);
407 UNDO_DELETE_MONSTER
: (Monster
: TMonster
);
408 UNDO_DELETE_TRIGGER
: (Trigger
: TTrigger
);
413 UNDO_ADD_TRIGGER
: (AddID
: DWORD
);
418 UNDO_MOVE_TRIGGER
: (MoveID
: DWORD
; dX
, dY
: Integer);
420 UNDO_RESIZE_TRIGGER
: (ResizeID
: DWORD
; dW
, dH
: Integer);
427 OBJECT_PANEL
: (Panel
: ^TPanel
);
428 OBJECT_ITEM
: (Item
: TItem
);
429 OBJECT_AREA
: (Area
: TArea
);
430 OBJECT_MONSTER
: (Monster
: TMonster
);
431 OBJECT_TRIGGER
: (Trigger
: TTrigger
);
434 TCopyRecArray
= Array of TCopyRec
;
438 gDataLoaded
: Boolean = False;
439 ShowMap
: Boolean = False;
440 DrawRect
: PRect
= nil;
441 SnapToGrid
: Boolean = True;
443 MousePos
: Types
.TPoint
;
444 LastMovePoint
: Types
.TPoint
;
448 MouseLDownPos
: Types
.TPoint
;
449 MouseRDownPos
: Types
.TPoint
;
450 MouseMDownPos
: Types
.TPoint
;
452 SelectFlag
: Byte = SELECTFLAG_NONE
;
453 MouseAction
: Byte = MOUSEACTION_NONE
;
454 ResizeType
: Byte = RESIZETYPE_NONE
;
455 ResizeDirection
: Byte = RESIZEDIR_NONE
;
457 DrawPressRect
: Boolean = False;
458 EditingProperties
: Boolean = False;
460 UndoBuffer
: Array of Array of TUndoRec
= nil;
462 MapTestProcess
: TProcessUTF8
;
467 //----------------------------------------
468 //Далее идут вспомогательные процедуры
469 //----------------------------------------
471 function NameToBool(Name
: String): Boolean;
473 if Name
= BoolNames
[True] then
479 function NameToDir(Name
: String): TDirection
;
481 if Name
= DirNames
[D_LEFT
] then
487 function NameToDirAdv(Name
: String): Byte;
489 if Name
= DirNamesAdv
[1] then
492 if Name
= DirNamesAdv
[2] then
495 if Name
= DirNamesAdv
[3] then
501 function ActivateToStr(ActivateType
: Byte): String;
505 if ByteBool(ACTIVATE_PLAYERCOLLIDE
and ActivateType
) then
506 Result
:= Result
+ '+PC';
507 if ByteBool(ACTIVATE_MONSTERCOLLIDE
and ActivateType
) then
508 Result
:= Result
+ '+MC';
509 if ByteBool(ACTIVATE_PLAYERPRESS
and ActivateType
) then
510 Result
:= Result
+ '+PP';
511 if ByteBool(ACTIVATE_MONSTERPRESS
and ActivateType
) then
512 Result
:= Result
+ '+MP';
513 if ByteBool(ACTIVATE_SHOT
and ActivateType
) then
514 Result
:= Result
+ '+SH';
515 if ByteBool(ACTIVATE_NOMONSTER
and ActivateType
) then
516 Result
:= Result
+ '+NM';
518 if (Result
<> '') and (Result
[1] = '+') then
519 Delete(Result
, 1, 1);
522 function StrToActivate(Str
: String): Byte;
526 if Pos('PC', Str
) > 0 then
527 Result
:= ACTIVATE_PLAYERCOLLIDE
;
528 if Pos('MC', Str
) > 0 then
529 Result
:= Result
or ACTIVATE_MONSTERCOLLIDE
;
530 if Pos('PP', Str
) > 0 then
531 Result
:= Result
or ACTIVATE_PLAYERPRESS
;
532 if Pos('MP', Str
) > 0 then
533 Result
:= Result
or ACTIVATE_MONSTERPRESS
;
534 if Pos('SH', Str
) > 0 then
535 Result
:= Result
or ACTIVATE_SHOT
;
536 if Pos('NM', Str
) > 0 then
537 Result
:= Result
or ACTIVATE_NOMONSTER
;
540 function KeyToStr(Key
: Byte): String;
544 if ByteBool(KEY_RED
and Key
) then
545 Result
:= Result
+ '+RK';
546 if ByteBool(KEY_GREEN
and Key
) then
547 Result
:= Result
+ '+GK';
548 if ByteBool(KEY_BLUE
and Key
) then
549 Result
:= Result
+ '+BK';
550 if ByteBool(KEY_REDTEAM
and Key
) then
551 Result
:= Result
+ '+RT';
552 if ByteBool(KEY_BLUETEAM
and Key
) then
553 Result
:= Result
+ '+BT';
555 if (Result
<> '') and (Result
[1] = '+') then
556 Delete(Result
, 1, 1);
559 function StrToKey(Str
: String): Byte;
563 if Pos('RK', Str
) > 0 then
565 if Pos('GK', Str
) > 0 then
566 Result
:= Result
or KEY_GREEN
;
567 if Pos('BK', Str
) > 0 then
568 Result
:= Result
or KEY_BLUE
;
569 if Pos('RT', Str
) > 0 then
570 Result
:= Result
or KEY_REDTEAM
;
571 if Pos('BT', Str
) > 0 then
572 Result
:= Result
or KEY_BLUETEAM
;
575 function EffectToStr(Effect
: Byte): String;
577 if Effect
in [EFFECT_TELEPORT
..EFFECT_FIRE
] then
578 Result
:= EffectNames
[Effect
]
580 Result
:= EffectNames
[EFFECT_NONE
];
583 function StrToEffect(Str
: String): Byte;
587 Result
:= EFFECT_NONE
;
588 for i
:= EFFECT_TELEPORT
to EFFECT_FIRE
do
589 if EffectNames
[i
] = Str
then
596 function MonsterToStr(MonType
: Byte): String;
598 if MonType
in [MONSTER_DEMON
..MONSTER_MAN
] then
599 Result
:= MonsterNames
[MonType
]
601 Result
:= MonsterNames
[MONSTER_ZOMBY
];
604 function StrToMonster(Str
: String): Byte;
608 Result
:= MONSTER_ZOMBY
;
609 for i
:= MONSTER_DEMON
to MONSTER_MAN
do
610 if MonsterNames
[i
] = Str
then
617 function ItemToStr(ItemType
: Byte): String;
619 if ItemType
in [ITEM_MEDKIT_SMALL
..ITEM_MAX
] then
620 Result
:= ItemNames
[ItemType
]
622 Result
:= ItemNames
[ITEM_AMMO_BULLETS
];
625 function StrToItem(Str
: String): Byte;
629 Result
:= ITEM_AMMO_BULLETS
;
630 for i
:= ITEM_MEDKIT_SMALL
to ITEM_MAX
do
631 if ItemNames
[i
] = Str
then
638 function ShotToStr(ShotType
: Byte): String;
640 if ShotType
in [TRIGGER_SHOT_PISTOL
..TRIGGER_SHOT_MAX
] then
641 Result
:= ShotNames
[ShotType
]
643 Result
:= ShotNames
[TRIGGER_SHOT_PISTOL
];
646 function StrToShot(Str
: String): Byte;
650 Result
:= TRIGGER_SHOT_PISTOL
;
651 for i
:= TRIGGER_SHOT_PISTOL
to TRIGGER_SHOT_MAX
do
652 if ShotNames
[i
] = Str
then
659 function SelectedObjectCount(): Word;
665 if SelectedObjects
= nil then
668 for a
:= 0 to High(SelectedObjects
) do
669 if SelectedObjects
[a
].Live
then
670 Result
:= Result
+ 1;
673 function GetFirstSelected(): Integer;
679 if SelectedObjects
= nil then
682 for a
:= 0 to High(SelectedObjects
) do
683 if SelectedObjects
[a
].Live
then
690 function Normalize16(x
: Integer): Integer;
692 Result
:= (x
div 16) * 16;
695 procedure MoveMap(X
, Y
: Integer);
697 rx
, ry
, ScaleSz
: Integer;
699 with MainForm
.RenderPanel
do
701 ScaleSz
:= 16 div Scale
;
702 // Размер видимой части карты:
703 rx
:= Min(Normalize16(Width
), Normalize16(gMapInfo
.Width
)) div 2;
704 ry
:= Min(Normalize16(Height
), Normalize16(gMapInfo
.Height
)) div 2;
705 // Место клика на мини-карте:
706 MapOffset
.X
:= X
- (Width
- Max(gMapInfo
.Width
div ScaleSz
, 1) - 1);
707 MapOffset
.Y
:= Y
- 1;
708 // Это же место на "большой" карте:
709 MapOffset
.X
:= MapOffset
.X
* ScaleSz
;
710 MapOffset
.Y
:= MapOffset
.Y
* ScaleSz
;
711 // Левый верхний угол новой видимой части карты:
712 MapOffset
.X
:= MapOffset
.X
- rx
;
713 MapOffset
.Y
:= MapOffset
.Y
- ry
;
715 MapOffset
.X
:= EnsureRange(MapOffset
.X
, MainForm
.sbHorizontal
.Min
, MainForm
.sbHorizontal
.Max
);
716 MapOffset
.Y
:= EnsureRange(MapOffset
.Y
, MainForm
.sbVertical
.Min
, MainForm
.sbVertical
.Max
);
718 // MapOffset.X := Normalize16(MapOffset.X);
719 // MapOffset.Y := Normalize16(MapOffset.Y);
722 MainForm
.sbHorizontal
.Position
:= MapOffset
.X
;
723 MainForm
.sbVertical
.Position
:= MapOffset
.Y
;
725 MapOffset
.X
:= -MapOffset
.X
;
726 MapOffset
.Y
:= -MapOffset
.Y
;
731 function IsTexturedPanel(PanelType
: Word): Boolean;
733 Result
:= WordBool(PanelType
and (PANEL_WALL
or PANEL_BACK
or PANEL_FORE
or
734 PANEL_STEP
or PANEL_OPENDOOR
or PANEL_CLOSEDOOR
or
735 PANEL_WATER
or PANEL_ACID1
or PANEL_ACID2
));
738 procedure FillProperty();
743 MainForm
.vleObjectProperty
.Strings
.Clear();
744 MainForm
.RecountSelectedObjects();
746 // Отображаем свойства если выделен только один объект:
747 if SelectedObjectCount() <> 1 then
750 _id
:= GetFirstSelected();
751 if not SelectedObjects
[_id
].Live
then
754 with MainForm
.vleObjectProperty
do
755 with ItemProps
[InsertRow(_lc
[I_PROP_ID
], IntToStr(SelectedObjects
[_id
].ID
), True)] do
757 EditStyle
:= esSimple
;
761 case SelectedObjects
[0].ObjectType
of
764 with MainForm
.vleObjectProperty
,
765 gPanels
[SelectedObjects
[_id
].ID
] do
767 with ItemProps
[InsertRow(_lc
[I_PROP_X
], IntToStr(X
), True)] do
769 EditStyle
:= esSimple
;
773 with ItemProps
[InsertRow(_lc
[I_PROP_Y
], IntToStr(Y
), True)] do
775 EditStyle
:= esSimple
;
779 with ItemProps
[InsertRow(_lc
[I_PROP_WIDTH
], IntToStr(Width
), True)] do
781 EditStyle
:= esSimple
;
785 with ItemProps
[InsertRow(_lc
[I_PROP_HEIGHT
], IntToStr(Height
), True)] do
787 EditStyle
:= esSimple
;
791 with ItemProps
[InsertRow(_lc
[I_PROP_PANEL_TYPE
], GetPanelName(PanelType
), True)] do
793 EditStyle
:= esEllipsis
;
797 if IsTexturedPanel(PanelType
) then
798 begin // Может быть текстура
799 with ItemProps
[InsertRow(_lc
[I_PROP_PANEL_TEX
], TextureName
, True)] do
801 EditStyle
:= esEllipsis
;
805 if TextureName
<> '' then
806 begin // Есть текстура
807 with ItemProps
[InsertRow(_lc
[I_PROP_PANEL_ALPHA
], IntToStr(Alpha
), True)] do
809 EditStyle
:= esSimple
;
813 with ItemProps
[InsertRow(_lc
[I_PROP_PANEL_BLEND
], BoolNames
[Blending
], True)] do
815 EditStyle
:= esPickList
;
825 with MainForm
.vleObjectProperty
,
826 gItems
[SelectedObjects
[_id
].ID
] do
828 with ItemProps
[InsertRow(_lc
[I_PROP_X
], IntToStr(X
), True)] do
830 EditStyle
:= esSimple
;
834 with ItemProps
[InsertRow(_lc
[I_PROP_Y
], IntToStr(Y
), True)] do
836 EditStyle
:= esSimple
;
840 with ItemProps
[InsertRow(_lc
[I_PROP_DM_ONLY
], BoolNames
[OnlyDM
], True)] do
842 EditStyle
:= esPickList
;
846 with ItemProps
[InsertRow(_lc
[I_PROP_ITEM_FALLS
], BoolNames
[Fall
], True)] do
848 EditStyle
:= esPickList
;
856 with MainForm
.vleObjectProperty
,
857 gMonsters
[SelectedObjects
[_id
].ID
] do
859 with ItemProps
[InsertRow(_lc
[I_PROP_X
], IntToStr(X
), True)] do
861 EditStyle
:= esSimple
;
865 with ItemProps
[InsertRow(_lc
[I_PROP_Y
], IntToStr(Y
), True)] do
867 EditStyle
:= esSimple
;
871 with ItemProps
[InsertRow(_lc
[I_PROP_DIRECTION
], DirNames
[Direction
], True)] do
873 EditStyle
:= esPickList
;
881 with MainForm
.vleObjectProperty
,
882 gAreas
[SelectedObjects
[_id
].ID
] do
884 with ItemProps
[InsertRow(_lc
[I_PROP_X
], IntToStr(X
), True)] do
886 EditStyle
:= esSimple
;
890 with ItemProps
[InsertRow(_lc
[I_PROP_Y
], IntToStr(Y
), True)] do
892 EditStyle
:= esSimple
;
896 with ItemProps
[InsertRow(_lc
[I_PROP_DIRECTION
], DirNames
[Direction
], True)] do
898 EditStyle
:= esPickList
;
906 with MainForm
.vleObjectProperty
,
907 gTriggers
[SelectedObjects
[_id
].ID
] do
909 with ItemProps
[InsertRow(_lc
[I_PROP_TR_TYPE
], GetTriggerName(TriggerType
), True)] do
911 EditStyle
:= esSimple
;
915 with ItemProps
[InsertRow(_lc
[I_PROP_X
], IntToStr(X
), True)] do
917 EditStyle
:= esSimple
;
921 with ItemProps
[InsertRow(_lc
[I_PROP_Y
], IntToStr(Y
), True)] do
923 EditStyle
:= esSimple
;
927 with ItemProps
[InsertRow(_lc
[I_PROP_WIDTH
], IntToStr(Width
), True)] do
929 EditStyle
:= esSimple
;
933 with ItemProps
[InsertRow(_lc
[I_PROP_HEIGHT
], IntToStr(Height
), True)] do
935 EditStyle
:= esSimple
;
939 with ItemProps
[InsertRow(_lc
[I_PROP_TR_ENABLED
], BoolNames
[Enabled
], True)] do
941 EditStyle
:= esPickList
;
945 with ItemProps
[InsertRow(_lc
[I_PROP_TR_TEXTURE_PANEL
], IntToStr(TexturePanel
), True)] do
947 EditStyle
:= esEllipsis
;
951 with ItemProps
[InsertRow(_lc
[I_PROP_TR_ACTIVATION
], ActivateToStr(ActivateType
), True)] do
953 EditStyle
:= esEllipsis
;
957 with ItemProps
[InsertRow(_lc
[I_PROP_TR_KEYS
], KeyToStr(Key
), True)] do
959 EditStyle
:= esEllipsis
;
966 str
:= win2utf(Data
.MapName
);
967 with ItemProps
[InsertRow(_lc
[I_PROP_TR_NEXT_MAP
], str
, True)] do
969 EditStyle
:= esEllipsis
;
976 with ItemProps
[InsertRow(_lc
[I_PROP_TR_TELEPORT_TO
], Format('(%d:%d)', [Data
.TargetPoint
.X
, Data
.TargetPoint
.Y
]), True)] do
978 EditStyle
:= esEllipsis
;
982 with ItemProps
[InsertRow(_lc
[I_PROP_TR_D2D
], BoolNames
[Data
.d2d_teleport
], True)] do
984 EditStyle
:= esPickList
;
988 with ItemProps
[InsertRow(_lc
[I_PROP_TR_TELEPORT_SILENT
], BoolNames
[Data
.silent_teleport
], True)] do
990 EditStyle
:= esPickList
;
994 with ItemProps
[InsertRow(_lc
[I_PROP_TR_TELEPORT_DIR
], DirNamesAdv
[Data
.TlpDir
], True)] do
996 EditStyle
:= esPickList
;
1001 TRIGGER_OPENDOOR
, TRIGGER_CLOSEDOOR
,
1002 TRIGGER_DOOR
, TRIGGER_DOOR5
:
1004 with ItemProps
[InsertRow(_lc
[I_PROP_TR_DOOR_PANEL
], IntToStr(Data
.PanelID
), True)] do
1006 EditStyle
:= esEllipsis
;
1010 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SILENT
], BoolNames
[Data
.NoSound
], True)] do
1012 EditStyle
:= esPickList
;
1016 with ItemProps
[InsertRow(_lc
[I_PROP_TR_D2D
], BoolNames
[Data
.d2d_doors
], True)] do
1018 EditStyle
:= esPickList
;
1023 TRIGGER_CLOSETRAP
, TRIGGER_TRAP
:
1025 with ItemProps
[InsertRow(_lc
[I_PROP_TR_TRAP_PANEL
], IntToStr(Data
.PanelID
), True)] do
1027 EditStyle
:= esEllipsis
;
1031 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SILENT
], BoolNames
[Data
.NoSound
], True)] do
1033 EditStyle
:= esPickList
;
1037 with ItemProps
[InsertRow(_lc
[I_PROP_TR_D2D
], BoolNames
[Data
.d2d_doors
], True)] do
1039 EditStyle
:= esPickList
;
1044 TRIGGER_PRESS
, TRIGGER_ON
, TRIGGER_OFF
,
1047 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EX_AREA
],
1048 Format('(%d:%d %d:%d)', [Data
.tX
, Data
.tY
, Data
.tWidth
, Data
.tHeight
]), True)] do
1050 EditStyle
:= esEllipsis
;
1054 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EX_DELAY
], IntToStr(Data
.Wait
), True)] do
1056 EditStyle
:= esSimple
;
1060 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EX_COUNT
], IntToStr(Data
.Count
), True)] do
1062 EditStyle
:= esSimple
;
1066 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EX_MONSTER
], IntToStr(Data
.MonsterID
-1), True)] do
1068 EditStyle
:= esEllipsis
;
1072 if TriggerType
= TRIGGER_PRESS
then
1073 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EX_RANDOM
], BoolNames
[Data
.ExtRandom
], True)] do
1075 EditStyle
:= esPickList
;
1083 TRIGGER_LIFTUP
, TRIGGER_LIFTDOWN
, TRIGGER_LIFT
:
1085 with ItemProps
[InsertRow(_lc
[I_PROP_TR_LIFT_PANEL
], IntToStr(Data
.PanelID
), True)] do
1087 EditStyle
:= esEllipsis
;
1091 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SILENT
], BoolNames
[Data
.NoSound
], True)] do
1093 EditStyle
:= esPickList
;
1097 with ItemProps
[InsertRow(_lc
[I_PROP_TR_D2D
], BoolNames
[Data
.d2d_doors
], True)] do
1099 EditStyle
:= esPickList
;
1106 with ItemProps
[InsertRow(_lc
[I_PROP_TR_TEXTURE_ONCE
], BoolNames
[Data
.ActivateOnce
], True)] do
1108 EditStyle
:= esPickList
;
1112 with ItemProps
[InsertRow(_lc
[I_PROP_TR_TEXTURE_ANIM_ONCE
], BoolNames
[Data
.AnimOnce
], True)] do
1114 EditStyle
:= esPickList
;
1121 str
:= win2utf(Data
.SoundName
);
1122 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SOUND_NAME
], str
, True)] do
1124 EditStyle
:= esEllipsis
;
1128 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SOUND_VOLUME
], IntToStr(Data
.Volume
), True)] do
1130 EditStyle
:= esSimple
;
1134 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SOUND_PAN
], IntToStr(Data
.Pan
), True)] do
1136 EditStyle
:= esSimple
;
1140 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SOUND_COUNT
], IntToStr(Data
.PlayCount
), True)] do
1142 EditStyle
:= esSimple
;
1146 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SOUND_LOCAL
], BoolNames
[Data
.Local
], True)] do
1148 EditStyle
:= esPickList
;
1152 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SOUND_SWITCH
], BoolNames
[Data
.SoundSwitch
], True)] do
1154 EditStyle
:= esPickList
;
1159 TRIGGER_SPAWNMONSTER
:
1161 with ItemProps
[InsertRow(_lc
[I_PROP_TR_MONSTER_TYPE
], MonsterToStr(Data
.MonType
), True)] do
1163 EditStyle
:= esEllipsis
;
1167 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SPAWN_TO
],
1168 Format('(%d:%d)', [Data
.MonPos
.X
, Data
.MonPos
.Y
]), True)] do
1170 EditStyle
:= esEllipsis
;
1174 with ItemProps
[InsertRow(_lc
[I_PROP_DIRECTION
], DirNames
[TDirection(Data
.MonDir
)], True)] do
1176 EditStyle
:= esPickList
;
1180 with ItemProps
[InsertRow(_lc
[I_PROP_TR_HEALTH
], IntToStr(Data
.MonHealth
), True)] do
1182 EditStyle
:= esSimple
;
1186 with ItemProps
[InsertRow(_lc
[I_PROP_TR_MONSTER_ACTIVE
], BoolNames
[Data
.MonActive
], True)] do
1188 EditStyle
:= esPickList
;
1192 with ItemProps
[InsertRow(_lc
[I_PROP_TR_COUNT
], IntToStr(Data
.MonCount
), True)] do
1194 EditStyle
:= esSimple
;
1198 with ItemProps
[InsertRow(_lc
[I_PROP_TR_FX_TYPE
], EffectToStr(Data
.MonEffect
), True)] do
1200 EditStyle
:= esEllipsis
;
1204 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SPAWN_MAX
], IntToStr(Data
.MonMax
), True)] do
1206 EditStyle
:= esSimple
;
1210 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SPAWN_DELAY
], IntToStr(Data
.MonDelay
), True)] do
1212 EditStyle
:= esSimple
;
1216 case Data
.MonBehav
of
1217 1: str
:= _lc
[I_PROP_TR_MONSTER_BEHAVIOUR_1
];
1218 2: str
:= _lc
[I_PROP_TR_MONSTER_BEHAVIOUR_2
];
1219 3: str
:= _lc
[I_PROP_TR_MONSTER_BEHAVIOUR_3
];
1220 4: str
:= _lc
[I_PROP_TR_MONSTER_BEHAVIOUR_4
];
1221 5: str
:= _lc
[I_PROP_TR_MONSTER_BEHAVIOUR_5
];
1222 else str
:= _lc
[I_PROP_TR_MONSTER_BEHAVIOUR_0
];
1224 with ItemProps
[InsertRow(_lc
[I_PROP_TR_MONSTER_BEHAVIOUR
], str
, True)] do
1226 EditStyle
:= esPickList
;
1233 with ItemProps
[InsertRow(_lc
[I_PROP_TR_ITEM_TYPE
], ItemToStr(Data
.ItemType
), True)] do
1235 EditStyle
:= esEllipsis
;
1239 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SPAWN_TO
],
1240 Format('(%d:%d)', [Data
.ItemPos
.X
, Data
.ItemPos
.Y
]), True)] do
1242 EditStyle
:= esEllipsis
;
1246 with ItemProps
[InsertRow(_lc
[I_PROP_DM_ONLY
], BoolNames
[Data
.ItemOnlyDM
], True)] do
1248 EditStyle
:= esPickList
;
1252 with ItemProps
[InsertRow(_lc
[I_PROP_ITEM_FALLS
], BoolNames
[Data
.ItemFalls
], True)] do
1254 EditStyle
:= esPickList
;
1258 with ItemProps
[InsertRow(_lc
[I_PROP_TR_COUNT
], IntToStr(Data
.ItemCount
), True)] do
1260 EditStyle
:= esSimple
;
1264 with ItemProps
[InsertRow(_lc
[I_PROP_TR_FX_TYPE
], EffectToStr(Data
.ItemEffect
), True)] do
1266 EditStyle
:= esEllipsis
;
1270 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SPAWN_MAX
], IntToStr(Data
.ItemMax
), True)] do
1272 EditStyle
:= esSimple
;
1276 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SPAWN_DELAY
], IntToStr(Data
.ItemDelay
), True)] do
1278 EditStyle
:= esSimple
;
1285 str
:= win2utf(Data
.MusicName
);
1286 with ItemProps
[InsertRow(_lc
[I_PROP_TR_MUSIC_NAME
], str
, True)] do
1288 EditStyle
:= esEllipsis
;
1292 if Data
.MusicAction
= 1 then
1293 str
:= _lc
[I_PROP_TR_MUSIC_ON
]
1295 str
:= _lc
[I_PROP_TR_MUSIC_OFF
];
1297 with ItemProps
[InsertRow(_lc
[I_PROP_TR_MUSIC_ACT
], str
, True)] do
1299 EditStyle
:= esPickList
;
1306 with ItemProps
[InsertRow(_lc
[I_PROP_TR_PUSH_ANGLE
], IntToStr(Data
.PushAngle
), True)] do
1308 EditStyle
:= esSimple
;
1311 with ItemProps
[InsertRow(_lc
[I_PROP_TR_PUSH_FORCE
], IntToStr(Data
.PushForce
), True)] do
1313 EditStyle
:= esSimple
;
1316 with ItemProps
[InsertRow(_lc
[I_PROP_TR_PUSH_RESET
], BoolNames
[Data
.ResetVel
], True)] do
1318 EditStyle
:= esPickList
;
1325 case Data
.ScoreAction
of
1326 1: str
:= _lc
[I_PROP_TR_SCORE_ACT_1
];
1327 2: str
:= _lc
[I_PROP_TR_SCORE_ACT_2
];
1328 3: str
:= _lc
[I_PROP_TR_SCORE_ACT_3
];
1329 else str
:= _lc
[I_PROP_TR_SCORE_ACT_0
];
1331 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SCORE_ACT
], str
, True)] do
1333 EditStyle
:= esPickList
;
1336 with ItemProps
[InsertRow(_lc
[I_PROP_TR_COUNT
], IntToStr(Data
.ScoreCount
), True)] do
1338 EditStyle
:= esSimple
;
1341 case Data
.ScoreTeam
of
1342 1: str
:= _lc
[I_PROP_TR_SCORE_TEAM_1
];
1343 2: str
:= _lc
[I_PROP_TR_SCORE_TEAM_2
];
1344 3: str
:= _lc
[I_PROP_TR_SCORE_TEAM_3
];
1345 else str
:= _lc
[I_PROP_TR_SCORE_TEAM_0
];
1347 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SCORE_TEAM
], str
, True)] do
1349 EditStyle
:= esPickList
;
1352 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SCORE_CON
], BoolNames
[Data
.ScoreCon
], True)] do
1354 EditStyle
:= esPickList
;
1357 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SCORE_MSG
], BoolNames
[Data
.ScoreMsg
], True)] do
1359 EditStyle
:= esPickList
;
1366 case Data
.MessageKind
of
1367 1: str
:= _lc
[I_PROP_TR_MESSAGE_KIND_1
];
1368 else str
:= _lc
[I_PROP_TR_MESSAGE_KIND_0
];
1370 with ItemProps
[InsertRow(_lc
[I_PROP_TR_MESSAGE_KIND
], str
, True)] do
1372 EditStyle
:= esPickList
;
1375 case Data
.MessageSendTo
of
1376 1: str
:= _lc
[I_PROP_TR_MESSAGE_TO_1
];
1377 2: str
:= _lc
[I_PROP_TR_MESSAGE_TO_2
];
1378 3: str
:= _lc
[I_PROP_TR_MESSAGE_TO_3
];
1379 4: str
:= _lc
[I_PROP_TR_MESSAGE_TO_4
];
1380 5: str
:= _lc
[I_PROP_TR_MESSAGE_TO_5
];
1381 else str
:= _lc
[I_PROP_TR_MESSAGE_TO_0
];
1383 with ItemProps
[InsertRow(_lc
[I_PROP_TR_MESSAGE_TO
], str
, True)] do
1385 EditStyle
:= esPickList
;
1388 str
:= win2utf(Data
.MessageText
);
1389 with ItemProps
[InsertRow(_lc
[I_PROP_TR_MESSAGE_TEXT
], str
, True)] do
1391 EditStyle
:= esSimple
;
1394 with ItemProps
[InsertRow(_lc
[I_PROP_TR_MESSAGE_TIME
], IntToStr(Data
.MessageTime
), True)] do
1396 EditStyle
:= esSimple
;
1403 with ItemProps
[InsertRow(_lc
[I_PROP_TR_DAMAGE_VALUE
], IntToStr(Data
.DamageValue
), True)] do
1405 EditStyle
:= esSimple
;
1408 with ItemProps
[InsertRow(_lc
[I_PROP_TR_INTERVAL
], IntToStr(Data
.DamageInterval
), True)] do
1410 EditStyle
:= esSimple
;
1413 case Data
.DamageKind
of
1414 3: str
:= _lc
[I_PROP_TR_DAMAGE_KIND_3
];
1415 4: str
:= _lc
[I_PROP_TR_DAMAGE_KIND_4
];
1416 5: str
:= _lc
[I_PROP_TR_DAMAGE_KIND_5
];
1417 6: str
:= _lc
[I_PROP_TR_DAMAGE_KIND_6
];
1418 7: str
:= _lc
[I_PROP_TR_DAMAGE_KIND_7
];
1419 8: str
:= _lc
[I_PROP_TR_DAMAGE_KIND_8
];
1420 else str
:= _lc
[I_PROP_TR_DAMAGE_KIND_0
];
1422 with ItemProps
[InsertRow(_lc
[I_PROP_TR_DAMAGE_KIND
], str
, True)] do
1424 EditStyle
:= esPickList
;
1431 with ItemProps
[InsertRow(_lc
[I_PROP_TR_HEALTH
], IntToStr(Data
.HealValue
), True)] do
1433 EditStyle
:= esSimple
;
1436 with ItemProps
[InsertRow(_lc
[I_PROP_TR_INTERVAL
], IntToStr(Data
.HealInterval
), True)] do
1438 EditStyle
:= esSimple
;
1441 with ItemProps
[InsertRow(_lc
[I_PROP_TR_HEALTH_MAX
], BoolNames
[Data
.HealMax
], True)] do
1443 EditStyle
:= esPickList
;
1446 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SILENT
], BoolNames
[Data
.HealSilent
], True)] do
1448 EditStyle
:= esPickList
;
1455 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SHOT_TYPE
], ShotToStr(Data
.ShotType
), True)] do
1457 EditStyle
:= esEllipsis
;
1461 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SHOT_SOUND
], BoolNames
[Data
.ShotSound
], True)] do
1463 EditStyle
:= esPickList
;
1467 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SHOT_PANEL
], IntToStr(Data
.ShotPanelID
), True)] do
1469 EditStyle
:= esEllipsis
;
1473 case Data
.ShotTarget
of
1474 1: str
:= _lc
[I_PROP_TR_SHOT_TO_1
];
1475 2: str
:= _lc
[I_PROP_TR_SHOT_TO_2
];
1476 3: str
:= _lc
[I_PROP_TR_SHOT_TO_3
];
1477 4: str
:= _lc
[I_PROP_TR_SHOT_TO_4
];
1478 5: str
:= _lc
[I_PROP_TR_SHOT_TO_5
];
1479 6: str
:= _lc
[I_PROP_TR_SHOT_TO_6
];
1480 else str
:= _lc
[I_PROP_TR_SHOT_TO_0
];
1482 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SHOT_TO
], str
, True)] do
1484 EditStyle
:= esPickList
;
1488 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SHOT_SIGHT
], IntToStr(Data
.ShotIntSight
), True)] do
1490 EditStyle
:= esSimple
;
1494 case Data
.ShotAim
of
1495 1: str
:= _lc
[I_PROP_TR_SHOT_AIM_1
];
1496 2: str
:= _lc
[I_PROP_TR_SHOT_AIM_2
];
1497 3: str
:= _lc
[I_PROP_TR_SHOT_AIM_3
];
1498 else str
:= _lc
[I_PROP_TR_SHOT_AIM_0
];
1500 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SHOT_AIM
], str
, True)] do
1502 EditStyle
:= esPickList
;
1506 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SPAWN_TO
],
1507 Format('(%d:%d)', [Data
.ShotPos
.X
, Data
.ShotPos
.Y
]), True)] do
1509 EditStyle
:= esEllipsis
;
1513 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SHOT_ANGLE
], IntToStr(Data
.ShotAngle
), True)] do
1515 EditStyle
:= esSimple
;
1519 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EX_DELAY
], IntToStr(Data
.ShotWait
), True)] do
1521 EditStyle
:= esSimple
;
1525 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SHOT_ACC
], IntToStr(Data
.ShotAccuracy
), True)] do
1527 EditStyle
:= esSimple
;
1531 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SHOT_AMMO
], IntToStr(Data
.ShotAmmo
), True)] do
1533 EditStyle
:= esSimple
;
1537 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SHOT_RELOAD
], IntToStr(Data
.ShotIntReload
), True)] do
1539 EditStyle
:= esSimple
;
1546 with ItemProps
[InsertRow(_lc
[I_PROP_TR_COUNT
], IntToStr(Data
.FXCount
), True)] do
1548 EditStyle
:= esSimple
;
1552 if Data
.FXType
= 0 then
1553 str
:= _lc
[I_PROP_TR_EFFECT_PARTICLE
]
1555 str
:= _lc
[I_PROP_TR_EFFECT_ANIMATION
];
1556 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EFFECT_TYPE
], str
, True)] do
1558 EditStyle
:= esEllipsis
;
1563 if Data
.FXType
= 0 then
1564 case Data
.FXSubType
of
1565 TRIGGER_EFFECT_SLIQUID
:
1566 str
:= _lc
[I_PROP_TR_EFFECT_SLIQUID
];
1567 TRIGGER_EFFECT_LLIQUID
:
1568 str
:= _lc
[I_PROP_TR_EFFECT_LLIQUID
];
1569 TRIGGER_EFFECT_DLIQUID
:
1570 str
:= _lc
[I_PROP_TR_EFFECT_DLIQUID
];
1571 TRIGGER_EFFECT_BLOOD
:
1572 str
:= _lc
[I_PROP_TR_EFFECT_BLOOD
];
1573 TRIGGER_EFFECT_SPARK
:
1574 str
:= _lc
[I_PROP_TR_EFFECT_SPARK
];
1575 TRIGGER_EFFECT_BUBBLE
:
1576 str
:= _lc
[I_PROP_TR_EFFECT_BUBBLE
];
1578 if Data
.FXType
= 1 then
1580 if (Data
.FXSubType
= 0) or (Data
.FXSubType
> EFFECT_FIRE
) then
1581 Data
.FXSubType
:= EFFECT_TELEPORT
;
1582 str
:= EffectToStr(Data
.FXSubType
);
1584 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EFFECT_SUBTYPE
], str
, True)] do
1586 EditStyle
:= esEllipsis
;
1590 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EFFECT_COLOR
], IntToStr(Data
.FXColorR
or (Data
.FXColorG
shl 8) or (Data
.FXColorB
shl 16)), True)] do
1592 EditStyle
:= esEllipsis
;
1596 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EFFECT_CENTER
], BoolNames
[Data
.FXPos
= 0], True)] do
1598 EditStyle
:= esPickList
;
1602 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EX_DELAY
], IntToStr(Data
.FXWait
), True)] do
1604 EditStyle
:= esSimple
;
1608 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EFFECT_VELX
], IntToStr(Data
.FXVelX
), True)] do
1610 EditStyle
:= esSimple
;
1614 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EFFECT_VELY
], IntToStr(Data
.FXVelY
), True)] do
1616 EditStyle
:= esSimple
;
1620 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EFFECT_SPL
], IntToStr(Data
.FXSpreadL
), True)] do
1622 EditStyle
:= esSimple
;
1626 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EFFECT_SPR
], IntToStr(Data
.FXSpreadR
), True)] do
1628 EditStyle
:= esSimple
;
1632 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EFFECT_SPU
], IntToStr(Data
.FXSpreadU
), True)] do
1634 EditStyle
:= esSimple
;
1638 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EFFECT_SPD
], IntToStr(Data
.FXSpreadD
), True)] do
1640 EditStyle
:= esSimple
;
1644 end; //case TriggerType
1646 end; // OBJECT_TRIGGER:
1650 procedure ChangeShownProperty(Name
: String; NewValue
: String);
1654 if SelectedObjectCount() <> 1 then
1656 if not SelectedObjects
[GetFirstSelected()].Live
then
1659 // Есть ли такой ключ:
1660 if MainForm
.vleObjectProperty
.FindRow(Name
, row
) then
1662 MainForm
.vleObjectProperty
.Values
[Name
] := NewValue
;
1666 procedure SelectObject(fObjectType
: Byte; fID
: DWORD
; Multi
: Boolean);
1675 // Уже выделен - убираем:
1676 if SelectedObjects
<> nil then
1677 for a
:= 0 to High(SelectedObjects
) do
1678 with SelectedObjects
[a
] do
1679 if Live
and (ID
= fID
) and
1680 (ObjectType
= fObjectType
) then
1689 SetLength(SelectedObjects
, Length(SelectedObjects
)+1);
1691 with SelectedObjects
[High(SelectedObjects
)] do
1693 ObjectType
:= fObjectType
;
1700 SetLength(SelectedObjects
, 1);
1702 with SelectedObjects
[0] do
1704 ObjectType
:= fObjectType
;
1710 MainForm
.miCopy
.Enabled
:= True;
1711 MainForm
.miCut
.Enabled
:= True;
1713 if fObjectType
= OBJECT_PANEL
then
1715 MainForm
.miToFore
.Enabled
:= True;
1716 MainForm
.miToBack
.Enabled
:= True;
1720 procedure RemoveSelectFromObjects();
1722 SelectedObjects
:= nil;
1723 DrawPressRect
:= False;
1724 MouseLDown
:= False;
1725 MouseRDown
:= False;
1726 MouseAction
:= MOUSEACTION_NONE
;
1727 SelectFlag
:= SELECTFLAG_NONE
;
1728 ResizeType
:= RESIZETYPE_NONE
;
1729 ResizeDirection
:= RESIZEDIR_NONE
;
1731 MainForm
.vleObjectProperty
.Strings
.Clear();
1733 MainForm
.miCopy
.Enabled
:= False;
1734 MainForm
.miCut
.Enabled
:= False;
1735 MainForm
.miToFore
.Enabled
:= False;
1736 MainForm
.miToBack
.Enabled
:= False;
1739 procedure DeleteSelectedObjects();
1744 if SelectedObjects
= nil then
1750 for a
:= 0 to High(SelectedObjects
) do
1751 with SelectedObjects
[a
] do
1756 SetLength(UndoBuffer
, Length(UndoBuffer
)+1);
1757 i
:= High(UndoBuffer
);
1761 SetLength(UndoBuffer
[i
], Length(UndoBuffer
[i
])+1);
1762 ii
:= High(UndoBuffer
[i
]);
1767 UndoBuffer
[i
, ii
].UndoType
:= UNDO_DELETE_PANEL
;
1768 New(UndoBuffer
[i
, ii
].Panel
);
1769 UndoBuffer
[i
, ii
].Panel
^ := gPanels
[ID
];
1773 UndoBuffer
[i
, ii
].UndoType
:= UNDO_DELETE_ITEM
;
1774 UndoBuffer
[i
, ii
].Item
:= gItems
[ID
];
1778 UndoBuffer
[i
, ii
].UndoType
:= UNDO_DELETE_AREA
;
1779 UndoBuffer
[i
, ii
].Area
:= gAreas
[ID
];
1783 UndoBuffer
[i
, ii
].UndoType
:= UNDO_DELETE_TRIGGER
;
1784 UndoBuffer
[i
, ii
].Trigger
:= gTriggers
[ID
];
1788 RemoveObject(ID
, ObjectType
);
1791 RemoveSelectFromObjects();
1793 MainForm
.miUndo
.Enabled
:= UndoBuffer
<> nil;
1794 MainForm
.RecountSelectedObjects();
1797 procedure Undo_Add(ObjectType
: Byte; ID
: DWORD
; Group
: Boolean = False);
1801 if (not Group
) or (Length(UndoBuffer
) = 0) then
1802 SetLength(UndoBuffer
, Length(UndoBuffer
)+1);
1803 SetLength(UndoBuffer
[High(UndoBuffer
)], Length(UndoBuffer
[High(UndoBuffer
)])+1);
1804 i
:= High(UndoBuffer
);
1805 ii
:= High(UndoBuffer
[i
]);
1809 UndoBuffer
[i
, ii
].UndoType
:= UNDO_ADD_PANEL
;
1811 UndoBuffer
[i
, ii
].UndoType
:= UNDO_ADD_ITEM
;
1813 UndoBuffer
[i
, ii
].UndoType
:= UNDO_ADD_MONSTER
;
1815 UndoBuffer
[i
, ii
].UndoType
:= UNDO_ADD_AREA
;
1817 UndoBuffer
[i
, ii
].UndoType
:= UNDO_ADD_TRIGGER
;
1820 UndoBuffer
[i
, ii
].AddID
:= ID
;
1822 MainForm
.miUndo
.Enabled
:= UndoBuffer
<> nil;
1825 procedure FullClear();
1827 RemoveSelectFromObjects();
1829 LoadSky(gMapInfo
.SkyName
);
1831 slInvalidTextures
.Clear();
1832 MapCheckForm
.lbErrorList
.Clear();
1833 MapCheckForm
.mErrorDescription
.Clear();
1835 MainForm
.miUndo
.Enabled
:= False;
1836 MainForm
.sbHorizontal
.Position
:= 0;
1837 MainForm
.sbVertical
.Position
:= 0;
1838 MainForm
.FormResize(nil);
1839 MainForm
.Caption
:= FormCaption
;
1844 procedure ErrorMessageBox(str
: String);
1846 MessageBox(0, PChar(str
), PChar(_lc
[I_MSG_ERROR
]),
1847 MB_ICONINFORMATION
or MB_OK
or MB_DEFBUTTON1
);
1850 function CheckProperty(): Boolean;
1856 _id
:= GetFirstSelected();
1858 if SelectedObjects
[_id
].ObjectType
= OBJECT_PANEL
then
1859 with gPanels
[SelectedObjects
[_id
].ID
] do
1861 if TextureWidth
<> 0 then
1862 if StrToIntDef(MainForm
.vleObjectProperty
.Values
[_lc
[I_PROP_WIDTH
]], 1) mod TextureWidth
<> 0 then
1864 ErrorMessageBox(Format(_lc
[I_MSG_WRONG_TEXWIDTH
],
1869 if TextureHeight
<> 0 then
1870 if StrToIntDef(Trim(MainForm
.vleObjectProperty
.Values
[_lc
[I_PROP_HEIGHT
]]), 1) mod TextureHeight
<> 0 then
1872 ErrorMessageBox(Format(_lc
[I_MSG_WRONG_TEXHEIGHT
],
1877 if IsTexturedPanel(PanelType
) and (TextureName
<> '') then
1878 if not (StrToIntDef(MainForm
.vleObjectProperty
.Values
[_lc
[I_PROP_PANEL_ALPHA
]], -1) in [0..255]) then
1880 ErrorMessageBox(_lc
[I_MSG_WRONG_ALPHA
]);
1885 if SelectedObjects
[_id
].ObjectType
in [OBJECT_PANEL
, OBJECT_TRIGGER
] then
1886 if (StrToIntDef(MainForm
.vleObjectProperty
.Values
[_lc
[I_PROP_WIDTH
]], 0) <= 0) or
1887 (StrToIntDef(MainForm
.vleObjectProperty
.Values
[_lc
[I_PROP_HEIGHT
]], 0) <= 0) then
1889 ErrorMessageBox(_lc
[I_MSG_WRONG_SIZE
]);
1893 if (Trim(MainForm
.vleObjectProperty
.Values
[_lc
[I_PROP_X
]]) = '') or
1894 (Trim(MainForm
.vleObjectProperty
.Values
[_lc
[I_PROP_Y
]]) = '') then
1896 ErrorMessageBox(_lc
[I_MSG_WRONG_XY
]);
1903 procedure SelectTexture(ID
: Integer);
1905 MainForm
.lbTextureList
.ItemIndex
:= ID
;
1906 MainForm
.lbTextureListClick(nil);
1909 function AddTexture(aWAD
, aSection
, aTex
: String; silent
: Boolean): Boolean;
1911 a
, FrameLen
: Integer;
1914 ResourceName
: String;
1915 FullResourceName
: String;
1916 SectionName
: String;
1918 Width
, Height
: Word;
1926 if aSection
= '..' then
1929 SectionName
:= aSection
;
1932 aWAD
:= _lc
[I_WAD_SPECIAL_MAP
];
1934 if aWAD
= _lc
[I_WAD_SPECIAL_MAP
] then
1936 g_ProcessResourceStr(OpenedMap
, @fn
, nil, nil);
1938 ResourceName
:= ':'+SectionName
+'\'+aTex
;
1941 if aWAD
= _lc
[I_WAD_SPECIAL_TEXS
] then
1942 begin // Спец. текстуры
1944 ResourceName
:= aTex
;
1947 begin // Внешний WAD
1948 FileName
:= WadsDir
+ DirectorySeparator
+ aWAD
;
1949 ResourceName
:= aWAD
+':'+SectionName
+'\'+aTex
;
1954 // Есть ли уже такая текстура:
1955 for a
:= 0 to MainForm
.lbTextureList
.Items
.Count
-1 do
1956 if ResourceName
= MainForm
.lbTextureList
.Items
[a
] then
1959 ErrorMessageBox(Format(_lc
[I_MSG_TEXTURE_ALREADY
],
1964 // Название ресурса <= 64 символов:
1965 if Length(ResourceName
) > 64 then
1968 ErrorMessageBox(Format(_lc
[I_MSG_RES_NAME_64
],
1976 if aWAD
= _lc
[I_WAD_SPECIAL_TEXS
] then
1978 a
:= MainForm
.lbTextureList
.Items
.Add(ResourceName
);
1985 FullResourceName
:= FileName
+':'+SectionName
+'\'+aTex
;
1987 if IsAnim(FullResourceName
) then
1988 begin // Аним. текстура
1989 GetFrame(FullResourceName
, Data
, FrameLen
, Width
, Height
);
1991 if not g_CreateTextureMemorySize(Data
, FrameLen
, ResourceName
, 0, 0, Width
, Height
, 1) then
1993 a
:= MainForm
.lbTextureList
.Items
.Add(ResourceName
);
1995 else // Обычная текстура
1997 if not g_CreateTextureWAD(ResourceName
, FullResourceName
) then
1999 a
:= MainForm
.lbTextureList
.Items
.Add(ResourceName
);
2001 if (not ok
) and (slInvalidTextures
.IndexOf(ResourceName
) = -1) then
2003 slInvalidTextures
.Add(ResourceName
);
2006 if (a
> -1) and (not silent
) then
2013 procedure UpdateCaption(sMap
, sFile
, sRes
: String);
2016 if (sFile
= '') and (sRes
= '') and (sMap
= '') then
2017 Caption
:= FormCaption
2020 Caption
:= Format('%s - %s:%s', [FormCaption
, sFile
, sRes
])
2022 if (sFile
<> '') and (sRes
<> '') then
2023 Caption
:= Format('%s - %s (%s:%s)', [FormCaption
, sMap
, sFile
, sRes
])
2025 Caption
:= Format('%s - %s', [FormCaption
, sMap
]);
2028 procedure OpenMap(FileName
: String; mapN
: String);
2033 SelectMapForm
.Caption
:= _lc
[I_CAP_OPEN
];
2034 SelectMapForm
.GetMaps(FileName
);
2036 if (FileName
= OpenedWAD
) and
2037 (OpenedMap
<> '') then
2039 MapName
:= OpenedMap
;
2040 while (Pos(':\', MapName
) > 0) do
2041 Delete(MapName
, 1, Pos(':\', MapName
) + 1);
2043 idx
:= SelectMapForm
.lbMapList
.Items
.IndexOf(MapName
);
2044 SelectMapForm
.lbMapList
.ItemIndex
:= idx
;
2047 if SelectMapForm
.lbMapList
.Count
> 0 then
2048 SelectMapForm
.lbMapList
.ItemIndex
:= 0
2050 SelectMapForm
.lbMapList
.ItemIndex
:= -1;
2055 idx
:= SelectMapForm
.lbMapList
.Items
.IndexOf(mapN
);
2059 if (SelectMapForm
.ShowModal() = mrOK
) and
2060 (SelectMapForm
.lbMapList
.ItemIndex
<> -1) then
2061 idx
:= SelectMapForm
.lbMapList
.ItemIndex
2066 MapName
:= SelectMapForm
.lbMapList
.Items
[idx
];
2072 pLoadProgress
.Left
:= (RenderPanel
.Width
div 2)-(pLoadProgress
.Width
div 2);
2073 pLoadProgress
.Top
:= (RenderPanel
.Height
div 2)-(pLoadProgress
.Height
div 2);
2074 pLoadProgress
.Show();
2076 OpenedMap
:= FileName
+':\'+MapName
;
2077 OpenedWAD
:= FileName
;
2079 idx
:= RecentFiles
.IndexOf(OpenedMap
);
2080 // Такая карта уже недавно открывалась:
2082 RecentFiles
.Delete(idx
);
2083 RecentFiles
.Insert(0, OpenedMap
);
2084 RefreshRecentMenu();
2088 pLoadProgress
.Hide();
2091 lbTextureList
.Sorted
:= True;
2092 lbTextureList
.Sorted
:= False;
2094 UpdateCaption(gMapInfo
.Name
, ExtractFileName(FileName
), MapName
);
2098 procedure MoveSelectedObjects(Wall
, alt
: Boolean; dx
, dy
: Integer);
2103 if SelectedObjects
= nil then
2110 for a
:= 0 to High(SelectedObjects
) do
2111 if SelectedObjects
[a
].Live
then
2113 if ObjectCollideLevel(SelectedObjects
[a
].ID
, SelectedObjects
[a
].ObjectType
, dx
, 0) then
2116 if ObjectCollideLevel(SelectedObjects
[a
].ID
, SelectedObjects
[a
].ObjectType
, 0, dy
) then
2119 if (not okX
) or (not okY
) then
2125 for a
:= 0 to High(SelectedObjects
) do
2126 if SelectedObjects
[a
].Live
then
2129 MoveObject(SelectedObjects
[a
].ObjectType
, SelectedObjects
[a
].ID
, dx
, 0);
2132 MoveObject(SelectedObjects
[a
].ObjectType
, SelectedObjects
[a
].ID
, 0, dy
);
2134 if alt
and (SelectedObjects
[a
].ObjectType
= OBJECT_TRIGGER
) then
2136 if gTriggers
[SelectedObjects
[a
].ID
].TriggerType
in [TRIGGER_PRESS
,
2137 TRIGGER_ON
, TRIGGER_OFF
, TRIGGER_ONOFF
] then
2138 begin // Двигаем зону Расширителя
2140 gTriggers
[SelectedObjects
[a
].ID
].Data
.tX
:= gTriggers
[SelectedObjects
[a
].ID
].Data
.tX
+dx
;
2142 gTriggers
[SelectedObjects
[a
].ID
].Data
.tY
:= gTriggers
[SelectedObjects
[a
].ID
].Data
.tY
+dy
;
2145 if gTriggers
[SelectedObjects
[a
].ID
].TriggerType
in [TRIGGER_TELEPORT
] then
2146 begin // Двигаем точку назначения Телепорта
2148 gTriggers
[SelectedObjects
[a
].ID
].Data
.TargetPoint
.X
:= gTriggers
[SelectedObjects
[a
].ID
].Data
.TargetPoint
.X
+dx
;
2150 gTriggers
[SelectedObjects
[a
].ID
].Data
.TargetPoint
.Y
:= gTriggers
[SelectedObjects
[a
].ID
].Data
.TargetPoint
.Y
+dy
;
2153 if gTriggers
[SelectedObjects
[a
].ID
].TriggerType
in [TRIGGER_SPAWNMONSTER
] then
2154 begin // Двигаем точку создания монстра
2156 gTriggers
[SelectedObjects
[a
].ID
].Data
.MonPos
.X
:= gTriggers
[SelectedObjects
[a
].ID
].Data
.MonPos
.X
+dx
;
2158 gTriggers
[SelectedObjects
[a
].ID
].Data
.MonPos
.Y
:= gTriggers
[SelectedObjects
[a
].ID
].Data
.MonPos
.Y
+dy
;
2161 if gTriggers
[SelectedObjects
[a
].ID
].TriggerType
in [TRIGGER_SPAWNITEM
] then
2162 begin // Двигаем точку создания предмета
2164 gTriggers
[SelectedObjects
[a
].ID
].Data
.ItemPos
.X
:= gTriggers
[SelectedObjects
[a
].ID
].Data
.ItemPos
.X
+dx
;
2166 gTriggers
[SelectedObjects
[a
].ID
].Data
.ItemPos
.Y
:= gTriggers
[SelectedObjects
[a
].ID
].Data
.ItemPos
.Y
+dy
;
2169 if gTriggers
[SelectedObjects
[a
].ID
].TriggerType
in [TRIGGER_SHOT
] then
2170 begin // Двигаем точку создания выстрела
2172 gTriggers
[SelectedObjects
[a
].ID
].Data
.ShotPos
.X
:= gTriggers
[SelectedObjects
[a
].ID
].Data
.ShotPos
.X
+dx
;
2174 gTriggers
[SelectedObjects
[a
].ID
].Data
.ShotPos
.Y
:= gTriggers
[SelectedObjects
[a
].ID
].Data
.ShotPos
.Y
+dy
;
2179 LastMovePoint
:= MousePos
;
2183 procedure ShowLayer(Layer
: Byte; show
: Boolean);
2185 LayerEnabled
[Layer
] := show
;
2190 MainForm
.miLayer1
.Checked
:= show
;
2191 MainForm
.miLayerP1
.Checked
:= show
;
2195 MainForm
.miLayer2
.Checked
:= show
;
2196 MainForm
.miLayerP2
.Checked
:= show
;
2200 MainForm
.miLayer3
.Checked
:= show
;
2201 MainForm
.miLayerP3
.Checked
:= show
;
2205 MainForm
.miLayer4
.Checked
:= show
;
2206 MainForm
.miLayerP4
.Checked
:= show
;
2210 MainForm
.miLayer5
.Checked
:= show
;
2211 MainForm
.miLayerP5
.Checked
:= show
;
2215 MainForm
.miLayer6
.Checked
:= show
;
2216 MainForm
.miLayerP6
.Checked
:= show
;
2220 MainForm
.miLayer7
.Checked
:= show
;
2221 MainForm
.miLayerP7
.Checked
:= show
;
2225 MainForm
.miLayer8
.Checked
:= show
;
2226 MainForm
.miLayerP8
.Checked
:= show
;
2230 MainForm
.miLayer9
.Checked
:= show
;
2231 MainForm
.miLayerP9
.Checked
:= show
;
2235 RemoveSelectFromObjects();
2238 procedure SwitchLayer(Layer
: Byte);
2240 ShowLayer(Layer
, not LayerEnabled
[Layer
]);
2243 procedure SwitchMap();
2245 ShowMap
:= not ShowMap
;
2246 MainForm
.tbShowMap
.Down
:= ShowMap
;
2249 procedure ShowEdges();
2251 if drEdge
[3] < 255 then
2254 drEdge
[3] := gAlphaEdge
;
2257 function SelectedTexture(): String;
2259 if MainForm
.lbTextureList
.ItemIndex
<> -1 then
2260 Result
:= MainForm
.lbTextureList
.Items
[MainForm
.lbTextureList
.ItemIndex
]
2265 function IsSpecialTextureSel(): Boolean;
2267 Result
:= (MainForm
.lbTextureList
.ItemIndex
<> -1) and
2268 IsSpecialTexture(MainForm
.lbTextureList
.Items
[MainForm
.lbTextureList
.ItemIndex
]);
2271 function CopyBufferToString(var CopyBuf
: TCopyRecArray
): String;
2276 procedure AddInt(x
: Integer);
2278 Res
:= Res
+ IntToStr(x
) + ' ';
2284 if Length(CopyBuf
) = 0 then
2287 Res
:= CLIPBOARD_SIG
+ ' ';
2289 for i
:= 0 to High(CopyBuf
) do
2291 if (CopyBuf
[i
].ObjectType
= OBJECT_PANEL
) and
2292 (CopyBuf
[i
].Panel
= nil) then
2296 AddInt(CopyBuf
[i
].ObjectType
);
2299 // Свойства объекта:
2300 case CopyBuf
[i
].ObjectType
of
2302 with CopyBuf
[i
].Panel
^ do
2309 Res
:= Res
+ '"' + TextureName
+ '" ';
2311 AddInt(IfThen(Blending
, 1, 0));
2315 with CopyBuf
[i
].Item
do
2320 AddInt(IfThen(OnlyDM
, 1, 0));
2321 AddInt(IfThen(Fall
, 1, 0));
2325 with CopyBuf
[i
].Monster
do
2327 AddInt(MonsterType
);
2330 AddInt(IfThen(Direction
= D_LEFT
, 1, 0));
2334 with CopyBuf
[i
].Area
do
2339 AddInt(IfThen(Direction
= D_LEFT
, 1, 0));
2343 with CopyBuf
[i
].Trigger
do
2345 AddInt(TriggerType
);
2350 AddInt(ActivateType
);
2352 AddInt(IfThen(Enabled
, 1, 0));
2353 AddInt(TexturePanel
);
2355 for j
:= 0 to 127 do
2356 AddInt(Data
.Default
[j
]);
2364 procedure StringToCopyBuffer(Str
: String; var CopyBuf
: TCopyRecArray
;
2369 function GetNext(): String;
2374 if Str
[1] = '"' then
2386 Result
:= Copy(Str
, 1, p
-1);
2402 Result
:= Copy(Str
, 1, p
-1);
2412 if GetNext() <> CLIPBOARD_SIG
then
2418 t
:= StrToIntDef(GetNext(), 0);
2420 if (t
< OBJECT_PANEL
) or (t
> OBJECT_TRIGGER
) or
2421 (GetNext() <> ';') then
2422 begin // Что-то не то => пропускаем:
2430 i
:= Length(CopyBuf
);
2431 SetLength(CopyBuf
, i
+ 1);
2433 CopyBuf
[i
].ObjectType
:= t
;
2434 CopyBuf
[i
].Panel
:= nil;
2436 // Свойства объекта:
2440 New(CopyBuf
[i
].Panel
);
2442 with CopyBuf
[i
].Panel
^ do
2444 PanelType
:= StrToIntDef(GetNext(), PANEL_WALL
);
2445 X
:= StrToIntDef(GetNext(), 0);
2446 Y
:= StrToIntDef(GetNext(), 0);
2447 pmin
.X
:= Min(X
, pmin
.X
);
2448 pmin
.Y
:= Min(Y
, pmin
.Y
);
2449 Width
:= StrToIntDef(GetNext(), 16);
2450 Height
:= StrToIntDef(GetNext(), 16);
2451 TextureName
:= GetNext();
2452 Alpha
:= StrToIntDef(GetNext(), 0);
2453 Blending
:= (GetNext() = '1');
2458 with CopyBuf
[i
].Item
do
2460 ItemType
:= StrToIntDef(GetNext(), ITEM_MEDKIT_SMALL
);
2461 X
:= StrToIntDef(GetNext(), 0);
2462 Y
:= StrToIntDef(GetNext(), 0);
2463 pmin
.X
:= Min(X
, pmin
.X
);
2464 pmin
.Y
:= Min(Y
, pmin
.Y
);
2465 OnlyDM
:= (GetNext() = '1');
2466 Fall
:= (GetNext() = '1');
2470 with CopyBuf
[i
].Monster
do
2472 MonsterType
:= StrToIntDef(GetNext(), MONSTER_DEMON
);
2473 X
:= StrToIntDef(GetNext(), 0);
2474 Y
:= StrToIntDef(GetNext(), 0);
2475 pmin
.X
:= Min(X
, pmin
.X
);
2476 pmin
.Y
:= Min(Y
, pmin
.Y
);
2478 if GetNext() = '1' then
2481 Direction
:= D_RIGHT
;
2485 with CopyBuf
[i
].Area
do
2487 AreaType
:= StrToIntDef(GetNext(), AREA_PLAYERPOINT1
);
2488 X
:= StrToIntDef(GetNext(), 0);
2489 Y
:= StrToIntDef(GetNext(), 0);
2490 pmin
.X
:= Min(X
, pmin
.X
);
2491 pmin
.Y
:= Min(Y
, pmin
.Y
);
2492 if GetNext() = '1' then
2495 Direction
:= D_RIGHT
;
2499 with CopyBuf
[i
].Trigger
do
2501 TriggerType
:= StrToIntDef(GetNext(), TRIGGER_EXIT
);
2502 X
:= StrToIntDef(GetNext(), 0);
2503 Y
:= StrToIntDef(GetNext(), 0);
2504 pmin
.X
:= Min(X
, pmin
.X
);
2505 pmin
.Y
:= Min(Y
, pmin
.Y
);
2506 Width
:= StrToIntDef(GetNext(), 16);
2507 Height
:= StrToIntDef(GetNext(), 16);
2508 ActivateType
:= StrToIntDef(GetNext(), 0);
2509 Key
:= StrToIntDef(GetNext(), 0);
2510 Enabled
:= (GetNext() = '1');
2511 TexturePanel
:= StrToIntDef(GetNext(), 0);
2513 for j
:= 0 to 127 do
2514 Data
.Default
[j
] := StrToIntDef(GetNext(), 0);
2519 pmin
.X
:= Min(Data
.TargetPoint
.X
, pmin
.X
);
2520 pmin
.Y
:= Min(Data
.TargetPoint
.Y
, pmin
.Y
);
2522 TRIGGER_PRESS
, TRIGGER_ON
, TRIGGER_OFF
, TRIGGER_ONOFF
:
2524 pmin
.X
:= Min(Data
.tX
, pmin
.X
);
2525 pmin
.Y
:= Min(Data
.tY
, pmin
.Y
);
2527 TRIGGER_SPAWNMONSTER
:
2529 pmin
.X
:= Min(Data
.MonPos
.X
, pmin
.X
);
2530 pmin
.Y
:= Min(Data
.MonPos
.Y
, pmin
.Y
);
2534 pmin
.X
:= Min(Data
.ItemPos
.X
, pmin
.X
);
2535 pmin
.Y
:= Min(Data
.ItemPos
.Y
, pmin
.Y
);
2539 pmin
.X
:= Min(Data
.ShotPos
.X
, pmin
.X
);
2540 pmin
.Y
:= Min(Data
.ShotPos
.Y
, pmin
.Y
);
2548 //----------------------------------------
2549 //Закончились вспомогательные процедуры
2550 //----------------------------------------
2552 procedure TMainForm
.RefreshRecentMenu();
2557 // Лишние запомненные карты:
2558 while RecentFiles
.Count
> RecentCount
do
2559 RecentFiles
.Delete(RecentFiles
.Count
-1);
2561 // Лишние строки меню:
2562 while MainMenu
.Items
[0].Count
> RECENT_FILES_MENU_START
do
2563 MainMenu
.Items
[0].Delete(MainMenu
.Items
[0].Count
-1);
2565 // Отделение списка карт от строки "Выход":
2566 if RecentFiles
.Count
> 0 then
2568 MI
:= TMenuItem
.Create(MainMenu
.Items
[0]);
2570 MainMenu
.Items
[0].Add(MI
);
2573 // Добавление в меню списка запомненных карт:
2574 for i
:= 0 to RecentFiles
.Count
-1 do
2576 MI
:= TMenuItem
.Create(MainMenu
.Items
[0]);
2577 MI
.Caption
:= IntToStr(i
+1) + ' ' + RecentFiles
[i
];
2578 MI
.OnClick
:= aRecentFileExecute
;
2579 MainMenu
.Items
[0].Add(MI
);
2583 procedure TMainForm
.aRecentFileExecute(Sender
: TObject
);
2588 s
:= LowerCase((Sender
as TMenuItem
).Caption
);
2589 Delete(s
, Pos('&', s
), 1);
2590 s
:= Trim(Copy(s
, 1, 2));
2591 n
:= StrToIntDef(s
, 0) - 1;
2592 if (n
>= 0) and (n
<= RecentFiles
.Count
) then
2594 fn
:= g_ExtractWadName(RecentFiles
[n
]);
2595 if FileExists(fn
) then
2597 s
:= g_ExtractFilePathName(RecentFiles
[n
]);
2600 else if MessageBox(0, PChar(_lc
[I_MSG_DEL_RECENT_PROMT
]), PChar(_lc
[I_MSG_DEL_RECENT
]), MB_ICONQUESTION
or MB_YESNO
) = idYes
then
2602 RecentFiles
.Delete(n
);
2603 RefreshRecentMenu();
2608 procedure TMainForm
.aEditorOptionsExecute(Sender
: TObject
);
2610 OptionsForm
.ShowModal();
2613 procedure LoadStdFont(cfgres
, texture
: string; var FontID
: DWORD
);
2623 g_ReadResource(GameWad
, 'FONTS', cfgres
, cfgdata
, cfglen
);
2624 if cfgdata
<> nil then
2626 if not g_CreateTextureWAD('FONT_STD', GameWad
+ ':FONTS\' + texture
) then
2627 e_WriteLog('ERROR ERROR ERROR', MSG_WARNING
);
2629 config
:= TConfig
.CreateMem(cfgdata
, cfglen
);
2630 cwdt
:= Min(Max(config
.ReadInt('FontMap', 'CharWidth', 0), 0), 255);
2631 chgt
:= Min(Max(config
.ReadInt('FontMap', 'CharHeight', 0), 0), 255);
2632 spc
:= Min(Max(config
.ReadInt('FontMap', 'Kerning', 0), -128), 127);
2634 if g_GetTexture('FONT_STD', ID
) then
2635 e_TextureFontBuild(ID
, FontID
, cwdt
, chgt
, spc
- 2);
2642 e_WriteLog('Could not load FONT_STD', MSG_WARNING
)
2646 procedure TMainForm
.FormCreate(Sender
: TObject
);
2654 e_WriteLog('Doom 2D: Forever Editor version ' + EDITOR_VERSION
, MSG_NOTIFY
);
2655 e_WriteLog('Build date: ' + EDITOR_BUILDDATE
+ ' ' + EDITOR_BUILDTIME
, MSG_NOTIFY
);
2656 e_WriteLog('Build hash: ' + g_GetBuildHash(), MSG_NOTIFY
);
2657 e_WriteLog('Build by: ' + g_GetBuilderName(), MSG_NOTIFY
);
2659 slInvalidTextures
:= TStringList
.Create
;
2661 ShowLayer(LAYER_BACK
, True);
2662 ShowLayer(LAYER_WALLS
, True);
2663 ShowLayer(LAYER_FOREGROUND
, True);
2664 ShowLayer(LAYER_STEPS
, True);
2665 ShowLayer(LAYER_WATER
, True);
2666 ShowLayer(LAYER_ITEMS
, True);
2667 ShowLayer(LAYER_MONSTERS
, True);
2668 ShowLayer(LAYER_AREAS
, True);
2669 ShowLayer(LAYER_TRIGGERS
, True);
2673 FormCaption
:= MainForm
.Caption
;
2677 config
:= TConfig
.CreateFile(CfgFileName
);
2679 if config
.ReadInt('Editor', 'XPos', -1) = -1 then
2680 Position
:= poDesktopCenter
2682 Left
:= config
.ReadInt('Editor', 'XPos', Left
);
2683 Top
:= config
.ReadInt('Editor', 'YPos', Top
);
2684 Width
:= config
.ReadInt('Editor', 'Width', Width
);
2685 Height
:= config
.ReadInt('Editor', 'Height', Height
);
2687 if config
.ReadBool('Editor', 'Maximize', False) then
2688 WindowState
:= wsMaximized
;
2689 ShowMap
:= config
.ReadBool('Editor', 'Minimap', False);
2690 PanelProps
.Width
:= config
.ReadInt('Editor', 'PanelProps', PanelProps
.ClientWidth
);
2691 Splitter1
.Left
:= PanelProps
.Left
;
2692 PanelObjs
.Height
:= config
.ReadInt('Editor', 'PanelObjs', PanelObjs
.ClientHeight
);
2693 Splitter2
.Top
:= PanelObjs
.Top
;
2694 StatusBar
.Top
:= PanelObjs
.BoundsRect
.Bottom
;
2695 DotEnable
:= config
.ReadBool('Editor', 'DotEnable', True);
2696 DotColor
:= config
.ReadInt('Editor', 'DotColor', $FFFFFF);
2697 DotStepOne
:= config
.ReadInt('Editor', 'DotStepOne', 16);
2698 DotStepTwo
:= config
.ReadInt('Editor', 'DotStepTwo', 8);
2699 DotStep
:= config
.ReadInt('Editor', 'DotStep', DotStepOne
);
2700 DrawTexturePanel
:= config
.ReadBool('Editor', 'DrawTexturePanel', True);
2701 DrawPanelSize
:= config
.ReadBool('Editor', 'DrawPanelSize', True);
2702 BackColor
:= config
.ReadInt('Editor', 'BackColor', $7F6040);
2703 PreviewColor
:= config
.ReadInt('Editor', 'PreviewColor', $00FF00);
2704 UseCheckerboard
:= config
.ReadBool('Editor', 'UseCheckerboard', True);
2705 gColorEdge
:= config
.ReadInt('Editor', 'EdgeColor', COLOR_EDGE
);
2706 gAlphaEdge
:= config
.ReadInt('Editor', 'EdgeAlpha', ALPHA_EDGE
);
2707 if gAlphaEdge
= 255 then
2708 gAlphaEdge
:= ALPHA_EDGE
;
2709 drEdge
[0] := GetRValue(gColorEdge
);
2710 drEdge
[1] := GetGValue(gColorEdge
);
2711 drEdge
[2] := GetBValue(gColorEdge
);
2712 if not config
.ReadBool('Editor', 'EdgeShow', True) then
2715 drEdge
[3] := gAlphaEdge
;
2716 gAlphaTriggerLine
:= config
.ReadInt('Editor', 'LineAlpha', ALPHA_LINE
);
2717 if gAlphaTriggerLine
= 255 then
2718 gAlphaTriggerLine
:= ALPHA_LINE
;
2719 gAlphaTriggerArea
:= config
.ReadInt('Editor', 'TriggerAlpha', ALPHA_AREA
);
2720 if gAlphaTriggerArea
= 255 then
2721 gAlphaTriggerArea
:= ALPHA_AREA
;
2722 gAlphaMonsterRect
:= config
.ReadInt('Editor', 'MonsterRectAlpha', 0);
2723 gAlphaAreaRect
:= config
.ReadInt('Editor', 'AreaRectAlpha', 0);
2724 if config
.ReadInt('Editor', 'Scale', 0) = 1 then
2728 if config
.ReadInt('Editor', 'DotSize', 0) = 1 then
2732 OpenDialog
.InitialDir
:= config
.ReadStr('Editor', 'LastOpenDir', MapsDir
);
2733 SaveDialog
.InitialDir
:= config
.ReadStr('Editor', 'LastSaveDir', MapsDir
);
2735 s
:= config
.ReadStr('Editor', 'Language', '');
2738 Compress
:= config
.ReadBool('Editor', 'Compress', True);
2739 Backup
:= config
.ReadBool('Editor', 'Backup', True);
2741 RecentCount
:= config
.ReadInt('Editor', 'RecentCount', 5);
2742 if RecentCount
> 10 then
2744 if RecentCount
< 2 then
2747 RecentFiles
:= TStringList
.Create();
2748 for i
:= 0 to RecentCount
-1 do
2750 s
:= config
.ReadStr('RecentFiles', IntToStr(i
+1), '');
2754 RefreshRecentMenu();
2758 tbShowMap
.Down
:= ShowMap
;
2759 tbGridOn
.Down
:= DotEnable
;
2760 pcObjects
.ActivePageIndex
:= 0;
2761 Application
.Title
:= _lc
[I_EDITOR_TITLE
];
2763 Application
.OnIdle
:= OnIdle
;
2766 procedure PrintBlack(X
, Y
: Integer; Text: string; FontID
: DWORD
);
2768 // NOTE: all the font printing routines assume CP1251
2769 e_TextureFontPrintEx(X
, Y
, Text, FontID
, 0, 0, 0, 1.0);
2772 procedure TMainForm
.Draw();
2777 Width
, Height
: Word;
2780 aX
, aY
, aX2
, aY2
, XX
, ScaleSz
: Integer;
2789 e_Clear(GL_COLOR_BUFFER_BIT
,
2790 GetRValue(BackColor
)/255,
2791 GetGValue(BackColor
)/255,
2792 GetBValue(BackColor
)/255);
2796 ObjCount
:= SelectedObjectCount();
2798 // Обводим выделенные объекты красной рамкой:
2799 if ObjCount
> 0 then
2801 for a
:= 0 to High(SelectedObjects
) do
2802 if SelectedObjects
[a
].Live
then
2804 Rect
:= ObjectGetRect(SelectedObjects
[a
].ObjectType
, SelectedObjects
[a
].ID
);
2808 e_DrawQuad(X
+MapOffset
.X
, Y
+MapOffset
.Y
,
2809 X
+MapOffset
.X
+Width
-1, Y
+MapOffset
.Y
+Height
-1,
2812 // Рисуем точки изменения размеров:
2813 if (ObjCount
= 1) and
2814 (SelectedObjects
[GetFirstSelected
].ObjectType
in [OBJECT_PANEL
, OBJECT_TRIGGER
]) then
2816 e_DrawPoint(5, X
+MapOffset
.X
, Y
+MapOffset
.Y
+(Height
div 2), 255, 255, 255);
2817 e_DrawPoint(5, X
+MapOffset
.X
+Width
-1, Y
+MapOffset
.Y
+(Height
div 2), 255, 255, 255);
2818 e_DrawPoint(5, X
+MapOffset
.X
+(Width
div 2), Y
+MapOffset
.Y
, 255, 255, 255);
2819 e_DrawPoint(5, X
+MapOffset
.X
+(Width
div 2), Y
+MapOffset
.Y
+Height
-1, 255, 255, 255);
2821 e_DrawPoint(3, X
+MapOffset
.X
, Y
+MapOffset
.Y
+(Height
div 2), 255, 0, 0);
2822 e_DrawPoint(3, X
+MapOffset
.X
+Width
-1, Y
+MapOffset
.Y
+(Height
div 2), 255, 0, 0);
2823 e_DrawPoint(3, X
+MapOffset
.X
+(Width
div 2), Y
+MapOffset
.Y
, 255, 0, 0);
2824 e_DrawPoint(3, X
+MapOffset
.X
+(Width
div 2), Y
+MapOffset
.Y
+Height
-1, 255, 0, 0);
2831 if DotEnable
and (PreviewMode
= 0) then
2838 x
:= MapOffset
.X
mod DotStep
;
2839 y
:= MapOffset
.Y
mod DotStep
;
2841 while x
< RenderPanel
.Width
do
2843 while y
< RenderPanel
.Height
do
2845 e_DrawPoint(DotSize
, x
+ a
, y
+ a
,
2846 GetRValue(DotColor
),
2847 GetGValue(DotColor
),
2848 GetBValue(DotColor
));
2852 y
:= MapOffset
.Y
mod DotStep
;
2857 if (lbTextureList
.ItemIndex
<> -1) and (cbPreview
.Checked
) and
2858 (not IsSpecialTextureSel()) and (PreviewMode
= 0) then
2860 if not g_GetTexture(SelectedTexture(), ID
) then
2861 g_GetTexture('NOTEXTURE', ID
);
2862 g_GetTextureSizeByID(ID
, Width
, Height
);
2863 if UseCheckerboard
then
2865 if g_GetTexture('PREVIEW', PID
) then
2866 e_DrawFill(PID
, RenderPanel
.Width
-Width
, RenderPanel
.Height
-Height
, Width
div 16 + 1, Height
div 16 + 1, 0, True, False);
2868 e_DrawFillQuad(RenderPanel
.Width
-Width
-2, RenderPanel
.Height
-Height
-2,
2869 RenderPanel
.Width
-1, RenderPanel
.Height
-1,
2870 GetRValue(PreviewColor
), GetGValue(PreviewColor
), GetBValue(PreviewColor
), 0);
2871 e_Draw(ID
, RenderPanel
.Width
-Width
, RenderPanel
.Height
-Height
, 0, True, False);
2874 // Подсказка при выборе точки Телепорта:
2875 if SelectFlag
= SELECTFLAG_TELEPORT
then
2877 with gTriggers
[SelectedObjects
[GetFirstSelected()].ID
] do
2878 if Data
.d2d_teleport
then
2879 e_DrawLine(2, MousePos
.X
-16, MousePos
.Y
-1,
2880 MousePos
.X
+16, MousePos
.Y
-1,
2883 e_DrawQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+AreaSize
[AREA_DMPOINT
].Width
-1,
2884 MousePos
.Y
+AreaSize
[AREA_DMPOINT
].Height
-1, 255, 255, 255);
2886 e_DrawFillQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+180, MousePos
.Y
+18, 192, 192, 192, 127);
2887 e_DrawQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+180, MousePos
.Y
+18, 255, 255, 255);
2888 PrintBlack(MousePos
.X
+2, MousePos
.Y
+2, _glc
[I_HINT_TELEPORT
], gEditorFont
);
2891 // Подсказка при выборе точки появления:
2892 if SelectFlag
= SELECTFLAG_SPAWNPOINT
then
2894 e_DrawLine(2, MousePos
.X
-16, MousePos
.Y
-1,
2895 MousePos
.X
+16, MousePos
.Y
-1,
2897 e_DrawFillQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+180, MousePos
.Y
+18, 192, 192, 192, 127);
2898 e_DrawQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+180, MousePos
.Y
+18, 255, 255, 255);
2899 PrintBlack(MousePos
.X
+2, MousePos
.Y
+2, _glc
[I_HINT_SPAWN
], gEditorFont
);
2902 // Подсказка при выборе панели двери:
2903 if SelectFlag
= SELECTFLAG_DOOR
then
2905 e_DrawFillQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+180, MousePos
.Y
+18, 192, 192, 192, 127);
2906 e_DrawQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+180, MousePos
.Y
+18, 255, 255, 255);
2907 PrintBlack(MousePos
.X
+2, MousePos
.Y
+2, _glc
[I_HINT_PANEL_DOOR
], gEditorFont
);
2910 // Подсказка при выборе панели с текстурой:
2911 if SelectFlag
= SELECTFLAG_TEXTURE
then
2913 e_DrawFillQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+196, MousePos
.Y
+18, 192, 192, 192, 127);
2914 e_DrawQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+196, MousePos
.Y
+18, 255, 255, 255);
2915 PrintBlack(MousePos
.X
+2, MousePos
.Y
+2, _glc
[I_HINT_PANEL_TEXTURE
], gEditorFont
);
2918 // Подсказка при выборе панели индикации выстрела:
2919 if SelectFlag
= SELECTFLAG_SHOTPANEL
then
2921 e_DrawFillQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+316, MousePos
.Y
+18, 192, 192, 192, 127);
2922 e_DrawQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+316, MousePos
.Y
+18, 255, 255, 255);
2923 PrintBlack(MousePos
.X
+2, MousePos
.Y
+2, _glc
[I_HINT_PANEL_SHOT
], gEditorFont
);
2926 // Подсказка при выборе панели лифта:
2927 if SelectFlag
= SELECTFLAG_LIFT
then
2929 e_DrawFillQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+180, MousePos
.Y
+18, 192, 192, 192, 127);
2930 e_DrawQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+180, MousePos
.Y
+18, 255, 255, 255);
2931 PrintBlack(MousePos
.X
+2, MousePos
.Y
+2, _glc
[I_HINT_PANEL_LIFT
], gEditorFont
);
2934 // Подсказка при выборе монстра:
2935 if SelectFlag
= SELECTFLAG_MONSTER
then
2937 e_DrawFillQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+120, MousePos
.Y
+18, 192, 192, 192, 127);
2938 e_DrawQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+120, MousePos
.Y
+18, 255, 255, 255);
2939 PrintBlack(MousePos
.X
+2, MousePos
.Y
+2, _glc
[I_HINT_MONSTER
], gEditorFont
);
2942 // Подсказка при выборе области воздействия:
2943 if DrawPressRect
then
2945 e_DrawFillQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+204, MousePos
.Y
+18, 192, 192, 192, 127);
2946 e_DrawQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+204, MousePos
.Y
+18, 255, 255, 255);
2947 PrintBlack(MousePos
.X
+2, MousePos
.Y
+2, _glc
[I_HINT_EXT_AREA
], gEditorFont
);
2950 // Рисуем текстуры, если чертим панель:
2951 if (MouseAction
= MOUSEACTION_DRAWPANEL
) and (DrawTexturePanel
) and
2952 (lbTextureList
.ItemIndex
<> -1) and (DrawRect
<> nil) and
2953 (lbPanelType
.ItemIndex
in [0..8]) and not IsSpecialTextureSel() then
2955 if not g_GetTexture(SelectedTexture(), ID
) then
2956 g_GetTexture('NOTEXTURE', ID
);
2957 g_GetTextureSizeByID(ID
, Width
, Height
);
2959 if (Abs(Right
-Left
) >= Width
) and (Abs(Bottom
-Top
) >= Height
) then
2960 e_DrawFill(ID
, Min(Left
, Right
), Min(Top
, Bottom
), Abs(Right
-Left
) div Width
,
2961 Abs(Bottom
-Top
) div Height
, 64, True, False);
2964 // Прямоугольник выделения:
2965 if DrawRect
<> nil then
2967 e_DrawQuad(Left
, Top
, Right
-1, Bottom
-1, 255, 255, 255);
2969 // Чертим мышью панель/триггер или меняем мышью их размер:
2970 if (((MouseAction
in [MOUSEACTION_DRAWPANEL
, MOUSEACTION_DRAWTRIGGER
]) and
2971 not(ssCtrl
in GetKeyShiftState())) or (MouseAction
= MOUSEACTION_RESIZE
)) and
2972 (DrawPanelSize
) then
2974 e_DrawFillQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+88, MousePos
.Y
+33, 192, 192, 192, 127);
2975 e_DrawQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+88, MousePos
.Y
+33, 255, 255, 255);
2977 if MouseAction
in [MOUSEACTION_DRAWPANEL
, MOUSEACTION_DRAWTRIGGER
] then
2978 begin // Чертим новый
2979 PrintBlack(MousePos
.X
+2, MousePos
.Y
+2, Format(_glc
[I_HINT_WIDTH
],
2980 [Abs(MousePos
.X
-MouseLDownPos
.X
)]), gEditorFont
);
2981 PrintBlack(MousePos
.X
+2, MousePos
.Y
+16, Format(_glc
[I_HINT_HEIGHT
],
2982 [Abs(MousePos
.Y
-MouseLDownPos
.Y
)]), gEditorFont
);
2984 else // Растягиваем существующий
2985 if SelectedObjects
[GetFirstSelected
].ObjectType
in [OBJECT_PANEL
, OBJECT_TRIGGER
] then
2987 if SelectedObjects
[GetFirstSelected
].ObjectType
= OBJECT_PANEL
then
2989 Width
:= gPanels
[SelectedObjects
[GetFirstSelected
].ID
].Width
;
2990 Height
:= gPanels
[SelectedObjects
[GetFirstSelected
].ID
].Height
;
2994 Width
:= gTriggers
[SelectedObjects
[GetFirstSelected
].ID
].Width
;
2995 Height
:= gTriggers
[SelectedObjects
[GetFirstSelected
].ID
].Height
;
2998 PrintBlack(MousePos
.X
+2, MousePos
.Y
+2, Format(_glc
[I_HINT_WIDTH
], [Width
]),
3000 PrintBlack(MousePos
.X
+2, MousePos
.Y
+16, Format(_glc
[I_HINT_HEIGHT
], [Height
]),
3005 // Ближайшая к курсору мыши точка на сетке:
3006 e_DrawPoint(3, MousePos
.X
, MousePos
.Y
, 0, 0, 255);
3011 // Сколько пикселов карты в 1 пикселе мини-карты:
3012 ScaleSz
:= 16 div Scale
;
3013 // Размеры мини-карты:
3014 aX
:= max(gMapInfo
.Width
div ScaleSz
, 1);
3015 aY
:= max(gMapInfo
.Height
div ScaleSz
, 1);
3016 // X-координата на RenderPanel нулевой x-координаты карты:
3017 XX
:= RenderPanel
.Width
- aX
- 1;
3019 e_DrawFillQuad(XX
-1, 0, RenderPanel
.Width
-1, aY
+1, 0, 0, 0, 0);
3020 e_DrawQuad(XX
-1, 0, RenderPanel
.Width
-1, aY
+1, 197, 197, 197);
3022 if gPanels
<> nil then
3025 for a
:= 0 to High(gPanels
) do
3027 if PanelType
<> 0 then
3029 // Левый верхний угол:
3030 aX
:= XX
+ (X
div ScaleSz
);
3031 aY
:= 1 + (Y
div ScaleSz
);
3033 aX2
:= max(Width
div ScaleSz
, 1);
3034 aY2
:= max(Height
div ScaleSz
, 1);
3035 // Правый нижний угол:
3036 aX2
:= aX
+ aX2
- 1;
3037 aY2
:= aY
+ aY2
- 1;
3040 PANEL_WALL
: e_DrawFillQuad(aX
, aY
, aX2
, aY2
, 208, 208, 208, 0);
3041 PANEL_WATER
: e_DrawFillQuad(aX
, aY
, aX2
, aY2
, 0, 0, 192, 0);
3042 PANEL_ACID1
: e_DrawFillQuad(aX
, aY
, aX2
, aY2
, 0, 176, 0, 0);
3043 PANEL_ACID2
: e_DrawFillQuad(aX
, aY
, aX2
, aY2
, 176, 0, 0, 0);
3044 PANEL_STEP
: e_DrawFillQuad(aX
, aY
, aX2
, aY2
, 128, 128, 128, 0);
3045 PANEL_LIFTUP
: e_DrawFillQuad(aX
, aY
, aX2
, aY2
, 116, 72, 36, 0);
3046 PANEL_LIFTDOWN
: e_DrawFillQuad(aX
, aY
, aX2
, aY2
, 116, 124, 96, 0);
3047 PANEL_LIFTLEFT
: e_DrawFillQuad(aX
, aY
, aX2
, aY2
, 200, 80, 4, 0);
3048 PANEL_LIFTRIGHT
: e_DrawFillQuad(aX
, aY
, aX2
, aY2
, 252, 140, 56, 0);
3049 PANEL_OPENDOOR
: e_DrawFillQuad(aX
, aY
, aX2
, aY2
, 100, 220, 92, 0);
3050 PANEL_CLOSEDOOR
: e_DrawFillQuad(aX
, aY
, aX2
, aY2
, 212, 184, 64, 0);
3051 PANEL_BLOCKMON
: e_DrawFillQuad(aX
, aY
, aX2
, aY2
, 192, 0, 192, 0);
3055 // Рисуем красным выделенные панели:
3056 if SelectedObjects
<> nil then
3057 for b
:= 0 to High(SelectedObjects
) do
3058 with SelectedObjects
[b
] do
3059 if Live
and (ObjectType
= OBJECT_PANEL
) then
3060 with gPanels
[SelectedObjects
[b
].ID
] do
3061 if PanelType
and not(PANEL_BACK
or PANEL_FORE
) <> 0 then
3063 // Левый верхний угол:
3064 aX
:= XX
+ (X
div ScaleSz
);
3065 aY
:= 1 + (Y
div ScaleSz
);
3067 aX2
:= max(Width
div ScaleSz
, 1);
3068 aY2
:= max(Height
div ScaleSz
, 1);
3069 // Правый нижний угол:
3070 aX2
:= aX
+ aX2
- 1;
3071 aY2
:= aY
+ aY2
- 1;
3073 e_DrawFillQuad(aX
, aY
, aX2
, aY2
, 255, 0, 0, 0)
3077 if (gMapInfo
.Width
> RenderPanel
.Width
) or
3078 (gMapInfo
.Height
> RenderPanel
.Height
) then
3080 // Окно, показывающее текущее положение экрана на карте:
3082 x
:= max(min(RenderPanel
.Width
, gMapInfo
.Width
) div ScaleSz
, 1);
3083 y
:= max(min(RenderPanel
.Height
, gMapInfo
.Height
) div ScaleSz
, 1);
3084 // Левый верхний угол:
3085 aX
:= XX
+ ((-MapOffset
.X
) div ScaleSz
);
3086 aY
:= 1 + ((-MapOffset
.Y
) div ScaleSz
);
3087 // Правый нижний угол:
3091 e_DrawFillQuad(aX
, aY
, aX2
, aY2
, 127, 192, 127, 127, B_BLEND
);
3092 e_DrawQuad(aX
, aY
, aX2
, aY2
, 255, 0, 0);
3097 RenderPanel
.SwapBuffers();
3100 procedure TMainForm
.FormResize(Sender
: TObject
);
3102 e_SetViewPort(0, 0, RenderPanel
.Width
, RenderPanel
.Height
);
3104 sbHorizontal
.Min
:= Min(gMapInfo
.Width
- RenderPanel
.Width
, -RenderPanel
.Width
div 2);
3105 sbHorizontal
.Max
:= Max(0, gMapInfo
.Width
- RenderPanel
.Width
div 2);
3106 sbVertical
.Min
:= Min(gMapInfo
.Height
- RenderPanel
.Height
, -RenderPanel
.Height
div 2);
3107 sbVertical
.Max
:= Max(0, gMapInfo
.Height
- RenderPanel
.Height
div 2);
3109 MapOffset
.X
:= -sbHorizontal
.Position
;
3110 MapOffset
.Y
:= -sbVertical
.Position
;
3113 procedure SelectNextObject(X
, Y
: Integer; ObjectType
: Byte; ID
: DWORD
);
3118 j_max
:= 0; // shut up compiler
3122 res
:= (gPanels
<> nil) and
3123 PanelInShownLayer(gPanels
[ID
].PanelType
) and
3124 g_CollidePoint(X
, Y
, gPanels
[ID
].X
, gPanels
[ID
].Y
,
3126 gPanels
[ID
].Height
);
3127 j_max
:= Length(gPanels
) - 1;
3132 res
:= (gItems
<> nil) and
3133 LayerEnabled
[LAYER_ITEMS
] and
3134 g_CollidePoint(X
, Y
, gItems
[ID
].X
, gItems
[ID
].Y
,
3135 ItemSize
[gItems
[ID
].ItemType
][0],
3136 ItemSize
[gItems
[ID
].ItemType
][1]);
3137 j_max
:= Length(gItems
) - 1;
3142 res
:= (gMonsters
<> nil) and
3143 LayerEnabled
[LAYER_MONSTERS
] and
3144 g_CollidePoint(X
, Y
, gMonsters
[ID
].X
, gMonsters
[ID
].Y
,
3145 MonsterSize
[gMonsters
[ID
].MonsterType
].Width
,
3146 MonsterSize
[gMonsters
[ID
].MonsterType
].Height
);
3147 j_max
:= Length(gMonsters
) - 1;
3152 res
:= (gAreas
<> nil) and
3153 LayerEnabled
[LAYER_AREAS
] and
3154 g_CollidePoint(X
, Y
, gAreas
[ID
].X
, gAreas
[ID
].Y
,
3155 AreaSize
[gAreas
[ID
].AreaType
].Width
,
3156 AreaSize
[gAreas
[ID
].AreaType
].Height
);
3157 j_max
:= Length(gAreas
) - 1;
3162 res
:= (gTriggers
<> nil) and
3163 LayerEnabled
[LAYER_TRIGGERS
] and
3164 g_CollidePoint(X
, Y
, gTriggers
[ID
].X
, gTriggers
[ID
].Y
,
3165 gTriggers
[ID
].Width
,
3166 gTriggers
[ID
].Height
);
3167 j_max
:= Length(gTriggers
) - 1;
3177 // Перебор ID: от ID-1 до 0; потом от High до ID+1:
3186 if j
= Integer(ID
) then
3191 res
:= PanelInShownLayer(gPanels
[j
].PanelType
) and
3192 g_CollidePoint(X
, Y
, gPanels
[j
].X
, gPanels
[j
].Y
,
3196 res
:= (gItems
[j
].ItemType
<> ITEM_NONE
) and
3197 g_CollidePoint(X
, Y
, gItems
[j
].X
, gItems
[j
].Y
,
3198 ItemSize
[gItems
[j
].ItemType
][0],
3199 ItemSize
[gItems
[j
].ItemType
][1]);
3201 res
:= (gMonsters
[j
].MonsterType
<> MONSTER_NONE
) and
3202 g_CollidePoint(X
, Y
, gMonsters
[j
].X
, gMonsters
[j
].Y
,
3203 MonsterSize
[gMonsters
[j
].MonsterType
].Width
,
3204 MonsterSize
[gMonsters
[j
].MonsterType
].Height
);
3206 res
:= (gAreas
[j
].AreaType
<> AREA_NONE
) and
3207 g_CollidePoint(X
, Y
, gAreas
[j
].X
, gAreas
[j
].Y
,
3208 AreaSize
[gAreas
[j
].AreaType
].Width
,
3209 AreaSize
[gAreas
[j
].AreaType
].Height
);
3211 res
:= (gTriggers
[j
].TriggerType
<> TRIGGER_NONE
) and
3212 g_CollidePoint(X
, Y
, gTriggers
[j
].X
, gTriggers
[j
].Y
,
3214 gTriggers
[j
].Height
);
3221 SetLength(SelectedObjects
, 1);
3223 SelectedObjects
[0].ObjectType
:= ObjectType
;
3224 SelectedObjects
[0].ID
:= j
;
3225 SelectedObjects
[0].Live
:= True;
3233 procedure TMainForm
.RenderPanelMouseDown(Sender
: TObject
;
3234 Button
: TMouseButton
; Shift
: TShiftState
; X
, Y
: Integer);
3238 c1
, c2
, c3
, c4
: Boolean;
3244 MainForm
.ActiveControl
:= RenderPanel
;
3245 RenderPanel
.SetFocus();
3247 RenderPanelMouseMove(RenderPanel
, Shift
, X
, Y
);
3249 if Button
= mbLeft
then // Left Mouse Button
3251 // Двигаем карту с помощью мыши и мини-карты:
3253 g_CollidePoint(X
, Y
,
3254 RenderPanel
.Width
-max(gMapInfo
.Width
div (16 div Scale
), 1)-1,
3256 max(gMapInfo
.Width
div (16 div Scale
), 1),
3257 max(gMapInfo
.Height
div (16 div Scale
), 1) ) then
3260 MouseAction
:= MOUSEACTION_MOVEMAP
;
3262 else // Ставим предмет/монстра/область:
3263 if (pcObjects
.ActivePageIndex
in [1, 2, 3]) and
3264 (not (ssShift
in Shift
)) then
3266 case pcObjects
.ActivePageIndex
of
3268 if lbItemList
.ItemIndex
= -1 then
3269 ErrorMessageBox(_lc
[I_MSG_CHOOSE_ITEM
])
3272 item
.ItemType
:= lbItemList
.ItemIndex
+ ITEM_MEDKIT_SMALL
;
3273 if item
.ItemType
>= ITEM_WEAPON_KASTET
then
3274 item
.ItemType
:= item
.ItemType
+ 2;
3275 item
.X
:= MousePos
.X
-MapOffset
.X
;
3276 item
.Y
:= MousePos
.Y
-MapOffset
.Y
;
3278 if not (ssCtrl
in Shift
) then
3280 item
.X
:= item
.X
- (ItemSize
[item
.ItemType
][0] div 2);
3281 item
.Y
:= item
.Y
- ItemSize
[item
.ItemType
][1];
3284 item
.OnlyDM
:= cbOnlyDM
.Checked
;
3285 item
.Fall
:= cbFall
.Checked
;
3286 Undo_Add(OBJECT_ITEM
, AddItem(item
));
3289 if lbMonsterList
.ItemIndex
= -1 then
3290 ErrorMessageBox(_lc
[I_MSG_CHOOSE_MONSTER
])
3293 monster
.MonsterType
:= lbMonsterList
.ItemIndex
+ MONSTER_DEMON
;
3294 monster
.X
:= MousePos
.X
-MapOffset
.X
;
3295 monster
.Y
:= MousePos
.Y
-MapOffset
.Y
;
3297 if not (ssCtrl
in Shift
) then
3299 monster
.X
:= monster
.X
- (MonsterSize
[monster
.MonsterType
].Width
div 2);
3300 monster
.Y
:= monster
.Y
- MonsterSize
[monster
.MonsterType
].Height
;
3303 if rbMonsterLeft
.Checked
then
3304 monster
.Direction
:= D_LEFT
3306 monster
.Direction
:= D_RIGHT
;
3307 Undo_Add(OBJECT_MONSTER
, AddMonster(monster
));
3310 if lbAreasList
.ItemIndex
= -1 then
3311 ErrorMessageBox(_lc
[I_MSG_CHOOSE_AREA
])
3313 if (lbAreasList
.ItemIndex
+ 1) <> AREA_DOMFLAG
then
3315 area
.AreaType
:= lbAreasList
.ItemIndex
+ AREA_PLAYERPOINT1
;
3316 area
.X
:= MousePos
.X
-MapOffset
.X
;
3317 area
.Y
:= MousePos
.Y
-MapOffset
.Y
;
3319 if not (ssCtrl
in Shift
) then
3321 area
.X
:= area
.X
- (AreaSize
[area
.AreaType
].Width
div 2);
3322 area
.Y
:= area
.Y
- AreaSize
[area
.AreaType
].Height
;
3325 if rbAreaLeft
.Checked
then
3326 area
.Direction
:= D_LEFT
3328 area
.Direction
:= D_RIGHT
;
3329 Undo_Add(OBJECT_AREA
, AddArea(area
));
3335 i
:= GetFirstSelected();
3337 // Выбираем объект под текущим:
3338 if (SelectedObjects
<> nil) and
3339 (ssShift
in Shift
) and (i
>= 0) and
3340 (SelectedObjects
[i
].Live
) then
3342 if SelectedObjectCount() = 1 then
3343 SelectNextObject(X
-MapOffset
.X
, Y
-MapOffset
.Y
,
3344 SelectedObjects
[i
].ObjectType
,
3345 SelectedObjects
[i
].ID
);
3349 // Рисуем область триггера "Расширитель":
3350 if DrawPressRect
and (i
>= 0) and
3351 (SelectedObjects
[i
].ObjectType
= OBJECT_TRIGGER
) and
3352 (gTriggers
[SelectedObjects
[i
].ID
].TriggerType
in
3353 [TRIGGER_PRESS
, TRIGGER_ON
, TRIGGER_OFF
, TRIGGER_ONOFF
]) then
3354 MouseAction
:= MOUSEACTION_DRAWPRESS
3355 else // Рисуем панель:
3356 if pcObjects
.ActivePageIndex
= 0 then
3358 if (lbPanelType
.ItemIndex
>= 0) then
3359 MouseAction
:= MOUSEACTION_DRAWPANEL
3361 else // Рисуем триггер:
3362 if (lbTriggersList
.ItemIndex
>= 0) then
3364 MouseAction
:= MOUSEACTION_DRAWTRIGGER
;
3368 end; // if Button = mbLeft
3370 if Button
= mbRight
then // Right Mouse Button
3372 // Клик по мини-карте:
3374 g_CollidePoint(X
, Y
,
3375 RenderPanel
.Width
-max(gMapInfo
.Width
div (16 div Scale
), 1)-1,
3377 max(gMapInfo
.Width
div (16 div Scale
), 1),
3378 max(gMapInfo
.Height
div (16 div Scale
), 1) ) then
3380 MouseAction
:= MOUSEACTION_NOACTION
;
3382 else // Нужно что-то выбрать мышью:
3383 if SelectFlag
<> SELECTFLAG_NONE
then
3386 SELECTFLAG_TELEPORT
:
3387 // Точку назначения телепортации:
3388 with gTriggers
[SelectedObjects
[
3389 GetFirstSelected() ].ID
].Data
.TargetPoint
do
3391 X
:= MousePos
.X
-MapOffset
.X
;
3392 Y
:= MousePos
.Y
-MapOffset
.Y
;
3395 SELECTFLAG_SPAWNPOINT
:
3396 // Точку создания монстра:
3397 with gTriggers
[SelectedObjects
[GetFirstSelected()].ID
] do
3398 if TriggerType
= TRIGGER_SPAWNMONSTER
then
3400 Data
.MonPos
.X
:= MousePos
.X
-MapOffset
.X
;
3401 Data
.MonPos
.Y
:= MousePos
.Y
-MapOffset
.Y
;
3403 else if TriggerType
= TRIGGER_SPAWNITEM
then
3404 begin // Точка создания предмета:
3405 Data
.ItemPos
.X
:= MousePos
.X
-MapOffset
.X
;
3406 Data
.ItemPos
.Y
:= MousePos
.Y
-MapOffset
.Y
;
3408 else if TriggerType
= TRIGGER_SHOT
then
3409 begin // Точка создания выстрела:
3410 Data
.ShotPos
.X
:= MousePos
.X
-MapOffset
.X
;
3411 Data
.ShotPos
.Y
:= MousePos
.Y
-MapOffset
.Y
;
3417 IDArray
:= ObjectInRect(X
-MapOffset
.X
,
3419 2, 2, OBJECT_PANEL
, True);
3420 if IDArray
<> nil then
3422 for i
:= 0 to High(IDArray
) do
3423 if (gPanels
[IDArray
[i
]].PanelType
= PANEL_OPENDOOR
) or
3424 (gPanels
[IDArray
[i
]].PanelType
= PANEL_CLOSEDOOR
) then
3426 gTriggers
[SelectedObjects
[
3427 GetFirstSelected() ].ID
].Data
.PanelID
:= IDArray
[i
];
3432 gTriggers
[SelectedObjects
[
3433 GetFirstSelected() ].ID
].Data
.PanelID
:= -1;
3437 // Панель с текстурой:
3439 IDArray
:= ObjectInRect(X
-MapOffset
.X
,
3441 2, 2, OBJECT_PANEL
, True);
3442 if IDArray
<> nil then
3444 for i
:= 0 to High(IDArray
) do
3445 if ((gPanels
[IDArray
[i
]].PanelType
in
3446 [PANEL_WALL
, PANEL_BACK
, PANEL_FORE
,
3447 PANEL_WATER
, PANEL_ACID1
, PANEL_ACID2
,
3449 (gPanels
[IDArray
[i
]].PanelType
= PANEL_OPENDOOR
) or
3450 (gPanels
[IDArray
[i
]].PanelType
= PANEL_CLOSEDOOR
)) and
3451 (gPanels
[IDArray
[i
]].TextureName
<> '') then
3453 gTriggers
[SelectedObjects
[
3454 GetFirstSelected() ].ID
].TexturePanel
:= IDArray
[i
];
3459 gTriggers
[SelectedObjects
[
3460 GetFirstSelected() ].ID
].TexturePanel
:= -1;
3466 IDArray
:= ObjectInRect(X
-MapOffset
.X
,
3468 2, 2, OBJECT_PANEL
, True);
3469 if IDArray
<> nil then
3471 for i
:= 0 to High(IDArray
) do
3472 if (gPanels
[IDArray
[i
]].PanelType
= PANEL_LIFTUP
) or
3473 (gPanels
[IDArray
[i
]].PanelType
= PANEL_LIFTDOWN
) or
3474 (gPanels
[IDArray
[i
]].PanelType
= PANEL_LIFTLEFT
) or
3475 (gPanels
[IDArray
[i
]].PanelType
= PANEL_LIFTRIGHT
) then
3477 gTriggers
[SelectedObjects
[
3478 GetFirstSelected() ].ID
].Data
.PanelID
:= IDArray
[i
];
3483 gTriggers
[SelectedObjects
[
3484 GetFirstSelected() ].ID
].Data
.PanelID
:= -1;
3490 IDArray
:= ObjectInRect(X
-MapOffset
.X
,
3492 2, 2, OBJECT_MONSTER
, False);
3493 if IDArray
<> nil then
3494 gTriggers
[SelectedObjects
[
3495 GetFirstSelected() ].ID
].Data
.MonsterID
:= IDArray
[0]+1
3497 gTriggers
[SelectedObjects
[
3498 GetFirstSelected() ].ID
].Data
.MonsterID
:= 0;
3501 SELECTFLAG_SHOTPANEL
:
3502 // Панель индикации выстрела:
3504 if gTriggers
[SelectedObjects
[
3505 GetFirstSelected() ].ID
].TriggerType
= TRIGGER_SHOT
then
3507 IDArray
:= ObjectInRect(X
-MapOffset
.X
,
3509 2, 2, OBJECT_PANEL
, True);
3510 if IDArray
<> nil then
3512 for i
:= 0 to High(IDArray
) do
3513 if ((gPanels
[IDArray
[i
]].PanelType
in
3514 [PANEL_WALL
, PANEL_BACK
, PANEL_FORE
,
3515 PANEL_WATER
, PANEL_ACID1
, PANEL_ACID2
,
3517 (gPanels
[IDArray
[i
]].PanelType
= PANEL_OPENDOOR
) or
3518 (gPanels
[IDArray
[i
]].PanelType
= PANEL_CLOSEDOOR
)) and
3519 (gPanels
[IDArray
[i
]].TextureName
<> '') then
3521 gTriggers
[SelectedObjects
[
3522 GetFirstSelected() ].ID
].Data
.ShotPanelID
:= IDArray
[i
];
3527 gTriggers
[SelectedObjects
[
3528 GetFirstSelected() ].ID
].Data
.ShotPanelID
:= -1;
3533 SelectFlag
:= SELECTFLAG_SELECTED
;
3535 else // if SelectFlag <> SELECTFLAG_NONE...
3537 // Что уже выбрано и не нажат Ctrl:
3538 if (SelectedObjects
<> nil) and
3539 (not (ssCtrl
in Shift
)) then
3540 for i
:= 0 to High(SelectedObjects
) do
3541 with SelectedObjects
[i
] do
3544 if (ObjectType
in [OBJECT_PANEL
, OBJECT_TRIGGER
]) and
3545 (SelectedObjectCount() = 1) then
3547 Rect
:= ObjectGetRect(ObjectType
, ID
);
3549 c1
:= g_Collide(X
-MapOffset
.X
-1, Y
-MapOffset
.Y
-1, 2, 2,
3550 Rect
.X
-2, Rect
.Y
+(Rect
.Height
div 2)-2, 4, 4);
3551 c2
:= g_Collide(X
-MapOffset
.X
-1, Y
-MapOffset
.Y
-1, 2, 2,
3552 Rect
.X
+Rect
.Width
-3, Rect
.Y
+(Rect
.Height
div 2)-2, 4, 4);
3553 c3
:= g_Collide(X
-MapOffset
.X
-1, Y
-MapOffset
.Y
-1, 2, 2,
3554 Rect
.X
+(Rect
.Width
div 2)-2, Rect
.Y
-2, 4, 4);
3555 c4
:= g_Collide(X
-MapOffset
.X
-1, Y
-MapOffset
.Y
-1, 2, 2,
3556 Rect
.X
+(Rect
.Width
div 2)-2, Rect
.Y
+Rect
.Height
-3, 4, 4);
3558 // Меняем размер панели или триггера:
3559 if c1
or c2
or c3
or c4
then
3561 MouseAction
:= MOUSEACTION_RESIZE
;
3562 LastMovePoint
:= MousePos
;
3566 ResizeType
:= RESIZETYPE_HORIZONTAL
;
3568 ResizeDirection
:= RESIZEDIR_LEFT
3570 ResizeDirection
:= RESIZEDIR_RIGHT
;
3571 RenderPanel
.Cursor
:= crSizeWE
;
3575 ResizeType
:= RESIZETYPE_VERTICAL
;
3577 ResizeDirection
:= RESIZEDIR_UP
3579 ResizeDirection
:= RESIZEDIR_DOWN
;
3580 RenderPanel
.Cursor
:= crSizeNS
;
3587 // Перемещаем панель или триггер:
3588 if ObjectCollide(ObjectType
, ID
,
3590 Y
-MapOffset
.Y
-1, 2, 2) then
3592 MouseAction
:= MOUSEACTION_MOVEOBJ
;
3593 LastMovePoint
:= MousePos
;
3599 end; // if Button = mbRight
3601 if Button
= mbMiddle
then // Middle Mouse Button
3603 SetCapture(RenderPanel
.Handle
);
3604 RenderPanel
.Cursor
:= crSize
;
3607 MouseMDown
:= Button
= mbMiddle
;
3609 MouseMDownPos
:= Mouse
.CursorPos
;
3611 MouseRDown
:= Button
= mbRight
;
3613 MouseRDownPos
:= MousePos
;
3615 MouseLDown
:= Button
= mbLeft
;
3617 MouseLDownPos
:= MousePos
;
3620 procedure TMainForm
.RenderPanelMouseUp(Sender
: TObject
;
3621 Button
: TMouseButton
; Shift
: TShiftState
; X
, Y
: Integer);
3626 rSelectRect
: Boolean;
3627 wWidth
, wHeight
: Word;
3630 procedure SelectObjects(ObjectType
: Byte);
3635 IDArray
:= ObjectInRect(rRect
.X
, rRect
.Y
,
3636 rRect
.Width
, rRect
.Height
,
3637 ObjectType
, rSelectRect
);
3639 if IDArray
<> nil then
3640 for i
:= 0 to High(IDArray
) do
3641 SelectObject(ObjectType
, IDArray
[i
], (ssCtrl
in Shift
) or rSelectRect
);
3644 if Button
= mbLeft
then
3645 MouseLDown
:= False;
3646 if Button
= mbRight
then
3647 MouseRDown
:= False;
3648 if Button
= mbMiddle
then
3649 MouseMDown
:= False;
3652 ResizeType
:= RESIZETYPE_NONE
;
3655 if Button
= mbLeft
then // Left Mouse Button
3657 if MouseAction
<> MOUSEACTION_NONE
then
3658 begin // Было действие мышью
3659 // Мышь сдвинулась во время удержания клавиши,
3660 // либо активирован режим быстрого рисования:
3661 if ((MousePos
.X
<> MouseLDownPos
.X
) and
3662 (MousePos
.Y
<> MouseLDownPos
.Y
)) or
3663 ((MouseAction
in [MOUSEACTION_DRAWPANEL
, MOUSEACTION_DRAWTRIGGER
]) and
3664 (ssCtrl
in Shift
)) then
3667 MOUSEACTION_DRAWPANEL
:
3669 // Фон или передний план без текстуры - ошибка:
3670 if (lbPanelType
.ItemIndex
in [1, 2]) and
3671 (lbTextureList
.ItemIndex
= -1) then
3672 ErrorMessageBox(_lc
[I_MSG_CHOOSE_TEXTURE
])
3673 else // Назначаем параметры панели:
3675 case lbPanelType
.ItemIndex
of
3676 0: Panel
.PanelType
:= PANEL_WALL
;
3677 1: Panel
.PanelType
:= PANEL_BACK
;
3678 2: Panel
.PanelType
:= PANEL_FORE
;
3679 3: Panel
.PanelType
:= PANEL_OPENDOOR
;
3680 4: Panel
.PanelType
:= PANEL_CLOSEDOOR
;
3681 5: Panel
.PanelType
:= PANEL_STEP
;
3682 6: Panel
.PanelType
:= PANEL_WATER
;
3683 7: Panel
.PanelType
:= PANEL_ACID1
;
3684 8: Panel
.PanelType
:= PANEL_ACID2
;
3685 9: Panel
.PanelType
:= PANEL_LIFTUP
;
3686 10: Panel
.PanelType
:= PANEL_LIFTDOWN
;
3687 11: Panel
.PanelType
:= PANEL_LIFTLEFT
;
3688 12: Panel
.PanelType
:= PANEL_LIFTRIGHT
;
3689 13: Panel
.PanelType
:= PANEL_BLOCKMON
;
3692 Panel
.X
:= Min(MousePos
.X
-MapOffset
.X
, MouseLDownPos
.X
-MapOffset
.X
);
3693 Panel
.Y
:= Min(MousePos
.Y
-MapOffset
.Y
, MouseLDownPos
.Y
-MapOffset
.Y
);
3694 if ssCtrl
in Shift
then
3698 if (lbTextureList
.ItemIndex
<> -1) and
3699 (not IsSpecialTextureSel()) then
3701 if not g_GetTexture(SelectedTexture(), TextureID
) then
3702 g_GetTexture('NOTEXTURE', TextureID
);
3703 g_GetTextureSizeByID(TextureID
, wWidth
, wHeight
);
3705 Panel
.Width
:= wWidth
;
3706 Panel
.Height
:= wHeight
;
3710 Panel
.Width
:= Abs(MousePos
.X
-MouseLDownPos
.X
);
3711 Panel
.Height
:= Abs(MousePos
.Y
-MouseLDownPos
.Y
);
3714 // Лифты, блокМон или отсутствие текстуры - пустая текстура:
3715 if (lbPanelType
.ItemIndex
in [9, 10, 11, 12, 13]) or
3716 (lbTextureList
.ItemIndex
= -1) then
3718 Panel
.TextureHeight
:= 1;
3719 Panel
.TextureWidth
:= 1;
3720 Panel
.TextureName
:= '';
3721 Panel
.TextureID
:= TEXTURE_SPECIAL_NONE
;
3723 else // Есть текстура:
3725 Panel
.TextureName
:= SelectedTexture();
3727 // Обычная текстура:
3728 if not IsSpecialTextureSel() then
3730 g_GetTextureSizeByName(Panel
.TextureName
,
3731 Panel
.TextureWidth
, Panel
.TextureHeight
);
3732 g_GetTexture(Panel
.TextureName
, Panel
.TextureID
);
3734 else // Спец.текстура:
3736 Panel
.TextureHeight
:= 1;
3737 Panel
.TextureWidth
:= 1;
3738 Panel
.TextureID
:= SpecialTextureID(SelectedTexture());
3743 Panel
.Blending
:= False;
3745 Undo_Add(OBJECT_PANEL
, AddPanel(Panel
));
3749 // Рисовали триггер:
3750 MOUSEACTION_DRAWTRIGGER
:
3752 trigger
.X
:= Min(MousePos
.X
-MapOffset
.X
, MouseLDownPos
.X
-MapOffset
.X
);
3753 trigger
.Y
:= Min(MousePos
.Y
-MapOffset
.Y
, MouseLDownPos
.Y
-MapOffset
.Y
);
3754 if ssCtrl
in Shift
then
3758 trigger
.Width
:= wWidth
;
3759 trigger
.Height
:= wHeight
;
3763 trigger
.Width
:= Abs(MousePos
.X
-MouseLDownPos
.X
);
3764 trigger
.Height
:= Abs(MousePos
.Y
-MouseLDownPos
.Y
);
3767 trigger
.Enabled
:= True;
3768 trigger
.TriggerType
:= lbTriggersList
.ItemIndex
+1;
3769 trigger
.TexturePanel
:= -1;
3772 trigger
.ActivateType
:= 0;
3774 if clbActivationType
.Checked
[0] then
3775 trigger
.ActivateType
:= Trigger
.ActivateType
or ACTIVATE_PLAYERCOLLIDE
;
3776 if clbActivationType
.Checked
[1] then
3777 trigger
.ActivateType
:= Trigger
.ActivateType
or ACTIVATE_MONSTERCOLLIDE
;
3778 if clbActivationType
.Checked
[2] then
3779 trigger
.ActivateType
:= Trigger
.ActivateType
or ACTIVATE_PLAYERPRESS
;
3780 if clbActivationType
.Checked
[3] then
3781 trigger
.ActivateType
:= Trigger
.ActivateType
or ACTIVATE_MONSTERPRESS
;
3782 if clbActivationType
.Checked
[4] then
3783 trigger
.ActivateType
:= Trigger
.ActivateType
or ACTIVATE_SHOT
;
3784 if clbActivationType
.Checked
[5] then
3785 trigger
.ActivateType
:= Trigger
.ActivateType
or ACTIVATE_NOMONSTER
;
3787 // Необходимые для активации ключи:
3790 if clbKeys
.Checked
[0] then
3791 trigger
.Key
:= Trigger
.Key
or KEY_RED
;
3792 if clbKeys
.Checked
[1] then
3793 trigger
.Key
:= Trigger
.Key
or KEY_GREEN
;
3794 if clbKeys
.Checked
[2] then
3795 trigger
.Key
:= Trigger
.Key
or KEY_BLUE
;
3796 if clbKeys
.Checked
[3] then
3797 trigger
.Key
:= Trigger
.Key
or KEY_REDTEAM
;
3798 if clbKeys
.Checked
[4] then
3799 trigger
.Key
:= Trigger
.Key
or KEY_BLUETEAM
;
3801 // Параметры триггера:
3802 FillByte(trigger
.Data
.Default
[0], 128, 0);
3804 case trigger
.TriggerType
of
3805 // Переключаемая панель:
3806 TRIGGER_OPENDOOR
, TRIGGER_CLOSEDOOR
, TRIGGER_DOOR
,
3807 TRIGGER_DOOR5
, TRIGGER_CLOSETRAP
, TRIGGER_TRAP
,
3808 TRIGGER_LIFTUP
, TRIGGER_LIFTDOWN
, TRIGGER_LIFT
:
3810 Trigger
.Data
.PanelID
:= -1;
3816 trigger
.Data
.TargetPoint
.X
:= trigger
.X
-64;
3817 trigger
.Data
.TargetPoint
.Y
:= trigger
.Y
-64;
3818 trigger
.Data
.d2d_teleport
:= True;
3819 trigger
.Data
.TlpDir
:= 0;
3822 // Изменение других триггеров:
3823 TRIGGER_PRESS
, TRIGGER_ON
, TRIGGER_OFF
,
3826 trigger
.Data
.Count
:= 1;
3832 trigger
.Data
.Volume
:= 255;
3833 trigger
.Data
.Pan
:= 127;
3834 trigger
.Data
.PlayCount
:= 1;
3835 trigger
.Data
.Local
:= True;
3836 trigger
.Data
.SoundSwitch
:= False;
3842 trigger
.Data
.MusicAction
:= 1;
3845 // Создание монстра:
3846 TRIGGER_SPAWNMONSTER
:
3848 trigger
.Data
.MonType
:= MONSTER_ZOMBY
;
3849 trigger
.Data
.MonPos
.X
:= trigger
.X
-64;
3850 trigger
.Data
.MonPos
.Y
:= trigger
.Y
-64;
3851 trigger
.Data
.MonHealth
:= 0;
3852 trigger
.Data
.MonActive
:= False;
3853 trigger
.Data
.MonCount
:= 1;
3856 // Создание предмета:
3859 trigger
.Data
.ItemType
:= ITEM_AMMO_BULLETS
;
3860 trigger
.Data
.ItemPos
.X
:= trigger
.X
-64;
3861 trigger
.Data
.ItemPos
.Y
:= trigger
.Y
-64;
3862 trigger
.Data
.ItemOnlyDM
:= False;
3863 trigger
.Data
.ItemFalls
:= False;
3864 trigger
.Data
.ItemCount
:= 1;
3865 trigger
.Data
.ItemMax
:= 0;
3866 trigger
.Data
.ItemDelay
:= 0;
3872 trigger
.Data
.PushAngle
:= 90;
3873 trigger
.Data
.PushForce
:= 10;
3874 trigger
.Data
.ResetVel
:= True;
3879 trigger
.Data
.ScoreCount
:= 1;
3880 trigger
.Data
.ScoreCon
:= True;
3881 trigger
.Data
.ScoreMsg
:= True;
3886 trigger
.Data
.MessageKind
:= 0;
3887 trigger
.Data
.MessageSendTo
:= 0;
3888 trigger
.Data
.MessageText
:= '';
3889 trigger
.Data
.MessageTime
:= 144;
3894 trigger
.Data
.DamageValue
:= 5;
3895 trigger
.Data
.DamageInterval
:= 12;
3900 trigger
.Data
.HealValue
:= 5;
3901 trigger
.Data
.HealInterval
:= 36;
3906 trigger
.Data
.ShotType
:= TRIGGER_SHOT_BULLET
;
3907 trigger
.Data
.ShotSound
:= True;
3908 trigger
.Data
.ShotPanelID
:= -1;
3909 trigger
.Data
.ShotTarget
:= 0;
3910 trigger
.Data
.ShotIntSight
:= 0;
3911 trigger
.Data
.ShotAim
:= TRIGGER_SHOT_AIM_DEFAULT
;
3912 trigger
.Data
.ShotPos
.X
:= trigger
.X
-64;
3913 trigger
.Data
.ShotPos
.Y
:= trigger
.Y
-64;
3914 trigger
.Data
.ShotAngle
:= 0;
3915 trigger
.Data
.ShotWait
:= 18;
3916 trigger
.Data
.ShotAccuracy
:= 0;
3917 trigger
.Data
.ShotAmmo
:= 0;
3918 trigger
.Data
.ShotIntReload
:= 0;
3923 trigger
.Data
.FXCount
:= 1;
3924 trigger
.Data
.FXType
:= TRIGGER_EFFECT_PARTICLE
;
3925 trigger
.Data
.FXSubType
:= TRIGGER_EFFECT_SLIQUID
;
3926 trigger
.Data
.FXColorR
:= 0;
3927 trigger
.Data
.FXColorG
:= 0;
3928 trigger
.Data
.FXColorB
:= 255;
3929 trigger
.Data
.FXPos
:= TRIGGER_EFFECT_POS_CENTER
;
3930 trigger
.Data
.FXWait
:= 1;
3931 trigger
.Data
.FXVelX
:= 0;
3932 trigger
.Data
.FXVelY
:= -20;
3933 trigger
.Data
.FXSpreadL
:= 5;
3934 trigger
.Data
.FXSpreadR
:= 5;
3935 trigger
.Data
.FXSpreadU
:= 4;
3936 trigger
.Data
.FXSpreadD
:= 0;
3940 Undo_Add(OBJECT_TRIGGER
, AddTrigger(trigger
));
3943 // Рисовали область триггера "Расширитель":
3944 MOUSEACTION_DRAWPRESS
:
3945 with gTriggers
[SelectedObjects
[GetFirstSelected
].ID
] do
3947 Data
.tX
:= Min(MousePos
.X
-MapOffset
.X
, MouseLDownPos
.X
-MapOffset
.X
);
3948 Data
.tY
:= Min(MousePos
.Y
-MapOffset
.Y
, MouseLDownPos
.Y
-MapOffset
.Y
);
3949 Data
.tWidth
:= Abs(MousePos
.X
-MouseLDownPos
.X
);
3950 Data
.tHeight
:= Abs(MousePos
.Y
-MouseLDownPos
.Y
);
3952 DrawPressRect
:= False;
3956 MouseAction
:= MOUSEACTION_NONE
;
3958 end // if Button = mbLeft...
3959 else if Button
= mbRight
then // Right Mouse Button:
3961 if MouseAction
= MOUSEACTION_NOACTION
then
3963 MouseAction
:= MOUSEACTION_NONE
;
3967 // Объект передвинут или изменен в размере:
3968 if MouseAction
in [MOUSEACTION_MOVEOBJ
, MOUSEACTION_RESIZE
] then
3970 RenderPanel
.Cursor
:= crDefault
;
3971 MouseAction
:= MOUSEACTION_NONE
;
3976 // Еще не все выбрали:
3977 if SelectFlag
<> SELECTFLAG_NONE
then
3979 if SelectFlag
= SELECTFLAG_SELECTED
then
3980 SelectFlag
:= SELECTFLAG_NONE
;
3985 // Мышь сдвинулась во время удержания клавиши:
3986 if (MousePos
.X
<> MouseRDownPos
.X
) and
3987 (MousePos
.Y
<> MouseRDownPos
.Y
) then
3989 rSelectRect
:= True;
3991 rRect
.X
:= Min(MousePos
.X
, MouseRDownPos
.X
)-MapOffset
.X
;
3992 rRect
.Y
:= Min(MousePos
.Y
, MouseRDownPos
.Y
)-MapOffset
.Y
;
3993 rRect
.Width
:= Abs(MousePos
.X
-MouseRDownPos
.X
);
3994 rRect
.Height
:= Abs(MousePos
.Y
-MouseRDownPos
.Y
);
3996 else // Мышь не сдвинулась - нет прямоугольника:
3998 rSelectRect
:= False;
4000 rRect
.X
:= X
-MapOffset
.X
-1;
4001 rRect
.Y
:= Y
-MapOffset
.Y
-1;
4006 // Если зажат Ctrl - выделять еще, иначе только один выделенный объект:
4007 if not (ssCtrl
in Shift
) then
4008 RemoveSelectFromObjects();
4010 // Выделяем всё в выбранном прямоугольнике:
4011 if (ssCtrl
in Shift
) and (ssAlt
in Shift
) then
4013 SelectObjects(OBJECT_PANEL
);
4014 SelectObjects(OBJECT_ITEM
);
4015 SelectObjects(OBJECT_MONSTER
);
4016 SelectObjects(OBJECT_AREA
);
4017 SelectObjects(OBJECT_TRIGGER
);
4020 SelectObjects(pcObjects
.ActivePageIndex
+1);
4025 else // Middle Mouse Button
4027 RenderPanel
.Cursor
:= crDefault
;
4032 procedure TMainForm
.RenderPanelPaint(Sender
: TObject
);
4037 function TMainForm
.RenderMousePos(): Types
.TPoint
;
4039 Result
:= RenderPanel
.ScreenToClient(Mouse
.CursorPos
);
4042 procedure TMainForm
.RecountSelectedObjects();
4044 if SelectedObjectCount() = 0 then
4045 StatusBar
.Panels
[0].Text := ''
4047 StatusBar
.Panels
[0].Text := Format(_lc
[I_CAP_STAT_SELECTED
], [SelectedObjectCount()]);
4050 procedure TMainForm
.RenderPanelMouseMove(Sender
: TObject
;
4051 Shift
: TShiftState
; X
, Y
: Integer);
4054 dWidth
, dHeight
: Integer;
4057 wWidth
, wHeight
: Word;
4059 _id
:= GetFirstSelected();
4062 // Рисуем панель с текстурой, сетка - размеры текстуры:
4063 if (MouseAction
= MOUSEACTION_DRAWPANEL
) and
4064 (lbPanelType
.ItemIndex
in [0..8]) and
4065 (lbTextureList
.ItemIndex
<> -1) and
4066 (not IsSpecialTextureSel()) then
4068 sX
:= StrToIntDef(lTextureWidth
.Caption
, DotStep
);
4069 sY
:= StrToIntDef(lTextureHeight
.Caption
, DotStep
);
4072 // Меняем размер панели с текстурой, сетка - размеры текстуры:
4073 if (MouseAction
= MOUSEACTION_RESIZE
) and
4074 ( (SelectedObjects
[_id
].ObjectType
= OBJECT_PANEL
) and
4075 IsTexturedPanel(gPanels
[SelectedObjects
[_id
].ID
].PanelType
) and
4076 (gPanels
[SelectedObjects
[_id
].ID
].TextureName
<> '') and
4077 (not IsSpecialTexture(gPanels
[SelectedObjects
[_id
].ID
].TextureName
)) ) then
4079 sX
:= gPanels
[SelectedObjects
[_id
].ID
].TextureWidth
;
4080 sY
:= gPanels
[SelectedObjects
[_id
].ID
].TextureHeight
;
4083 // Выравнивание по сетке:
4089 else // Нет выравнивания по сетке:
4095 // Новая позиция мыши:
4097 begin // Зажата левая кнопка мыши
4098 MousePos
.X
:= (Round((X
-MouseLDownPos
.X
)/sX
)*sX
)+MouseLDownPos
.X
;
4099 MousePos
.Y
:= (Round((Y
-MouseLDownPos
.Y
)/sY
)*sY
)+MouseLDownPos
.Y
;
4103 begin // Зажата правая кнопка мыши
4104 MousePos
.X
:= (Round((X
-MouseRDownPos
.X
)/sX
)*sX
)+MouseRDownPos
.X
;
4105 MousePos
.Y
:= (Round((Y
-MouseRDownPos
.Y
)/sY
)*sY
)+MouseRDownPos
.Y
;
4108 begin // Кнопки мыши не зажаты
4109 MousePos
.X
:= Round((-MapOffset
.X
+ X
) / sX
) * sX
+ MapOffset
.X
;
4110 MousePos
.Y
:= Round((-MapOffset
.Y
+ Y
) / sY
) * sY
+ MapOffset
.Y
;
4113 // Зажата только правая кнопка мыши:
4114 if (not MouseLDown
) and (MouseRDown
) and (not MouseMDown
) then
4116 // Рисуем прямоугольник выделения:
4117 if MouseAction
= MOUSEACTION_NONE
then
4119 if DrawRect
= nil then
4121 DrawRect
.Top
:= MouseRDownPos
.y
;
4122 DrawRect
.Left
:= MouseRDownPos
.x
;
4123 DrawRect
.Bottom
:= MousePos
.y
;
4124 DrawRect
.Right
:= MousePos
.x
;
4127 // Двигаем выделенные объекты:
4128 if MouseAction
= MOUSEACTION_MOVEOBJ
then
4130 MoveSelectedObjects(ssShift
in Shift
, ssCtrl
in Shift
,
4131 MousePos
.X
-LastMovePoint
.X
,
4132 MousePos
.Y
-LastMovePoint
.Y
);
4135 // Меняем размер выделенного объекта:
4136 if MouseAction
= MOUSEACTION_RESIZE
then
4138 if (SelectedObjectCount
= 1) and
4139 (SelectedObjects
[GetFirstSelected
].Live
) then
4141 dWidth
:= MousePos
.X
-LastMovePoint
.X
;
4142 dHeight
:= MousePos
.Y
-LastMovePoint
.Y
;
4145 RESIZETYPE_VERTICAL
: dWidth
:= 0;
4146 RESIZETYPE_HORIZONTAL
: dHeight
:= 0;
4149 case ResizeDirection
of
4150 RESIZEDIR_UP
: dHeight
:= -dHeight
;
4151 RESIZEDIR_LEFT
: dWidth
:= -dWidth
;
4154 if ResizeObject(SelectedObjects
[GetFirstSelected
].ObjectType
,
4155 SelectedObjects
[GetFirstSelected
].ID
,
4156 dWidth
, dHeight
, ResizeDirection
) then
4157 LastMovePoint
:= MousePos
;
4162 // Зажата только левая кнопка мыши:
4163 if (not MouseRDown
) and (MouseLDown
) and (not MouseMDown
) then
4165 // Рисуем прямоугольник планирования панели:
4166 if MouseAction
in [MOUSEACTION_DRAWPANEL
,
4167 MOUSEACTION_DRAWTRIGGER
,
4168 MOUSEACTION_DRAWPRESS
] then
4170 if DrawRect
= nil then
4172 if ssCtrl
in Shift
then
4176 if (lbTextureList
.ItemIndex
<> -1) and (not IsSpecialTextureSel()) and
4177 (MouseAction
= MOUSEACTION_DRAWPANEL
) then
4179 if not g_GetTexture(SelectedTexture(), TextureID
) then
4180 g_GetTexture('NOTEXTURE', TextureID
);
4181 g_GetTextureSizeByID(TextureID
, wWidth
, wHeight
);
4183 DrawRect
.Top
:= MouseLDownPos
.y
;
4184 DrawRect
.Left
:= MouseLDownPos
.x
;
4185 DrawRect
.Bottom
:= DrawRect
.Top
+ wHeight
;
4186 DrawRect
.Right
:= DrawRect
.Left
+ wWidth
;
4190 DrawRect
.Top
:= MouseLDownPos
.y
;
4191 DrawRect
.Left
:= MouseLDownPos
.x
;
4192 DrawRect
.Bottom
:= MousePos
.y
;
4193 DrawRect
.Right
:= MousePos
.x
;
4196 else // Двигаем карту:
4197 if MouseAction
= MOUSEACTION_MOVEMAP
then
4203 // Only Middle Mouse Button is pressed
4204 if (not MouseLDown
) and (not MouseRDown
) and (MouseMDown
) then
4206 MapOffset
.X
:= -EnsureRange(-MapOffset
.X
+ MouseMDownPos
.X
- Mouse
.CursorPos
.X
,
4207 sbHorizontal
.Min
, sbHorizontal
.Max
);
4208 sbHorizontal
.Position
:= -MapOffset
.X
;
4209 MapOffset
.Y
:= -EnsureRange(-MapOffset
.Y
+ MouseMDownPos
.Y
- Mouse
.CursorPos
.Y
,
4210 sbVertical
.Min
, sbVertical
.Max
);
4211 sbVertical
.Position
:= -MapOffset
.Y
;
4212 MouseMDownPos
:= Mouse
.CursorPos
;
4215 // Клавиши мыши не зажаты:
4216 if (not MouseRDown
) and (not MouseLDown
) then
4219 // Строка состояния - координаты мыши:
4220 StatusBar
.Panels
[1].Text := Format('(%d:%d)',
4221 [MousePos
.X
-MapOffset
.X
, MousePos
.Y
-MapOffset
.Y
]);
4224 procedure TMainForm
.FormCloseQuery(Sender
: TObject
; var CanClose
: Boolean);
4226 CanClose
:= MessageBox(0, PChar(_lc
[I_MSG_EXIT_PROMT
]),
4227 PChar(_lc
[I_MSG_EXIT
]),
4228 MB_ICONQUESTION
or MB_YESNO
or
4229 MB_DEFBUTTON1
) = idYes
;
4232 procedure TMainForm
.aExitExecute(Sender
: TObject
);
4237 procedure TMainForm
.FormDestroy(Sender
: TObject
);
4242 config
:= TConfig
.CreateFile(CfgFileName
);
4244 if WindowState
<> wsMaximized
then
4246 config
.WriteInt('Editor', 'XPos', Left
);
4247 config
.WriteInt('Editor', 'YPos', Top
);
4248 config
.WriteInt('Editor', 'Width', Width
);
4249 config
.WriteInt('Editor', 'Height', Height
);
4253 config
.WriteInt('Editor', 'XPos', RestoredLeft
);
4254 config
.WriteInt('Editor', 'YPos', RestoredTop
);
4255 config
.WriteInt('Editor', 'Width', RestoredWidth
);
4256 config
.WriteInt('Editor', 'Height', RestoredHeight
);
4258 config
.WriteBool('Editor', 'Maximize', WindowState
= wsMaximized
);
4259 config
.WriteBool('Editor', 'Minimap', ShowMap
);
4260 config
.WriteInt('Editor', 'PanelProps', PanelProps
.ClientWidth
);
4261 config
.WriteInt('Editor', 'PanelObjs', PanelObjs
.ClientHeight
);
4262 config
.WriteBool('Editor', 'DotEnable', DotEnable
);
4263 config
.WriteInt('Editor', 'DotStep', DotStep
);
4264 config
.WriteStr('Editor', 'LastOpenDir', OpenDialog
.InitialDir
);
4265 config
.WriteStr('Editor', 'LastSaveDir', SaveDialog
.InitialDir
);
4266 config
.WriteBool('Editor', 'EdgeShow', drEdge
[3] < 255);
4267 config
.WriteInt('Editor', 'EdgeColor', gColorEdge
);
4268 config
.WriteInt('Editor', 'EdgeAlpha', gAlphaEdge
);
4269 config
.WriteInt('Editor', 'LineAlpha', gAlphaTriggerLine
);
4270 config
.WriteInt('Editor', 'TriggerAlpha', gAlphaTriggerArea
);
4271 config
.WriteInt('Editor', 'MonsterRectAlpha', gAlphaMonsterRect
);
4272 config
.WriteInt('Editor', 'AreaRectAlpha', gAlphaAreaRect
);
4274 for i
:= 0 to RecentCount
-1 do
4275 if i
< RecentFiles
.Count
then
4276 config
.WriteStr('RecentFiles', IntToStr(i
+1), RecentFiles
[i
])
4278 config
.WriteStr('RecentFiles', IntToStr(i
+1), '');
4281 config
.SaveFile(CfgFileName
);
4284 slInvalidTextures
.Free
;
4287 procedure TMainForm
.FormDropFiles(Sender
: TObject
;
4288 const FileNames
: array of String);
4290 if Length(FileNames
) <> 1 then
4293 OpenMapFile(FileNames
[0]);
4296 procedure TMainForm
.RenderPanelResize(Sender
: TObject
);
4298 if MainForm
.Visible
then
4302 procedure TMainForm
.Splitter1Moved(Sender
: TObject
);
4307 procedure TMainForm
.MapTestCheck(Sender
: TObject
);
4309 if MapTestProcess
<> nil then
4311 if MapTestProcess
.Running
= false then
4313 if MapTestProcess
.ExitCode
<> 0 then
4314 Application
.MessageBox(PChar(_lc
[I_MSG_EXEC_ERROR
]), 'FIXME', MB_OK
or MB_ICONERROR
);
4315 SysUtils
.DeleteFile(MapTestFile
);
4317 FreeAndNil(MapTestProcess
);
4318 tbTestMap
.Enabled
:= True;
4323 procedure TMainForm
.aMapOptionsExecute(Sender
: TObject
);
4327 MapOptionsForm
.ShowModal();
4329 ResName
:= OpenedMap
;
4330 while (Pos(':\', ResName
) > 0) do
4331 Delete(ResName
, 1, Pos(':\', ResName
) + 1);
4333 UpdateCaption(gMapInfo
.Name
, ExtractFileName(OpenedWAD
), ResName
);
4336 procedure TMainForm
.aAboutExecute(Sender
: TObject
);
4338 AboutForm
.ShowModal();
4341 procedure TMainForm
.FormKeyDown(Sender
: TObject
; var Key
: Word; Shift
: TShiftState
);
4347 if (not EditingProperties
) then
4349 if ssCtrl
in Shift
then
4352 '1': ContourEnabled
[LAYER_BACK
] := not ContourEnabled
[LAYER_BACK
];
4353 '2': ContourEnabled
[LAYER_WALLS
] := not ContourEnabled
[LAYER_WALLS
];
4354 '3': ContourEnabled
[LAYER_FOREGROUND
] := not ContourEnabled
[LAYER_FOREGROUND
];
4355 '4': ContourEnabled
[LAYER_STEPS
] := not ContourEnabled
[LAYER_STEPS
];
4356 '5': ContourEnabled
[LAYER_WATER
] := not ContourEnabled
[LAYER_WATER
];
4357 '6': ContourEnabled
[LAYER_ITEMS
] := not ContourEnabled
[LAYER_ITEMS
];
4358 '7': ContourEnabled
[LAYER_MONSTERS
] := not ContourEnabled
[LAYER_MONSTERS
];
4359 '8': ContourEnabled
[LAYER_AREAS
] := not ContourEnabled
[LAYER_AREAS
];
4360 '9': ContourEnabled
[LAYER_TRIGGERS
] := not ContourEnabled
[LAYER_TRIGGERS
];
4364 for i
:= Low(ContourEnabled
) to High(ContourEnabled
) do
4365 if ContourEnabled
[i
] then
4367 for i
:= Low(ContourEnabled
) to High(ContourEnabled
) do
4368 ContourEnabled
[i
] := not ok
4375 '1': SwitchLayer(LAYER_BACK
);
4376 '2': SwitchLayer(LAYER_WALLS
);
4377 '3': SwitchLayer(LAYER_FOREGROUND
);
4378 '4': SwitchLayer(LAYER_STEPS
);
4379 '5': SwitchLayer(LAYER_WATER
);
4380 '6': SwitchLayer(LAYER_ITEMS
);
4381 '7': SwitchLayer(LAYER_MONSTERS
);
4382 '8': SwitchLayer(LAYER_AREAS
);
4383 '9': SwitchLayer(LAYER_TRIGGERS
);
4384 '0': tbShowClick(tbShow
);
4388 if Key
= Ord('V') then
4389 begin // Поворот монстров и областей:
4390 if (SelectedObjects
<> nil) then
4392 for i
:= 0 to High(SelectedObjects
) do
4393 if (SelectedObjects
[i
].Live
) then
4395 if (SelectedObjects
[i
].ObjectType
= OBJECT_MONSTER
) then
4397 g_ChangeDir(gMonsters
[SelectedObjects
[i
].ID
].Direction
);
4400 if (SelectedObjects
[i
].ObjectType
= OBJECT_AREA
) then
4402 g_ChangeDir(gAreas
[SelectedObjects
[i
].ID
].Direction
);
4408 if pcObjects
.ActivePage
= tsMonsters
then
4410 if rbMonsterLeft
.Checked
then
4411 rbMonsterRight
.Checked
:= True
4413 rbMonsterLeft
.Checked
:= True;
4415 if pcObjects
.ActivePage
= tsAreas
then
4417 if rbAreaLeft
.Checked
then
4418 rbAreaRight
.Checked
:= True
4420 rbAreaLeft
.Checked
:= True;
4425 if not (ssCtrl
in Shift
) then
4427 // Быстрое превью карты:
4428 if Key
= Ord('E') then
4430 if PreviewMode
= 0 then
4434 // Вертикальный скролл карты:
4437 if Key
= Ord('W') then
4440 if ssShift
in Shift
then Position
:= EnsureRange(Position
- DotStep
* 4, Min
, Max
)
4441 else Position
:= EnsureRange(Position
- DotStep
, Min
, Max
);
4442 MapOffset
.Y
:= -Position
;
4445 if (MouseLDown
or MouseRDown
) then
4447 if DrawRect
<> nil then
4449 Inc(MouseLDownPos
.y
, dy
);
4450 Inc(MouseRDownPos
.y
, dy
);
4452 Inc(LastMovePoint
.Y
, dy
);
4453 RenderPanelMouseMove(Sender
, Shift
, RenderMousePos().X
, RenderMousePos().Y
);
4457 if Key
= Ord('S') then
4460 if ssShift
in Shift
then Position
:= EnsureRange(Position
+ DotStep
* 4, Min
, Max
)
4461 else Position
:= EnsureRange(Position
+ DotStep
, Min
, Max
);
4462 MapOffset
.Y
:= -Position
;
4465 if (MouseLDown
or MouseRDown
) then
4467 if DrawRect
<> nil then
4469 Inc(MouseLDownPos
.y
, dy
);
4470 Inc(MouseRDownPos
.y
, dy
);
4472 Inc(LastMovePoint
.Y
, dy
);
4473 RenderPanelMouseMove(Sender
, Shift
, RenderMousePos().X
, RenderMousePos().Y
);
4478 // Горизонтальный скролл карты:
4479 with sbHorizontal
do
4481 if Key
= Ord('A') then
4484 if ssShift
in Shift
then Position
:= EnsureRange(Position
- DotStep
* 4, Min
, Max
)
4485 else Position
:= EnsureRange(Position
- DotStep
, Min
, Max
);
4486 MapOffset
.X
:= -Position
;
4489 if (MouseLDown
or MouseRDown
) then
4491 if DrawRect
<> nil then
4493 Inc(MouseLDownPos
.x
, dx
);
4494 Inc(MouseRDownPos
.x
, dx
);
4496 Inc(LastMovePoint
.X
, dx
);
4497 RenderPanelMouseMove(Sender
, Shift
, RenderMousePos().X
, RenderMousePos().Y
);
4501 if Key
= Ord('D') then
4504 if ssShift
in Shift
then Position
:= EnsureRange(Position
+ DotStep
* 4, Min
, Max
)
4505 else Position
:= EnsureRange(Position
+ DotStep
, Min
, Max
);
4506 MapOffset
.X
:= -Position
;
4509 if (MouseLDown
or MouseRDown
) then
4511 if DrawRect
<> nil then
4513 Inc(MouseLDownPos
.x
, dx
);
4514 Inc(MouseRDownPos
.x
, dx
);
4516 Inc(LastMovePoint
.X
, dx
);
4517 RenderPanelMouseMove(Sender
, Shift
, RenderMousePos().X
, RenderMousePos().Y
);
4522 else // ssCtrl in Shift
4524 if ssShift
in Shift
then
4526 // Вставка по абсолютному смещению:
4527 if Key
= Ord('V') then
4528 aPasteObjectExecute(Sender
);
4530 RenderPanelMouseMove(Sender
, Shift
, RenderMousePos().X
, RenderMousePos().Y
);
4534 // Удалить выделенные объекты:
4535 if (Key
= VK_DELETE
) and (SelectedObjects
<> nil) and
4536 RenderPanel
.Focused() then
4537 DeleteSelectedObjects();
4540 if (Key
= VK_ESCAPE
) and (SelectedObjects
<> nil) then
4541 RemoveSelectFromObjects();
4543 // Передвинуть объекты:
4544 if MainForm
.ActiveControl
= RenderPanel
then
4549 if Key
= VK_NUMPAD4
then
4550 dx
:= IfThen(ssAlt
in Shift
, -1, -DotStep
);
4551 if Key
= VK_NUMPAD6
then
4552 dx
:= IfThen(ssAlt
in Shift
, 1, DotStep
);
4553 if Key
= VK_NUMPAD8
then
4554 dy
:= IfThen(ssAlt
in Shift
, -1, -DotStep
);
4555 if Key
= VK_NUMPAD5
then
4556 dy
:= IfThen(ssAlt
in Shift
, 1, DotStep
);
4558 if (dx
<> 0) or (dy
<> 0) then
4560 MoveSelectedObjects(ssShift
in Shift
, ssCtrl
in Shift
, dx
, dy
);
4565 if ssCtrl
in Shift
then
4567 // Выбор панели с текстурой для триггера
4568 if Key
= Ord('T') then
4570 DrawPressRect
:= False;
4571 if SelectFlag
= SELECTFLAG_TEXTURE
then
4573 SelectFlag
:= SELECTFLAG_NONE
;
4576 vleObjectProperty
.FindRow(_lc
[I_PROP_TR_TEXTURE_PANEL
], i
);
4578 SelectFlag
:= SELECTFLAG_TEXTURE
;
4581 if Key
= Ord('D') then
4583 SelectFlag
:= SELECTFLAG_NONE
;
4584 if DrawPressRect
then
4586 DrawPressRect
:= False;
4591 // Выбор области воздействия, в зависимости от типа триггера
4592 vleObjectProperty
.FindRow(_lc
[I_PROP_TR_EX_AREA
], i
);
4595 DrawPressRect
:= True;
4598 vleObjectProperty
.FindRow(_lc
[I_PROP_TR_DOOR_PANEL
], i
);
4600 vleObjectProperty
.FindRow(_lc
[I_PROP_TR_TRAP_PANEL
], i
);
4603 SelectFlag
:= SELECTFLAG_DOOR
;
4606 vleObjectProperty
.FindRow(_lc
[I_PROP_TR_LIFT_PANEL
], i
);
4609 SelectFlag
:= SELECTFLAG_LIFT
;
4612 vleObjectProperty
.FindRow(_lc
[I_PROP_TR_TELEPORT_TO
], i
);
4615 SelectFlag
:= SELECTFLAG_TELEPORT
;
4618 vleObjectProperty
.FindRow(_lc
[I_PROP_TR_SPAWN_TO
], i
);
4621 SelectFlag
:= SELECTFLAG_SPAWNPOINT
;
4625 // Выбор основного параметра, в зависимости от типа триггера
4626 vleObjectProperty
.FindRow(_lc
[I_PROP_TR_NEXT_MAP
], i
);
4629 g_ProcessResourceStr(OpenedMap
, @FileName
, nil, nil);
4630 SelectMapForm
.Caption
:= _lc
[I_CAP_SELECT
];
4631 SelectMapForm
.GetMaps(FileName
);
4633 if SelectMapForm
.ShowModal() = mrOK
then
4635 vleObjectProperty
.Cells
[1, i
] := SelectMapForm
.lbMapList
.Items
[SelectMapForm
.lbMapList
.ItemIndex
];
4636 bApplyProperty
.Click();
4640 vleObjectProperty
.FindRow(_lc
[I_PROP_TR_SOUND_NAME
], i
);
4642 vleObjectProperty
.FindRow(_lc
[I_PROP_TR_MUSIC_NAME
], i
);
4645 AddSoundForm
.OKFunction
:= nil;
4646 AddSoundForm
.lbResourcesList
.MultiSelect
:= False;
4647 AddSoundForm
.SetResource
:= vleObjectProperty
.Cells
[1, i
];
4649 if (AddSoundForm
.ShowModal() = mrOk
) then
4651 vleObjectProperty
.Cells
[1, i
] := AddSoundForm
.ResourceName
;
4652 bApplyProperty
.Click();
4656 vleObjectProperty
.FindRow(_lc
[I_PROP_TR_PUSH_ANGLE
], i
);
4658 vleObjectProperty
.FindRow(_lc
[I_PROP_TR_MESSAGE_TEXT
], i
);
4661 vleObjectProperty
.Row
:= i
;
4662 vleObjectProperty
.SetFocus();
4669 procedure TMainForm
.aOptimizeExecute(Sender
: TObject
);
4671 RemoveSelectFromObjects();
4672 MapOptimizationForm
.ShowModal();
4675 procedure TMainForm
.aCheckMapExecute(Sender
: TObject
);
4677 MapCheckForm
.ShowModal();
4680 procedure TMainForm
.bbAddTextureClick(Sender
: TObject
);
4682 AddTextureForm
.lbResourcesList
.MultiSelect
:= True;
4683 AddTextureForm
.ShowModal();
4686 procedure TMainForm
.lbTextureListClick(Sender
: TObject
);
4689 TextureWidth
, TextureHeight
: Word;
4694 if (lbTextureList
.ItemIndex
<> -1) and
4695 (not IsSpecialTextureSel()) then
4697 if g_GetTexture(SelectedTexture(), TextureID
) then
4699 g_GetTextureSizeByID(TextureID
, TextureWidth
, TextureHeight
);
4701 lTextureWidth
.Caption
:= IntToStr(TextureWidth
);
4702 lTextureHeight
.Caption
:= IntToStr(TextureHeight
);
4705 lTextureWidth
.Caption
:= _lc
[I_NOT_ACCESSIBLE
];
4706 lTextureHeight
.Caption
:= _lc
[I_NOT_ACCESSIBLE
];
4711 lTextureWidth
.Caption
:= '';
4712 lTextureHeight
.Caption
:= '';
4716 procedure TMainForm
.lbTextureListDrawItem(Control
: TWinControl
; Index
: Integer;
4717 ARect
: TRect
; State
: TOwnerDrawState
);
4719 with Control
as TListBox
do
4721 if LCLType
.odSelected
in State
then
4723 Canvas
.Brush
.Color
:= clHighlight
;
4724 Canvas
.Font
.Color
:= clHighlightText
;
4726 if (Items
<> nil) and (Index
>= 0) then
4727 if slInvalidTextures
.IndexOf(Items
[Index
]) > -1 then
4729 Canvas
.Brush
.Color
:= clRed
;
4730 Canvas
.Font
.Color
:= clWhite
;
4732 Canvas
.FillRect(ARect
);
4733 Canvas
.TextRect(ARect
, ARect
.Left
, ARect
.Top
, Items
[Index
]);
4737 procedure TMainForm
.miReopenMapClick(Sender
: TObject
);
4739 FileName
, Resource
: String;
4741 if OpenedMap
= '' then
4744 if MessageBox(0, PChar(_lc
[I_MSG_REOPEN_MAP_PROMT
]),
4745 PChar(_lc
[I_MENU_FILE_REOPEN
]), MB_ICONQUESTION
or MB_YESNO
) <> idYes
then
4748 g_ProcessResourceStr(OpenedMap
, @FileName
, nil, @Resource
);
4749 OpenMap(FileName
, Resource
);
4752 procedure TMainForm
.vleObjectPropertyGetPickList(Sender
: TObject
;
4753 const KeyName
: String; Values
: TStrings
);
4755 if vleObjectProperty
.ItemProps
[KeyName
].EditStyle
= esPickList
then
4757 if KeyName
= _lc
[I_PROP_DIRECTION
] then
4759 Values
.Add(DirNames
[D_LEFT
]);
4760 Values
.Add(DirNames
[D_RIGHT
]);
4762 else if KeyName
= _lc
[I_PROP_TR_TELEPORT_DIR
] then
4764 Values
.Add(DirNamesAdv
[0]);
4765 Values
.Add(DirNamesAdv
[1]);
4766 Values
.Add(DirNamesAdv
[2]);
4767 Values
.Add(DirNamesAdv
[3]);
4769 else if KeyName
= _lc
[I_PROP_TR_MUSIC_ACT
] then
4771 Values
.Add(_lc
[I_PROP_TR_MUSIC_ON
]);
4772 Values
.Add(_lc
[I_PROP_TR_MUSIC_OFF
]);
4774 else if KeyName
= _lc
[I_PROP_TR_MONSTER_BEHAVIOUR
] then
4776 Values
.Add(_lc
[I_PROP_TR_MONSTER_BEHAVIOUR_0
]);
4777 Values
.Add(_lc
[I_PROP_TR_MONSTER_BEHAVIOUR_1
]);
4778 Values
.Add(_lc
[I_PROP_TR_MONSTER_BEHAVIOUR_2
]);
4779 Values
.Add(_lc
[I_PROP_TR_MONSTER_BEHAVIOUR_3
]);
4780 Values
.Add(_lc
[I_PROP_TR_MONSTER_BEHAVIOUR_4
]);
4781 Values
.Add(_lc
[I_PROP_TR_MONSTER_BEHAVIOUR_5
]);
4783 else if KeyName
= _lc
[I_PROP_TR_SCORE_ACT
] then
4785 Values
.Add(_lc
[I_PROP_TR_SCORE_ACT_0
]);
4786 Values
.Add(_lc
[I_PROP_TR_SCORE_ACT_1
]);
4787 Values
.Add(_lc
[I_PROP_TR_SCORE_ACT_2
]);
4788 Values
.Add(_lc
[I_PROP_TR_SCORE_ACT_3
]);
4790 else if KeyName
= _lc
[I_PROP_TR_SCORE_TEAM
] then
4792 Values
.Add(_lc
[I_PROP_TR_SCORE_TEAM_0
]);
4793 Values
.Add(_lc
[I_PROP_TR_SCORE_TEAM_1
]);
4794 Values
.Add(_lc
[I_PROP_TR_SCORE_TEAM_2
]);
4795 Values
.Add(_lc
[I_PROP_TR_SCORE_TEAM_3
]);
4797 else if KeyName
= _lc
[I_PROP_TR_MESSAGE_KIND
] then
4799 Values
.Add(_lc
[I_PROP_TR_MESSAGE_KIND_0
]);
4800 Values
.Add(_lc
[I_PROP_TR_MESSAGE_KIND_1
]);
4802 else if KeyName
= _lc
[I_PROP_TR_MESSAGE_TO
] then
4804 Values
.Add(_lc
[I_PROP_TR_MESSAGE_TO_0
]);
4805 Values
.Add(_lc
[I_PROP_TR_MESSAGE_TO_1
]);
4806 Values
.Add(_lc
[I_PROP_TR_MESSAGE_TO_2
]);
4807 Values
.Add(_lc
[I_PROP_TR_MESSAGE_TO_3
]);
4808 Values
.Add(_lc
[I_PROP_TR_MESSAGE_TO_4
]);
4809 Values
.Add(_lc
[I_PROP_TR_MESSAGE_TO_5
]);
4811 else if KeyName
= _lc
[I_PROP_TR_SHOT_TO
] then
4813 Values
.Add(_lc
[I_PROP_TR_SHOT_TO_0
]);
4814 Values
.Add(_lc
[I_PROP_TR_SHOT_TO_1
]);
4815 Values
.Add(_lc
[I_PROP_TR_SHOT_TO_2
]);
4816 Values
.Add(_lc
[I_PROP_TR_SHOT_TO_3
]);
4817 Values
.Add(_lc
[I_PROP_TR_SHOT_TO_4
]);
4818 Values
.Add(_lc
[I_PROP_TR_SHOT_TO_5
]);
4819 Values
.Add(_lc
[I_PROP_TR_SHOT_TO_6
]);
4821 else if KeyName
= _lc
[I_PROP_TR_SHOT_AIM
] then
4823 Values
.Add(_lc
[I_PROP_TR_SHOT_AIM_0
]);
4824 Values
.Add(_lc
[I_PROP_TR_SHOT_AIM_1
]);
4825 Values
.Add(_lc
[I_PROP_TR_SHOT_AIM_2
]);
4826 Values
.Add(_lc
[I_PROP_TR_SHOT_AIM_3
]);
4828 else if KeyName
= _lc
[I_PROP_TR_DAMAGE_KIND
] then
4830 Values
.Add(_lc
[I_PROP_TR_DAMAGE_KIND_0
]);
4831 Values
.Add(_lc
[I_PROP_TR_DAMAGE_KIND_3
]);
4832 Values
.Add(_lc
[I_PROP_TR_DAMAGE_KIND_4
]);
4833 Values
.Add(_lc
[I_PROP_TR_DAMAGE_KIND_5
]);
4834 Values
.Add(_lc
[I_PROP_TR_DAMAGE_KIND_6
]);
4835 Values
.Add(_lc
[I_PROP_TR_DAMAGE_KIND_7
]);
4836 Values
.Add(_lc
[I_PROP_TR_DAMAGE_KIND_8
]);
4838 else if (KeyName
= _lc
[I_PROP_PANEL_BLEND
]) or
4839 (KeyName
= _lc
[I_PROP_DM_ONLY
]) or
4840 (KeyName
= _lc
[I_PROP_ITEM_FALLS
]) or
4841 (KeyName
= _lc
[I_PROP_TR_ENABLED
]) or
4842 (KeyName
= _lc
[I_PROP_TR_D2D
]) or
4843 (KeyName
= _lc
[I_PROP_TR_SILENT
]) or
4844 (KeyName
= _lc
[I_PROP_TR_TELEPORT_SILENT
]) or
4845 (KeyName
= _lc
[I_PROP_TR_EX_RANDOM
]) or
4846 (KeyName
= _lc
[I_PROP_TR_TEXTURE_ONCE
]) or
4847 (KeyName
= _lc
[I_PROP_TR_TEXTURE_ANIM_ONCE
]) or
4848 (KeyName
= _lc
[I_PROP_TR_SOUND_LOCAL
]) or
4849 (KeyName
= _lc
[I_PROP_TR_SOUND_SWITCH
]) or
4850 (KeyName
= _lc
[I_PROP_TR_MONSTER_ACTIVE
]) or
4851 (KeyName
= _lc
[I_PROP_TR_PUSH_RESET
]) or
4852 (KeyName
= _lc
[I_PROP_TR_SCORE_CON
]) or
4853 (KeyName
= _lc
[I_PROP_TR_SCORE_MSG
]) or
4854 (KeyName
= _lc
[I_PROP_TR_HEALTH_MAX
]) or
4855 (KeyName
= _lc
[I_PROP_TR_SHOT_SOUND
]) or
4856 (KeyName
= _lc
[I_PROP_TR_EFFECT_CENTER
]) then
4858 Values
.Add(BoolNames
[True]);
4859 Values
.Add(BoolNames
[False]);
4864 procedure TMainForm
.bApplyPropertyClick(Sender
: TObject
);
4866 _id
, a
, r
, c
: Integer;
4876 if SelectedObjectCount() <> 1 then
4878 if not SelectedObjects
[GetFirstSelected()].Live
then
4882 if not CheckProperty() then
4888 _id
:= GetFirstSelected();
4890 r
:= vleObjectProperty
.Row
;
4891 c
:= vleObjectProperty
.Col
;
4893 case SelectedObjects
[_id
].ObjectType
of
4896 with gPanels
[SelectedObjects
[_id
].ID
] do
4898 X
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_X
]]));
4899 Y
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_Y
]]));
4900 Width
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_WIDTH
]]));
4901 Height
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_HEIGHT
]]));
4903 PanelType
:= GetPanelType(vleObjectProperty
.Values
[_lc
[I_PROP_PANEL_TYPE
]]);
4905 // Сброс ссылки на триггеры смены текстуры:
4906 if not WordBool(PanelType
and (PANEL_WALL
or PANEL_FORE
or PANEL_BACK
)) then
4907 if gTriggers
<> nil then
4908 for a
:= 0 to High(gTriggers
) do
4910 if (gTriggers
[a
].TriggerType
<> 0) and
4911 (gTriggers
[a
].TexturePanel
= Integer(SelectedObjects
[_id
].ID
)) then
4912 gTriggers
[a
].TexturePanel
:= -1;
4913 if (gTriggers
[a
].TriggerType
= TRIGGER_SHOT
) and
4914 (gTriggers
[a
].Data
.ShotPanelID
= Integer(SelectedObjects
[_id
].ID
)) then
4915 gTriggers
[a
].Data
.ShotPanelID
:= -1;
4918 // Сброс ссылки на триггеры лифта:
4919 if not WordBool(PanelType
and (PANEL_LIFTUP
or PANEL_LIFTDOWN
or PANEL_LIFTLEFT
or PANEL_LIFTRIGHT
)) then
4920 if gTriggers
<> nil then
4921 for a
:= 0 to High(gTriggers
) do
4922 if (gTriggers
[a
].TriggerType
in [TRIGGER_LIFTUP
, TRIGGER_LIFTDOWN
, TRIGGER_LIFT
]) and
4923 (gTriggers
[a
].Data
.PanelID
= Integer(SelectedObjects
[_id
].ID
)) then
4924 gTriggers
[a
].Data
.PanelID
:= -1;
4926 // Сброс ссылки на триггеры двери:
4927 if not WordBool(PanelType
and (PANEL_OPENDOOR
or PANEL_CLOSEDOOR
)) then
4928 if gTriggers
<> nil then
4929 for a
:= 0 to High(gTriggers
) do
4930 if (gTriggers
[a
].TriggerType
in [TRIGGER_OPENDOOR
, TRIGGER_CLOSEDOOR
, TRIGGER_DOOR
,
4931 TRIGGER_DOOR5
, TRIGGER_CLOSETRAP
, TRIGGER_TRAP
]) and
4932 (gTriggers
[a
].Data
.PanelID
= Integer(SelectedObjects
[_id
].ID
)) then
4933 gTriggers
[a
].Data
.PanelID
:= -1;
4935 if IsTexturedPanel(PanelType
) then
4936 begin // Может быть текстура
4937 if TextureName
<> '' then
4938 begin // Была текстура
4939 Alpha
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_PANEL_ALPHA
]]));
4940 Blending
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_PANEL_BLEND
]]);
4949 TextureName
:= vleObjectProperty
.Values
[_lc
[I_PROP_PANEL_TEX
]];
4951 if TextureName
<> '' then
4952 begin // Есть текстура
4953 // Обычная текстура:
4954 if not IsSpecialTexture(TextureName
) then
4956 g_GetTextureSizeByName(TextureName
,
4957 TextureWidth
, TextureHeight
);
4959 // Проверка кратности размеров панели:
4961 if TextureWidth
<> 0 then
4962 if gPanels
[SelectedObjects
[_id
].ID
].Width
mod TextureWidth
<> 0 then
4964 ErrorMessageBox(Format(_lc
[I_MSG_WRONG_TEXWIDTH
],
4968 if Res
and (TextureHeight
<> 0) then
4969 if gPanels
[SelectedObjects
[_id
].ID
].Height
mod TextureHeight
<> 0 then
4971 ErrorMessageBox(Format(_lc
[I_MSG_WRONG_TEXHEIGHT
],
4978 if not g_GetTexture(TextureName
, TextureID
) then
4979 // Не удалось загрузить текстуру, рисуем NOTEXTURE
4980 if g_GetTexture('NOTEXTURE', NoTextureID
) then
4982 TextureID
:= TEXTURE_SPECIAL_NOTEXTURE
;
4983 g_GetTextureSizeByID(NoTextureID
, NW
, NH
);
4985 TextureHeight
:= NH
;
4988 TextureID
:= TEXTURE_SPECIAL_NONE
;
4998 TextureID
:= TEXTURE_SPECIAL_NONE
;
5001 else // Спец.текстура
5005 TextureID
:= SpecialTextureID(TextureName
);
5008 else // Нет текстуры
5012 TextureID
:= TEXTURE_SPECIAL_NONE
;
5015 else // Не может быть текстуры
5022 TextureID
:= TEXTURE_SPECIAL_NONE
;
5029 with gItems
[SelectedObjects
[_id
].ID
] do
5031 X
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_X
]]));
5032 Y
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_Y
]]));
5033 OnlyDM
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_DM_ONLY
]]);
5034 Fall
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_ITEM_FALLS
]]);
5040 with gMonsters
[SelectedObjects
[_id
].ID
] do
5042 X
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_X
]]));
5043 Y
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_Y
]]));
5044 Direction
:= NameToDir(vleObjectProperty
.Values
[_lc
[I_PROP_DIRECTION
]]);
5050 with gAreas
[SelectedObjects
[_id
].ID
] do
5052 X
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_X
]]));
5053 Y
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_Y
]]));
5054 Direction
:= NameToDir(vleObjectProperty
.Values
[_lc
[I_PROP_DIRECTION
]]);
5060 with gTriggers
[SelectedObjects
[_id
].ID
] do
5062 X
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_X
]]));
5063 Y
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_Y
]]));
5064 Width
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_WIDTH
]]));
5065 Height
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_HEIGHT
]]));
5066 Enabled
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_ENABLED
]]);
5067 ActivateType
:= StrToActivate(vleObjectProperty
.Values
[_lc
[I_PROP_TR_ACTIVATION
]]);
5068 Key
:= StrToKey(vleObjectProperty
.Values
[_lc
[I_PROP_TR_KEYS
]]);
5073 s
:= utf2win(vleObjectProperty
.Values
[_lc
[I_PROP_TR_NEXT_MAP
]]);
5074 FillByte(Data
.MapName
[0], 16, 0);
5076 Move(s
[1], Data
.MapName
[0], Min(Length(s
), 16));
5081 Data
.ActivateOnce
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_TEXTURE_ONCE
]]);
5082 Data
.AnimOnce
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_TEXTURE_ANIM_ONCE
]]);
5085 TRIGGER_PRESS
, TRIGGER_ON
, TRIGGER_OFF
, TRIGGER_ONOFF
:
5087 Data
.Wait
:= Min(StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_EX_DELAY
]], 0), 65535);
5088 Data
.Count
:= Min(StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_EX_COUNT
]], 0), 65535);
5089 if Data
.Count
< 1 then
5091 if TriggerType
= TRIGGER_PRESS
then
5092 Data
.ExtRandom
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_EX_RANDOM
]]);
5095 TRIGGER_OPENDOOR
, TRIGGER_CLOSEDOOR
, TRIGGER_DOOR
, TRIGGER_DOOR5
,
5096 TRIGGER_CLOSETRAP
, TRIGGER_TRAP
, TRIGGER_LIFTUP
, TRIGGER_LIFTDOWN
,
5099 Data
.NoSound
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SILENT
]]);
5100 Data
.d2d_doors
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_D2D
]]);
5105 Data
.d2d_teleport
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_D2D
]]);
5106 Data
.silent_teleport
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_TELEPORT_SILENT
]]);
5107 Data
.TlpDir
:= NameToDirAdv(vleObjectProperty
.Values
[_lc
[I_PROP_TR_TELEPORT_DIR
]]);
5112 s
:= utf2win(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SOUND_NAME
]]);
5113 FillByte(Data
.SoundName
[0], 64, 0);
5115 Move(s
[1], Data
.SoundName
[0], Min(Length(s
), 64));
5117 Data
.Volume
:= Min(StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SOUND_VOLUME
]], 0), 255);
5118 Data
.Pan
:= Min(StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SOUND_PAN
]], 0), 255);
5119 Data
.PlayCount
:= Min(StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SOUND_COUNT
]], 0), 255);
5120 Data
.Local
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SOUND_LOCAL
]]);
5121 Data
.SoundSwitch
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SOUND_SWITCH
]]);
5124 TRIGGER_SPAWNMONSTER
:
5126 Data
.MonType
:= StrToMonster(vleObjectProperty
.Values
[_lc
[I_PROP_TR_MONSTER_TYPE
]]);
5127 Data
.MonDir
:= Byte(NameToDir(vleObjectProperty
.Values
[_lc
[I_PROP_DIRECTION
]]));
5128 Data
.MonHealth
:= Min(StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_HEALTH
]], 0), 1000000);
5129 if Data
.MonHealth
< 0 then
5130 Data
.MonHealth
:= 0;
5131 Data
.MonActive
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_MONSTER_ACTIVE
]]);
5132 Data
.MonCount
:= Min(StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_COUNT
]], 0), 64);
5133 if Data
.MonCount
< 1 then
5135 Data
.MonEffect
:= StrToEffect(vleObjectProperty
.Values
[_lc
[I_PROP_TR_FX_TYPE
]]);
5136 Data
.MonMax
:= Min(StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SPAWN_MAX
]], 0), 65535);
5137 Data
.MonDelay
:= Min(StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SPAWN_DELAY
]], 0), 65535);
5139 if vleObjectProperty
.Values
[_lc
[I_PROP_TR_MONSTER_BEHAVIOUR
]] = _lc
[I_PROP_TR_MONSTER_BEHAVIOUR_1
] then
5141 if vleObjectProperty
.Values
[_lc
[I_PROP_TR_MONSTER_BEHAVIOUR
]] = _lc
[I_PROP_TR_MONSTER_BEHAVIOUR_2
] then
5143 if vleObjectProperty
.Values
[_lc
[I_PROP_TR_MONSTER_BEHAVIOUR
]] = _lc
[I_PROP_TR_MONSTER_BEHAVIOUR_3
] then
5145 if vleObjectProperty
.Values
[_lc
[I_PROP_TR_MONSTER_BEHAVIOUR
]] = _lc
[I_PROP_TR_MONSTER_BEHAVIOUR_4
] then
5147 if vleObjectProperty
.Values
[_lc
[I_PROP_TR_MONSTER_BEHAVIOUR
]] = _lc
[I_PROP_TR_MONSTER_BEHAVIOUR_5
] then
5153 Data
.ItemType
:= StrToItem(vleObjectProperty
.Values
[_lc
[I_PROP_TR_ITEM_TYPE
]]);
5154 Data
.ItemOnlyDM
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_DM_ONLY
]]);
5155 Data
.ItemFalls
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_ITEM_FALLS
]]);
5156 Data
.ItemCount
:= Min(StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_COUNT
]], 0), 64);
5157 if Data
.ItemCount
< 1 then
5158 Data
.ItemCount
:= 1;
5159 Data
.ItemEffect
:= StrToEffect(vleObjectProperty
.Values
[_lc
[I_PROP_TR_FX_TYPE
]]);
5160 Data
.ItemMax
:= Min(StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SPAWN_MAX
]], 0), 65535);
5161 Data
.ItemDelay
:= Min(StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SPAWN_DELAY
]], 0), 65535);
5166 s
:= utf2win(vleObjectProperty
.Values
[_lc
[I_PROP_TR_MUSIC_NAME
]]);
5167 FillByte(Data
.MusicName
[0], 64, 0);
5169 Move(s
[1], Data
.MusicName
[0], Min(Length(s
), 64));
5171 if vleObjectProperty
.Values
[_lc
[I_PROP_TR_MUSIC_ACT
]] = _lc
[I_PROP_TR_MUSIC_ON
] then
5172 Data
.MusicAction
:= 1
5174 Data
.MusicAction
:= 0;
5179 Data
.PushAngle
:= Min(
5180 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_PUSH_ANGLE
]], 0), 360);
5181 Data
.PushForce
:= Min(
5182 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_PUSH_FORCE
]], 0), 255);
5183 Data
.ResetVel
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_PUSH_RESET
]]);
5188 Data
.ScoreAction
:= 0;
5189 if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SCORE_ACT
]] = _lc
[I_PROP_TR_SCORE_ACT_1
] then
5190 Data
.ScoreAction
:= 1
5191 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SCORE_ACT
]] = _lc
[I_PROP_TR_SCORE_ACT_2
] then
5192 Data
.ScoreAction
:= 2
5193 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SCORE_ACT
]] = _lc
[I_PROP_TR_SCORE_ACT_3
] then
5194 Data
.ScoreAction
:= 3;
5195 Data
.ScoreCount
:= Min(Max(
5196 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_COUNT
]], 0), 0), 255);
5197 Data
.ScoreTeam
:= 0;
5198 if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SCORE_TEAM
]] = _lc
[I_PROP_TR_SCORE_TEAM_1
] then
5200 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SCORE_TEAM
]] = _lc
[I_PROP_TR_SCORE_TEAM_2
] then
5202 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SCORE_TEAM
]] = _lc
[I_PROP_TR_SCORE_TEAM_3
] then
5203 Data
.ScoreTeam
:= 3;
5204 Data
.ScoreCon
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SCORE_CON
]]);
5205 Data
.ScoreMsg
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SCORE_MSG
]]);
5210 Data
.MessageKind
:= 0;
5211 if vleObjectProperty
.Values
[_lc
[I_PROP_TR_MESSAGE_KIND
]] = _lc
[I_PROP_TR_MESSAGE_KIND_1
] then
5212 Data
.MessageKind
:= 1;
5214 Data
.MessageSendTo
:= 0;
5215 if vleObjectProperty
.Values
[_lc
[I_PROP_TR_MESSAGE_TO
]] = _lc
[I_PROP_TR_MESSAGE_TO_1
] then
5216 Data
.MessageSendTo
:= 1
5217 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_MESSAGE_TO
]] = _lc
[I_PROP_TR_MESSAGE_TO_2
] then
5218 Data
.MessageSendTo
:= 2
5219 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_MESSAGE_TO
]] = _lc
[I_PROP_TR_MESSAGE_TO_3
] then
5220 Data
.MessageSendTo
:= 3
5221 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_MESSAGE_TO
]] = _lc
[I_PROP_TR_MESSAGE_TO_4
] then
5222 Data
.MessageSendTo
:= 4
5223 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_MESSAGE_TO
]] = _lc
[I_PROP_TR_MESSAGE_TO_5
] then
5224 Data
.MessageSendTo
:= 5;
5226 s
:= utf2win(vleObjectProperty
.Values
[_lc
[I_PROP_TR_MESSAGE_TEXT
]]);
5227 FillByte(Data
.MessageText
[0], 100, 0);
5229 Move(s
[1], Data
.MessageText
[0], Min(Length(s
), 100));
5231 Data
.MessageTime
:= Min(Max(
5232 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_MESSAGE_TIME
]], 0), 0), 65535);
5237 Data
.DamageValue
:= Min(Max(
5238 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_DAMAGE_VALUE
]], 0), 0), 65535);
5239 Data
.DamageInterval
:= Min(Max(
5240 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_INTERVAL
]], 0), 0), 65535);
5241 s
:= vleObjectProperty
.Values
[_lc
[I_PROP_TR_DAMAGE_KIND
]];
5242 if s
= _lc
[I_PROP_TR_DAMAGE_KIND_3
] then
5243 Data
.DamageKind
:= 3
5244 else if s
= _lc
[I_PROP_TR_DAMAGE_KIND_4
] then
5245 Data
.DamageKind
:= 4
5246 else if s
= _lc
[I_PROP_TR_DAMAGE_KIND_5
] then
5247 Data
.DamageKind
:= 5
5248 else if s
= _lc
[I_PROP_TR_DAMAGE_KIND_6
] then
5249 Data
.DamageKind
:= 6
5250 else if s
= _lc
[I_PROP_TR_DAMAGE_KIND_7
] then
5251 Data
.DamageKind
:= 7
5252 else if s
= _lc
[I_PROP_TR_DAMAGE_KIND_8
] then
5253 Data
.DamageKind
:= 8
5255 Data
.DamageKind
:= 0;
5260 Data
.HealValue
:= Min(Max(
5261 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_HEALTH
]], 0), 0), 65535);
5262 Data
.HealInterval
:= Min(Max(
5263 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_INTERVAL
]], 0), 0), 65535);
5264 Data
.HealMax
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_HEALTH_MAX
]]);
5265 Data
.HealSilent
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SILENT
]]);
5270 Data
.ShotType
:= StrToShot(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_TYPE
]]);
5271 Data
.ShotSound
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_SOUND
]]);
5272 Data
.ShotTarget
:= 0;
5273 if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_TO
]] = _lc
[I_PROP_TR_SHOT_TO_1
] then
5274 Data
.ShotTarget
:= 1
5275 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_TO
]] = _lc
[I_PROP_TR_SHOT_TO_2
] then
5276 Data
.ShotTarget
:= 2
5277 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_TO
]] = _lc
[I_PROP_TR_SHOT_TO_3
] then
5278 Data
.ShotTarget
:= 3
5279 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_TO
]] = _lc
[I_PROP_TR_SHOT_TO_4
] then
5280 Data
.ShotTarget
:= 4
5281 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_TO
]] = _lc
[I_PROP_TR_SHOT_TO_5
] then
5282 Data
.ShotTarget
:= 5
5283 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_TO
]] = _lc
[I_PROP_TR_SHOT_TO_6
] then
5284 Data
.ShotTarget
:= 6;
5285 Data
.ShotIntSight
:= Min(Max(
5286 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_SIGHT
]], 0), 0), 65535);
5288 if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_AIM
]] = _lc
[I_PROP_TR_SHOT_AIM_1
] then
5290 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_AIM
]] = _lc
[I_PROP_TR_SHOT_AIM_2
] then
5292 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_AIM
]] = _lc
[I_PROP_TR_SHOT_AIM_3
] then
5294 Data
.ShotAngle
:= Min(
5295 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_ANGLE
]], 0), 360);
5296 Data
.ShotWait
:= Min(Max(
5297 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_EX_DELAY
]], 0), 0), 65535);
5298 Data
.ShotAccuracy
:= Min(Max(
5299 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_ACC
]], 0), 0), 65535);
5300 Data
.ShotAmmo
:= Min(Max(
5301 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_AMMO
]], 0), 0), 65535);
5302 Data
.ShotIntReload
:= Min(Max(
5303 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_RELOAD
]], 0), 0), 65535);
5308 Data
.FXCount
:= Min(Max(
5309 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_COUNT
]], 0), 0), 255);
5310 if vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_TYPE
]] = _lc
[I_PROP_TR_EFFECT_PARTICLE
] then
5312 Data
.FXType
:= TRIGGER_EFFECT_PARTICLE
;
5313 Data
.FXSubType
:= TRIGGER_EFFECT_SLIQUID
;
5314 if vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_SUBTYPE
]] = _lc
[I_PROP_TR_EFFECT_SLIQUID
] then
5315 Data
.FXSubType
:= TRIGGER_EFFECT_SLIQUID
5316 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_SUBTYPE
]] = _lc
[I_PROP_TR_EFFECT_LLIQUID
] then
5317 Data
.FXSubType
:= TRIGGER_EFFECT_LLIQUID
5318 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_SUBTYPE
]] = _lc
[I_PROP_TR_EFFECT_DLIQUID
] then
5319 Data
.FXSubType
:= TRIGGER_EFFECT_DLIQUID
5320 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_SUBTYPE
]] = _lc
[I_PROP_TR_EFFECT_BLOOD
] then
5321 Data
.FXSubType
:= TRIGGER_EFFECT_BLOOD
5322 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_SUBTYPE
]] = _lc
[I_PROP_TR_EFFECT_SPARK
] then
5323 Data
.FXSubType
:= TRIGGER_EFFECT_SPARK
5324 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_SUBTYPE
]] = _lc
[I_PROP_TR_EFFECT_BUBBLE
] then
5325 Data
.FXSubType
:= TRIGGER_EFFECT_BUBBLE
;
5328 Data
.FXType
:= TRIGGER_EFFECT_ANIMATION
;
5329 Data
.FXSubType
:= StrToEffect(vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_SUBTYPE
]]);
5332 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_COLOR
]], 0), 0), $FFFFFF);
5333 Data
.FXColorR
:= a
and $FF;
5334 Data
.FXColorG
:= (a
shr 8) and $FF;
5335 Data
.FXColorB
:= (a
shr 16) and $FF;
5336 if NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_CENTER
]]) then
5340 Data
.FXWait
:= Min(Max(
5341 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_EX_DELAY
]], 0), 0), 65535);
5342 Data
.FXVelX
:= Min(Max(
5343 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_VELX
]], 0), -128), 127);
5344 Data
.FXVelY
:= Min(Max(
5345 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_VELY
]], 0), -128), 127);
5346 Data
.FXSpreadL
:= Min(Max(
5347 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_SPL
]], 0), 0), 255);
5348 Data
.FXSpreadR
:= Min(Max(
5349 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_SPR
]], 0), 0), 255);
5350 Data
.FXSpreadU
:= Min(Max(
5351 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_SPU
]], 0), 0), 255);
5352 Data
.FXSpreadD
:= Min(Max(
5353 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_SPD
]], 0), 0), 255);
5362 vleObjectProperty
.Row
:= r
;
5363 vleObjectProperty
.Col
:= c
;
5366 procedure TMainForm
.bbRemoveTextureClick(Sender
: TObject
);
5370 i
:= lbTextureList
.ItemIndex
;
5374 if MessageBox(0, PChar(Format(_lc
[I_MSG_DEL_TEXTURE_PROMT
],
5375 [SelectedTexture()])),
5376 PChar(_lc
[I_MSG_DEL_TEXTURE
]),
5377 MB_ICONQUESTION
or MB_YESNO
or
5378 MB_DEFBUTTON1
) <> idYes
then
5381 if gPanels
<> nil then
5382 for a
:= 0 to High(gPanels
) do
5383 if (gPanels
[a
].PanelType
<> 0) and
5384 (gPanels
[a
].TextureName
= SelectedTexture()) then
5386 ErrorMessageBox(_lc
[I_MSG_DEL_TEXTURE_CANT
]);
5390 g_DeleteTexture(SelectedTexture());
5391 i
:= slInvalidTextures
.IndexOf(lbTextureList
.Items
[i
]);
5393 slInvalidTextures
.Delete(i
);
5394 if lbTextureList
.ItemIndex
> -1 then
5395 lbTextureList
.Items
.Delete(lbTextureList
.ItemIndex
)
5398 procedure TMainForm
.aNewMapExecute(Sender
: TObject
);
5400 if (MessageBox(0, PChar(_lc
[I_MSG_CLEAR_MAP_PROMT
]),
5401 PChar(_lc
[I_MSG_CLEAR_MAP
]),
5402 MB_ICONQUESTION
or MB_YESNO
or
5403 MB_DEFBUTTON1
) = mrYes
) then
5407 procedure TMainForm
.aUndoExecute(Sender
: TObject
);
5411 if UndoBuffer
= nil then
5413 if UndoBuffer
[High(UndoBuffer
)] = nil then
5416 for a
:= 0 to High(UndoBuffer
[High(UndoBuffer
)]) do
5417 with UndoBuffer
[High(UndoBuffer
)][a
] do
5425 UNDO_DELETE_ITEM
: AddItem(Item
);
5426 UNDO_DELETE_AREA
: AddArea(Area
);
5427 UNDO_DELETE_MONSTER
: AddMonster(Monster
);
5428 UNDO_DELETE_TRIGGER
: AddTrigger(Trigger
);
5429 UNDO_ADD_PANEL
: RemoveObject(AddID
, OBJECT_PANEL
);
5430 UNDO_ADD_ITEM
: RemoveObject(AddID
, OBJECT_ITEM
);
5431 UNDO_ADD_AREA
: RemoveObject(AddID
, OBJECT_AREA
);
5432 UNDO_ADD_MONSTER
: RemoveObject(AddID
, OBJECT_MONSTER
);
5433 UNDO_ADD_TRIGGER
: RemoveObject(AddID
, OBJECT_TRIGGER
);
5437 SetLength(UndoBuffer
, Length(UndoBuffer
)-1);
5439 RemoveSelectFromObjects();
5441 miUndo
.Enabled
:= UndoBuffer
<> nil;
5445 procedure TMainForm
.aCopyObjectExecute(Sender
: TObject
);
5448 CopyBuffer
: TCopyRecArray
;
5452 function CB_Compare(I1
, I2
: TCopyRec
): Integer;
5454 Result
:= Integer(I1
.ObjectType
) - Integer(I2
.ObjectType
);
5456 if Result
= 0 then // Одного типа
5457 Result
:= Integer(I1
.ID
) - Integer(I2
.ID
);
5460 procedure QuickSortCopyBuffer(L
, R
: Integer);
5468 P
:= CopyBuffer
[(L
+ R
) shr 1];
5471 while CB_Compare(CopyBuffer
[I
], P
) < 0 do
5473 while CB_Compare(CopyBuffer
[J
], P
) > 0 do
5479 CopyBuffer
[I
] := CopyBuffer
[J
];
5487 QuickSortCopyBuffer(L
, J
);
5494 if SelectedObjects
= nil then
5500 // Копируем объекты:
5501 for a
:= 0 to High(SelectedObjects
) do
5502 if SelectedObjects
[a
].Live
then
5503 with SelectedObjects
[a
] do
5505 SetLength(CopyBuffer
, Length(CopyBuffer
)+1);
5506 b
:= High(CopyBuffer
);
5507 CopyBuffer
[b
].ID
:= ID
;
5508 CopyBuffer
[b
].Panel
:= nil;
5513 CopyBuffer
[b
].ObjectType
:= OBJECT_PANEL
;
5514 New(CopyBuffer
[b
].Panel
);
5515 CopyBuffer
[b
].Panel
^ := gPanels
[ID
];
5520 CopyBuffer
[b
].ObjectType
:= OBJECT_ITEM
;
5521 CopyBuffer
[b
].Item
:= gItems
[ID
];
5526 CopyBuffer
[b
].ObjectType
:= OBJECT_MONSTER
;
5527 CopyBuffer
[b
].Monster
:= gMonsters
[ID
];
5532 CopyBuffer
[b
].ObjectType
:= OBJECT_AREA
;
5533 CopyBuffer
[b
].Area
:= gAreas
[ID
];
5538 CopyBuffer
[b
].ObjectType
:= OBJECT_TRIGGER
;
5539 CopyBuffer
[b
].Trigger
:= gTriggers
[ID
];
5544 // Сортировка по ID:
5545 if CopyBuffer
<> nil then
5547 QuickSortCopyBuffer(0, b
);
5550 // Пестановка ссылок триггеров:
5551 for a
:= 0 to Length(CopyBuffer
)-1 do
5552 if CopyBuffer
[a
].ObjectType
= OBJECT_TRIGGER
then
5554 case CopyBuffer
[a
].Trigger
.TriggerType
of
5555 TRIGGER_OPENDOOR
, TRIGGER_CLOSEDOOR
, TRIGGER_DOOR
,
5556 TRIGGER_DOOR5
, TRIGGER_CLOSETRAP
, TRIGGER_TRAP
,
5557 TRIGGER_LIFTUP
, TRIGGER_LIFTDOWN
, TRIGGER_LIFT
:
5558 if CopyBuffer
[a
].Trigger
.Data
.PanelID
<> -1 then
5562 for b
:= 0 to Length(CopyBuffer
)-1 do
5563 if (CopyBuffer
[b
].ObjectType
= OBJECT_PANEL
) and
5564 (Integer(CopyBuffer
[b
].ID
) = CopyBuffer
[a
].Trigger
.Data
.PanelID
) then
5566 CopyBuffer
[a
].Trigger
.Data
.PanelID
:= b
;
5571 // Этих панелей нет среди копируемых:
5573 CopyBuffer
[a
].Trigger
.Data
.PanelID
:= -1;
5576 TRIGGER_PRESS
, TRIGGER_ON
,
5577 TRIGGER_OFF
, TRIGGER_ONOFF
:
5578 if CopyBuffer
[a
].Trigger
.Data
.MonsterID
<> 0 then
5582 for b
:= 0 to Length(CopyBuffer
)-1 do
5583 if (CopyBuffer
[b
].ObjectType
= OBJECT_MONSTER
) and
5584 (Integer(CopyBuffer
[b
].ID
) = CopyBuffer
[a
].Trigger
.Data
.MonsterID
-1) then
5586 CopyBuffer
[a
].Trigger
.Data
.MonsterID
:= b
+1;
5591 // Этих монстров нет среди копируемых:
5593 CopyBuffer
[a
].Trigger
.Data
.MonsterID
:= 0;
5597 if CopyBuffer
[a
].Trigger
.Data
.ShotPanelID
<> -1 then
5601 for b
:= 0 to Length(CopyBuffer
)-1 do
5602 if (CopyBuffer
[b
].ObjectType
= OBJECT_PANEL
) and
5603 (Integer(CopyBuffer
[b
].ID
) = CopyBuffer
[a
].Trigger
.Data
.ShotPanelID
) then
5605 CopyBuffer
[a
].Trigger
.Data
.ShotPanelID
:= b
;
5610 // Этих панелей нет среди копируемых:
5612 CopyBuffer
[a
].Trigger
.Data
.ShotPanelID
:= -1;
5616 if CopyBuffer
[a
].Trigger
.TexturePanel
<> -1 then
5620 for b
:= 0 to Length(CopyBuffer
)-1 do
5621 if (CopyBuffer
[b
].ObjectType
= OBJECT_PANEL
) and
5622 (Integer(CopyBuffer
[b
].ID
) = CopyBuffer
[a
].Trigger
.TexturePanel
) then
5624 CopyBuffer
[a
].Trigger
.TexturePanel
:= b
;
5629 // Этих панелей нет среди копируемых:
5631 CopyBuffer
[a
].Trigger
.TexturePanel
:= -1;
5636 str
:= CopyBufferToString(CopyBuffer
);
5637 ClipBoard
.AsText
:= str
;
5639 for a
:= 0 to Length(CopyBuffer
)-1 do
5640 if (CopyBuffer
[a
].ObjectType
= OBJECT_PANEL
) and
5641 (CopyBuffer
[a
].Panel
<> nil) then
5642 Dispose(CopyBuffer
[a
].Panel
);
5647 procedure TMainForm
.aPasteObjectExecute(Sender
: TObject
);
5650 CopyBuffer
: TCopyRecArray
;
5652 swad
, ssec
, sres
: String;
5658 pmin
.X
:= High(pmin
.X
);
5659 pmin
.Y
:= High(pmin
.Y
);
5661 StringToCopyBuffer(ClipBoard
.AsText
, CopyBuffer
, pmin
);
5662 rel
:= not(ssShift
in GetKeyShiftState());
5664 if CopyBuffer
= nil then
5667 RemoveSelectFromObjects();
5669 h
:= High(CopyBuffer
);
5671 with CopyBuffer
[a
] do
5675 if Panel
<> nil then
5679 Panel
^.X
:= Panel
^.X
- pmin
.X
- MapOffset
.X
+ 32;
5680 Panel
^.Y
:= Panel
^.Y
- pmin
.Y
- MapOffset
.Y
+ 32;
5683 Panel
^.TextureID
:= TEXTURE_SPECIAL_NONE
;
5684 Panel
^.TextureWidth
:= 1;
5685 Panel
^.TextureHeight
:= 1;
5687 if (Panel
^.PanelType
= PANEL_LIFTUP
) or
5688 (Panel
^.PanelType
= PANEL_LIFTDOWN
) or
5689 (Panel
^.PanelType
= PANEL_LIFTLEFT
) or
5690 (Panel
^.PanelType
= PANEL_LIFTRIGHT
) or
5691 (Panel
^.PanelType
= PANEL_BLOCKMON
) or
5692 (Panel
^.TextureName
= '') then
5693 begin // Нет или не может быть текстуры:
5695 else // Есть текстура:
5697 // Обычная текстура:
5698 if not IsSpecialTexture(Panel
^.TextureName
) then
5700 res
:= g_GetTexture(Panel
^.TextureName
, Panel
^.TextureID
);
5704 g_ProcessResourceStr(Panel
^.TextureName
, swad
, ssec
, sres
);
5705 AddTexture(swad
, ssec
, sres
, True);
5706 res
:= g_GetTexture(Panel
^.TextureName
, Panel
^.TextureID
);
5710 g_GetTextureSizeByName(Panel
^.TextureName
,
5711 Panel
^.TextureWidth
, Panel
^.TextureHeight
)
5713 if g_GetTexture('NOTEXTURE', NoTextureID
) then
5715 Panel
^.TextureID
:= TEXTURE_SPECIAL_NOTEXTURE
;
5716 g_GetTextureSizeByID(NoTextureID
, Panel
^.TextureWidth
, Panel
^.TextureHeight
);
5719 else // Спец.текстура:
5721 Panel
^.TextureID
:= SpecialTextureID(Panel
^.TextureName
);
5722 with MainForm
.lbTextureList
.Items
do
5723 if IndexOf(Panel
^.TextureName
) = -1 then
5724 Add(Panel
^.TextureName
);
5728 ID
:= AddPanel(Panel
^);
5730 Undo_Add(OBJECT_PANEL
, ID
, a
> 0);
5731 SelectObject(OBJECT_PANEL
, ID
, True);
5738 Item
.X
:= Item
.X
- pmin
.X
- MapOffset
.X
+ 32;
5739 Item
.Y
:= Item
.Y
- pmin
.Y
- MapOffset
.Y
+ 32;
5742 ID
:= AddItem(Item
);
5743 Undo_Add(OBJECT_ITEM
, ID
, a
> 0);
5744 SelectObject(OBJECT_ITEM
, ID
, True);
5751 Monster
.X
:= Monster
.X
- pmin
.X
- MapOffset
.X
+ 32;
5752 Monster
.Y
:= Monster
.Y
- pmin
.Y
- MapOffset
.Y
+ 32;
5755 ID
:= AddMonster(Monster
);
5756 Undo_Add(OBJECT_MONSTER
, ID
, a
> 0);
5757 SelectObject(OBJECT_MONSTER
, ID
, True);
5764 Area
.X
:= Area
.X
- pmin
.X
- MapOffset
.X
+ 32;
5765 Area
.Y
:= Area
.Y
- pmin
.Y
- MapOffset
.Y
+ 32;
5768 ID
:= AddArea(Area
);
5769 Undo_Add(OBJECT_AREA
, ID
, a
> 0);
5770 SelectObject(OBJECT_AREA
, ID
, True);
5778 X
:= X
- pmin
.X
- MapOffset
.X
+ 32;
5779 Y
:= Y
- pmin
.Y
- MapOffset
.Y
+ 32;
5784 Data
.TargetPoint
.X
:=
5785 Data
.TargetPoint
.X
- pmin
.X
- MapOffset
.X
+ 32;
5786 Data
.TargetPoint
.Y
:=
5787 Data
.TargetPoint
.Y
- pmin
.Y
- MapOffset
.Y
+ 32;
5789 TRIGGER_PRESS
, TRIGGER_ON
, TRIGGER_OFF
, TRIGGER_ONOFF
:
5791 Data
.tX
:= Data
.tX
- pmin
.X
- MapOffset
.X
+ 32;
5792 Data
.tY
:= Data
.tY
- pmin
.Y
- MapOffset
.Y
+ 32;
5794 TRIGGER_SPAWNMONSTER
:
5797 Data
.MonPos
.X
- pmin
.X
- MapOffset
.X
+ 32;
5799 Data
.MonPos
.Y
- pmin
.Y
- MapOffset
.Y
+ 32;
5804 Data
.ItemPos
.X
- pmin
.X
- MapOffset
.X
+ 32;
5806 Data
.ItemPos
.Y
- pmin
.Y
- MapOffset
.Y
+ 32;
5811 Data
.ShotPos
.X
- pmin
.X
- MapOffset
.X
+ 32;
5813 Data
.ShotPos
.Y
- pmin
.Y
- MapOffset
.Y
+ 32;
5818 ID
:= AddTrigger(Trigger
);
5819 Undo_Add(OBJECT_TRIGGER
, ID
, a
> 0);
5820 SelectObject(OBJECT_TRIGGER
, ID
, True);
5825 // Переставляем ссылки триггеров:
5826 for a
:= 0 to High(CopyBuffer
) do
5827 if CopyBuffer
[a
].ObjectType
= OBJECT_TRIGGER
then
5829 case CopyBuffer
[a
].Trigger
.TriggerType
of
5830 TRIGGER_OPENDOOR
, TRIGGER_CLOSEDOOR
, TRIGGER_DOOR
,
5831 TRIGGER_DOOR5
, TRIGGER_CLOSETRAP
, TRIGGER_TRAP
,
5832 TRIGGER_LIFTUP
, TRIGGER_LIFTDOWN
, TRIGGER_LIFT
:
5833 if CopyBuffer
[a
].Trigger
.Data
.PanelID
<> -1 then
5834 gTriggers
[CopyBuffer
[a
].ID
].Data
.PanelID
:=
5835 CopyBuffer
[CopyBuffer
[a
].Trigger
.Data
.PanelID
].ID
;
5837 TRIGGER_PRESS
, TRIGGER_ON
,
5838 TRIGGER_OFF
, TRIGGER_ONOFF
:
5839 if CopyBuffer
[a
].Trigger
.Data
.MonsterID
<> 0 then
5840 gTriggers
[CopyBuffer
[a
].ID
].Data
.MonsterID
:=
5841 CopyBuffer
[CopyBuffer
[a
].Trigger
.Data
.MonsterID
-1].ID
+1;
5844 if CopyBuffer
[a
].Trigger
.Data
.ShotPanelID
<> -1 then
5845 gTriggers
[CopyBuffer
[a
].ID
].Data
.ShotPanelID
:=
5846 CopyBuffer
[CopyBuffer
[a
].Trigger
.Data
.ShotPanelID
].ID
;
5849 if CopyBuffer
[a
].Trigger
.TexturePanel
<> -1 then
5850 gTriggers
[CopyBuffer
[a
].ID
].TexturePanel
:=
5851 CopyBuffer
[CopyBuffer
[a
].Trigger
.TexturePanel
].ID
;
5860 procedure TMainForm
.aCutObjectExecute(Sender
: TObject
);
5863 DeleteSelectedObjects();
5866 procedure TMainForm
.vleObjectPropertyEditButtonClick(Sender
: TObject
);
5868 Key
, FileName
: String;
5871 Key
:= vleObjectProperty
.Keys
[vleObjectProperty
.Row
];
5873 if Key
= _lc
[I_PROP_PANEL_TYPE
] then
5875 with ChooseTypeForm
, vleObjectProperty
do
5876 begin // Выбор типа панели:
5877 Caption
:= _lc
[I_PROP_PANEL_TYPE
];
5878 lbTypeSelect
.Items
.Clear();
5880 for b
:= 0 to High(PANELNAMES
) do
5882 lbTypeSelect
.Items
.Add(PANELNAMES
[b
]);
5883 if Values
[Key
] = PANELNAMES
[b
] then
5884 lbTypeSelect
.ItemIndex
:= b
;
5887 if ShowModal() = mrOK
then
5889 b
:= lbTypeSelect
.ItemIndex
;
5890 Values
[Key
] := PANELNAMES
[b
];
5891 vleObjectPropertyApply(Sender
);
5895 else if Key
= _lc
[I_PROP_TR_TELEPORT_TO
] then
5896 SelectFlag
:= SELECTFLAG_TELEPORT
5897 else if Key
= _lc
[I_PROP_TR_SPAWN_TO
] then
5898 SelectFlag
:= SELECTFLAG_SPAWNPOINT
5899 else if (Key
= _lc
[I_PROP_TR_DOOR_PANEL
]) or
5900 (Key
= _lc
[I_PROP_TR_TRAP_PANEL
]) then
5901 SelectFlag
:= SELECTFLAG_DOOR
5902 else if Key
= _lc
[I_PROP_TR_TEXTURE_PANEL
] then
5904 DrawPressRect
:= False;
5905 SelectFlag
:= SELECTFLAG_TEXTURE
;
5907 else if Key
= _lc
[I_PROP_TR_SHOT_PANEL
] then
5908 SelectFlag
:= SELECTFLAG_SHOTPANEL
5909 else if Key
= _lc
[I_PROP_TR_LIFT_PANEL
] then
5910 SelectFlag
:= SELECTFLAG_LIFT
5911 else if key
= _lc
[I_PROP_TR_EX_MONSTER
] then
5912 SelectFlag
:= SELECTFLAG_MONSTER
5913 else if Key
= _lc
[I_PROP_TR_EX_AREA
] then
5915 SelectFlag
:= SELECTFLAG_NONE
;
5916 DrawPressRect
:= True;
5918 else if Key
= _lc
[I_PROP_TR_NEXT_MAP
] then
5919 begin // Выбор следующей карты:
5920 g_ProcessResourceStr(OpenedMap
, @FileName
, nil, nil);
5921 SelectMapForm
.Caption
:= _lc
[I_CAP_SELECT
];
5922 SelectMapForm
.GetMaps(FileName
);
5924 if SelectMapForm
.ShowModal() = mrOK
then
5926 vleObjectProperty
.Values
[Key
] := SelectMapForm
.lbMapList
.Items
[SelectMapForm
.lbMapList
.ItemIndex
];
5927 vleObjectPropertyApply(Sender
);
5930 else if (Key
= _lc
[I_PROP_TR_SOUND_NAME
]) or
5931 (Key
= _lc
[I_PROP_TR_MUSIC_NAME
]) then
5932 begin // Выбор файла звука/музыки:
5933 AddSoundForm
.OKFunction
:= nil;
5934 AddSoundForm
.lbResourcesList
.MultiSelect
:= False;
5935 AddSoundForm
.SetResource
:= vleObjectProperty
.Values
[Key
];
5937 if (AddSoundForm
.ShowModal() = mrOk
) then
5939 vleObjectProperty
.Values
[Key
] := AddSoundForm
.ResourceName
;
5940 vleObjectPropertyApply(Sender
);
5943 else if Key
= _lc
[I_PROP_TR_ACTIVATION
] then
5944 with ActivationTypeForm
, vleObjectProperty
do
5945 begin // Выбор типов активации:
5946 cbPlayerCollide
.Checked
:= Pos('PC', Values
[Key
]) > 0;
5947 cbMonsterCollide
.Checked
:= Pos('MC', Values
[Key
]) > 0;
5948 cbPlayerPress
.Checked
:= Pos('PP', Values
[Key
]) > 0;
5949 cbMonsterPress
.Checked
:= Pos('MP', Values
[Key
]) > 0;
5950 cbShot
.Checked
:= Pos('SH', Values
[Key
]) > 0;
5951 cbNoMonster
.Checked
:= Pos('NM', Values
[Key
]) > 0;
5953 if ShowModal() = mrOK
then
5956 if cbPlayerCollide
.Checked
then
5957 b
:= ACTIVATE_PLAYERCOLLIDE
;
5958 if cbMonsterCollide
.Checked
then
5959 b
:= b
or ACTIVATE_MONSTERCOLLIDE
;
5960 if cbPlayerPress
.Checked
then
5961 b
:= b
or ACTIVATE_PLAYERPRESS
;
5962 if cbMonsterPress
.Checked
then
5963 b
:= b
or ACTIVATE_MONSTERPRESS
;
5964 if cbShot
.Checked
then
5965 b
:= b
or ACTIVATE_SHOT
;
5966 if cbNoMonster
.Checked
then
5967 b
:= b
or ACTIVATE_NOMONSTER
;
5969 Values
[Key
] := ActivateToStr(b
);
5970 vleObjectPropertyApply(Sender
);
5973 else if Key
= _lc
[I_PROP_TR_KEYS
] then
5974 with KeysForm
, vleObjectProperty
do
5975 begin // Выбор необходимых ключей:
5976 cbRedKey
.Checked
:= Pos('RK', Values
[Key
]) > 0;
5977 cbGreenKey
.Checked
:= Pos('GK', Values
[Key
]) > 0;
5978 cbBlueKey
.Checked
:= Pos('BK', Values
[Key
]) > 0;
5979 cbRedTeam
.Checked
:= Pos('RT', Values
[Key
]) > 0;
5980 cbBlueTeam
.Checked
:= Pos('BT', Values
[Key
]) > 0;
5982 if ShowModal() = mrOK
then
5985 if cbRedKey
.Checked
then
5987 if cbGreenKey
.Checked
then
5988 b
:= b
or KEY_GREEN
;
5989 if cbBlueKey
.Checked
then
5991 if cbRedTeam
.Checked
then
5992 b
:= b
or KEY_REDTEAM
;
5993 if cbBlueTeam
.Checked
then
5994 b
:= b
or KEY_BLUETEAM
;
5996 Values
[Key
] := KeyToStr(b
);
5997 vleObjectPropertyApply(Sender
);
6000 else if Key
= _lc
[I_PROP_TR_FX_TYPE
] then
6001 with ChooseTypeForm
, vleObjectProperty
do
6002 begin // Выбор типа эффекта:
6003 Caption
:= _lc
[I_CAP_FX_TYPE
];
6004 lbTypeSelect
.Items
.Clear();
6006 for b
:= EFFECT_NONE
to EFFECT_FIRE
do
6007 lbTypeSelect
.Items
.Add(EffectToStr(b
));
6009 lbTypeSelect
.ItemIndex
:= StrToEffect(Values
[Key
]);
6011 if ShowModal() = mrOK
then
6013 b
:= lbTypeSelect
.ItemIndex
;
6014 Values
[Key
] := EffectToStr(b
);
6015 vleObjectPropertyApply(Sender
);
6018 else if Key
= _lc
[I_PROP_TR_MONSTER_TYPE
] then
6019 with ChooseTypeForm
, vleObjectProperty
do
6020 begin // Выбор типа монстра:
6021 Caption
:= _lc
[I_CAP_MONSTER_TYPE
];
6022 lbTypeSelect
.Items
.Clear();
6024 for b
:= MONSTER_DEMON
to MONSTER_MAN
do
6025 lbTypeSelect
.Items
.Add(MonsterToStr(b
));
6027 lbTypeSelect
.ItemIndex
:= StrToMonster(Values
[Key
]) - MONSTER_DEMON
;
6029 if ShowModal() = mrOK
then
6031 b
:= lbTypeSelect
.ItemIndex
+ MONSTER_DEMON
;
6032 Values
[Key
] := MonsterToStr(b
);
6033 vleObjectPropertyApply(Sender
);
6036 else if Key
= _lc
[I_PROP_TR_ITEM_TYPE
] then
6037 with ChooseTypeForm
, vleObjectProperty
do
6038 begin // Выбор типа предмета:
6039 Caption
:= _lc
[I_CAP_ITEM_TYPE
];
6040 lbTypeSelect
.Items
.Clear();
6042 for b
:= ITEM_MEDKIT_SMALL
to ITEM_KEY_BLUE
do
6043 lbTypeSelect
.Items
.Add(ItemToStr(b
));
6044 lbTypeSelect
.Items
.Add(ItemToStr(ITEM_BOTTLE
));
6045 lbTypeSelect
.Items
.Add(ItemToStr(ITEM_HELMET
));
6046 lbTypeSelect
.Items
.Add(ItemToStr(ITEM_JETPACK
));
6047 lbTypeSelect
.Items
.Add(ItemToStr(ITEM_INVIS
));
6048 lbTypeSelect
.Items
.Add(ItemToStr(ITEM_WEAPON_FLAMETHROWER
));
6049 lbTypeSelect
.Items
.Add(ItemToStr(ITEM_AMMO_FUELCAN
));
6051 b
:= StrToItem(Values
[Key
]);
6052 if b
>= ITEM_BOTTLE
then
6054 lbTypeSelect
.ItemIndex
:= b
- ITEM_MEDKIT_SMALL
;
6056 if ShowModal() = mrOK
then
6058 b
:= lbTypeSelect
.ItemIndex
+ ITEM_MEDKIT_SMALL
;
6059 if b
>= ITEM_WEAPON_KASTET
then
6061 Values
[Key
] := ItemToStr(b
);
6062 vleObjectPropertyApply(Sender
);
6065 else if Key
= _lc
[I_PROP_TR_SHOT_TYPE
] then
6066 with ChooseTypeForm
, vleObjectProperty
do
6067 begin // Выбор типа предмета:
6068 Caption
:= _lc
[I_PROP_TR_SHOT_TYPE
];
6069 lbTypeSelect
.Items
.Clear();
6071 for b
:= TRIGGER_SHOT_PISTOL
to TRIGGER_SHOT_MAX
do
6072 lbTypeSelect
.Items
.Add(ShotToStr(b
));
6074 lbTypeSelect
.ItemIndex
:= StrToShot(Values
[Key
]);
6076 if ShowModal() = mrOK
then
6078 b
:= lbTypeSelect
.ItemIndex
;
6079 Values
[Key
] := ShotToStr(b
);
6080 vleObjectPropertyApply(Sender
);
6083 else if Key
= _lc
[I_PROP_TR_EFFECT_TYPE
] then
6084 with ChooseTypeForm
, vleObjectProperty
do
6085 begin // Выбор типа эффекта:
6086 Caption
:= _lc
[I_CAP_FX_TYPE
];
6087 lbTypeSelect
.Items
.Clear();
6089 lbTypeSelect
.Items
.Add(_lc
[I_PROP_TR_EFFECT_PARTICLE
]);
6090 lbTypeSelect
.Items
.Add(_lc
[I_PROP_TR_EFFECT_ANIMATION
]);
6091 if Values
[Key
] = _lc
[I_PROP_TR_EFFECT_ANIMATION
] then
6092 lbTypeSelect
.ItemIndex
:= 1
6094 lbTypeSelect
.ItemIndex
:= 0;
6096 if ShowModal() = mrOK
then
6098 b
:= lbTypeSelect
.ItemIndex
;
6100 Values
[Key
] := _lc
[I_PROP_TR_EFFECT_PARTICLE
]
6102 Values
[Key
] := _lc
[I_PROP_TR_EFFECT_ANIMATION
];
6103 vleObjectPropertyApply(Sender
);
6106 else if Key
= _lc
[I_PROP_TR_EFFECT_SUBTYPE
] then
6107 with ChooseTypeForm
, vleObjectProperty
do
6108 begin // Выбор подтипа эффекта:
6109 Caption
:= _lc
[I_CAP_FX_TYPE
];
6110 lbTypeSelect
.Items
.Clear();
6112 if Values
[_lc
[I_PROP_TR_EFFECT_TYPE
]] = _lc
[I_PROP_TR_EFFECT_ANIMATION
] then
6114 for b
:= EFFECT_TELEPORT
to EFFECT_FIRE
do
6115 lbTypeSelect
.Items
.Add(EffectToStr(b
));
6117 lbTypeSelect
.ItemIndex
:= StrToEffect(Values
[Key
]) - 1;
6120 lbTypeSelect
.Items
.Add(_lc
[I_PROP_TR_EFFECT_SLIQUID
]);
6121 lbTypeSelect
.Items
.Add(_lc
[I_PROP_TR_EFFECT_LLIQUID
]);
6122 lbTypeSelect
.Items
.Add(_lc
[I_PROP_TR_EFFECT_DLIQUID
]);
6123 lbTypeSelect
.Items
.Add(_lc
[I_PROP_TR_EFFECT_BLOOD
]);
6124 lbTypeSelect
.Items
.Add(_lc
[I_PROP_TR_EFFECT_SPARK
]);
6125 lbTypeSelect
.Items
.Add(_lc
[I_PROP_TR_EFFECT_BUBBLE
]);
6126 lbTypeSelect
.ItemIndex
:= TRIGGER_EFFECT_SLIQUID
;
6127 if Values
[Key
] = _lc
[I_PROP_TR_EFFECT_LLIQUID
] then
6128 lbTypeSelect
.ItemIndex
:= TRIGGER_EFFECT_LLIQUID
;
6129 if Values
[Key
] = _lc
[I_PROP_TR_EFFECT_DLIQUID
] then
6130 lbTypeSelect
.ItemIndex
:= TRIGGER_EFFECT_DLIQUID
;
6131 if Values
[Key
] = _lc
[I_PROP_TR_EFFECT_BLOOD
] then
6132 lbTypeSelect
.ItemIndex
:= TRIGGER_EFFECT_BLOOD
;
6133 if Values
[Key
] = _lc
[I_PROP_TR_EFFECT_SPARK
] then
6134 lbTypeSelect
.ItemIndex
:= TRIGGER_EFFECT_SPARK
;
6135 if Values
[Key
] = _lc
[I_PROP_TR_EFFECT_BUBBLE
] then
6136 lbTypeSelect
.ItemIndex
:= TRIGGER_EFFECT_BUBBLE
;
6139 if ShowModal() = mrOK
then
6141 b
:= lbTypeSelect
.ItemIndex
;
6143 if Values
[_lc
[I_PROP_TR_EFFECT_TYPE
]] = _lc
[I_PROP_TR_EFFECT_ANIMATION
] then
6144 Values
[Key
] := EffectToStr(b
+ 1)
6146 Values
[Key
] := _lc
[I_PROP_TR_EFFECT_SLIQUID
];
6147 if b
= TRIGGER_EFFECT_LLIQUID
then
6148 Values
[Key
] := _lc
[I_PROP_TR_EFFECT_LLIQUID
];
6149 if b
= TRIGGER_EFFECT_DLIQUID
then
6150 Values
[Key
] := _lc
[I_PROP_TR_EFFECT_DLIQUID
];
6151 if b
= TRIGGER_EFFECT_BLOOD
then
6152 Values
[Key
] := _lc
[I_PROP_TR_EFFECT_BLOOD
];
6153 if b
= TRIGGER_EFFECT_SPARK
then
6154 Values
[Key
] := _lc
[I_PROP_TR_EFFECT_SPARK
];
6155 if b
= TRIGGER_EFFECT_BUBBLE
then
6156 Values
[Key
] := _lc
[I_PROP_TR_EFFECT_BUBBLE
];
6159 vleObjectPropertyApply(Sender
);
6162 else if Key
= _lc
[I_PROP_TR_EFFECT_COLOR
] then
6163 with vleObjectProperty
do
6164 begin // Выбор цвета эффекта:
6165 ColorDialog
.Color
:= StrToIntDef(Values
[Key
], 0);
6166 if ColorDialog
.Execute
then
6168 Values
[Key
] := IntToStr(ColorDialog
.Color
);
6169 vleObjectPropertyApply(Sender
);
6172 else if Key
= _lc
[I_PROP_PANEL_TEX
] then
6173 begin // Смена текстуры:
6174 vleObjectProperty
.Values
[Key
] := SelectedTexture();
6175 vleObjectPropertyApply(Sender
);
6179 procedure TMainForm
.vleObjectPropertyApply(Sender
: TObject
);
6181 // hack to prevent empty ID in list
6182 RenderPanel
.SetFocus();
6183 bApplyProperty
.Click();
6184 vleObjectProperty
.SetFocus();
6187 procedure TMainForm
.aSaveMapExecute(Sender
: TObject
);
6189 FileName
, Section
, Res
: String;
6191 if OpenedMap
= '' then
6193 aSaveMapAsExecute(nil);
6197 g_ProcessResourceStr(OpenedMap
, FileName
, Section
, Res
);
6199 SaveMap(FileName
+':\'+Res
);
6202 procedure TMainForm
.aOpenMapExecute(Sender
: TObject
);
6204 OpenDialog
.Filter
:= _lc
[I_FILE_FILTER_ALL
];
6206 if OpenDialog
.Execute() then
6208 OpenMapFile(OpenDialog
.FileName
);
6209 OpenDialog
.InitialDir
:= ExtractFileDir(OpenDialog
.FileName
);
6213 procedure TMainForm
.OpenMapFile(FileName
: String);
6215 if (Pos('.ini', LowerCase(ExtractFileName(FileName
))) > 0) then
6219 pLoadProgress
.Left
:= (RenderPanel
.Width
div 2)-(pLoadProgress
.Width
div 2);
6220 pLoadProgress
.Top
:= (RenderPanel
.Height
div 2)-(pLoadProgress
.Height
div 2);
6221 pLoadProgress
.Show();
6226 LoadMapOld(FileName
);
6228 MainForm
.Caption
:= Format('%s - %s', [FormCaption
, ExtractFileName(FileName
)]);
6230 pLoadProgress
.Hide();
6231 MainForm
.FormResize(Self
);
6233 else // Карты из WAD:
6235 OpenMap(FileName
, '');
6239 procedure TMainForm
.FormActivate(Sender
: TObject
);
6244 MainForm
.ActiveControl
:= RenderPanel
;
6247 if gLanguage
= '' then
6249 lang
:= SelectLanguageForm
.ShowModal();
6251 1: gLanguage
:= LANGUAGE_ENGLISH
;
6252 else gLanguage
:= LANGUAGE_RUSSIAN
;
6255 config
:= TConfig
.CreateFile(CfgFileName
);
6256 config
.WriteStr('Editor', 'Language', gLanguage
);
6257 config
.SaveFile(CfgFileName
);
6261 //e_WriteLog('Read language file', MSG_NOTIFY);
6262 //g_Language_Load(EditorDir+'\data\'+gLanguage+LANGUAGE_FILE_NAME);
6263 g_Language_Set(gLanguage
);
6266 procedure TMainForm
.aDeleteMap(Sender
: TObject
);
6272 OpenDialog
.Filter
:= _lc
[I_FILE_FILTER_WAD
];
6274 if not OpenDialog
.Execute() then
6277 FileName
:= OpenDialog
.FileName
;
6278 SelectMapForm
.Caption
:= _lc
[I_CAP_REMOVE
];
6279 SelectMapForm
.lbMapList
.Items
.Clear();
6280 SelectMapForm
.GetMaps(FileName
);
6282 if SelectMapForm
.ShowModal() <> mrOK
then
6285 MapName
:= SelectMapForm
.lbMapList
.Items
[SelectMapForm
.lbMapList
.ItemIndex
];
6286 if MessageBox(0, PChar(Format(_lc
[I_MSG_DELETE_MAP_PROMT
], [MapName
, OpenDialog
.FileName
])), PChar(_lc
[I_MSG_DELETE_MAP
]), MB_ICONQUESTION
or MB_YESNO
or MB_DEFBUTTON2
) <> mrYes
then
6289 g_DeleteResource(FileName
, '', MapName
, res
);
6292 MessageBox(0, PChar('Cant delete map res=' + IntToStr(res
)), PChar('Map not deleted!'), MB_ICONINFORMATION
or MB_OK
or MB_DEFBUTTON1
);
6298 PChar(Format(_lc
[I_MSG_MAP_DELETED_PROMT
], [MapName
])),
6299 PChar(_lc
[I_MSG_MAP_DELETED
]),
6300 MB_ICONINFORMATION
or MB_OK
or MB_DEFBUTTON1
6303 // Удалили текущую карту - сохранять по старому ее нельзя:
6304 if OpenedMap
= (FileName
+ ':\' + MapName
) then
6308 MainForm
.Caption
:= FormCaption
6312 procedure TMainForm
.vleObjectPropertyKeyDown(Sender
: TObject
;
6313 var Key
: Word; Shift
: TShiftState
);
6315 if Key
= VK_RETURN
then
6316 vleObjectPropertyApply(Sender
);
6319 procedure MovePanel(var ID
: DWORD
; MoveType
: Byte);
6324 if (ID
= 0) and (MoveType
= 0) then
6326 if (ID
= DWORD(High(gPanels
))) and (MoveType
<> 0) then
6328 if (ID
> DWORD(High(gPanels
))) then
6333 if MoveType
= 0 then // to Back
6335 if gTriggers
<> nil then
6336 for a
:= 0 to High(gTriggers
) do
6337 with gTriggers
[a
] do
6339 if TriggerType
= TRIGGER_NONE
then
6342 if TexturePanel
= _id
then
6345 if (TexturePanel
>= 0) and (TexturePanel
< _id
) then
6349 TRIGGER_OPENDOOR
, TRIGGER_CLOSEDOOR
, TRIGGER_DOOR
,
6350 TRIGGER_DOOR5
, TRIGGER_CLOSETRAP
, TRIGGER_TRAP
,
6351 TRIGGER_LIFTUP
, TRIGGER_LIFTDOWN
, TRIGGER_LIFT
:
6352 if Data
.PanelID
= _id
then
6355 if (Data
.PanelID
>= 0) and (Data
.PanelID
< _id
) then
6359 if Data
.ShotPanelID
= _id
then
6360 Data
.ShotPanelID
:= 0
6362 if (Data
.ShotPanelID
>= 0) and (Data
.ShotPanelID
< _id
) then
6363 Inc(Data
.ShotPanelID
);
6367 tmp
:= gPanels
[_id
];
6369 for a
:= _id
downto 1 do
6370 gPanels
[a
] := gPanels
[a
-1];
6378 if gTriggers
<> nil then
6379 for a
:= 0 to High(gTriggers
) do
6380 with gTriggers
[a
] do
6382 if TriggerType
= TRIGGER_NONE
then
6385 if TexturePanel
= _id
then
6386 TexturePanel
:= High(gPanels
)
6388 if TexturePanel
> _id
then
6392 TRIGGER_OPENDOOR
, TRIGGER_CLOSEDOOR
, TRIGGER_DOOR
,
6393 TRIGGER_DOOR5
, TRIGGER_CLOSETRAP
, TRIGGER_TRAP
,
6394 TRIGGER_LIFTUP
, TRIGGER_LIFTDOWN
, TRIGGER_LIFT
:
6395 if Data
.PanelID
= _id
then
6396 Data
.PanelID
:= High(gPanels
)
6398 if Data
.PanelID
> _id
then
6402 if Data
.ShotPanelID
= _id
then
6403 Data
.ShotPanelID
:= High(gPanels
)
6405 if Data
.ShotPanelID
> _id
then
6406 Dec(Data
.ShotPanelID
);
6410 tmp
:= gPanels
[_id
];
6412 for a
:= _id
to High(gPanels
)-1 do
6413 gPanels
[a
] := gPanels
[a
+1];
6415 gPanels
[High(gPanels
)] := tmp
;
6417 ID
:= High(gPanels
);
6421 procedure TMainForm
.aMoveToBack(Sender
: TObject
);
6425 if SelectedObjects
= nil then
6428 for a
:= 0 to High(SelectedObjects
) do
6429 with SelectedObjects
[a
] do
6430 if Live
and (ObjectType
= OBJECT_PANEL
) then
6432 SelectedObjects
[0] := SelectedObjects
[a
];
6433 SetLength(SelectedObjects
, 1);
6440 procedure TMainForm
.aMoveToFore(Sender
: TObject
);
6444 if SelectedObjects
= nil then
6447 for a
:= 0 to High(SelectedObjects
) do
6448 with SelectedObjects
[a
] do
6449 if Live
and (ObjectType
= OBJECT_PANEL
) then
6451 SelectedObjects
[0] := SelectedObjects
[a
];
6452 SetLength(SelectedObjects
, 1);
6459 procedure TMainForm
.aSaveMapAsExecute(Sender
: TObject
);
6463 SaveDialog
.Filter
:= _lc
[I_FILE_FILTER_WAD
];
6465 if not SaveDialog
.Execute() then
6468 SaveMapForm
.GetMaps(SaveDialog
.FileName
, True);
6470 if SaveMapForm
.ShowModal() <> mrOK
then
6473 SaveDialog
.InitialDir
:= ExtractFileDir(SaveDialog
.FileName
);
6474 OpenedMap
:= SaveDialog
.FileName
+':\'+SaveMapForm
.eMapName
.Text;
6475 OpenedWAD
:= SaveDialog
.FileName
;
6477 idx
:= RecentFiles
.IndexOf(OpenedMap
);
6478 // Такая карта уже недавно открывалась:
6480 RecentFiles
.Delete(idx
);
6481 RecentFiles
.Insert(0, OpenedMap
);
6486 gMapInfo
.FileName
:= SaveDialog
.FileName
;
6487 gMapInfo
.MapName
:= SaveMapForm
.eMapName
.Text;
6488 UpdateCaption(gMapInfo
.Name
, ExtractFileName(gMapInfo
.FileName
), gMapInfo
.MapName
);
6491 procedure TMainForm
.aSelectAllExecute(Sender
: TObject
);
6495 RemoveSelectFromObjects();
6497 case pcObjects
.ActivePageIndex
+1 of
6499 if gPanels
<> nil then
6500 for a
:= 0 to High(gPanels
) do
6501 if gPanels
[a
].PanelType
<> PANEL_NONE
then
6502 SelectObject(OBJECT_PANEL
, a
, True);
6504 if gItems
<> nil then
6505 for a
:= 0 to High(gItems
) do
6506 if gItems
[a
].ItemType
<> ITEM_NONE
then
6507 SelectObject(OBJECT_ITEM
, a
, True);
6509 if gMonsters
<> nil then
6510 for a
:= 0 to High(gMonsters
) do
6511 if gMonsters
[a
].MonsterType
<> MONSTER_NONE
then
6512 SelectObject(OBJECT_MONSTER
, a
, True);
6514 if gAreas
<> nil then
6515 for a
:= 0 to High(gAreas
) do
6516 if gAreas
[a
].AreaType
<> AREA_NONE
then
6517 SelectObject(OBJECT_AREA
, a
, True);
6519 if gTriggers
<> nil then
6520 for a
:= 0 to High(gTriggers
) do
6521 if gTriggers
[a
].TriggerType
<> TRIGGER_NONE
then
6522 SelectObject(OBJECT_TRIGGER
, a
, True);
6525 RecountSelectedObjects();
6528 procedure TMainForm
.tbGridOnClick(Sender
: TObject
);
6530 DotEnable
:= not DotEnable
;
6531 (Sender
as TToolButton
).Down
:= DotEnable
;
6534 procedure TMainForm
.OnIdle(Sender
: TObject
; var Done
: Boolean);
6537 // FIXME: this is a shitty hack
6538 if not gDataLoaded
then
6540 e_WriteLog('Init OpenGL', MSG_NOTIFY
);
6542 e_WriteLog('Loading data', MSG_NOTIFY
);
6543 LoadStdFont('STDTXT', 'STDFONT', gEditorFont
);
6544 e_WriteLog('Loading more data', MSG_NOTIFY
);
6546 e_WriteLog('Loading even more data', MSG_NOTIFY
);
6547 gDataLoaded
:= True;
6548 MainForm
.FormResize(nil);
6551 if StartMap
<> '' then
6559 procedure TMainForm
.miMapPreviewClick(Sender
: TObject
);
6561 if PreviewMode
= 2 then
6564 if PreviewMode
= 0 then
6566 Splitter2
.Visible
:= False;
6567 Splitter1
.Visible
:= False;
6568 StatusBar
.Visible
:= False;
6569 PanelObjs
.Visible
:= False;
6570 PanelProps
.Visible
:= False;
6571 MainToolBar
.Visible
:= False;
6572 sbHorizontal
.Visible
:= False;
6573 sbVertical
.Visible
:= False;
6577 StatusBar
.Visible
:= True;
6578 PanelObjs
.Visible
:= True;
6579 PanelProps
.Visible
:= True;
6580 Splitter2
.Visible
:= True;
6581 Splitter1
.Visible
:= True;
6582 MainToolBar
.Visible
:= True;
6583 sbHorizontal
.Visible
:= True;
6584 sbVertical
.Visible
:= True;
6587 PreviewMode
:= PreviewMode
xor 1;
6588 (Sender
as TMenuItem
).Checked
:= PreviewMode
> 0;
6593 procedure TMainForm
.miLayer1Click(Sender
: TObject
);
6595 SwitchLayer(LAYER_BACK
);
6598 procedure TMainForm
.miLayer2Click(Sender
: TObject
);
6600 SwitchLayer(LAYER_WALLS
);
6603 procedure TMainForm
.miLayer3Click(Sender
: TObject
);
6605 SwitchLayer(LAYER_FOREGROUND
);
6608 procedure TMainForm
.miLayer4Click(Sender
: TObject
);
6610 SwitchLayer(LAYER_STEPS
);
6613 procedure TMainForm
.miLayer5Click(Sender
: TObject
);
6615 SwitchLayer(LAYER_WATER
);
6618 procedure TMainForm
.miLayer6Click(Sender
: TObject
);
6620 SwitchLayer(LAYER_ITEMS
);
6623 procedure TMainForm
.miLayer7Click(Sender
: TObject
);
6625 SwitchLayer(LAYER_MONSTERS
);
6628 procedure TMainForm
.miLayer8Click(Sender
: TObject
);
6630 SwitchLayer(LAYER_AREAS
);
6633 procedure TMainForm
.miLayer9Click(Sender
: TObject
);
6635 SwitchLayer(LAYER_TRIGGERS
);
6638 procedure TMainForm
.tbShowClick(Sender
: TObject
);
6644 for a
:= 0 to High(LayerEnabled
) do
6645 b
:= b
and LayerEnabled
[a
];
6649 ShowLayer(LAYER_BACK
, b
);
6650 ShowLayer(LAYER_WALLS
, b
);
6651 ShowLayer(LAYER_FOREGROUND
, b
);
6652 ShowLayer(LAYER_STEPS
, b
);
6653 ShowLayer(LAYER_WATER
, b
);
6654 ShowLayer(LAYER_ITEMS
, b
);
6655 ShowLayer(LAYER_MONSTERS
, b
);
6656 ShowLayer(LAYER_AREAS
, b
);
6657 ShowLayer(LAYER_TRIGGERS
, b
);
6660 procedure TMainForm
.miMiniMapClick(Sender
: TObject
);
6665 procedure TMainForm
.miSwitchGridClick(Sender
: TObject
);
6667 if DotStep
= DotStepOne
then
6668 DotStep
:= DotStepTwo
6670 DotStep
:= DotStepOne
;
6672 MousePos
.X
:= (MousePos
.X
div DotStep
) * DotStep
;
6673 MousePos
.Y
:= (MousePos
.Y
div DotStep
) * DotStep
;
6676 procedure TMainForm
.miShowEdgesClick(Sender
: TObject
);
6681 procedure TMainForm
.miSnapToGridClick(Sender
: TObject
);
6683 SnapToGrid
:= not SnapToGrid
;
6685 MousePos
.X
:= (MousePos
.X
div DotStep
) * DotStep
;
6686 MousePos
.Y
:= (MousePos
.Y
div DotStep
) * DotStep
;
6688 miSnapToGrid
.Checked
:= SnapToGrid
;
6691 procedure TMainForm
.minexttabClick(Sender
: TObject
);
6693 if pcObjects
.ActivePageIndex
< pcObjects
.PageCount
-1 then
6694 pcObjects
.ActivePageIndex
:= pcObjects
.ActivePageIndex
+1
6696 pcObjects
.ActivePageIndex
:= 0;
6699 procedure TMainForm
.miSaveMiniMapClick(Sender
: TObject
);
6701 SaveMiniMapForm
.ShowModal();
6704 procedure TMainForm
.bClearTextureClick(Sender
: TObject
);
6706 lbTextureList
.ItemIndex
:= -1;
6707 lTextureWidth
.Caption
:= '';
6708 lTextureHeight
.Caption
:= '';
6711 procedure TMainForm
.miPackMapClick(Sender
: TObject
);
6713 PackMapForm
.ShowModal();
6716 procedure TMainForm
.miMapTestSettingsClick(Sender
: TObject
);
6718 MapTestForm
.ShowModal();
6721 type SSArray
= array of String;
6723 function ParseString (Str
: AnsiString): SSArray
;
6724 function GetStr (var Str
: AnsiString): AnsiString;
6728 if Str
[1] = '"' then
6729 for b
:= 1 to Length(Str
) do
6730 if (b
= Length(Str
)) or (Str
[b
+ 1] = '"') then
6732 Result
:= Copy(Str
, 2, b
- 1);
6733 Delete(Str
, 1, b
+ 1);
6737 for a
:= 1 to Length(Str
) do
6738 if (a
= Length(Str
)) or (Str
[a
+ 1] = ' ') then
6740 Result
:= Copy(Str
, 1, a
);
6741 Delete(Str
, 1, a
+ 1);
6751 SetLength(Result
, Length(Result
)+1);
6752 Result
[High(Result
)] := GetStr(Str
);
6756 procedure TMainForm
.miTestMapClick(Sender
: TObject
);
6758 newWAD
, oldWAD
, tempMap
, ext
: String;
6765 // Ignore while map testing in progress
6766 if MapTestProcess
<> nil then
6769 // Сохраняем временную карту:
6772 newWAD
:= ExtractFilePath(TestD2dExe
) + Format('maps/temp%.4d', [time
]);
6774 until not FileExists(newWAD
);
6775 if OpenedMap
<> '' then
6777 oldWad
:= g_ExtractWadName(OpenedMap
);
6778 newWad
:= newWad
+ ExtractFileExt(oldWad
);
6779 if CopyFile(oldWad
, newWad
) = false then
6780 e_WriteLog('MapTest: unable to copy [' + oldWad
+ '] to [' + newWad
+ ']', MSG_WARNING
)
6784 newWad
:= newWad
+ '.wad'
6786 tempMap
:= newWAD
+ ':\' + TEST_MAP_NAME
;
6788 tempMap
:= ExtractRelativePath(ExtractFilePath(TestD2dExe
) + 'maps/', tempMap
);
6792 if TestOptionsTwoPlayers
then
6794 if TestOptionsTeamDamage
then
6796 if TestOptionsAllowExit
then
6798 if TestOptionsWeaponStay
then
6800 if TestOptionsMonstersDM
then
6804 proc
:= TProcessUTF8
.Create(nil);
6805 proc
.Executable
:= TestD2dExe
;
6806 proc
.Parameters
.Add('-map');
6807 proc
.Parameters
.Add(tempMap
);
6808 proc
.Parameters
.Add('-gm');
6809 proc
.Parameters
.Add(TestGameMode
);
6810 proc
.Parameters
.Add('-limt');
6811 proc
.Parameters
.Add(TestLimTime
);
6812 proc
.Parameters
.Add('-lims');
6813 proc
.Parameters
.Add(TestLimScore
);
6814 proc
.Parameters
.Add('-opt');
6815 proc
.Parameters
.Add(IntToStr(opt
));
6816 proc
.Parameters
.Add('--debug');
6818 proc
.Parameters
.Add('--close');
6820 args
:= ParseString(TestD2DArgs
);
6821 for i
:= 0 to High(args
) do
6822 proc
.Parameters
.Add(args
[i
]);
6832 tbTestMap
.Enabled
:= False;
6833 MapTestFile
:= newWAD
;
6834 MapTestProcess
:= proc
;
6838 Application
.MessageBox(PChar(_lc
[I_MSG_EXEC_ERROR
]), 'FIXME', MB_OK
or MB_ICONERROR
);
6839 SysUtils
.DeleteFile(newWAD
);
6844 procedure TMainForm
.sbVerticalScroll(Sender
: TObject
;
6845 ScrollCode
: TScrollCode
; var ScrollPos
: Integer);
6847 MapOffset
.Y
:= -sbVertical
.Position
;
6850 procedure TMainForm
.sbHorizontalScroll(Sender
: TObject
;
6851 ScrollCode
: TScrollCode
; var ScrollPos
: Integer);
6853 MapOffset
.X
:= -sbHorizontal
.Position
;
6856 procedure TMainForm
.miOpenWadMapClick(Sender
: TObject
);
6858 if OpenedWAD
<> '' then
6860 OpenMap(OpenedWAD
, '');
6864 procedure TMainForm
.selectall1Click(Sender
: TObject
);
6868 RemoveSelectFromObjects();
6870 if gPanels
<> nil then
6871 for a
:= 0 to High(gPanels
) do
6872 if gPanels
[a
].PanelType
<> PANEL_NONE
then
6873 SelectObject(OBJECT_PANEL
, a
, True);
6875 if gItems
<> nil then
6876 for a
:= 0 to High(gItems
) do
6877 if gItems
[a
].ItemType
<> ITEM_NONE
then
6878 SelectObject(OBJECT_ITEM
, a
, True);
6880 if gMonsters
<> nil then
6881 for a
:= 0 to High(gMonsters
) do
6882 if gMonsters
[a
].MonsterType
<> MONSTER_NONE
then
6883 SelectObject(OBJECT_MONSTER
, a
, True);
6885 if gAreas
<> nil then
6886 for a
:= 0 to High(gAreas
) do
6887 if gAreas
[a
].AreaType
<> AREA_NONE
then
6888 SelectObject(OBJECT_AREA
, a
, True);
6890 if gTriggers
<> nil then
6891 for a
:= 0 to High(gTriggers
) do
6892 if gTriggers
[a
].TriggerType
<> TRIGGER_NONE
then
6893 SelectObject(OBJECT_TRIGGER
, a
, True);
6895 RecountSelectedObjects();
6898 procedure TMainForm
.Splitter1CanResize(Sender
: TObject
;
6899 var NewSize
: Integer; var Accept
: Boolean);
6901 Accept
:= (NewSize
> 140);
6904 procedure TMainForm
.Splitter2CanResize(Sender
: TObject
;
6905 var NewSize
: Integer; var Accept
: Boolean);
6907 Accept
:= (NewSize
> 110);
6910 procedure TMainForm
.vleObjectPropertyEnter(Sender
: TObject
);
6912 EditingProperties
:= True;
6915 procedure TMainForm
.vleObjectPropertyExit(Sender
: TObject
);
6917 EditingProperties
:= False;
6920 procedure TMainForm
.FormKeyUp(Sender
: TObject
; var Key
: Word; Shift
: TShiftState
);
6922 // Объекты передвигались:
6923 if MainForm
.ActiveControl
= RenderPanel
then
6925 if (Key
= VK_NUMPAD4
) or
6926 (Key
= VK_NUMPAD6
) or
6927 (Key
= VK_NUMPAD8
) or
6928 (Key
= VK_NUMPAD5
) or
6929 (Key
= Ord('V')) then
6932 // Быстрое превью карты:
6933 if Key
= Ord('E') then
6935 if PreviewMode
= 2 then
6938 RenderPanelMouseMove(Sender
, Shift
, RenderMousePos().X
, RenderMousePos().Y
);