1 (* Copyright (C) DooM 2D:Forever Developers
3 * This program is free software: you can redistribute it and/or modify
4 * it under the terms of the GNU General Public License as published by
5 * the Free Software Foundation, either version 3 of the License, or
6 * (at your option) any later version.
8 * This program is distributed in the hope that it will be useful,
9 * but WITHOUT ANY WARRANTY; without even the implied warranty of
10 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 * GNU General Public License for more details.
13 * You should have received a copy of the GNU General Public License
14 * along with this program. If not, see <http://www.gnu.org/licenses/>.
16 {$INCLUDE ../shared/a_modes.inc}
22 MAPSTRUCT
, e_graphics
, MAPDEF
, g_basic
, g_sound
,
39 TexturePanel
: Integer;
40 TexturePanelType
: Word;
44 Activators
: array of TActivator
;
45 PlayerCollide
: Boolean;
49 SoundPlayCount
: Integer;
50 Sound
: TPlayableSound
;
52 SpawnCooldown
: Integer;
53 SpawnedCount
: Integer;
55 ShotPanelTime
: Integer;
56 ShotSightTime
: Integer;
57 ShotSightTimeout
: Integer;
58 ShotSightTarget
: Word;
59 ShotSightTargetN
: Word;
61 ShotReloadTime
: Integer;
66 function g_Triggers_Create(Trigger
: TTrigger
): DWORD
;
67 procedure g_Triggers_Update();
68 procedure g_Triggers_Press(ID
: DWORD
; ActivateType
: Byte; ActivateUID
: Word = 0);
69 function g_Triggers_PressR(X
, Y
: Integer; Width
, Height
: Word; UID
: Word;
70 ActivateType
: Byte; IgnoreList
: DWArray
= nil): DWArray
;
71 procedure g_Triggers_PressL(X1
, Y1
, X2
, Y2
: Integer; UID
: DWORD
; ActivateType
: Byte);
72 procedure g_Triggers_PressC(CX
, CY
: Integer; Radius
: Word; UID
: Word; ActivateType
: Byte; IgnoreTrigger
: Integer = -1);
73 procedure g_Triggers_OpenAll();
74 procedure g_Triggers_DecreaseSpawner(ID
: DWORD
);
75 procedure g_Triggers_Free();
76 procedure g_Triggers_SaveState(var Mem
: TBinMemoryWriter
);
77 procedure g_Triggers_LoadState(var Mem
: TBinMemoryReader
);
79 function tr_Message(MKind
: Integer; MText
: string; MSendTo
: Integer; MTime
: Integer; ActivateUID
: Integer): Boolean;
81 function tr_CloseDoor(PanelID
: Integer; NoSound
: Boolean; d2d
: Boolean): Boolean;
82 function tr_OpenDoor(PanelID
: Integer; NoSound
: Boolean; d2d
: Boolean): Boolean;
83 procedure tr_CloseTrap(PanelID
: Integer; NoSound
: Boolean; d2d
: Boolean);
84 function tr_SetLift(PanelID
: Integer; d
: Integer; NoSound
: Boolean; d2d
: Boolean): Boolean;
86 function tr_Teleport(ActivateUID
: Integer; TX
, TY
: Integer; TDir
: Integer; Silent
: Boolean; D2D
: Boolean): Boolean;
87 function tr_Push(ActivateUID
: Integer; VX
, VY
: Integer; ResetVel
: Boolean): Boolean;
89 procedure tr_MakeEffect(X
, Y
, VX
, VY
: Integer; T
, ST
, CR
, CG
, CB
: Byte; Silent
, Send
: Boolean);
90 function tr_SpawnShot(ShotType
: Integer; wx
, wy
, dx
, dy
: Integer; ShotSound
: Boolean; ShotTarget
: Word): Integer;
93 gTriggerClientID
: Integer = 0;
94 gTriggers
: array of TTrigger
;
95 gSecretsCount
: Integer = 0;
96 gMonstersSpawned
: array of LongInt = nil;
101 g_player
, g_map
, Math
, g_gfx
, g_game
, g_textures
,
102 g_console
, g_monsters
, g_items
, g_phys
, g_weapons
,
103 wadreader
, g_main
, SysUtils
, e_log
, g_language
,
104 g_options
, g_net
, g_netmsg
;
107 TRIGGER_SIGNATURE
= $52475254; // 'TRGR'
110 function FindTrigger(): DWORD
;
114 if gTriggers
<> nil then
115 for i
:= 0 to High(gTriggers
) do
116 if gTriggers
[i
].TriggerType
= TRIGGER_NONE
then
122 if gTriggers
= nil then
124 SetLength(gTriggers
, 8);
129 Result
:= High(gTriggers
) + 1;
130 SetLength(gTriggers
, Length(gTriggers
) + 8);
134 function tr_CloseDoor(PanelID
: Integer; NoSound
: Boolean; d2d
: Boolean): Boolean;
140 if PanelID
= -1 then Exit
;
144 with gWalls
[PanelID
] do
146 if g_CollidePlayer(X
, Y
, Width
, Height
) or
147 g_Mons_IsAnyAliveAt(X
, Y
, Width
, Height
) then Exit
;
153 g_Sound_PlayExAt('SOUND_GAME_DOORCLOSE', X
, Y
);
154 if g_Game_IsServer
and g_Game_IsNet
then
155 MH_SEND_Sound(X
, Y
, 'SOUND_GAME_DOORCLOSE');
157 g_Map_EnableWall(PanelID
);
164 if gDoorMap
= nil then Exit
;
167 for a
:= 0 to High(gDoorMap
) do
169 for b
:= 0 to High(gDoorMap
[a
]) do
170 if gDoorMap
[a
, b
] = DWORD(PanelID
) then
176 if c
<> -1 then Break
;
180 for b
:= 0 to High(gDoorMap
[c
]) do
181 with gWalls
[gDoorMap
[c
, b
]] do
183 if g_CollidePlayer(X
, Y
, Width
, Height
) or
184 g_Mons_IsAnyAliveAt(X
, Y
, Width
, Height
) then Exit
;
188 for b
:= 0 to High(gDoorMap
[c
]) do
189 if not gWalls
[gDoorMap
[c
, b
]].Enabled
then
191 with gWalls
[PanelID
] do
193 g_Sound_PlayExAt('SOUND_GAME_DOORCLOSE', X
, Y
);
194 if g_Game_IsServer
and g_Game_IsNet
then
195 MH_SEND_Sound(X
, Y
, 'SOUND_GAME_DOORCLOSE');
200 for b
:= 0 to High(gDoorMap
[c
]) do
201 if not gWalls
[gDoorMap
[c
, b
]].Enabled
then
203 g_Map_EnableWall(gDoorMap
[c
, b
]);
209 procedure tr_CloseTrap(PanelID
: Integer; NoSound
: Boolean; d2d
: Boolean);
212 wx
, wy
, wh
, ww
: Integer;
214 function monsDamage (monidx
: Integer; mon
: TMonster
): Boolean;
216 result
:= false; // don't stop
217 if (mon
<> nil) and mon
.Live
and g_Obj_Collide(wx
, wy
, ww
, wh
, @mon
.Obj
) then
219 mon
.Damage(TRAP_DAMAGE
, 0, 0, 0, HIT_TRAP
);
224 if PanelID
= -1 then Exit
;
228 with gWalls
[PanelID
] do
230 if (not NoSound
) and (not Enabled
) then
232 g_Sound_PlayExAt('SOUND_GAME_SWITCH1', X
, Y
);
233 if g_Game_IsServer
and g_Game_IsNet
then
234 MH_SEND_Sound(X
, Y
, 'SOUND_GAME_SWITCH1');
238 wx
:= gWalls
[PanelID
].X
;
239 wy
:= gWalls
[PanelID
].Y
;
240 ww
:= gWalls
[PanelID
].Width
;
241 wh
:= gWalls
[PanelID
].Height
;
243 with gWalls
[PanelID
] do
245 if gPlayers
<> nil then
246 for a
:= 0 to High(gPlayers
) do
247 if (gPlayers
[a
] <> nil) and gPlayers
[a
].Live
and
248 gPlayers
[a
].Collide(X
, Y
, Width
, Height
) then
249 gPlayers
[a
].Damage(TRAP_DAMAGE
, 0, 0, 0, HIT_TRAP
);
251 g_Mons_ForEach(monsDamage
);
253 if not Enabled
then g_Map_EnableWall(PanelID
);
258 if gDoorMap
= nil then Exit
;
261 for a
:= 0 to High(gDoorMap
) do
263 for b
:= 0 to High(gDoorMap
[a
]) do
265 if gDoorMap
[a
, b
] = DWORD(PanelID
) then
272 if c
<> -1 then Break
;
278 for b
:= 0 to High(gDoorMap
[c
]) do
280 if not gWalls
[gDoorMap
[c
, b
]].Enabled
then
282 with gWalls
[PanelID
] do
284 g_Sound_PlayExAt('SOUND_GAME_SWITCH1', X
, Y
);
285 if g_Game_IsServer
and g_Game_IsNet
then MH_SEND_Sound(X
, Y
, 'SOUND_GAME_SWITCH1');
292 for b
:= 0 to High(gDoorMap
[c
]) do
294 wx
:= gWalls
[gDoorMap
[c
, b
]].X
;
295 wy
:= gWalls
[gDoorMap
[c
, b
]].Y
;
296 ww
:= gWalls
[gDoorMap
[c
, b
]].Width
;
297 wh
:= gWalls
[gDoorMap
[c
, b
]].Height
;
299 with gWalls
[gDoorMap
[c
, b
]] do
301 if gPlayers
<> nil then
302 for a
:= 0 to High(gPlayers
) do
303 if (gPlayers
[a
] <> nil) and gPlayers
[a
].Live
and
304 gPlayers
[a
].Collide(X
, Y
, Width
, Height
) then
305 gPlayers
[a
].Damage(TRAP_DAMAGE
, 0, 0, 0, HIT_TRAP
);
307 g_Mons_ForEach(monsDamage
);
309 if gMonsters <> nil then
310 for a := 0 to High(gMonsters) do
311 if (gMonsters[a] <> nil) and gMonsters[a].Live and
312 g_Obj_Collide(X, Y, Width, Height, @gMonsters[a].Obj) then
313 gMonsters[a].Damage(TRAP_DAMAGE, 0, 0, 0, HIT_TRAP);
316 if not Enabled
then g_Map_EnableWall(gDoorMap
[c
, b
]);
322 function tr_OpenDoor(PanelID
: Integer; NoSound
: Boolean; d2d
: Boolean): Boolean;
328 if PanelID
= -1 then Exit
;
332 with gWalls
[PanelID
] do
337 g_Sound_PlayExAt('SOUND_GAME_DOOROPEN', X
, Y
);
338 if g_Game_IsServer
and g_Game_IsNet
then
339 MH_SEND_Sound(X
, Y
, 'SOUND_GAME_DOOROPEN');
341 g_Map_DisableWall(PanelID
);
347 if gDoorMap
= nil then Exit
;
350 for a
:= 0 to High(gDoorMap
) do
352 for b
:= 0 to High(gDoorMap
[a
]) do
353 if gDoorMap
[a
, b
] = DWORD(PanelID
) then
359 if c
<> -1 then Break
;
364 for b
:= 0 to High(gDoorMap
[c
]) do
365 if gWalls
[gDoorMap
[c
, b
]].Enabled
then
367 with gWalls
[PanelID
] do
369 g_Sound_PlayExAt('SOUND_GAME_DOOROPEN', X
, Y
);
370 if g_Game_IsServer
and g_Game_IsNet
then
371 MH_SEND_Sound(X
, Y
, 'SOUND_GAME_DOOROPEN');
376 for b
:= 0 to High(gDoorMap
[c
]) do
377 if gWalls
[gDoorMap
[c
, b
]].Enabled
then
379 g_Map_DisableWall(gDoorMap
[c
, b
]);
385 function tr_SetLift(PanelID
: Integer; d
: Integer; NoSound
: Boolean; d2d
: Boolean): Boolean;
392 if PanelID
= -1 then Exit
;
394 if (gLifts
[PanelID
].PanelType
= PANEL_LIFTUP
) or
395 (gLifts
[PanelID
].PanelType
= PANEL_LIFTDOWN
) then
399 else t
:= IfThen(gLifts
[PanelID
].LiftType
= 1, 0, 1);
401 else if (gLifts
[PanelID
].PanelType
= PANEL_LIFTLEFT
) or
402 (gLifts
[PanelID
].PanelType
= PANEL_LIFTRIGHT
) then
406 else t
:= IfThen(gLifts
[PanelID
].LiftType
= 2, 3, 2);
411 with gLifts
[PanelID
] do
412 if LiftType
<> t
then
414 g_Map_SetLift(PanelID
, t
);
417 g_Sound_PlayExAt('SOUND_GAME_SWITCH0', X, Y);}
423 if gLiftMap
= nil then Exit
;
426 for a
:= 0 to High(gLiftMap
) do
428 for b
:= 0 to High(gLiftMap
[a
]) do
429 if gLiftMap
[a
, b
] = DWORD(PanelID
) then
435 if c
<> -1 then Break
;
440 for b := 0 to High(gLiftMap[c]) do
441 if gLifts[gLiftMap[c, b]].LiftType <> t then
443 with gLifts[PanelID] do
444 g_Sound_PlayExAt('SOUND_GAME_SWITCH0', X, Y);
448 for b
:= 0 to High(gLiftMap
[c
]) do
449 with gLifts
[gLiftMap
[c
, b
]] do
450 if LiftType
<> t
then
452 g_Map_SetLift(gLiftMap
[c
, b
], t
);
459 function tr_SpawnShot(ShotType
: Integer; wx
, wy
, dx
, dy
: Integer; ShotSound
: Boolean; ShotTarget
: Word): Integer;
467 TextureID
:= DWORD(-1);
468 snd
:= 'SOUND_WEAPON_FIREROCKET';
473 g_Weapon_pistol(wx
, wy
, dx
, dy
, 0, True);
474 snd
:= 'SOUND_WEAPON_FIREPISTOL';
478 g_Player_CreateShell(wx
, wy
, 0, -2, SHELL_BULLET
);
480 MH_SEND_Effect(wx
, wy
, 0, NET_GFX_SHELL1
);
486 g_Weapon_mgun(wx
, wy
, dx
, dy
, 0, True);
487 if gSoundEffectsDF
then snd
:= 'SOUND_WEAPON_FIRECGUN'
488 else snd
:= 'SOUND_WEAPON_FIREPISTOL';
492 g_Player_CreateShell(wx
, wy
, 0, -2, SHELL_BULLET
);
494 MH_SEND_Effect(wx
, wy
, 0, NET_GFX_SHELL1
);
498 TRIGGER_SHOT_SHOTGUN
:
500 g_Weapon_Shotgun(wx
, wy
, dx
, dy
, 0, True);
501 snd
:= 'SOUND_WEAPON_FIRESHOTGUN';
505 g_Player_CreateShell(wx
, wy
, 0, -2, SHELL_SHELL
);
507 MH_SEND_Effect(wx
, wy
, 0, NET_GFX_SHELL2
);
513 g_Weapon_DShotgun(wx
, wy
, dx
, dy
, 0, True);
514 snd
:= 'SOUND_WEAPON_FIRESHOTGUN2';
518 g_Player_CreateShell(wx
, wy
, 0, -2, SHELL_SHELL
);
519 g_Player_CreateShell(wx
, wy
, 0, -2, SHELL_SHELL
);
521 MH_SEND_Effect(wx
, wy
, 0, NET_GFX_SHELL3
);
527 g_Weapon_ball1(wx
, wy
, dx
, dy
, 0, -1, True);
528 snd
:= 'SOUND_WEAPON_FIREBALL';
533 g_Weapon_Plasma(wx
, wy
, dx
, dy
, 0, -1, True);
534 snd
:= 'SOUND_WEAPON_FIREPLASMA';
539 g_Weapon_aplasma(wx
, wy
, dx
, dy
, 0, -1, True);
540 snd
:= 'SOUND_WEAPON_FIREPLASMA';
545 g_Weapon_ball2(wx
, wy
, dx
, dy
, 0, -1, True);
546 snd
:= 'SOUND_WEAPON_FIREBALL';
551 g_Weapon_ball7(wx
, wy
, dx
, dy
, 0, -1, True);
552 snd
:= 'SOUND_WEAPON_FIREBALL';
557 g_Weapon_manfire(wx
, wy
, dx
, dy
, 0, -1, True);
558 snd
:= 'SOUND_WEAPON_FIREBALL';
563 g_Weapon_revf(wx
, wy
, dx
, dy
, 0, ShotTarget
, -1, True);
564 snd
:= 'SOUND_WEAPON_FIREREV';
569 g_Weapon_Rocket(wx
, wy
, dx
, dy
, 0, -1, True);
570 snd
:= 'SOUND_WEAPON_FIREROCKET';
575 g_Weapon_BFGShot(wx
, wy
, dx
, dy
, 0, -1, True);
576 snd
:= 'SOUND_WEAPON_FIREBFG';
581 if g_Frames_Get(TextureID
, 'FRAMES_EXPLODE_ROCKET') then
583 Anim
:= TAnimation
.Create(TextureID
, False, 6);
584 Anim
.Blending
:= False;
585 g_GFX_OnceAnim(wx
-64, wy
-64, Anim
);
589 g_Weapon_Explode(wx
, wy
, 60, 0);
590 snd
:= 'SOUND_WEAPON_EXPLODEROCKET';
593 TRIGGER_SHOT_BFGEXPL
:
595 if g_Frames_Get(TextureID
, 'FRAMES_EXPLODE_BFG') then
597 Anim
:= TAnimation
.Create(TextureID
, False, 6);
598 Anim
.Blending
:= False;
599 g_GFX_OnceAnim(wx
-64, wy
-64, Anim
);
603 g_Weapon_BFG9000(wx
, wy
, 0);
604 snd
:= 'SOUND_WEAPON_EXPLODEBFG';
610 if g_Game_IsNet
and g_Game_IsServer
then
613 MH_SEND_Effect(wx
, wy
, Byte(ShotSound
), NET_GFX_EXPLODE
);
614 TRIGGER_SHOT_BFGEXPL
:
615 MH_SEND_Effect(wx
, wy
, Byte(ShotSound
), NET_GFX_BFGEXPL
);
619 MH_SEND_CreateShot(LastShotID
);
621 MH_SEND_Sound(wx
, wy
, snd
);
626 g_Sound_PlayExAt(snd
, wx
, wy
);
629 Result
:= LastShotID
;
632 procedure MakeShot(var Trigger
: TTrigger
; wx
, wy
, dx
, dy
: Integer; TargetUID
: Word);
635 if (Data
.ShotAmmo
= 0) or
636 ((Data
.ShotAmmo
> 0) and (ShotAmmoCount
> 0)) then
638 if (Data
.ShotPanelID
<> -1) and (ShotPanelTime
= 0) then
640 g_Map_SwitchTexture(ShotPanelType
, Data
.ShotPanelID
);
641 ShotPanelTime
:= 4; // òèêîâ íà âñïûøêó âûñòðåëà
644 if Data
.ShotIntSight
> 0 then
645 ShotSightTimeout
:= 180; // ~= 5 ñåêóíä
647 if ShotAmmoCount
> 0 then Dec(ShotAmmoCount
);
649 dx
:= dx
+ Random(Data
.ShotAccuracy
) - Random(Data
.ShotAccuracy
);
650 dy
:= dy
+ Random(Data
.ShotAccuracy
) - Random(Data
.ShotAccuracy
);
652 tr_SpawnShot(Data
.ShotType
, wx
, wy
, dx
, dy
, Data
.ShotSound
, TargetUID
);
655 if (Data
.ShotIntReload
> 0) and (ShotReloadTime
= 0) then
656 ShotReloadTime
:= Data
.ShotIntReload
; // òèêîâ íà ïåðåçàðÿäêó ïóøêè
659 procedure tr_MakeEffect(X
, Y
, VX
, VY
: Integer; T
, ST
, CR
, CG
, CB
: Byte; Silent
, Send
: Boolean);
664 if T
= TRIGGER_EFFECT_PARTICLE
then
666 TRIGGER_EFFECT_SLIQUID
:
668 if (CR
= 255) and (CG
= 0) and (CB
= 0) then
669 g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 1, 0, 0, 0)
670 else if (CR
= 0) and (CG
= 255) and (CB
= 0) then
671 g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 2, 0, 0, 0)
672 else if (CR
= 0) and (CG
= 0) and (CB
= 255) then
673 g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 3, 0, 0, 0)
675 g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 0, 0, 0, 0);
677 TRIGGER_EFFECT_LLIQUID
:
678 g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 4, CR
, CG
, CB
);
679 TRIGGER_EFFECT_DLIQUID
:
680 g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 5, CR
, CG
, CB
);
681 TRIGGER_EFFECT_BLOOD
:
682 g_GFX_Blood(X
, Y
, 1, VX
, VY
, 0, 0, CR
, CG
, CB
);
683 TRIGGER_EFFECT_SPARK
:
684 g_GFX_Spark(X
, Y
, 1, GetAngle2(VX
, VY
), 0, 0);
685 TRIGGER_EFFECT_BUBBLE
:
686 g_GFX_Bubbles(X
, Y
, 1, 0, 0);
688 if T
= TRIGGER_EFFECT_ANIMATION
then
690 EFFECT_TELEPORT
: begin
691 if g_Frames_Get(FramesID
, 'FRAMES_TELEPORT') then
693 Anim
:= TAnimation
.Create(FramesID
, False, 3);
695 g_Sound_PlayExAt('SOUND_GAME_TELEPORT', X
, Y
);
696 g_GFX_OnceAnim(X
-32, Y
-32, Anim
);
699 if Send
and g_Game_IsServer
and g_Game_IsNet
then
700 MH_SEND_Effect(X
, Y
, Byte(not Silent
), NET_GFX_TELE
);
702 EFFECT_RESPAWN
: begin
703 if g_Frames_Get(FramesID
, 'FRAMES_ITEM_RESPAWN') then
705 Anim
:= TAnimation
.Create(FramesID
, False, 4);
707 g_Sound_PlayExAt('SOUND_ITEM_RESPAWNITEM', X
, Y
);
708 g_GFX_OnceAnim(X
-16, Y
-16, Anim
);
711 if Send
and g_Game_IsServer
and g_Game_IsNet
then
712 MH_SEND_Effect(X
-16, Y
-16, Byte(not Silent
), NET_GFX_RESPAWN
);
715 if g_Frames_Get(FramesID
, 'FRAMES_FIRE') then
717 Anim
:= TAnimation
.Create(FramesID
, False, 4);
719 g_Sound_PlayExAt('SOUND_FIRE', X
, Y
);
720 g_GFX_OnceAnim(X
-32, Y
-128, Anim
);
723 if Send
and g_Game_IsServer
and g_Game_IsNet
then
724 MH_SEND_Effect(X
-32, Y
-128, Byte(not Silent
), NET_GFX_FIRE
);
729 function tr_Teleport(ActivateUID
: Integer; TX
, TY
: Integer; TDir
: Integer; Silent
: Boolean; D2D
: Boolean): Boolean;
735 if (ActivateUID
< 0) or (ActivateUID
> $FFFF) then Exit
;
736 case g_GetUIDType(ActivateUID
) of
739 p
:= g_Player_Get(ActivateUID
);
745 if p
.TeleportTo(TX
-(p
.Obj
.Rect
.Width
div 2),
746 TY
-p
.Obj
.Rect
.Height
,
752 if p
.TeleportTo(TX
, TY
, Silent
, TDir
) then
758 m
:= g_Monsters_ByUID(ActivateUID
);
764 if m
.TeleportTo(TX
-(m
.Obj
.Rect
.Width
div 2),
765 TY
-m
.Obj
.Rect
.Height
,
771 if m
.TeleportTo(TX
, TY
, Silent
, TDir
) then
777 function tr_Push(ActivateUID
: Integer; VX
, VY
: Integer; ResetVel
: Boolean): Boolean;
783 if (ActivateUID
< 0) or (ActivateUID
> $FFFF) then Exit
;
784 case g_GetUIDType(ActivateUID
) of
787 p
:= g_Player_Get(ActivateUID
);
804 m
:= g_Monsters_ByUID(ActivateUID
);
821 function tr_Message(MKind
: Integer; MText
: string; MSendTo
: Integer; MTime
: Integer; ActivateUID
: Integer): Boolean;
828 if (ActivateUID
< 0) or (ActivateUID
> $FFFF) then Exit
;
829 msg
:= b_Text_Format(MText
);
833 if g_GetUIDType(ActivateUID
) = UID_PLAYER
then
835 if g_Game_IsWatchedPlayer(ActivateUID
) then
838 g_Console_Add(msg
, True)
839 else if MKind
= 1 then
840 g_Game_Message(msg
, MTime
);
844 p
:= g_Player_Get(ActivateUID
);
845 if g_Game_IsNet
and (p
.FClientID
>= 0) then
847 MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
, p
.FClientID
)
848 else if MKind
= 1 then
849 MH_SEND_GameEvent(NET_EV_BIGTEXT
, MTime
, msg
, p
.FClientID
);
854 1: // activator's team
856 if g_GetUIDType(ActivateUID
) = UID_PLAYER
then
858 p
:= g_Player_Get(ActivateUID
);
859 if g_Game_IsWatchedTeam(p
.Team
) then
861 g_Console_Add(msg
, True)
862 else if MKind
= 1 then
863 g_Game_Message(msg
, MTime
);
867 for i
:= Low(gPlayers
) to High(gPlayers
) do
868 if (gPlayers
[i
].Team
= p
.Team
) and (gPlayers
[i
].FClientID
>= 0) then
870 MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
, gPlayers
[i
].FClientID
)
871 else if MKind
= 1 then
872 MH_SEND_GameEvent(NET_EV_BIGTEXT
, MTime
, msg
, gPlayers
[i
].FClientID
);
877 2: // activator's enemy team
879 if g_GetUIDType(ActivateUID
) = UID_PLAYER
then
881 p
:= g_Player_Get(ActivateUID
);
882 if g_Game_IsWatchedTeam(p
.Team
) then
884 g_Console_Add(msg
, True)
885 else if MKind
= 1 then
886 g_Game_Message(msg
, MTime
);
890 for i
:= Low(gPlayers
) to High(gPlayers
) do
891 if (gPlayers
[i
].Team
<> p
.Team
) and (gPlayers
[i
].FClientID
>= 0) then
893 MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
, gPlayers
[i
].FClientID
)
894 else if MKind
= 1 then
895 MH_SEND_GameEvent(NET_EV_BIGTEXT
, MTime
, msg
, gPlayers
[i
].FClientID
);
902 if g_Game_IsWatchedTeam(TEAM_RED
) then
904 g_Console_Add(msg
, True)
905 else if MKind
= 1 then
906 g_Game_Message(msg
, MTime
);
910 for i
:= Low(gPlayers
) to High(gPlayers
) do
911 if (gPlayers
[i
].Team
= TEAM_RED
) and (gPlayers
[i
].FClientID
>= 0) then
913 MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
, gPlayers
[i
].FClientID
)
914 else if MKind
= 1 then
915 MH_SEND_GameEvent(NET_EV_BIGTEXT
, MTime
, msg
, gPlayers
[i
].FClientID
);
921 if g_Game_IsWatchedTeam(TEAM_BLUE
) then
923 g_Console_Add(msg
, True)
924 else if MKind
= 1 then
925 g_Game_Message(msg
, MTime
);
929 for i
:= Low(gPlayers
) to High(gPlayers
) do
930 if (gPlayers
[i
].Team
= TEAM_BLUE
) and (gPlayers
[i
].FClientID
>= 0) then
932 MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
, gPlayers
[i
].FClientID
)
933 else if MKind
= 1 then
934 MH_SEND_GameEvent(NET_EV_BIGTEXT
, MTime
, msg
, gPlayers
[i
].FClientID
);
941 g_Console_Add(msg
, True)
942 else if MKind
= 1 then
943 g_Game_Message(msg
, MTime
);
948 MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
)
949 else if MKind
= 1 then
950 MH_SEND_GameEvent(NET_EV_BIGTEXT
, MTime
, msg
);
956 function tr_ShotAimCheck(var Trigger
: TTrigger
; Obj
: PObj
): Boolean;
961 if TriggerType
<> TRIGGER_SHOT
then
963 Result
:= (Data
.ShotAim
and TRIGGER_SHOT_AIM_ALLMAP
> 0)
964 or g_Obj_Collide(X
, Y
, Width
, Height
, Obj
);
965 if Result
and (Data
.ShotAim
and TRIGGER_SHOT_AIM_TRACE
> 0) then
966 Result
:= g_TraceVector(Data
.ShotPos
.X
,
968 Obj
^.X
+ Obj
^.Rect
.X
+ (Obj
^.Rect
.Width
div 2),
969 Obj
^.Y
+ Obj
^.Rect
.Y
+ (Obj
^.Rect
.Height
div 2));
973 function ActivateTrigger(var Trigger
: TTrigger
; actType
: Byte): Boolean;
978 idx
, k
, wx
, wy
, xd
, yd
: Integer;
989 function monsShotTarget (monidx
: Integer; mon
: TMonster
): Boolean;
991 result
:= false; // don't stop
992 if (mon
<> nil) and mon
.Live
and tr_ShotAimCheck(Trigger
, @(mon
.Obj
)) then
994 xd
:= mon
.GameX
+ mon
.Obj
.Rect
.Width
div 2;
995 yd
:= mon
.GameY
+ mon
.Obj
.Rect
.Height
div 2;
996 TargetUID
:= mon
.UID
;
997 result
:= true; // stop
1001 function monsShotTargetMonPlr (monidx
: Integer; mon
: TMonster
): Boolean;
1003 result
:= false; // don't stop
1004 if (mon
<> nil) and mon
.Live
and tr_ShotAimCheck(Trigger
, @(mon
.Obj
)) then
1006 xd
:= mon
.GameX
+ mon
.Obj
.Rect
.Width
div 2;
1007 yd
:= mon
.GameY
+ mon
.Obj
.Rect
.Height
div 2;
1008 TargetUID
:= mon
.UID
;
1009 result
:= true; // stop
1013 function monShotTargetPlrMon (monidx
: Integer; mon
: TMonster
): Boolean;
1015 result
:= false; // don't stop
1016 if (mon
<> nil) and mon
.Live
and tr_ShotAimCheck(Trigger
, @(mon
.Obj
)) then
1018 xd
:= mon
.GameX
+ mon
.Obj
.Rect
.Width
div 2;
1019 yd
:= mon
.GameY
+ mon
.Obj
.Rect
.Height
div 2;
1020 TargetUID
:= mon
.UID
;
1021 result
:= true; // stop
1027 if g_Game_IsClient
then
1030 if not Trigger
.Enabled
then
1032 if (Trigger
.TimeOut
<> 0) and (actType
<> ACTIVATE_CUSTOM
) then
1034 if gLMSRespawn
= LMS_RESPAWN_WARMUP
then
1039 coolDown
:= (actType
<> 0);
1046 g_Sound_PlayEx('SOUND_GAME_SWITCH0');
1047 if g_Game_IsNet
then MH_SEND_Sound(X
, Y
, 'SOUND_GAME_SWITCH0');
1048 gExitByTrigger
:= True;
1049 g_Game_ExitLevel(Data
.MapName
);
1058 Result
:= tr_Teleport(ActivateUID
,
1059 Data
.TargetPoint
.X
, Data
.TargetPoint
.Y
,
1060 Data
.TlpDir
, Data
.silent_teleport
,
1067 Result
:= tr_OpenDoor(Data
.PanelID
, Data
.NoSound
, Data
.d2d_doors
);
1073 Result
:= tr_CloseDoor(Data
.PanelID
, Data
.NoSound
, Data
.d2d_doors
);
1077 TRIGGER_DOOR
, TRIGGER_DOOR5
:
1079 if Data
.PanelID
<> -1 then
1081 if gWalls
[Data
.PanelID
].Enabled
then
1083 Result
:= tr_OpenDoor(Data
.PanelID
, Data
.NoSound
, Data
.d2d_doors
);
1085 if TriggerType
= TRIGGER_DOOR5
then
1089 Result
:= tr_CloseDoor(Data
.PanelID
, Data
.NoSound
, Data
.d2d_doors
);
1096 TRIGGER_CLOSETRAP
, TRIGGER_TRAP
:
1098 tr_CloseTrap(Data
.PanelID
, Data
.NoSound
, Data
.d2d_doors
);
1100 if TriggerType
= TRIGGER_TRAP
then
1114 TRIGGER_PRESS
, TRIGGER_ON
, TRIGGER_OFF
, TRIGGER_ONOFF
:
1116 PressCount
:= PressCount
+ 1;
1118 if PressTime
= -1 then
1119 PressTime
:= Data
.Wait
;
1129 if g_GetUIDType(ActivateUID
) = UID_PLAYER
then
1133 if gLMSRespawn
= LMS_RESPAWN_NONE
then
1135 g_Player_Get(ActivateUID
).GetSecret();
1136 Inc(gCoopSecretsFound
);
1137 if g_Game_IsNet
then MH_SEND_GameStats();
1143 Result
:= tr_SetLift(Data
.PanelID
, 0, Data
.NoSound
, Data
.d2d_doors
);
1146 if (not Data
.NoSound
) and Result
then begin
1147 g_Sound_PlayExAt('SOUND_GAME_SWITCH0',
1149 Y
+ (Height
div 2));
1150 if g_Game_IsServer
and g_Game_IsNet
then
1151 MH_SEND_Sound(X
+ (Width
div 2),
1153 'SOUND_GAME_SWITCH0');
1159 Result
:= tr_SetLift(Data
.PanelID
, 1, Data
.NoSound
, Data
.d2d_doors
);
1162 if (not Data
.NoSound
) and Result
then begin
1163 g_Sound_PlayExAt('SOUND_GAME_SWITCH0',
1165 Y
+ (Height
div 2));
1166 if g_Game_IsServer
and g_Game_IsNet
then
1167 MH_SEND_Sound(X
+ (Width
div 2),
1169 'SOUND_GAME_SWITCH0');
1175 Result
:= tr_SetLift(Data
.PanelID
, 3, Data
.NoSound
, Data
.d2d_doors
);
1181 if (not Data
.NoSound
) and Result
then begin
1182 g_Sound_PlayExAt('SOUND_GAME_SWITCH0',
1184 Y
+ (Height
div 2));
1185 if g_Game_IsServer
and g_Game_IsNet
then
1186 MH_SEND_Sound(X
+ (Width
div 2),
1188 'SOUND_GAME_SWITCH0');
1195 if ByteBool(Data
.ActivateOnce
) then
1198 TriggerType
:= TRIGGER_NONE
;
1206 animonce
:= Data
.AnimOnce
;
1212 if Sound
<> nil then
1214 if Data
.SoundSwitch
and Sound
.IsPlaying() then
1215 begin // Íóæíî âûêëþ÷èòü, åñëè èãðàë
1217 SoundPlayCount
:= 0;
1220 else // (not Data.SoundSwitch) or (not Sound.IsPlaying())
1221 if (Data
.PlayCount
> 0) or (not Sound
.IsPlaying()) then
1223 if Data
.PlayCount
> 0 then
1224 SoundPlayCount
:= Data
.PlayCount
1225 else // 0 - èãðàåì áåñêîíå÷íî
1226 SoundPlayCount
:= 1;
1229 if g_Game_IsNet
then MH_SEND_TriggerSound(Trigger
);
1233 TRIGGER_SPAWNMONSTER
:
1234 if (Data
.MonType
in [MONSTER_DEMON
..MONSTER_MAN
]) then
1237 if (Data
.MonDelay
> 0) and (actType
<> ACTIVATE_CUSTOM
) then
1239 AutoSpawn
:= not AutoSpawn
;
1241 // Àâòîñïàâíåð ïåðåêëþ÷åí - ìåíÿåì òåêñòóðó
1245 if ((Data
.MonDelay
= 0) and (actType
<> ACTIVATE_CUSTOM
))
1246 or ((Data
.MonDelay
> 0) and (actType
= ACTIVATE_CUSTOM
)) then
1247 for k
:= 1 to Data
.MonCount
do
1249 if (actType
= ACTIVATE_CUSTOM
) and (Data
.MonDelay
> 0) then
1250 SpawnCooldown
:= Data
.MonDelay
;
1251 if (Data
.MonMax
> 0) and (SpawnedCount
>= Data
.MonMax
) then
1254 mon
:= g_Monsters_Create(Data
.MonType
,
1255 Data
.MonPos
.X
, Data
.MonPos
.Y
,
1256 TDirection(Data
.MonDir
), True);
1261 if (Data
.MonHealth
> 0) then
1262 mon
.SetHealth(Data
.MonHealth
);
1263 // Óñòàíàâëèâàåì ïîâåäåíèå:
1264 mon
.MonsterBehaviour
:= Data
.MonBehav
;
1265 mon
.FNoRespawn
:= True;
1266 if g_Game_IsNet
then
1267 MH_SEND_MonsterSpawn(mon
.UID
);
1268 // Èäåì èñêàòü öåëü, åñëè íàäî:
1269 if Data
.MonActive
then
1272 if Data
.MonType
<> MONSTER_BARREL
then Inc(gTotalMonsters
);
1274 if g_Game_IsNet
then
1276 SetLength(gMonstersSpawned
, Length(gMonstersSpawned
)+1);
1277 gMonstersSpawned
[High(gMonstersSpawned
)] := mon
.UID
;
1280 if Data
.MonMax
> 0 then
1282 mon
.SpawnTrigger
:= ID
;
1286 case Data
.MonEffect
of
1287 EFFECT_TELEPORT
: begin
1288 if g_Frames_Get(FramesID
, 'FRAMES_TELEPORT') then
1290 Anim
:= TAnimation
.Create(FramesID
, False, 3);
1291 g_Sound_PlayExAt('SOUND_GAME_TELEPORT', Data
.MonPos
.X
, Data
.MonPos
.Y
);
1292 g_GFX_OnceAnim(mon
.Obj
.X
+mon
.Obj
.Rect
.X
+(mon
.Obj
.Rect
.Width
div 2)-32,
1293 mon
.Obj
.Y
+mon
.Obj
.Rect
.Y
+(mon
.Obj
.Rect
.Height
div 2)-32, Anim
);
1296 if g_Game_IsServer
and g_Game_IsNet
then
1297 MH_SEND_Effect(mon
.Obj
.X
+mon
.Obj
.Rect
.X
+(mon
.Obj
.Rect
.Width
div 2)-32,
1298 mon
.Obj
.Y
+mon
.Obj
.Rect
.Y
+(mon
.Obj
.Rect
.Height
div 2)-32, 1,
1301 EFFECT_RESPAWN
: begin
1302 if g_Frames_Get(FramesID
, 'FRAMES_ITEM_RESPAWN') then
1304 Anim
:= TAnimation
.Create(FramesID
, False, 4);
1305 g_Sound_PlayExAt('SOUND_ITEM_RESPAWNITEM', Data
.MonPos
.X
, Data
.MonPos
.Y
);
1306 g_GFX_OnceAnim(mon
.Obj
.X
+mon
.Obj
.Rect
.X
+(mon
.Obj
.Rect
.Width
div 2)-16,
1307 mon
.Obj
.Y
+mon
.Obj
.Rect
.Y
+(mon
.Obj
.Rect
.Height
div 2)-16, Anim
);
1310 if g_Game_IsServer
and g_Game_IsNet
then
1311 MH_SEND_Effect(mon
.Obj
.X
+mon
.Obj
.Rect
.X
+(mon
.Obj
.Rect
.Width
div 2)-16,
1312 mon
.Obj
.Y
+mon
.Obj
.Rect
.Y
+(mon
.Obj
.Rect
.Height
div 2)-16, 1,
1316 if g_Frames_Get(FramesID
, 'FRAMES_FIRE') then
1318 Anim
:= TAnimation
.Create(FramesID
, False, 4);
1319 g_Sound_PlayExAt('SOUND_FIRE', Data
.MonPos
.X
, Data
.MonPos
.Y
);
1320 g_GFX_OnceAnim(mon
.Obj
.X
+mon
.Obj
.Rect
.X
+(mon
.Obj
.Rect
.Width
div 2)-32,
1321 mon
.Obj
.Y
+mon
.Obj
.Rect
.Y
+mon
.Obj
.Rect
.Height
-128, Anim
);
1324 if g_Game_IsServer
and g_Game_IsNet
then
1325 MH_SEND_Effect(mon
.Obj
.X
+mon
.Obj
.Rect
.X
+(mon
.Obj
.Rect
.Width
div 2)-32,
1326 mon
.Obj
.Y
+mon
.Obj
.Rect
.Y
+mon
.Obj
.Rect
.Height
-128, 1,
1331 if g_Game_IsNet
then
1333 MH_SEND_GameStats();
1334 MH_SEND_CoopStats();
1341 // Åñëè àêòèâèðîâàí àâòîñïàâíåðîì, íå ìåíÿåì òåêñòóðó
1342 if actType
= ACTIVATE_CUSTOM
then
1347 if (Data
.ItemType
in [ITEM_MEDKIT_SMALL
..ITEM_MAX
]) then
1350 if (Data
.ItemDelay
> 0) and (actType
<> ACTIVATE_CUSTOM
) then
1352 AutoSpawn
:= not AutoSpawn
;
1354 // Àâòîñïàâíåð ïåðåêëþ÷åí - ìåíÿåì òåêñòóðó
1358 if ((Data
.ItemDelay
= 0) and (actType
<> ACTIVATE_CUSTOM
))
1359 or ((Data
.ItemDelay
> 0) and (actType
= ACTIVATE_CUSTOM
)) then
1360 if (not Data
.ItemOnlyDM
) or
1361 (gGameSettings
.GameMode
in [GM_DM
, GM_TDM
, GM_CTF
]) then
1362 for k
:= 1 to Data
.ItemCount
do
1364 if (actType
= ACTIVATE_CUSTOM
) and (Data
.ItemDelay
> 0) then
1365 SpawnCooldown
:= Data
.ItemDelay
;
1366 if (Data
.ItemMax
> 0) and (SpawnedCount
>= Data
.ItemMax
) then
1369 iid
:= g_Items_Create(Data
.ItemPos
.X
, Data
.ItemPos
.Y
,
1370 Data
.ItemType
, Data
.ItemFalls
, False, True);
1374 if Data
.ItemMax
> 0 then
1376 it
:= g_Items_ByIdx(iid
);
1377 it
.SpawnTrigger
:= ID
;
1381 case Data
.ItemEffect
of
1382 EFFECT_TELEPORT
: begin
1383 it
:= g_Items_ByIdx(iid
);
1384 if g_Frames_Get(FramesID
, 'FRAMES_TELEPORT') then
1386 Anim
:= TAnimation
.Create(FramesID
, False, 3);
1387 g_Sound_PlayExAt('SOUND_GAME_TELEPORT', Data
.ItemPos
.X
, Data
.ItemPos
.Y
);
1388 g_GFX_OnceAnim(it
.Obj
.X
+it
.Obj
.Rect
.X
+(it
.Obj
.Rect
.Width
div 2)-32,
1389 it
.Obj
.Y
+it
.Obj
.Rect
.Y
+(it
.Obj
.Rect
.Height
div 2)-32, Anim
);
1392 if g_Game_IsServer
and g_Game_IsNet
then
1393 MH_SEND_Effect(it
.Obj
.X
+it
.Obj
.Rect
.X
+(it
.Obj
.Rect
.Width
div 2)-32,
1394 it
.Obj
.Y
+it
.Obj
.Rect
.Y
+(it
.Obj
.Rect
.Height
div 2)-32, 1,
1397 EFFECT_RESPAWN
: begin
1398 it
:= g_Items_ByIdx(iid
);
1399 if g_Frames_Get(FramesID
, 'FRAMES_ITEM_RESPAWN') then
1401 Anim
:= TAnimation
.Create(FramesID
, False, 4);
1402 g_Sound_PlayExAt('SOUND_ITEM_RESPAWNITEM', Data
.ItemPos
.X
, Data
.ItemPos
.Y
);
1403 g_GFX_OnceAnim(it
.Obj
.X
+it
.Obj
.Rect
.X
+(it
.Obj
.Rect
.Width
div 2)-16,
1404 it
.Obj
.Y
+it
.Obj
.Rect
.Y
+(it
.Obj
.Rect
.Height
div 2)-16, Anim
);
1407 if g_Game_IsServer
and g_Game_IsNet
then
1408 MH_SEND_Effect(it
.Obj
.X
+it
.Obj
.Rect
.X
+(it
.Obj
.Rect
.Width
div 2)-16,
1409 it
.Obj
.Y
+it
.Obj
.Rect
.Y
+(it
.Obj
.Rect
.Height
div 2)-16, 1,
1413 it
:= g_Items_ByIdx(iid
);
1414 if g_Frames_Get(FramesID
, 'FRAMES_FIRE') then
1416 Anim
:= TAnimation
.Create(FramesID
, False, 4);
1417 g_Sound_PlayExAt('SOUND_FIRE', Data
.ItemPos
.X
, Data
.ItemPos
.Y
);
1418 g_GFX_OnceAnim(it
.Obj
.X
+it
.Obj
.Rect
.X
+(it
.Obj
.Rect
.Width
div 2)-32,
1419 it
.Obj
.Y
+it
.Obj
.Rect
.Y
+it
.Obj
.Rect
.Height
-128, Anim
);
1422 if g_Game_IsServer
and g_Game_IsNet
then
1423 MH_SEND_Effect(it
.Obj
.X
+it
.Obj
.Rect
.X
+(it
.Obj
.Rect
.Width
div 2)-32,
1424 it
.Obj
.Y
+it
.Obj
.Rect
.Y
+it
.Obj
.Rect
.Height
-128, 1,
1429 if g_Game_IsNet
then
1430 MH_SEND_ItemSpawn(True, iid
);
1437 // Åñëè àêòèâèðîâàí àâòîñïàâíåðîì, íå ìåíÿåì òåêñòóðó
1438 if actType
= ACTIVATE_CUSTOM
then
1444 // Ìåíÿåì ìóçûêó, åñëè åñòü íà ÷òî:
1445 if (Trigger
.Data
.MusicName
<> '') then
1447 gMusic
.SetByName(Trigger
.Data
.MusicName
);
1448 gMusic
.SpecPause
:= True;
1452 if Trigger
.Data
.MusicAction
= 1 then
1454 if gMusic
.SpecPause
then // Áûëà íà ïàóçå => èãðàòü
1455 gMusic
.SpecPause
:= False
1456 else // Èãðàëà => ñíà÷àëà
1457 gMusic
.SetPosition(0);
1462 gMusic
.SpecPause
:= True;
1470 if g_Game_IsNet
then MH_SEND_TriggerMusic
;
1475 pAngle
:= -DegToRad(Data
.PushAngle
);
1476 Result
:= tr_Push(ActivateUID
,
1477 Floor(Cos(pAngle
)*Data
.PushForce
),
1478 Floor(Sin(pAngle
)*Data
.PushForce
),
1486 // Ïðèáàâèòü èëè îòíÿòü î÷êî
1487 if (Data
.ScoreAction
in [0..1]) and (Data
.ScoreCount
> 0) then
1489 // Ñâîåé èëè ÷óæîé êîìàíäå
1490 if (Data
.ScoreTeam
in [0..1]) and (g_GetUIDType(ActivateUID
) = UID_PLAYER
) then
1492 p
:= g_Player_Get(ActivateUID
);
1493 if ((Data
.ScoreAction
= 0) and (Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_RED
))
1494 or ((Data
.ScoreAction
= 0) and (Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_BLUE
)) then
1496 Inc(gTeamStat
[TEAM_RED
].Goals
, Data
.ScoreCount
); // Red Scores
1498 if Data
.ScoreCon
then
1499 if Data
.ScoreTeam
= 0 then
1501 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_OWN
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1502 if g_Game_IsServer
and g_Game_IsNet
then
1503 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '+r');
1506 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_ENEMY
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1507 if g_Game_IsServer
and g_Game_IsNet
then
1508 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '+re');
1511 if Data
.ScoreMsg
then
1513 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_ADD
], [AnsiUpperCase(_lc
[I_GAME_TEAM_RED
])]), 108);
1514 if g_Game_IsServer
and g_Game_IsNet
then
1515 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, TEAM_RED
);
1518 if ((Data
.ScoreAction
= 1) and (Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_RED
))
1519 or ((Data
.ScoreAction
= 1) and (Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_BLUE
)) then
1521 Dec(gTeamStat
[TEAM_RED
].Goals
, Data
.ScoreCount
); // Red Fouls
1523 if Data
.ScoreCon
then
1524 if Data
.ScoreTeam
= 0 then
1526 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_OWN
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1527 if g_Game_IsServer
and g_Game_IsNet
then
1528 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '-r');
1531 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_ENEMY
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1532 if g_Game_IsServer
and g_Game_IsNet
then
1533 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '-re');
1536 if Data
.ScoreMsg
then
1538 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_SUB
], [AnsiUpperCase(_lc
[I_GAME_TEAM_RED
])]), 108);
1539 if g_Game_IsServer
and g_Game_IsNet
then
1540 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, -TEAM_RED
);
1543 if ((Data
.ScoreAction
= 0) and (Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_BLUE
))
1544 or ((Data
.ScoreAction
= 0) and (Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_RED
)) then
1546 Inc(gTeamStat
[TEAM_BLUE
].Goals
, Data
.ScoreCount
); // Blue Scores
1548 if Data
.ScoreCon
then
1549 if Data
.ScoreTeam
= 0 then
1551 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_OWN
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1552 if g_Game_IsServer
and g_Game_IsNet
then
1553 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '+b');
1556 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_ENEMY
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1557 if g_Game_IsServer
and g_Game_IsNet
then
1558 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '+be');
1561 if Data
.ScoreMsg
then
1563 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_ADD
], [AnsiUpperCase(_lc
[I_GAME_TEAM_BLUE
])]), 108);
1564 if g_Game_IsServer
and g_Game_IsNet
then
1565 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, TEAM_BLUE
);
1568 if ((Data
.ScoreAction
= 1) and (Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_BLUE
))
1569 or ((Data
.ScoreAction
= 1) and (Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_RED
)) then
1571 Dec(gTeamStat
[TEAM_BLUE
].Goals
, Data
.ScoreCount
); // Blue Fouls
1573 if Data
.ScoreCon
then
1574 if Data
.ScoreTeam
= 0 then
1576 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_OWN
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1577 if g_Game_IsServer
and g_Game_IsNet
then
1578 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '-b');
1581 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_ENEMY
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1582 if g_Game_IsServer
and g_Game_IsNet
then
1583 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '-be');
1586 if Data
.ScoreMsg
then
1588 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_SUB
], [AnsiUpperCase(_lc
[I_GAME_TEAM_BLUE
])]), 108);
1589 if g_Game_IsServer
and g_Game_IsNet
then
1590 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, -TEAM_BLUE
);
1593 Result
:= (p
.Team
= TEAM_RED
) or (p
.Team
= TEAM_BLUE
);
1595 // Êàêîé-òî êîíêðåòíîé êîìàíäå
1596 if Data
.ScoreTeam
in [2..3] then
1598 if (Data
.ScoreAction
= 0) and (Data
.ScoreTeam
= 2) then
1600 Inc(gTeamStat
[TEAM_RED
].Goals
, Data
.ScoreCount
); // Red Scores
1602 if Data
.ScoreCon
then
1604 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_TEAM
], [_lc
[I_PLAYER_SCORE_RED
], Data
.ScoreCount
]), True);
1605 if g_Game_IsServer
and g_Game_IsNet
then
1606 MH_SEND_GameEvent(NET_EV_SCORE
, Data
.ScoreCount
shl 16, '+tr');
1609 if Data
.ScoreMsg
then
1611 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_ADD
], [AnsiUpperCase(_lc
[I_GAME_TEAM_RED
])]), 108);
1612 if g_Game_IsServer
and g_Game_IsNet
then
1613 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, TEAM_RED
);
1616 if (Data
.ScoreAction
= 1) and (Data
.ScoreTeam
= 2) then
1618 Dec(gTeamStat
[TEAM_RED
].Goals
, Data
.ScoreCount
); // Red Fouls
1620 if Data
.ScoreCon
then
1622 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_TEAM
], [_lc
[I_PLAYER_SCORE_RED
], Data
.ScoreCount
]), True);
1623 if g_Game_IsServer
and g_Game_IsNet
then
1624 MH_SEND_GameEvent(NET_EV_SCORE
, Data
.ScoreCount
shl 16, '-tr');
1627 if Data
.ScoreMsg
then
1629 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_SUB
], [AnsiUpperCase(_lc
[I_GAME_TEAM_RED
])]), 108);
1630 if g_Game_IsServer
and g_Game_IsNet
then
1631 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, -TEAM_RED
);
1634 if (Data
.ScoreAction
= 0) and (Data
.ScoreTeam
= 3) then
1636 Inc(gTeamStat
[TEAM_BLUE
].Goals
, Data
.ScoreCount
); // Blue Scores
1638 if Data
.ScoreCon
then
1640 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_TEAM
], [_lc
[I_PLAYER_SCORE_BLUE
], Data
.ScoreCount
]), True);
1641 if g_Game_IsServer
and g_Game_IsNet
then
1642 MH_SEND_GameEvent(NET_EV_SCORE
, Data
.ScoreCount
shl 16, '+tb');
1645 if Data
.ScoreMsg
then
1647 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_ADD
], [AnsiUpperCase(_lc
[I_GAME_TEAM_BLUE
])]), 108);
1648 if g_Game_IsServer
and g_Game_IsNet
then
1649 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, TEAM_BLUE
);
1652 if (Data
.ScoreAction
= 1) and (Data
.ScoreTeam
= 3) then
1654 Dec(gTeamStat
[TEAM_BLUE
].Goals
, Data
.ScoreCount
); // Blue Fouls
1656 if Data
.ScoreCon
then
1658 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_TEAM
], [_lc
[I_PLAYER_SCORE_BLUE
], Data
.ScoreCount
]), True);
1659 if g_Game_IsServer
and g_Game_IsNet
then
1660 MH_SEND_GameEvent(NET_EV_SCORE
, Data
.ScoreCount
shl 16, '-tb');
1663 if Data
.ScoreMsg
then
1665 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_SUB
], [AnsiUpperCase(_lc
[I_GAME_TEAM_BLUE
])]), 108);
1666 if g_Game_IsServer
and g_Game_IsNet
then
1667 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, -TEAM_BLUE
);
1674 if (Data
.ScoreAction
= 2) and (gGameSettings
.GoalLimit
> 0) then
1676 // Ñâîåé èëè ÷óæîé êîìàíäû
1677 if (Data
.ScoreTeam
in [0..1]) and (g_GetUIDType(ActivateUID
) = UID_PLAYER
) then
1679 p
:= g_Player_Get(ActivateUID
);
1680 if ((Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_RED
)) // Red Wins
1681 or ((Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_BLUE
)) then
1682 if gTeamStat
[TEAM_RED
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1684 gTeamStat
[TEAM_RED
].Goals
:= gGameSettings
.GoalLimit
;
1686 if Data
.ScoreCon
then
1687 if Data
.ScoreTeam
= 0 then
1689 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_OWN
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1690 if g_Game_IsServer
and g_Game_IsNet
then
1691 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wr');
1694 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_ENEMY
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1695 if g_Game_IsServer
and g_Game_IsNet
then
1696 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wre');
1701 if ((Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_BLUE
)) // Blue Wins
1702 or ((Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_RED
)) then
1703 if gTeamStat
[TEAM_BLUE
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1705 gTeamStat
[TEAM_BLUE
].Goals
:= gGameSettings
.GoalLimit
;
1707 if Data
.ScoreCon
then
1708 if Data
.ScoreTeam
= 0 then
1710 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_OWN
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1711 if g_Game_IsServer
and g_Game_IsNet
then
1712 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wb');
1715 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_ENEMY
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1716 if g_Game_IsServer
and g_Game_IsNet
then
1717 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wbe');
1723 // Êàêîé-òî êîíêðåòíîé êîìàíäû
1724 if Data
.ScoreTeam
in [2..3] then
1726 if Data
.ScoreTeam
= 2 then // Red Wins
1727 if gTeamStat
[TEAM_RED
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1729 gTeamStat
[TEAM_RED
].Goals
:= gGameSettings
.GoalLimit
;
1732 if Data
.ScoreTeam
= 3 then // Blue Wins
1733 if gTeamStat
[TEAM_BLUE
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1735 gTeamStat
[TEAM_BLUE
].Goals
:= gGameSettings
.GoalLimit
;
1741 if (Data
.ScoreAction
= 3) and (gGameSettings
.GoalLimit
> 0) then
1743 // Ñâîåé èëè ÷óæîé êîìàíäû
1744 if (Data
.ScoreTeam
in [0..1]) and (g_GetUIDType(ActivateUID
) = UID_PLAYER
) then
1746 p
:= g_Player_Get(ActivateUID
);
1747 if ((Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_BLUE
)) // Red Wins
1748 or ((Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_RED
)) then
1749 if gTeamStat
[TEAM_RED
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1751 gTeamStat
[TEAM_RED
].Goals
:= gGameSettings
.GoalLimit
;
1753 if Data
.ScoreCon
then
1754 if Data
.ScoreTeam
= 0 then
1756 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_ENEMY
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1757 if g_Game_IsServer
and g_Game_IsNet
then
1758 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wre');
1761 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_OWN
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1762 if g_Game_IsServer
and g_Game_IsNet
then
1763 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wr');
1768 if ((Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_RED
)) // Blue Wins
1769 or ((Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_BLUE
)) then
1770 if gTeamStat
[TEAM_BLUE
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1772 gTeamStat
[TEAM_BLUE
].Goals
:= gGameSettings
.GoalLimit
;
1774 if Data
.ScoreCon
then
1775 if Data
.ScoreTeam
= 0 then
1777 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_ENEMY
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1778 if g_Game_IsServer
and g_Game_IsNet
then
1779 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wbe');
1782 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_OWN
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1783 if g_Game_IsServer
and g_Game_IsNet
then
1784 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wb');
1790 // Êàêîé-òî êîíêðåòíîé êîìàíäû
1791 if Data
.ScoreTeam
in [2..3] then
1793 if Data
.ScoreTeam
= 3 then // Red Wins
1794 if gTeamStat
[TEAM_RED
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1796 gTeamStat
[TEAM_RED
].Goals
:= gGameSettings
.GoalLimit
;
1799 if Data
.ScoreTeam
= 2 then // Blue Wins
1800 if gTeamStat
[TEAM_BLUE
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1802 gTeamStat
[TEAM_BLUE
].Goals
:= gGameSettings
.GoalLimit
;
1807 if Result
then begin
1812 if g_Game_IsServer
and g_Game_IsNet
then
1819 Result
:= tr_Message(Data
.MessageKind
, Data
.MessageText
,
1820 Data
.MessageSendTo
, Data
.MessageTime
,
1825 TRIGGER_DAMAGE
, TRIGGER_HEALTH
:
1828 UIDType
:= g_GetUIDType(ActivateUID
);
1829 if (UIDType
= UID_PLAYER
) or (UIDType
= UID_MONSTER
) then
1835 // Âñïîìèíàåì, àêòèâèðîâàë ëè îí ìåíÿ ðàíüøå
1836 for idx
:= 0 to High(Activators
) do
1837 if Activators
[idx
].UID
= ActivateUID
then
1843 begin // Âèäèì åãî âïåðâûå
1845 SetLength(Activators
, Length(Activators
) + 1);
1846 k
:= High(Activators
);
1847 Activators
[k
].UID
:= ActivateUID
;
1849 begin // Óæå âèäåëè åãî
1850 // Åñëè èíòåðâàë îòêëþ÷¸í, íî îí âñ¸ åù¸ â çîíå ïîðàæåíèÿ, äà¸ì åìó âðåìÿ
1851 if (Data
.DamageInterval
= 0) and (Activators
[k
].TimeOut
> 0) then
1852 Activators
[k
].TimeOut
:= 65535;
1853 // Òàéìàóò ïðîø¸ë - ðàáîòàåì
1854 Result
:= Activators
[k
].TimeOut
= 0;
1863 p
:= g_Player_Get(ActivateUID
);
1867 // Íàíîñèì óðîí èãðîêó
1868 if (TriggerType
= TRIGGER_DAMAGE
) and (Data
.DamageValue
> 0) then
1869 p
.Damage(Data
.DamageValue
, 0, 0, 0, HIT_SOME
);
1872 if (TriggerType
= TRIGGER_HEALTH
) and (Data
.HealValue
> 0) then
1873 if p
.Heal(Data
.HealValue
, not Data
.HealMax
) and (not Data
.HealSilent
) then
1875 g_Sound_PlayExAt('SOUND_ITEM_GETITEM', p
.Obj
.X
, p
.Obj
.Y
);
1876 if g_Game_IsServer
and g_Game_IsNet
then
1877 MH_SEND_Sound(p
.Obj
.X
, p
.Obj
.Y
, 'SOUND_ITEM_GETITEM');
1883 m
:= g_Monsters_ByUID(ActivateUID
);
1887 // Íàíîñèì óðîí ìîíñòðó
1888 if (TriggerType
= TRIGGER_DAMAGE
) and (Data
.DamageValue
> 0) then
1889 m
.Damage(Data
.DamageValue
, 0, 0, 0, HIT_SOME
);
1892 if (TriggerType
= TRIGGER_HEALTH
) and (Data
.HealValue
> 0) then
1893 if m
.Heal(Data
.HealValue
) and (not Data
.HealSilent
) then
1895 g_Sound_PlayExAt('SOUND_ITEM_GETITEM', m
.Obj
.X
, m
.Obj
.Y
);
1896 if g_Game_IsServer
and g_Game_IsNet
then
1897 MH_SEND_Sound(m
.Obj
.X
, m
.Obj
.Y
, 'SOUND_ITEM_GETITEM');
1901 // Íàçíà÷àåì âðåìÿ ñëåäóþùåãî âîçäåéñòâèÿ
1902 if TriggerType
= TRIGGER_DAMAGE
then
1903 idx
:= Data
.DamageInterval
1905 idx
:= Data
.HealInterval
;
1908 Activators
[k
].TimeOut
:= idx
1910 Activators
[k
].TimeOut
:= 65535;
1918 if ShotSightTime
> 0 then
1921 // put this at the beginning so it doesn't trigger itself
1922 TimeOut
:= Data
.ShotWait
+ 1;
1924 wx
:= Data
.ShotPos
.X
;
1925 wy
:= Data
.ShotPos
.Y
;
1926 pAngle
:= -DegToRad(Data
.ShotAngle
);
1927 xd
:= wx
+ Round(Cos(pAngle
) * 32.0);
1928 yd
:= wy
+ Round(Sin(pAngle
) * 32.0);
1931 case Data
.ShotTarget
of
1932 TRIGGER_SHOT_TARGET_MON
: // monsters
1933 g_Mons_ForEach(monsShotTarget
);
1935 TRIGGER_SHOT_TARGET_PLR
: // players
1936 if gPlayers
<> nil then
1937 for idx
:= Low(gPlayers
) to High(gPlayers
) do
1938 if (gPlayers
[idx
] <> nil) and gPlayers
[idx
].Live
and
1939 tr_ShotAimCheck(Trigger
, @(gPlayers
[idx
].Obj
)) then
1941 xd
:= gPlayers
[idx
].GameX
+ PLAYER_RECT_CX
;
1942 yd
:= gPlayers
[idx
].GameY
+ PLAYER_RECT_CY
;
1943 TargetUID
:= gPlayers
[idx
].UID
;
1947 TRIGGER_SHOT_TARGET_RED
: // red team
1948 if gPlayers
<> nil then
1949 for idx
:= Low(gPlayers
) to High(gPlayers
) do
1950 if (gPlayers
[idx
] <> nil) and gPlayers
[idx
].Live
and
1951 (gPlayers
[idx
].Team
= TEAM_RED
) and
1952 tr_ShotAimCheck(Trigger
, @(gPlayers
[idx
].Obj
)) then
1954 xd
:= gPlayers
[idx
].GameX
+ PLAYER_RECT_CX
;
1955 yd
:= gPlayers
[idx
].GameY
+ PLAYER_RECT_CY
;
1956 TargetUID
:= gPlayers
[idx
].UID
;
1960 TRIGGER_SHOT_TARGET_BLUE
: // blue team
1961 if gPlayers
<> nil then
1962 for idx
:= Low(gPlayers
) to High(gPlayers
) do
1963 if (gPlayers
[idx
] <> nil) and gPlayers
[idx
].Live
and
1964 (gPlayers
[idx
].Team
= TEAM_BLUE
) and
1965 tr_ShotAimCheck(Trigger
, @(gPlayers
[idx
].Obj
)) then
1967 xd
:= gPlayers
[idx
].GameX
+ PLAYER_RECT_CX
;
1968 yd
:= gPlayers
[idx
].GameY
+ PLAYER_RECT_CY
;
1969 TargetUID
:= gPlayers
[idx
].UID
;
1973 TRIGGER_SHOT_TARGET_MONPLR
: // monsters then players
1975 g_Mons_ForEach(monsShotTargetMonPlr
);
1977 if (TargetUID
= 0) and (gPlayers
<> nil) then
1978 for idx
:= Low(gPlayers
) to High(gPlayers
) do
1979 if (gPlayers
[idx
] <> nil) and gPlayers
[idx
].Live
and
1980 tr_ShotAimCheck(Trigger
, @(gPlayers
[idx
].Obj
)) then
1982 xd
:= gPlayers
[idx
].GameX
+ PLAYER_RECT_CX
;
1983 yd
:= gPlayers
[idx
].GameY
+ PLAYER_RECT_CY
;
1984 TargetUID
:= gPlayers
[idx
].UID
;
1989 TRIGGER_SHOT_TARGET_PLRMON
: // players then monsters
1991 if gPlayers
<> nil then
1992 for idx
:= Low(gPlayers
) to High(gPlayers
) do
1993 if (gPlayers
[idx
] <> nil) and gPlayers
[idx
].Live
and
1994 tr_ShotAimCheck(Trigger
, @(gPlayers
[idx
].Obj
)) then
1996 xd
:= gPlayers
[idx
].GameX
+ PLAYER_RECT_CX
;
1997 yd
:= gPlayers
[idx
].GameY
+ PLAYER_RECT_CY
;
1998 TargetUID
:= gPlayers
[idx
].UID
;
2001 if TargetUID
= 0 then g_Mons_ForEach(monShotTargetPlrMon
);
2005 if (Data
.ShotTarget
<> TRIGGER_SHOT_TARGET_NONE
) or
2006 (Data
.ShotType
<> TRIGGER_SHOT_REV
) then
2007 TargetUID
:= ActivateUID
;
2011 if (Data
.ShotTarget
= TRIGGER_SHOT_TARGET_NONE
) or (TargetUID
> 0) or
2012 ((Data
.ShotTarget
> TRIGGER_SHOT_TARGET_NONE
) and (TargetUID
= 0)) then
2015 if (Data
.ShotIntSight
= 0) or
2016 (Data
.ShotTarget
= TRIGGER_SHOT_TARGET_NONE
) or
2017 (TargetUID
= ShotSightTarget
) then
2018 MakeShot(Trigger
, wx
, wy
, xd
, yd
, TargetUID
)
2021 ShotSightTime
:= Data
.ShotIntSight
;
2022 ShotSightTargetN
:= TargetUID
;
2023 if Data
.ShotType
= TRIGGER_SHOT_BFG
then
2025 g_Sound_PlayExAt('SOUND_WEAPON_STARTFIREBFG', wx
, wy
);
2026 if g_Game_IsNet
and g_Game_IsServer
then
2027 MH_SEND_Sound(wx
, wy
, 'SOUND_WEAPON_STARTFIREBFG');
2035 idx
:= Data
.FXCount
;
2040 TRIGGER_EFFECT_POS_CENTER
:
2042 wx
:= X
+ Width
div 2;
2043 wy
:= Y
+ Height
div 2;
2045 TRIGGER_EFFECT_POS_AREA
:
2047 wx
:= X
+ Random(Width
);
2048 wy
:= Y
+ Random(Height
);
2051 wx
:= X
+ Width
div 2;
2052 wy
:= Y
+ Height
div 2;
2057 if Data
.FXSpreadL
> 0 then xd
:= xd
- Random(Data
.FXSpreadL
+ 1);
2058 if Data
.FXSpreadR
> 0 then xd
:= xd
+ Random(Data
.FXSpreadR
+ 1);
2059 if Data
.FXSpreadU
> 0 then yd
:= yd
- Random(Data
.FXSpreadU
+ 1);
2060 if Data
.FXSpreadD
> 0 then yd
:= yd
+ Random(Data
.FXSpreadD
+ 1);
2061 tr_MakeEffect(wx
, wy
, xd
, yd
,
2062 Data
.FXType
, Data
.FXSubType
,
2063 Data
.FXColorR
, Data
.FXColorG
, Data
.FXColorB
, True, False);
2066 TimeOut
:= Data
.FXWait
;
2071 if Result
and (Trigger
.TexturePanel
<> -1) then
2072 g_Map_SwitchTexture(Trigger
.TexturePanelType
, Trigger
.TexturePanel
, IfThen(animonce
, 2, 1));
2075 function g_Triggers_Create(Trigger
: TTrigger
): DWORD
;
2080 // Íå ñîçäàâàòü âûõîä, åñëè èãðà áåç âûõîäà:
2081 if (Trigger
.TriggerType
= TRIGGER_EXIT
) and
2082 (not LongBool(gGameSettings
.Options
and GAME_OPTION_ALLOWEXIT
)) then
2083 Trigger
.TriggerType
:= TRIGGER_NONE
;
2085 // Åñëè ìîíñòðû çàïðåùåíû, îòìåíÿåì òðèããåð:
2086 if (Trigger
.TriggerType
= TRIGGER_SPAWNMONSTER
) and
2087 (not LongBool(gGameSettings
.Options
and GAME_OPTION_MONSTERS
)) and
2088 (gGameSettings
.GameType
<> GT_SINGLE
) then
2089 Trigger
.TriggerType
:= TRIGGER_NONE
;
2091 // Ñ÷èòàåì êîëè÷åñòâî ñåêðåòîâ íà êàðòå:
2092 if Trigger
.TriggerType
= TRIGGER_SECRET
then
2093 gSecretsCount
:= gSecretsCount
+ 1;
2095 find_id
:= FindTrigger();
2096 gTriggers
[find_id
] := Trigger
;
2098 with gTriggers
[find_id
] do
2101 // if this type of trigger exists both on the client and on the server
2102 // use an uniform numeration
2103 if Trigger
.TriggerType
= TRIGGER_SOUND
then
2105 Inc(gTriggerClientID
);
2106 ClientID
:= gTriggerClientID
;
2112 PlayerCollide
:= False;
2116 SoundPlayCount
:= 0;
2123 // Çàãðóæàåì çâóê, åñëè ýòî òðèããåð "Çâóê":
2124 if (Trigger
.TriggerType
= TRIGGER_SOUND
) and
2125 (Trigger
.Data
.SoundName
<> '') then
2127 // Åùå íåò òàêîãî çâóêà:
2128 if not g_Sound_Exists(Trigger
.Data
.SoundName
) then
2130 fn
:= g_ExtractWadName(Trigger
.Data
.SoundName
);
2133 begin // Çâóê â ôàéëå ñ êàðòîé
2134 mapw
:= g_ExtractWadName(gMapInfo
.Map
);
2135 fn
:= mapw
+':'+g_ExtractFilePathName(Trigger
.Data
.SoundName
);
2137 else // Çâóê â îòäåëüíîì ôàéëå
2138 fn
:= GameDir
+ '/wads/' + Trigger
.Data
.SoundName
;
2140 if not g_Sound_CreateWADEx(Trigger
.Data
.SoundName
, fn
) then
2141 g_FatalError(Format(_lc
[I_GAME_ERROR_TR_SOUND
], [fn
, Trigger
.Data
.SoundName
]));
2144 // Ñîçäàåì îáúåêò çâóêà:
2145 with gTriggers
[find_id
] do
2147 Sound
:= TPlayableSound
.Create();
2148 if not Sound
.SetByName(Trigger
.Data
.SoundName
) then
2156 // Çàãðóæàåì ìóçûêó, åñëè ýòî òðèããåð "Ìóçûêà":
2157 if (Trigger
.TriggerType
= TRIGGER_MUSIC
) and
2158 (Trigger
.Data
.MusicName
<> '') then
2160 // Åùå íåò òàêîé ìóçûêè:
2161 if not g_Sound_Exists(Trigger
.Data
.MusicName
) then
2163 fn
:= g_ExtractWadName(Trigger
.Data
.MusicName
);
2166 begin // Ìóçûêà â ôàéëå ñ êàðòîé
2167 mapw
:= g_ExtractWadName(gMapInfo
.Map
);
2168 fn
:= mapw
+':'+g_ExtractFilePathName(Trigger
.Data
.MusicName
);
2170 else // Ìóçûêà â ôàéëå ñ êàðòîé
2171 fn
:= GameDir
+'/wads/'+Trigger
.Data
.MusicName
;
2173 if not g_Sound_CreateWADEx(Trigger
.Data
.MusicName
, fn
, True) then
2174 g_FatalError(Format(_lc
[I_GAME_ERROR_TR_SOUND
], [fn
, Trigger
.Data
.MusicName
]));
2178 // Çàãðóæàåì äàííûå òðèããåðà "Òóðåëü":
2179 if Trigger
.TriggerType
= TRIGGER_SHOT
then
2180 with gTriggers
[find_id
] do
2184 ShotSightTimeout
:= 0;
2185 ShotSightTarget
:= 0;
2186 ShotSightTargetN
:= 0;
2187 ShotAmmoCount
:= Trigger
.Data
.ShotAmmo
;
2188 ShotReloadTime
:= 0;
2194 procedure g_Triggers_Update();
2197 Affected
: array of Integer;
2199 {function monsNear (monidx: Integer; mon: TMonster): Boolean;
2201 result := false; // don't stop
2202 if mon.Collide(gTriggers[a].X, gTriggers[a].Y, gTriggers[a].Width, gTriggers[a].Height) then
2204 gTriggers[a].ActivateUID := mon.UID;
2205 ActivateTrigger(gTriggers[a], ACTIVATE_MONSTERCOLLIDE);
2209 function monsNear (monidx
: Integer; mon
: TMonster
): Boolean;
2211 result
:= false; // don't stop
2212 gTriggers
[a
].ActivateUID
:= mon
.UID
;
2213 ActivateTrigger(gTriggers
[a
], ACTIVATE_MONSTERCOLLIDE
);
2217 if gTriggers
= nil then
2219 SetLength(Affected
, 0);
2221 for a
:= 0 to High(gTriggers
) do
2222 with gTriggers
[a
] do
2224 if TriggerType
<> TRIGGER_NONE
then
2226 // Óìåíüøàåì âðåìÿ äî çàêðûòèÿ äâåðè (îòêðûòèÿ ëîâóøêè):
2227 if DoorTime
> 0 then
2228 DoorTime
:= DoorTime
- 1;
2229 // Óìåíüøàåì âðåìÿ îæèäàíèÿ ïîñëå íàæàòèÿ:
2230 if PressTime
> 0 then
2231 PressTime
:= PressTime
- 1;
2232 // Ïðîâåðÿåì èãðîêîâ è ìîíñòðîâ, êîòîðûõ ðàíåå çàïîìíèëè:
2233 if (TriggerType
= TRIGGER_DAMAGE
) or (TriggerType
= TRIGGER_HEALTH
) then
2234 for b
:= 0 to High(Activators
) do
2236 // Óìåíüøàåì âðåìÿ äî ïîâòîðíîãî âîçäåéñòâèÿ:
2237 if Activators
[b
].TimeOut
> 0 then
2238 Dec(Activators
[b
].TimeOut
)
2241 // Ñ÷èòàåì, ÷òî îáúåêò ïîêèíóë çîíó äåéñòâèÿ òðèããåðà
2242 if (Data
.DamageInterval
= 0) and (Activators
[b
].TimeOut
< 65530) then
2243 Activators
[b
].TimeOut
:= 0;
2246 // Îáðàáàòûâàåì ñïàâíåðû:
2247 if Enabled
and AutoSpawn
then
2248 if SpawnCooldown
= 0 then
2250 // Åñëè ïðèøëî âðåìÿ, ñïàâíèì ìîíñòðà:
2251 if (TriggerType
= TRIGGER_SPAWNMONSTER
) and (Data
.MonDelay
> 0) then
2254 ActivateTrigger(gTriggers
[a
], ACTIVATE_CUSTOM
);
2256 // Åñëè ïðèøëî âðåìÿ, ñïàâíèì ïðåäìåò:
2257 if (TriggerType
= TRIGGER_SPAWNITEM
) and (Data
.ItemDelay
> 0) then
2260 ActivateTrigger(gTriggers
[a
], ACTIVATE_CUSTOM
);
2262 end else // Óìåíüøàåì âðåìÿ îæèäàíèÿ:
2265 // Îáðàáàòûâàåì ñîáûòèÿ òðèããåðà "Òóðåëü":
2266 if TriggerType
= TRIGGER_SHOT
then
2268 if ShotPanelTime
> 0 then
2271 if ShotPanelTime
= 0 then
2272 g_Map_SwitchTexture(ShotPanelType
, Data
.ShotPanelID
);
2274 if ShotSightTime
> 0 then
2277 if ShotSightTime
= 0 then
2278 ShotSightTarget
:= ShotSightTargetN
;
2280 if ShotSightTimeout
> 0 then
2282 Dec(ShotSightTimeout
);
2283 if ShotSightTimeout
= 0 then
2284 ShotSightTarget
:= 0;
2286 if ShotReloadTime
> 0 then
2288 Dec(ShotReloadTime
);
2289 if ShotReloadTime
= 0 then
2290 ShotAmmoCount
:= Data
.ShotAmmo
;
2294 // Òðèããåð "Çâóê" óæå îòûãðàë, åñëè íóæíî åùå - ïåðåçàïóñêàåì:
2295 if Enabled
and (TriggerType
= TRIGGER_SOUND
) and (Sound
<> nil) then
2296 if (SoundPlayCount
> 0) and (not Sound
.IsPlaying()) then
2298 if Data
.PlayCount
> 0 then // Åñëè 0 - èãðàåì çâóê áåñêîíå÷íî
2299 SoundPlayCount
:= SoundPlayCount
- 1;
2301 Sound
.PlayVolumeAt(X
+(Width
div 2), Y
+(Height
div 2), Data
.Volume
/255.0)
2303 Sound
.PlayPanVolume((Data
.Pan
-127.0)/128.0, Data
.Volume
/255.0);
2304 if Sound
.IsPlaying() and g_Game_IsNet
and g_Game_IsServer
then
2305 MH_SEND_TriggerSound(gTriggers
[a
]);
2308 // Òðèããåð "Ëîâóøêà" - ïîðà îòêðûâàòü:
2309 if (TriggerType
= TRIGGER_TRAP
) and (DoorTime
= 0) and (Data
.PanelID
<> -1) then
2311 tr_OpenDoor(Data
.PanelID
, Data
.NoSound
, Data
.d2d_doors
);
2315 // Òðèããåð "Äâåðü 5 ñåê" - ïîðà çàêðûâàòü:
2316 if (TriggerType
= TRIGGER_DOOR5
) and (DoorTime
= 0) and (Data
.PanelID
<> -1) then
2319 if gWalls
[Data
.PanelID
].Enabled
then
2321 else // Ïîêà îòêðûòà - çàêðûâàåì
2322 if tr_CloseDoor(Data
.PanelID
, Data
.NoSound
, Data
.d2d_doors
) then
2326 // Òðèããåð - ðàñøèðèòåëü èëè ïåðåêëþ÷àòåëü, è ïðîøëà çàäåðæêà, è íàæàëè íóæíîå ÷èñëî ðàç:
2327 if (TriggerType
in [TRIGGER_PRESS
, TRIGGER_ON
, TRIGGER_OFF
, TRIGGER_ONOFF
]) and
2328 (PressTime
= 0) and (PressCount
>= Data
.Count
) then
2330 // Ñáðàñûâàåì çàäåðæêó àêòèâàöèè:
2332 // Ñáðàñûâàåì ñ÷åò÷èê íàæàòèé:
2333 if Data
.Count
> 0 then
2334 PressCount
:= PressCount
- Data
.Count
2338 // Îïðåäåëÿåì èçìåíÿåìûå èì òðèããåðû:
2339 for b
:= 0 to High(gTriggers
) do
2340 if g_Collide(Data
.tX
, Data
.tY
, Data
.tWidth
, Data
.tHeight
, gTriggers
[b
].X
, gTriggers
[b
].Y
,
2341 gTriggers
[b
].Width
, gTriggers
[b
].Height
) and
2342 ((b
<> a
) or (Data
.Wait
> 0)) then
2343 begin // Can be self-activated, if there is Data.Wait
2344 if (not Data
.ExtRandom
) or gTriggers
[b
].Enabled
then
2346 SetLength(Affected
, Length(Affected
) + 1);
2347 Affected
[High(Affected
)] := b
;
2350 // Âûáèðàåì îäèí èç òðèããåðîâ äëÿ ðàñøèðèòåëÿ, åñëè âêëþ÷åí ðàíäîì:
2351 if (TriggerType
= TRIGGER_PRESS
) and Data
.ExtRandom
then
2353 if (Length(Affected
) > 0) then
2355 b
:= Affected
[Random(Length(Affected
))];
2356 gTriggers
[b
].ActivateUID
:= gTriggers
[a
].ActivateUID
;
2357 ActivateTrigger(gTriggers
[b
], 0);
2360 else //  ïðîòèâíîì ñëó÷àå ðàáîòàåì êàê îáû÷íî:
2361 for i
:= 0 to High(Affected
) do
2367 gTriggers
[b
].ActivateUID
:= gTriggers
[a
].ActivateUID
;
2368 ActivateTrigger(gTriggers
[b
], 0);
2372 gTriggers
[b
].Enabled
:= True;
2376 gTriggers
[b
].Enabled
:= False;
2377 gTriggers
[b
].TimeOut
:= 0;
2378 if gTriggers
[b
].AutoSpawn
then
2380 gTriggers
[b
].AutoSpawn
:= False;
2381 gTriggers
[b
].SpawnCooldown
:= 0;
2386 gTriggers
[b
].Enabled
:= not gTriggers
[b
].Enabled
;
2387 if not gTriggers
[b
].Enabled
then
2389 gTriggers
[b
].TimeOut
:= 0;
2390 if gTriggers
[b
].AutoSpawn
then
2392 gTriggers
[b
].AutoSpawn
:= False;
2393 gTriggers
[b
].SpawnCooldown
:= 0;
2399 SetLength(Affected
, 0);
2402 // Óìåíüøàåì âðåìÿ äî âîçìîæíîñòè ïîâòîðíîé àêòèâàöèè:
2405 TimeOut
:= TimeOut
- 1;
2406 Continue
; // ×òîáû íå ïîòåðÿòü 1 åäèíèöó çàäåðæêè
2409 // Íèæå èäóò òèïû àêòèâàöèè, åñëè òðèããåð îòêëþ÷¸í - èä¸ì äàëüøå
2414 if ByteBool(ActivateType
and ACTIVATE_PLAYERCOLLIDE
) and
2416 if gPlayers
<> nil then
2417 for b
:= 0 to High(gPlayers
) do
2418 if gPlayers
[b
] <> nil then
2420 // Æèâ, åñòü íóæíûå êëþ÷è è îí ðÿäîì:
2421 if Live
and ((gTriggers
[a
].Keys
and GetKeys
) = gTriggers
[a
].Keys
) and
2422 Collide(X
, Y
, Width
, Height
) then
2424 gTriggers
[a
].ActivateUID
:= UID
;
2426 if (gTriggers
[a
].TriggerType
in [TRIGGER_SOUND
, TRIGGER_MUSIC
]) and
2428 { Don't activate sound/music again if player is here }
2430 ActivateTrigger(gTriggers
[a
], ACTIVATE_PLAYERCOLLIDE
);
2433 { TODO 5 : àêòèâàöèÿ ìîíñòðàìè òðèããåðîâ ñ êëþ÷àìè }
2435 if ByteBool(ActivateType
and ACTIVATE_MONSTERCOLLIDE
) and
2436 ByteBool(ActivateType
and ACTIVATE_NOMONSTER
) and
2437 (TimeOut
= 0) and (Keys
= 0) then
2439 // Åñëè "Ìîíñòð áëèçêî" è "Ìîíñòðîâ íåò",
2440 // çàïóñêàåì òðèããåð íà ñòàðòå êàðòû è ñíèìàåì îáà ôëàãà
2441 ActivateType
:= ActivateType
and not (ACTIVATE_MONSTERCOLLIDE
or ACTIVATE_NOMONSTER
);
2442 gTriggers
[a
].ActivateUID
:= 0;
2443 ActivateTrigger(gTriggers
[a
], 0);
2447 if ByteBool(ActivateType
and ACTIVATE_MONSTERCOLLIDE
) and
2448 (TimeOut
= 0) and (Keys
= 0) then // Åñëè íå íóæíû êëþ÷è
2450 //g_Mons_ForEach(monsNear);
2451 g_Mons_ForEachAt(gTriggers
[a
].X
, gTriggers
[a
].Y
, gTriggers
[a
].Width
, gTriggers
[a
].Height
, monsNear
);
2455 if ByteBool(ActivateType
and ACTIVATE_NOMONSTER
) and
2456 (TimeOut
= 0) and (Keys
= 0) then
2457 if not g_Mons_IsAnyAliveAt(X
, Y
, Width
, Height
) then
2459 gTriggers
[a
].ActivateUID
:= 0;
2460 ActivateTrigger(gTriggers
[a
], ACTIVATE_NOMONSTER
);
2464 PlayerCollide
:= g_CollidePlayer(X
, Y
, Width
, Height
);
2468 procedure g_Triggers_Press(ID
: DWORD
; ActivateType
: Byte; ActivateUID
: Word = 0);
2470 gTriggers
[ID
].ActivateUID
:= ActivateUID
;
2471 ActivateTrigger(gTriggers
[ID
], ActivateType
);
2474 function g_Triggers_PressR(X
, Y
: Integer; Width
, Height
: Word; UID
: Word;
2475 ActivateType
: Byte; IgnoreList
: DWArray
= nil): DWArray
;
2483 if gTriggers
= nil then Exit
;
2485 case g_GetUIDType(UID
) of
2489 p
:= g_Player_Get(UID
);
2498 for a
:= 0 to High(gTriggers
) do
2499 if (gTriggers
[a
].TriggerType
<> TRIGGER_NONE
) and
2500 (gTriggers
[a
].TimeOut
= 0) and
2501 (not InDWArray(a
, IgnoreList
)) and
2502 ((gTriggers
[a
].Keys
and k
) = gTriggers
[a
].Keys
) and
2503 ByteBool(gTriggers
[a
].ActivateType
and ActivateType
) then
2504 if g_Collide(X
, Y
, Width
, Height
,
2505 gTriggers
[a
].X
, gTriggers
[a
].Y
,
2506 gTriggers
[a
].Width
, gTriggers
[a
].Height
) then
2508 gTriggers
[a
].ActivateUID
:= UID
;
2509 if ActivateTrigger(gTriggers
[a
], ActivateType
) then
2511 SetLength(Result
, Length(Result
)+1);
2512 Result
[High(Result
)] := a
;
2517 procedure g_Triggers_PressL(X1
, Y1
, X2
, Y2
: Integer; UID
: DWORD
; ActivateType
: Byte);
2523 if gTriggers
= nil then Exit
;
2525 case g_GetUIDType(UID
) of
2529 p
:= g_Player_Get(UID
);
2538 for a
:= 0 to High(gTriggers
) do
2539 if (gTriggers
[a
].TriggerType
<> TRIGGER_NONE
) and
2540 (gTriggers
[a
].TimeOut
= 0) and
2541 ((gTriggers
[a
].Keys
and k
) = gTriggers
[a
].Keys
) and
2542 ByteBool(gTriggers
[a
].ActivateType
and ActivateType
) then
2543 if g_CollideLine(x1
, y1
, x2
, y2
, gTriggers
[a
].X
, gTriggers
[a
].Y
,
2544 gTriggers
[a
].Width
, gTriggers
[a
].Height
) then
2546 gTriggers
[a
].ActivateUID
:= UID
;
2547 ActivateTrigger(gTriggers
[a
], ActivateType
);
2551 procedure g_Triggers_PressC(CX
, CY
: Integer; Radius
: Word; UID
: Word; ActivateType
: Byte; IgnoreTrigger
: Integer = -1);
2558 if gTriggers
= nil then
2561 case g_GetUIDType(UID
) of
2565 p
:= g_Player_Get(UID
);
2574 rsq
:= Radius
* Radius
;
2576 for a
:= 0 to High(gTriggers
) do
2577 if (gTriggers
[a
].ID
<> DWORD(IgnoreTrigger
)) and
2578 (gTriggers
[a
].TriggerType
<> TRIGGER_NONE
) and
2579 (gTriggers
[a
].TimeOut
= 0) and
2580 ((gTriggers
[a
].Keys
and k
) = gTriggers
[a
].Keys
) and
2581 ByteBool(gTriggers
[a
].ActivateType
and ActivateType
) then
2582 with gTriggers
[a
] do
2583 if g_Collide(CX
-Radius
, CY
-Radius
, 2*Radius
, 2*Radius
,
2584 X
, Y
, Width
, Height
) then
2585 if ((Sqr(CX
-X
)+Sqr(CY
-Y
)) < rsq
) or // Öåíòð êðóãà áëèçîê ê âåðõíåìó ëåâîìó óãëó
2586 ((Sqr(CX
-X
-Width
)+Sqr(CY
-Y
)) < rsq
) or // Öåíòð êðóãà áëèçîê ê âåðõíåìó ïðàâîìó óãëó
2587 ((Sqr(CX
-X
-Width
)+Sqr(CY
-Y
-Height
)) < rsq
) or // Öåíòð êðóãà áëèçîê ê íèæíåìó ïðàâîìó óãëó
2588 ((Sqr(CX
-X
)+Sqr(CY
-Y
-Height
)) < rsq
) or // Öåíòð êðóãà áëèçîê ê íèæíåìó ëåâîìó óãëó
2589 ( (CX
> (X
-Radius
)) and (CX
< (X
+Width
+Radius
)) and
2590 (CY
> Y
) and (CY
< (Y
+Height
)) ) or // Öåíòð êðóãà íåäàëåêî îò âåðòèêàëüíûõ ãðàíèö ïðÿìîóãîëüíèêà
2591 ( (CY
> (Y
-Radius
)) and (CY
< (Y
+Height
+Radius
)) and
2592 (CX
> X
) and (CX
< (X
+Width
)) ) then // Öåíòð êðóãà íåäàëåêî îò ãîðèçîíòàëüíûõ ãðàíèö ïðÿìîóãîëüíèêà
2595 ActivateTrigger(gTriggers
[a
], ActivateType
);
2599 procedure g_Triggers_OpenAll();
2604 if gTriggers
= nil then Exit
;
2607 for a
:= 0 to High(gTriggers
) do
2608 with gTriggers
[a
] do
2609 if (TriggerType
= TRIGGER_OPENDOOR
) or
2610 (TriggerType
= TRIGGER_DOOR5
) or
2611 (TriggerType
= TRIGGER_DOOR
) then
2613 tr_OpenDoor(Data
.PanelID
, True, Data
.d2d_doors
);
2614 if TriggerType
= TRIGGER_DOOR5
then DoorTime
:= 180;
2618 if b
then g_Sound_PlayEx('SOUND_GAME_DOOROPEN');
2621 procedure g_Triggers_DecreaseSpawner(ID
: DWORD
);
2623 if (gTriggers
<> nil) then
2624 if gTriggers
[ID
].SpawnedCount
> 0 then
2625 Dec(gTriggers
[ID
].SpawnedCount
);
2628 procedure g_Triggers_Free();
2632 if gTriggers
<> nil then
2633 for a
:= 0 to High(gTriggers
) do
2635 if gTriggers
[a
].TriggerType
= TRIGGER_SOUND
then
2637 if g_Sound_Exists(gTriggers
[a
].Data
.SoundName
) then
2638 g_Sound_Delete(gTriggers
[a
].Data
.SoundName
);
2640 gTriggers
[a
].Sound
.Free();
2642 if gTriggers
[a
].Activators
<> nil then
2643 SetLength(gTriggers
[a
].Activators
, 0);
2648 SetLength(gMonstersSpawned
, 0);
2651 procedure g_Triggers_SaveState(var Mem
: TBinMemoryWriter
);
2653 count
, act_count
, i
, j
: Integer;
2659 // Ñ÷èòàåì êîëè÷åñòâî ñóùåñòâóþùèõ òðèããåðîâ:
2661 if gTriggers
<> nil then
2662 for i
:= 0 to High(gTriggers
) do
2665 Mem
:= TBinMemoryWriter
.Create((count
+1) * 200);
2667 // Êîëè÷åñòâî òðèããåðîâ:
2668 Mem
.WriteInt(count
);
2673 for i
:= 0 to High(gTriggers
) do
2675 // Ñèãíàòóðà òðèããåðà:
2676 dw
:= TRIGGER_SIGNATURE
; // 'TRGR'
2679 Mem
.WriteByte(gTriggers
[i
].TriggerType
);
2680 // Ñïåöèàëüíûå äàííûå òðèããåðà:
2681 p
:= @gTriggers
[i
].Data
;
2682 Mem
.WriteMemory(p
, SizeOf(TTriggerData
));
2683 // Êîîðäèíàòû ëåâîãî âåðõíåãî óãëà:
2684 Mem
.WriteInt(gTriggers
[i
].X
);
2685 Mem
.WriteInt(gTriggers
[i
].Y
);
2687 Mem
.WriteWord(gTriggers
[i
].Width
);
2688 Mem
.WriteWord(gTriggers
[i
].Height
);
2689 // Âêëþ÷åí ëè òðèããåð:
2690 Mem
.WriteBoolean(gTriggers
[i
].Enabled
);
2691 // Òèï àêòèâàöèè òðèããåðà:
2692 Mem
.WriteByte(gTriggers
[i
].ActivateType
);
2693 // Êëþ÷è, íåîáõîäèìûå äëÿ àêòèâàöèè:
2694 Mem
.WriteByte(gTriggers
[i
].Keys
);
2695 // ID ïàíåëè, òåêñòóðà êîòîðîé èçìåíèòñÿ:
2696 Mem
.WriteInt(gTriggers
[i
].TexturePanel
);
2698 Mem
.WriteWord(gTriggers
[i
].TexturePanelType
);
2699 // Âðåìÿ äî âîçìîæíîñòè àêòèâàöèè:
2700 Mem
.WriteWord(gTriggers
[i
].TimeOut
);
2701 // UID òîãî, êòî àêòèâèðîâàë ýòîò òðèããåð:
2702 Mem
.WriteWord(gTriggers
[i
].ActivateUID
);
2703 // Ñïèñîê UID-îâ îáúåêòîâ, êîòîðûå íàõîäèëèñü ïîä âîçäåéñòâèåì:
2704 act_count
:= Length(gTriggers
[i
].Activators
);
2705 Mem
.WriteInt(act_count
);
2706 for j
:= 0 to act_count
-1 do
2709 Mem
.WriteWord(gTriggers
[i
].Activators
[j
].UID
);
2711 Mem
.WriteWord(gTriggers
[i
].Activators
[j
].TimeOut
);
2713 // Ñòîèò ëè èãðîê â îáëàñòè òðèããåðà:
2714 Mem
.WriteBoolean(gTriggers
[i
].PlayerCollide
);
2715 // Âðåìÿ äî çàêðûòèÿ äâåðè:
2716 Mem
.WriteInt(gTriggers
[i
].DoorTime
);
2717 // Çàäåðæêà àêòèâàöèè:
2718 Mem
.WriteInt(gTriggers
[i
].PressTime
);
2720 Mem
.WriteInt(gTriggers
[i
].PressCount
);
2722 Mem
.WriteBoolean(gTriggers
[i
].AutoSpawn
);
2723 // Çàäåðæêà ñïàâíåðà:
2724 Mem
.WriteInt(gTriggers
[i
].SpawnCooldown
);
2725 // Ñ÷åò÷èê ñîçäàíèÿ îáúåêòîâ:
2726 Mem
.WriteInt(gTriggers
[i
].SpawnedCount
);
2727 // Ñêîëüêî ðàç ïðîèãðàí çâóê:
2728 Mem
.WriteInt(gTriggers
[i
].SoundPlayCount
);
2729 // Ïðîèãðûâàåòñÿ ëè çâóê?
2730 if gTriggers
[i
].Sound
<> nil then
2731 b
:= gTriggers
[i
].Sound
.IsPlaying()
2734 Mem
.WriteBoolean(b
);
2737 // Ïîçèöèÿ ïðîèãðûâàíèÿ çâóêà:
2738 dw
:= gTriggers
[i
].Sound
.GetPosition();
2741 sg
:= gTriggers
[i
].Sound
.GetVolume();
2742 sg
:= sg
/ (gSoundLevel
/255.0);
2743 Mem
.WriteSingle(sg
);
2744 // Ñòåðåî ñìåùåíèå çâóêà:
2745 sg
:= gTriggers
[i
].Sound
.GetPan();
2746 Mem
.WriteSingle(sg
);
2751 procedure g_Triggers_LoadState(var Mem
: TBinMemoryReader
);
2753 count
, act_count
, i
, j
, a
: Integer;
2765 // Êîëè÷åñòâî òðèããåðîâ:
2771 for a
:= 0 to count
-1 do
2773 // Ñèãíàòóðà òðèããåðà:
2775 if dw
<> TRIGGER_SIGNATURE
then // 'TRGR'
2777 raise EBinSizeError
.Create('g_Triggers_LoadState: Wrong Trigger Signature');
2780 Mem
.ReadByte(Trig
.TriggerType
);
2781 // Ñïåöèàëüíûå äàííûå òðèããåðà:
2782 Mem
.ReadMemory(p
, dw
);
2783 if dw
<> SizeOf(TTriggerData
) then
2785 raise EBinSizeError
.Create('g_Triggers_LoadState: Wrong TriggerData Size');
2787 Trig
.Data
:= TTriggerData(p
^);
2789 i
:= g_Triggers_Create(Trig
);
2790 // Êîîðäèíàòû ëåâîãî âåðõíåãî óãëà:
2791 Mem
.ReadInt(gTriggers
[i
].X
);
2792 Mem
.ReadInt(gTriggers
[i
].Y
);
2794 Mem
.ReadWord(gTriggers
[i
].Width
);
2795 Mem
.ReadWord(gTriggers
[i
].Height
);
2796 // Âêëþ÷åí ëè òðèããåð:
2797 Mem
.ReadBoolean(gTriggers
[i
].Enabled
);
2798 // Òèï àêòèâàöèè òðèããåðà:
2799 Mem
.ReadByte(gTriggers
[i
].ActivateType
);
2800 // Êëþ÷è, íåîáõîäèìûå äëÿ àêòèâàöèè:
2801 Mem
.ReadByte(gTriggers
[i
].Keys
);
2802 // ID ïàíåëè, òåêñòóðà êîòîðîé èçìåíèòñÿ:
2803 Mem
.ReadInt(gTriggers
[i
].TexturePanel
);
2805 Mem
.ReadWord(gTriggers
[i
].TexturePanelType
);
2806 // Âðåìÿ äî âîçìîæíîñòè àêòèâàöèè:
2807 Mem
.ReadWord(gTriggers
[i
].TimeOut
);
2808 // UID òîãî, êòî àêòèâèðîâàë ýòîò òðèããåð:
2809 Mem
.ReadWord(gTriggers
[i
].ActivateUID
);
2810 // Ñïèñîê UID-îâ îáúåêòîâ, êîòîðûå íàõîäèëèñü ïîä âîçäåéñòâèåì:
2811 Mem
.ReadInt(act_count
);
2812 if act_count
> 0 then
2814 SetLength(gTriggers
[i
].Activators
, act_count
);
2815 for j
:= 0 to act_count
-1 do
2818 Mem
.ReadWord(gTriggers
[i
].Activators
[j
].UID
);
2820 Mem
.ReadWord(gTriggers
[i
].Activators
[j
].TimeOut
);
2823 // Ñòîèò ëè èãðîê â îáëàñòè òðèããåðà:
2824 Mem
.ReadBoolean(gTriggers
[i
].PlayerCollide
);
2825 // Âðåìÿ äî çàêðûòèÿ äâåðè:
2826 Mem
.ReadInt(gTriggers
[i
].DoorTime
);
2827 // Çàäåðæêà àêòèâàöèè:
2828 Mem
.ReadInt(gTriggers
[i
].PressTime
);
2830 Mem
.ReadInt(gTriggers
[i
].PressCount
);
2832 Mem
.ReadBoolean(gTriggers
[i
].AutoSpawn
);
2833 // Çàäåðæêà ñïàâíåðà:
2834 Mem
.ReadInt(gTriggers
[i
].SpawnCooldown
);
2835 // Ñ÷åò÷èê ñîçäàíèÿ îáúåêòîâ:
2836 Mem
.ReadInt(gTriggers
[i
].SpawnedCount
);
2837 // Ñêîëüêî ðàç ïðîèãðàí çâóê:
2838 Mem
.ReadInt(gTriggers
[i
].SoundPlayCount
);
2839 // Ïðîèãðûâàåòñÿ ëè çâóê?
2843 // Ïîçèöèÿ ïðîèãðûâàíèÿ çâóêà:
2846 Mem
.ReadSingle(vol
);
2847 // Ñòåðåî ñìåùåíèå çâóêà:
2848 Mem
.ReadSingle(pan
);
2849 // Çàïóñêàåì çâóê, åñëè åñòü:
2850 if gTriggers
[i
].Sound
<> nil then
2852 gTriggers
[i
].Sound
.PlayPanVolume(pan
, vol
);
2853 gTriggers
[i
].Sound
.Pause(True);
2854 gTriggers
[i
].Sound
.SetPosition(dw
);