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 // Редактор свойств объектов:
128 vleObjectProperty
: TValueListEditor
;
130 // Панель объектов - вкладки:
132 pcObjects
: TPageControl
;
135 lbTextureList
: TListBox
;
136 // Панель настройки текстур:
137 PanelTextures
: TPanel
;
139 lTextureWidth
: TLabel
;
141 lTextureHeight
: TLabel
;
142 cbPreview
: TCheckBox
;
143 bbAddTexture
: TBitBtn
;
144 bbRemoveTexture
: TBitBtn
;
145 bClearTexture
: TButton
;
146 // Панель типов панелей:
147 PanelPanelType
: TPanel
;
148 lbPanelType
: TListBox
;
149 // Вкладка "Предметы":
151 lbItemList
: TListBox
;
154 // Вкладка "Монстры":
155 tsMonsters
: TTabSheet
;
156 lbMonsterList
: TListBox
;
157 rbMonsterLeft
: TRadioButton
;
158 rbMonsterRight
: TRadioButton
;
159 // Вкладка "Области":
161 lbAreasList
: TListBox
;
162 rbAreaLeft
: TRadioButton
;
163 rbAreaRight
: TRadioButton
;
164 // Вкладка "Триггеры":
165 tsTriggers
: TTabSheet
;
166 lbTriggersList
: TListBox
;
167 clbActivationType
: TCheckListBox
;
168 clbKeys
: TCheckListBox
;
171 Splitter1
: TSplitter
;
172 Splitter2
: TSplitter
;
173 StatusBar
: TStatusBar
;
175 // Специальные объекты:
176 ImageList
: TImageList
;
177 ilToolbar
: TImageList
;
178 OpenDialog
: TOpenDialog
;
179 SaveDialog
: TSaveDialog
;
180 selectall1
: TMenuItem
;
181 ColorDialog
: TColorDialog
;
183 procedure aAboutExecute(Sender
: TObject
);
184 procedure aCheckMapExecute(Sender
: TObject
);
185 procedure aMoveToFore(Sender
: TObject
);
186 procedure aMoveToBack(Sender
: TObject
);
187 procedure aCopyObjectExecute(Sender
: TObject
);
188 procedure aCutObjectExecute(Sender
: TObject
);
189 procedure aEditorOptionsExecute(Sender
: TObject
);
190 procedure aExitExecute(Sender
: TObject
);
191 procedure aMapOptionsExecute(Sender
: TObject
);
192 procedure aNewMapExecute(Sender
: TObject
);
193 procedure aOpenMapExecute(Sender
: TObject
);
194 procedure aOptimizeExecute(Sender
: TObject
);
195 procedure aPasteObjectExecute(Sender
: TObject
);
196 procedure aSelectAllExecute(Sender
: TObject
);
197 procedure aSaveMapExecute(Sender
: TObject
);
198 procedure aSaveMapAsExecute(Sender
: TObject
);
199 procedure aUndoExecute(Sender
: TObject
);
200 procedure aDeleteMap(Sender
: TObject
);
201 procedure bApplyPropertyClick(Sender
: TObject
);
202 procedure bbAddTextureClick(Sender
: TObject
);
203 procedure bbRemoveTextureClick(Sender
: TObject
);
204 procedure FormActivate(Sender
: TObject
);
205 procedure FormCloseQuery(Sender
: TObject
; var CanClose
: Boolean);
206 procedure FormCreate(Sender
: TObject
);
207 procedure FormDestroy(Sender
: TObject
);
208 procedure FormDropFiles(Sender
: TObject
; const FileNames
: array of String);
209 procedure FormKeyDown(Sender
: TObject
; var Key
: Word; Shift
: TShiftState
);
210 procedure FormResize(Sender
: TObject
);
211 procedure lbTextureListClick(Sender
: TObject
);
212 procedure lbTextureListDrawItem(Control
: TWinControl
; Index
: Integer;
213 ARect
: TRect
; State
: TOwnerDrawState
);
214 procedure miReopenMapClick(Sender
: TObject
);
215 procedure RenderPanelMouseDown(Sender
: TObject
; Button
: TMouseButton
; Shift
: TShiftState
; X
, Y
: Integer);
216 procedure RenderPanelMouseMove(Sender
: TObject
; Shift
: TShiftState
; X
, Y
: Integer);
217 procedure RenderPanelMouseUp(Sender
: TObject
; Button
: TMouseButton
; Shift
: TShiftState
; X
, Y
: Integer);
218 procedure RenderPanelPaint(Sender
: TObject
);
219 procedure RenderPanelResize(Sender
: TObject
);
220 procedure Splitter1Moved(Sender
: TObject
);
221 procedure vleObjectPropertyEditButtonClick(Sender
: TObject
);
222 procedure vleObjectPropertyApply(Sender
: TObject
);
223 procedure vleObjectPropertyGetPickList(Sender
: TObject
; const KeyName
: String; Values
: TStrings
);
224 procedure vleObjectPropertyKeyDown(Sender
: TObject
; var Key
: Word;
226 procedure tbGridOnClick(Sender
: TObject
);
227 procedure miMapPreviewClick(Sender
: TObject
);
228 procedure miLayer1Click(Sender
: TObject
);
229 procedure miLayer2Click(Sender
: TObject
);
230 procedure miLayer3Click(Sender
: TObject
);
231 procedure miLayer4Click(Sender
: TObject
);
232 procedure miLayer5Click(Sender
: TObject
);
233 procedure miLayer6Click(Sender
: TObject
);
234 procedure miLayer7Click(Sender
: TObject
);
235 procedure miLayer8Click(Sender
: TObject
);
236 procedure miLayer9Click(Sender
: TObject
);
237 procedure tbShowClick(Sender
: TObject
);
238 procedure miSnapToGridClick(Sender
: TObject
);
239 procedure miMiniMapClick(Sender
: TObject
);
240 procedure miSwitchGridClick(Sender
: TObject
);
241 procedure miShowEdgesClick(Sender
: TObject
);
242 procedure minexttabClick(Sender
: TObject
);
243 procedure miSaveMiniMapClick(Sender
: TObject
);
244 procedure bClearTextureClick(Sender
: TObject
);
245 procedure miPackMapClick(Sender
: TObject
);
246 procedure aRecentFileExecute(Sender
: TObject
);
247 procedure miMapTestSettingsClick(Sender
: TObject
);
248 procedure miTestMapClick(Sender
: TObject
);
249 procedure sbVerticalScroll(Sender
: TObject
; ScrollCode
: TScrollCode
;
250 var ScrollPos
: Integer);
251 procedure sbHorizontalScroll(Sender
: TObject
; ScrollCode
: TScrollCode
;
252 var ScrollPos
: Integer);
253 procedure miOpenWadMapClick(Sender
: TObject
);
254 procedure selectall1Click(Sender
: TObject
);
255 procedure Splitter1CanResize(Sender
: TObject
; var NewSize
: Integer;
256 var Accept
: Boolean);
257 procedure Splitter2CanResize(Sender
: TObject
; var NewSize
: Integer;
258 var Accept
: Boolean);
259 procedure vleObjectPropertyEnter(Sender
: TObject
);
260 procedure vleObjectPropertyExit(Sender
: TObject
);
261 procedure FormKeyUp(Sender
: TObject
; var Key
: Word;
265 procedure OnIdle(Sender
: TObject
; var Done
: Boolean);
267 procedure RefreshRecentMenu();
268 procedure OpenMapFile(FileName
: String);
269 function RenderMousePos(): TPoint
;
275 LAYER_FOREGROUND
= 2;
283 TEST_MAP_NAME
= '$$$_TEST_$$$';
284 LANGUAGE_FILE_NAME
= '_Editor.txt';
295 DotStepOne
, DotStepTwo
: Byte;
297 DrawTexturePanel
: Boolean;
298 DrawPanelSize
: Boolean;
300 PreviewColor
: TColor
;
301 UseCheckerboard
: Boolean;
303 RecentCount
: Integer;
304 RecentFiles
: TStringList
;
305 slInvalidTextures
: TStringList
;
307 TestGameMode
: String;
309 TestLimScore
: String;
310 TestOptionsTwoPlayers
: Boolean;
311 TestOptionsTeamDamage
: Boolean;
312 TestOptionsAllowExit
: Boolean;
313 TestOptionsWeaponStay
: Boolean;
314 TestOptionsMonstersDM
: Boolean;
316 TestMapOnce
: Boolean;
318 LayerEnabled
: Array [LAYER_BACK
..LAYER_TRIGGERS
] of Boolean =
319 (True, True, True, True, True, True, True, True, True);
320 PreviewMode
: Byte = 0;
326 procedure OpenMap(FileName
: String; mapN
: String);
327 function AddTexture(aWAD
, aSection
, aTex
: String; silent
: Boolean): Boolean;
328 procedure RemoveSelectFromObjects();
329 procedure ChangeShownProperty(Name
: String; NewValue
: String);
334 f_options
, e_graphics
, e_log
, GL
, Math
,
335 f_mapoptions
, g_basic
, f_about
, f_mapoptimization
,
336 f_mapcheck
, f_addresource_texture
, g_textures
,
337 f_activationtype
, f_keys
,
338 MAPREADER
, f_selectmap
, f_savemap
, WADEDITOR
, WADSTRUCT
, MAPDEF
,
339 g_map
, f_saveminimap
, f_addresource
, CONFIG
, f_packmap
,
340 f_addresource_sound
, f_maptest
, f_choosetype
,
341 g_language
, f_selectlang
, ClipBrd
;
344 UNDO_DELETE_PANEL
= 1;
345 UNDO_DELETE_ITEM
= 2;
346 UNDO_DELETE_AREA
= 3;
347 UNDO_DELETE_MONSTER
= 4;
348 UNDO_DELETE_TRIGGER
= 5;
352 UNDO_ADD_MONSTER
= 9;
353 UNDO_ADD_TRIGGER
= 10;
354 UNDO_MOVE_PANEL
= 11;
357 UNDO_MOVE_MONSTER
= 14;
358 UNDO_MOVE_TRIGGER
= 15;
359 UNDO_RESIZE_PANEL
= 16;
360 UNDO_RESIZE_TRIGGER
= 17;
362 MOUSEACTION_NONE
= 0;
363 MOUSEACTION_DRAWPANEL
= 1;
364 MOUSEACTION_DRAWTRIGGER
= 2;
365 MOUSEACTION_MOVEOBJ
= 3;
366 MOUSEACTION_RESIZE
= 4;
367 MOUSEACTION_MOVEMAP
= 5;
368 MOUSEACTION_DRAWPRESS
= 6;
369 MOUSEACTION_NOACTION
= 7;
372 RESIZETYPE_VERTICAL
= 1;
373 RESIZETYPE_HORIZONTAL
= 2;
382 SELECTFLAG_TELEPORT
= 1;
384 SELECTFLAG_TEXTURE
= 3;
386 SELECTFLAG_MONSTER
= 5;
387 SELECTFLAG_SPAWNPOINT
= 6;
388 SELECTFLAG_SHOTPANEL
= 7;
389 SELECTFLAG_SELECTED
= 8;
391 RECENT_FILES_MENU_START
= 12;
393 CLIPBOARD_SIG
= 'DF:ED';
399 UNDO_DELETE_PANEL
: (Panel
: ^TPanel
);
400 UNDO_DELETE_ITEM
: (Item
: TItem
);
401 UNDO_DELETE_AREA
: (Area
: TArea
);
402 UNDO_DELETE_MONSTER
: (Monster
: TMonster
);
403 UNDO_DELETE_TRIGGER
: (Trigger
: TTrigger
);
408 UNDO_ADD_TRIGGER
: (AddID
: DWORD
);
413 UNDO_MOVE_TRIGGER
: (MoveID
: DWORD
; dX
, dY
: Integer);
415 UNDO_RESIZE_TRIGGER
: (ResizeID
: DWORD
; dW
, dH
: Integer);
422 OBJECT_PANEL
: (Panel
: ^TPanel
);
423 OBJECT_ITEM
: (Item
: TItem
);
424 OBJECT_AREA
: (Area
: TArea
);
425 OBJECT_MONSTER
: (Monster
: TMonster
);
426 OBJECT_TRIGGER
: (Trigger
: TTrigger
);
429 TCopyRecArray
= Array of TCopyRec
;
433 gDataLoaded
: Boolean = False;
434 ShowMap
: Boolean = False;
435 DrawRect
: PRect
= nil;
436 SnapToGrid
: Boolean = True;
438 MousePos
: Types
.TPoint
;
439 LastMovePoint
: Types
.TPoint
;
442 MouseLDownPos
: Types
.TPoint
;
443 MouseRDownPos
: Types
.TPoint
;
446 SelectFlag
: Byte = SELECTFLAG_NONE
;
447 MouseAction
: Byte = MOUSEACTION_NONE
;
448 ResizeType
: Byte = RESIZETYPE_NONE
;
449 ResizeDirection
: Byte = RESIZEDIR_NONE
;
451 DrawPressRect
: Boolean = False;
452 EditingProperties
: Boolean = False;
454 UndoBuffer
: Array of Array of TUndoRec
= nil;
459 //----------------------------------------
460 //Далее идут вспомогательные процедуры
461 //----------------------------------------
463 function NameToBool(Name
: String): Boolean;
465 if Name
= BoolNames
[True] then
471 function NameToDir(Name
: String): TDirection
;
473 if Name
= DirNames
[D_LEFT
] then
479 function NameToDirAdv(Name
: String): Byte;
481 if Name
= DirNamesAdv
[1] then
484 if Name
= DirNamesAdv
[2] then
487 if Name
= DirNamesAdv
[3] then
493 function ActivateToStr(ActivateType
: Byte): String;
497 if ByteBool(ACTIVATE_PLAYERCOLLIDE
and ActivateType
) then
498 Result
:= Result
+ '+PC';
499 if ByteBool(ACTIVATE_MONSTERCOLLIDE
and ActivateType
) then
500 Result
:= Result
+ '+MC';
501 if ByteBool(ACTIVATE_PLAYERPRESS
and ActivateType
) then
502 Result
:= Result
+ '+PP';
503 if ByteBool(ACTIVATE_MONSTERPRESS
and ActivateType
) then
504 Result
:= Result
+ '+MP';
505 if ByteBool(ACTIVATE_SHOT
and ActivateType
) then
506 Result
:= Result
+ '+SH';
507 if ByteBool(ACTIVATE_NOMONSTER
and ActivateType
) then
508 Result
:= Result
+ '+NM';
510 if (Result
<> '') and (Result
[1] = '+') then
511 Delete(Result
, 1, 1);
514 function StrToActivate(Str
: String): Byte;
518 if Pos('PC', Str
) > 0 then
519 Result
:= ACTIVATE_PLAYERCOLLIDE
;
520 if Pos('MC', Str
) > 0 then
521 Result
:= Result
or ACTIVATE_MONSTERCOLLIDE
;
522 if Pos('PP', Str
) > 0 then
523 Result
:= Result
or ACTIVATE_PLAYERPRESS
;
524 if Pos('MP', Str
) > 0 then
525 Result
:= Result
or ACTIVATE_MONSTERPRESS
;
526 if Pos('SH', Str
) > 0 then
527 Result
:= Result
or ACTIVATE_SHOT
;
528 if Pos('NM', Str
) > 0 then
529 Result
:= Result
or ACTIVATE_NOMONSTER
;
532 function KeyToStr(Key
: Byte): String;
536 if ByteBool(KEY_RED
and Key
) then
537 Result
:= Result
+ '+RK';
538 if ByteBool(KEY_GREEN
and Key
) then
539 Result
:= Result
+ '+GK';
540 if ByteBool(KEY_BLUE
and Key
) then
541 Result
:= Result
+ '+BK';
542 if ByteBool(KEY_REDTEAM
and Key
) then
543 Result
:= Result
+ '+RT';
544 if ByteBool(KEY_BLUETEAM
and Key
) then
545 Result
:= Result
+ '+BT';
547 if (Result
<> '') and (Result
[1] = '+') then
548 Delete(Result
, 1, 1);
551 function StrToKey(Str
: String): Byte;
555 if Pos('RK', Str
) > 0 then
557 if Pos('GK', Str
) > 0 then
558 Result
:= Result
or KEY_GREEN
;
559 if Pos('BK', Str
) > 0 then
560 Result
:= Result
or KEY_BLUE
;
561 if Pos('RT', Str
) > 0 then
562 Result
:= Result
or KEY_REDTEAM
;
563 if Pos('BT', Str
) > 0 then
564 Result
:= Result
or KEY_BLUETEAM
;
567 function EffectToStr(Effect
: Byte): String;
569 if Effect
in [EFFECT_TELEPORT
..EFFECT_FIRE
] then
570 Result
:= EffectNames
[Effect
]
572 Result
:= EffectNames
[EFFECT_NONE
];
575 function StrToEffect(Str
: String): Byte;
579 Result
:= EFFECT_NONE
;
580 for i
:= EFFECT_TELEPORT
to EFFECT_FIRE
do
581 if EffectNames
[i
] = Str
then
588 function MonsterToStr(MonType
: Byte): String;
590 if MonType
in [MONSTER_DEMON
..MONSTER_MAN
] then
591 Result
:= MonsterNames
[MonType
]
593 Result
:= MonsterNames
[MONSTER_ZOMBY
];
596 function StrToMonster(Str
: String): Byte;
600 Result
:= MONSTER_ZOMBY
;
601 for i
:= MONSTER_DEMON
to MONSTER_MAN
do
602 if MonsterNames
[i
] = Str
then
609 function ItemToStr(ItemType
: Byte): String;
611 if ItemType
in [ITEM_MEDKIT_SMALL
..ITEM_MAX
] then
612 Result
:= ItemNames
[ItemType
]
614 Result
:= ItemNames
[ITEM_AMMO_BULLETS
];
617 function StrToItem(Str
: String): Byte;
621 Result
:= ITEM_AMMO_BULLETS
;
622 for i
:= ITEM_MEDKIT_SMALL
to ITEM_MAX
do
623 if ItemNames
[i
] = Str
then
630 function ShotToStr(ShotType
: Byte): String;
632 if ShotType
in [TRIGGER_SHOT_PISTOL
..TRIGGER_SHOT_MAX
] then
633 Result
:= ShotNames
[ShotType
]
635 Result
:= ShotNames
[TRIGGER_SHOT_PISTOL
];
638 function StrToShot(Str
: String): Byte;
642 Result
:= TRIGGER_SHOT_PISTOL
;
643 for i
:= TRIGGER_SHOT_PISTOL
to TRIGGER_SHOT_MAX
do
644 if ShotNames
[i
] = Str
then
651 function SelectedObjectCount(): Word;
657 if SelectedObjects
= nil then
660 for a
:= 0 to High(SelectedObjects
) do
661 if SelectedObjects
[a
].Live
then
662 Result
:= Result
+ 1;
665 function GetFirstSelected(): Integer;
671 if SelectedObjects
= nil then
674 for a
:= 0 to High(SelectedObjects
) do
675 if SelectedObjects
[a
].Live
then
682 function Normalize16(x
: Integer): Integer;
684 Result
:= (x
div 16) * 16;
687 procedure MoveMap(X
, Y
: Integer);
689 rx
, ry
, ScaleSz
: Integer;
691 with MainForm
.RenderPanel
do
693 ScaleSz
:= 16 div Scale
;
694 // Размер видимой части карты:
695 rx
:= min(Normalize16(Width
), Normalize16(gMapInfo
.Width
)) div 2;
696 ry
:= min(Normalize16(Height
), Normalize16(gMapInfo
.Height
)) div 2;
697 // Место клика на мини-карте:
698 MapOffset
.X
:= X
- (Width
-max(gMapInfo
.Width
div ScaleSz
, 1)-1);
699 MapOffset
.Y
:= Y
- 1;
700 // Это же место на "большой" карте:
701 MapOffset
.X
:= MapOffset
.X
* ScaleSz
;
702 MapOffset
.Y
:= MapOffset
.Y
* ScaleSz
;
703 // Левый верхний угол новой видимой части карты:
704 MapOffset
.X
:= MapOffset
.X
- rx
;
705 MapOffset
.Y
:= MapOffset
.Y
- ry
;
707 if MapOffset
.X
< 0 then
709 if MapOffset
.Y
< 0 then
711 if MapOffset
.X
> MainForm
.sbHorizontal
.Max
then
712 MapOffset
.X
:= MainForm
.sbHorizontal
.Max
;
713 if MapOffset
.Y
> MainForm
.sbVertical
.Max
then
714 MapOffset
.Y
:= MainForm
.sbVertical
.Max
;
716 MapOffset
.X
:= Normalize16(MapOffset
.X
);
717 MapOffset
.Y
:= Normalize16(MapOffset
.Y
);
720 MainForm
.sbHorizontal
.Position
:= MapOffset
.X
;
721 MainForm
.sbVertical
.Position
:= MapOffset
.Y
;
723 MapOffset
.X
:= -MapOffset
.X
;
724 MapOffset
.Y
:= -MapOffset
.Y
;
729 function IsTexturedPanel(PanelType
: Word): Boolean;
731 Result
:= WordBool(PanelType
and (PANEL_WALL
or PANEL_BACK
or PANEL_FORE
or
732 PANEL_STEP
or PANEL_OPENDOOR
or PANEL_CLOSEDOOR
or
733 PANEL_WATER
or PANEL_ACID1
or PANEL_ACID2
));
736 procedure FillProperty();
741 MainForm
.vleObjectProperty
.Strings
.Clear();
743 // Отображаем свойства если выделен только один объект:
744 if SelectedObjectCount() <> 1 then
747 _id
:= GetFirstSelected();
748 if not SelectedObjects
[_id
].Live
then
751 with MainForm
.vleObjectProperty
do
752 with ItemProps
[InsertRow(_lc
[I_PROP_ID
], IntToStr(SelectedObjects
[_id
].ID
), True)] do
754 EditStyle
:= esSimple
;
758 case SelectedObjects
[0].ObjectType
of
761 with MainForm
.vleObjectProperty
,
762 gPanels
[SelectedObjects
[_id
].ID
] do
764 with ItemProps
[InsertRow(_lc
[I_PROP_X
], IntToStr(X
), True)] do
766 EditStyle
:= esSimple
;
770 with ItemProps
[InsertRow(_lc
[I_PROP_Y
], IntToStr(Y
), True)] do
772 EditStyle
:= esSimple
;
776 with ItemProps
[InsertRow(_lc
[I_PROP_WIDTH
], IntToStr(Width
), True)] do
778 EditStyle
:= esSimple
;
782 with ItemProps
[InsertRow(_lc
[I_PROP_HEIGHT
], IntToStr(Height
), True)] do
784 EditStyle
:= esSimple
;
788 with ItemProps
[InsertRow(_lc
[I_PROP_PANEL_TYPE
], GetPanelName(PanelType
), True)] do
790 EditStyle
:= esEllipsis
;
794 if IsTexturedPanel(PanelType
) then
795 begin // Может быть текстура
796 with ItemProps
[InsertRow(_lc
[I_PROP_PANEL_TEX
], TextureName
, True)] do
798 EditStyle
:= esEllipsis
;
802 if TextureName
<> '' then
803 begin // Есть текстура
804 with ItemProps
[InsertRow(_lc
[I_PROP_PANEL_ALPHA
], IntToStr(Alpha
), True)] do
806 EditStyle
:= esSimple
;
810 with ItemProps
[InsertRow(_lc
[I_PROP_PANEL_BLEND
], BoolNames
[Blending
], True)] do
812 EditStyle
:= esPickList
;
822 with MainForm
.vleObjectProperty
,
823 gItems
[SelectedObjects
[_id
].ID
] do
825 with ItemProps
[InsertRow(_lc
[I_PROP_X
], IntToStr(X
), True)] do
827 EditStyle
:= esSimple
;
831 with ItemProps
[InsertRow(_lc
[I_PROP_Y
], IntToStr(Y
), True)] do
833 EditStyle
:= esSimple
;
837 with ItemProps
[InsertRow(_lc
[I_PROP_DM_ONLY
], BoolNames
[OnlyDM
], True)] do
839 EditStyle
:= esPickList
;
843 with ItemProps
[InsertRow(_lc
[I_PROP_ITEM_FALLS
], BoolNames
[Fall
], True)] do
845 EditStyle
:= esPickList
;
853 with MainForm
.vleObjectProperty
,
854 gMonsters
[SelectedObjects
[_id
].ID
] do
856 with ItemProps
[InsertRow(_lc
[I_PROP_X
], IntToStr(X
), True)] do
858 EditStyle
:= esSimple
;
862 with ItemProps
[InsertRow(_lc
[I_PROP_Y
], IntToStr(Y
), True)] do
864 EditStyle
:= esSimple
;
868 with ItemProps
[InsertRow(_lc
[I_PROP_DIRECTION
], DirNames
[Direction
], True)] do
870 EditStyle
:= esPickList
;
878 with MainForm
.vleObjectProperty
,
879 gAreas
[SelectedObjects
[_id
].ID
] do
881 with ItemProps
[InsertRow(_lc
[I_PROP_X
], IntToStr(X
), True)] do
883 EditStyle
:= esSimple
;
887 with ItemProps
[InsertRow(_lc
[I_PROP_Y
], IntToStr(Y
), True)] do
889 EditStyle
:= esSimple
;
893 with ItemProps
[InsertRow(_lc
[I_PROP_DIRECTION
], DirNames
[Direction
], True)] do
895 EditStyle
:= esPickList
;
903 with MainForm
.vleObjectProperty
,
904 gTriggers
[SelectedObjects
[_id
].ID
] do
906 with ItemProps
[InsertRow(_lc
[I_PROP_TR_TYPE
], GetTriggerName(TriggerType
), True)] do
908 EditStyle
:= esSimple
;
912 with ItemProps
[InsertRow(_lc
[I_PROP_X
], IntToStr(X
), True)] do
914 EditStyle
:= esSimple
;
918 with ItemProps
[InsertRow(_lc
[I_PROP_Y
], IntToStr(Y
), True)] do
920 EditStyle
:= esSimple
;
924 with ItemProps
[InsertRow(_lc
[I_PROP_WIDTH
], IntToStr(Width
), True)] do
926 EditStyle
:= esSimple
;
930 with ItemProps
[InsertRow(_lc
[I_PROP_HEIGHT
], IntToStr(Height
), True)] do
932 EditStyle
:= esSimple
;
936 with ItemProps
[InsertRow(_lc
[I_PROP_TR_ENABLED
], BoolNames
[Enabled
], True)] do
938 EditStyle
:= esPickList
;
942 with ItemProps
[InsertRow(_lc
[I_PROP_TR_TEXTURE_PANEL
], IntToStr(TexturePanel
), True)] do
944 EditStyle
:= esEllipsis
;
948 with ItemProps
[InsertRow(_lc
[I_PROP_TR_ACTIVATION
], ActivateToStr(ActivateType
), True)] do
950 EditStyle
:= esEllipsis
;
954 with ItemProps
[InsertRow(_lc
[I_PROP_TR_KEYS
], KeyToStr(Key
), True)] do
956 EditStyle
:= esEllipsis
;
963 str
:= win2utf(Data
.MapName
);
964 with ItemProps
[InsertRow(_lc
[I_PROP_TR_NEXT_MAP
], str
, True)] do
966 EditStyle
:= esEllipsis
;
973 with ItemProps
[InsertRow(_lc
[I_PROP_TR_TELEPORT_TO
], Format('(%d:%d)', [Data
.TargetPoint
.X
, Data
.TargetPoint
.Y
]), True)] do
975 EditStyle
:= esEllipsis
;
979 with ItemProps
[InsertRow(_lc
[I_PROP_TR_D2D
], BoolNames
[Data
.d2d_teleport
], True)] do
981 EditStyle
:= esPickList
;
985 with ItemProps
[InsertRow(_lc
[I_PROP_TR_TELEPORT_SILENT
], BoolNames
[Data
.silent_teleport
], True)] do
987 EditStyle
:= esPickList
;
991 with ItemProps
[InsertRow(_lc
[I_PROP_TR_TELEPORT_DIR
], DirNamesAdv
[Data
.TlpDir
], True)] do
993 EditStyle
:= esPickList
;
998 TRIGGER_OPENDOOR
, TRIGGER_CLOSEDOOR
,
999 TRIGGER_DOOR
, TRIGGER_DOOR5
:
1001 with ItemProps
[InsertRow(_lc
[I_PROP_TR_DOOR_PANEL
], IntToStr(Data
.PanelID
), True)] do
1003 EditStyle
:= esEllipsis
;
1007 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SILENT
], BoolNames
[Data
.NoSound
], True)] do
1009 EditStyle
:= esPickList
;
1013 with ItemProps
[InsertRow(_lc
[I_PROP_TR_D2D
], BoolNames
[Data
.d2d_doors
], True)] do
1015 EditStyle
:= esPickList
;
1020 TRIGGER_CLOSETRAP
, TRIGGER_TRAP
:
1022 with ItemProps
[InsertRow(_lc
[I_PROP_TR_TRAP_PANEL
], IntToStr(Data
.PanelID
), True)] do
1024 EditStyle
:= esEllipsis
;
1028 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SILENT
], BoolNames
[Data
.NoSound
], True)] do
1030 EditStyle
:= esPickList
;
1034 with ItemProps
[InsertRow(_lc
[I_PROP_TR_D2D
], BoolNames
[Data
.d2d_doors
], True)] do
1036 EditStyle
:= esPickList
;
1041 TRIGGER_PRESS
, TRIGGER_ON
, TRIGGER_OFF
,
1044 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EX_AREA
],
1045 Format('(%d:%d %d:%d)', [Data
.tX
, Data
.tY
, Data
.tWidth
, Data
.tHeight
]), True)] do
1047 EditStyle
:= esEllipsis
;
1051 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EX_DELAY
], IntToStr(Data
.Wait
), True)] do
1053 EditStyle
:= esSimple
;
1057 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EX_COUNT
], IntToStr(Data
.Count
), True)] do
1059 EditStyle
:= esSimple
;
1063 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EX_MONSTER
], IntToStr(Data
.MonsterID
-1), True)] do
1065 EditStyle
:= esEllipsis
;
1069 if TriggerType
= TRIGGER_PRESS
then
1070 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EX_RANDOM
], BoolNames
[Data
.ExtRandom
], True)] do
1072 EditStyle
:= esPickList
;
1080 TRIGGER_LIFTUP
, TRIGGER_LIFTDOWN
, TRIGGER_LIFT
:
1082 with ItemProps
[InsertRow(_lc
[I_PROP_TR_LIFT_PANEL
], IntToStr(Data
.PanelID
), True)] do
1084 EditStyle
:= esEllipsis
;
1088 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SILENT
], BoolNames
[Data
.NoSound
], True)] do
1090 EditStyle
:= esPickList
;
1094 with ItemProps
[InsertRow(_lc
[I_PROP_TR_D2D
], BoolNames
[Data
.d2d_doors
], True)] do
1096 EditStyle
:= esPickList
;
1103 with ItemProps
[InsertRow(_lc
[I_PROP_TR_TEXTURE_ONCE
], BoolNames
[Data
.ActivateOnce
], True)] do
1105 EditStyle
:= esPickList
;
1109 with ItemProps
[InsertRow(_lc
[I_PROP_TR_TEXTURE_ANIM_ONCE
], BoolNames
[Data
.AnimOnce
], True)] do
1111 EditStyle
:= esPickList
;
1118 str
:= win2utf(Data
.SoundName
);
1119 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SOUND_NAME
], str
, True)] do
1121 EditStyle
:= esEllipsis
;
1125 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SOUND_VOLUME
], IntToStr(Data
.Volume
), True)] do
1127 EditStyle
:= esSimple
;
1131 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SOUND_PAN
], IntToStr(Data
.Pan
), True)] do
1133 EditStyle
:= esSimple
;
1137 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SOUND_COUNT
], IntToStr(Data
.PlayCount
), True)] do
1139 EditStyle
:= esSimple
;
1143 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SOUND_LOCAL
], BoolNames
[Data
.Local
], True)] do
1145 EditStyle
:= esPickList
;
1149 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SOUND_SWITCH
], BoolNames
[Data
.SoundSwitch
], True)] do
1151 EditStyle
:= esPickList
;
1156 TRIGGER_SPAWNMONSTER
:
1158 with ItemProps
[InsertRow(_lc
[I_PROP_TR_MONSTER_TYPE
], MonsterToStr(Data
.MonType
), True)] do
1160 EditStyle
:= esEllipsis
;
1164 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SPAWN_TO
],
1165 Format('(%d:%d)', [Data
.MonPos
.X
, Data
.MonPos
.Y
]), True)] do
1167 EditStyle
:= esEllipsis
;
1171 with ItemProps
[InsertRow(_lc
[I_PROP_DIRECTION
], DirNames
[TDirection(Data
.MonDir
)], True)] do
1173 EditStyle
:= esPickList
;
1177 with ItemProps
[InsertRow(_lc
[I_PROP_TR_HEALTH
], IntToStr(Data
.MonHealth
), True)] do
1179 EditStyle
:= esSimple
;
1183 with ItemProps
[InsertRow(_lc
[I_PROP_TR_MONSTER_ACTIVE
], BoolNames
[Data
.MonActive
], True)] do
1185 EditStyle
:= esPickList
;
1189 with ItemProps
[InsertRow(_lc
[I_PROP_TR_COUNT
], IntToStr(Data
.MonCount
), True)] do
1191 EditStyle
:= esSimple
;
1195 with ItemProps
[InsertRow(_lc
[I_PROP_TR_FX_TYPE
], EffectToStr(Data
.MonEffect
), True)] do
1197 EditStyle
:= esEllipsis
;
1201 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SPAWN_MAX
], IntToStr(Data
.MonMax
), True)] do
1203 EditStyle
:= esSimple
;
1207 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SPAWN_DELAY
], IntToStr(Data
.MonDelay
), True)] do
1209 EditStyle
:= esSimple
;
1213 case Data
.MonBehav
of
1214 1: str
:= _lc
[I_PROP_TR_MONSTER_BEHAVIOUR_1
];
1215 2: str
:= _lc
[I_PROP_TR_MONSTER_BEHAVIOUR_2
];
1216 3: str
:= _lc
[I_PROP_TR_MONSTER_BEHAVIOUR_3
];
1217 4: str
:= _lc
[I_PROP_TR_MONSTER_BEHAVIOUR_4
];
1218 5: str
:= _lc
[I_PROP_TR_MONSTER_BEHAVIOUR_5
];
1219 else str
:= _lc
[I_PROP_TR_MONSTER_BEHAVIOUR_0
];
1221 with ItemProps
[InsertRow(_lc
[I_PROP_TR_MONSTER_BEHAVIOUR
], str
, True)] do
1223 EditStyle
:= esPickList
;
1230 with ItemProps
[InsertRow(_lc
[I_PROP_TR_ITEM_TYPE
], ItemToStr(Data
.ItemType
), True)] do
1232 EditStyle
:= esEllipsis
;
1236 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SPAWN_TO
],
1237 Format('(%d:%d)', [Data
.ItemPos
.X
, Data
.ItemPos
.Y
]), True)] do
1239 EditStyle
:= esEllipsis
;
1243 with ItemProps
[InsertRow(_lc
[I_PROP_DM_ONLY
], BoolNames
[Data
.ItemOnlyDM
], True)] do
1245 EditStyle
:= esPickList
;
1249 with ItemProps
[InsertRow(_lc
[I_PROP_ITEM_FALLS
], BoolNames
[Data
.ItemFalls
], True)] do
1251 EditStyle
:= esPickList
;
1255 with ItemProps
[InsertRow(_lc
[I_PROP_TR_COUNT
], IntToStr(Data
.ItemCount
), True)] do
1257 EditStyle
:= esSimple
;
1261 with ItemProps
[InsertRow(_lc
[I_PROP_TR_FX_TYPE
], EffectToStr(Data
.ItemEffect
), True)] do
1263 EditStyle
:= esEllipsis
;
1267 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SPAWN_MAX
], IntToStr(Data
.ItemMax
), True)] do
1269 EditStyle
:= esSimple
;
1273 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SPAWN_DELAY
], IntToStr(Data
.ItemDelay
), True)] do
1275 EditStyle
:= esSimple
;
1282 str
:= win2utf(Data
.MusicName
);
1283 with ItemProps
[InsertRow(_lc
[I_PROP_TR_MUSIC_NAME
], str
, True)] do
1285 EditStyle
:= esEllipsis
;
1289 if Data
.MusicAction
= 1 then
1290 str
:= _lc
[I_PROP_TR_MUSIC_ON
]
1292 str
:= _lc
[I_PROP_TR_MUSIC_OFF
];
1294 with ItemProps
[InsertRow(_lc
[I_PROP_TR_MUSIC_ACT
], str
, True)] do
1296 EditStyle
:= esPickList
;
1303 with ItemProps
[InsertRow(_lc
[I_PROP_TR_PUSH_ANGLE
], IntToStr(Data
.PushAngle
), True)] do
1305 EditStyle
:= esSimple
;
1308 with ItemProps
[InsertRow(_lc
[I_PROP_TR_PUSH_FORCE
], IntToStr(Data
.PushForce
), True)] do
1310 EditStyle
:= esSimple
;
1313 with ItemProps
[InsertRow(_lc
[I_PROP_TR_PUSH_RESET
], BoolNames
[Data
.ResetVel
], True)] do
1315 EditStyle
:= esPickList
;
1322 case Data
.ScoreAction
of
1323 1: str
:= _lc
[I_PROP_TR_SCORE_ACT_1
];
1324 2: str
:= _lc
[I_PROP_TR_SCORE_ACT_2
];
1325 3: str
:= _lc
[I_PROP_TR_SCORE_ACT_3
];
1326 else str
:= _lc
[I_PROP_TR_SCORE_ACT_0
];
1328 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SCORE_ACT
], str
, True)] do
1330 EditStyle
:= esPickList
;
1333 with ItemProps
[InsertRow(_lc
[I_PROP_TR_COUNT
], IntToStr(Data
.ScoreCount
), True)] do
1335 EditStyle
:= esSimple
;
1338 case Data
.ScoreTeam
of
1339 1: str
:= _lc
[I_PROP_TR_SCORE_TEAM_1
];
1340 2: str
:= _lc
[I_PROP_TR_SCORE_TEAM_2
];
1341 3: str
:= _lc
[I_PROP_TR_SCORE_TEAM_3
];
1342 else str
:= _lc
[I_PROP_TR_SCORE_TEAM_0
];
1344 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SCORE_TEAM
], str
, True)] do
1346 EditStyle
:= esPickList
;
1349 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SCORE_CON
], BoolNames
[Data
.ScoreCon
], True)] do
1351 EditStyle
:= esPickList
;
1354 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SCORE_MSG
], BoolNames
[Data
.ScoreMsg
], True)] do
1356 EditStyle
:= esPickList
;
1363 case Data
.MessageKind
of
1364 1: str
:= _lc
[I_PROP_TR_MESSAGE_KIND_1
];
1365 else str
:= _lc
[I_PROP_TR_MESSAGE_KIND_0
];
1367 with ItemProps
[InsertRow(_lc
[I_PROP_TR_MESSAGE_KIND
], str
, True)] do
1369 EditStyle
:= esPickList
;
1372 case Data
.MessageSendTo
of
1373 1: str
:= _lc
[I_PROP_TR_MESSAGE_TO_1
];
1374 2: str
:= _lc
[I_PROP_TR_MESSAGE_TO_2
];
1375 3: str
:= _lc
[I_PROP_TR_MESSAGE_TO_3
];
1376 4: str
:= _lc
[I_PROP_TR_MESSAGE_TO_4
];
1377 5: str
:= _lc
[I_PROP_TR_MESSAGE_TO_5
];
1378 else str
:= _lc
[I_PROP_TR_MESSAGE_TO_0
];
1380 with ItemProps
[InsertRow(_lc
[I_PROP_TR_MESSAGE_TO
], str
, True)] do
1382 EditStyle
:= esPickList
;
1385 str
:= win2utf(Data
.MessageText
);
1386 with ItemProps
[InsertRow(_lc
[I_PROP_TR_MESSAGE_TEXT
], str
, True)] do
1388 EditStyle
:= esSimple
;
1391 with ItemProps
[InsertRow(_lc
[I_PROP_TR_MESSAGE_TIME
], IntToStr(Data
.MessageTime
), True)] do
1393 EditStyle
:= esSimple
;
1400 with ItemProps
[InsertRow(_lc
[I_PROP_TR_DAMAGE_VALUE
], IntToStr(Data
.DamageValue
), True)] do
1402 EditStyle
:= esSimple
;
1405 with ItemProps
[InsertRow(_lc
[I_PROP_TR_INTERVAL
], IntToStr(Data
.DamageInterval
), True)] do
1407 EditStyle
:= esSimple
;
1414 with ItemProps
[InsertRow(_lc
[I_PROP_TR_HEALTH
], IntToStr(Data
.HealValue
), True)] do
1416 EditStyle
:= esSimple
;
1419 with ItemProps
[InsertRow(_lc
[I_PROP_TR_INTERVAL
], IntToStr(Data
.HealInterval
), True)] do
1421 EditStyle
:= esSimple
;
1424 with ItemProps
[InsertRow(_lc
[I_PROP_TR_HEALTH_MAX
], BoolNames
[Data
.HealMax
], True)] do
1426 EditStyle
:= esPickList
;
1429 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SILENT
], BoolNames
[Data
.HealSilent
], True)] do
1431 EditStyle
:= esPickList
;
1438 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SHOT_TYPE
], ShotToStr(Data
.ShotType
), True)] do
1440 EditStyle
:= esEllipsis
;
1444 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SHOT_SOUND
], BoolNames
[Data
.ShotSound
], True)] do
1446 EditStyle
:= esPickList
;
1450 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SHOT_PANEL
], IntToStr(Data
.ShotPanelID
), True)] do
1452 EditStyle
:= esEllipsis
;
1456 case Data
.ShotTarget
of
1457 1: str
:= _lc
[I_PROP_TR_SHOT_TO_1
];
1458 2: str
:= _lc
[I_PROP_TR_SHOT_TO_2
];
1459 3: str
:= _lc
[I_PROP_TR_SHOT_TO_3
];
1460 4: str
:= _lc
[I_PROP_TR_SHOT_TO_4
];
1461 5: str
:= _lc
[I_PROP_TR_SHOT_TO_5
];
1462 6: str
:= _lc
[I_PROP_TR_SHOT_TO_6
];
1463 else str
:= _lc
[I_PROP_TR_SHOT_TO_0
];
1465 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SHOT_TO
], str
, True)] do
1467 EditStyle
:= esPickList
;
1471 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SHOT_SIGHT
], IntToStr(Data
.ShotIntSight
), True)] do
1473 EditStyle
:= esSimple
;
1477 case Data
.ShotAim
of
1478 1: str
:= _lc
[I_PROP_TR_SHOT_AIM_1
];
1479 2: str
:= _lc
[I_PROP_TR_SHOT_AIM_2
];
1480 3: str
:= _lc
[I_PROP_TR_SHOT_AIM_3
];
1481 else str
:= _lc
[I_PROP_TR_SHOT_AIM_0
];
1483 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SHOT_AIM
], str
, True)-1] do
1485 EditStyle
:= esPickList
;
1489 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SPAWN_TO
],
1490 Format('(%d:%d)', [Data
.ShotPos
.X
, Data
.ShotPos
.Y
]), True)] do
1492 EditStyle
:= esEllipsis
;
1496 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SHOT_ANGLE
], IntToStr(Data
.ShotAngle
), True)] do
1498 EditStyle
:= esSimple
;
1502 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EX_DELAY
], IntToStr(Data
.ShotWait
), True)] do
1504 EditStyle
:= esSimple
;
1508 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SHOT_ACC
], IntToStr(Data
.ShotAccuracy
), True)] do
1510 EditStyle
:= esSimple
;
1514 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SHOT_AMMO
], IntToStr(Data
.ShotAmmo
), True)] do
1516 EditStyle
:= esSimple
;
1520 with ItemProps
[InsertRow(_lc
[I_PROP_TR_SHOT_RELOAD
], IntToStr(Data
.ShotIntReload
), True)] do
1522 EditStyle
:= esSimple
;
1529 with ItemProps
[InsertRow(_lc
[I_PROP_TR_COUNT
], IntToStr(Data
.FXCount
), True)] do
1531 EditStyle
:= esSimple
;
1535 if Data
.FXType
= 0 then
1536 str
:= _lc
[I_PROP_TR_EFFECT_PARTICLE
]
1538 str
:= _lc
[I_PROP_TR_EFFECT_ANIMATION
];
1539 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EFFECT_TYPE
], str
, True)] do
1541 EditStyle
:= esEllipsis
;
1546 if Data
.FXType
= 0 then
1547 case Data
.FXSubType
of
1548 TRIGGER_EFFECT_SLIQUID
:
1549 str
:= _lc
[I_PROP_TR_EFFECT_SLIQUID
];
1550 TRIGGER_EFFECT_LLIQUID
:
1551 str
:= _lc
[I_PROP_TR_EFFECT_LLIQUID
];
1552 TRIGGER_EFFECT_DLIQUID
:
1553 str
:= _lc
[I_PROP_TR_EFFECT_DLIQUID
];
1554 TRIGGER_EFFECT_BLOOD
:
1555 str
:= _lc
[I_PROP_TR_EFFECT_BLOOD
];
1556 TRIGGER_EFFECT_SPARK
:
1557 str
:= _lc
[I_PROP_TR_EFFECT_SPARK
];
1558 TRIGGER_EFFECT_BUBBLE
:
1559 str
:= _lc
[I_PROP_TR_EFFECT_BUBBLE
];
1561 if Data
.FXType
= 1 then
1563 if (Data
.FXSubType
= 0) or (Data
.FXSubType
> EFFECT_FIRE
) then
1564 Data
.FXSubType
:= EFFECT_TELEPORT
;
1565 str
:= EffectToStr(Data
.FXSubType
);
1567 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EFFECT_SUBTYPE
], str
, True)] do
1569 EditStyle
:= esEllipsis
;
1573 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EFFECT_COLOR
], IntToStr(Data
.FXColorR
or (Data
.FXColorG
shl 8) or (Data
.FXColorB
shl 16)), True)] do
1575 EditStyle
:= esEllipsis
;
1579 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EFFECT_CENTER
], BoolNames
[Data
.FXPos
= 0], True)] do
1581 EditStyle
:= esPickList
;
1585 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EX_DELAY
], IntToStr(Data
.FXWait
), True)] do
1587 EditStyle
:= esSimple
;
1591 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EFFECT_VELX
], IntToStr(Data
.FXVelX
), True)] do
1593 EditStyle
:= esSimple
;
1597 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EFFECT_VELY
], IntToStr(Data
.FXVelY
), True)] do
1599 EditStyle
:= esSimple
;
1603 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EFFECT_SPL
], IntToStr(Data
.FXSpreadL
), True)] do
1605 EditStyle
:= esSimple
;
1609 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EFFECT_SPR
], IntToStr(Data
.FXSpreadR
), True)] do
1611 EditStyle
:= esSimple
;
1615 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EFFECT_SPU
], IntToStr(Data
.FXSpreadU
), True)] do
1617 EditStyle
:= esSimple
;
1621 with ItemProps
[InsertRow(_lc
[I_PROP_TR_EFFECT_SPD
], IntToStr(Data
.FXSpreadD
), True)] do
1623 EditStyle
:= esSimple
;
1627 end; //case TriggerType
1629 end; // OBJECT_TRIGGER:
1633 procedure ChangeShownProperty(Name
: String; NewValue
: String);
1637 if SelectedObjectCount() <> 1 then
1639 if not SelectedObjects
[GetFirstSelected()].Live
then
1642 // Есть ли такой ключ:
1643 if MainForm
.vleObjectProperty
.FindRow(Name
, row
) then
1645 MainForm
.vleObjectProperty
.Values
[Name
] := NewValue
;
1649 procedure SelectObject(fObjectType
: Byte; fID
: DWORD
; Multi
: Boolean);
1658 // Уже выделен - убираем:
1659 if SelectedObjects
<> nil then
1660 for a
:= 0 to High(SelectedObjects
) do
1661 with SelectedObjects
[a
] do
1662 if Live
and (ID
= fID
) and
1663 (ObjectType
= fObjectType
) then
1672 SetLength(SelectedObjects
, Length(SelectedObjects
)+1);
1674 with SelectedObjects
[High(SelectedObjects
)] do
1676 ObjectType
:= fObjectType
;
1683 SetLength(SelectedObjects
, 1);
1685 with SelectedObjects
[0] do
1687 ObjectType
:= fObjectType
;
1693 MainForm
.miCopy
.Enabled
:= True;
1694 MainForm
.miCut
.Enabled
:= True;
1696 if fObjectType
= OBJECT_PANEL
then
1698 MainForm
.miToFore
.Enabled
:= True;
1699 MainForm
.miToBack
.Enabled
:= True;
1703 procedure RemoveSelectFromObjects();
1705 SelectedObjects
:= nil;
1706 DrawPressRect
:= False;
1707 MouseLDown
:= False;
1708 MouseRDown
:= False;
1709 MouseAction
:= MOUSEACTION_NONE
;
1710 SelectFlag
:= SELECTFLAG_NONE
;
1711 ResizeType
:= RESIZETYPE_NONE
;
1712 ResizeDirection
:= RESIZEDIR_NONE
;
1714 MainForm
.vleObjectProperty
.Strings
.Clear();
1716 MainForm
.miCopy
.Enabled
:= False;
1717 MainForm
.miCut
.Enabled
:= False;
1718 MainForm
.miToFore
.Enabled
:= False;
1719 MainForm
.miToBack
.Enabled
:= False;
1722 procedure DeleteSelectedObjects();
1727 if SelectedObjects
= nil then
1733 for a
:= 0 to High(SelectedObjects
) do
1734 with SelectedObjects
[a
] do
1739 SetLength(UndoBuffer
, Length(UndoBuffer
)+1);
1740 i
:= High(UndoBuffer
);
1744 SetLength(UndoBuffer
[i
], Length(UndoBuffer
[i
])+1);
1745 ii
:= High(UndoBuffer
[i
]);
1750 UndoBuffer
[i
, ii
].UndoType
:= UNDO_DELETE_PANEL
;
1751 New(UndoBuffer
[i
, ii
].Panel
);
1752 UndoBuffer
[i
, ii
].Panel
^ := gPanels
[ID
];
1756 UndoBuffer
[i
, ii
].UndoType
:= UNDO_DELETE_ITEM
;
1757 UndoBuffer
[i
, ii
].Item
:= gItems
[ID
];
1761 UndoBuffer
[i
, ii
].UndoType
:= UNDO_DELETE_AREA
;
1762 UndoBuffer
[i
, ii
].Area
:= gAreas
[ID
];
1766 UndoBuffer
[i
, ii
].UndoType
:= UNDO_DELETE_TRIGGER
;
1767 UndoBuffer
[i
, ii
].Trigger
:= gTriggers
[ID
];
1771 RemoveObject(ID
, ObjectType
);
1774 RemoveSelectFromObjects();
1776 MainForm
.miUndo
.Enabled
:= UndoBuffer
<> nil;
1779 procedure Undo_Add(ObjectType
: Byte; ID
: DWORD
; Group
: Boolean = False);
1783 if (not Group
) or (Length(UndoBuffer
) = 0) then
1784 SetLength(UndoBuffer
, Length(UndoBuffer
)+1);
1785 SetLength(UndoBuffer
[High(UndoBuffer
)], Length(UndoBuffer
[High(UndoBuffer
)])+1);
1786 i
:= High(UndoBuffer
);
1787 ii
:= High(UndoBuffer
[i
]);
1791 UndoBuffer
[i
, ii
].UndoType
:= UNDO_ADD_PANEL
;
1793 UndoBuffer
[i
, ii
].UndoType
:= UNDO_ADD_ITEM
;
1795 UndoBuffer
[i
, ii
].UndoType
:= UNDO_ADD_MONSTER
;
1797 UndoBuffer
[i
, ii
].UndoType
:= UNDO_ADD_AREA
;
1799 UndoBuffer
[i
, ii
].UndoType
:= UNDO_ADD_TRIGGER
;
1802 UndoBuffer
[i
, ii
].AddID
:= ID
;
1804 MainForm
.miUndo
.Enabled
:= UndoBuffer
<> nil;
1807 procedure FullClear();
1809 RemoveSelectFromObjects();
1811 LoadSky(gMapInfo
.SkyName
);
1813 slInvalidTextures
.Clear();
1814 MapCheckForm
.lbErrorList
.Clear();
1815 MapCheckForm
.mErrorDescription
.Clear();
1817 MainForm
.miUndo
.Enabled
:= False;
1818 MainForm
.sbHorizontal
.Position
:= 0;
1819 MainForm
.sbVertical
.Position
:= 0;
1820 MainForm
.FormResize(nil);
1821 MainForm
.Caption
:= FormCaption
;
1826 procedure ErrorMessageBox(str
: String);
1828 MessageBox(0, PChar(str
), PChar(_lc
[I_MSG_ERROR
]),
1829 MB_ICONINFORMATION
or MB_OK
or MB_DEFBUTTON1
);
1832 function CheckProperty(): Boolean;
1838 _id
:= GetFirstSelected();
1840 if SelectedObjects
[_id
].ObjectType
= OBJECT_PANEL
then
1841 with gPanels
[SelectedObjects
[_id
].ID
] do
1843 if TextureWidth
<> 0 then
1844 if StrToIntDef(MainForm
.vleObjectProperty
.Values
[_lc
[I_PROP_WIDTH
]], 1) mod TextureWidth
<> 0 then
1846 ErrorMessageBox(Format(_lc
[I_MSG_WRONG_TEXWIDTH
],
1851 if TextureHeight
<> 0 then
1852 if StrToIntDef(Trim(MainForm
.vleObjectProperty
.Values
[_lc
[I_PROP_HEIGHT
]]), 1) mod TextureHeight
<> 0 then
1854 ErrorMessageBox(Format(_lc
[I_MSG_WRONG_TEXHEIGHT
],
1859 if IsTexturedPanel(PanelType
) and (TextureName
<> '') then
1860 if not (StrToIntDef(MainForm
.vleObjectProperty
.Values
[_lc
[I_PROP_PANEL_ALPHA
]], -1) in [0..255]) then
1862 ErrorMessageBox(_lc
[I_MSG_WRONG_ALPHA
]);
1867 if SelectedObjects
[_id
].ObjectType
in [OBJECT_PANEL
, OBJECT_TRIGGER
] then
1868 if (StrToIntDef(MainForm
.vleObjectProperty
.Values
[_lc
[I_PROP_WIDTH
]], 0) <= 0) or
1869 (StrToIntDef(MainForm
.vleObjectProperty
.Values
[_lc
[I_PROP_HEIGHT
]], 0) <= 0) then
1871 ErrorMessageBox(_lc
[I_MSG_WRONG_SIZE
]);
1875 if (Trim(MainForm
.vleObjectProperty
.Values
[_lc
[I_PROP_X
]]) = '') or
1876 (Trim(MainForm
.vleObjectProperty
.Values
[_lc
[I_PROP_Y
]]) = '') then
1878 ErrorMessageBox(_lc
[I_MSG_WRONG_XY
]);
1885 procedure SelectTexture(ID
: Integer);
1887 MainForm
.lbTextureList
.ItemIndex
:= ID
;
1888 MainForm
.lbTextureListClick(nil);
1891 function AddTexture(aWAD
, aSection
, aTex
: String; silent
: Boolean): Boolean;
1893 a
, FrameLen
: Integer;
1896 ResourceName
: String;
1897 FullResourceName
: String;
1898 SectionName
: String;
1900 Width
, Height
: Word;
1908 if aSection
= '..' then
1911 SectionName
:= aSection
;
1914 aWAD
:= _lc
[I_WAD_SPECIAL_MAP
];
1916 if aWAD
= _lc
[I_WAD_SPECIAL_MAP
] then
1918 g_ProcessResourceStr(OpenedMap
, @fn
, nil, nil);
1919 //FileName := EditorDir+'maps\'+ExtractFileName(fn);
1921 ResourceName
:= ':'+SectionName
+'\'+aTex
;
1924 if aWAD
= _lc
[I_WAD_SPECIAL_TEXS
] then
1925 begin // Спец. текстуры
1927 ResourceName
:= aTex
;
1930 begin // Внешний WAD
1931 FileName
:= EditorDir
+'wads/'+aWAD
;
1932 ResourceName
:= aWAD
+':'+SectionName
+'\'+aTex
;
1937 // Есть ли уже такая текстура:
1938 for a
:= 0 to MainForm
.lbTextureList
.Items
.Count
-1 do
1939 if ResourceName
= MainForm
.lbTextureList
.Items
[a
] then
1942 ErrorMessageBox(Format(_lc
[I_MSG_TEXTURE_ALREADY
],
1947 // Название ресурса <= 64 символов:
1948 if Length(ResourceName
) > 64 then
1951 ErrorMessageBox(Format(_lc
[I_MSG_RES_NAME_64
],
1959 if aWAD
= _lc
[I_WAD_SPECIAL_TEXS
] then
1961 a
:= MainForm
.lbTextureList
.Items
.Add(ResourceName
);
1968 FullResourceName
:= FileName
+':'+SectionName
+'\'+aTex
;
1970 if IsAnim(FullResourceName
) then
1971 begin // Аним. текстура
1972 GetFrame(FullResourceName
, Data
, FrameLen
, Width
, Height
);
1974 if not g_CreateTextureMemorySize(Data
, FrameLen
, ResourceName
, 0, 0, Width
, Height
, 1) then
1976 a
:= MainForm
.lbTextureList
.Items
.Add(ResourceName
);
1978 else // Обычная текстура
1980 if not g_CreateTextureWAD(ResourceName
, FullResourceName
) then
1982 a
:= MainForm
.lbTextureList
.Items
.Add(ResourceName
);
1984 if (not ok
) and (slInvalidTextures
.IndexOf(ResourceName
) = -1) then
1986 slInvalidTextures
.Add(ResourceName
);
1989 if (a
> -1) and (not silent
) then
1996 procedure UpdateCaption(sMap
, sFile
, sRes
: String);
1999 if (sFile
= '') and (sRes
= '') and (sMap
= '') then
2000 Caption
:= FormCaption
2003 Caption
:= Format('%s - %s:%s', [FormCaption
, sFile
, sRes
])
2005 if (sFile
<> '') and (sRes
<> '') then
2006 Caption
:= Format('%s - %s (%s:%s)', [FormCaption
, sMap
, sFile
, sRes
])
2008 Caption
:= Format('%s - %s', [FormCaption
, sMap
]);
2011 procedure OpenMap(FileName
: String; mapN
: String);
2016 SelectMapForm
.Caption
:= _lc
[I_CAP_OPEN
];
2017 SelectMapForm
.GetMaps(FileName
);
2019 if (FileName
= OpenedWAD
) and
2020 (OpenedMap
<> '') then
2022 MapName
:= OpenedMap
;
2023 while (Pos(':\', MapName
) > 0) do
2024 Delete(MapName
, 1, Pos(':\', MapName
) + 1);
2026 idx
:= SelectMapForm
.lbMapList
.Items
.IndexOf(MapName
);
2027 SelectMapForm
.lbMapList
.ItemIndex
:= idx
;
2030 if SelectMapForm
.lbMapList
.Count
> 0 then
2031 SelectMapForm
.lbMapList
.ItemIndex
:= 0
2033 SelectMapForm
.lbMapList
.ItemIndex
:= -1;
2038 idx
:= SelectMapForm
.lbMapList
.Items
.IndexOf(mapN
);
2042 if (SelectMapForm
.ShowModal() = mrOK
) and
2043 (SelectMapForm
.lbMapList
.ItemIndex
<> -1) then
2044 idx
:= SelectMapForm
.lbMapList
.ItemIndex
2049 MapName
:= SelectMapForm
.lbMapList
.Items
[idx
];
2055 pLoadProgress
.Left
:= (RenderPanel
.Width
div 2)-(pLoadProgress
.Width
div 2);
2056 pLoadProgress
.Top
:= (RenderPanel
.Height
div 2)-(pLoadProgress
.Height
div 2);
2057 pLoadProgress
.Show();
2059 OpenedMap
:= FileName
+':\'+MapName
;
2060 OpenedWAD
:= FileName
;
2062 idx
:= RecentFiles
.IndexOf(OpenedMap
);
2063 // Такая карта уже недавно открывалась:
2065 RecentFiles
.Delete(idx
);
2066 RecentFiles
.Insert(0, OpenedMap
);
2067 RefreshRecentMenu();
2071 pLoadProgress
.Hide();
2074 lbTextureList
.Sorted
:= True;
2075 lbTextureList
.Sorted
:= False;
2077 UpdateCaption(gMapInfo
.Name
, ExtractFileName(FileName
), MapName
);
2081 procedure MoveSelectedObjects(Wall
, alt
: Boolean; dx
, dy
: Integer);
2086 if SelectedObjects
= nil then
2093 for a
:= 0 to High(SelectedObjects
) do
2094 if SelectedObjects
[a
].Live
then
2096 if ObjectCollideLevel(SelectedObjects
[a
].ID
, SelectedObjects
[a
].ObjectType
, dx
, 0) then
2099 if ObjectCollideLevel(SelectedObjects
[a
].ID
, SelectedObjects
[a
].ObjectType
, 0, dy
) then
2102 if (not okX
) or (not okY
) then
2108 for a
:= 0 to High(SelectedObjects
) do
2109 if SelectedObjects
[a
].Live
then
2112 MoveObject(SelectedObjects
[a
].ObjectType
, SelectedObjects
[a
].ID
, dx
, 0);
2115 MoveObject(SelectedObjects
[a
].ObjectType
, SelectedObjects
[a
].ID
, 0, dy
);
2117 if alt
and (SelectedObjects
[a
].ObjectType
= OBJECT_TRIGGER
) then
2119 if gTriggers
[SelectedObjects
[a
].ID
].TriggerType
in [TRIGGER_PRESS
,
2120 TRIGGER_ON
, TRIGGER_OFF
, TRIGGER_ONOFF
] then
2121 begin // Двигаем зону Расширителя
2123 gTriggers
[SelectedObjects
[a
].ID
].Data
.tX
:= gTriggers
[SelectedObjects
[a
].ID
].Data
.tX
+dx
;
2125 gTriggers
[SelectedObjects
[a
].ID
].Data
.tY
:= gTriggers
[SelectedObjects
[a
].ID
].Data
.tY
+dy
;
2128 if gTriggers
[SelectedObjects
[a
].ID
].TriggerType
in [TRIGGER_TELEPORT
] then
2129 begin // Двигаем точку назначения Телепорта
2131 gTriggers
[SelectedObjects
[a
].ID
].Data
.TargetPoint
.X
:= gTriggers
[SelectedObjects
[a
].ID
].Data
.TargetPoint
.X
+dx
;
2133 gTriggers
[SelectedObjects
[a
].ID
].Data
.TargetPoint
.Y
:= gTriggers
[SelectedObjects
[a
].ID
].Data
.TargetPoint
.Y
+dy
;
2136 if gTriggers
[SelectedObjects
[a
].ID
].TriggerType
in [TRIGGER_SPAWNMONSTER
] then
2137 begin // Двигаем точку создания монстра
2139 gTriggers
[SelectedObjects
[a
].ID
].Data
.MonPos
.X
:= gTriggers
[SelectedObjects
[a
].ID
].Data
.MonPos
.X
+dx
;
2141 gTriggers
[SelectedObjects
[a
].ID
].Data
.MonPos
.Y
:= gTriggers
[SelectedObjects
[a
].ID
].Data
.MonPos
.Y
+dy
;
2144 if gTriggers
[SelectedObjects
[a
].ID
].TriggerType
in [TRIGGER_SPAWNITEM
] then
2145 begin // Двигаем точку создания предмета
2147 gTriggers
[SelectedObjects
[a
].ID
].Data
.ItemPos
.X
:= gTriggers
[SelectedObjects
[a
].ID
].Data
.ItemPos
.X
+dx
;
2149 gTriggers
[SelectedObjects
[a
].ID
].Data
.ItemPos
.Y
:= gTriggers
[SelectedObjects
[a
].ID
].Data
.ItemPos
.Y
+dy
;
2152 if gTriggers
[SelectedObjects
[a
].ID
].TriggerType
in [TRIGGER_SHOT
] then
2153 begin // Двигаем точку создания выстрела
2155 gTriggers
[SelectedObjects
[a
].ID
].Data
.ShotPos
.X
:= gTriggers
[SelectedObjects
[a
].ID
].Data
.ShotPos
.X
+dx
;
2157 gTriggers
[SelectedObjects
[a
].ID
].Data
.ShotPos
.Y
:= gTriggers
[SelectedObjects
[a
].ID
].Data
.ShotPos
.Y
+dy
;
2162 LastMovePoint
:= MousePos
;
2166 procedure ShowLayer(Layer
: Byte; show
: Boolean);
2168 LayerEnabled
[Layer
] := show
;
2173 MainForm
.miLayer1
.Checked
:= show
;
2174 MainForm
.miLayerP1
.Checked
:= show
;
2178 MainForm
.miLayer2
.Checked
:= show
;
2179 MainForm
.miLayerP2
.Checked
:= show
;
2183 MainForm
.miLayer3
.Checked
:= show
;
2184 MainForm
.miLayerP3
.Checked
:= show
;
2188 MainForm
.miLayer4
.Checked
:= show
;
2189 MainForm
.miLayerP4
.Checked
:= show
;
2193 MainForm
.miLayer5
.Checked
:= show
;
2194 MainForm
.miLayerP5
.Checked
:= show
;
2198 MainForm
.miLayer6
.Checked
:= show
;
2199 MainForm
.miLayerP6
.Checked
:= show
;
2203 MainForm
.miLayer7
.Checked
:= show
;
2204 MainForm
.miLayerP7
.Checked
:= show
;
2208 MainForm
.miLayer8
.Checked
:= show
;
2209 MainForm
.miLayerP8
.Checked
:= show
;
2213 MainForm
.miLayer9
.Checked
:= show
;
2214 MainForm
.miLayerP9
.Checked
:= show
;
2218 RemoveSelectFromObjects();
2221 procedure SwitchLayer(Layer
: Byte);
2223 ShowLayer(Layer
, not LayerEnabled
[Layer
]);
2226 procedure SwitchMap();
2228 ShowMap
:= not ShowMap
;
2229 MainForm
.tbShowMap
.Down
:= ShowMap
;
2232 procedure ShowEdges();
2234 if drEdge
[3] < 255 then
2237 drEdge
[3] := gAlphaEdge
;
2240 function SelectedTexture(): String;
2242 if MainForm
.lbTextureList
.ItemIndex
<> -1 then
2243 Result
:= MainForm
.lbTextureList
.Items
[MainForm
.lbTextureList
.ItemIndex
]
2248 function IsSpecialTextureSel(): Boolean;
2250 Result
:= (MainForm
.lbTextureList
.ItemIndex
<> -1) and
2251 IsSpecialTexture(MainForm
.lbTextureList
.Items
[MainForm
.lbTextureList
.ItemIndex
]);
2254 function CopyBufferToString(var CopyBuf
: TCopyRecArray
): String;
2259 procedure AddInt(x
: Integer);
2261 Res
:= Res
+ IntToStr(x
) + ' ';
2267 if Length(CopyBuf
) = 0 then
2270 Res
:= CLIPBOARD_SIG
+ ' ';
2272 for i
:= 0 to High(CopyBuf
) do
2274 if (CopyBuf
[i
].ObjectType
= OBJECT_PANEL
) and
2275 (CopyBuf
[i
].Panel
= nil) then
2279 AddInt(CopyBuf
[i
].ObjectType
);
2282 // Свойства объекта:
2283 case CopyBuf
[i
].ObjectType
of
2285 with CopyBuf
[i
].Panel
^ do
2292 Res
:= Res
+ '"' + TextureName
+ '" ';
2294 AddInt(IfThen(Blending
, 1, 0));
2298 with CopyBuf
[i
].Item
do
2303 AddInt(IfThen(OnlyDM
, 1, 0));
2304 AddInt(IfThen(Fall
, 1, 0));
2308 with CopyBuf
[i
].Monster
do
2310 AddInt(MonsterType
);
2313 AddInt(IfThen(Direction
= D_LEFT
, 1, 0));
2317 with CopyBuf
[i
].Area
do
2322 AddInt(IfThen(Direction
= D_LEFT
, 1, 0));
2326 with CopyBuf
[i
].Trigger
do
2328 AddInt(TriggerType
);
2333 AddInt(ActivateType
);
2335 AddInt(IfThen(Enabled
, 1, 0));
2336 AddInt(TexturePanel
);
2338 for j
:= 0 to 127 do
2339 AddInt(Data
.Default
[j
]);
2347 procedure StringToCopyBuffer(Str
: String; var CopyBuf
: TCopyRecArray
;
2352 function GetNext(): String;
2357 if Str
[1] = '"' then
2369 Result
:= Copy(Str
, 1, p
-1);
2385 Result
:= Copy(Str
, 1, p
-1);
2395 if GetNext() <> CLIPBOARD_SIG
then
2401 t
:= StrToIntDef(GetNext(), 0);
2403 if (t
< OBJECT_PANEL
) or (t
> OBJECT_TRIGGER
) or
2404 (GetNext() <> ';') then
2405 begin // Что-то не то => пропускаем:
2413 i
:= Length(CopyBuf
);
2414 SetLength(CopyBuf
, i
+ 1);
2416 CopyBuf
[i
].ObjectType
:= t
;
2417 CopyBuf
[i
].Panel
:= nil;
2419 // Свойства объекта:
2423 New(CopyBuf
[i
].Panel
);
2425 with CopyBuf
[i
].Panel
^ do
2427 PanelType
:= StrToIntDef(GetNext(), PANEL_WALL
);
2428 X
:= StrToIntDef(GetNext(), 0);
2429 Y
:= StrToIntDef(GetNext(), 0);
2430 pmin
.X
:= Min(X
, pmin
.X
);
2431 pmin
.Y
:= Min(Y
, pmin
.Y
);
2432 Width
:= StrToIntDef(GetNext(), 16);
2433 Height
:= StrToIntDef(GetNext(), 16);
2434 TextureName
:= GetNext();
2435 Alpha
:= StrToIntDef(GetNext(), 0);
2436 Blending
:= (GetNext() = '1');
2441 with CopyBuf
[i
].Item
do
2443 ItemType
:= StrToIntDef(GetNext(), ITEM_MEDKIT_SMALL
);
2444 X
:= StrToIntDef(GetNext(), 0);
2445 Y
:= StrToIntDef(GetNext(), 0);
2446 pmin
.X
:= Min(X
, pmin
.X
);
2447 pmin
.Y
:= Min(Y
, pmin
.Y
);
2448 OnlyDM
:= (GetNext() = '1');
2449 Fall
:= (GetNext() = '1');
2453 with CopyBuf
[i
].Monster
do
2455 MonsterType
:= StrToIntDef(GetNext(), MONSTER_DEMON
);
2456 X
:= StrToIntDef(GetNext(), 0);
2457 Y
:= StrToIntDef(GetNext(), 0);
2458 pmin
.X
:= Min(X
, pmin
.X
);
2459 pmin
.Y
:= Min(Y
, pmin
.Y
);
2461 if GetNext() = '1' then
2464 Direction
:= D_RIGHT
;
2468 with CopyBuf
[i
].Area
do
2470 AreaType
:= StrToIntDef(GetNext(), AREA_PLAYERPOINT1
);
2471 X
:= StrToIntDef(GetNext(), 0);
2472 Y
:= StrToIntDef(GetNext(), 0);
2473 pmin
.X
:= Min(X
, pmin
.X
);
2474 pmin
.Y
:= Min(Y
, pmin
.Y
);
2475 if GetNext() = '1' then
2478 Direction
:= D_RIGHT
;
2482 with CopyBuf
[i
].Trigger
do
2484 TriggerType
:= StrToIntDef(GetNext(), TRIGGER_EXIT
);
2485 X
:= StrToIntDef(GetNext(), 0);
2486 Y
:= StrToIntDef(GetNext(), 0);
2487 pmin
.X
:= Min(X
, pmin
.X
);
2488 pmin
.Y
:= Min(Y
, pmin
.Y
);
2489 Width
:= StrToIntDef(GetNext(), 16);
2490 Height
:= StrToIntDef(GetNext(), 16);
2491 ActivateType
:= StrToIntDef(GetNext(), 0);
2492 Key
:= StrToIntDef(GetNext(), 0);
2493 Enabled
:= (GetNext() = '1');
2494 TexturePanel
:= StrToIntDef(GetNext(), 0);
2496 for j
:= 0 to 127 do
2497 Data
.Default
[j
] := StrToIntDef(GetNext(), 0);
2502 pmin
.X
:= Min(Data
.TargetPoint
.X
, pmin
.X
);
2503 pmin
.Y
:= Min(Data
.TargetPoint
.Y
, pmin
.Y
);
2505 TRIGGER_PRESS
, TRIGGER_ON
, TRIGGER_OFF
, TRIGGER_ONOFF
:
2507 pmin
.X
:= Min(Data
.tX
, pmin
.X
);
2508 pmin
.Y
:= Min(Data
.tY
, pmin
.Y
);
2510 TRIGGER_SPAWNMONSTER
:
2512 pmin
.X
:= Min(Data
.MonPos
.X
, pmin
.X
);
2513 pmin
.Y
:= Min(Data
.MonPos
.Y
, pmin
.Y
);
2517 pmin
.X
:= Min(Data
.ItemPos
.X
, pmin
.X
);
2518 pmin
.Y
:= Min(Data
.ItemPos
.Y
, pmin
.Y
);
2522 pmin
.X
:= Min(Data
.ShotPos
.X
, pmin
.X
);
2523 pmin
.Y
:= Min(Data
.ShotPos
.Y
, pmin
.Y
);
2531 //----------------------------------------
2532 //Закончились вспомогательные процедуры
2533 //----------------------------------------
2535 procedure TMainForm
.RefreshRecentMenu();
2540 // Лишние запомненные карты:
2541 while RecentFiles
.Count
> RecentCount
do
2542 RecentFiles
.Delete(RecentFiles
.Count
-1);
2544 // Лишние строки меню:
2545 while MainMenu
.Items
[0].Count
> RECENT_FILES_MENU_START
do
2546 MainMenu
.Items
[0].Delete(MainMenu
.Items
[0].Count
-1);
2548 // Отделение списка карт от строки "Выход":
2549 if RecentFiles
.Count
> 0 then
2551 MI
:= TMenuItem
.Create(MainMenu
.Items
[0]);
2553 MainMenu
.Items
[0].Add(MI
);
2556 // Добавление в меню списка запомненных карт:
2557 for i
:= 0 to RecentFiles
.Count
-1 do
2559 MI
:= TMenuItem
.Create(MainMenu
.Items
[0]);
2560 MI
.Caption
:= IntToStr(i
+1) + ' ' + RecentFiles
[i
];
2561 MI
.OnClick
:= aRecentFileExecute
;
2562 MainMenu
.Items
[0].Add(MI
);
2566 procedure TMainForm
.aRecentFileExecute(Sender
: TObject
);
2572 s
:= LowerCase((Sender
as TMenuItem
).Caption
);
2573 Delete(s
, Pos('&', s
), 1);
2574 s
:= Trim(Copy(s
, 1, 2));
2575 n
:= StrToIntDef(s
, 0) - 1;
2577 if (n
< 0) or (n
>= RecentFiles
.Count
) then
2580 s
:= RecentFiles
[n
];
2581 pw
:= Pos('.wad:\', LowerCase(s
));
2585 begin // Map name included
2586 fn
:= Copy(s
, 1, pw
+ 3);
2587 Delete(s
, 1, pw
+ 5);
2588 if (FileExists(fn
)) then
2594 else // Only wad name
2595 if (FileExists(s
)) then
2601 if (not b
) and (MessageBox(0, PChar(_lc
[I_MSG_DEL_RECENT_PROMT
]),
2602 PChar(_lc
[I_MSG_DEL_RECENT
]), MB_ICONQUESTION
or MB_YESNO
) = idYes
) then
2604 RecentFiles
.Delete(n
);
2605 RefreshRecentMenu();
2609 procedure TMainForm
.aEditorOptionsExecute(Sender
: TObject
);
2611 OptionsForm
.ShowModal();
2614 procedure LoadStdFont(cfgres
, texture
: string; var FontID
: DWORD
);
2628 wad
:= TWADEditor_1
.Create
;
2629 if wad
.ReadFile(EditorDir
+'data/Game.wad') then
2630 wad
.GetResource('FONTS', cfgres
, cfgdata
, cfglen
);
2635 if not g_CreateTextureWAD('FONT_STD', EditorDir
+'data/Game.wad:FONTS\'+texture
) then
2636 e_WriteLog('ERROR ERROR ERROR', MSG_WARNING
);
2638 config
:= TConfig
.CreateMem(cfgdata
, cfglen
);
2639 cwdt
:= Min(Max(config
.ReadInt('FontMap', 'CharWidth', 0), 0), 255);
2640 chgt
:= Min(Max(config
.ReadInt('FontMap', 'CharHeight', 0), 0), 255);
2641 spc
:= Min(Max(config
.ReadInt('FontMap', 'Kerning', 0), -128), 127);
2643 if g_GetTexture('FONT_STD', ID
) then
2644 e_TextureFontBuild(ID
, FontID
, cwdt
, chgt
, spc
-2);
2649 e_WriteLog('Could not load FONT_STD', MSG_WARNING
);
2651 if cfglen
<> 0 then FreeMem(cfgdata
);
2654 procedure TMainForm
.FormCreate(Sender
: TObject
);
2662 EditorDir
:= ExtractFilePath(Application
.ExeName
);
2664 e_InitLog(EditorDir
+'Editor.log', WM_NEWFILE
);
2666 slInvalidTextures
:= TStringList
.Create
;
2668 ShowLayer(LAYER_BACK
, True);
2669 ShowLayer(LAYER_WALLS
, True);
2670 ShowLayer(LAYER_FOREGROUND
, True);
2671 ShowLayer(LAYER_STEPS
, True);
2672 ShowLayer(LAYER_WATER
, True);
2673 ShowLayer(LAYER_ITEMS
, True);
2674 ShowLayer(LAYER_MONSTERS
, True);
2675 ShowLayer(LAYER_AREAS
, True);
2676 ShowLayer(LAYER_TRIGGERS
, True);
2680 FormCaption
:= MainForm
.Caption
;
2684 config
:= TConfig
.CreateFile(EditorDir
+'Editor.cfg');
2686 if config
.ReadInt('Editor', 'XPos', -1) = -1 then
2687 Position
:= poDesktopCenter
2689 Left
:= config
.ReadInt('Editor', 'XPos', Left
);
2690 Top
:= config
.ReadInt('Editor', 'YPos', Top
);
2691 Width
:= config
.ReadInt('Editor', 'Width', Width
);
2692 Height
:= config
.ReadInt('Editor', 'Height', Height
);
2694 if config
.ReadBool('Editor', 'Maximize', False) then
2695 WindowState
:= wsMaximized
;
2696 ShowMap
:= config
.ReadBool('Editor', 'Minimap', False);
2697 PanelProps
.Width
:= config
.ReadInt('Editor', 'PanelProps', PanelProps
.ClientWidth
);
2698 Splitter1
.Left
:= PanelProps
.Left
;
2699 PanelObjs
.Height
:= config
.ReadInt('Editor', 'PanelObjs', PanelObjs
.ClientHeight
);
2700 Splitter2
.Top
:= PanelObjs
.Top
;
2701 StatusBar
.Top
:= PanelObjs
.BoundsRect
.Bottom
;
2702 DotEnable
:= config
.ReadBool('Editor', 'DotEnable', True);
2703 DotColor
:= config
.ReadInt('Editor', 'DotColor', $FFFFFF);
2704 DotStepOne
:= config
.ReadInt('Editor', 'DotStepOne', 16);
2705 DotStepTwo
:= config
.ReadInt('Editor', 'DotStepTwo', 8);
2706 DotStep
:= config
.ReadInt('Editor', 'DotStep', DotStepOne
);
2707 DrawTexturePanel
:= config
.ReadBool('Editor', 'DrawTexturePanel', True);
2708 DrawPanelSize
:= config
.ReadBool('Editor', 'DrawPanelSize', True);
2709 BackColor
:= config
.ReadInt('Editor', 'BackColor', $7F6040);
2710 PreviewColor
:= config
.ReadInt('Editor', 'PreviewColor', $00FF00);
2711 UseCheckerboard
:= config
.ReadBool('Editor', 'UseCheckerboard', True);
2712 gColorEdge
:= config
.ReadInt('Editor', 'EdgeColor', COLOR_EDGE
);
2713 gAlphaEdge
:= config
.ReadInt('Editor', 'EdgeAlpha', ALPHA_EDGE
);
2714 if gAlphaEdge
= 255 then
2715 gAlphaEdge
:= ALPHA_EDGE
;
2716 drEdge
[0] := GetRValue(gColorEdge
);
2717 drEdge
[1] := GetGValue(gColorEdge
);
2718 drEdge
[2] := GetBValue(gColorEdge
);
2719 if not config
.ReadBool('Editor', 'EdgeShow', True) then
2722 drEdge
[3] := gAlphaEdge
;
2723 gAlphaTriggerLine
:= config
.ReadInt('Editor', 'LineAlpha', ALPHA_LINE
);
2724 if gAlphaTriggerLine
= 255 then
2725 gAlphaTriggerLine
:= ALPHA_LINE
;
2726 gAlphaTriggerArea
:= config
.ReadInt('Editor', 'TriggerAlpha', ALPHA_AREA
);
2727 if gAlphaTriggerArea
= 255 then
2728 gAlphaTriggerArea
:= ALPHA_AREA
;
2729 gAlphaMonsterRect
:= config
.ReadInt('Editor', 'MonsterRectAlpha', 0);
2730 gAlphaAreaRect
:= config
.ReadInt('Editor', 'AreaRectAlpha', 0);
2731 if config
.ReadInt('Editor', 'Scale', 0) = 1 then
2735 if config
.ReadInt('Editor', 'DotSize', 0) = 1 then
2739 OpenDialog
.InitialDir
:= config
.ReadStr('Editor', 'LastOpenDir', EditorDir
);
2740 SaveDialog
.InitialDir
:= config
.ReadStr('Editor', 'LastSaveDir', EditorDir
);
2742 s
:= config
.ReadStr('Editor', 'Language', '');
2745 RecentCount
:= config
.ReadInt('Editor', 'RecentCount', 5);
2746 if RecentCount
> 10 then
2748 if RecentCount
< 2 then
2751 RecentFiles
:= TStringList
.Create();
2752 for i
:= 0 to RecentCount
-1 do
2754 s
:= config
.ReadStr('RecentFiles', IntToStr(i
+1), '');
2758 RefreshRecentMenu();
2762 tbShowMap
.Down
:= ShowMap
;
2763 tbGridOn
.Down
:= DotEnable
;
2764 pcObjects
.ActivePageIndex
:= 0;
2765 Application
.Title
:= _lc
[I_EDITOR_TITLE
];
2767 Application
.OnIdle
:= OnIdle
;
2770 procedure PrintBlack(X
, Y
: Integer; Text: string; FontID
: DWORD
);
2772 // NOTE: all the font printing routines assume CP1251
2773 e_TextureFontPrintEx(X
, Y
, Text, FontID
, 0, 0, 0, 1.0);
2776 procedure TMainForm
.Draw();
2781 Width
, Height
: Word;
2784 aX
, aY
, aX2
, aY2
, XX
, ScaleSz
: Integer;
2793 e_Clear(GL_COLOR_BUFFER_BIT
,
2794 GetRValue(BackColor
)/255,
2795 GetGValue(BackColor
)/255,
2796 GetBValue(BackColor
)/255);
2800 ObjCount
:= SelectedObjectCount();
2802 // Обводим выделенные объекты красной рамкой:
2803 if ObjCount
> 0 then
2805 for a
:= 0 to High(SelectedObjects
) do
2806 if SelectedObjects
[a
].Live
then
2808 Rect
:= ObjectGetRect(SelectedObjects
[a
].ObjectType
, SelectedObjects
[a
].ID
);
2812 e_DrawQuad(X
+MapOffset
.X
, Y
+MapOffset
.Y
,
2813 X
+MapOffset
.X
+Width
-1, Y
+MapOffset
.Y
+Height
-1,
2816 // Рисуем точки изменения размеров:
2817 if (ObjCount
= 1) and
2818 (SelectedObjects
[GetFirstSelected
].ObjectType
in [OBJECT_PANEL
, OBJECT_TRIGGER
]) then
2820 e_DrawPoint(5, X
+MapOffset
.X
, Y
+MapOffset
.Y
+(Height
div 2), 255, 255, 255);
2821 e_DrawPoint(5, X
+MapOffset
.X
+Width
-1, Y
+MapOffset
.Y
+(Height
div 2), 255, 255, 255);
2822 e_DrawPoint(5, X
+MapOffset
.X
+(Width
div 2), Y
+MapOffset
.Y
, 255, 255, 255);
2823 e_DrawPoint(5, X
+MapOffset
.X
+(Width
div 2), Y
+MapOffset
.Y
+Height
-1, 255, 255, 255);
2825 e_DrawPoint(3, X
+MapOffset
.X
, Y
+MapOffset
.Y
+(Height
div 2), 255, 0, 0);
2826 e_DrawPoint(3, X
+MapOffset
.X
+Width
-1, Y
+MapOffset
.Y
+(Height
div 2), 255, 0, 0);
2827 e_DrawPoint(3, X
+MapOffset
.X
+(Width
div 2), Y
+MapOffset
.Y
, 255, 0, 0);
2828 e_DrawPoint(3, X
+MapOffset
.X
+(Width
div 2), Y
+MapOffset
.Y
+Height
-1, 255, 0, 0);
2835 if DotEnable
and (PreviewMode
= 0) then
2842 for x
:= 0 to (RenderPanel
.Width
div DotStep
) do
2843 for y
:= 0 to (RenderPanel
.Height
div DotStep
) do
2844 e_DrawPoint(DotSize
, x
*DotStep
+ a
, y
*DotStep
+ a
,
2845 GetRValue(DotColor
),
2846 GetGValue(DotColor
),
2847 GetBValue(DotColor
));
2851 if (lbTextureList
.ItemIndex
<> -1) and (cbPreview
.Checked
) and
2852 (not IsSpecialTextureSel()) and (PreviewMode
= 0) then
2854 if not g_GetTexture(SelectedTexture(), ID
) then
2855 g_GetTexture('NOTEXTURE', ID
);
2856 g_GetTextureSizeByID(ID
, Width
, Height
);
2857 if UseCheckerboard
then
2859 if g_GetTexture('PREVIEW', PID
) then
2860 e_DrawFill(PID
, RenderPanel
.Width
-Width
, RenderPanel
.Height
-Height
, Width
div 16 + 1, Height
div 16 + 1, 0, True, False);
2862 e_DrawFillQuad(RenderPanel
.Width
-Width
-2, RenderPanel
.Height
-Height
-2,
2863 RenderPanel
.Width
-1, RenderPanel
.Height
-1,
2864 GetRValue(PreviewColor
), GetGValue(PreviewColor
), GetBValue(PreviewColor
), 0);
2865 e_Draw(ID
, RenderPanel
.Width
-Width
, RenderPanel
.Height
-Height
, 0, True, False);
2868 // Подсказка при выборе точки Телепорта:
2869 if SelectFlag
= SELECTFLAG_TELEPORT
then
2871 with gTriggers
[SelectedObjects
[GetFirstSelected()].ID
] do
2872 if Data
.d2d_teleport
then
2873 e_DrawLine(2, MousePos
.X
-16, MousePos
.Y
-1,
2874 MousePos
.X
+16, MousePos
.Y
-1,
2877 e_DrawQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+AreaSize
[AREA_DMPOINT
].Width
-1,
2878 MousePos
.Y
+AreaSize
[AREA_DMPOINT
].Height
-1, 255, 255, 255);
2880 e_DrawFillQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+180, MousePos
.Y
+18, 192, 192, 192, 127);
2881 e_DrawQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+180, MousePos
.Y
+18, 255, 255, 255);
2882 PrintBlack(MousePos
.X
+2, MousePos
.Y
+2, _glc
[I_HINT_TELEPORT
], gEditorFont
);
2885 // Подсказка при выборе точки появления:
2886 if SelectFlag
= SELECTFLAG_SPAWNPOINT
then
2888 e_DrawLine(2, MousePos
.X
-16, MousePos
.Y
-1,
2889 MousePos
.X
+16, MousePos
.Y
-1,
2891 e_DrawFillQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+180, MousePos
.Y
+18, 192, 192, 192, 127);
2892 e_DrawQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+180, MousePos
.Y
+18, 255, 255, 255);
2893 PrintBlack(MousePos
.X
+2, MousePos
.Y
+2, _glc
[I_HINT_SPAWN
], gEditorFont
);
2896 // Подсказка при выборе панели двери:
2897 if SelectFlag
= SELECTFLAG_DOOR
then
2899 e_DrawFillQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+180, MousePos
.Y
+18, 192, 192, 192, 127);
2900 e_DrawQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+180, MousePos
.Y
+18, 255, 255, 255);
2901 PrintBlack(MousePos
.X
+2, MousePos
.Y
+2, _glc
[I_HINT_PANEL_DOOR
], gEditorFont
);
2904 // Подсказка при выборе панели с текстурой:
2905 if SelectFlag
= SELECTFLAG_TEXTURE
then
2907 e_DrawFillQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+196, MousePos
.Y
+18, 192, 192, 192, 127);
2908 e_DrawQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+196, MousePos
.Y
+18, 255, 255, 255);
2909 PrintBlack(MousePos
.X
+2, MousePos
.Y
+2, _glc
[I_HINT_PANEL_TEXTURE
], gEditorFont
);
2912 // Подсказка при выборе панели индикации выстрела:
2913 if SelectFlag
= SELECTFLAG_SHOTPANEL
then
2915 e_DrawFillQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+316, MousePos
.Y
+18, 192, 192, 192, 127);
2916 e_DrawQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+316, MousePos
.Y
+18, 255, 255, 255);
2917 PrintBlack(MousePos
.X
+2, MousePos
.Y
+2, _glc
[I_HINT_PANEL_SHOT
], gEditorFont
);
2920 // Подсказка при выборе панели лифта:
2921 if SelectFlag
= SELECTFLAG_LIFT
then
2923 e_DrawFillQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+180, MousePos
.Y
+18, 192, 192, 192, 127);
2924 e_DrawQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+180, MousePos
.Y
+18, 255, 255, 255);
2925 PrintBlack(MousePos
.X
+2, MousePos
.Y
+2, _glc
[I_HINT_PANEL_LIFT
], gEditorFont
);
2928 // Подсказка при выборе монстра:
2929 if SelectFlag
= SELECTFLAG_MONSTER
then
2931 e_DrawFillQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+120, MousePos
.Y
+18, 192, 192, 192, 127);
2932 e_DrawQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+120, MousePos
.Y
+18, 255, 255, 255);
2933 PrintBlack(MousePos
.X
+2, MousePos
.Y
+2, _glc
[I_HINT_MONSTER
], gEditorFont
);
2936 // Подсказка при выборе области воздействия:
2937 if DrawPressRect
then
2939 e_DrawFillQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+204, MousePos
.Y
+18, 192, 192, 192, 127);
2940 e_DrawQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+204, MousePos
.Y
+18, 255, 255, 255);
2941 PrintBlack(MousePos
.X
+2, MousePos
.Y
+2, _glc
[I_HINT_EXT_AREA
], gEditorFont
);
2944 // Рисуем текстуры, если чертим панель:
2945 if (MouseAction
= MOUSEACTION_DRAWPANEL
) and (DrawTexturePanel
) and
2946 (lbTextureList
.ItemIndex
<> -1) and (DrawRect
<> nil) and
2947 (lbPanelType
.ItemIndex
in [0..8]) and not IsSpecialTextureSel() then
2949 if not g_GetTexture(SelectedTexture(), ID
) then
2950 g_GetTexture('NOTEXTURE', ID
);
2951 g_GetTextureSizeByID(ID
, Width
, Height
);
2953 if (Abs(Right
-Left
) >= Width
) and (Abs(Bottom
-Top
) >= Height
) then
2954 e_DrawFill(ID
, Min(Left
, Right
), Min(Top
, Bottom
), Abs(Right
-Left
) div Width
,
2955 Abs(Bottom
-Top
) div Height
, 64, True, False);
2958 // Прямоугольник выделения:
2959 if DrawRect
<> nil then
2961 e_DrawQuad(Left
, Top
, Right
-1, Bottom
-1, 255, 255, 255);
2963 // Чертим мышью панель/триггер или меняем мышью их размер:
2964 if (((MouseAction
in [MOUSEACTION_DRAWPANEL
, MOUSEACTION_DRAWTRIGGER
]) and
2965 not(ssCtrl
in GetKeyShiftState())) or (MouseAction
= MOUSEACTION_RESIZE
)) and
2966 (DrawPanelSize
) then
2968 e_DrawFillQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+88, MousePos
.Y
+33, 192, 192, 192, 127);
2969 e_DrawQuad(MousePos
.X
, MousePos
.Y
, MousePos
.X
+88, MousePos
.Y
+33, 255, 255, 255);
2971 if MouseAction
in [MOUSEACTION_DRAWPANEL
, MOUSEACTION_DRAWTRIGGER
] then
2972 begin // Чертим новый
2973 PrintBlack(MousePos
.X
+2, MousePos
.Y
+2, Format(_glc
[I_HINT_WIDTH
],
2974 [Abs(MousePos
.X
-MouseLDownPos
.X
)]), gEditorFont
);
2975 PrintBlack(MousePos
.X
+2, MousePos
.Y
+16, Format(_glc
[I_HINT_HEIGHT
],
2976 [Abs(MousePos
.Y
-MouseLDownPos
.Y
)]), gEditorFont
);
2978 else // Растягиваем существующий
2979 if SelectedObjects
[GetFirstSelected
].ObjectType
in [OBJECT_PANEL
, OBJECT_TRIGGER
] then
2981 if SelectedObjects
[GetFirstSelected
].ObjectType
= OBJECT_PANEL
then
2983 Width
:= gPanels
[SelectedObjects
[GetFirstSelected
].ID
].Width
;
2984 Height
:= gPanels
[SelectedObjects
[GetFirstSelected
].ID
].Height
;
2988 Width
:= gTriggers
[SelectedObjects
[GetFirstSelected
].ID
].Width
;
2989 Height
:= gTriggers
[SelectedObjects
[GetFirstSelected
].ID
].Height
;
2992 PrintBlack(MousePos
.X
+2, MousePos
.Y
+2, Format(_glc
[I_HINT_WIDTH
], [Width
]),
2994 PrintBlack(MousePos
.X
+2, MousePos
.Y
+16, Format(_glc
[I_HINT_HEIGHT
], [Height
]),
2999 // Ближайшая к курсору мыши точка на сетке:
3000 e_DrawPoint(3, MousePos
.X
, MousePos
.Y
, 0, 0, 255);
3005 // Сколько пикселов карты в 1 пикселе мини-карты:
3006 ScaleSz
:= 16 div Scale
;
3007 // Размеры мини-карты:
3008 aX
:= max(gMapInfo
.Width
div ScaleSz
, 1);
3009 aY
:= max(gMapInfo
.Height
div ScaleSz
, 1);
3010 // X-координата на RenderPanel нулевой x-координаты карты:
3011 XX
:= RenderPanel
.Width
- aX
- 1;
3013 e_DrawFillQuad(XX
-1, 0, RenderPanel
.Width
-1, aY
+1, 0, 0, 0, 0);
3014 e_DrawQuad(XX
-1, 0, RenderPanel
.Width
-1, aY
+1, 197, 197, 197);
3016 if gPanels
<> nil then
3019 for a
:= 0 to High(gPanels
) do
3021 if PanelType
<> 0 then
3023 // Левый верхний угол:
3024 aX
:= XX
+ (X
div ScaleSz
);
3025 aY
:= 1 + (Y
div ScaleSz
);
3027 aX2
:= max(Width
div ScaleSz
, 1);
3028 aY2
:= max(Height
div ScaleSz
, 1);
3029 // Правый нижний угол:
3030 aX2
:= aX
+ aX2
- 1;
3031 aY2
:= aY
+ aY2
- 1;
3034 PANEL_WALL
: e_DrawFillQuad(aX
, aY
, aX2
, aY2
, 208, 208, 208, 0);
3035 PANEL_WATER
: e_DrawFillQuad(aX
, aY
, aX2
, aY2
, 0, 0, 192, 0);
3036 PANEL_ACID1
: e_DrawFillQuad(aX
, aY
, aX2
, aY2
, 0, 176, 0, 0);
3037 PANEL_ACID2
: e_DrawFillQuad(aX
, aY
, aX2
, aY2
, 176, 0, 0, 0);
3038 PANEL_STEP
: e_DrawFillQuad(aX
, aY
, aX2
, aY2
, 128, 128, 128, 0);
3039 PANEL_LIFTUP
: e_DrawFillQuad(aX
, aY
, aX2
, aY2
, 116, 72, 36, 0);
3040 PANEL_LIFTDOWN
: e_DrawFillQuad(aX
, aY
, aX2
, aY2
, 116, 124, 96, 0);
3041 PANEL_LIFTLEFT
: e_DrawFillQuad(aX
, aY
, aX2
, aY2
, 200, 80, 4, 0);
3042 PANEL_LIFTRIGHT
: e_DrawFillQuad(aX
, aY
, aX2
, aY2
, 252, 140, 56, 0);
3043 PANEL_OPENDOOR
: e_DrawFillQuad(aX
, aY
, aX2
, aY2
, 100, 220, 92, 0);
3044 PANEL_CLOSEDOOR
: e_DrawFillQuad(aX
, aY
, aX2
, aY2
, 212, 184, 64, 0);
3045 PANEL_BLOCKMON
: e_DrawFillQuad(aX
, aY
, aX2
, aY2
, 192, 0, 192, 0);
3049 // Рисуем красным выделенные панели:
3050 if SelectedObjects
<> nil then
3051 for b
:= 0 to High(SelectedObjects
) do
3052 with SelectedObjects
[b
] do
3053 if Live
and (ObjectType
= OBJECT_PANEL
) then
3054 with gPanels
[SelectedObjects
[b
].ID
] do
3055 if PanelType
and not(PANEL_BACK
or PANEL_FORE
) <> 0 then
3057 // Левый верхний угол:
3058 aX
:= XX
+ (X
div ScaleSz
);
3059 aY
:= 1 + (Y
div ScaleSz
);
3061 aX2
:= max(Width
div ScaleSz
, 1);
3062 aY2
:= max(Height
div ScaleSz
, 1);
3063 // Правый нижний угол:
3064 aX2
:= aX
+ aX2
- 1;
3065 aY2
:= aY
+ aY2
- 1;
3067 e_DrawFillQuad(aX
, aY
, aX2
, aY2
, 255, 0, 0, 0)
3071 if (gMapInfo
.Width
> RenderPanel
.Width
) or
3072 (gMapInfo
.Height
> RenderPanel
.Height
) then
3074 // Окно, показывающее текущее положение экрана на карте:
3076 x
:= max(min(RenderPanel
.Width
, gMapInfo
.Width
) div ScaleSz
, 1);
3077 y
:= max(min(RenderPanel
.Height
, gMapInfo
.Height
) div ScaleSz
, 1);
3078 // Левый верхний угол:
3079 aX
:= XX
+ ((-MapOffset
.X
) div ScaleSz
);
3080 aY
:= 1 + ((-MapOffset
.Y
) div ScaleSz
);
3081 // Правый нижний угол:
3085 e_DrawFillQuad(aX
, aY
, aX2
, aY2
, 127, 192, 127, 127, B_BLEND
);
3086 e_DrawQuad(aX
, aY
, aX2
, aY2
, 255, 0, 0);
3091 RenderPanel
.SwapBuffers();
3094 procedure TMainForm
.FormResize(Sender
: TObject
);
3096 e_SetViewPort(0, 0, RenderPanel
.Width
, RenderPanel
.Height
);
3098 if gMapInfo
.Width
>= RenderPanel
.Width
then
3099 sbHorizontal
.Max
:= Normalize16(gMapInfo
.Width
-RenderPanel
.Width
+16)
3101 sbHorizontal
.Max
:= 0;
3103 if gMapInfo
.Height
>= RenderPanel
.Height
then
3104 sbVertical
.Max
:= Normalize16(gMapInfo
.Height
-RenderPanel
.Height
+16)
3106 sbVertical
.Max
:= 0;
3108 MapOffset
.X
:= -Normalize16(sbHorizontal
.Position
);
3109 MapOffset
.Y
:= -Normalize16(sbVertical
.Position
);
3112 procedure SelectNextObject(X
, Y
: Integer; ObjectType
: Byte; ID
: DWORD
);
3117 j_max
:= 0; // shut up compiler
3121 res
:= (gPanels
<> nil) and
3122 PanelInShownLayer(gPanels
[ID
].PanelType
) and
3123 g_CollidePoint(X
, Y
, gPanels
[ID
].X
, gPanels
[ID
].Y
,
3125 gPanels
[ID
].Height
);
3126 j_max
:= Length(gPanels
) - 1;
3131 res
:= (gItems
<> nil) and
3132 LayerEnabled
[LAYER_ITEMS
] and
3133 g_CollidePoint(X
, Y
, gItems
[ID
].X
, gItems
[ID
].Y
,
3134 ItemSize
[gItems
[ID
].ItemType
][0],
3135 ItemSize
[gItems
[ID
].ItemType
][1]);
3136 j_max
:= Length(gItems
) - 1;
3141 res
:= (gMonsters
<> nil) and
3142 LayerEnabled
[LAYER_MONSTERS
] and
3143 g_CollidePoint(X
, Y
, gMonsters
[ID
].X
, gMonsters
[ID
].Y
,
3144 MonsterSize
[gMonsters
[ID
].MonsterType
].Width
,
3145 MonsterSize
[gMonsters
[ID
].MonsterType
].Height
);
3146 j_max
:= Length(gMonsters
) - 1;
3151 res
:= (gAreas
<> nil) and
3152 LayerEnabled
[LAYER_AREAS
] and
3153 g_CollidePoint(X
, Y
, gAreas
[ID
].X
, gAreas
[ID
].Y
,
3154 AreaSize
[gAreas
[ID
].AreaType
].Width
,
3155 AreaSize
[gAreas
[ID
].AreaType
].Height
);
3156 j_max
:= Length(gAreas
) - 1;
3161 res
:= (gTriggers
<> nil) and
3162 LayerEnabled
[LAYER_TRIGGERS
] and
3163 g_CollidePoint(X
, Y
, gTriggers
[ID
].X
, gTriggers
[ID
].Y
,
3164 gTriggers
[ID
].Width
,
3165 gTriggers
[ID
].Height
);
3166 j_max
:= Length(gTriggers
) - 1;
3176 // Перебор ID: от ID-1 до 0; потом от High до ID+1:
3185 if j
= Integer(ID
) then
3190 res
:= PanelInShownLayer(gPanels
[j
].PanelType
) and
3191 g_CollidePoint(X
, Y
, gPanels
[j
].X
, gPanels
[j
].Y
,
3195 res
:= (gItems
[j
].ItemType
<> ITEM_NONE
) and
3196 g_CollidePoint(X
, Y
, gItems
[j
].X
, gItems
[j
].Y
,
3197 ItemSize
[gItems
[j
].ItemType
][0],
3198 ItemSize
[gItems
[j
].ItemType
][1]);
3200 res
:= (gMonsters
[j
].MonsterType
<> MONSTER_NONE
) and
3201 g_CollidePoint(X
, Y
, gMonsters
[j
].X
, gMonsters
[j
].Y
,
3202 MonsterSize
[gMonsters
[j
].MonsterType
].Width
,
3203 MonsterSize
[gMonsters
[j
].MonsterType
].Height
);
3205 res
:= (gAreas
[j
].AreaType
<> AREA_NONE
) and
3206 g_CollidePoint(X
, Y
, gAreas
[j
].X
, gAreas
[j
].Y
,
3207 AreaSize
[gAreas
[j
].AreaType
].Width
,
3208 AreaSize
[gAreas
[j
].AreaType
].Height
);
3210 res
:= (gTriggers
[j
].TriggerType
<> TRIGGER_NONE
) and
3211 g_CollidePoint(X
, Y
, gTriggers
[j
].X
, gTriggers
[j
].Y
,
3213 gTriggers
[j
].Height
);
3220 SetLength(SelectedObjects
, 1);
3222 SelectedObjects
[0].ObjectType
:= ObjectType
;
3223 SelectedObjects
[0].ID
:= j
;
3224 SelectedObjects
[0].Live
:= True;
3232 procedure TMainForm
.RenderPanelMouseDown(Sender
: TObject
;
3233 Button
: TMouseButton
; Shift
: TShiftState
; X
, Y
: Integer);
3237 c1
, c2
, c3
, c4
: Boolean;
3243 MainForm
.ActiveControl
:= RenderPanel
;
3244 RenderPanel
.SetFocus();
3246 RenderPanelMouseMove(RenderPanel
, Shift
, X
, Y
);
3248 if Button
= mbLeft
then // Left Mouse Button
3250 // Двигаем карту с помощью мыши и мини-карты:
3252 g_CollidePoint(X
, Y
,
3253 RenderPanel
.Width
-max(gMapInfo
.Width
div (16 div Scale
), 1)-1,
3255 max(gMapInfo
.Width
div (16 div Scale
), 1),
3256 max(gMapInfo
.Height
div (16 div Scale
), 1) ) then
3259 MouseAction
:= MOUSEACTION_MOVEMAP
;
3261 else // Ставим предмет/монстра/область:
3262 if (pcObjects
.ActivePageIndex
in [1, 2, 3]) and
3263 (not (ssShift
in Shift
)) then
3265 case pcObjects
.ActivePageIndex
of
3267 if lbItemList
.ItemIndex
= -1 then
3268 ErrorMessageBox(_lc
[I_MSG_CHOOSE_ITEM
])
3271 item
.ItemType
:= lbItemList
.ItemIndex
+ ITEM_MEDKIT_SMALL
;
3272 if item
.ItemType
>= ITEM_WEAPON_KASTET
then
3273 item
.ItemType
:= item
.ItemType
+ 2;
3274 item
.X
:= MousePos
.X
-MapOffset
.X
;
3275 item
.Y
:= MousePos
.Y
-MapOffset
.Y
;
3277 if not (ssCtrl
in Shift
) then
3279 item
.X
:= item
.X
- (ItemSize
[item
.ItemType
][0] div 2);
3280 item
.Y
:= item
.Y
- ItemSize
[item
.ItemType
][1];
3283 item
.OnlyDM
:= cbOnlyDM
.Checked
;
3284 item
.Fall
:= cbFall
.Checked
;
3285 Undo_Add(OBJECT_ITEM
, AddItem(item
));
3288 if lbMonsterList
.ItemIndex
= -1 then
3289 ErrorMessageBox(_lc
[I_MSG_CHOOSE_MONSTER
])
3292 monster
.MonsterType
:= lbMonsterList
.ItemIndex
+ MONSTER_DEMON
;
3293 monster
.X
:= MousePos
.X
-MapOffset
.X
;
3294 monster
.Y
:= MousePos
.Y
-MapOffset
.Y
;
3296 if not (ssCtrl
in Shift
) then
3298 monster
.X
:= monster
.X
- (MonsterSize
[monster
.MonsterType
].Width
div 2);
3299 monster
.Y
:= monster
.Y
- MonsterSize
[monster
.MonsterType
].Height
;
3302 if rbMonsterLeft
.Checked
then
3303 monster
.Direction
:= D_LEFT
3305 monster
.Direction
:= D_RIGHT
;
3306 Undo_Add(OBJECT_MONSTER
, AddMonster(monster
));
3309 if lbAreasList
.ItemIndex
= -1 then
3310 ErrorMessageBox(_lc
[I_MSG_CHOOSE_AREA
])
3312 if (lbAreasList
.ItemIndex
+ 1) <> AREA_DOMFLAG
then
3314 area
.AreaType
:= lbAreasList
.ItemIndex
+ AREA_PLAYERPOINT1
;
3315 area
.X
:= MousePos
.X
-MapOffset
.X
;
3316 area
.Y
:= MousePos
.Y
-MapOffset
.Y
;
3318 if not (ssCtrl
in Shift
) then
3320 area
.X
:= area
.X
- (AreaSize
[area
.AreaType
].Width
div 2);
3321 area
.Y
:= area
.Y
- AreaSize
[area
.AreaType
].Height
;
3324 if rbAreaLeft
.Checked
then
3325 area
.Direction
:= D_LEFT
3327 area
.Direction
:= D_RIGHT
;
3328 Undo_Add(OBJECT_AREA
, AddArea(area
));
3334 i
:= GetFirstSelected();
3336 // Выбираем объект под текущим:
3337 if (SelectedObjects
<> nil) and
3338 (ssShift
in Shift
) and (i
>= 0) and
3339 (SelectedObjects
[i
].Live
) then
3341 if SelectedObjectCount() = 1 then
3342 SelectNextObject(X
-MapOffset
.X
, Y
-MapOffset
.Y
,
3343 SelectedObjects
[i
].ObjectType
,
3344 SelectedObjects
[i
].ID
);
3348 // Рисуем область триггера "Расширитель":
3349 if DrawPressRect
and (i
>= 0) and
3350 (SelectedObjects
[i
].ObjectType
= OBJECT_TRIGGER
) and
3351 (gTriggers
[SelectedObjects
[i
].ID
].TriggerType
in
3352 [TRIGGER_PRESS
, TRIGGER_ON
, TRIGGER_OFF
, TRIGGER_ONOFF
]) then
3353 MouseAction
:= MOUSEACTION_DRAWPRESS
3354 else // Рисуем панель:
3355 if pcObjects
.ActivePageIndex
= 0 then
3357 if (lbPanelType
.ItemIndex
>= 0) then
3358 MouseAction
:= MOUSEACTION_DRAWPANEL
3360 else // Рисуем триггер:
3361 if (lbTriggersList
.ItemIndex
>= 0) then
3363 MouseAction
:= MOUSEACTION_DRAWTRIGGER
;
3367 end; // if Button = mbLeft
3369 if Button
= mbRight
then // Right Mouse Button
3371 // Клик по мини-карте:
3373 g_CollidePoint(X
, Y
,
3374 RenderPanel
.Width
-max(gMapInfo
.Width
div (16 div Scale
), 1)-1,
3376 max(gMapInfo
.Width
div (16 div Scale
), 1),
3377 max(gMapInfo
.Height
div (16 div Scale
), 1) ) then
3379 MouseAction
:= MOUSEACTION_NOACTION
;
3381 else // Нужно что-то выбрать мышью:
3382 if SelectFlag
<> SELECTFLAG_NONE
then
3385 SELECTFLAG_TELEPORT
:
3386 // Точку назначения телепортации:
3387 with gTriggers
[SelectedObjects
[
3388 GetFirstSelected() ].ID
].Data
.TargetPoint
do
3390 X
:= MousePos
.X
-MapOffset
.X
;
3391 Y
:= MousePos
.Y
-MapOffset
.Y
;
3394 SELECTFLAG_SPAWNPOINT
:
3395 // Точку создания монстра:
3396 with gTriggers
[SelectedObjects
[GetFirstSelected()].ID
] do
3397 if TriggerType
= TRIGGER_SPAWNMONSTER
then
3399 Data
.MonPos
.X
:= MousePos
.X
-MapOffset
.X
;
3400 Data
.MonPos
.Y
:= MousePos
.Y
-MapOffset
.Y
;
3402 else if TriggerType
= TRIGGER_SPAWNITEM
then
3403 begin // Точка создания предмета:
3404 Data
.ItemPos
.X
:= MousePos
.X
-MapOffset
.X
;
3405 Data
.ItemPos
.Y
:= MousePos
.Y
-MapOffset
.Y
;
3407 else if TriggerType
= TRIGGER_SHOT
then
3408 begin // Точка создания выстрела:
3409 Data
.ShotPos
.X
:= MousePos
.X
-MapOffset
.X
;
3410 Data
.ShotPos
.Y
:= MousePos
.Y
-MapOffset
.Y
;
3416 IDArray
:= ObjectInRect(X
-MapOffset
.X
,
3418 2, 2, OBJECT_PANEL
, True);
3419 if IDArray
<> nil then
3421 for i
:= 0 to High(IDArray
) do
3422 if (gPanels
[IDArray
[i
]].PanelType
= PANEL_OPENDOOR
) or
3423 (gPanels
[IDArray
[i
]].PanelType
= PANEL_CLOSEDOOR
) then
3425 gTriggers
[SelectedObjects
[
3426 GetFirstSelected() ].ID
].Data
.PanelID
:= IDArray
[i
];
3431 gTriggers
[SelectedObjects
[
3432 GetFirstSelected() ].ID
].Data
.PanelID
:= -1;
3436 // Панель с текстурой:
3438 IDArray
:= ObjectInRect(X
-MapOffset
.X
,
3440 2, 2, OBJECT_PANEL
, True);
3441 if IDArray
<> nil then
3443 for i
:= 0 to High(IDArray
) do
3444 if ((gPanels
[IDArray
[i
]].PanelType
in
3445 [PANEL_WALL
, PANEL_BACK
, PANEL_FORE
,
3446 PANEL_WATER
, PANEL_ACID1
, PANEL_ACID2
,
3448 (gPanels
[IDArray
[i
]].PanelType
= PANEL_OPENDOOR
) or
3449 (gPanels
[IDArray
[i
]].PanelType
= PANEL_CLOSEDOOR
)) and
3450 (gPanels
[IDArray
[i
]].TextureName
<> '') then
3452 gTriggers
[SelectedObjects
[
3453 GetFirstSelected() ].ID
].TexturePanel
:= IDArray
[i
];
3458 gTriggers
[SelectedObjects
[
3459 GetFirstSelected() ].ID
].TexturePanel
:= -1;
3465 IDArray
:= ObjectInRect(X
-MapOffset
.X
,
3467 2, 2, OBJECT_PANEL
, True);
3468 if IDArray
<> nil then
3470 for i
:= 0 to High(IDArray
) do
3471 if (gPanels
[IDArray
[i
]].PanelType
= PANEL_LIFTUP
) or
3472 (gPanels
[IDArray
[i
]].PanelType
= PANEL_LIFTDOWN
) or
3473 (gPanels
[IDArray
[i
]].PanelType
= PANEL_LIFTLEFT
) or
3474 (gPanels
[IDArray
[i
]].PanelType
= PANEL_LIFTRIGHT
) then
3476 gTriggers
[SelectedObjects
[
3477 GetFirstSelected() ].ID
].Data
.PanelID
:= IDArray
[i
];
3482 gTriggers
[SelectedObjects
[
3483 GetFirstSelected() ].ID
].Data
.PanelID
:= -1;
3489 IDArray
:= ObjectInRect(X
-MapOffset
.X
,
3491 2, 2, OBJECT_MONSTER
, False);
3492 if IDArray
<> nil then
3493 gTriggers
[SelectedObjects
[
3494 GetFirstSelected() ].ID
].Data
.MonsterID
:= IDArray
[0]+1
3496 gTriggers
[SelectedObjects
[
3497 GetFirstSelected() ].ID
].Data
.MonsterID
:= 0;
3500 SELECTFLAG_SHOTPANEL
:
3501 // Панель индикации выстрела:
3503 if gTriggers
[SelectedObjects
[
3504 GetFirstSelected() ].ID
].TriggerType
= TRIGGER_SHOT
then
3506 IDArray
:= ObjectInRect(X
-MapOffset
.X
,
3508 2, 2, OBJECT_PANEL
, True);
3509 if IDArray
<> nil then
3511 for i
:= 0 to High(IDArray
) do
3512 if ((gPanels
[IDArray
[i
]].PanelType
in
3513 [PANEL_WALL
, PANEL_BACK
, PANEL_FORE
,
3514 PANEL_WATER
, PANEL_ACID1
, PANEL_ACID2
,
3516 (gPanels
[IDArray
[i
]].PanelType
= PANEL_OPENDOOR
) or
3517 (gPanels
[IDArray
[i
]].PanelType
= PANEL_CLOSEDOOR
)) and
3518 (gPanels
[IDArray
[i
]].TextureName
<> '') then
3520 gTriggers
[SelectedObjects
[
3521 GetFirstSelected() ].ID
].Data
.ShotPanelID
:= IDArray
[i
];
3526 gTriggers
[SelectedObjects
[
3527 GetFirstSelected() ].ID
].Data
.ShotPanelID
:= -1;
3532 SelectFlag
:= SELECTFLAG_SELECTED
;
3534 else // if SelectFlag <> SELECTFLAG_NONE...
3536 // Что уже выбрано и не нажат Ctrl:
3537 if (SelectedObjects
<> nil) and
3538 (not (ssCtrl
in Shift
)) then
3539 for i
:= 0 to High(SelectedObjects
) do
3540 with SelectedObjects
[i
] do
3543 if (ObjectType
in [OBJECT_PANEL
, OBJECT_TRIGGER
]) and
3544 (SelectedObjectCount() = 1) then
3546 Rect
:= ObjectGetRect(ObjectType
, ID
);
3548 c1
:= g_Collide(X
-MapOffset
.X
-1, Y
-MapOffset
.Y
-1, 2, 2,
3549 Rect
.X
-2, Rect
.Y
+(Rect
.Height
div 2)-2, 4, 4);
3550 c2
:= g_Collide(X
-MapOffset
.X
-1, Y
-MapOffset
.Y
-1, 2, 2,
3551 Rect
.X
+Rect
.Width
-3, Rect
.Y
+(Rect
.Height
div 2)-2, 4, 4);
3552 c3
:= g_Collide(X
-MapOffset
.X
-1, Y
-MapOffset
.Y
-1, 2, 2,
3553 Rect
.X
+(Rect
.Width
div 2)-2, Rect
.Y
-2, 4, 4);
3554 c4
:= g_Collide(X
-MapOffset
.X
-1, Y
-MapOffset
.Y
-1, 2, 2,
3555 Rect
.X
+(Rect
.Width
div 2)-2, Rect
.Y
+Rect
.Height
-3, 4, 4);
3557 // Меняем размер панели или триггера:
3558 if c1
or c2
or c3
or c4
then
3560 MouseAction
:= MOUSEACTION_RESIZE
;
3561 LastMovePoint
:= MousePos
;
3565 ResizeType
:= RESIZETYPE_HORIZONTAL
;
3567 ResizeDirection
:= RESIZEDIR_LEFT
3569 ResizeDirection
:= RESIZEDIR_RIGHT
;
3570 RenderPanel
.Cursor
:= crSizeWE
;
3574 ResizeType
:= RESIZETYPE_VERTICAL
;
3576 ResizeDirection
:= RESIZEDIR_UP
3578 ResizeDirection
:= RESIZEDIR_DOWN
;
3579 RenderPanel
.Cursor
:= crSizeNS
;
3586 // Перемещаем панель или триггер:
3587 if ObjectCollide(ObjectType
, ID
,
3589 Y
-MapOffset
.Y
-1, 2, 2) then
3591 MouseAction
:= MOUSEACTION_MOVEOBJ
;
3592 LastMovePoint
:= MousePos
;
3598 end; // if Button = mbRight
3600 MouseRDown
:= Button
= mbRight
;
3602 MouseRDownPos
:= MousePos
;
3604 MouseLDown
:= Button
= mbLeft
;
3606 MouseLDownPos
:= MousePos
;
3609 procedure TMainForm
.RenderPanelMouseUp(Sender
: TObject
;
3610 Button
: TMouseButton
; Shift
: TShiftState
; X
, Y
: Integer);
3617 rSelectRect
: Boolean;
3618 wWidth
, wHeight
: Word;
3621 if Button
= mbLeft
then
3622 MouseLDown
:= False;
3623 if Button
= mbRight
then
3624 MouseRDown
:= False;
3627 ResizeType
:= RESIZETYPE_NONE
;
3630 if Button
= mbLeft
then // Left Mouse Button
3632 if MouseAction
<> MOUSEACTION_NONE
then
3633 begin // Было действие мышью
3634 // Мышь сдвинулась во время удержания клавиши,
3635 // либо активирован режим быстрого рисования:
3636 if ((MousePos
.X
<> MouseLDownPos
.X
) and
3637 (MousePos
.Y
<> MouseLDownPos
.Y
)) or
3638 ((MouseAction
in [MOUSEACTION_DRAWPANEL
, MOUSEACTION_DRAWTRIGGER
]) and
3639 (ssCtrl
in Shift
)) then
3642 MOUSEACTION_DRAWPANEL
:
3644 // Фон или передний план без текстуры - ошибка:
3645 if (lbPanelType
.ItemIndex
in [1, 2]) and
3646 (lbTextureList
.ItemIndex
= -1) then
3647 ErrorMessageBox(_lc
[I_MSG_CHOOSE_TEXTURE
])
3648 else // Назначаем параметры панели:
3650 case lbPanelType
.ItemIndex
of
3651 0: Panel
.PanelType
:= PANEL_WALL
;
3652 1: Panel
.PanelType
:= PANEL_BACK
;
3653 2: Panel
.PanelType
:= PANEL_FORE
;
3654 3: Panel
.PanelType
:= PANEL_OPENDOOR
;
3655 4: Panel
.PanelType
:= PANEL_CLOSEDOOR
;
3656 5: Panel
.PanelType
:= PANEL_STEP
;
3657 6: Panel
.PanelType
:= PANEL_WATER
;
3658 7: Panel
.PanelType
:= PANEL_ACID1
;
3659 8: Panel
.PanelType
:= PANEL_ACID2
;
3660 9: Panel
.PanelType
:= PANEL_LIFTUP
;
3661 10: Panel
.PanelType
:= PANEL_LIFTDOWN
;
3662 11: Panel
.PanelType
:= PANEL_LIFTLEFT
;
3663 12: Panel
.PanelType
:= PANEL_LIFTRIGHT
;
3664 13: Panel
.PanelType
:= PANEL_BLOCKMON
;
3667 Panel
.X
:= Min(MousePos
.X
-MapOffset
.X
, MouseLDownPos
.X
-MapOffset
.X
);
3668 Panel
.Y
:= Min(MousePos
.Y
-MapOffset
.Y
, MouseLDownPos
.Y
-MapOffset
.Y
);
3669 if ssCtrl
in Shift
then
3673 if (lbTextureList
.ItemIndex
<> -1) and
3674 (not IsSpecialTextureSel()) then
3676 if not g_GetTexture(SelectedTexture(), TextureID
) then
3677 g_GetTexture('NOTEXTURE', TextureID
);
3678 g_GetTextureSizeByID(TextureID
, wWidth
, wHeight
);
3680 Panel
.Width
:= wWidth
;
3681 Panel
.Height
:= wHeight
;
3685 Panel
.Width
:= Abs(MousePos
.X
-MouseLDownPos
.X
);
3686 Panel
.Height
:= Abs(MousePos
.Y
-MouseLDownPos
.Y
);
3689 // Лифты, блокМон или отсутствие текстуры - пустая текстура:
3690 if (lbPanelType
.ItemIndex
in [9, 10, 11, 12, 13]) or
3691 (lbTextureList
.ItemIndex
= -1) then
3693 Panel
.TextureHeight
:= 1;
3694 Panel
.TextureWidth
:= 1;
3695 Panel
.TextureName
:= '';
3696 Panel
.TextureID
:= TEXTURE_SPECIAL_NONE
;
3698 else // Есть текстура:
3700 Panel
.TextureName
:= SelectedTexture();
3702 // Обычная текстура:
3703 if not IsSpecialTextureSel() then
3705 g_GetTextureSizeByName(Panel
.TextureName
,
3706 Panel
.TextureWidth
, Panel
.TextureHeight
);
3707 g_GetTexture(Panel
.TextureName
, Panel
.TextureID
);
3709 else // Спец.текстура:
3711 Panel
.TextureHeight
:= 1;
3712 Panel
.TextureWidth
:= 1;
3713 Panel
.TextureID
:= SpecialTextureID(SelectedTexture());
3718 Panel
.Blending
:= False;
3720 Undo_Add(OBJECT_PANEL
, AddPanel(Panel
));
3724 // Рисовали триггер:
3725 MOUSEACTION_DRAWTRIGGER
:
3727 trigger
.X
:= Min(MousePos
.X
-MapOffset
.X
, MouseLDownPos
.X
-MapOffset
.X
);
3728 trigger
.Y
:= Min(MousePos
.Y
-MapOffset
.Y
, MouseLDownPos
.Y
-MapOffset
.Y
);
3729 if ssCtrl
in Shift
then
3733 trigger
.Width
:= wWidth
;
3734 trigger
.Height
:= wHeight
;
3738 trigger
.Width
:= Abs(MousePos
.X
-MouseLDownPos
.X
);
3739 trigger
.Height
:= Abs(MousePos
.Y
-MouseLDownPos
.Y
);
3742 trigger
.Enabled
:= True;
3743 trigger
.TriggerType
:= lbTriggersList
.ItemIndex
+1;
3744 trigger
.TexturePanel
:= -1;
3747 trigger
.ActivateType
:= 0;
3749 if clbActivationType
.Checked
[0] then
3750 trigger
.ActivateType
:= Trigger
.ActivateType
or ACTIVATE_PLAYERCOLLIDE
;
3751 if clbActivationType
.Checked
[1] then
3752 trigger
.ActivateType
:= Trigger
.ActivateType
or ACTIVATE_MONSTERCOLLIDE
;
3753 if clbActivationType
.Checked
[2] then
3754 trigger
.ActivateType
:= Trigger
.ActivateType
or ACTIVATE_PLAYERPRESS
;
3755 if clbActivationType
.Checked
[3] then
3756 trigger
.ActivateType
:= Trigger
.ActivateType
or ACTIVATE_MONSTERPRESS
;
3757 if clbActivationType
.Checked
[4] then
3758 trigger
.ActivateType
:= Trigger
.ActivateType
or ACTIVATE_SHOT
;
3759 if clbActivationType
.Checked
[5] then
3760 trigger
.ActivateType
:= Trigger
.ActivateType
or ACTIVATE_NOMONSTER
;
3762 // Необходимые для активации ключи:
3765 if clbKeys
.Checked
[0] then
3766 trigger
.Key
:= Trigger
.Key
or KEY_RED
;
3767 if clbKeys
.Checked
[1] then
3768 trigger
.Key
:= Trigger
.Key
or KEY_GREEN
;
3769 if clbKeys
.Checked
[2] then
3770 trigger
.Key
:= Trigger
.Key
or KEY_BLUE
;
3771 if clbKeys
.Checked
[3] then
3772 trigger
.Key
:= Trigger
.Key
or KEY_REDTEAM
;
3773 if clbKeys
.Checked
[4] then
3774 trigger
.Key
:= Trigger
.Key
or KEY_BLUETEAM
;
3776 // Параметры триггера:
3777 FillByte(trigger
.Data
.Default
[0], 128, 0);
3779 case trigger
.TriggerType
of
3780 // Переключаемая панель:
3781 TRIGGER_OPENDOOR
, TRIGGER_CLOSEDOOR
, TRIGGER_DOOR
,
3782 TRIGGER_DOOR5
, TRIGGER_CLOSETRAP
, TRIGGER_TRAP
,
3783 TRIGGER_LIFTUP
, TRIGGER_LIFTDOWN
, TRIGGER_LIFT
:
3785 Trigger
.Data
.PanelID
:= -1;
3791 trigger
.Data
.TargetPoint
.X
:= trigger
.X
-64;
3792 trigger
.Data
.TargetPoint
.Y
:= trigger
.Y
-64;
3793 trigger
.Data
.d2d_teleport
:= True;
3794 trigger
.Data
.TlpDir
:= 0;
3797 // Изменение других триггеров:
3798 TRIGGER_PRESS
, TRIGGER_ON
, TRIGGER_OFF
,
3801 trigger
.Data
.Count
:= 1;
3807 trigger
.Data
.Volume
:= 255;
3808 trigger
.Data
.Pan
:= 127;
3809 trigger
.Data
.PlayCount
:= 1;
3810 trigger
.Data
.Local
:= True;
3811 trigger
.Data
.SoundSwitch
:= False;
3817 trigger
.Data
.MusicAction
:= 1;
3820 // Создание монстра:
3821 TRIGGER_SPAWNMONSTER
:
3823 trigger
.Data
.MonType
:= MONSTER_ZOMBY
;
3824 trigger
.Data
.MonPos
.X
:= trigger
.X
-64;
3825 trigger
.Data
.MonPos
.Y
:= trigger
.Y
-64;
3826 trigger
.Data
.MonHealth
:= 0;
3827 trigger
.Data
.MonActive
:= False;
3828 trigger
.Data
.MonCount
:= 1;
3831 // Создание предмета:
3834 trigger
.Data
.ItemType
:= ITEM_AMMO_BULLETS
;
3835 trigger
.Data
.ItemPos
.X
:= trigger
.X
-64;
3836 trigger
.Data
.ItemPos
.Y
:= trigger
.Y
-64;
3837 trigger
.Data
.ItemOnlyDM
:= False;
3838 trigger
.Data
.ItemFalls
:= False;
3839 trigger
.Data
.ItemCount
:= 1;
3840 trigger
.Data
.ItemMax
:= 0;
3841 trigger
.Data
.ItemDelay
:= 0;
3847 trigger
.Data
.PushAngle
:= 90;
3848 trigger
.Data
.PushForce
:= 10;
3849 trigger
.Data
.ResetVel
:= True;
3854 trigger
.Data
.ScoreCount
:= 1;
3855 trigger
.Data
.ScoreCon
:= True;
3856 trigger
.Data
.ScoreMsg
:= True;
3861 trigger
.Data
.MessageKind
:= 0;
3862 trigger
.Data
.MessageSendTo
:= 0;
3863 trigger
.Data
.MessageText
:= '';
3864 trigger
.Data
.MessageTime
:= 144;
3869 trigger
.Data
.DamageValue
:= 5;
3870 trigger
.Data
.DamageInterval
:= 12;
3875 trigger
.Data
.HealValue
:= 5;
3876 trigger
.Data
.HealInterval
:= 36;
3881 trigger
.Data
.ShotType
:= TRIGGER_SHOT_BULLET
;
3882 trigger
.Data
.ShotSound
:= True;
3883 trigger
.Data
.ShotPanelID
:= -1;
3884 trigger
.Data
.ShotTarget
:= 0;
3885 trigger
.Data
.ShotIntSight
:= 0;
3886 trigger
.Data
.ShotAim
:= TRIGGER_SHOT_AIM_DEFAULT
;
3887 trigger
.Data
.ShotPos
.X
:= trigger
.X
-64;
3888 trigger
.Data
.ShotPos
.Y
:= trigger
.Y
-64;
3889 trigger
.Data
.ShotAngle
:= 0;
3890 trigger
.Data
.ShotWait
:= 18;
3891 trigger
.Data
.ShotAccuracy
:= 0;
3892 trigger
.Data
.ShotAmmo
:= 0;
3893 trigger
.Data
.ShotIntReload
:= 0;
3898 trigger
.Data
.FXCount
:= 1;
3899 trigger
.Data
.FXType
:= TRIGGER_EFFECT_PARTICLE
;
3900 trigger
.Data
.FXSubType
:= TRIGGER_EFFECT_SLIQUID
;
3901 trigger
.Data
.FXColorR
:= 0;
3902 trigger
.Data
.FXColorG
:= 0;
3903 trigger
.Data
.FXColorB
:= 255;
3904 trigger
.Data
.FXPos
:= TRIGGER_EFFECT_POS_CENTER
;
3905 trigger
.Data
.FXWait
:= 1;
3906 trigger
.Data
.FXVelX
:= 0;
3907 trigger
.Data
.FXVelY
:= -20;
3908 trigger
.Data
.FXSpreadL
:= 5;
3909 trigger
.Data
.FXSpreadR
:= 5;
3910 trigger
.Data
.FXSpreadU
:= 4;
3911 trigger
.Data
.FXSpreadD
:= 0;
3915 Undo_Add(OBJECT_TRIGGER
, AddTrigger(trigger
));
3918 // Рисовали область триггера "Расширитель":
3919 MOUSEACTION_DRAWPRESS
:
3920 with gTriggers
[SelectedObjects
[GetFirstSelected
].ID
] do
3922 Data
.tX
:= Min(MousePos
.X
-MapOffset
.X
, MouseLDownPos
.X
-MapOffset
.X
);
3923 Data
.tY
:= Min(MousePos
.Y
-MapOffset
.Y
, MouseLDownPos
.Y
-MapOffset
.Y
);
3924 Data
.tWidth
:= Abs(MousePos
.X
-MouseLDownPos
.X
);
3925 Data
.tHeight
:= Abs(MousePos
.Y
-MouseLDownPos
.Y
);
3927 DrawPressRect
:= False;
3931 MouseAction
:= MOUSEACTION_NONE
;
3933 end // if Button = mbLeft...
3934 else // Right Mouse Button:
3936 if MouseAction
= MOUSEACTION_NOACTION
then
3938 MouseAction
:= MOUSEACTION_NONE
;
3942 // Объект передвинут или изменен в размере:
3943 if MouseAction
in [MOUSEACTION_MOVEOBJ
, MOUSEACTION_RESIZE
] then
3945 MouseAction
:= MOUSEACTION_NONE
;
3950 // Еще не все выбрали:
3951 if SelectFlag
<> SELECTFLAG_NONE
then
3953 if SelectFlag
= SELECTFLAG_SELECTED
then
3954 SelectFlag
:= SELECTFLAG_NONE
;
3959 // Мышь сдвинулась во время удержания клавиши:
3960 if (MousePos
.X
<> MouseRDownPos
.X
) and
3961 (MousePos
.Y
<> MouseRDownPos
.Y
) then
3963 rSelectRect
:= True;
3965 rRect
.X
:= Min(MousePos
.X
, MouseRDownPos
.X
)-MapOffset
.X
;
3966 rRect
.Y
:= Min(MousePos
.Y
, MouseRDownPos
.Y
)-MapOffset
.Y
;
3967 rRect
.Width
:= Abs(MousePos
.X
-MouseRDownPos
.X
);
3968 rRect
.Height
:= Abs(MousePos
.Y
-MouseRDownPos
.Y
);
3970 else // Мышь не сдвинулась - нет прямоугольника:
3972 rSelectRect
:= False;
3974 rRect
.X
:= X
-MapOffset
.X
-1;
3975 rRect
.Y
:= Y
-MapOffset
.Y
-1;
3980 // Если зажат Ctrl - выделять еще, иначе только один выделенный объект:
3981 if not (ssCtrl
in Shift
) then
3982 RemoveSelectFromObjects();
3984 // Выделяем всё в выбранном прямоугольнике:
3985 IDArray
:= ObjectInRect(rRect
.X
, rRect
.Y
,
3986 rRect
.Width
, rRect
.Height
,
3987 pcObjects
.ActivePageIndex
+1, rSelectRect
);
3989 if IDArray
<> nil then
3990 for i
:= 0 to High(IDArray
) do
3991 SelectObject(pcObjects
.ActivePageIndex
+1, IDArray
[i
],
3992 (ssCtrl
in Shift
) or rSelectRect
);
3998 procedure TMainForm
.RenderPanelPaint(Sender
: TObject
);
4003 function TMainForm
.RenderMousePos(): Types
.TPoint
;
4005 Result
:= RenderPanel
.ScreenToClient(Mouse
.CursorPos
);
4008 procedure TMainForm
.RenderPanelMouseMove(Sender
: TObject
;
4009 Shift
: TShiftState
; X
, Y
: Integer);
4012 dWidth
, dHeight
: Integer;
4015 wWidth
, wHeight
: Word;
4017 _id
:= GetFirstSelected();
4020 // Рисуем панель с текстурой, сетка - размеры текстуры:
4021 if (MouseAction
= MOUSEACTION_DRAWPANEL
) and
4022 (lbPanelType
.ItemIndex
in [0..8]) and
4023 (lbTextureList
.ItemIndex
<> -1) and
4024 (not IsSpecialTextureSel()) then
4026 sX
:= StrToIntDef(lTextureWidth
.Caption
, DotStep
);
4027 sY
:= StrToIntDef(lTextureHeight
.Caption
, DotStep
);
4030 // Меняем размер панели с текстурой, сетка - размеры текстуры:
4031 if (MouseAction
= MOUSEACTION_RESIZE
) and
4032 ( (SelectedObjects
[_id
].ObjectType
= OBJECT_PANEL
) and
4033 IsTexturedPanel(gPanels
[SelectedObjects
[_id
].ID
].PanelType
) and
4034 (gPanels
[SelectedObjects
[_id
].ID
].TextureName
<> '') and
4035 (not IsSpecialTexture(gPanels
[SelectedObjects
[_id
].ID
].TextureName
)) ) then
4037 sX
:= gPanels
[SelectedObjects
[_id
].ID
].TextureWidth
;
4038 sY
:= gPanels
[SelectedObjects
[_id
].ID
].TextureHeight
;
4041 // Выравнивание по сетке:
4047 else // Нет выравнивания по сетке:
4053 // Новая позиция мыши:
4055 begin // Зажата левая кнопка мыши
4056 MousePos
.X
:= (Round((X
-MouseLDownPos
.X
)/sX
)*sX
)+MouseLDownPos
.X
;
4057 MousePos
.Y
:= (Round((Y
-MouseLDownPos
.Y
)/sY
)*sY
)+MouseLDownPos
.Y
;
4061 begin // Зажата правая кнопка мыши
4062 MousePos
.X
:= (Round((X
-MouseRDownPos
.X
)/sX
)*sX
)+MouseRDownPos
.X
;
4063 MousePos
.Y
:= (Round((Y
-MouseRDownPos
.Y
)/sY
)*sY
)+MouseRDownPos
.Y
;
4066 begin // Кнопки мыши не зажаты
4067 MousePos
.X
:= (Round(X
/sX
)*sX
);
4068 MousePos
.Y
:= (Round(Y
/sY
)*sY
);
4071 // Изменение размера закончилось - ставим обычный курсор:
4072 if ResizeType
= RESIZETYPE_NONE
then
4073 RenderPanel
.Cursor
:= crDefault
;
4075 // Зажата только правая кнопка мыши:
4076 if (not MouseLDown
) and (MouseRDown
) then
4078 // Рисуем прямоугольник выделения:
4079 if MouseAction
= MOUSEACTION_NONE
then
4081 if DrawRect
= nil then
4083 DrawRect
.Top
:= MouseRDownPos
.y
;
4084 DrawRect
.Left
:= MouseRDownPos
.x
;
4085 DrawRect
.Bottom
:= MousePos
.y
;
4086 DrawRect
.Right
:= MousePos
.x
;
4089 // Двигаем выделенные объекты:
4090 if MouseAction
= MOUSEACTION_MOVEOBJ
then
4092 MoveSelectedObjects(ssShift
in Shift
, ssCtrl
in Shift
,
4093 MousePos
.X
-LastMovePoint
.X
+WASDOffset
.X
,
4094 MousePos
.Y
-LastMovePoint
.Y
+WASDOffset
.Y
);
4099 // Меняем размер выделенного объекта:
4100 if MouseAction
= MOUSEACTION_RESIZE
then
4102 if (SelectedObjectCount
= 1) and
4103 (SelectedObjects
[GetFirstSelected
].Live
) then
4105 dWidth
:= MousePos
.X
-LastMovePoint
.X
+WASDOffset
.X
;
4106 dHeight
:= MousePos
.Y
-LastMovePoint
.Y
+WASDOffset
.Y
;
4111 RESIZETYPE_VERTICAL
: dWidth
:= 0;
4112 RESIZETYPE_HORIZONTAL
: dHeight
:= 0;
4115 case ResizeDirection
of
4116 RESIZEDIR_UP
: dHeight
:= -dHeight
;
4117 RESIZEDIR_LEFT
: dWidth
:= -dWidth
;
4120 ResizeObject(SelectedObjects
[GetFirstSelected
].ObjectType
,
4121 SelectedObjects
[GetFirstSelected
].ID
,
4122 dWidth
, dHeight
, ResizeDirection
);
4124 LastMovePoint
:= MousePos
;
4129 // Зажата только левая кнопка мыши:
4130 if (not MouseRDown
) and (MouseLDown
) then
4132 // Рисуем прямоугольник планирования панели:
4133 if MouseAction
in [MOUSEACTION_DRAWPANEL
,
4134 MOUSEACTION_DRAWTRIGGER
,
4135 MOUSEACTION_DRAWPRESS
] then
4137 if DrawRect
= nil then
4139 if ssCtrl
in Shift
then
4143 if (lbTextureList
.ItemIndex
<> -1) and (not IsSpecialTextureSel()) and
4144 (MouseAction
= MOUSEACTION_DRAWPANEL
) then
4146 if not g_GetTexture(SelectedTexture(), TextureID
) then
4147 g_GetTexture('NOTEXTURE', TextureID
);
4148 g_GetTextureSizeByID(TextureID
, wWidth
, wHeight
);
4150 DrawRect
.Top
:= MouseLDownPos
.y
;
4151 DrawRect
.Left
:= MouseLDownPos
.x
;
4152 DrawRect
.Bottom
:= DrawRect
.Top
+ wHeight
;
4153 DrawRect
.Right
:= DrawRect
.Left
+ wWidth
;
4157 DrawRect
.Top
:= MouseLDownPos
.y
;
4158 DrawRect
.Left
:= MouseLDownPos
.x
;
4159 DrawRect
.Bottom
:= MousePos
.y
;
4160 DrawRect
.Right
:= MousePos
.x
;
4163 else // Двигаем карту:
4164 if MouseAction
= MOUSEACTION_MOVEMAP
then
4170 // Клавиши мыши не зажаты:
4171 if (not MouseRDown
) and (not MouseLDown
) then
4174 // Строка состояния - координаты мыши:
4175 StatusBar
.Panels
[1].Text := Format('(%d:%d)',
4176 [MousePos
.X
-MapOffset
.X
, MousePos
.Y
-MapOffset
.Y
]);
4179 procedure TMainForm
.FormCloseQuery(Sender
: TObject
; var CanClose
: Boolean);
4181 CanClose
:= MessageBox(0, PChar(_lc
[I_MSG_EXIT_PROMT
]),
4182 PChar(_lc
[I_MSG_EXIT
]),
4183 MB_ICONQUESTION
or MB_YESNO
or
4184 MB_DEFBUTTON1
) = idYes
;
4187 procedure TMainForm
.aExitExecute(Sender
: TObject
);
4192 procedure TMainForm
.FormDestroy(Sender
: TObject
);
4197 config
:= TConfig
.CreateFile(EditorDir
+'Editor.cfg');
4199 if WindowState
<> wsMaximized
then
4201 config
.WriteInt('Editor', 'XPos', Left
);
4202 config
.WriteInt('Editor', 'YPos', Top
);
4203 config
.WriteInt('Editor', 'Width', Width
);
4204 config
.WriteInt('Editor', 'Height', Height
);
4208 config
.WriteInt('Editor', 'XPos', RestoredLeft
);
4209 config
.WriteInt('Editor', 'YPos', RestoredTop
);
4210 config
.WriteInt('Editor', 'Width', RestoredWidth
);
4211 config
.WriteInt('Editor', 'Height', RestoredHeight
);
4213 config
.WriteBool('Editor', 'Maximize', WindowState
= wsMaximized
);
4214 config
.WriteBool('Editor', 'Minimap', ShowMap
);
4215 config
.WriteInt('Editor', 'PanelProps', PanelProps
.ClientWidth
);
4216 config
.WriteInt('Editor', 'PanelObjs', PanelObjs
.ClientHeight
);
4217 config
.WriteBool('Editor', 'DotEnable', DotEnable
);
4218 config
.WriteInt('Editor', 'DotStep', DotStep
);
4219 config
.WriteStr('Editor', 'LastOpenDir', OpenDialog
.InitialDir
);
4220 config
.WriteStr('Editor', 'LastSaveDir', SaveDialog
.InitialDir
);
4221 config
.WriteBool('Editor', 'EdgeShow', drEdge
[3] < 255);
4222 config
.WriteInt('Editor', 'EdgeColor', gColorEdge
);
4223 config
.WriteInt('Editor', 'EdgeAlpha', gAlphaEdge
);
4224 config
.WriteInt('Editor', 'LineAlpha', gAlphaTriggerLine
);
4225 config
.WriteInt('Editor', 'TriggerAlpha', gAlphaTriggerArea
);
4226 config
.WriteInt('Editor', 'MonsterRectAlpha', gAlphaMonsterRect
);
4227 config
.WriteInt('Editor', 'AreaRectAlpha', gAlphaAreaRect
);
4229 for i
:= 0 to RecentCount
-1 do
4230 if i
< RecentFiles
.Count
then
4231 config
.WriteStr('RecentFiles', IntToStr(i
+1), RecentFiles
[i
])
4233 config
.WriteStr('RecentFiles', IntToStr(i
+1), '');
4236 config
.SaveFile(EditorDir
+'Editor.cfg');
4239 slInvalidTextures
.Free
;
4242 procedure TMainForm
.FormDropFiles(Sender
: TObject
;
4243 const FileNames
: array of String);
4245 if Length(FileNames
) <> 1 then
4248 OpenMapFile(FileNames
[0]);
4251 procedure TMainForm
.RenderPanelResize(Sender
: TObject
);
4253 if MainForm
.Visible
then
4257 procedure TMainForm
.Splitter1Moved(Sender
: TObject
);
4262 procedure TMainForm
.aMapOptionsExecute(Sender
: TObject
);
4266 MapOptionsForm
.ShowModal();
4268 ResName
:= OpenedMap
;
4269 while (Pos(':\', ResName
) > 0) do
4270 Delete(ResName
, 1, Pos(':\', ResName
) + 1);
4272 UpdateCaption(gMapInfo
.Name
, ExtractFileName(OpenedWAD
), ResName
);
4275 procedure TMainForm
.aAboutExecute(Sender
: TObject
);
4277 AboutForm
.ShowModal();
4280 procedure TMainForm
.FormKeyDown(Sender
: TObject
; var Key
: Word;
4281 Shift
: TShiftState
);
4286 if (not EditingProperties
) then
4288 if Key
= Ord('1') then
4289 SwitchLayer(LAYER_BACK
);
4290 if Key
= Ord('2') then
4291 SwitchLayer(LAYER_WALLS
);
4292 if Key
= Ord('3') then
4293 SwitchLayer(LAYER_FOREGROUND
);
4294 if Key
= Ord('4') then
4295 SwitchLayer(LAYER_STEPS
);
4296 if Key
= Ord('5') then
4297 SwitchLayer(LAYER_WATER
);
4298 if Key
= Ord('6') then
4299 SwitchLayer(LAYER_ITEMS
);
4300 if Key
= Ord('7') then
4301 SwitchLayer(LAYER_MONSTERS
);
4302 if Key
= Ord('8') then
4303 SwitchLayer(LAYER_AREAS
);
4304 if Key
= Ord('9') then
4305 SwitchLayer(LAYER_TRIGGERS
);
4306 if Key
= Ord('0') then
4307 tbShowClick(tbShow
);
4309 if Key
= Ord('V') then
4310 begin // Поворот монстров и областей:
4311 if (SelectedObjects
<> nil) then
4313 for i
:= 0 to High(SelectedObjects
) do
4314 if (SelectedObjects
[i
].Live
) then
4316 if (SelectedObjects
[i
].ObjectType
= OBJECT_MONSTER
) then
4318 g_ChangeDir(gMonsters
[SelectedObjects
[i
].ID
].Direction
);
4321 if (SelectedObjects
[i
].ObjectType
= OBJECT_AREA
) then
4323 g_ChangeDir(gAreas
[SelectedObjects
[i
].ID
].Direction
);
4329 if pcObjects
.ActivePage
= tsMonsters
then
4331 if rbMonsterLeft
.Checked
then
4332 rbMonsterRight
.Checked
:= True
4334 rbMonsterLeft
.Checked
:= True;
4336 if pcObjects
.ActivePage
= tsAreas
then
4338 if rbAreaLeft
.Checked
then
4339 rbAreaRight
.Checked
:= True
4341 rbAreaLeft
.Checked
:= True;
4346 if not (ssCtrl
in Shift
) then
4348 // Быстрое превью карты:
4349 if Key
= Ord('E') then
4351 if PreviewMode
= 0 then
4355 // Вертикальный скролл карты:
4358 if Key
= Ord('W') then
4360 if (MouseLDown
or MouseRDown
) and (Position
>= DotStep
) then
4362 Dec(WASDOffset
.Y
, DotStep
);
4363 RenderPanelMouseMove(Sender
, Shift
, RenderMousePos().X
, RenderMousePos().Y
);
4365 Position
:= IfThen(Position
> DotStep
, Position
-DotStep
, 0);
4366 MapOffset
.Y
:= -Round(Position
/16) * 16;
4369 if Key
= Ord('S') then
4371 if (MouseLDown
or MouseRDown
) and (Position
+DotStep
<= Max
) then
4373 Inc(WASDOffset
.Y
, DotStep
);
4374 RenderPanelMouseMove(Sender
, Shift
, RenderMousePos().X
, RenderMousePos().Y
);
4376 Position
:= IfThen(Position
+DotStep
< Max
, Position
+DotStep
, Max
);
4377 MapOffset
.Y
:= -Round(Position
/16) * 16;
4381 // Горизонтальный скролл карты:
4382 with sbHorizontal
do
4384 if Key
= Ord('A') then
4386 if (MouseLDown
or MouseRDown
) and (Position
>= DotStep
) then
4388 Dec(WASDOffset
.X
, DotStep
);
4389 RenderPanelMouseMove(Sender
, Shift
, RenderMousePos().X
, RenderMousePos().Y
);
4391 Position
:= IfThen(Position
> DotStep
, Position
-DotStep
, 0);
4392 MapOffset
.X
:= -Round(Position
/16) * 16;
4395 if Key
= Ord('D') then
4397 if (MouseLDown
or MouseRDown
) and (Position
+DotStep
<= Max
) then
4399 Inc(WASDOffset
.X
, DotStep
);
4400 RenderPanelMouseMove(Sender
, Shift
, RenderMousePos().X
, RenderMousePos().Y
);
4402 Position
:= IfThen(Position
+DotStep
< Max
, Position
+DotStep
, Max
);
4403 MapOffset
.X
:= -Round(Position
/16) * 16;
4407 else // ssCtrl in Shift
4409 if ssShift
in Shift
then
4411 // Вставка по абсолютному смещению:
4412 if Key
= Ord('V') then
4413 aPasteObjectExecute(Sender
);
4415 RenderPanelMouseMove(Sender
, Shift
, RenderMousePos().X
, RenderMousePos().Y
);
4419 // Удалить выделенные объекты:
4420 if (Key
= VK_DELETE
) and (SelectedObjects
<> nil) and
4421 RenderPanel
.Focused() then
4422 DeleteSelectedObjects();
4425 if (Key
= VK_ESCAPE
) and (SelectedObjects
<> nil) then
4426 RemoveSelectFromObjects();
4428 // Передвинуть объекты:
4429 if MainForm
.ActiveControl
= RenderPanel
then
4434 if Key
= VK_NUMPAD4
then
4435 dx
:= IfThen(ssAlt
in Shift
, -1, -DotStep
);
4436 if Key
= VK_NUMPAD6
then
4437 dx
:= IfThen(ssAlt
in Shift
, 1, DotStep
);
4438 if Key
= VK_NUMPAD8
then
4439 dy
:= IfThen(ssAlt
in Shift
, -1, -DotStep
);
4440 if Key
= VK_NUMPAD5
then
4441 dy
:= IfThen(ssAlt
in Shift
, 1, DotStep
);
4443 if (dx
<> 0) or (dy
<> 0) then
4445 MoveSelectedObjects(ssShift
in Shift
, ssCtrl
in Shift
, dx
, dy
);
4450 if ssCtrl
in Shift
then
4452 // Выбор панели с текстурой для триггера
4453 if Key
= Ord('T') then
4455 DrawPressRect
:= False;
4456 if SelectFlag
= SELECTFLAG_TEXTURE
then
4458 SelectFlag
:= SELECTFLAG_NONE
;
4461 vleObjectProperty
.FindRow(_lc
[I_PROP_TR_TEXTURE_PANEL
], i
);
4463 SelectFlag
:= SELECTFLAG_TEXTURE
;
4466 if Key
= Ord('D') then
4468 SelectFlag
:= SELECTFLAG_NONE
;
4469 if DrawPressRect
then
4471 DrawPressRect
:= False;
4476 // Выбор области воздействия, в зависимости от типа триггера
4477 vleObjectProperty
.FindRow(_lc
[I_PROP_TR_EX_AREA
], i
);
4480 DrawPressRect
:= True;
4483 vleObjectProperty
.FindRow(_lc
[I_PROP_TR_DOOR_PANEL
], i
);
4485 vleObjectProperty
.FindRow(_lc
[I_PROP_TR_TRAP_PANEL
], i
);
4488 SelectFlag
:= SELECTFLAG_DOOR
;
4491 vleObjectProperty
.FindRow(_lc
[I_PROP_TR_LIFT_PANEL
], i
);
4494 SelectFlag
:= SELECTFLAG_LIFT
;
4497 vleObjectProperty
.FindRow(_lc
[I_PROP_TR_TELEPORT_TO
], i
);
4500 SelectFlag
:= SELECTFLAG_TELEPORT
;
4503 vleObjectProperty
.FindRow(_lc
[I_PROP_TR_SPAWN_TO
], i
);
4506 SelectFlag
:= SELECTFLAG_SPAWNPOINT
;
4510 // Выбор основного параметра, в зависимости от типа триггера
4511 vleObjectProperty
.FindRow(_lc
[I_PROP_TR_NEXT_MAP
], i
);
4514 g_ProcessResourceStr(OpenedMap
, @FileName
, nil, nil);
4515 SelectMapForm
.Caption
:= _lc
[I_CAP_SELECT
];
4516 SelectMapForm
.GetMaps(FileName
);
4518 if SelectMapForm
.ShowModal() = mrOK
then
4520 vleObjectProperty
.Cells
[1, i
] := SelectMapForm
.lbMapList
.Items
[SelectMapForm
.lbMapList
.ItemIndex
];
4521 bApplyProperty
.Click();
4525 vleObjectProperty
.FindRow(_lc
[I_PROP_TR_SOUND_NAME
], i
);
4527 vleObjectProperty
.FindRow(_lc
[I_PROP_TR_MUSIC_NAME
], i
);
4530 AddSoundForm
.OKFunction
:= nil;
4531 AddSoundForm
.lbResourcesList
.MultiSelect
:= False;
4532 AddSoundForm
.SetResource
:= vleObjectProperty
.Cells
[1, i
];
4534 if (AddSoundForm
.ShowModal() = mrOk
) then
4536 vleObjectProperty
.Cells
[1, i
] := AddSoundForm
.ResourceName
;
4537 bApplyProperty
.Click();
4541 vleObjectProperty
.FindRow(_lc
[I_PROP_TR_PUSH_ANGLE
], i
);
4543 vleObjectProperty
.FindRow(_lc
[I_PROP_TR_MESSAGE_TEXT
], i
);
4546 vleObjectProperty
.Row
:= i
;
4547 vleObjectProperty
.SetFocus();
4554 procedure TMainForm
.aOptimizeExecute(Sender
: TObject
);
4556 RemoveSelectFromObjects();
4557 MapOptimizationForm
.ShowModal();
4560 procedure TMainForm
.aCheckMapExecute(Sender
: TObject
);
4562 MapCheckForm
.ShowModal();
4565 procedure TMainForm
.bbAddTextureClick(Sender
: TObject
);
4567 AddTextureForm
.lbResourcesList
.MultiSelect
:= True;
4568 AddTextureForm
.ShowModal();
4571 procedure TMainForm
.lbTextureListClick(Sender
: TObject
);
4574 TextureWidth
, TextureHeight
: Word;
4579 if (lbTextureList
.ItemIndex
<> -1) and
4580 (not IsSpecialTextureSel()) then
4582 if g_GetTexture(SelectedTexture(), TextureID
) then
4584 g_GetTextureSizeByID(TextureID
, TextureWidth
, TextureHeight
);
4586 lTextureWidth
.Caption
:= IntToStr(TextureWidth
);
4587 lTextureHeight
.Caption
:= IntToStr(TextureHeight
);
4590 lTextureWidth
.Caption
:= _lc
[I_NOT_ACCESSIBLE
];
4591 lTextureHeight
.Caption
:= _lc
[I_NOT_ACCESSIBLE
];
4596 lTextureWidth
.Caption
:= '';
4597 lTextureHeight
.Caption
:= '';
4601 procedure TMainForm
.lbTextureListDrawItem(Control
: TWinControl
; Index
: Integer;
4602 ARect
: TRect
; State
: TOwnerDrawState
);
4604 with Control
as TListBox
do
4606 if LCLType
.odSelected
in State
then
4608 Canvas
.Brush
.Color
:= clHighlight
;
4609 Canvas
.Font
.Color
:= clHighlightText
;
4611 if (Items
<> nil) and (Index
>= 0) then
4612 if slInvalidTextures
.IndexOf(Items
[Index
]) > -1 then
4614 Canvas
.Brush
.Color
:= clRed
;
4615 Canvas
.Font
.Color
:= clWhite
;
4617 Canvas
.FillRect(ARect
);
4618 Canvas
.TextRect(ARect
, ARect
.Left
, ARect
.Top
, Items
[Index
]);
4622 procedure TMainForm
.miReopenMapClick(Sender
: TObject
);
4624 FileName
, Resource
: String;
4626 if OpenedMap
= '' then
4629 if MessageBox(0, PChar(_lc
[I_MSG_REOPEN_MAP_PROMT
]),
4630 PChar(_lc
[I_MENU_FILE_REOPEN
]), MB_ICONQUESTION
or MB_YESNO
) <> idYes
then
4633 g_ProcessResourceStr(OpenedMap
, @FileName
, nil, @Resource
);
4634 OpenMap(FileName
, Resource
);
4637 procedure TMainForm
.vleObjectPropertyGetPickList(Sender
: TObject
;
4638 const KeyName
: String; Values
: TStrings
);
4640 if vleObjectProperty
.ItemProps
[KeyName
].EditStyle
= esPickList
then
4642 if KeyName
= _lc
[I_PROP_DIRECTION
] then
4644 Values
.Add(DirNames
[D_LEFT
]);
4645 Values
.Add(DirNames
[D_RIGHT
]);
4647 else if KeyName
= _lc
[I_PROP_TR_TELEPORT_DIR
] then
4649 Values
.Add(DirNamesAdv
[0]);
4650 Values
.Add(DirNamesAdv
[1]);
4651 Values
.Add(DirNamesAdv
[2]);
4652 Values
.Add(DirNamesAdv
[3]);
4654 else if KeyName
= _lc
[I_PROP_TR_MUSIC_ACT
] then
4656 Values
.Add(_lc
[I_PROP_TR_MUSIC_ON
]);
4657 Values
.Add(_lc
[I_PROP_TR_MUSIC_OFF
]);
4659 else if KeyName
= _lc
[I_PROP_TR_MONSTER_BEHAVIOUR
] then
4661 Values
.Add(_lc
[I_PROP_TR_MONSTER_BEHAVIOUR_0
]);
4662 Values
.Add(_lc
[I_PROP_TR_MONSTER_BEHAVIOUR_1
]);
4663 Values
.Add(_lc
[I_PROP_TR_MONSTER_BEHAVIOUR_2
]);
4664 Values
.Add(_lc
[I_PROP_TR_MONSTER_BEHAVIOUR_3
]);
4665 Values
.Add(_lc
[I_PROP_TR_MONSTER_BEHAVIOUR_4
]);
4666 Values
.Add(_lc
[I_PROP_TR_MONSTER_BEHAVIOUR_5
]);
4668 else if KeyName
= _lc
[I_PROP_TR_SCORE_ACT
] then
4670 Values
.Add(_lc
[I_PROP_TR_SCORE_ACT_0
]);
4671 Values
.Add(_lc
[I_PROP_TR_SCORE_ACT_1
]);
4672 Values
.Add(_lc
[I_PROP_TR_SCORE_ACT_2
]);
4673 Values
.Add(_lc
[I_PROP_TR_SCORE_ACT_3
]);
4675 else if KeyName
= _lc
[I_PROP_TR_SCORE_TEAM
] then
4677 Values
.Add(_lc
[I_PROP_TR_SCORE_TEAM_0
]);
4678 Values
.Add(_lc
[I_PROP_TR_SCORE_TEAM_1
]);
4679 Values
.Add(_lc
[I_PROP_TR_SCORE_TEAM_2
]);
4680 Values
.Add(_lc
[I_PROP_TR_SCORE_TEAM_3
]);
4682 else if KeyName
= _lc
[I_PROP_TR_MESSAGE_KIND
] then
4684 Values
.Add(_lc
[I_PROP_TR_MESSAGE_KIND_0
]);
4685 Values
.Add(_lc
[I_PROP_TR_MESSAGE_KIND_1
]);
4687 else if KeyName
= _lc
[I_PROP_TR_MESSAGE_TO
] then
4689 Values
.Add(_lc
[I_PROP_TR_MESSAGE_TO_0
]);
4690 Values
.Add(_lc
[I_PROP_TR_MESSAGE_TO_1
]);
4691 Values
.Add(_lc
[I_PROP_TR_MESSAGE_TO_2
]);
4692 Values
.Add(_lc
[I_PROP_TR_MESSAGE_TO_3
]);
4693 Values
.Add(_lc
[I_PROP_TR_MESSAGE_TO_4
]);
4694 Values
.Add(_lc
[I_PROP_TR_MESSAGE_TO_5
]);
4696 else if KeyName
= _lc
[I_PROP_TR_SHOT_TO
] then
4698 Values
.Add(_lc
[I_PROP_TR_SHOT_TO_0
]);
4699 Values
.Add(_lc
[I_PROP_TR_SHOT_TO_1
]);
4700 Values
.Add(_lc
[I_PROP_TR_SHOT_TO_2
]);
4701 Values
.Add(_lc
[I_PROP_TR_SHOT_TO_3
]);
4702 Values
.Add(_lc
[I_PROP_TR_SHOT_TO_4
]);
4703 Values
.Add(_lc
[I_PROP_TR_SHOT_TO_5
]);
4704 Values
.Add(_lc
[I_PROP_TR_SHOT_TO_6
]);
4706 else if KeyName
= _lc
[I_PROP_TR_SHOT_AIM
] then
4708 Values
.Add(_lc
[I_PROP_TR_SHOT_AIM_0
]);
4709 Values
.Add(_lc
[I_PROP_TR_SHOT_AIM_1
]);
4710 Values
.Add(_lc
[I_PROP_TR_SHOT_AIM_2
]);
4711 Values
.Add(_lc
[I_PROP_TR_SHOT_AIM_3
]);
4713 else if (KeyName
= _lc
[I_PROP_PANEL_BLEND
]) or
4714 (KeyName
= _lc
[I_PROP_DM_ONLY
]) or
4715 (KeyName
= _lc
[I_PROP_ITEM_FALLS
]) or
4716 (KeyName
= _lc
[I_PROP_TR_ENABLED
]) or
4717 (KeyName
= _lc
[I_PROP_TR_D2D
]) or
4718 (KeyName
= _lc
[I_PROP_TR_SILENT
]) or
4719 (KeyName
= _lc
[I_PROP_TR_TELEPORT_SILENT
]) or
4720 (KeyName
= _lc
[I_PROP_TR_EX_RANDOM
]) or
4721 (KeyName
= _lc
[I_PROP_TR_TEXTURE_ONCE
]) or
4722 (KeyName
= _lc
[I_PROP_TR_TEXTURE_ANIM_ONCE
]) or
4723 (KeyName
= _lc
[I_PROP_TR_SOUND_LOCAL
]) or
4724 (KeyName
= _lc
[I_PROP_TR_SOUND_SWITCH
]) or
4725 (KeyName
= _lc
[I_PROP_TR_MONSTER_ACTIVE
]) or
4726 (KeyName
= _lc
[I_PROP_TR_PUSH_RESET
]) or
4727 (KeyName
= _lc
[I_PROP_TR_SCORE_CON
]) or
4728 (KeyName
= _lc
[I_PROP_TR_SCORE_MSG
]) or
4729 (KeyName
= _lc
[I_PROP_TR_HEALTH_MAX
]) or
4730 (KeyName
= _lc
[I_PROP_TR_SHOT_SOUND
]) or
4731 (KeyName
= _lc
[I_PROP_TR_EFFECT_CENTER
]) then
4733 Values
.Add(BoolNames
[True]);
4734 Values
.Add(BoolNames
[False]);
4739 procedure TMainForm
.bApplyPropertyClick(Sender
: TObject
);
4741 _id
, a
, r
, c
: Integer;
4751 if SelectedObjectCount() <> 1 then
4753 if not SelectedObjects
[GetFirstSelected()].Live
then
4757 if not CheckProperty() then
4763 _id
:= GetFirstSelected();
4765 r
:= vleObjectProperty
.Row
;
4766 c
:= vleObjectProperty
.Col
;
4768 case SelectedObjects
[_id
].ObjectType
of
4771 with gPanels
[SelectedObjects
[_id
].ID
] do
4773 X
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_X
]]));
4774 Y
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_Y
]]));
4775 Width
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_WIDTH
]]));
4776 Height
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_HEIGHT
]]));
4778 PanelType
:= GetPanelType(vleObjectProperty
.Values
[_lc
[I_PROP_PANEL_TYPE
]]);
4780 // Сброс ссылки на триггеры смены текстуры:
4781 if not WordBool(PanelType
and (PANEL_WALL
or PANEL_FORE
or PANEL_BACK
)) then
4782 if gTriggers
<> nil then
4783 for a
:= 0 to High(gTriggers
) do
4785 if (gTriggers
[a
].TriggerType
<> 0) and
4786 (gTriggers
[a
].TexturePanel
= Integer(SelectedObjects
[_id
].ID
)) then
4787 gTriggers
[a
].TexturePanel
:= -1;
4788 if (gTriggers
[a
].TriggerType
= TRIGGER_SHOT
) and
4789 (gTriggers
[a
].Data
.ShotPanelID
= Integer(SelectedObjects
[_id
].ID
)) then
4790 gTriggers
[a
].Data
.ShotPanelID
:= -1;
4793 // Сброс ссылки на триггеры лифта:
4794 if not WordBool(PanelType
and (PANEL_LIFTUP
or PANEL_LIFTDOWN
or PANEL_LIFTLEFT
or PANEL_LIFTRIGHT
)) then
4795 if gTriggers
<> nil then
4796 for a
:= 0 to High(gTriggers
) do
4797 if (gTriggers
[a
].TriggerType
in [TRIGGER_LIFTUP
, TRIGGER_LIFTDOWN
, TRIGGER_LIFT
]) and
4798 (gTriggers
[a
].Data
.PanelID
= Integer(SelectedObjects
[_id
].ID
)) then
4799 gTriggers
[a
].Data
.PanelID
:= -1;
4801 // Сброс ссылки на триггеры двери:
4802 if not WordBool(PanelType
and (PANEL_OPENDOOR
or PANEL_CLOSEDOOR
)) then
4803 if gTriggers
<> nil then
4804 for a
:= 0 to High(gTriggers
) do
4805 if (gTriggers
[a
].TriggerType
in [TRIGGER_OPENDOOR
, TRIGGER_CLOSEDOOR
, TRIGGER_DOOR
,
4806 TRIGGER_DOOR5
, TRIGGER_CLOSETRAP
, TRIGGER_TRAP
]) and
4807 (gTriggers
[a
].Data
.PanelID
= Integer(SelectedObjects
[_id
].ID
)) then
4808 gTriggers
[a
].Data
.PanelID
:= -1;
4810 if IsTexturedPanel(PanelType
) then
4811 begin // Может быть текстура
4812 if TextureName
<> '' then
4813 begin // Была текстура
4814 Alpha
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_PANEL_ALPHA
]]));
4815 Blending
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_PANEL_BLEND
]]);
4824 TextureName
:= vleObjectProperty
.Values
[_lc
[I_PROP_PANEL_TEX
]];
4826 if TextureName
<> '' then
4827 begin // Есть текстура
4828 // Обычная текстура:
4829 if not IsSpecialTexture(TextureName
) then
4831 g_GetTextureSizeByName(TextureName
,
4832 TextureWidth
, TextureHeight
);
4834 // Проверка кратности размеров панели:
4836 if TextureWidth
<> 0 then
4837 if gPanels
[SelectedObjects
[_id
].ID
].Width
mod TextureWidth
<> 0 then
4839 ErrorMessageBox(Format(_lc
[I_MSG_WRONG_TEXWIDTH
],
4843 if Res
and (TextureHeight
<> 0) then
4844 if gPanels
[SelectedObjects
[_id
].ID
].Height
mod TextureHeight
<> 0 then
4846 ErrorMessageBox(Format(_lc
[I_MSG_WRONG_TEXHEIGHT
],
4853 if not g_GetTexture(TextureName
, TextureID
) then
4854 // Не удалось загрузить текстуру, рисуем NOTEXTURE
4855 if g_GetTexture('NOTEXTURE', NoTextureID
) then
4857 TextureID
:= TEXTURE_SPECIAL_NOTEXTURE
;
4858 g_GetTextureSizeByID(NoTextureID
, NW
, NH
);
4860 TextureHeight
:= NH
;
4863 TextureID
:= TEXTURE_SPECIAL_NONE
;
4873 TextureID
:= TEXTURE_SPECIAL_NONE
;
4876 else // Спец.текстура
4880 TextureID
:= SpecialTextureID(TextureName
);
4883 else // Нет текстуры
4887 TextureID
:= TEXTURE_SPECIAL_NONE
;
4890 else // Не может быть текстуры
4897 TextureID
:= TEXTURE_SPECIAL_NONE
;
4904 with gItems
[SelectedObjects
[_id
].ID
] do
4906 X
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_X
]]));
4907 Y
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_Y
]]));
4908 OnlyDM
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_DM_ONLY
]]);
4909 Fall
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_ITEM_FALLS
]]);
4915 with gMonsters
[SelectedObjects
[_id
].ID
] do
4917 X
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_X
]]));
4918 Y
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_Y
]]));
4919 Direction
:= NameToDir(vleObjectProperty
.Values
[_lc
[I_PROP_DIRECTION
]]);
4925 with gAreas
[SelectedObjects
[_id
].ID
] do
4927 X
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_X
]]));
4928 Y
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_Y
]]));
4929 Direction
:= NameToDir(vleObjectProperty
.Values
[_lc
[I_PROP_DIRECTION
]]);
4935 with gTriggers
[SelectedObjects
[_id
].ID
] do
4937 X
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_X
]]));
4938 Y
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_Y
]]));
4939 Width
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_WIDTH
]]));
4940 Height
:= StrToInt(Trim(vleObjectProperty
.Values
[_lc
[I_PROP_HEIGHT
]]));
4941 Enabled
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_ENABLED
]]);
4942 ActivateType
:= StrToActivate(vleObjectProperty
.Values
[_lc
[I_PROP_TR_ACTIVATION
]]);
4943 Key
:= StrToKey(vleObjectProperty
.Values
[_lc
[I_PROP_TR_KEYS
]]);
4948 s
:= utf2win(vleObjectProperty
.Values
[_lc
[I_PROP_TR_NEXT_MAP
]]);
4949 FillByte(Data
.MapName
[0], 16, 0);
4951 Move(s
[1], Data
.MapName
[0], Min(Length(s
), 16));
4956 Data
.ActivateOnce
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_TEXTURE_ONCE
]]);
4957 Data
.AnimOnce
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_TEXTURE_ANIM_ONCE
]]);
4960 TRIGGER_PRESS
, TRIGGER_ON
, TRIGGER_OFF
, TRIGGER_ONOFF
:
4962 Data
.Wait
:= Min(StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_EX_DELAY
]], 0), 65535);
4963 Data
.Count
:= Min(StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_EX_COUNT
]], 0), 65535);
4964 if Data
.Count
< 1 then
4966 if TriggerType
= TRIGGER_PRESS
then
4967 Data
.ExtRandom
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_EX_RANDOM
]]);
4970 TRIGGER_OPENDOOR
, TRIGGER_CLOSEDOOR
, TRIGGER_DOOR
, TRIGGER_DOOR5
,
4971 TRIGGER_CLOSETRAP
, TRIGGER_TRAP
, TRIGGER_LIFTUP
, TRIGGER_LIFTDOWN
,
4974 Data
.NoSound
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SILENT
]]);
4975 Data
.d2d_doors
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_D2D
]]);
4980 Data
.d2d_teleport
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_D2D
]]);
4981 Data
.silent_teleport
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_TELEPORT_SILENT
]]);
4982 Data
.TlpDir
:= NameToDirAdv(vleObjectProperty
.Values
[_lc
[I_PROP_TR_TELEPORT_DIR
]]);
4987 s
:= utf2win(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SOUND_NAME
]]);
4988 FillByte(Data
.SoundName
[0], 64, 0);
4990 Move(s
[1], Data
.SoundName
[0], Min(Length(s
), 64));
4992 Data
.Volume
:= Min(StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SOUND_VOLUME
]], 0), 255);
4993 Data
.Pan
:= Min(StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SOUND_PAN
]], 0), 255);
4994 Data
.PlayCount
:= Min(StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SOUND_COUNT
]], 0), 255);
4995 Data
.Local
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SOUND_LOCAL
]]);
4996 Data
.SoundSwitch
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SOUND_SWITCH
]]);
4999 TRIGGER_SPAWNMONSTER
:
5001 Data
.MonType
:= StrToMonster(vleObjectProperty
.Values
[_lc
[I_PROP_TR_MONSTER_TYPE
]]);
5002 Data
.MonDir
:= Byte(NameToDir(vleObjectProperty
.Values
[_lc
[I_PROP_DIRECTION
]]));
5003 Data
.MonHealth
:= Min(StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_HEALTH
]], 0), 1000000);
5004 if Data
.MonHealth
< 0 then
5005 Data
.MonHealth
:= 0;
5006 Data
.MonActive
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_MONSTER_ACTIVE
]]);
5007 Data
.MonCount
:= Min(StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_COUNT
]], 0), 64);
5008 if Data
.MonCount
< 1 then
5010 Data
.MonEffect
:= StrToEffect(vleObjectProperty
.Values
[_lc
[I_PROP_TR_FX_TYPE
]]);
5011 Data
.MonMax
:= Min(StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SPAWN_MAX
]], 0), 65535);
5012 Data
.MonDelay
:= Min(StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SPAWN_DELAY
]], 0), 65535);
5014 if vleObjectProperty
.Values
[_lc
[I_PROP_TR_MONSTER_BEHAVIOUR
]] = _lc
[I_PROP_TR_MONSTER_BEHAVIOUR_1
] then
5016 if vleObjectProperty
.Values
[_lc
[I_PROP_TR_MONSTER_BEHAVIOUR
]] = _lc
[I_PROP_TR_MONSTER_BEHAVIOUR_2
] then
5018 if vleObjectProperty
.Values
[_lc
[I_PROP_TR_MONSTER_BEHAVIOUR
]] = _lc
[I_PROP_TR_MONSTER_BEHAVIOUR_3
] then
5020 if vleObjectProperty
.Values
[_lc
[I_PROP_TR_MONSTER_BEHAVIOUR
]] = _lc
[I_PROP_TR_MONSTER_BEHAVIOUR_4
] then
5022 if vleObjectProperty
.Values
[_lc
[I_PROP_TR_MONSTER_BEHAVIOUR
]] = _lc
[I_PROP_TR_MONSTER_BEHAVIOUR_5
] then
5028 Data
.ItemType
:= StrToItem(vleObjectProperty
.Values
[_lc
[I_PROP_TR_ITEM_TYPE
]]);
5029 Data
.ItemOnlyDM
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_DM_ONLY
]]);
5030 Data
.ItemFalls
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_ITEM_FALLS
]]);
5031 Data
.ItemCount
:= Min(StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_COUNT
]], 0), 64);
5032 if Data
.ItemCount
< 1 then
5033 Data
.ItemCount
:= 1;
5034 Data
.ItemEffect
:= StrToEffect(vleObjectProperty
.Values
[_lc
[I_PROP_TR_FX_TYPE
]]);
5035 Data
.ItemMax
:= Min(StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SPAWN_MAX
]], 0), 65535);
5036 Data
.ItemDelay
:= Min(StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SPAWN_DELAY
]], 0), 65535);
5041 s
:= utf2win(vleObjectProperty
.Values
[_lc
[I_PROP_TR_MUSIC_NAME
]]);
5042 FillByte(Data
.MusicName
[0], 64, 0);
5044 Move(s
[1], Data
.MusicName
[0], Min(Length(s
), 64));
5046 if vleObjectProperty
.Values
[_lc
[I_PROP_TR_MUSIC_ACT
]] = _lc
[I_PROP_TR_MUSIC_ON
] then
5047 Data
.MusicAction
:= 1
5049 Data
.MusicAction
:= 2;
5054 Data
.PushAngle
:= Min(
5055 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_PUSH_ANGLE
]], 0), 360);
5056 Data
.PushForce
:= Min(
5057 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_PUSH_FORCE
]], 0), 255);
5058 Data
.ResetVel
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_PUSH_RESET
]]);
5063 Data
.ScoreAction
:= 0;
5064 if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SCORE_ACT
]] = _lc
[I_PROP_TR_SCORE_ACT_1
] then
5065 Data
.ScoreAction
:= 1
5066 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SCORE_ACT
]] = _lc
[I_PROP_TR_SCORE_ACT_2
] then
5067 Data
.ScoreAction
:= 2
5068 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SCORE_ACT
]] = _lc
[I_PROP_TR_SCORE_ACT_3
] then
5069 Data
.ScoreAction
:= 3;
5070 Data
.ScoreCount
:= Min(Max(
5071 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_COUNT
]], 0), 0), 255);
5072 Data
.ScoreTeam
:= 0;
5073 if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SCORE_TEAM
]] = _lc
[I_PROP_TR_SCORE_TEAM_1
] then
5075 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SCORE_TEAM
]] = _lc
[I_PROP_TR_SCORE_TEAM_2
] then
5077 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SCORE_TEAM
]] = _lc
[I_PROP_TR_SCORE_TEAM_3
] then
5078 Data
.ScoreTeam
:= 3;
5079 Data
.ScoreCon
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SCORE_CON
]]);
5080 Data
.ScoreMsg
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SCORE_MSG
]]);
5085 Data
.MessageKind
:= 0;
5086 if vleObjectProperty
.Values
[_lc
[I_PROP_TR_MESSAGE_KIND
]] = _lc
[I_PROP_TR_MESSAGE_KIND_1
] then
5087 Data
.MessageKind
:= 1;
5089 Data
.MessageSendTo
:= 0;
5090 if vleObjectProperty
.Values
[_lc
[I_PROP_TR_MESSAGE_TO
]] = _lc
[I_PROP_TR_MESSAGE_TO_1
] then
5091 Data
.MessageSendTo
:= 1
5092 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_MESSAGE_TO
]] = _lc
[I_PROP_TR_MESSAGE_TO_2
] then
5093 Data
.MessageSendTo
:= 2
5094 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_MESSAGE_TO
]] = _lc
[I_PROP_TR_MESSAGE_TO_3
] then
5095 Data
.MessageSendTo
:= 3
5096 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_MESSAGE_TO
]] = _lc
[I_PROP_TR_MESSAGE_TO_4
] then
5097 Data
.MessageSendTo
:= 4
5098 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_MESSAGE_TO
]] = _lc
[I_PROP_TR_MESSAGE_TO_5
] then
5099 Data
.MessageSendTo
:= 5;
5101 s
:= utf2win(vleObjectProperty
.Values
[_lc
[I_PROP_TR_MESSAGE_TEXT
]]);
5102 FillByte(Data
.MessageText
[0], 100, 0);
5104 Move(s
[1], Data
.MessageText
[0], Min(Length(s
), 100));
5106 Data
.MessageTime
:= Min(Max(
5107 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_MESSAGE_TIME
]], 0), 0), 65535);
5112 Data
.DamageValue
:= Min(Max(
5113 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_DAMAGE_VALUE
]], 0), 0), 65535);
5114 Data
.DamageInterval
:= Min(Max(
5115 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_INTERVAL
]], 0), 0), 65535);
5120 Data
.HealValue
:= Min(Max(
5121 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_HEALTH
]], 0), 0), 65535);
5122 Data
.HealInterval
:= Min(Max(
5123 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_INTERVAL
]], 0), 0), 65535);
5124 Data
.HealMax
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_HEALTH_MAX
]]);
5125 Data
.HealSilent
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SILENT
]]);
5130 Data
.ShotType
:= StrToShot(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_TYPE
]]);
5131 Data
.ShotSound
:= NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_SOUND
]]);
5132 Data
.ShotTarget
:= 0;
5133 if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_TO
]] = _lc
[I_PROP_TR_SHOT_TO_1
] then
5134 Data
.ShotTarget
:= 1
5135 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_TO
]] = _lc
[I_PROP_TR_SHOT_TO_2
] then
5136 Data
.ShotTarget
:= 2
5137 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_TO
]] = _lc
[I_PROP_TR_SHOT_TO_3
] then
5138 Data
.ShotTarget
:= 3
5139 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_TO
]] = _lc
[I_PROP_TR_SHOT_TO_4
] then
5140 Data
.ShotTarget
:= 4
5141 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_TO
]] = _lc
[I_PROP_TR_SHOT_TO_5
] then
5142 Data
.ShotTarget
:= 5
5143 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_TO
]] = _lc
[I_PROP_TR_SHOT_TO_6
] then
5144 Data
.ShotTarget
:= 6;
5145 Data
.ShotIntSight
:= Min(Max(
5146 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_SIGHT
]], 0), 0), 65535);
5148 if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_AIM
]] = _lc
[I_PROP_TR_SHOT_AIM_1
] then
5150 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_AIM
]] = _lc
[I_PROP_TR_SHOT_AIM_2
] then
5152 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_AIM
]] = _lc
[I_PROP_TR_SHOT_AIM_3
] then
5154 Data
.ShotAngle
:= Min(
5155 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_ANGLE
]], 0), 360);
5156 Data
.ShotWait
:= Min(Max(
5157 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_EX_DELAY
]], 0), 0), 65535);
5158 Data
.ShotAccuracy
:= Min(Max(
5159 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_ACC
]], 0), 0), 65535);
5160 Data
.ShotAmmo
:= Min(Max(
5161 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_AMMO
]], 0), 0), 65535);
5162 Data
.ShotIntReload
:= Min(Max(
5163 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_SHOT_RELOAD
]], 0), 0), 65535);
5168 Data
.FXCount
:= Min(Max(
5169 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_COUNT
]], 0), 0), 255);
5170 if vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_TYPE
]] = _lc
[I_PROP_TR_EFFECT_PARTICLE
] then
5172 Data
.FXType
:= TRIGGER_EFFECT_PARTICLE
;
5173 Data
.FXSubType
:= TRIGGER_EFFECT_SLIQUID
;
5174 if vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_SUBTYPE
]] = _lc
[I_PROP_TR_EFFECT_SLIQUID
] then
5175 Data
.FXSubType
:= TRIGGER_EFFECT_SLIQUID
5176 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_SUBTYPE
]] = _lc
[I_PROP_TR_EFFECT_LLIQUID
] then
5177 Data
.FXSubType
:= TRIGGER_EFFECT_LLIQUID
5178 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_SUBTYPE
]] = _lc
[I_PROP_TR_EFFECT_DLIQUID
] then
5179 Data
.FXSubType
:= TRIGGER_EFFECT_DLIQUID
5180 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_SUBTYPE
]] = _lc
[I_PROP_TR_EFFECT_BLOOD
] then
5181 Data
.FXSubType
:= TRIGGER_EFFECT_BLOOD
5182 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_SUBTYPE
]] = _lc
[I_PROP_TR_EFFECT_SPARK
] then
5183 Data
.FXSubType
:= TRIGGER_EFFECT_SPARK
5184 else if vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_SUBTYPE
]] = _lc
[I_PROP_TR_EFFECT_BUBBLE
] then
5185 Data
.FXSubType
:= TRIGGER_EFFECT_BUBBLE
;
5188 Data
.FXType
:= TRIGGER_EFFECT_ANIMATION
;
5189 Data
.FXSubType
:= StrToEffect(vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_SUBTYPE
]]);
5192 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_COLOR
]], 0), 0), $FFFFFF);
5193 Data
.FXColorR
:= a
and $FF;
5194 Data
.FXColorG
:= (a
shr 8) and $FF;
5195 Data
.FXColorB
:= (a
shr 16) and $FF;
5196 if NameToBool(vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_CENTER
]]) then
5200 Data
.FXWait
:= Min(Max(
5201 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_EX_DELAY
]], 0), 0), 65535);
5202 Data
.FXVelX
:= Min(Max(
5203 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_VELX
]], 0), -128), 127);
5204 Data
.FXVelY
:= Min(Max(
5205 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_VELY
]], 0), -128), 127);
5206 Data
.FXSpreadL
:= Min(Max(
5207 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_SPL
]], 0), 0), 255);
5208 Data
.FXSpreadR
:= Min(Max(
5209 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_SPR
]], 0), 0), 255);
5210 Data
.FXSpreadU
:= Min(Max(
5211 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_SPU
]], 0), 0), 255);
5212 Data
.FXSpreadD
:= Min(Max(
5213 StrToIntDef(vleObjectProperty
.Values
[_lc
[I_PROP_TR_EFFECT_SPD
]], 0), 0), 255);
5222 vleObjectProperty
.Row
:= r
;
5223 vleObjectProperty
.Col
:= c
;
5226 procedure TMainForm
.bbRemoveTextureClick(Sender
: TObject
);
5230 i
:= lbTextureList
.ItemIndex
;
5234 if MessageBox(0, PChar(Format(_lc
[I_MSG_DEL_TEXTURE_PROMT
],
5235 [SelectedTexture()])),
5236 PChar(_lc
[I_MSG_DEL_TEXTURE
]),
5237 MB_ICONQUESTION
or MB_YESNO
or
5238 MB_DEFBUTTON1
) <> idYes
then
5241 if gPanels
<> nil then
5242 for a
:= 0 to High(gPanels
) do
5243 if (gPanels
[a
].PanelType
<> 0) and
5244 (gPanels
[a
].TextureName
= SelectedTexture()) then
5246 ErrorMessageBox(_lc
[I_MSG_DEL_TEXTURE_CANT
]);
5250 g_DeleteTexture(SelectedTexture());
5251 i
:= slInvalidTextures
.IndexOf(lbTextureList
.Items
[i
]);
5253 slInvalidTextures
.Delete(i
);
5254 if lbTextureList
.ItemIndex
> -1 then
5255 lbTextureList
.Items
.Delete(lbTextureList
.ItemIndex
)
5258 procedure TMainForm
.aNewMapExecute(Sender
: TObject
);
5260 if (MessageBox(0, PChar(_lc
[I_MSG_CLEAR_MAP_PROMT
]),
5261 PChar(_lc
[I_MSG_CLEAR_MAP
]),
5262 MB_ICONQUESTION
or MB_YESNO
or
5263 MB_DEFBUTTON1
) = mrYes
) then
5267 procedure TMainForm
.aUndoExecute(Sender
: TObject
);
5271 if UndoBuffer
= nil then
5273 if UndoBuffer
[High(UndoBuffer
)] = nil then
5276 for a
:= 0 to High(UndoBuffer
[High(UndoBuffer
)]) do
5277 with UndoBuffer
[High(UndoBuffer
)][a
] do
5285 UNDO_DELETE_ITEM
: AddItem(Item
);
5286 UNDO_DELETE_AREA
: AddArea(Area
);
5287 UNDO_DELETE_MONSTER
: AddMonster(Monster
);
5288 UNDO_DELETE_TRIGGER
: AddTrigger(Trigger
);
5289 UNDO_ADD_PANEL
: RemoveObject(AddID
, OBJECT_PANEL
);
5290 UNDO_ADD_ITEM
: RemoveObject(AddID
, OBJECT_ITEM
);
5291 UNDO_ADD_AREA
: RemoveObject(AddID
, OBJECT_AREA
);
5292 UNDO_ADD_MONSTER
: RemoveObject(AddID
, OBJECT_MONSTER
);
5293 UNDO_ADD_TRIGGER
: RemoveObject(AddID
, OBJECT_TRIGGER
);
5297 SetLength(UndoBuffer
, Length(UndoBuffer
)-1);
5299 RemoveSelectFromObjects();
5301 miUndo
.Enabled
:= UndoBuffer
<> nil;
5305 procedure TMainForm
.aCopyObjectExecute(Sender
: TObject
);
5308 CopyBuffer
: TCopyRecArray
;
5312 function CB_Compare(I1
, I2
: TCopyRec
): Integer;
5314 Result
:= Integer(I1
.ObjectType
) - Integer(I2
.ObjectType
);
5316 if Result
= 0 then // Одного типа
5317 Result
:= Integer(I1
.ID
) - Integer(I2
.ID
);
5320 procedure QuickSortCopyBuffer(L
, R
: Integer);
5328 P
:= CopyBuffer
[(L
+ R
) shr 1];
5331 while CB_Compare(CopyBuffer
[I
], P
) < 0 do
5333 while CB_Compare(CopyBuffer
[J
], P
) > 0 do
5339 CopyBuffer
[I
] := CopyBuffer
[J
];
5347 QuickSortCopyBuffer(L
, J
);
5354 if SelectedObjects
= nil then
5360 // Копируем объекты:
5361 for a
:= 0 to High(SelectedObjects
) do
5362 if SelectedObjects
[a
].Live
then
5363 with SelectedObjects
[a
] do
5365 SetLength(CopyBuffer
, Length(CopyBuffer
)+1);
5366 b
:= High(CopyBuffer
);
5367 CopyBuffer
[b
].ID
:= ID
;
5368 CopyBuffer
[b
].Panel
:= nil;
5373 CopyBuffer
[b
].ObjectType
:= OBJECT_PANEL
;
5374 New(CopyBuffer
[b
].Panel
);
5375 CopyBuffer
[b
].Panel
^ := gPanels
[ID
];
5380 CopyBuffer
[b
].ObjectType
:= OBJECT_ITEM
;
5381 CopyBuffer
[b
].Item
:= gItems
[ID
];
5386 CopyBuffer
[b
].ObjectType
:= OBJECT_MONSTER
;
5387 CopyBuffer
[b
].Monster
:= gMonsters
[ID
];
5392 CopyBuffer
[b
].ObjectType
:= OBJECT_AREA
;
5393 CopyBuffer
[b
].Area
:= gAreas
[ID
];
5398 CopyBuffer
[b
].ObjectType
:= OBJECT_TRIGGER
;
5399 CopyBuffer
[b
].Trigger
:= gTriggers
[ID
];
5404 // Сортировка по ID:
5405 if CopyBuffer
<> nil then
5407 QuickSortCopyBuffer(0, b
);
5410 // Пестановка ссылок триггеров:
5411 for a
:= 0 to Length(CopyBuffer
)-1 do
5412 if CopyBuffer
[a
].ObjectType
= OBJECT_TRIGGER
then
5414 case CopyBuffer
[a
].Trigger
.TriggerType
of
5415 TRIGGER_OPENDOOR
, TRIGGER_CLOSEDOOR
, TRIGGER_DOOR
,
5416 TRIGGER_DOOR5
, TRIGGER_CLOSETRAP
, TRIGGER_TRAP
,
5417 TRIGGER_LIFTUP
, TRIGGER_LIFTDOWN
, TRIGGER_LIFT
:
5418 if CopyBuffer
[a
].Trigger
.Data
.PanelID
<> -1 then
5422 for b
:= 0 to Length(CopyBuffer
)-1 do
5423 if (CopyBuffer
[b
].ObjectType
= OBJECT_PANEL
) and
5424 (Integer(CopyBuffer
[b
].ID
) = CopyBuffer
[a
].Trigger
.Data
.PanelID
) then
5426 CopyBuffer
[a
].Trigger
.Data
.PanelID
:= b
;
5431 // Этих панелей нет среди копируемых:
5433 CopyBuffer
[a
].Trigger
.Data
.PanelID
:= -1;
5436 TRIGGER_PRESS
, TRIGGER_ON
,
5437 TRIGGER_OFF
, TRIGGER_ONOFF
:
5438 if CopyBuffer
[a
].Trigger
.Data
.MonsterID
<> 0 then
5442 for b
:= 0 to Length(CopyBuffer
)-1 do
5443 if (CopyBuffer
[b
].ObjectType
= OBJECT_MONSTER
) and
5444 (Integer(CopyBuffer
[b
].ID
) = CopyBuffer
[a
].Trigger
.Data
.MonsterID
-1) then
5446 CopyBuffer
[a
].Trigger
.Data
.MonsterID
:= b
+1;
5451 // Этих монстров нет среди копируемых:
5453 CopyBuffer
[a
].Trigger
.Data
.MonsterID
:= 0;
5457 if CopyBuffer
[a
].Trigger
.Data
.ShotPanelID
<> -1 then
5461 for b
:= 0 to Length(CopyBuffer
)-1 do
5462 if (CopyBuffer
[b
].ObjectType
= OBJECT_PANEL
) and
5463 (Integer(CopyBuffer
[b
].ID
) = CopyBuffer
[a
].Trigger
.Data
.ShotPanelID
) then
5465 CopyBuffer
[a
].Trigger
.Data
.ShotPanelID
:= b
;
5470 // Этих панелей нет среди копируемых:
5472 CopyBuffer
[a
].Trigger
.Data
.ShotPanelID
:= -1;
5476 if CopyBuffer
[a
].Trigger
.TexturePanel
<> -1 then
5480 for b
:= 0 to Length(CopyBuffer
)-1 do
5481 if (CopyBuffer
[b
].ObjectType
= OBJECT_PANEL
) and
5482 (Integer(CopyBuffer
[b
].ID
) = CopyBuffer
[a
].Trigger
.TexturePanel
) then
5484 CopyBuffer
[a
].Trigger
.TexturePanel
:= b
;
5489 // Этих панелей нет среди копируемых:
5491 CopyBuffer
[a
].Trigger
.TexturePanel
:= -1;
5496 str
:= CopyBufferToString(CopyBuffer
);
5497 ClipBoard
.AsText
:= str
;
5499 for a
:= 0 to Length(CopyBuffer
)-1 do
5500 if (CopyBuffer
[a
].ObjectType
= OBJECT_PANEL
) and
5501 (CopyBuffer
[a
].Panel
<> nil) then
5502 Dispose(CopyBuffer
[a
].Panel
);
5507 procedure TMainForm
.aPasteObjectExecute(Sender
: TObject
);
5510 CopyBuffer
: TCopyRecArray
;
5512 swad
, ssec
, sres
: String;
5518 pmin
.X
:= High(pmin
.X
);
5519 pmin
.Y
:= High(pmin
.Y
);
5521 StringToCopyBuffer(ClipBoard
.AsText
, CopyBuffer
, pmin
);
5522 rel
:= not(ssShift
in GetKeyShiftState());
5524 if CopyBuffer
= nil then
5527 RemoveSelectFromObjects();
5529 h
:= High(CopyBuffer
);
5531 with CopyBuffer
[a
] do
5535 if Panel
<> nil then
5539 Panel
^.X
:= Panel
^.X
- pmin
.X
- MapOffset
.X
+ 32;
5540 Panel
^.Y
:= Panel
^.Y
- pmin
.Y
- MapOffset
.Y
+ 32;
5543 Panel
^.TextureID
:= TEXTURE_SPECIAL_NONE
;
5544 Panel
^.TextureWidth
:= 1;
5545 Panel
^.TextureHeight
:= 1;
5547 if (Panel
^.PanelType
= PANEL_LIFTUP
) or
5548 (Panel
^.PanelType
= PANEL_LIFTDOWN
) or
5549 (Panel
^.PanelType
= PANEL_LIFTLEFT
) or
5550 (Panel
^.PanelType
= PANEL_LIFTRIGHT
) or
5551 (Panel
^.PanelType
= PANEL_BLOCKMON
) or
5552 (Panel
^.TextureName
= '') then
5553 begin // Нет или не может быть текстуры:
5555 else // Есть текстура:
5557 // Обычная текстура:
5558 if not IsSpecialTexture(Panel
^.TextureName
) then
5560 res
:= g_GetTexture(Panel
^.TextureName
, Panel
^.TextureID
);
5564 g_ProcessResourceStr(Panel
^.TextureName
, swad
, ssec
, sres
);
5565 AddTexture(swad
, ssec
, sres
, True);
5566 res
:= g_GetTexture(Panel
^.TextureName
, Panel
^.TextureID
);
5570 g_GetTextureSizeByName(Panel
^.TextureName
,
5571 Panel
^.TextureWidth
, Panel
^.TextureHeight
)
5573 if g_GetTexture('NOTEXTURE', NoTextureID
) then
5575 Panel
^.TextureID
:= TEXTURE_SPECIAL_NOTEXTURE
;
5576 g_GetTextureSizeByID(NoTextureID
, Panel
^.TextureWidth
, Panel
^.TextureHeight
);
5579 else // Спец.текстура:
5581 Panel
^.TextureID
:= SpecialTextureID(Panel
^.TextureName
);
5582 with MainForm
.lbTextureList
.Items
do
5583 if IndexOf(Panel
^.TextureName
) = -1 then
5584 Add(Panel
^.TextureName
);
5588 ID
:= AddPanel(Panel
^);
5590 Undo_Add(OBJECT_PANEL
, ID
, a
> 0);
5591 SelectObject(OBJECT_PANEL
, ID
, True);
5598 Item
.X
:= Item
.X
- pmin
.X
- MapOffset
.X
+ 32;
5599 Item
.Y
:= Item
.Y
- pmin
.Y
- MapOffset
.Y
+ 32;
5602 ID
:= AddItem(Item
);
5603 Undo_Add(OBJECT_ITEM
, ID
, a
> 0);
5604 SelectObject(OBJECT_ITEM
, ID
, True);
5611 Monster
.X
:= Monster
.X
- pmin
.X
- MapOffset
.X
+ 32;
5612 Monster
.Y
:= Monster
.Y
- pmin
.Y
- MapOffset
.Y
+ 32;
5615 ID
:= AddMonster(Monster
);
5616 Undo_Add(OBJECT_MONSTER
, ID
, a
> 0);
5617 SelectObject(OBJECT_MONSTER
, ID
, True);
5624 Area
.X
:= Area
.X
- pmin
.X
- MapOffset
.X
+ 32;
5625 Area
.Y
:= Area
.Y
- pmin
.Y
- MapOffset
.Y
+ 32;
5628 ID
:= AddArea(Area
);
5629 Undo_Add(OBJECT_AREA
, ID
, a
> 0);
5630 SelectObject(OBJECT_AREA
, ID
, True);
5638 X
:= X
- pmin
.X
- MapOffset
.X
+ 32;
5639 Y
:= Y
- pmin
.Y
- MapOffset
.Y
+ 32;
5644 Data
.TargetPoint
.X
:=
5645 Data
.TargetPoint
.X
- pmin
.X
- MapOffset
.X
+ 32;
5646 Data
.TargetPoint
.Y
:=
5647 Data
.TargetPoint
.Y
- pmin
.Y
- MapOffset
.Y
+ 32;
5649 TRIGGER_PRESS
, TRIGGER_ON
, TRIGGER_OFF
, TRIGGER_ONOFF
:
5651 Data
.tX
:= Data
.tX
- pmin
.X
- MapOffset
.X
+ 32;
5652 Data
.tY
:= Data
.tY
- pmin
.Y
- MapOffset
.Y
+ 32;
5654 TRIGGER_SPAWNMONSTER
:
5657 Data
.MonPos
.X
- pmin
.X
- MapOffset
.X
+ 32;
5659 Data
.MonPos
.Y
- pmin
.Y
- MapOffset
.Y
+ 32;
5664 Data
.ItemPos
.X
- pmin
.X
- MapOffset
.X
+ 32;
5666 Data
.ItemPos
.Y
- pmin
.Y
- MapOffset
.Y
+ 32;
5671 Data
.ShotPos
.X
- pmin
.X
- MapOffset
.X
+ 32;
5673 Data
.ShotPos
.Y
- pmin
.Y
- MapOffset
.Y
+ 32;
5678 ID
:= AddTrigger(Trigger
);
5679 Undo_Add(OBJECT_TRIGGER
, ID
, a
> 0);
5680 SelectObject(OBJECT_TRIGGER
, ID
, True);
5685 // Переставляем ссылки триггеров:
5686 for a
:= 0 to High(CopyBuffer
) do
5687 if CopyBuffer
[a
].ObjectType
= OBJECT_TRIGGER
then
5689 case CopyBuffer
[a
].Trigger
.TriggerType
of
5690 TRIGGER_OPENDOOR
, TRIGGER_CLOSEDOOR
, TRIGGER_DOOR
,
5691 TRIGGER_DOOR5
, TRIGGER_CLOSETRAP
, TRIGGER_TRAP
,
5692 TRIGGER_LIFTUP
, TRIGGER_LIFTDOWN
, TRIGGER_LIFT
:
5693 if CopyBuffer
[a
].Trigger
.Data
.PanelID
<> -1 then
5694 gTriggers
[CopyBuffer
[a
].ID
].Data
.PanelID
:=
5695 CopyBuffer
[CopyBuffer
[a
].Trigger
.Data
.PanelID
].ID
;
5697 TRIGGER_PRESS
, TRIGGER_ON
,
5698 TRIGGER_OFF
, TRIGGER_ONOFF
:
5699 if CopyBuffer
[a
].Trigger
.Data
.MonsterID
<> 0 then
5700 gTriggers
[CopyBuffer
[a
].ID
].Data
.MonsterID
:=
5701 CopyBuffer
[CopyBuffer
[a
].Trigger
.Data
.MonsterID
-1].ID
+1;
5704 if CopyBuffer
[a
].Trigger
.Data
.ShotPanelID
<> -1 then
5705 gTriggers
[CopyBuffer
[a
].ID
].Data
.ShotPanelID
:=
5706 CopyBuffer
[CopyBuffer
[a
].Trigger
.Data
.ShotPanelID
].ID
;
5709 if CopyBuffer
[a
].Trigger
.TexturePanel
<> -1 then
5710 gTriggers
[CopyBuffer
[a
].ID
].TexturePanel
:=
5711 CopyBuffer
[CopyBuffer
[a
].Trigger
.TexturePanel
].ID
;
5720 procedure TMainForm
.aCutObjectExecute(Sender
: TObject
);
5723 DeleteSelectedObjects();
5726 procedure TMainForm
.vleObjectPropertyEditButtonClick(Sender
: TObject
);
5728 Key
, FileName
: String;
5731 Key
:= vleObjectProperty
.Keys
[vleObjectProperty
.Row
];
5733 if Key
= _lc
[I_PROP_PANEL_TYPE
] then
5735 with ChooseTypeForm
, vleObjectProperty
do
5736 begin // Выбор типа панели:
5737 Caption
:= _lc
[I_PROP_PANEL_TYPE
];
5738 lbTypeSelect
.Items
.Clear();
5740 for b
:= 0 to High(PANELNAMES
) do
5742 lbTypeSelect
.Items
.Add(PANELNAMES
[b
]);
5743 if Values
[Key
] = PANELNAMES
[b
] then
5744 lbTypeSelect
.ItemIndex
:= b
;
5747 if ShowModal() = mrOK
then
5749 b
:= lbTypeSelect
.ItemIndex
;
5750 Values
[Key
] := PANELNAMES
[b
];
5751 vleObjectPropertyApply(Sender
);
5755 else if Key
= _lc
[I_PROP_TR_TELEPORT_TO
] then
5756 SelectFlag
:= SELECTFLAG_TELEPORT
5757 else if Key
= _lc
[I_PROP_TR_SPAWN_TO
] then
5758 SelectFlag
:= SELECTFLAG_SPAWNPOINT
5759 else if (Key
= _lc
[I_PROP_TR_DOOR_PANEL
]) or
5760 (Key
= _lc
[I_PROP_TR_TRAP_PANEL
]) then
5761 SelectFlag
:= SELECTFLAG_DOOR
5762 else if Key
= _lc
[I_PROP_TR_TEXTURE_PANEL
] then
5764 DrawPressRect
:= False;
5765 SelectFlag
:= SELECTFLAG_TEXTURE
;
5767 else if Key
= _lc
[I_PROP_TR_SHOT_PANEL
] then
5768 SelectFlag
:= SELECTFLAG_SHOTPANEL
5769 else if Key
= _lc
[I_PROP_TR_LIFT_PANEL
] then
5770 SelectFlag
:= SELECTFLAG_LIFT
5771 else if key
= _lc
[I_PROP_TR_EX_MONSTER
] then
5772 SelectFlag
:= SELECTFLAG_MONSTER
5773 else if Key
= _lc
[I_PROP_TR_EX_AREA
] then
5775 SelectFlag
:= SELECTFLAG_NONE
;
5776 DrawPressRect
:= True;
5778 else if Key
= _lc
[I_PROP_TR_NEXT_MAP
] then
5779 begin // Выбор следующей карты:
5780 g_ProcessResourceStr(OpenedMap
, @FileName
, nil, nil);
5781 SelectMapForm
.Caption
:= _lc
[I_CAP_SELECT
];
5782 SelectMapForm
.GetMaps(FileName
);
5784 if SelectMapForm
.ShowModal() = mrOK
then
5786 vleObjectProperty
.Values
[Key
] := SelectMapForm
.lbMapList
.Items
[SelectMapForm
.lbMapList
.ItemIndex
];
5787 vleObjectPropertyApply(Sender
);
5790 else if (Key
= _lc
[I_PROP_TR_SOUND_NAME
]) or
5791 (Key
= _lc
[I_PROP_TR_MUSIC_NAME
]) then
5792 begin // Выбор файла звука/музыки:
5793 AddSoundForm
.OKFunction
:= nil;
5794 AddSoundForm
.lbResourcesList
.MultiSelect
:= False;
5795 AddSoundForm
.SetResource
:= vleObjectProperty
.Values
[Key
];
5797 if (AddSoundForm
.ShowModal() = mrOk
) then
5799 vleObjectProperty
.Values
[Key
] := AddSoundForm
.ResourceName
;
5800 vleObjectPropertyApply(Sender
);
5803 else if Key
= _lc
[I_PROP_TR_ACTIVATION
] then
5804 with ActivationTypeForm
, vleObjectProperty
do
5805 begin // Выбор типов активации:
5806 cbPlayerCollide
.Checked
:= Pos('PC', Values
[Key
]) > 0;
5807 cbMonsterCollide
.Checked
:= Pos('MC', Values
[Key
]) > 0;
5808 cbPlayerPress
.Checked
:= Pos('PP', Values
[Key
]) > 0;
5809 cbMonsterPress
.Checked
:= Pos('MP', Values
[Key
]) > 0;
5810 cbShot
.Checked
:= Pos('SH', Values
[Key
]) > 0;
5811 cbNoMonster
.Checked
:= Pos('NM', Values
[Key
]) > 0;
5813 if ShowModal() = mrOK
then
5816 if cbPlayerCollide
.Checked
then
5817 b
:= ACTIVATE_PLAYERCOLLIDE
;
5818 if cbMonsterCollide
.Checked
then
5819 b
:= b
or ACTIVATE_MONSTERCOLLIDE
;
5820 if cbPlayerPress
.Checked
then
5821 b
:= b
or ACTIVATE_PLAYERPRESS
;
5822 if cbMonsterPress
.Checked
then
5823 b
:= b
or ACTIVATE_MONSTERPRESS
;
5824 if cbShot
.Checked
then
5825 b
:= b
or ACTIVATE_SHOT
;
5826 if cbNoMonster
.Checked
then
5827 b
:= b
or ACTIVATE_NOMONSTER
;
5829 Values
[Key
] := ActivateToStr(b
);
5830 vleObjectPropertyApply(Sender
);
5833 else if Key
= _lc
[I_PROP_TR_KEYS
] then
5834 with KeysForm
, vleObjectProperty
do
5835 begin // Выбор необходимых ключей:
5836 cbRedKey
.Checked
:= Pos('RK', Values
[Key
]) > 0;
5837 cbGreenKey
.Checked
:= Pos('GK', Values
[Key
]) > 0;
5838 cbBlueKey
.Checked
:= Pos('BK', Values
[Key
]) > 0;
5839 cbRedTeam
.Checked
:= Pos('RT', Values
[Key
]) > 0;
5840 cbBlueTeam
.Checked
:= Pos('BT', Values
[Key
]) > 0;
5842 if ShowModal() = mrOK
then
5845 if cbRedKey
.Checked
then
5847 if cbGreenKey
.Checked
then
5848 b
:= b
or KEY_GREEN
;
5849 if cbBlueKey
.Checked
then
5851 if cbRedTeam
.Checked
then
5852 b
:= b
or KEY_REDTEAM
;
5853 if cbBlueTeam
.Checked
then
5854 b
:= b
or KEY_BLUETEAM
;
5856 Values
[Key
] := KeyToStr(b
);
5857 vleObjectPropertyApply(Sender
);
5860 else if Key
= _lc
[I_PROP_TR_FX_TYPE
] then
5861 with ChooseTypeForm
, vleObjectProperty
do
5862 begin // Выбор типа эффекта:
5863 Caption
:= _lc
[I_CAP_FX_TYPE
];
5864 lbTypeSelect
.Items
.Clear();
5866 for b
:= EFFECT_NONE
to EFFECT_FIRE
do
5867 lbTypeSelect
.Items
.Add(EffectToStr(b
));
5869 lbTypeSelect
.ItemIndex
:= StrToEffect(Values
[Key
]);
5871 if ShowModal() = mrOK
then
5873 b
:= lbTypeSelect
.ItemIndex
;
5874 Values
[Key
] := EffectToStr(b
);
5875 vleObjectPropertyApply(Sender
);
5878 else if Key
= _lc
[I_PROP_TR_MONSTER_TYPE
] then
5879 with ChooseTypeForm
, vleObjectProperty
do
5880 begin // Выбор типа монстра:
5881 Caption
:= _lc
[I_CAP_MONSTER_TYPE
];
5882 lbTypeSelect
.Items
.Clear();
5884 for b
:= MONSTER_DEMON
to MONSTER_MAN
do
5885 lbTypeSelect
.Items
.Add(MonsterToStr(b
));
5887 lbTypeSelect
.ItemIndex
:= StrToMonster(Values
[Key
]) - MONSTER_DEMON
;
5889 if ShowModal() = mrOK
then
5891 b
:= lbTypeSelect
.ItemIndex
+ MONSTER_DEMON
;
5892 Values
[Key
] := MonsterToStr(b
);
5893 vleObjectPropertyApply(Sender
);
5896 else if Key
= _lc
[I_PROP_TR_ITEM_TYPE
] then
5897 with ChooseTypeForm
, vleObjectProperty
do
5898 begin // Выбор типа предмета:
5899 Caption
:= _lc
[I_CAP_ITEM_TYPE
];
5900 lbTypeSelect
.Items
.Clear();
5902 for b
:= ITEM_MEDKIT_SMALL
to ITEM_KEY_BLUE
do
5903 lbTypeSelect
.Items
.Add(ItemToStr(b
));
5904 lbTypeSelect
.Items
.Add(ItemToStr(ITEM_BOTTLE
));
5905 lbTypeSelect
.Items
.Add(ItemToStr(ITEM_HELMET
));
5906 lbTypeSelect
.Items
.Add(ItemToStr(ITEM_JETPACK
));
5907 lbTypeSelect
.Items
.Add(ItemToStr(ITEM_INVIS
));
5908 lbTypeSelect
.Items
.Add(ItemToStr(ITEM_WEAPON_FLAMETHROWER
));
5909 lbTypeSelect
.Items
.Add(ItemToStr(ITEM_AMMO_FUELCAN
));
5911 b
:= StrToItem(Values
[Key
]);
5912 if b
>= ITEM_BOTTLE
then
5914 lbTypeSelect
.ItemIndex
:= b
- ITEM_MEDKIT_SMALL
;
5916 if ShowModal() = mrOK
then
5918 b
:= lbTypeSelect
.ItemIndex
+ ITEM_MEDKIT_SMALL
;
5919 if b
>= ITEM_WEAPON_KASTET
then
5921 Values
[Key
] := ItemToStr(b
);
5922 vleObjectPropertyApply(Sender
);
5925 else if Key
= _lc
[I_PROP_TR_SHOT_TYPE
] then
5926 with ChooseTypeForm
, vleObjectProperty
do
5927 begin // Выбор типа предмета:
5928 Caption
:= _lc
[I_PROP_TR_SHOT_TYPE
];
5929 lbTypeSelect
.Items
.Clear();
5931 for b
:= TRIGGER_SHOT_PISTOL
to TRIGGER_SHOT_MAX
do
5932 lbTypeSelect
.Items
.Add(ShotToStr(b
));
5934 lbTypeSelect
.ItemIndex
:= StrToShot(Values
[Key
]);
5936 if ShowModal() = mrOK
then
5938 b
:= lbTypeSelect
.ItemIndex
;
5939 Values
[Key
] := ShotToStr(b
);
5940 vleObjectPropertyApply(Sender
);
5943 else if Key
= _lc
[I_PROP_TR_EFFECT_TYPE
] then
5944 with ChooseTypeForm
, vleObjectProperty
do
5945 begin // Выбор типа эффекта:
5946 Caption
:= _lc
[I_CAP_FX_TYPE
];
5947 lbTypeSelect
.Items
.Clear();
5949 lbTypeSelect
.Items
.Add(_lc
[I_PROP_TR_EFFECT_PARTICLE
]);
5950 lbTypeSelect
.Items
.Add(_lc
[I_PROP_TR_EFFECT_ANIMATION
]);
5951 if Values
[Key
] = _lc
[I_PROP_TR_EFFECT_ANIMATION
] then
5952 lbTypeSelect
.ItemIndex
:= 1
5954 lbTypeSelect
.ItemIndex
:= 0;
5956 if ShowModal() = mrOK
then
5958 b
:= lbTypeSelect
.ItemIndex
;
5960 Values
[Key
] := _lc
[I_PROP_TR_EFFECT_PARTICLE
]
5962 Values
[Key
] := _lc
[I_PROP_TR_EFFECT_ANIMATION
];
5963 vleObjectPropertyApply(Sender
);
5966 else if Key
= _lc
[I_PROP_TR_EFFECT_SUBTYPE
] then
5967 with ChooseTypeForm
, vleObjectProperty
do
5968 begin // Выбор подтипа эффекта:
5969 Caption
:= _lc
[I_CAP_FX_TYPE
];
5970 lbTypeSelect
.Items
.Clear();
5972 if Values
[_lc
[I_PROP_TR_EFFECT_TYPE
]] = _lc
[I_PROP_TR_EFFECT_ANIMATION
] then
5974 for b
:= EFFECT_TELEPORT
to EFFECT_FIRE
do
5975 lbTypeSelect
.Items
.Add(EffectToStr(b
));
5977 lbTypeSelect
.ItemIndex
:= StrToEffect(Values
[Key
]) - 1;
5980 lbTypeSelect
.Items
.Add(_lc
[I_PROP_TR_EFFECT_SLIQUID
]);
5981 lbTypeSelect
.Items
.Add(_lc
[I_PROP_TR_EFFECT_LLIQUID
]);
5982 lbTypeSelect
.Items
.Add(_lc
[I_PROP_TR_EFFECT_DLIQUID
]);
5983 lbTypeSelect
.Items
.Add(_lc
[I_PROP_TR_EFFECT_BLOOD
]);
5984 lbTypeSelect
.Items
.Add(_lc
[I_PROP_TR_EFFECT_SPARK
]);
5985 lbTypeSelect
.Items
.Add(_lc
[I_PROP_TR_EFFECT_BUBBLE
]);
5986 lbTypeSelect
.ItemIndex
:= TRIGGER_EFFECT_SLIQUID
;
5987 if Values
[Key
] = _lc
[I_PROP_TR_EFFECT_LLIQUID
] then
5988 lbTypeSelect
.ItemIndex
:= TRIGGER_EFFECT_LLIQUID
;
5989 if Values
[Key
] = _lc
[I_PROP_TR_EFFECT_DLIQUID
] then
5990 lbTypeSelect
.ItemIndex
:= TRIGGER_EFFECT_DLIQUID
;
5991 if Values
[Key
] = _lc
[I_PROP_TR_EFFECT_BLOOD
] then
5992 lbTypeSelect
.ItemIndex
:= TRIGGER_EFFECT_BLOOD
;
5993 if Values
[Key
] = _lc
[I_PROP_TR_EFFECT_SPARK
] then
5994 lbTypeSelect
.ItemIndex
:= TRIGGER_EFFECT_SPARK
;
5995 if Values
[Key
] = _lc
[I_PROP_TR_EFFECT_BUBBLE
] then
5996 lbTypeSelect
.ItemIndex
:= TRIGGER_EFFECT_BUBBLE
;
5999 if ShowModal() = mrOK
then
6001 b
:= lbTypeSelect
.ItemIndex
;
6003 if Values
[_lc
[I_PROP_TR_EFFECT_TYPE
]] = _lc
[I_PROP_TR_EFFECT_ANIMATION
] then
6004 Values
[Key
] := EffectToStr(b
+ 1)
6006 Values
[Key
] := _lc
[I_PROP_TR_EFFECT_SLIQUID
];
6007 if b
= TRIGGER_EFFECT_LLIQUID
then
6008 Values
[Key
] := _lc
[I_PROP_TR_EFFECT_LLIQUID
];
6009 if b
= TRIGGER_EFFECT_DLIQUID
then
6010 Values
[Key
] := _lc
[I_PROP_TR_EFFECT_DLIQUID
];
6011 if b
= TRIGGER_EFFECT_BLOOD
then
6012 Values
[Key
] := _lc
[I_PROP_TR_EFFECT_BLOOD
];
6013 if b
= TRIGGER_EFFECT_SPARK
then
6014 Values
[Key
] := _lc
[I_PROP_TR_EFFECT_SPARK
];
6015 if b
= TRIGGER_EFFECT_BUBBLE
then
6016 Values
[Key
] := _lc
[I_PROP_TR_EFFECT_BUBBLE
];
6019 vleObjectPropertyApply(Sender
);
6022 else if Key
= _lc
[I_PROP_TR_EFFECT_COLOR
] then
6023 with vleObjectProperty
do
6024 begin // Выбор цвета эффекта:
6025 ColorDialog
.Color
:= StrToIntDef(Values
[Key
], 0);
6026 if ColorDialog
.Execute
then
6028 Values
[Key
] := IntToStr(ColorDialog
.Color
);
6029 vleObjectPropertyApply(Sender
);
6032 else if Key
= _lc
[I_PROP_PANEL_TEX
] then
6033 begin // Смена текстуры:
6034 vleObjectProperty
.Values
[Key
] := SelectedTexture();
6035 vleObjectPropertyApply(Sender
);
6039 procedure TMainForm
.vleObjectPropertyApply(Sender
: TObject
);
6041 // hack to prevent empty ID in list
6042 RenderPanel
.SetFocus();
6043 bApplyProperty
.Click();
6044 vleObjectProperty
.SetFocus();
6047 procedure TMainForm
.aSaveMapExecute(Sender
: TObject
);
6049 FileName
, Section
, Res
: String;
6051 if OpenedMap
= '' then
6053 aSaveMapAsExecute(nil);
6057 g_ProcessResourceStr(OpenedMap
, FileName
, Section
, Res
);
6059 SaveMap(FileName
+':\'+Res
);
6062 procedure TMainForm
.aOpenMapExecute(Sender
: TObject
);
6064 OpenDialog
.Filter
:= _lc
[I_FILE_FILTER_ALL
];
6066 if OpenDialog
.Execute() then
6068 OpenMapFile(OpenDialog
.FileName
);
6069 OpenDialog
.InitialDir
:= ExtractFileDir(OpenDialog
.FileName
);
6073 procedure TMainForm
.OpenMapFile(FileName
: String);
6075 if (Pos('.ini', LowerCase(ExtractFileName(FileName
))) > 0) then
6079 pLoadProgress
.Left
:= (RenderPanel
.Width
div 2)-(pLoadProgress
.Width
div 2);
6080 pLoadProgress
.Top
:= (RenderPanel
.Height
div 2)-(pLoadProgress
.Height
div 2);
6081 pLoadProgress
.Show();
6086 LoadMapOld(FileName
);
6088 MainForm
.Caption
:= Format('%s - %s', [FormCaption
, ExtractFileName(FileName
)]);
6090 pLoadProgress
.Hide();
6091 MainForm
.FormResize(Self
);
6093 else // Карты из WAD:
6095 OpenMap(FileName
, '');
6099 procedure TMainForm
.FormActivate(Sender
: TObject
);
6104 MainForm
.ActiveControl
:= RenderPanel
;
6107 if gLanguage
= '' then
6109 lang
:= SelectLanguageForm
.ShowModal();
6111 1: gLanguage
:= LANGUAGE_ENGLISH
;
6112 else gLanguage
:= LANGUAGE_RUSSIAN
;
6115 config
:= TConfig
.CreateFile(EditorDir
+'Editor.cfg');
6116 config
.WriteStr('Editor', 'Language', gLanguage
);
6117 config
.SaveFile(EditorDir
+'Editor.cfg');
6121 //e_WriteLog('Read language file', MSG_NOTIFY);
6122 //g_Language_Load(EditorDir+'\data\'+gLanguage+LANGUAGE_FILE_NAME);
6123 g_Language_Set(gLanguage
);
6126 procedure TMainForm
.aDeleteMap(Sender
: TObject
);
6134 OpenDialog
.Filter
:= _lc
[I_FILE_FILTER_WAD
];
6136 if not OpenDialog
.Execute() then
6139 WAD
:= TWADEditor_1
.Create();
6141 if not WAD
.ReadFile(OpenDialog
.FileName
) then
6149 MapList
:= WAD
.GetResourcesList('');
6151 SelectMapForm
.Caption
:= _lc
[I_CAP_REMOVE
];
6152 SelectMapForm
.lbMapList
.Items
.Clear();
6154 if MapList
<> nil then
6155 for a
:= 0 to High(MapList
) do
6156 SelectMapForm
.lbMapList
.Items
.Add(win2utf(MapList
[a
]));
6158 if (SelectMapForm
.ShowModal() = mrOK
) then
6160 str
:= SelectMapForm
.lbMapList
.Items
[SelectMapForm
.lbMapList
.ItemIndex
];
6162 Move(str
[1], MapName
[0], Min(16, Length(str
)));
6164 if MessageBox(0, PChar(Format(_lc
[I_MSG_DELETE_MAP_PROMT
],
6165 [MapName
, OpenDialog
.FileName
])),
6166 PChar(_lc
[I_MSG_DELETE_MAP
]),
6167 MB_ICONQUESTION
or MB_YESNO
or
6168 MB_DEFBUTTON2
) <> mrYes
then
6171 WAD
.RemoveResource('', utf2win(MapName
));
6173 MessageBox(0, PChar(Format(_lc
[I_MSG_MAP_DELETED_PROMT
],
6175 PChar(_lc
[I_MSG_MAP_DELETED
]),
6176 MB_ICONINFORMATION
or MB_OK
or
6179 WAD
.SaveTo(OpenDialog
.FileName
);
6181 // Удалили текущую карту - сохранять по старому ее нельзя:
6182 if OpenedMap
= (OpenDialog
.FileName
+':\'+MapName
) then
6186 MainForm
.Caption
:= FormCaption
;
6193 procedure TMainForm
.vleObjectPropertyKeyDown(Sender
: TObject
;
6194 var Key
: Word; Shift
: TShiftState
);
6196 if Key
= VK_RETURN
then
6197 vleObjectPropertyApply(Sender
);
6200 procedure MovePanel(var ID
: DWORD
; MoveType
: Byte);
6205 if (ID
= 0) and (MoveType
= 0) then
6207 if (ID
= DWORD(High(gPanels
))) and (MoveType
<> 0) then
6209 if (ID
> DWORD(High(gPanels
))) then
6214 if MoveType
= 0 then // to Back
6216 if gTriggers
<> nil then
6217 for a
:= 0 to High(gTriggers
) do
6218 with gTriggers
[a
] do
6220 if TriggerType
= TRIGGER_NONE
then
6223 if TexturePanel
= _id
then
6226 if (TexturePanel
>= 0) and (TexturePanel
< _id
) then
6230 TRIGGER_OPENDOOR
, TRIGGER_CLOSEDOOR
, TRIGGER_DOOR
,
6231 TRIGGER_DOOR5
, TRIGGER_CLOSETRAP
, TRIGGER_TRAP
,
6232 TRIGGER_LIFTUP
, TRIGGER_LIFTDOWN
, TRIGGER_LIFT
:
6233 if Data
.PanelID
= _id
then
6236 if (Data
.PanelID
>= 0) and (Data
.PanelID
< _id
) then
6240 if Data
.ShotPanelID
= _id
then
6241 Data
.ShotPanelID
:= 0
6243 if (Data
.ShotPanelID
>= 0) and (Data
.ShotPanelID
< _id
) then
6244 Inc(Data
.ShotPanelID
);
6248 tmp
:= gPanels
[_id
];
6250 for a
:= _id
downto 1 do
6251 gPanels
[a
] := gPanels
[a
-1];
6259 if gTriggers
<> nil then
6260 for a
:= 0 to High(gTriggers
) do
6261 with gTriggers
[a
] do
6263 if TriggerType
= TRIGGER_NONE
then
6266 if TexturePanel
= _id
then
6267 TexturePanel
:= High(gPanels
)
6269 if TexturePanel
> _id
then
6273 TRIGGER_OPENDOOR
, TRIGGER_CLOSEDOOR
, TRIGGER_DOOR
,
6274 TRIGGER_DOOR5
, TRIGGER_CLOSETRAP
, TRIGGER_TRAP
,
6275 TRIGGER_LIFTUP
, TRIGGER_LIFTDOWN
, TRIGGER_LIFT
:
6276 if Data
.PanelID
= _id
then
6277 Data
.PanelID
:= High(gPanels
)
6279 if Data
.PanelID
> _id
then
6283 if Data
.ShotPanelID
= _id
then
6284 Data
.ShotPanelID
:= High(gPanels
)
6286 if Data
.ShotPanelID
> _id
then
6287 Dec(Data
.ShotPanelID
);
6291 tmp
:= gPanels
[_id
];
6293 for a
:= _id
to High(gPanels
)-1 do
6294 gPanels
[a
] := gPanels
[a
+1];
6296 gPanels
[High(gPanels
)] := tmp
;
6298 ID
:= High(gPanels
);
6302 procedure TMainForm
.aMoveToBack(Sender
: TObject
);
6306 if SelectedObjects
= nil then
6309 for a
:= 0 to High(SelectedObjects
) do
6310 with SelectedObjects
[a
] do
6311 if Live
and (ObjectType
= OBJECT_PANEL
) then
6313 SelectedObjects
[0] := SelectedObjects
[a
];
6314 SetLength(SelectedObjects
, 1);
6321 procedure TMainForm
.aMoveToFore(Sender
: TObject
);
6325 if SelectedObjects
= nil then
6328 for a
:= 0 to High(SelectedObjects
) do
6329 with SelectedObjects
[a
] do
6330 if Live
and (ObjectType
= OBJECT_PANEL
) then
6332 SelectedObjects
[0] := SelectedObjects
[a
];
6333 SetLength(SelectedObjects
, 1);
6340 procedure TMainForm
.aSaveMapAsExecute(Sender
: TObject
);
6344 SaveDialog
.Filter
:= _lc
[I_FILE_FILTER_WAD
];
6346 if not SaveDialog
.Execute() then
6349 SaveMapForm
.GetMaps(SaveDialog
.FileName
, True);
6351 if SaveMapForm
.ShowModal() <> mrOK
then
6354 SaveDialog
.InitialDir
:= ExtractFileDir(SaveDialog
.FileName
);
6355 OpenedMap
:= SaveDialog
.FileName
+':\'+SaveMapForm
.eMapName
.Text;
6356 OpenedWAD
:= SaveDialog
.FileName
;
6358 idx
:= RecentFiles
.IndexOf(OpenedMap
);
6359 // Такая карта уже недавно открывалась:
6361 RecentFiles
.Delete(idx
);
6362 RecentFiles
.Insert(0, OpenedMap
);
6367 gMapInfo
.FileName
:= SaveDialog
.FileName
;
6368 gMapInfo
.MapName
:= SaveMapForm
.eMapName
.Text;
6369 UpdateCaption(gMapInfo
.Name
, ExtractFileName(gMapInfo
.FileName
), gMapInfo
.MapName
);
6372 procedure TMainForm
.aSelectAllExecute(Sender
: TObject
);
6376 RemoveSelectFromObjects();
6378 case pcObjects
.ActivePageIndex
+1 of
6380 if gPanels
<> nil then
6381 for a
:= 0 to High(gPanels
) do
6382 if gPanels
[a
].PanelType
<> PANEL_NONE
then
6383 SelectObject(OBJECT_PANEL
, a
, True);
6385 if gItems
<> nil then
6386 for a
:= 0 to High(gItems
) do
6387 if gItems
[a
].ItemType
<> ITEM_NONE
then
6388 SelectObject(OBJECT_ITEM
, a
, True);
6390 if gMonsters
<> nil then
6391 for a
:= 0 to High(gMonsters
) do
6392 if gMonsters
[a
].MonsterType
<> MONSTER_NONE
then
6393 SelectObject(OBJECT_MONSTER
, a
, True);
6395 if gAreas
<> nil then
6396 for a
:= 0 to High(gAreas
) do
6397 if gAreas
[a
].AreaType
<> AREA_NONE
then
6398 SelectObject(OBJECT_AREA
, a
, True);
6400 if gTriggers
<> nil then
6401 for a
:= 0 to High(gTriggers
) do
6402 if gTriggers
[a
].TriggerType
<> TRIGGER_NONE
then
6403 SelectObject(OBJECT_TRIGGER
, a
, True);
6407 procedure TMainForm
.tbGridOnClick(Sender
: TObject
);
6409 DotEnable
:= not DotEnable
;
6410 (Sender
as TToolButton
).Down
:= DotEnable
;
6413 procedure TMainForm
.OnIdle(Sender
: TObject
; var Done
: Boolean);
6415 // FIXME: this is a shitty hack
6416 if not gDataLoaded
then
6418 e_WriteLog('Init OpenGL', MSG_NOTIFY
);
6420 e_WriteLog('Loading data', MSG_NOTIFY
);
6421 LoadStdFont('STDTXT', 'STDFONT', gEditorFont
);
6422 e_WriteLog('Loading more data', MSG_NOTIFY
);
6424 e_WriteLog('Loading even more data', MSG_NOTIFY
);
6425 gDataLoaded
:= True;
6426 MainForm
.FormResize(nil);
6431 procedure TMainForm
.miMapPreviewClick(Sender
: TObject
);
6433 if PreviewMode
= 2 then
6436 if PreviewMode
= 0 then
6438 Splitter2
.Visible
:= False;
6439 Splitter1
.Visible
:= False;
6440 StatusBar
.Visible
:= False;
6441 PanelObjs
.Visible
:= False;
6442 PanelProps
.Visible
:= False;
6443 MainToolBar
.Visible
:= False;
6444 sbHorizontal
.Visible
:= False;
6445 sbVertical
.Visible
:= False;
6449 StatusBar
.Visible
:= True;
6450 PanelObjs
.Visible
:= True;
6451 PanelProps
.Visible
:= True;
6452 Splitter2
.Visible
:= True;
6453 Splitter1
.Visible
:= True;
6454 MainToolBar
.Visible
:= True;
6455 sbHorizontal
.Visible
:= True;
6456 sbVertical
.Visible
:= True;
6459 PreviewMode
:= PreviewMode
xor 1;
6460 (Sender
as TMenuItem
).Checked
:= PreviewMode
> 0;
6465 procedure TMainForm
.miLayer1Click(Sender
: TObject
);
6467 SwitchLayer(LAYER_BACK
);
6470 procedure TMainForm
.miLayer2Click(Sender
: TObject
);
6472 SwitchLayer(LAYER_WALLS
);
6475 procedure TMainForm
.miLayer3Click(Sender
: TObject
);
6477 SwitchLayer(LAYER_FOREGROUND
);
6480 procedure TMainForm
.miLayer4Click(Sender
: TObject
);
6482 SwitchLayer(LAYER_STEPS
);
6485 procedure TMainForm
.miLayer5Click(Sender
: TObject
);
6487 SwitchLayer(LAYER_WATER
);
6490 procedure TMainForm
.miLayer6Click(Sender
: TObject
);
6492 SwitchLayer(LAYER_ITEMS
);
6495 procedure TMainForm
.miLayer7Click(Sender
: TObject
);
6497 SwitchLayer(LAYER_MONSTERS
);
6500 procedure TMainForm
.miLayer8Click(Sender
: TObject
);
6502 SwitchLayer(LAYER_AREAS
);
6505 procedure TMainForm
.miLayer9Click(Sender
: TObject
);
6507 SwitchLayer(LAYER_TRIGGERS
);
6510 procedure TMainForm
.tbShowClick(Sender
: TObject
);
6516 for a
:= 0 to High(LayerEnabled
) do
6517 b
:= b
and LayerEnabled
[a
];
6521 ShowLayer(LAYER_BACK
, b
);
6522 ShowLayer(LAYER_WALLS
, b
);
6523 ShowLayer(LAYER_FOREGROUND
, b
);
6524 ShowLayer(LAYER_STEPS
, b
);
6525 ShowLayer(LAYER_WATER
, b
);
6526 ShowLayer(LAYER_ITEMS
, b
);
6527 ShowLayer(LAYER_MONSTERS
, b
);
6528 ShowLayer(LAYER_AREAS
, b
);
6529 ShowLayer(LAYER_TRIGGERS
, b
);
6532 procedure TMainForm
.miMiniMapClick(Sender
: TObject
);
6537 procedure TMainForm
.miSwitchGridClick(Sender
: TObject
);
6539 if DotStep
= DotStepOne
then
6540 DotStep
:= DotStepTwo
6542 DotStep
:= DotStepOne
;
6544 MousePos
.X
:= (MousePos
.X
div DotStep
) * DotStep
;
6545 MousePos
.Y
:= (MousePos
.Y
div DotStep
) * DotStep
;
6548 procedure TMainForm
.miShowEdgesClick(Sender
: TObject
);
6553 procedure TMainForm
.miSnapToGridClick(Sender
: TObject
);
6555 SnapToGrid
:= not SnapToGrid
;
6557 MousePos
.X
:= (MousePos
.X
div DotStep
) * DotStep
;
6558 MousePos
.Y
:= (MousePos
.Y
div DotStep
) * DotStep
;
6560 miSnapToGrid
.Checked
:= SnapToGrid
;
6563 procedure TMainForm
.minexttabClick(Sender
: TObject
);
6565 if pcObjects
.ActivePageIndex
< pcObjects
.PageCount
-1 then
6566 pcObjects
.ActivePageIndex
:= pcObjects
.ActivePageIndex
+1
6568 pcObjects
.ActivePageIndex
:= 0;
6571 procedure TMainForm
.miSaveMiniMapClick(Sender
: TObject
);
6573 SaveMiniMapForm
.ShowModal();
6576 procedure TMainForm
.bClearTextureClick(Sender
: TObject
);
6578 lbTextureList
.ItemIndex
:= -1;
6579 lTextureWidth
.Caption
:= '';
6580 lTextureHeight
.Caption
:= '';
6583 procedure TMainForm
.miPackMapClick(Sender
: TObject
);
6585 PackMapForm
.ShowModal();
6588 procedure TMainForm
.miMapTestSettingsClick(Sender
: TObject
);
6590 MapTestForm
.ShowModal();
6593 procedure TMainForm
.miTestMapClick(Sender
: TObject
);
6595 cmd
, mapWAD
, mapToRun
, tempWAD
: String;
6602 if OpenedMap
<> '' then
6604 // Указываем текущую карту для теста:
6605 g_ProcessResourceStr(OpenedMap
, @mapWAD
, nil, @mapToRun
);
6606 mapToRun
:= mapWAD
+ ':\' + mapToRun
;
6607 mapToRun
:= ExtractRelativePath(ExtractFilePath(TestD2dExe
) + 'maps/', mapToRun
);
6609 // Сохраняем временную карту:
6612 mapWAD
:= ExtractFilePath(TestD2dExe
) + Format('maps/temp%.4d.wad', [time
]);
6614 until not FileExists(mapWAD
);
6615 tempWAD
:= mapWAD
+ ':\' + TEST_MAP_NAME
;
6618 tempWAD
:= ExtractRelativePath(ExtractFilePath(TestD2dExe
) + 'maps/', tempWAD
);
6619 // Если карта не была открыта, указываем временную в качестве текущей:
6620 if mapToRun
= '' then
6621 mapToRun
:= tempWAD
;
6625 if TestOptionsTwoPlayers
then
6627 if TestOptionsTeamDamage
then
6629 if TestOptionsAllowExit
then
6631 if TestOptionsWeaponStay
then
6633 if TestOptionsMonstersDM
then
6636 // Составляем командную строку:
6637 cmd
:= '-map "' + mapToRun
+ '"';
6638 cmd
:= cmd
+ ' -testmap "' + tempWAD
+ '"';
6639 cmd
:= cmd
+ ' -gm ' + TestGameMode
;
6640 cmd
:= cmd
+ ' -limt ' + TestLimTime
;
6641 cmd
:= cmd
+ ' -lims ' + TestLimScore
;
6642 cmd
:= cmd
+ ' -opt ' + IntToStr(opt
);
6645 cmd
:= cmd
+ ' --close';
6647 cmd
:= cmd
+ ' --debug';
6650 proc
:= TProcessUTF8
.Create(nil);
6651 proc
.Executable
:= TestD2dExe
;
6652 proc
.Parameters
.Add(cmd
);
6661 Application
.Minimize();
6664 if (not res
) or (proc
.ExitCode
< 0) then
6666 MessageBox(0, 'FIXME',
6667 PChar(_lc
[I_MSG_EXEC_ERROR
]),
6668 MB_OK
or MB_ICONERROR
);
6672 SysUtils
.DeleteFile(mapWAD
);
6673 Application
.Restore();
6676 procedure TMainForm
.sbVerticalScroll(Sender
: TObject
;
6677 ScrollCode
: TScrollCode
; var ScrollPos
: Integer);
6679 MapOffset
.Y
:= -Normalize16(sbVertical
.Position
);
6682 procedure TMainForm
.sbHorizontalScroll(Sender
: TObject
;
6683 ScrollCode
: TScrollCode
; var ScrollPos
: Integer);
6685 MapOffset
.X
:= -Normalize16(sbHorizontal
.Position
);
6688 procedure TMainForm
.miOpenWadMapClick(Sender
: TObject
);
6690 if OpenedWAD
<> '' then
6692 OpenMap(OpenedWAD
, '');
6696 procedure TMainForm
.selectall1Click(Sender
: TObject
);
6700 RemoveSelectFromObjects();
6702 if gPanels
<> nil then
6703 for a
:= 0 to High(gPanels
) do
6704 if gPanels
[a
].PanelType
<> PANEL_NONE
then
6705 SelectObject(OBJECT_PANEL
, a
, True);
6707 if gItems
<> nil then
6708 for a
:= 0 to High(gItems
) do
6709 if gItems
[a
].ItemType
<> ITEM_NONE
then
6710 SelectObject(OBJECT_ITEM
, a
, True);
6712 if gMonsters
<> nil then
6713 for a
:= 0 to High(gMonsters
) do
6714 if gMonsters
[a
].MonsterType
<> MONSTER_NONE
then
6715 SelectObject(OBJECT_MONSTER
, a
, True);
6717 if gAreas
<> nil then
6718 for a
:= 0 to High(gAreas
) do
6719 if gAreas
[a
].AreaType
<> AREA_NONE
then
6720 SelectObject(OBJECT_AREA
, a
, True);
6722 if gTriggers
<> nil then
6723 for a
:= 0 to High(gTriggers
) do
6724 if gTriggers
[a
].TriggerType
<> TRIGGER_NONE
then
6725 SelectObject(OBJECT_TRIGGER
, a
, True);
6728 procedure TMainForm
.Splitter1CanResize(Sender
: TObject
;
6729 var NewSize
: Integer; var Accept
: Boolean);
6731 Accept
:= (NewSize
> 140);
6734 procedure TMainForm
.Splitter2CanResize(Sender
: TObject
;
6735 var NewSize
: Integer; var Accept
: Boolean);
6737 Accept
:= (NewSize
> 110);
6740 procedure TMainForm
.vleObjectPropertyEnter(Sender
: TObject
);
6742 EditingProperties
:= True;
6745 procedure TMainForm
.vleObjectPropertyExit(Sender
: TObject
);
6747 EditingProperties
:= False;
6750 procedure TMainForm
.FormKeyUp(Sender
: TObject
; var Key
: Word;
6751 Shift
: TShiftState
);
6753 // Объекты передвигались:
6754 if MainForm
.ActiveControl
= RenderPanel
then
6756 if (Key
= VK_NUMPAD4
) or
6757 (Key
= VK_NUMPAD6
) or
6758 (Key
= VK_NUMPAD8
) or
6759 (Key
= VK_NUMPAD5
) or
6760 (Key
= Ord('V')) then
6763 // Быстрое превью карты:
6764 if Key
= Ord('E') then
6766 if PreviewMode
= 2 then
6769 RenderPanelMouseMove(Sender
, Shift
, RenderMousePos().X
, RenderMousePos().Y
);