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_CollideMonster(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_CollideMonster(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);
213 if PanelID
= -1 then Exit
;
217 with gWalls
[PanelID
] do
218 if (not NoSound
) and (not Enabled
) then
220 g_Sound_PlayExAt('SOUND_GAME_SWITCH1', X
, Y
);
221 if g_Game_IsServer
and g_Game_IsNet
then
222 MH_SEND_Sound(X
, Y
, 'SOUND_GAME_SWITCH1');
225 with gWalls
[PanelID
] do
227 if gPlayers
<> nil then
228 for a
:= 0 to High(gPlayers
) do
229 if (gPlayers
[a
] <> nil) and gPlayers
[a
].Live
and
230 gPlayers
[a
].Collide(X
, Y
, Width
, Height
) then
231 gPlayers
[a
].Damage(TRAP_DAMAGE
, 0, 0, 0, HIT_TRAP
);
233 if gMonsters
<> nil then
234 for a
:= 0 to High(gMonsters
) do
235 if (gMonsters
[a
] <> nil) and gMonsters
[a
].Live
and
236 g_Obj_Collide(X
, Y
, Width
, Height
, @gMonsters
[a
].Obj
) then
237 gMonsters
[a
].Damage(TRAP_DAMAGE
, 0, 0, 0, HIT_TRAP
);
239 if not Enabled
then g_Map_EnableWall(PanelID
);
244 if gDoorMap
= nil then Exit
;
247 for a
:= 0 to High(gDoorMap
) do
249 for b
:= 0 to High(gDoorMap
[a
]) do
250 if gDoorMap
[a
, b
] = DWORD(PanelID
) then
256 if c
<> -1 then Break
;
261 for b
:= 0 to High(gDoorMap
[c
]) do
262 if not gWalls
[gDoorMap
[c
, b
]].Enabled
then
264 with gWalls
[PanelID
] do
266 g_Sound_PlayExAt('SOUND_GAME_SWITCH1', X
, Y
);
267 if g_Game_IsServer
and g_Game_IsNet
then
268 MH_SEND_Sound(X
, Y
, 'SOUND_GAME_SWITCH1');
273 for b
:= 0 to High(gDoorMap
[c
]) do
274 with gWalls
[gDoorMap
[c
, b
]] do
276 if gPlayers
<> nil then
277 for a
:= 0 to High(gPlayers
) do
278 if (gPlayers
[a
] <> nil) and gPlayers
[a
].Live
and
279 gPlayers
[a
].Collide(X
, Y
, Width
, Height
) then
280 gPlayers
[a
].Damage(TRAP_DAMAGE
, 0, 0, 0, HIT_TRAP
);
282 if gMonsters
<> nil then
283 for a
:= 0 to High(gMonsters
) do
284 if (gMonsters
[a
] <> nil) and gMonsters
[a
].Live
and
285 g_Obj_Collide(X
, Y
, Width
, Height
, @gMonsters
[a
].Obj
) then
286 gMonsters
[a
].Damage(TRAP_DAMAGE
, 0, 0, 0, HIT_TRAP
);
288 if not Enabled
then g_Map_EnableWall(gDoorMap
[c
, b
]);
293 function tr_OpenDoor(PanelID
: Integer; NoSound
: Boolean; d2d
: Boolean): Boolean;
299 if PanelID
= -1 then Exit
;
303 with gWalls
[PanelID
] do
308 g_Sound_PlayExAt('SOUND_GAME_DOOROPEN', X
, Y
);
309 if g_Game_IsServer
and g_Game_IsNet
then
310 MH_SEND_Sound(X
, Y
, 'SOUND_GAME_DOOROPEN');
312 g_Map_DisableWall(PanelID
);
318 if gDoorMap
= nil then Exit
;
321 for a
:= 0 to High(gDoorMap
) do
323 for b
:= 0 to High(gDoorMap
[a
]) do
324 if gDoorMap
[a
, b
] = DWORD(PanelID
) then
330 if c
<> -1 then Break
;
335 for b
:= 0 to High(gDoorMap
[c
]) do
336 if gWalls
[gDoorMap
[c
, b
]].Enabled
then
338 with gWalls
[PanelID
] do
340 g_Sound_PlayExAt('SOUND_GAME_DOOROPEN', X
, Y
);
341 if g_Game_IsServer
and g_Game_IsNet
then
342 MH_SEND_Sound(X
, Y
, 'SOUND_GAME_DOOROPEN');
347 for b
:= 0 to High(gDoorMap
[c
]) do
348 if gWalls
[gDoorMap
[c
, b
]].Enabled
then
350 g_Map_DisableWall(gDoorMap
[c
, b
]);
356 function tr_SetLift(PanelID
: Integer; d
: Integer; NoSound
: Boolean; d2d
: Boolean): Boolean;
363 if PanelID
= -1 then Exit
;
365 if (gLifts
[PanelID
].PanelType
= PANEL_LIFTUP
) or
366 (gLifts
[PanelID
].PanelType
= PANEL_LIFTDOWN
) then
370 else t
:= IfThen(gLifts
[PanelID
].LiftType
= 1, 0, 1);
372 else if (gLifts
[PanelID
].PanelType
= PANEL_LIFTLEFT
) or
373 (gLifts
[PanelID
].PanelType
= PANEL_LIFTRIGHT
) then
377 else t
:= IfThen(gLifts
[PanelID
].LiftType
= 2, 3, 2);
382 with gLifts
[PanelID
] do
383 if LiftType
<> t
then
385 g_Map_SetLift(PanelID
, t
);
388 g_Sound_PlayExAt('SOUND_GAME_SWITCH0', X, Y);}
394 if gLiftMap
= nil then Exit
;
397 for a
:= 0 to High(gLiftMap
) do
399 for b
:= 0 to High(gLiftMap
[a
]) do
400 if gLiftMap
[a
, b
] = DWORD(PanelID
) then
406 if c
<> -1 then Break
;
411 for b := 0 to High(gLiftMap[c]) do
412 if gLifts[gLiftMap[c, b]].LiftType <> t then
414 with gLifts[PanelID] do
415 g_Sound_PlayExAt('SOUND_GAME_SWITCH0', X, Y);
419 for b
:= 0 to High(gLiftMap
[c
]) do
420 with gLifts
[gLiftMap
[c
, b
]] do
421 if LiftType
<> t
then
423 g_Map_SetLift(gLiftMap
[c
, b
], t
);
430 function tr_SpawnShot(ShotType
: Integer; wx
, wy
, dx
, dy
: Integer; ShotSound
: Boolean; ShotTarget
: Word): Integer;
438 TextureID
:= DWORD(-1);
439 snd
:= 'SOUND_WEAPON_FIREROCKET';
444 g_Weapon_pistol(wx
, wy
, dx
, dy
, 0, True);
445 snd
:= 'SOUND_WEAPON_FIREPISTOL';
449 g_Player_CreateShell(wx
, wy
, 0, -2, SHELL_BULLET
);
451 MH_SEND_Effect(wx
, wy
, 0, NET_GFX_SHELL1
);
457 g_Weapon_mgun(wx
, wy
, dx
, dy
, 0, True);
458 if gSoundEffectsDF
then snd
:= 'SOUND_WEAPON_FIRECGUN'
459 else snd
:= 'SOUND_WEAPON_FIREPISTOL';
463 g_Player_CreateShell(wx
, wy
, 0, -2, SHELL_BULLET
);
465 MH_SEND_Effect(wx
, wy
, 0, NET_GFX_SHELL1
);
469 TRIGGER_SHOT_SHOTGUN
:
471 g_Weapon_Shotgun(wx
, wy
, dx
, dy
, 0, True);
472 snd
:= 'SOUND_WEAPON_FIRESHOTGUN';
476 g_Player_CreateShell(wx
, wy
, 0, -2, SHELL_SHELL
);
478 MH_SEND_Effect(wx
, wy
, 0, NET_GFX_SHELL2
);
484 g_Weapon_DShotgun(wx
, wy
, dx
, dy
, 0, True);
485 snd
:= 'SOUND_WEAPON_FIRESHOTGUN2';
489 g_Player_CreateShell(wx
, wy
, 0, -2, SHELL_SHELL
);
490 g_Player_CreateShell(wx
, wy
, 0, -2, SHELL_SHELL
);
492 MH_SEND_Effect(wx
, wy
, 0, NET_GFX_SHELL3
);
498 g_Weapon_ball1(wx
, wy
, dx
, dy
, 0, -1, True);
499 snd
:= 'SOUND_WEAPON_FIREBALL';
504 g_Weapon_Plasma(wx
, wy
, dx
, dy
, 0, -1, True);
505 snd
:= 'SOUND_WEAPON_FIREPLASMA';
510 g_Weapon_aplasma(wx
, wy
, dx
, dy
, 0, -1, True);
511 snd
:= 'SOUND_WEAPON_FIREPLASMA';
516 g_Weapon_ball2(wx
, wy
, dx
, dy
, 0, -1, True);
517 snd
:= 'SOUND_WEAPON_FIREBALL';
522 g_Weapon_ball7(wx
, wy
, dx
, dy
, 0, -1, True);
523 snd
:= 'SOUND_WEAPON_FIREBALL';
528 g_Weapon_manfire(wx
, wy
, dx
, dy
, 0, -1, True);
529 snd
:= 'SOUND_WEAPON_FIREBALL';
534 g_Weapon_revf(wx
, wy
, dx
, dy
, 0, ShotTarget
, -1, True);
535 snd
:= 'SOUND_WEAPON_FIREREV';
540 g_Weapon_Rocket(wx
, wy
, dx
, dy
, 0, -1, True);
541 snd
:= 'SOUND_WEAPON_FIREROCKET';
546 g_Weapon_BFGShot(wx
, wy
, dx
, dy
, 0, -1, True);
547 snd
:= 'SOUND_WEAPON_FIREBFG';
552 if g_Frames_Get(TextureID
, 'FRAMES_EXPLODE_ROCKET') then
554 Anim
:= TAnimation
.Create(TextureID
, False, 6);
555 Anim
.Blending
:= False;
556 g_GFX_OnceAnim(wx
-64, wy
-64, Anim
);
560 g_Weapon_Explode(wx
, wy
, 60, 0);
561 snd
:= 'SOUND_WEAPON_EXPLODEROCKET';
564 TRIGGER_SHOT_BFGEXPL
:
566 if g_Frames_Get(TextureID
, 'FRAMES_EXPLODE_BFG') then
568 Anim
:= TAnimation
.Create(TextureID
, False, 6);
569 Anim
.Blending
:= False;
570 g_GFX_OnceAnim(wx
-64, wy
-64, Anim
);
574 g_Weapon_BFG9000(wx
, wy
, 0);
575 snd
:= 'SOUND_WEAPON_EXPLODEBFG';
581 if g_Game_IsNet
and g_Game_IsServer
then
584 MH_SEND_Effect(wx
, wy
, Byte(ShotSound
), NET_GFX_EXPLODE
);
585 TRIGGER_SHOT_BFGEXPL
:
586 MH_SEND_Effect(wx
, wy
, Byte(ShotSound
), NET_GFX_BFGEXPL
);
590 MH_SEND_CreateShot(LastShotID
);
592 MH_SEND_Sound(wx
, wy
, snd
);
597 g_Sound_PlayExAt(snd
, wx
, wy
);
600 Result
:= LastShotID
;
603 procedure MakeShot(var Trigger
: TTrigger
; wx
, wy
, dx
, dy
: Integer; TargetUID
: Word);
606 if (Data
.ShotAmmo
= 0) or
607 ((Data
.ShotAmmo
> 0) and (ShotAmmoCount
> 0)) then
609 if (Data
.ShotPanelID
<> -1) and (ShotPanelTime
= 0) then
611 g_Map_SwitchTexture(ShotPanelType
, Data
.ShotPanelID
);
612 ShotPanelTime
:= 4; // òèêîâ íà âñïûøêó âûñòðåëà
615 if Data
.ShotIntSight
> 0 then
616 ShotSightTimeout
:= 180; // ~= 5 ñåêóíä
618 if ShotAmmoCount
> 0 then Dec(ShotAmmoCount
);
620 dx
:= dx
+ Random(Data
.ShotAccuracy
) - Random(Data
.ShotAccuracy
);
621 dy
:= dy
+ Random(Data
.ShotAccuracy
) - Random(Data
.ShotAccuracy
);
623 tr_SpawnShot(Data
.ShotType
, wx
, wy
, dx
, dy
, Data
.ShotSound
, TargetUID
);
626 if (Data
.ShotIntReload
> 0) and (ShotReloadTime
= 0) then
627 ShotReloadTime
:= Data
.ShotIntReload
; // òèêîâ íà ïåðåçàðÿäêó ïóøêè
630 procedure tr_MakeEffect(X
, Y
, VX
, VY
: Integer; T
, ST
, CR
, CG
, CB
: Byte; Silent
, Send
: Boolean);
635 if T
= TRIGGER_EFFECT_PARTICLE
then
637 TRIGGER_EFFECT_SLIQUID
:
639 if (CR
= 255) and (CG
= 0) and (CB
= 0) then
640 g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 1, 0, 0, 0)
641 else if (CR
= 0) and (CG
= 255) and (CB
= 0) then
642 g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 2, 0, 0, 0)
643 else if (CR
= 0) and (CG
= 0) and (CB
= 255) then
644 g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 3, 0, 0, 0)
646 g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 0, 0, 0, 0);
648 TRIGGER_EFFECT_LLIQUID
:
649 g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 4, CR
, CG
, CB
);
650 TRIGGER_EFFECT_DLIQUID
:
651 g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 5, CR
, CG
, CB
);
652 TRIGGER_EFFECT_BLOOD
:
653 g_GFX_Blood(X
, Y
, 1, VX
, VY
, 0, 0, CR
, CG
, CB
);
654 TRIGGER_EFFECT_SPARK
:
655 g_GFX_Spark(X
, Y
, 1, GetAngle2(VX
, VY
), 0, 0);
656 TRIGGER_EFFECT_BUBBLE
:
657 g_GFX_Bubbles(X
, Y
, 1, 0, 0);
659 if T
= TRIGGER_EFFECT_ANIMATION
then
661 EFFECT_TELEPORT
: begin
662 if g_Frames_Get(FramesID
, 'FRAMES_TELEPORT') then
664 Anim
:= TAnimation
.Create(FramesID
, False, 3);
666 g_Sound_PlayExAt('SOUND_GAME_TELEPORT', X
, Y
);
667 g_GFX_OnceAnim(X
-32, Y
-32, Anim
);
670 if Send
and g_Game_IsServer
and g_Game_IsNet
then
671 MH_SEND_Effect(X
, Y
, Byte(not Silent
), NET_GFX_TELE
);
673 EFFECT_RESPAWN
: begin
674 if g_Frames_Get(FramesID
, 'FRAMES_ITEM_RESPAWN') then
676 Anim
:= TAnimation
.Create(FramesID
, False, 4);
678 g_Sound_PlayExAt('SOUND_ITEM_RESPAWNITEM', X
, Y
);
679 g_GFX_OnceAnim(X
-16, Y
-16, Anim
);
682 if Send
and g_Game_IsServer
and g_Game_IsNet
then
683 MH_SEND_Effect(X
-16, Y
-16, Byte(not Silent
), NET_GFX_RESPAWN
);
686 if g_Frames_Get(FramesID
, 'FRAMES_FIRE') then
688 Anim
:= TAnimation
.Create(FramesID
, False, 4);
690 g_Sound_PlayExAt('SOUND_FIRE', X
, Y
);
691 g_GFX_OnceAnim(X
-32, Y
-128, Anim
);
694 if Send
and g_Game_IsServer
and g_Game_IsNet
then
695 MH_SEND_Effect(X
-32, Y
-128, Byte(not Silent
), NET_GFX_FIRE
);
700 function tr_Teleport(ActivateUID
: Integer; TX
, TY
: Integer; TDir
: Integer; Silent
: Boolean; D2D
: Boolean): Boolean;
706 if (ActivateUID
< 0) or (ActivateUID
> $FFFF) then Exit
;
707 case g_GetUIDType(ActivateUID
) of
710 p
:= g_Player_Get(ActivateUID
);
716 if p
.TeleportTo(TX
-(p
.Obj
.Rect
.Width
div 2),
717 TY
-p
.Obj
.Rect
.Height
,
723 if p
.TeleportTo(TX
, TY
, Silent
, TDir
) then
729 m
:= g_Monsters_Get(ActivateUID
);
735 if m
.TeleportTo(TX
-(m
.Obj
.Rect
.Width
div 2),
736 TY
-m
.Obj
.Rect
.Height
,
742 if m
.TeleportTo(TX
, TY
, Silent
, TDir
) then
748 function tr_Push(ActivateUID
: Integer; VX
, VY
: Integer; ResetVel
: Boolean): Boolean;
754 if (ActivateUID
< 0) or (ActivateUID
> $FFFF) then Exit
;
755 case g_GetUIDType(ActivateUID
) of
758 p
:= g_Player_Get(ActivateUID
);
775 m
:= g_Monsters_Get(ActivateUID
);
792 function tr_Message(MKind
: Integer; MText
: string; MSendTo
: Integer; MTime
: Integer; ActivateUID
: Integer): Boolean;
799 if (ActivateUID
< 0) or (ActivateUID
> $FFFF) then Exit
;
800 msg
:= b_Text_Format(MText
);
804 if g_GetUIDType(ActivateUID
) = UID_PLAYER
then
806 if g_Game_IsWatchedPlayer(ActivateUID
) then
809 g_Console_Add(msg
, True)
810 else if MKind
= 1 then
811 g_Game_Message(msg
, MTime
);
815 p
:= g_Player_Get(ActivateUID
);
816 if g_Game_IsNet
and (p
.FClientID
>= 0) then
818 MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
, p
.FClientID
)
819 else if MKind
= 1 then
820 MH_SEND_GameEvent(NET_EV_BIGTEXT
, MTime
, msg
, p
.FClientID
);
825 1: // activator's team
827 if g_GetUIDType(ActivateUID
) = UID_PLAYER
then
829 p
:= g_Player_Get(ActivateUID
);
830 if g_Game_IsWatchedTeam(p
.Team
) then
832 g_Console_Add(msg
, True)
833 else if MKind
= 1 then
834 g_Game_Message(msg
, MTime
);
838 for i
:= Low(gPlayers
) to High(gPlayers
) do
839 if (gPlayers
[i
].Team
= p
.Team
) and (gPlayers
[i
].FClientID
>= 0) then
841 MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
, gPlayers
[i
].FClientID
)
842 else if MKind
= 1 then
843 MH_SEND_GameEvent(NET_EV_BIGTEXT
, MTime
, msg
, gPlayers
[i
].FClientID
);
848 2: // activator's enemy team
850 if g_GetUIDType(ActivateUID
) = UID_PLAYER
then
852 p
:= g_Player_Get(ActivateUID
);
853 if g_Game_IsWatchedTeam(p
.Team
) then
855 g_Console_Add(msg
, True)
856 else if MKind
= 1 then
857 g_Game_Message(msg
, MTime
);
861 for i
:= Low(gPlayers
) to High(gPlayers
) do
862 if (gPlayers
[i
].Team
<> p
.Team
) and (gPlayers
[i
].FClientID
>= 0) then
864 MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
, gPlayers
[i
].FClientID
)
865 else if MKind
= 1 then
866 MH_SEND_GameEvent(NET_EV_BIGTEXT
, MTime
, msg
, gPlayers
[i
].FClientID
);
873 if g_Game_IsWatchedTeam(TEAM_RED
) then
875 g_Console_Add(msg
, True)
876 else if MKind
= 1 then
877 g_Game_Message(msg
, MTime
);
881 for i
:= Low(gPlayers
) to High(gPlayers
) do
882 if (gPlayers
[i
].Team
= TEAM_RED
) and (gPlayers
[i
].FClientID
>= 0) then
884 MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
, gPlayers
[i
].FClientID
)
885 else if MKind
= 1 then
886 MH_SEND_GameEvent(NET_EV_BIGTEXT
, MTime
, msg
, gPlayers
[i
].FClientID
);
892 if g_Game_IsWatchedTeam(TEAM_BLUE
) then
894 g_Console_Add(msg
, True)
895 else if MKind
= 1 then
896 g_Game_Message(msg
, MTime
);
900 for i
:= Low(gPlayers
) to High(gPlayers
) do
901 if (gPlayers
[i
].Team
= TEAM_BLUE
) and (gPlayers
[i
].FClientID
>= 0) then
903 MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
, gPlayers
[i
].FClientID
)
904 else if MKind
= 1 then
905 MH_SEND_GameEvent(NET_EV_BIGTEXT
, MTime
, msg
, gPlayers
[i
].FClientID
);
912 g_Console_Add(msg
, True)
913 else if MKind
= 1 then
914 g_Game_Message(msg
, MTime
);
919 MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
)
920 else if MKind
= 1 then
921 MH_SEND_GameEvent(NET_EV_BIGTEXT
, MTime
, msg
);
927 function tr_ShotAimCheck(var Trigger
: TTrigger
; Obj
: PObj
): Boolean;
932 if TriggerType
<> TRIGGER_SHOT
then
934 Result
:= (Data
.ShotAim
and TRIGGER_SHOT_AIM_ALLMAP
> 0)
935 or g_Obj_Collide(X
, Y
, Width
, Height
, Obj
);
936 if Result
and (Data
.ShotAim
and TRIGGER_SHOT_AIM_TRACE
> 0) then
937 Result
:= g_TraceVector(Data
.ShotPos
.X
,
939 Obj
^.X
+ Obj
^.Rect
.X
+ (Obj
^.Rect
.Width
div 2),
940 Obj
^.Y
+ Obj
^.Rect
.Y
+ (Obj
^.Rect
.Height
div 2));
944 function ActivateTrigger(var Trigger
: TTrigger
; actType
: Byte): Boolean;
949 i
, k
, wx
, wy
, xd
, yd
: Integer;
959 if g_Game_IsClient
then
962 if not Trigger
.Enabled
then
964 if (Trigger
.TimeOut
<> 0) and (actType
<> ACTIVATE_CUSTOM
) then
966 if gLMSRespawn
= LMS_RESPAWN_WARMUP
then
971 coolDown
:= (actType
<> 0);
978 g_Sound_PlayEx('SOUND_GAME_SWITCH0');
979 if g_Game_IsNet
then MH_SEND_Sound(X
, Y
, 'SOUND_GAME_SWITCH0');
980 gExitByTrigger
:= True;
981 g_Game_ExitLevel(Data
.MapName
);
990 Result
:= tr_Teleport(ActivateUID
,
991 Data
.TargetPoint
.X
, Data
.TargetPoint
.Y
,
992 Data
.TlpDir
, Data
.silent_teleport
,
999 Result
:= tr_OpenDoor(Data
.PanelID
, Data
.NoSound
, Data
.d2d_doors
);
1005 Result
:= tr_CloseDoor(Data
.PanelID
, Data
.NoSound
, Data
.d2d_doors
);
1009 TRIGGER_DOOR
, TRIGGER_DOOR5
:
1011 if Data
.PanelID
<> -1 then
1013 if gWalls
[Data
.PanelID
].Enabled
then
1015 Result
:= tr_OpenDoor(Data
.PanelID
, Data
.NoSound
, Data
.d2d_doors
);
1017 if TriggerType
= TRIGGER_DOOR5
then
1021 Result
:= tr_CloseDoor(Data
.PanelID
, Data
.NoSound
, Data
.d2d_doors
);
1028 TRIGGER_CLOSETRAP
, TRIGGER_TRAP
:
1030 tr_CloseTrap(Data
.PanelID
, Data
.NoSound
, Data
.d2d_doors
);
1032 if TriggerType
= TRIGGER_TRAP
then
1046 TRIGGER_PRESS
, TRIGGER_ON
, TRIGGER_OFF
, TRIGGER_ONOFF
:
1048 PressCount
:= PressCount
+ 1;
1050 if PressTime
= -1 then
1051 PressTime
:= Data
.Wait
;
1061 if g_GetUIDType(ActivateUID
) = UID_PLAYER
then
1065 if gLMSRespawn
= LMS_RESPAWN_NONE
then
1067 g_Player_Get(ActivateUID
).GetSecret();
1068 Inc(gCoopSecretsFound
);
1069 if g_Game_IsNet
then MH_SEND_GameStats();
1075 Result
:= tr_SetLift(Data
.PanelID
, 0, Data
.NoSound
, Data
.d2d_doors
);
1078 if (not Data
.NoSound
) and Result
then begin
1079 g_Sound_PlayExAt('SOUND_GAME_SWITCH0',
1081 Y
+ (Height
div 2));
1082 if g_Game_IsServer
and g_Game_IsNet
then
1083 MH_SEND_Sound(X
+ (Width
div 2),
1085 'SOUND_GAME_SWITCH0');
1091 Result
:= tr_SetLift(Data
.PanelID
, 1, Data
.NoSound
, Data
.d2d_doors
);
1094 if (not Data
.NoSound
) and Result
then begin
1095 g_Sound_PlayExAt('SOUND_GAME_SWITCH0',
1097 Y
+ (Height
div 2));
1098 if g_Game_IsServer
and g_Game_IsNet
then
1099 MH_SEND_Sound(X
+ (Width
div 2),
1101 'SOUND_GAME_SWITCH0');
1107 Result
:= tr_SetLift(Data
.PanelID
, 3, Data
.NoSound
, Data
.d2d_doors
);
1113 if (not Data
.NoSound
) and Result
then begin
1114 g_Sound_PlayExAt('SOUND_GAME_SWITCH0',
1116 Y
+ (Height
div 2));
1117 if g_Game_IsServer
and g_Game_IsNet
then
1118 MH_SEND_Sound(X
+ (Width
div 2),
1120 'SOUND_GAME_SWITCH0');
1127 if ByteBool(Data
.ActivateOnce
) then
1130 TriggerType
:= TRIGGER_NONE
;
1138 animonce
:= Data
.AnimOnce
;
1144 if Sound
<> nil then
1146 if Data
.SoundSwitch
and Sound
.IsPlaying() then
1147 begin // Íóæíî âûêëþ÷èòü, åñëè èãðàë
1149 SoundPlayCount
:= 0;
1152 else // (not Data.SoundSwitch) or (not Sound.IsPlaying())
1153 if (Data
.PlayCount
> 0) or (not Sound
.IsPlaying()) then
1155 if Data
.PlayCount
> 0 then
1156 SoundPlayCount
:= Data
.PlayCount
1157 else // 0 - èãðàåì áåñêîíå÷íî
1158 SoundPlayCount
:= 1;
1161 if g_Game_IsNet
then MH_SEND_TriggerSound(Trigger
);
1165 TRIGGER_SPAWNMONSTER
:
1166 if (Data
.MonType
in [MONSTER_DEMON
..MONSTER_MAN
]) then
1169 if (Data
.MonDelay
> 0) and (actType
<> ACTIVATE_CUSTOM
) then
1171 AutoSpawn
:= not AutoSpawn
;
1173 // Àâòîñïàâíåð ïåðåêëþ÷åí - ìåíÿåì òåêñòóðó
1177 if ((Data
.MonDelay
= 0) and (actType
<> ACTIVATE_CUSTOM
))
1178 or ((Data
.MonDelay
> 0) and (actType
= ACTIVATE_CUSTOM
)) then
1179 for k
:= 1 to Data
.MonCount
do
1181 if (actType
= ACTIVATE_CUSTOM
) and (Data
.MonDelay
> 0) then
1182 SpawnCooldown
:= Data
.MonDelay
;
1183 if (Data
.MonMax
> 0) and (SpawnedCount
>= Data
.MonMax
) then
1186 i
:= g_Monsters_Create(Data
.MonType
,
1187 Data
.MonPos
.X
, Data
.MonPos
.Y
,
1188 TDirection(Data
.MonDir
), True);
1193 if (Data
.MonHealth
> 0) then
1194 gMonsters
[i
].SetHealth(Data
.MonHealth
);
1195 // Óñòàíàâëèâàåì ïîâåäåíèå:
1196 gMonsters
[i
].MonsterBehaviour
:= Data
.MonBehav
;
1197 gMonsters
[i
].FNoRespawn
:= True;
1198 if g_Game_IsNet
then
1199 MH_SEND_MonsterSpawn(gMonsters
[i
].UID
);
1200 // Èäåì èñêàòü öåëü, åñëè íàäî:
1201 if Data
.MonActive
then
1202 gMonsters
[i
].WakeUp();
1204 if Data
.MonType
<> MONSTER_BARREL
then Inc(gTotalMonsters
);
1206 if g_Game_IsNet
then
1208 SetLength(gMonstersSpawned
, Length(gMonstersSpawned
)+1);
1209 gMonstersSpawned
[High(gMonstersSpawned
)] := gMonsters
[i
].UID
;
1212 if Data
.MonMax
> 0 then
1214 gMonsters
[i
].SpawnTrigger
:= ID
;
1218 case Data
.MonEffect
of
1219 EFFECT_TELEPORT
: begin
1220 if g_Frames_Get(FramesID
, 'FRAMES_TELEPORT') then
1222 Anim
:= TAnimation
.Create(FramesID
, False, 3);
1223 g_Sound_PlayExAt('SOUND_GAME_TELEPORT', Data
.MonPos
.X
, Data
.MonPos
.Y
);
1224 g_GFX_OnceAnim(gMonsters
[i
].Obj
.X
+gMonsters
[i
].Obj
.Rect
.X
+(gMonsters
[i
].Obj
.Rect
.Width
div 2)-32,
1225 gMonsters
[i
].Obj
.Y
+gMonsters
[i
].Obj
.Rect
.Y
+(gMonsters
[i
].Obj
.Rect
.Height
div 2)-32, Anim
);
1228 if g_Game_IsServer
and g_Game_IsNet
then
1229 MH_SEND_Effect(gMonsters
[i
].Obj
.X
+gMonsters
[i
].Obj
.Rect
.X
+(gMonsters
[i
].Obj
.Rect
.Width
div 2)-32,
1230 gMonsters
[i
].Obj
.Y
+gMonsters
[i
].Obj
.Rect
.Y
+(gMonsters
[i
].Obj
.Rect
.Height
div 2)-32, 1,
1233 EFFECT_RESPAWN
: begin
1234 if g_Frames_Get(FramesID
, 'FRAMES_ITEM_RESPAWN') then
1236 Anim
:= TAnimation
.Create(FramesID
, False, 4);
1237 g_Sound_PlayExAt('SOUND_ITEM_RESPAWNITEM', Data
.MonPos
.X
, Data
.MonPos
.Y
);
1238 g_GFX_OnceAnim(gMonsters
[i
].Obj
.X
+gMonsters
[i
].Obj
.Rect
.X
+(gMonsters
[i
].Obj
.Rect
.Width
div 2)-16,
1239 gMonsters
[i
].Obj
.Y
+gMonsters
[i
].Obj
.Rect
.Y
+(gMonsters
[i
].Obj
.Rect
.Height
div 2)-16, Anim
);
1242 if g_Game_IsServer
and g_Game_IsNet
then
1243 MH_SEND_Effect(gMonsters
[i
].Obj
.X
+gMonsters
[i
].Obj
.Rect
.X
+(gMonsters
[i
].Obj
.Rect
.Width
div 2)-16,
1244 gMonsters
[i
].Obj
.Y
+gMonsters
[i
].Obj
.Rect
.Y
+(gMonsters
[i
].Obj
.Rect
.Height
div 2)-16, 1,
1248 if g_Frames_Get(FramesID
, 'FRAMES_FIRE') then
1250 Anim
:= TAnimation
.Create(FramesID
, False, 4);
1251 g_Sound_PlayExAt('SOUND_FIRE', Data
.MonPos
.X
, Data
.MonPos
.Y
);
1252 g_GFX_OnceAnim(gMonsters
[i
].Obj
.X
+gMonsters
[i
].Obj
.Rect
.X
+(gMonsters
[i
].Obj
.Rect
.Width
div 2)-32,
1253 gMonsters
[i
].Obj
.Y
+gMonsters
[i
].Obj
.Rect
.Y
+gMonsters
[i
].Obj
.Rect
.Height
-128, Anim
);
1256 if g_Game_IsServer
and g_Game_IsNet
then
1257 MH_SEND_Effect(gMonsters
[i
].Obj
.X
+gMonsters
[i
].Obj
.Rect
.X
+(gMonsters
[i
].Obj
.Rect
.Width
div 2)-32,
1258 gMonsters
[i
].Obj
.Y
+gMonsters
[i
].Obj
.Rect
.Y
+gMonsters
[i
].Obj
.Rect
.Height
-128, 1,
1263 if g_Game_IsNet
then
1265 MH_SEND_GameStats();
1266 MH_SEND_CoopStats();
1273 // Åñëè àêòèâèðîâàí àâòîñïàâíåðîì, íå ìåíÿåì òåêñòóðó
1274 if actType
= ACTIVATE_CUSTOM
then
1279 if (Data
.ItemType
in [ITEM_MEDKIT_SMALL
..ITEM_MAX
]) then
1282 if (Data
.ItemDelay
> 0) and (actType
<> ACTIVATE_CUSTOM
) then
1284 AutoSpawn
:= not AutoSpawn
;
1286 // Àâòîñïàâíåð ïåðåêëþ÷åí - ìåíÿåì òåêñòóðó
1290 if ((Data
.ItemDelay
= 0) and (actType
<> ACTIVATE_CUSTOM
))
1291 or ((Data
.ItemDelay
> 0) and (actType
= ACTIVATE_CUSTOM
)) then
1292 if (not Data
.ItemOnlyDM
) or
1293 (gGameSettings
.GameMode
in [GM_DM
, GM_TDM
, GM_CTF
]) then
1294 for k
:= 1 to Data
.ItemCount
do
1296 if (actType
= ACTIVATE_CUSTOM
) and (Data
.ItemDelay
> 0) then
1297 SpawnCooldown
:= Data
.ItemDelay
;
1298 if (Data
.ItemMax
> 0) and (SpawnedCount
>= Data
.ItemMax
) then
1301 iid
:= g_Items_Create(Data
.ItemPos
.X
, Data
.ItemPos
.Y
,
1302 Data
.ItemType
, Data
.ItemFalls
, False, True);
1306 if Data
.ItemMax
> 0 then
1308 gItems
[iid
].SpawnTrigger
:= ID
;
1312 case Data
.ItemEffect
of
1313 EFFECT_TELEPORT
: begin
1314 if g_Frames_Get(FramesID
, 'FRAMES_TELEPORT') then
1316 Anim
:= TAnimation
.Create(FramesID
, False, 3);
1317 g_Sound_PlayExAt('SOUND_GAME_TELEPORT', Data
.ItemPos
.X
, Data
.ItemPos
.Y
);
1318 g_GFX_OnceAnim(gItems
[iid
].Obj
.X
+gItems
[iid
].Obj
.Rect
.X
+(gItems
[iid
].Obj
.Rect
.Width
div 2)-32,
1319 gItems
[iid
].Obj
.Y
+gItems
[iid
].Obj
.Rect
.Y
+(gItems
[iid
].Obj
.Rect
.Height
div 2)-32, Anim
);
1322 if g_Game_IsServer
and g_Game_IsNet
then
1323 MH_SEND_Effect(gItems
[iid
].Obj
.X
+gItems
[iid
].Obj
.Rect
.X
+(gItems
[iid
].Obj
.Rect
.Width
div 2)-32,
1324 gItems
[iid
].Obj
.Y
+gItems
[iid
].Obj
.Rect
.Y
+(gItems
[iid
].Obj
.Rect
.Height
div 2)-32, 1,
1327 EFFECT_RESPAWN
: begin
1328 if g_Frames_Get(FramesID
, 'FRAMES_ITEM_RESPAWN') then
1330 Anim
:= TAnimation
.Create(FramesID
, False, 4);
1331 g_Sound_PlayExAt('SOUND_ITEM_RESPAWNITEM', Data
.ItemPos
.X
, Data
.ItemPos
.Y
);
1332 g_GFX_OnceAnim(gItems
[iid
].Obj
.X
+gItems
[iid
].Obj
.Rect
.X
+(gItems
[iid
].Obj
.Rect
.Width
div 2)-16,
1333 gItems
[iid
].Obj
.Y
+gItems
[iid
].Obj
.Rect
.Y
+(gItems
[iid
].Obj
.Rect
.Height
div 2)-16, Anim
);
1336 if g_Game_IsServer
and g_Game_IsNet
then
1337 MH_SEND_Effect(gItems
[iid
].Obj
.X
+gItems
[iid
].Obj
.Rect
.X
+(gItems
[iid
].Obj
.Rect
.Width
div 2)-16,
1338 gItems
[iid
].Obj
.Y
+gItems
[iid
].Obj
.Rect
.Y
+(gItems
[iid
].Obj
.Rect
.Height
div 2)-16, 1,
1342 if g_Frames_Get(FramesID
, 'FRAMES_FIRE') then
1344 Anim
:= TAnimation
.Create(FramesID
, False, 4);
1345 g_Sound_PlayExAt('SOUND_FIRE', Data
.ItemPos
.X
, Data
.ItemPos
.Y
);
1346 g_GFX_OnceAnim(gItems
[iid
].Obj
.X
+gItems
[iid
].Obj
.Rect
.X
+(gItems
[iid
].Obj
.Rect
.Width
div 2)-32,
1347 gItems
[iid
].Obj
.Y
+gItems
[iid
].Obj
.Rect
.Y
+gItems
[iid
].Obj
.Rect
.Height
-128, Anim
);
1350 if g_Game_IsServer
and g_Game_IsNet
then
1351 MH_SEND_Effect(gItems
[iid
].Obj
.X
+gItems
[iid
].Obj
.Rect
.X
+(gItems
[iid
].Obj
.Rect
.Width
div 2)-32,
1352 gItems
[iid
].Obj
.Y
+gItems
[iid
].Obj
.Rect
.Y
+gItems
[iid
].Obj
.Rect
.Height
-128, 1,
1357 if g_Game_IsNet
then
1358 MH_SEND_ItemSpawn(True, iid
);
1365 // Åñëè àêòèâèðîâàí àâòîñïàâíåðîì, íå ìåíÿåì òåêñòóðó
1366 if actType
= ACTIVATE_CUSTOM
then
1372 // Ìåíÿåì ìóçûêó, åñëè åñòü íà ÷òî:
1373 if (Trigger
.Data
.MusicName
<> '') then
1375 gMusic
.SetByName(Trigger
.Data
.MusicName
);
1376 gMusic
.SpecPause
:= True;
1380 if Trigger
.Data
.MusicAction
= 1 then
1382 if gMusic
.SpecPause
then // Áûëà íà ïàóçå => èãðàòü
1383 gMusic
.SpecPause
:= False
1384 else // Èãðàëà => ñíà÷àëà
1385 gMusic
.SetPosition(0);
1390 gMusic
.SpecPause
:= True;
1398 if g_Game_IsNet
then MH_SEND_TriggerMusic
;
1403 pAngle
:= -DegToRad(Data
.PushAngle
);
1404 Result
:= tr_Push(ActivateUID
,
1405 Floor(Cos(pAngle
)*Data
.PushForce
),
1406 Floor(Sin(pAngle
)*Data
.PushForce
),
1414 // Ïðèáàâèòü èëè îòíÿòü î÷êî
1415 if (Data
.ScoreAction
in [0..1]) and (Data
.ScoreCount
> 0) then
1417 // Ñâîåé èëè ÷óæîé êîìàíäå
1418 if (Data
.ScoreTeam
in [0..1]) and (g_GetUIDType(ActivateUID
) = UID_PLAYER
) then
1420 p
:= g_Player_Get(ActivateUID
);
1421 if ((Data
.ScoreAction
= 0) and (Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_RED
))
1422 or ((Data
.ScoreAction
= 0) and (Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_BLUE
)) then
1424 Inc(gTeamStat
[TEAM_RED
].Goals
, Data
.ScoreCount
); // Red Scores
1426 if Data
.ScoreCon
then
1427 if Data
.ScoreTeam
= 0 then
1429 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_OWN
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1430 if g_Game_IsServer
and g_Game_IsNet
then
1431 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '+r');
1434 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_ENEMY
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1435 if g_Game_IsServer
and g_Game_IsNet
then
1436 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '+re');
1439 if Data
.ScoreMsg
then
1441 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_ADD
], [AnsiUpperCase(_lc
[I_GAME_TEAM_RED
])]), 108);
1442 if g_Game_IsServer
and g_Game_IsNet
then
1443 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, TEAM_RED
);
1446 if ((Data
.ScoreAction
= 1) and (Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_RED
))
1447 or ((Data
.ScoreAction
= 1) and (Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_BLUE
)) then
1449 Dec(gTeamStat
[TEAM_RED
].Goals
, Data
.ScoreCount
); // Red Fouls
1451 if Data
.ScoreCon
then
1452 if Data
.ScoreTeam
= 0 then
1454 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_OWN
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1455 if g_Game_IsServer
and g_Game_IsNet
then
1456 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '-r');
1459 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_ENEMY
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1460 if g_Game_IsServer
and g_Game_IsNet
then
1461 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '-re');
1464 if Data
.ScoreMsg
then
1466 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_SUB
], [AnsiUpperCase(_lc
[I_GAME_TEAM_RED
])]), 108);
1467 if g_Game_IsServer
and g_Game_IsNet
then
1468 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, -TEAM_RED
);
1471 if ((Data
.ScoreAction
= 0) and (Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_BLUE
))
1472 or ((Data
.ScoreAction
= 0) and (Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_RED
)) then
1474 Inc(gTeamStat
[TEAM_BLUE
].Goals
, Data
.ScoreCount
); // Blue Scores
1476 if Data
.ScoreCon
then
1477 if Data
.ScoreTeam
= 0 then
1479 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_OWN
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1480 if g_Game_IsServer
and g_Game_IsNet
then
1481 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '+b');
1484 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_ENEMY
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1485 if g_Game_IsServer
and g_Game_IsNet
then
1486 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '+be');
1489 if Data
.ScoreMsg
then
1491 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_ADD
], [AnsiUpperCase(_lc
[I_GAME_TEAM_BLUE
])]), 108);
1492 if g_Game_IsServer
and g_Game_IsNet
then
1493 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, TEAM_BLUE
);
1496 if ((Data
.ScoreAction
= 1) and (Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_BLUE
))
1497 or ((Data
.ScoreAction
= 1) and (Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_RED
)) then
1499 Dec(gTeamStat
[TEAM_BLUE
].Goals
, Data
.ScoreCount
); // Blue Fouls
1501 if Data
.ScoreCon
then
1502 if Data
.ScoreTeam
= 0 then
1504 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_OWN
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1505 if g_Game_IsServer
and g_Game_IsNet
then
1506 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '-b');
1509 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_ENEMY
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1510 if g_Game_IsServer
and g_Game_IsNet
then
1511 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '-be');
1514 if Data
.ScoreMsg
then
1516 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_SUB
], [AnsiUpperCase(_lc
[I_GAME_TEAM_BLUE
])]), 108);
1517 if g_Game_IsServer
and g_Game_IsNet
then
1518 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, -TEAM_BLUE
);
1521 Result
:= (p
.Team
= TEAM_RED
) or (p
.Team
= TEAM_BLUE
);
1523 // Êàêîé-òî êîíêðåòíîé êîìàíäå
1524 if Data
.ScoreTeam
in [2..3] then
1526 if (Data
.ScoreAction
= 0) and (Data
.ScoreTeam
= 2) then
1528 Inc(gTeamStat
[TEAM_RED
].Goals
, Data
.ScoreCount
); // Red Scores
1530 if Data
.ScoreCon
then
1532 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_TEAM
], [_lc
[I_PLAYER_SCORE_RED
], Data
.ScoreCount
]), True);
1533 if g_Game_IsServer
and g_Game_IsNet
then
1534 MH_SEND_GameEvent(NET_EV_SCORE
, Data
.ScoreCount
shl 16, '+tr');
1537 if Data
.ScoreMsg
then
1539 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_ADD
], [AnsiUpperCase(_lc
[I_GAME_TEAM_RED
])]), 108);
1540 if g_Game_IsServer
and g_Game_IsNet
then
1541 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, TEAM_RED
);
1544 if (Data
.ScoreAction
= 1) and (Data
.ScoreTeam
= 2) then
1546 Dec(gTeamStat
[TEAM_RED
].Goals
, Data
.ScoreCount
); // Red Fouls
1548 if Data
.ScoreCon
then
1550 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_TEAM
], [_lc
[I_PLAYER_SCORE_RED
], Data
.ScoreCount
]), True);
1551 if g_Game_IsServer
and g_Game_IsNet
then
1552 MH_SEND_GameEvent(NET_EV_SCORE
, Data
.ScoreCount
shl 16, '-tr');
1555 if Data
.ScoreMsg
then
1557 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_SUB
], [AnsiUpperCase(_lc
[I_GAME_TEAM_RED
])]), 108);
1558 if g_Game_IsServer
and g_Game_IsNet
then
1559 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, -TEAM_RED
);
1562 if (Data
.ScoreAction
= 0) and (Data
.ScoreTeam
= 3) then
1564 Inc(gTeamStat
[TEAM_BLUE
].Goals
, Data
.ScoreCount
); // Blue Scores
1566 if Data
.ScoreCon
then
1568 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_TEAM
], [_lc
[I_PLAYER_SCORE_BLUE
], Data
.ScoreCount
]), True);
1569 if g_Game_IsServer
and g_Game_IsNet
then
1570 MH_SEND_GameEvent(NET_EV_SCORE
, Data
.ScoreCount
shl 16, '+tb');
1573 if Data
.ScoreMsg
then
1575 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_ADD
], [AnsiUpperCase(_lc
[I_GAME_TEAM_BLUE
])]), 108);
1576 if g_Game_IsServer
and g_Game_IsNet
then
1577 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, TEAM_BLUE
);
1580 if (Data
.ScoreAction
= 1) and (Data
.ScoreTeam
= 3) then
1582 Dec(gTeamStat
[TEAM_BLUE
].Goals
, Data
.ScoreCount
); // Blue Fouls
1584 if Data
.ScoreCon
then
1586 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_TEAM
], [_lc
[I_PLAYER_SCORE_BLUE
], Data
.ScoreCount
]), True);
1587 if g_Game_IsServer
and g_Game_IsNet
then
1588 MH_SEND_GameEvent(NET_EV_SCORE
, Data
.ScoreCount
shl 16, '-tb');
1591 if Data
.ScoreMsg
then
1593 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_SUB
], [AnsiUpperCase(_lc
[I_GAME_TEAM_BLUE
])]), 108);
1594 if g_Game_IsServer
and g_Game_IsNet
then
1595 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, -TEAM_BLUE
);
1602 if (Data
.ScoreAction
= 2) and (gGameSettings
.GoalLimit
> 0) then
1604 // Ñâîåé èëè ÷óæîé êîìàíäû
1605 if (Data
.ScoreTeam
in [0..1]) and (g_GetUIDType(ActivateUID
) = UID_PLAYER
) then
1607 p
:= g_Player_Get(ActivateUID
);
1608 if ((Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_RED
)) // Red Wins
1609 or ((Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_BLUE
)) then
1610 if gTeamStat
[TEAM_RED
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1612 gTeamStat
[TEAM_RED
].Goals
:= gGameSettings
.GoalLimit
;
1614 if Data
.ScoreCon
then
1615 if Data
.ScoreTeam
= 0 then
1617 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_OWN
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1618 if g_Game_IsServer
and g_Game_IsNet
then
1619 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wr');
1622 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_ENEMY
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1623 if g_Game_IsServer
and g_Game_IsNet
then
1624 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wre');
1629 if ((Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_BLUE
)) // Blue Wins
1630 or ((Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_RED
)) then
1631 if gTeamStat
[TEAM_BLUE
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1633 gTeamStat
[TEAM_BLUE
].Goals
:= gGameSettings
.GoalLimit
;
1635 if Data
.ScoreCon
then
1636 if Data
.ScoreTeam
= 0 then
1638 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_OWN
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1639 if g_Game_IsServer
and g_Game_IsNet
then
1640 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wb');
1643 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_ENEMY
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1644 if g_Game_IsServer
and g_Game_IsNet
then
1645 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wbe');
1651 // Êàêîé-òî êîíêðåòíîé êîìàíäû
1652 if Data
.ScoreTeam
in [2..3] then
1654 if Data
.ScoreTeam
= 2 then // Red Wins
1655 if gTeamStat
[TEAM_RED
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1657 gTeamStat
[TEAM_RED
].Goals
:= gGameSettings
.GoalLimit
;
1660 if Data
.ScoreTeam
= 3 then // Blue Wins
1661 if gTeamStat
[TEAM_BLUE
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1663 gTeamStat
[TEAM_BLUE
].Goals
:= gGameSettings
.GoalLimit
;
1669 if (Data
.ScoreAction
= 3) and (gGameSettings
.GoalLimit
> 0) then
1671 // Ñâîåé èëè ÷óæîé êîìàíäû
1672 if (Data
.ScoreTeam
in [0..1]) and (g_GetUIDType(ActivateUID
) = UID_PLAYER
) then
1674 p
:= g_Player_Get(ActivateUID
);
1675 if ((Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_BLUE
)) // Red Wins
1676 or ((Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_RED
)) then
1677 if gTeamStat
[TEAM_RED
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1679 gTeamStat
[TEAM_RED
].Goals
:= gGameSettings
.GoalLimit
;
1681 if Data
.ScoreCon
then
1682 if Data
.ScoreTeam
= 0 then
1684 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_ENEMY
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1685 if g_Game_IsServer
and g_Game_IsNet
then
1686 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wre');
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');
1696 if ((Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_RED
)) // Blue Wins
1697 or ((Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_BLUE
)) then
1698 if gTeamStat
[TEAM_BLUE
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1700 gTeamStat
[TEAM_BLUE
].Goals
:= gGameSettings
.GoalLimit
;
1702 if Data
.ScoreCon
then
1703 if Data
.ScoreTeam
= 0 then
1705 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_ENEMY
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1706 if g_Game_IsServer
and g_Game_IsNet
then
1707 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wbe');
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');
1718 // Êàêîé-òî êîíêðåòíîé êîìàíäû
1719 if Data
.ScoreTeam
in [2..3] then
1721 if Data
.ScoreTeam
= 3 then // Red Wins
1722 if gTeamStat
[TEAM_RED
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1724 gTeamStat
[TEAM_RED
].Goals
:= gGameSettings
.GoalLimit
;
1727 if Data
.ScoreTeam
= 2 then // Blue Wins
1728 if gTeamStat
[TEAM_BLUE
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1730 gTeamStat
[TEAM_BLUE
].Goals
:= gGameSettings
.GoalLimit
;
1735 if Result
then begin
1740 if g_Game_IsServer
and g_Game_IsNet
then
1747 Result
:= tr_Message(Data
.MessageKind
, Data
.MessageText
,
1748 Data
.MessageSendTo
, Data
.MessageTime
,
1753 TRIGGER_DAMAGE
, TRIGGER_HEALTH
:
1756 UIDType
:= g_GetUIDType(ActivateUID
);
1757 if (UIDType
= UID_PLAYER
) or (UIDType
= UID_MONSTER
) then
1763 // Âñïîìèíàåì, àêòèâèðîâàë ëè îí ìåíÿ ðàíüøå
1764 for i
:= 0 to High(Activators
) do
1765 if Activators
[i
].UID
= ActivateUID
then
1771 begin // Âèäèì åãî âïåðâûå
1773 SetLength(Activators
, Length(Activators
) + 1);
1774 k
:= High(Activators
);
1775 Activators
[k
].UID
:= ActivateUID
;
1777 begin // Óæå âèäåëè åãî
1778 // Åñëè èíòåðâàë îòêëþ÷¸í, íî îí âñ¸ åù¸ â çîíå ïîðàæåíèÿ, äà¸ì åìó âðåìÿ
1779 if (Data
.DamageInterval
= 0) and (Activators
[k
].TimeOut
> 0) then
1780 Activators
[k
].TimeOut
:= 65535;
1781 // Òàéìàóò ïðîø¸ë - ðàáîòàåì
1782 Result
:= Activators
[k
].TimeOut
= 0;
1791 p
:= g_Player_Get(ActivateUID
);
1795 // Íàíîñèì óðîí èãðîêó
1796 if (TriggerType
= TRIGGER_DAMAGE
) and (Data
.DamageValue
> 0) then
1797 p
.Damage(Data
.DamageValue
, 0, 0, 0, HIT_SOME
);
1800 if (TriggerType
= TRIGGER_HEALTH
) and (Data
.HealValue
> 0) then
1801 if p
.Heal(Data
.HealValue
, not Data
.HealMax
) and (not Data
.HealSilent
) then
1803 g_Sound_PlayExAt('SOUND_ITEM_GETITEM', p
.Obj
.X
, p
.Obj
.Y
);
1804 if g_Game_IsServer
and g_Game_IsNet
then
1805 MH_SEND_Sound(p
.Obj
.X
, p
.Obj
.Y
, 'SOUND_ITEM_GETITEM');
1811 m
:= g_Monsters_Get(ActivateUID
);
1815 // Íàíîñèì óðîí ìîíñòðó
1816 if (TriggerType
= TRIGGER_DAMAGE
) and (Data
.DamageValue
> 0) then
1817 m
.Damage(Data
.DamageValue
, 0, 0, 0, HIT_SOME
);
1820 if (TriggerType
= TRIGGER_HEALTH
) and (Data
.HealValue
> 0) then
1821 if m
.Heal(Data
.HealValue
) and (not Data
.HealSilent
) then
1823 g_Sound_PlayExAt('SOUND_ITEM_GETITEM', m
.Obj
.X
, m
.Obj
.Y
);
1824 if g_Game_IsServer
and g_Game_IsNet
then
1825 MH_SEND_Sound(m
.Obj
.X
, m
.Obj
.Y
, 'SOUND_ITEM_GETITEM');
1829 // Íàçíà÷àåì âðåìÿ ñëåäóþùåãî âîçäåéñòâèÿ
1830 if TriggerType
= TRIGGER_DAMAGE
then
1831 i
:= Data
.DamageInterval
1833 i
:= Data
.HealInterval
;
1836 Activators
[k
].TimeOut
:= i
1838 Activators
[k
].TimeOut
:= 65535;
1846 if ShotSightTime
> 0 then
1849 // put this at the beginning so it doesn't trigger itself
1850 TimeOut
:= Data
.ShotWait
+ 1;
1852 wx
:= Data
.ShotPos
.X
;
1853 wy
:= Data
.ShotPos
.Y
;
1854 pAngle
:= -DegToRad(Data
.ShotAngle
);
1855 xd
:= wx
+ Round(Cos(pAngle
) * 32.0);
1856 yd
:= wy
+ Round(Sin(pAngle
) * 32.0);
1859 case Data
.ShotTarget
of
1860 TRIGGER_SHOT_TARGET_MON
: // monsters
1861 if gMonsters
<> nil then
1862 for i
:= Low(gMonsters
) to High(gMonsters
) do
1863 if (gMonsters
[i
] <> nil) and gMonsters
[i
].Live
and
1864 tr_ShotAimCheck(Trigger
, @(gMonsters
[i
].Obj
)) then
1866 xd
:= gMonsters
[i
].GameX
+ gMonsters
[i
].Obj
.Rect
.Width
div 2;
1867 yd
:= gMonsters
[i
].GameY
+ gMonsters
[i
].Obj
.Rect
.Height
div 2;
1868 TargetUID
:= gMonsters
[i
].UID
;
1872 TRIGGER_SHOT_TARGET_PLR
: // players
1873 if gPlayers
<> nil then
1874 for i
:= Low(gPlayers
) to High(gPlayers
) do
1875 if (gPlayers
[i
] <> nil) and gPlayers
[i
].Live
and
1876 tr_ShotAimCheck(Trigger
, @(gPlayers
[i
].Obj
)) then
1878 xd
:= gPlayers
[i
].GameX
+ PLAYER_RECT_CX
;
1879 yd
:= gPlayers
[i
].GameY
+ PLAYER_RECT_CY
;
1880 TargetUID
:= gPlayers
[i
].UID
;
1884 TRIGGER_SHOT_TARGET_RED
: // red team
1885 if gPlayers
<> nil then
1886 for i
:= Low(gPlayers
) to High(gPlayers
) do
1887 if (gPlayers
[i
] <> nil) and gPlayers
[i
].Live
and
1888 (gPlayers
[i
].Team
= TEAM_RED
) and
1889 tr_ShotAimCheck(Trigger
, @(gPlayers
[i
].Obj
)) then
1891 xd
:= gPlayers
[i
].GameX
+ PLAYER_RECT_CX
;
1892 yd
:= gPlayers
[i
].GameY
+ PLAYER_RECT_CY
;
1893 TargetUID
:= gPlayers
[i
].UID
;
1897 TRIGGER_SHOT_TARGET_BLUE
: // blue team
1898 if gPlayers
<> nil then
1899 for i
:= Low(gPlayers
) to High(gPlayers
) do
1900 if (gPlayers
[i
] <> nil) and gPlayers
[i
].Live
and
1901 (gPlayers
[i
].Team
= TEAM_BLUE
) and
1902 tr_ShotAimCheck(Trigger
, @(gPlayers
[i
].Obj
)) then
1904 xd
:= gPlayers
[i
].GameX
+ PLAYER_RECT_CX
;
1905 yd
:= gPlayers
[i
].GameY
+ PLAYER_RECT_CY
;
1906 TargetUID
:= gPlayers
[i
].UID
;
1910 TRIGGER_SHOT_TARGET_MONPLR
: // monsters then players
1912 if gMonsters
<> nil then
1913 for i
:= Low(gMonsters
) to High(gMonsters
) do
1914 if (gMonsters
[i
] <> nil) and gMonsters
[i
].Live
and
1915 tr_ShotAimCheck(Trigger
, @(gMonsters
[i
].Obj
)) then
1917 xd
:= gMonsters
[i
].GameX
+ gMonsters
[i
].Obj
.Rect
.Width
div 2;
1918 yd
:= gMonsters
[i
].GameY
+ gMonsters
[i
].Obj
.Rect
.Height
div 2;
1919 TargetUID
:= gMonsters
[i
].UID
;
1922 if (TargetUID
= 0) and (gPlayers
<> nil) then
1923 for i
:= Low(gPlayers
) to High(gPlayers
) do
1924 if (gPlayers
[i
] <> nil) and gPlayers
[i
].Live
and
1925 tr_ShotAimCheck(Trigger
, @(gPlayers
[i
].Obj
)) then
1927 xd
:= gPlayers
[i
].GameX
+ PLAYER_RECT_CX
;
1928 yd
:= gPlayers
[i
].GameY
+ PLAYER_RECT_CY
;
1929 TargetUID
:= gPlayers
[i
].UID
;
1934 TRIGGER_SHOT_TARGET_PLRMON
: // players then monsters
1936 if gPlayers
<> nil then
1937 for i
:= Low(gPlayers
) to High(gPlayers
) do
1938 if (gPlayers
[i
] <> nil) and gPlayers
[i
].Live
and
1939 tr_ShotAimCheck(Trigger
, @(gPlayers
[i
].Obj
)) then
1941 xd
:= gPlayers
[i
].GameX
+ PLAYER_RECT_CX
;
1942 yd
:= gPlayers
[i
].GameY
+ PLAYER_RECT_CY
;
1943 TargetUID
:= gPlayers
[i
].UID
;
1946 if (TargetUID
= 0) and (gMonsters
<> nil) then
1947 for i
:= Low(gMonsters
) to High(gMonsters
) do
1948 if (gMonsters
[i
] <> nil) and gMonsters
[i
].Live
and
1949 tr_ShotAimCheck(Trigger
, @(gMonsters
[i
].Obj
)) then
1951 xd
:= gMonsters
[i
].GameX
+ gMonsters
[i
].Obj
.Rect
.Width
div 2;
1952 yd
:= gMonsters
[i
].GameY
+ gMonsters
[i
].Obj
.Rect
.Height
div 2;
1953 TargetUID
:= gMonsters
[i
].UID
;
1959 if (Data
.ShotTarget
<> TRIGGER_SHOT_TARGET_NONE
) or
1960 (Data
.ShotType
<> TRIGGER_SHOT_REV
) then
1961 TargetUID
:= ActivateUID
;
1965 if (Data
.ShotTarget
= TRIGGER_SHOT_TARGET_NONE
) or (TargetUID
> 0) or
1966 ((Data
.ShotTarget
> TRIGGER_SHOT_TARGET_NONE
) and (TargetUID
= 0)) then
1969 if (Data
.ShotIntSight
= 0) or
1970 (Data
.ShotTarget
= TRIGGER_SHOT_TARGET_NONE
) or
1971 (TargetUID
= ShotSightTarget
) then
1972 MakeShot(Trigger
, wx
, wy
, xd
, yd
, TargetUID
)
1975 ShotSightTime
:= Data
.ShotIntSight
;
1976 ShotSightTargetN
:= TargetUID
;
1977 if Data
.ShotType
= TRIGGER_SHOT_BFG
then
1979 g_Sound_PlayExAt('SOUND_WEAPON_STARTFIREBFG', wx
, wy
);
1980 if g_Game_IsNet
and g_Game_IsServer
then
1981 MH_SEND_Sound(wx
, wy
, 'SOUND_WEAPON_STARTFIREBFG');
1994 TRIGGER_EFFECT_POS_CENTER
:
1996 wx
:= X
+ Width
div 2;
1997 wy
:= Y
+ Height
div 2;
1999 TRIGGER_EFFECT_POS_AREA
:
2001 wx
:= X
+ Random(Width
);
2002 wy
:= Y
+ Random(Height
);
2005 wx
:= X
+ Width
div 2;
2006 wy
:= Y
+ Height
div 2;
2011 if Data
.FXSpreadL
> 0 then xd
:= xd
- Random(Data
.FXSpreadL
+ 1);
2012 if Data
.FXSpreadR
> 0 then xd
:= xd
+ Random(Data
.FXSpreadR
+ 1);
2013 if Data
.FXSpreadU
> 0 then yd
:= yd
- Random(Data
.FXSpreadU
+ 1);
2014 if Data
.FXSpreadD
> 0 then yd
:= yd
+ Random(Data
.FXSpreadD
+ 1);
2015 tr_MakeEffect(wx
, wy
, xd
, yd
,
2016 Data
.FXType
, Data
.FXSubType
,
2017 Data
.FXColorR
, Data
.FXColorG
, Data
.FXColorB
, True, False);
2020 TimeOut
:= Data
.FXWait
;
2025 if Result
and (Trigger
.TexturePanel
<> -1) then
2026 g_Map_SwitchTexture(Trigger
.TexturePanelType
, Trigger
.TexturePanel
, IfThen(animonce
, 2, 1));
2029 function g_Triggers_Create(Trigger
: TTrigger
): DWORD
;
2034 // Íå ñîçäàâàòü âûõîä, åñëè èãðà áåç âûõîäà:
2035 if (Trigger
.TriggerType
= TRIGGER_EXIT
) and
2036 (not LongBool(gGameSettings
.Options
and GAME_OPTION_ALLOWEXIT
)) then
2037 Trigger
.TriggerType
:= TRIGGER_NONE
;
2039 // Åñëè ìîíñòðû çàïðåùåíû, îòìåíÿåì òðèããåð:
2040 if (Trigger
.TriggerType
= TRIGGER_SPAWNMONSTER
) and
2041 (not LongBool(gGameSettings
.Options
and GAME_OPTION_MONSTERS
)) and
2042 (gGameSettings
.GameType
<> GT_SINGLE
) then
2043 Trigger
.TriggerType
:= TRIGGER_NONE
;
2045 // Ñ÷èòàåì êîëè÷åñòâî ñåêðåòîâ íà êàðòå:
2046 if Trigger
.TriggerType
= TRIGGER_SECRET
then
2047 gSecretsCount
:= gSecretsCount
+ 1;
2049 find_id
:= FindTrigger();
2050 gTriggers
[find_id
] := Trigger
;
2052 with gTriggers
[find_id
] do
2055 // if this type of trigger exists both on the client and on the server
2056 // use an uniform numeration
2057 if Trigger
.TriggerType
= TRIGGER_SOUND
then
2059 Inc(gTriggerClientID
);
2060 ClientID
:= gTriggerClientID
;
2066 PlayerCollide
:= False;
2070 SoundPlayCount
:= 0;
2077 // Çàãðóæàåì çâóê, åñëè ýòî òðèããåð "Çâóê":
2078 if (Trigger
.TriggerType
= TRIGGER_SOUND
) and
2079 (Trigger
.Data
.SoundName
<> '') then
2081 // Åùå íåò òàêîãî çâóêà:
2082 if not g_Sound_Exists(Trigger
.Data
.SoundName
) then
2084 fn
:= g_ExtractWadName(Trigger
.Data
.SoundName
);
2087 begin // Çâóê â ôàéëå ñ êàðòîé
2088 mapw
:= g_ExtractWadName(gMapInfo
.Map
);
2089 fn
:= mapw
+':'+g_ExtractFilePathName(Trigger
.Data
.SoundName
);
2091 else // Çâóê â îòäåëüíîì ôàéëå
2092 fn
:= GameDir
+ '/wads/' + Trigger
.Data
.SoundName
;
2094 if not g_Sound_CreateWADEx(Trigger
.Data
.SoundName
, fn
) then
2095 g_FatalError(Format(_lc
[I_GAME_ERROR_TR_SOUND
], [fn
, Trigger
.Data
.SoundName
]));
2098 // Ñîçäàåì îáúåêò çâóêà:
2099 with gTriggers
[find_id
] do
2101 Sound
:= TPlayableSound
.Create();
2102 if not Sound
.SetByName(Trigger
.Data
.SoundName
) then
2110 // Çàãðóæàåì ìóçûêó, åñëè ýòî òðèããåð "Ìóçûêà":
2111 if (Trigger
.TriggerType
= TRIGGER_MUSIC
) and
2112 (Trigger
.Data
.MusicName
<> '') then
2114 // Åùå íåò òàêîé ìóçûêè:
2115 if not g_Sound_Exists(Trigger
.Data
.MusicName
) then
2117 fn
:= g_ExtractWadName(Trigger
.Data
.MusicName
);
2120 begin // Ìóçûêà â ôàéëå ñ êàðòîé
2121 mapw
:= g_ExtractWadName(gMapInfo
.Map
);
2122 fn
:= mapw
+':'+g_ExtractFilePathName(Trigger
.Data
.MusicName
);
2124 else // Ìóçûêà â ôàéëå ñ êàðòîé
2125 fn
:= GameDir
+'/wads/'+Trigger
.Data
.MusicName
;
2127 if not g_Sound_CreateWADEx(Trigger
.Data
.MusicName
, fn
, True) then
2128 g_FatalError(Format(_lc
[I_GAME_ERROR_TR_SOUND
], [fn
, Trigger
.Data
.MusicName
]));
2132 // Çàãðóæàåì äàííûå òðèããåðà "Òóðåëü":
2133 if Trigger
.TriggerType
= TRIGGER_SHOT
then
2134 with gTriggers
[find_id
] do
2138 ShotSightTimeout
:= 0;
2139 ShotSightTarget
:= 0;
2140 ShotSightTargetN
:= 0;
2141 ShotAmmoCount
:= Trigger
.Data
.ShotAmmo
;
2142 ShotReloadTime
:= 0;
2148 procedure g_Triggers_Update();
2151 Affected
: array of Integer;
2153 if gTriggers
= nil then
2155 SetLength(Affected
, 0);
2157 for a
:= 0 to High(gTriggers
) do
2158 with gTriggers
[a
] do
2160 if TriggerType
<> TRIGGER_NONE
then
2162 // Óìåíüøàåì âðåìÿ äî çàêðûòèÿ äâåðè (îòêðûòèÿ ëîâóøêè):
2163 if DoorTime
> 0 then
2164 DoorTime
:= DoorTime
- 1;
2165 // Óìåíüøàåì âðåìÿ îæèäàíèÿ ïîñëå íàæàòèÿ:
2166 if PressTime
> 0 then
2167 PressTime
:= PressTime
- 1;
2168 // Ïðîâåðÿåì èãðîêîâ è ìîíñòðîâ, êîòîðûõ ðàíåå çàïîìíèëè:
2169 if (TriggerType
= TRIGGER_DAMAGE
) or (TriggerType
= TRIGGER_HEALTH
) then
2170 for b
:= 0 to High(Activators
) do
2172 // Óìåíüøàåì âðåìÿ äî ïîâòîðíîãî âîçäåéñòâèÿ:
2173 if Activators
[b
].TimeOut
> 0 then
2174 Dec(Activators
[b
].TimeOut
)
2177 // Ñ÷èòàåì, ÷òî îáúåêò ïîêèíóë çîíó äåéñòâèÿ òðèããåðà
2178 if (Data
.DamageInterval
= 0) and (Activators
[b
].TimeOut
< 65530) then
2179 Activators
[b
].TimeOut
:= 0;
2182 // Îáðàáàòûâàåì ñïàâíåðû:
2183 if Enabled
and AutoSpawn
then
2184 if SpawnCooldown
= 0 then
2186 // Åñëè ïðèøëî âðåìÿ, ñïàâíèì ìîíñòðà:
2187 if (TriggerType
= TRIGGER_SPAWNMONSTER
) and (Data
.MonDelay
> 0) then
2190 ActivateTrigger(gTriggers
[a
], ACTIVATE_CUSTOM
);
2192 // Åñëè ïðèøëî âðåìÿ, ñïàâíèì ïðåäìåò:
2193 if (TriggerType
= TRIGGER_SPAWNITEM
) and (Data
.ItemDelay
> 0) then
2196 ActivateTrigger(gTriggers
[a
], ACTIVATE_CUSTOM
);
2198 end else // Óìåíüøàåì âðåìÿ îæèäàíèÿ:
2201 // Îáðàáàòûâàåì ñîáûòèÿ òðèããåðà "Òóðåëü":
2202 if TriggerType
= TRIGGER_SHOT
then
2204 if ShotPanelTime
> 0 then
2207 if ShotPanelTime
= 0 then
2208 g_Map_SwitchTexture(ShotPanelType
, Data
.ShotPanelID
);
2210 if ShotSightTime
> 0 then
2213 if ShotSightTime
= 0 then
2214 ShotSightTarget
:= ShotSightTargetN
;
2216 if ShotSightTimeout
> 0 then
2218 Dec(ShotSightTimeout
);
2219 if ShotSightTimeout
= 0 then
2220 ShotSightTarget
:= 0;
2222 if ShotReloadTime
> 0 then
2224 Dec(ShotReloadTime
);
2225 if ShotReloadTime
= 0 then
2226 ShotAmmoCount
:= Data
.ShotAmmo
;
2230 // Òðèããåð "Çâóê" óæå îòûãðàë, åñëè íóæíî åùå - ïåðåçàïóñêàåì:
2231 if Enabled
and (TriggerType
= TRIGGER_SOUND
) and (Sound
<> nil) then
2232 if (SoundPlayCount
> 0) and (not Sound
.IsPlaying()) then
2234 if Data
.PlayCount
> 0 then // Åñëè 0 - èãðàåì çâóê áåñêîíå÷íî
2235 SoundPlayCount
:= SoundPlayCount
- 1;
2237 Sound
.PlayVolumeAt(X
+(Width
div 2), Y
+(Height
div 2), Data
.Volume
/255.0)
2239 Sound
.PlayPanVolume((Data
.Pan
-127.0)/128.0, Data
.Volume
/255.0);
2240 if Sound
.IsPlaying() and g_Game_IsNet
and g_Game_IsServer
then
2241 MH_SEND_TriggerSound(gTriggers
[a
]);
2244 // Òðèããåð "Ëîâóøêà" - ïîðà îòêðûâàòü:
2245 if (TriggerType
= TRIGGER_TRAP
) and (DoorTime
= 0) and (Data
.PanelID
<> -1) then
2247 tr_OpenDoor(Data
.PanelID
, Data
.NoSound
, Data
.d2d_doors
);
2251 // Òðèããåð "Äâåðü 5 ñåê" - ïîðà çàêðûâàòü:
2252 if (TriggerType
= TRIGGER_DOOR5
) and (DoorTime
= 0) and (Data
.PanelID
<> -1) then
2255 if gWalls
[Data
.PanelID
].Enabled
then
2257 else // Ïîêà îòêðûòà - çàêðûâàåì
2258 if tr_CloseDoor(Data
.PanelID
, Data
.NoSound
, Data
.d2d_doors
) then
2262 // Òðèããåð - ðàñøèðèòåëü èëè ïåðåêëþ÷àòåëü, è ïðîøëà çàäåðæêà, è íàæàëè íóæíîå ÷èñëî ðàç:
2263 if (TriggerType
in [TRIGGER_PRESS
, TRIGGER_ON
, TRIGGER_OFF
, TRIGGER_ONOFF
]) and
2264 (PressTime
= 0) and (PressCount
>= Data
.Count
) then
2266 // Ñáðàñûâàåì çàäåðæêó àêòèâàöèè:
2268 // Ñáðàñûâàåì ñ÷åò÷èê íàæàòèé:
2269 if Data
.Count
> 0 then
2270 PressCount
:= PressCount
- Data
.Count
2274 // Îïðåäåëÿåì èçìåíÿåìûå èì òðèããåðû:
2275 for b
:= 0 to High(gTriggers
) do
2276 if g_Collide(Data
.tX
, Data
.tY
, Data
.tWidth
, Data
.tHeight
, gTriggers
[b
].X
, gTriggers
[b
].Y
,
2277 gTriggers
[b
].Width
, gTriggers
[b
].Height
) and
2278 ((b
<> a
) or (Data
.Wait
> 0)) then
2279 begin // Can be self-activated, if there is Data.Wait
2280 if (not Data
.ExtRandom
) or gTriggers
[b
].Enabled
then
2282 SetLength(Affected
, Length(Affected
) + 1);
2283 Affected
[High(Affected
)] := b
;
2286 // Âûáèðàåì îäèí èç òðèããåðîâ äëÿ ðàñøèðèòåëÿ, åñëè âêëþ÷åí ðàíäîì:
2287 if (TriggerType
= TRIGGER_PRESS
) and Data
.ExtRandom
then
2289 if (Length(Affected
) > 0) then
2291 b
:= Affected
[Random(Length(Affected
))];
2292 gTriggers
[b
].ActivateUID
:= gTriggers
[a
].ActivateUID
;
2293 ActivateTrigger(gTriggers
[b
], 0);
2296 else //  ïðîòèâíîì ñëó÷àå ðàáîòàåì êàê îáû÷íî:
2297 for i
:= 0 to High(Affected
) do
2303 gTriggers
[b
].ActivateUID
:= gTriggers
[a
].ActivateUID
;
2304 ActivateTrigger(gTriggers
[b
], 0);
2308 gTriggers
[b
].Enabled
:= True;
2312 gTriggers
[b
].Enabled
:= False;
2313 gTriggers
[b
].TimeOut
:= 0;
2314 if gTriggers
[b
].AutoSpawn
then
2316 gTriggers
[b
].AutoSpawn
:= False;
2317 gTriggers
[b
].SpawnCooldown
:= 0;
2322 gTriggers
[b
].Enabled
:= not gTriggers
[b
].Enabled
;
2323 if not gTriggers
[b
].Enabled
then
2325 gTriggers
[b
].TimeOut
:= 0;
2326 if gTriggers
[b
].AutoSpawn
then
2328 gTriggers
[b
].AutoSpawn
:= False;
2329 gTriggers
[b
].SpawnCooldown
:= 0;
2335 SetLength(Affected
, 0);
2338 // Óìåíüøàåì âðåìÿ äî âîçìîæíîñòè ïîâòîðíîé àêòèâàöèè:
2341 TimeOut
:= TimeOut
- 1;
2342 Continue
; // ×òîáû íå ïîòåðÿòü 1 åäèíèöó çàäåðæêè
2345 // Íèæå èäóò òèïû àêòèâàöèè, åñëè òðèããåð îòêëþ÷¸í - èä¸ì äàëüøå
2350 if ByteBool(ActivateType
and ACTIVATE_PLAYERCOLLIDE
) and
2352 if gPlayers
<> nil then
2353 for b
:= 0 to High(gPlayers
) do
2354 if gPlayers
[b
] <> nil then
2356 // Æèâ, åñòü íóæíûå êëþ÷è è îí ðÿäîì:
2357 if Live
and ((gTriggers
[a
].Keys
and GetKeys
) = gTriggers
[a
].Keys
) and
2358 Collide(X
, Y
, Width
, Height
) then
2360 gTriggers
[a
].ActivateUID
:= UID
;
2362 if (gTriggers
[a
].TriggerType
in [TRIGGER_SOUND
, TRIGGER_MUSIC
]) and
2364 { Don't activate sound/music again if player is here }
2366 ActivateTrigger(gTriggers
[a
], ACTIVATE_PLAYERCOLLIDE
);
2369 { TODO 5 : àêòèâàöèÿ ìîíñòðàìè òðèããåðîâ ñ êëþ÷àìè }
2371 if ByteBool(ActivateType
and ACTIVATE_MONSTERCOLLIDE
) and
2372 ByteBool(ActivateType
and ACTIVATE_NOMONSTER
) and
2373 (TimeOut
= 0) and (Keys
= 0) then
2375 // Åñëè "Ìîíñòð áëèçêî" è "Ìîíñòðîâ íåò",
2376 // çàïóñêàåì òðèããåð íà ñòàðòå êàðòû è ñíèìàåì îáà ôëàãà
2377 ActivateType
:= ActivateType
and not (ACTIVATE_MONSTERCOLLIDE
or ACTIVATE_NOMONSTER
);
2378 gTriggers
[a
].ActivateUID
:= 0;
2379 ActivateTrigger(gTriggers
[a
], 0);
2383 if ByteBool(ActivateType
and ACTIVATE_MONSTERCOLLIDE
) and
2384 (TimeOut
= 0) and (Keys
= 0) then // Åñëè íå íóæíû êëþ÷è
2385 if gMonsters
<> nil then
2386 for b
:= 0 to High(gMonsters
) do
2387 if (gMonsters
[b
] <> nil) then
2388 with gMonsters
[b
] do
2389 if Collide(X
, Y
, Width
, Height
) then
2391 gTriggers
[a
].ActivateUID
:= UID
;
2392 ActivateTrigger(gTriggers
[a
], ACTIVATE_MONSTERCOLLIDE
);
2396 if ByteBool(ActivateType
and ACTIVATE_NOMONSTER
) and
2397 (TimeOut
= 0) and (Keys
= 0) then
2398 if not g_CollideMonster(X
, Y
, Width
, Height
) then
2400 gTriggers
[a
].ActivateUID
:= 0;
2401 ActivateTrigger(gTriggers
[a
], ACTIVATE_NOMONSTER
);
2405 PlayerCollide
:= g_CollidePlayer(X
, Y
, Width
, Height
);
2409 procedure g_Triggers_Press(ID
: DWORD
; ActivateType
: Byte; ActivateUID
: Word = 0);
2411 gTriggers
[ID
].ActivateUID
:= ActivateUID
;
2412 ActivateTrigger(gTriggers
[ID
], ActivateType
);
2415 function g_Triggers_PressR(X
, Y
: Integer; Width
, Height
: Word; UID
: Word;
2416 ActivateType
: Byte; IgnoreList
: DWArray
= nil): DWArray
;
2424 if gTriggers
= nil then Exit
;
2426 case g_GetUIDType(UID
) of
2430 p
:= g_Player_Get(UID
);
2439 for a
:= 0 to High(gTriggers
) do
2440 if (gTriggers
[a
].TriggerType
<> TRIGGER_NONE
) and
2441 (gTriggers
[a
].TimeOut
= 0) and
2442 (not InDWArray(a
, IgnoreList
)) and
2443 ((gTriggers
[a
].Keys
and k
) = gTriggers
[a
].Keys
) and
2444 ByteBool(gTriggers
[a
].ActivateType
and ActivateType
) then
2445 if g_Collide(X
, Y
, Width
, Height
,
2446 gTriggers
[a
].X
, gTriggers
[a
].Y
,
2447 gTriggers
[a
].Width
, gTriggers
[a
].Height
) then
2449 gTriggers
[a
].ActivateUID
:= UID
;
2450 if ActivateTrigger(gTriggers
[a
], ActivateType
) then
2452 SetLength(Result
, Length(Result
)+1);
2453 Result
[High(Result
)] := a
;
2458 procedure g_Triggers_PressL(X1
, Y1
, X2
, Y2
: Integer; UID
: DWORD
; ActivateType
: Byte);
2464 if gTriggers
= nil then Exit
;
2466 case g_GetUIDType(UID
) of
2470 p
:= g_Player_Get(UID
);
2479 for a
:= 0 to High(gTriggers
) do
2480 if (gTriggers
[a
].TriggerType
<> TRIGGER_NONE
) and
2481 (gTriggers
[a
].TimeOut
= 0) and
2482 ((gTriggers
[a
].Keys
and k
) = gTriggers
[a
].Keys
) and
2483 ByteBool(gTriggers
[a
].ActivateType
and ActivateType
) then
2484 if g_CollideLine(x1
, y1
, x2
, y2
, gTriggers
[a
].X
, gTriggers
[a
].Y
,
2485 gTriggers
[a
].Width
, gTriggers
[a
].Height
) then
2487 gTriggers
[a
].ActivateUID
:= UID
;
2488 ActivateTrigger(gTriggers
[a
], ActivateType
);
2492 procedure g_Triggers_PressC(CX
, CY
: Integer; Radius
: Word; UID
: Word; ActivateType
: Byte; IgnoreTrigger
: Integer = -1);
2499 if gTriggers
= nil then
2502 case g_GetUIDType(UID
) of
2506 p
:= g_Player_Get(UID
);
2515 rsq
:= Radius
* Radius
;
2517 for a
:= 0 to High(gTriggers
) do
2518 if (gTriggers
[a
].ID
<> DWORD(IgnoreTrigger
)) and
2519 (gTriggers
[a
].TriggerType
<> TRIGGER_NONE
) and
2520 (gTriggers
[a
].TimeOut
= 0) and
2521 ((gTriggers
[a
].Keys
and k
) = gTriggers
[a
].Keys
) and
2522 ByteBool(gTriggers
[a
].ActivateType
and ActivateType
) then
2523 with gTriggers
[a
] do
2524 if g_Collide(CX
-Radius
, CY
-Radius
, 2*Radius
, 2*Radius
,
2525 X
, Y
, Width
, Height
) then
2526 if ((Sqr(CX
-X
)+Sqr(CY
-Y
)) < rsq
) or // Öåíòð êðóãà áëèçîê ê âåðõíåìó ëåâîìó óãëó
2527 ((Sqr(CX
-X
-Width
)+Sqr(CY
-Y
)) < rsq
) or // Öåíòð êðóãà áëèçîê ê âåðõíåìó ïðàâîìó óãëó
2528 ((Sqr(CX
-X
-Width
)+Sqr(CY
-Y
-Height
)) < rsq
) or // Öåíòð êðóãà áëèçîê ê íèæíåìó ïðàâîìó óãëó
2529 ((Sqr(CX
-X
)+Sqr(CY
-Y
-Height
)) < rsq
) or // Öåíòð êðóãà áëèçîê ê íèæíåìó ëåâîìó óãëó
2530 ( (CX
> (X
-Radius
)) and (CX
< (X
+Width
+Radius
)) and
2531 (CY
> Y
) and (CY
< (Y
+Height
)) ) or // Öåíòð êðóãà íåäàëåêî îò âåðòèêàëüíûõ ãðàíèö ïðÿìîóãîëüíèêà
2532 ( (CY
> (Y
-Radius
)) and (CY
< (Y
+Height
+Radius
)) and
2533 (CX
> X
) and (CX
< (X
+Width
)) ) then // Öåíòð êðóãà íåäàëåêî îò ãîðèçîíòàëüíûõ ãðàíèö ïðÿìîóãîëüíèêà
2536 ActivateTrigger(gTriggers
[a
], ActivateType
);
2540 procedure g_Triggers_OpenAll();
2545 if gTriggers
= nil then Exit
;
2548 for a
:= 0 to High(gTriggers
) do
2549 with gTriggers
[a
] do
2550 if (TriggerType
= TRIGGER_OPENDOOR
) or
2551 (TriggerType
= TRIGGER_DOOR5
) or
2552 (TriggerType
= TRIGGER_DOOR
) then
2554 tr_OpenDoor(Data
.PanelID
, True, Data
.d2d_doors
);
2555 if TriggerType
= TRIGGER_DOOR5
then DoorTime
:= 180;
2559 if b
then g_Sound_PlayEx('SOUND_GAME_DOOROPEN');
2562 procedure g_Triggers_DecreaseSpawner(ID
: DWORD
);
2564 if (gTriggers
<> nil) then
2565 if gTriggers
[ID
].SpawnedCount
> 0 then
2566 Dec(gTriggers
[ID
].SpawnedCount
);
2569 procedure g_Triggers_Free();
2573 if gTriggers
<> nil then
2574 for a
:= 0 to High(gTriggers
) do
2576 if gTriggers
[a
].TriggerType
= TRIGGER_SOUND
then
2578 if g_Sound_Exists(gTriggers
[a
].Data
.SoundName
) then
2579 g_Sound_Delete(gTriggers
[a
].Data
.SoundName
);
2581 gTriggers
[a
].Sound
.Free();
2583 if gTriggers
[a
].Activators
<> nil then
2584 SetLength(gTriggers
[a
].Activators
, 0);
2589 SetLength(gMonstersSpawned
, 0);
2592 procedure g_Triggers_SaveState(var Mem
: TBinMemoryWriter
);
2594 count
, act_count
, i
, j
: Integer;
2600 // Ñ÷èòàåì êîëè÷åñòâî ñóùåñòâóþùèõ òðèããåðîâ:
2602 if gTriggers
<> nil then
2603 for i
:= 0 to High(gTriggers
) do
2606 Mem
:= TBinMemoryWriter
.Create((count
+1) * 200);
2608 // Êîëè÷åñòâî òðèããåðîâ:
2609 Mem
.WriteInt(count
);
2614 for i
:= 0 to High(gTriggers
) do
2616 // Ñèãíàòóðà òðèããåðà:
2617 dw
:= TRIGGER_SIGNATURE
; // 'TRGR'
2620 Mem
.WriteByte(gTriggers
[i
].TriggerType
);
2621 // Ñïåöèàëüíûå äàííûå òðèããåðà:
2622 p
:= @gTriggers
[i
].Data
;
2623 Mem
.WriteMemory(p
, SizeOf(TTriggerData
));
2624 // Êîîðäèíàòû ëåâîãî âåðõíåãî óãëà:
2625 Mem
.WriteInt(gTriggers
[i
].X
);
2626 Mem
.WriteInt(gTriggers
[i
].Y
);
2628 Mem
.WriteWord(gTriggers
[i
].Width
);
2629 Mem
.WriteWord(gTriggers
[i
].Height
);
2630 // Âêëþ÷åí ëè òðèããåð:
2631 Mem
.WriteBoolean(gTriggers
[i
].Enabled
);
2632 // Òèï àêòèâàöèè òðèããåðà:
2633 Mem
.WriteByte(gTriggers
[i
].ActivateType
);
2634 // Êëþ÷è, íåîáõîäèìûå äëÿ àêòèâàöèè:
2635 Mem
.WriteByte(gTriggers
[i
].Keys
);
2636 // ID ïàíåëè, òåêñòóðà êîòîðîé èçìåíèòñÿ:
2637 Mem
.WriteInt(gTriggers
[i
].TexturePanel
);
2639 Mem
.WriteWord(gTriggers
[i
].TexturePanelType
);
2640 // Âðåìÿ äî âîçìîæíîñòè àêòèâàöèè:
2641 Mem
.WriteWord(gTriggers
[i
].TimeOut
);
2642 // UID òîãî, êòî àêòèâèðîâàë ýòîò òðèããåð:
2643 Mem
.WriteWord(gTriggers
[i
].ActivateUID
);
2644 // Ñïèñîê UID-îâ îáúåêòîâ, êîòîðûå íàõîäèëèñü ïîä âîçäåéñòâèåì:
2645 act_count
:= Length(gTriggers
[i
].Activators
);
2646 Mem
.WriteInt(act_count
);
2647 for j
:= 0 to act_count
-1 do
2650 Mem
.WriteWord(gTriggers
[i
].Activators
[j
].UID
);
2652 Mem
.WriteWord(gTriggers
[i
].Activators
[j
].TimeOut
);
2654 // Ñòîèò ëè èãðîê â îáëàñòè òðèããåðà:
2655 Mem
.WriteBoolean(gTriggers
[i
].PlayerCollide
);
2656 // Âðåìÿ äî çàêðûòèÿ äâåðè:
2657 Mem
.WriteInt(gTriggers
[i
].DoorTime
);
2658 // Çàäåðæêà àêòèâàöèè:
2659 Mem
.WriteInt(gTriggers
[i
].PressTime
);
2661 Mem
.WriteInt(gTriggers
[i
].PressCount
);
2663 Mem
.WriteBoolean(gTriggers
[i
].AutoSpawn
);
2664 // Çàäåðæêà ñïàâíåðà:
2665 Mem
.WriteInt(gTriggers
[i
].SpawnCooldown
);
2666 // Ñ÷åò÷èê ñîçäàíèÿ îáúåêòîâ:
2667 Mem
.WriteInt(gTriggers
[i
].SpawnedCount
);
2668 // Ñêîëüêî ðàç ïðîèãðàí çâóê:
2669 Mem
.WriteInt(gTriggers
[i
].SoundPlayCount
);
2670 // Ïðîèãðûâàåòñÿ ëè çâóê?
2671 if gTriggers
[i
].Sound
<> nil then
2672 b
:= gTriggers
[i
].Sound
.IsPlaying()
2675 Mem
.WriteBoolean(b
);
2678 // Ïîçèöèÿ ïðîèãðûâàíèÿ çâóêà:
2679 dw
:= gTriggers
[i
].Sound
.GetPosition();
2682 sg
:= gTriggers
[i
].Sound
.GetVolume();
2683 sg
:= sg
/ (gSoundLevel
/255.0);
2684 Mem
.WriteSingle(sg
);
2685 // Ñòåðåî ñìåùåíèå çâóêà:
2686 sg
:= gTriggers
[i
].Sound
.GetPan();
2687 Mem
.WriteSingle(sg
);
2692 procedure g_Triggers_LoadState(var Mem
: TBinMemoryReader
);
2694 count
, act_count
, i
, j
, a
: Integer;
2706 // Êîëè÷åñòâî òðèããåðîâ:
2712 for a
:= 0 to count
-1 do
2714 // Ñèãíàòóðà òðèããåðà:
2716 if dw
<> TRIGGER_SIGNATURE
then // 'TRGR'
2718 raise EBinSizeError
.Create('g_Triggers_LoadState: Wrong Trigger Signature');
2721 Mem
.ReadByte(Trig
.TriggerType
);
2722 // Ñïåöèàëüíûå äàííûå òðèããåðà:
2723 Mem
.ReadMemory(p
, dw
);
2724 if dw
<> SizeOf(TTriggerData
) then
2726 raise EBinSizeError
.Create('g_Triggers_LoadState: Wrong TriggerData Size');
2728 Trig
.Data
:= TTriggerData(p
^);
2730 i
:= g_Triggers_Create(Trig
);
2731 // Êîîðäèíàòû ëåâîãî âåðõíåãî óãëà:
2732 Mem
.ReadInt(gTriggers
[i
].X
);
2733 Mem
.ReadInt(gTriggers
[i
].Y
);
2735 Mem
.ReadWord(gTriggers
[i
].Width
);
2736 Mem
.ReadWord(gTriggers
[i
].Height
);
2737 // Âêëþ÷åí ëè òðèããåð:
2738 Mem
.ReadBoolean(gTriggers
[i
].Enabled
);
2739 // Òèï àêòèâàöèè òðèããåðà:
2740 Mem
.ReadByte(gTriggers
[i
].ActivateType
);
2741 // Êëþ÷è, íåîáõîäèìûå äëÿ àêòèâàöèè:
2742 Mem
.ReadByte(gTriggers
[i
].Keys
);
2743 // ID ïàíåëè, òåêñòóðà êîòîðîé èçìåíèòñÿ:
2744 Mem
.ReadInt(gTriggers
[i
].TexturePanel
);
2746 Mem
.ReadWord(gTriggers
[i
].TexturePanelType
);
2747 // Âðåìÿ äî âîçìîæíîñòè àêòèâàöèè:
2748 Mem
.ReadWord(gTriggers
[i
].TimeOut
);
2749 // UID òîãî, êòî àêòèâèðîâàë ýòîò òðèããåð:
2750 Mem
.ReadWord(gTriggers
[i
].ActivateUID
);
2751 // Ñïèñîê UID-îâ îáúåêòîâ, êîòîðûå íàõîäèëèñü ïîä âîçäåéñòâèåì:
2752 Mem
.ReadInt(act_count
);
2753 if act_count
> 0 then
2755 SetLength(gTriggers
[i
].Activators
, act_count
);
2756 for j
:= 0 to act_count
-1 do
2759 Mem
.ReadWord(gTriggers
[i
].Activators
[j
].UID
);
2761 Mem
.ReadWord(gTriggers
[i
].Activators
[j
].TimeOut
);
2764 // Ñòîèò ëè èãðîê â îáëàñòè òðèããåðà:
2765 Mem
.ReadBoolean(gTriggers
[i
].PlayerCollide
);
2766 // Âðåìÿ äî çàêðûòèÿ äâåðè:
2767 Mem
.ReadInt(gTriggers
[i
].DoorTime
);
2768 // Çàäåðæêà àêòèâàöèè:
2769 Mem
.ReadInt(gTriggers
[i
].PressTime
);
2771 Mem
.ReadInt(gTriggers
[i
].PressCount
);
2773 Mem
.ReadBoolean(gTriggers
[i
].AutoSpawn
);
2774 // Çàäåðæêà ñïàâíåðà:
2775 Mem
.ReadInt(gTriggers
[i
].SpawnCooldown
);
2776 // Ñ÷åò÷èê ñîçäàíèÿ îáúåêòîâ:
2777 Mem
.ReadInt(gTriggers
[i
].SpawnedCount
);
2778 // Ñêîëüêî ðàç ïðîèãðàí çâóê:
2779 Mem
.ReadInt(gTriggers
[i
].SoundPlayCount
);
2780 // Ïðîèãðûâàåòñÿ ëè çâóê?
2784 // Ïîçèöèÿ ïðîèãðûâàíèÿ çâóêà:
2787 Mem
.ReadSingle(vol
);
2788 // Ñòåðåî ñìåùåíèå çâóêà:
2789 Mem
.ReadSingle(pan
);
2790 // Çàïóñêàåì çâóê, åñëè åñòü:
2791 if gTriggers
[i
].Sound
<> nil then
2793 gTriggers
[i
].Sound
.PlayPanVolume(pan
, vol
);
2794 gTriggers
[i
].Sound
.Pause(True);
2795 gTriggers
[i
].Sound
.SetPosition(dw
);