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/>.
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);
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);
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
);
80 gTriggerClientID
: Integer = 0;
81 gTriggers
: array of TTrigger
;
82 gSecretsCount
: Integer = 0;
83 gMonstersSpawned
: array of LongInt = nil;
88 g_player
, g_map
, Math
, g_gfx
, g_game
, g_textures
,
89 g_console
, g_monsters
, g_items
, g_phys
, g_weapons
,
90 wadreader
, g_main
, SysUtils
, e_log
, g_language
,
91 g_options
, g_net
, g_netmsg
, g_scripts
;
94 TRIGGER_SIGNATURE
= $52475254; // 'TRGR'
97 function FindTrigger(): DWORD
;
101 if gTriggers
<> nil then
102 for i
:= 0 to High(gTriggers
) do
103 if gTriggers
[i
].TriggerType
= TRIGGER_NONE
then
109 if gTriggers
= nil then
111 SetLength(gTriggers
, 8);
116 Result
:= High(gTriggers
) + 1;
117 SetLength(gTriggers
, Length(gTriggers
) + 8);
121 function CloseDoor(PanelID
: Integer; NoSound
: Boolean; d2d
: Boolean): Boolean;
127 if PanelID
= -1 then Exit
;
131 with gWalls
[PanelID
] do
133 if g_CollidePlayer(X
, Y
, Width
, Height
) or
134 g_CollideMonster(X
, Y
, Width
, Height
) then Exit
;
140 g_Sound_PlayExAt('SOUND_GAME_DOORCLOSE', X
, Y
);
141 if g_Game_IsServer
and g_Game_IsNet
then
142 MH_SEND_Sound(X
, Y
, 'SOUND_GAME_DOORCLOSE');
144 g_Map_EnableWall(PanelID
);
151 if gDoorMap
= nil then Exit
;
154 for a
:= 0 to High(gDoorMap
) do
156 for b
:= 0 to High(gDoorMap
[a
]) do
157 if gDoorMap
[a
, b
] = DWORD(PanelID
) then
163 if c
<> -1 then Break
;
167 for b
:= 0 to High(gDoorMap
[c
]) do
168 with gWalls
[gDoorMap
[c
, b
]] do
170 if g_CollidePlayer(X
, Y
, Width
, Height
) or
171 g_CollideMonster(X
, Y
, Width
, Height
) then Exit
;
175 for b
:= 0 to High(gDoorMap
[c
]) do
176 if not gWalls
[gDoorMap
[c
, b
]].Enabled
then
178 with gWalls
[PanelID
] do
180 g_Sound_PlayExAt('SOUND_GAME_DOORCLOSE', X
, Y
);
181 if g_Game_IsServer
and g_Game_IsNet
then
182 MH_SEND_Sound(X
, Y
, 'SOUND_GAME_DOORCLOSE');
187 for b
:= 0 to High(gDoorMap
[c
]) do
188 if not gWalls
[gDoorMap
[c
, b
]].Enabled
then
190 g_Map_EnableWall(gDoorMap
[c
, b
]);
196 procedure CloseTrap(PanelID
: Integer; NoSound
: Boolean; d2d
: Boolean);
200 if PanelID
= -1 then Exit
;
204 with gWalls
[PanelID
] do
205 if (not NoSound
) and (not Enabled
) then
207 g_Sound_PlayExAt('SOUND_GAME_SWITCH1', X
, Y
);
208 if g_Game_IsServer
and g_Game_IsNet
then
209 MH_SEND_Sound(X
, Y
, 'SOUND_GAME_SWITCH1');
212 with gWalls
[PanelID
] do
214 if gPlayers
<> nil then
215 for a
:= 0 to High(gPlayers
) do
216 if (gPlayers
[a
] <> nil) and gPlayers
[a
].Live
and
217 gPlayers
[a
].Collide(X
, Y
, Width
, Height
) then
218 gPlayers
[a
].Damage(TRAP_DAMAGE
, 0, 0, 0, HIT_TRAP
);
220 if gMonsters
<> nil then
221 for a
:= 0 to High(gMonsters
) do
222 if (gMonsters
[a
] <> nil) and gMonsters
[a
].Live
and
223 g_Obj_Collide(X
, Y
, Width
, Height
, @gMonsters
[a
].Obj
) then
224 gMonsters
[a
].Damage(TRAP_DAMAGE
, 0, 0, 0, HIT_TRAP
);
226 if not Enabled
then g_Map_EnableWall(PanelID
);
231 if gDoorMap
= nil then Exit
;
234 for a
:= 0 to High(gDoorMap
) do
236 for b
:= 0 to High(gDoorMap
[a
]) do
237 if gDoorMap
[a
, b
] = DWORD(PanelID
) then
243 if c
<> -1 then Break
;
248 for b
:= 0 to High(gDoorMap
[c
]) do
249 if not gWalls
[gDoorMap
[c
, b
]].Enabled
then
251 with gWalls
[PanelID
] do
253 g_Sound_PlayExAt('SOUND_GAME_SWITCH1', X
, Y
);
254 if g_Game_IsServer
and g_Game_IsNet
then
255 MH_SEND_Sound(X
, Y
, 'SOUND_GAME_SWITCH1');
260 for b
:= 0 to High(gDoorMap
[c
]) do
261 with gWalls
[gDoorMap
[c
, b
]] do
263 if gPlayers
<> nil then
264 for a
:= 0 to High(gPlayers
) do
265 if (gPlayers
[a
] <> nil) and gPlayers
[a
].Live
and
266 gPlayers
[a
].Collide(X
, Y
, Width
, Height
) then
267 gPlayers
[a
].Damage(TRAP_DAMAGE
, 0, 0, 0, HIT_TRAP
);
269 if gMonsters
<> nil then
270 for a
:= 0 to High(gMonsters
) do
271 if (gMonsters
[a
] <> nil) and gMonsters
[a
].Live
and
272 g_Obj_Collide(X
, Y
, Width
, Height
, @gMonsters
[a
].Obj
) then
273 gMonsters
[a
].Damage(TRAP_DAMAGE
, 0, 0, 0, HIT_TRAP
);
275 if not Enabled
then g_Map_EnableWall(gDoorMap
[c
, b
]);
280 function OpenDoor(PanelID
: Integer; NoSound
: Boolean; d2d
: Boolean): Boolean;
286 if PanelID
= -1 then Exit
;
290 with gWalls
[PanelID
] do
295 g_Sound_PlayExAt('SOUND_GAME_DOOROPEN', X
, Y
);
296 if g_Game_IsServer
and g_Game_IsNet
then
297 MH_SEND_Sound(X
, Y
, 'SOUND_GAME_DOOROPEN');
299 g_Map_DisableWall(PanelID
);
305 if gDoorMap
= nil then Exit
;
308 for a
:= 0 to High(gDoorMap
) do
310 for b
:= 0 to High(gDoorMap
[a
]) do
311 if gDoorMap
[a
, b
] = DWORD(PanelID
) then
317 if c
<> -1 then Break
;
322 for b
:= 0 to High(gDoorMap
[c
]) do
323 if gWalls
[gDoorMap
[c
, b
]].Enabled
then
325 with gWalls
[PanelID
] do
327 g_Sound_PlayExAt('SOUND_GAME_DOOROPEN', X
, Y
);
328 if g_Game_IsServer
and g_Game_IsNet
then
329 MH_SEND_Sound(X
, Y
, 'SOUND_GAME_DOOROPEN');
334 for b
:= 0 to High(gDoorMap
[c
]) do
335 if gWalls
[gDoorMap
[c
, b
]].Enabled
then
337 g_Map_DisableWall(gDoorMap
[c
, b
]);
343 function SetLift(PanelID
: Integer; d
: Integer; NoSound
: Boolean; d2d
: Boolean): Boolean;
350 if PanelID
= -1 then Exit
;
352 if (gLifts
[PanelID
].PanelType
= PANEL_LIFTUP
) or
353 (gLifts
[PanelID
].PanelType
= PANEL_LIFTDOWN
) then
357 else t
:= IfThen(gLifts
[PanelID
].LiftType
= 1, 0, 1);
359 else if (gLifts
[PanelID
].PanelType
= PANEL_LIFTLEFT
) or
360 (gLifts
[PanelID
].PanelType
= PANEL_LIFTRIGHT
) then
364 else t
:= IfThen(gLifts
[PanelID
].LiftType
= 2, 3, 2);
369 with gLifts
[PanelID
] do
370 if LiftType
<> t
then
372 g_Map_SetLift(PanelID
, t
);
375 g_Sound_PlayExAt('SOUND_GAME_SWITCH0', X, Y);}
381 if gLiftMap
= nil then Exit
;
384 for a
:= 0 to High(gLiftMap
) do
386 for b
:= 0 to High(gLiftMap
[a
]) do
387 if gLiftMap
[a
, b
] = DWORD(PanelID
) then
393 if c
<> -1 then Break
;
398 for b := 0 to High(gLiftMap[c]) do
399 if gLifts[gLiftMap[c, b]].LiftType <> t then
401 with gLifts[PanelID] do
402 g_Sound_PlayExAt('SOUND_GAME_SWITCH0', X, Y);
406 for b
:= 0 to High(gLiftMap
[c
]) do
407 with gLifts
[gLiftMap
[c
, b
]] do
408 if LiftType
<> t
then
410 g_Map_SetLift(gLiftMap
[c
, b
], t
);
417 procedure MakeShot(var Trigger
: TTrigger
; wx
, wy
, dx
, dy
: Integer; TargetUID
: Word);
425 if (Data
.ShotAmmo
= 0) or
426 ((Data
.ShotAmmo
> 0) and (ShotAmmoCount
> 0)) then
428 if (Data
.ShotPanelID
<> -1) and (ShotPanelTime
= 0) then
430 g_Map_SwitchTexture(ShotPanelType
, Data
.ShotPanelID
);
431 ShotPanelTime
:= 4; // òèêîâ íà âñïûøêó âûñòðåëà
434 if Data
.ShotIntSight
> 0 then
435 ShotSightTimeout
:= 180; // ~= 5 ñåêóíä
437 if ShotAmmoCount
> 0 then Dec(ShotAmmoCount
);
439 snd
:= 'SOUND_WEAPON_FIREROCKET';
441 dx
:= dx
+ Random(Data
.ShotAccuracy
) - Random(Data
.ShotAccuracy
);
442 dy
:= dy
+ Random(Data
.ShotAccuracy
) - Random(Data
.ShotAccuracy
);
444 case Data
.ShotType
of
447 g_Weapon_pistol(wx
, wy
, dx
, dy
, 0, True);
449 snd
:= 'SOUND_WEAPON_FIREPISTOL';
450 if Data
.ShotSound
then
452 g_Player_CreateShell(wx
, wy
, 0, -2, SHELL_BULLET
);
454 MH_SEND_Effect(wx
, wy
, 0, NET_GFX_SHELL1
);
460 g_Weapon_mgun(wx
, wy
, dx
, dy
, 0, True);
462 if gSoundEffectsDF
then snd
:= 'SOUND_WEAPON_FIRECGUN'
463 else snd
:= 'SOUND_WEAPON_FIREPISTOL';
464 if Data
.ShotSound
then
466 g_Player_CreateShell(wx
, wy
, 0, -2, SHELL_BULLET
);
468 MH_SEND_Effect(wx
, wy
, 0, NET_GFX_SHELL1
);
472 TRIGGER_SHOT_SHOTGUN
:
474 g_Weapon_Shotgun(wx
, wy
, dx
, dy
, 0, True);
476 snd
:= 'SOUND_WEAPON_FIRESHOTGUN';
477 if Data
.ShotSound
then
479 g_Player_CreateShell(wx
, wy
, 0, -2, SHELL_SHELL
);
481 MH_SEND_Effect(wx
, wy
, 0, NET_GFX_SHELL2
);
487 g_Weapon_DShotgun(wx
, wy
, dx
, dy
, 0, True);
489 snd
:= 'SOUND_WEAPON_FIRESHOTGUN2';
490 if Data
.ShotSound
then
492 g_Player_CreateShell(wx
, wy
, 0, -2, SHELL_SHELL
);
493 g_Player_CreateShell(wx
, wy
, 0, -2, SHELL_SHELL
);
495 MH_SEND_Effect(wx
, wy
, 0, NET_GFX_SHELL3
);
501 g_Weapon_ball1(wx
, wy
, dx
, dy
, 0, -1, True);
502 snd
:= 'SOUND_WEAPON_FIREBALL';
507 g_Weapon_Plasma(wx
, wy
, dx
, dy
, 0, -1, True);
508 snd
:= 'SOUND_WEAPON_FIREPLASMA';
513 g_Weapon_aplasma(wx
, wy
, dx
, dy
, 0, -1, True);
514 snd
:= 'SOUND_WEAPON_FIREPLASMA';
519 g_Weapon_ball2(wx
, wy
, dx
, dy
, 0, -1, True);
520 snd
:= 'SOUND_WEAPON_FIREBALL';
525 g_Weapon_ball7(wx
, wy
, dx
, dy
, 0, -1, True);
526 snd
:= 'SOUND_WEAPON_FIREBALL';
531 g_Weapon_manfire(wx
, wy
, dx
, dy
, 0, -1, True);
532 snd
:= 'SOUND_WEAPON_FIREBALL';
537 g_Weapon_revf(wx
, wy
, dx
, dy
, 0, TargetUID
, -1, True);
538 snd
:= 'SOUND_WEAPON_FIREREV';
543 g_Weapon_Rocket(wx
, wy
, dx
, dy
, 0, -1, True);
544 snd
:= 'SOUND_WEAPON_FIREROCKET';
549 g_Weapon_BFGShot(wx
, wy
, dx
, dy
, 0, -1, True);
550 snd
:= 'SOUND_WEAPON_FIREBFG';
555 if g_Frames_Get(TextureID
, 'FRAMES_EXPLODE_ROCKET') then
557 Anim
:= TAnimation
.Create(TextureID
, False, 6);
558 Anim
.Blending
:= False;
559 g_GFX_OnceAnim(wx
-64, wy
-64, Anim
);
563 g_Weapon_Explode(wx
, wy
, 60, 0);
564 snd
:= 'SOUND_WEAPON_EXPLODEROCKET';
567 TRIGGER_SHOT_BFGEXPL
:
569 if g_Frames_Get(TextureID
, 'FRAMES_EXPLODE_BFG') then
571 Anim
:= TAnimation
.Create(TextureID
, False, 6);
572 Anim
.Blending
:= False;
573 g_GFX_OnceAnim(wx
-64, wy
-64, Anim
);
577 g_Weapon_BFG9000(wx
, wy
, 0);
578 snd
:= 'SOUND_WEAPON_EXPLODEBFG';
582 if g_Game_IsNet
and g_Game_IsServer
then
583 case Data
.ShotType
of
585 MH_SEND_Effect(wx
, wy
, Byte(Data
.ShotSound
), NET_GFX_EXPLODE
);
586 TRIGGER_SHOT_BFGEXPL
:
587 MH_SEND_Effect(wx
, wy
, Byte(Data
.ShotSound
), NET_GFX_BFGEXPL
);
591 MH_SEND_CreateShot(LastShotID
);
592 if Data
.ShotSound
then
593 MH_SEND_Sound(wx
, wy
, snd
);
597 if Data
.ShotSound
then
598 g_Sound_PlayExAt(snd
, wx
, wy
);
601 if (Data
.ShotIntReload
> 0) and (ShotReloadTime
= 0) then
602 ShotReloadTime
:= Data
.ShotIntReload
; // òèêîâ íà ïåðåçàðÿäêó ïóøêè
605 procedure MakeEffect(X
, Y
, VX
, VY
: Integer; T
, ST
, CR
, CG
, CB
: Byte; Silent
, Send
: Boolean);
610 if T
= TRIGGER_EFFECT_PARTICLE
then
612 TRIGGER_EFFECT_SLIQUID
:
614 if (CR
= 255) and (CG
= 0) and (CB
= 0) then
615 g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 1, 0, 0, 0)
616 else if (CR
= 0) and (CG
= 255) and (CB
= 0) then
617 g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 2, 0, 0, 0)
618 else if (CR
= 0) and (CG
= 0) and (CB
= 255) then
619 g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 3, 0, 0, 0)
621 g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 0, 0, 0, 0);
623 TRIGGER_EFFECT_LLIQUID
:
624 g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 4, CR
, CG
, CB
);
625 TRIGGER_EFFECT_DLIQUID
:
626 g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 5, CR
, CG
, CB
);
627 TRIGGER_EFFECT_BLOOD
:
628 g_GFX_Blood(X
, Y
, 1, VX
, VY
, 0, 0, CR
, CG
, CB
);
629 TRIGGER_EFFECT_SPARK
:
630 g_GFX_Spark(X
, Y
, 1, GetAngle2(VX
, VY
), 0, 0);
631 TRIGGER_EFFECT_BUBBLE
:
632 g_GFX_Bubbles(X
, Y
, 1, 0, 0);
634 if T
= TRIGGER_EFFECT_ANIMATION
then
636 EFFECT_TELEPORT
: begin
637 if g_Frames_Get(FramesID
, 'FRAMES_TELEPORT') then
639 Anim
:= TAnimation
.Create(FramesID
, False, 3);
641 g_Sound_PlayExAt('SOUND_GAME_TELEPORT', X
, Y
);
642 g_GFX_OnceAnim(X
-32, Y
-32, Anim
);
645 if Send
and g_Game_IsServer
and g_Game_IsNet
then
646 MH_SEND_Effect(X
, Y
, Byte(not Silent
), NET_GFX_TELE
);
648 EFFECT_RESPAWN
: begin
649 if g_Frames_Get(FramesID
, 'FRAMES_ITEM_RESPAWN') then
651 Anim
:= TAnimation
.Create(FramesID
, False, 4);
653 g_Sound_PlayExAt('SOUND_ITEM_RESPAWNITEM', X
, Y
);
654 g_GFX_OnceAnim(X
-16, Y
-16, Anim
);
657 if Send
and g_Game_IsServer
and g_Game_IsNet
then
658 MH_SEND_Effect(X
-16, Y
-16, Byte(not Silent
), NET_GFX_RESPAWN
);
661 if g_Frames_Get(FramesID
, 'FRAMES_FIRE') then
663 Anim
:= TAnimation
.Create(FramesID
, False, 4);
665 g_Sound_PlayExAt('SOUND_FIRE', X
, Y
);
666 g_GFX_OnceAnim(X
-32, Y
-128, Anim
);
669 if Send
and g_Game_IsServer
and g_Game_IsNet
then
670 MH_SEND_Effect(X
-32, Y
-128, Byte(not Silent
), NET_GFX_FIRE
);
675 function ActivateTrigger(var Trigger
: TTrigger
; actType
: Byte): Boolean;
680 i
, k
, wx
, wy
, xd
, yd
: Integer;
691 if g_Game_IsClient
then
694 if not Trigger
.Enabled
then
696 if (Trigger
.TimeOut
<> 0) and (actType
<> ACTIVATE_CUSTOM
) then
698 if gLMSRespawn
= LMS_RESPAWN_WARMUP
then
703 coolDown
:= (actType
<> 0);
710 g_Sound_PlayEx('SOUND_GAME_SWITCH0');
711 if g_Game_IsNet
then MH_SEND_Sound(X
, Y
, 'SOUND_GAME_SWITCH0');
712 gExitByTrigger
:= True;
713 g_Game_ExitLevel(Data
.MapName
);
722 case g_GetUIDType(ActivateUID
) of
725 p
:= g_Player_Get(ActivateUID
);
729 if Data
.d2d_teleport
then
731 if p
.TeleportTo(Data
.TargetPoint
.X
-(p
.Obj
.Rect
.Width
div 2),
732 Data
.TargetPoint
.Y
-p
.Obj
.Rect
.Height
,
733 Data
.silent_teleport
,
738 if p
.TeleportTo(Data
.TargetPoint
.X
,
740 Data
.silent_teleport
,
747 m
:= g_Monsters_Get(ActivateUID
);
751 if Data
.d2d_teleport
then
753 if m
.TeleportTo(Data
.TargetPoint
.X
-(m
.Obj
.Rect
.Width
div 2),
754 Data
.TargetPoint
.Y
-m
.Obj
.Rect
.Height
,
755 Data
.silent_teleport
,
760 if m
.TeleportTo(Data
.TargetPoint
.X
,
762 Data
.silent_teleport
,
773 Result
:= OpenDoor(Data
.PanelID
, Data
.NoSound
, Data
.d2d_doors
);
779 Result
:= CloseDoor(Data
.PanelID
, Data
.NoSound
, Data
.d2d_doors
);
783 TRIGGER_DOOR
, TRIGGER_DOOR5
:
785 if Data
.PanelID
<> -1 then
787 if gWalls
[Data
.PanelID
].Enabled
then
789 Result
:= OpenDoor(Data
.PanelID
, Data
.NoSound
, Data
.d2d_doors
);
791 if TriggerType
= TRIGGER_DOOR5
then
795 Result
:= CloseDoor(Data
.PanelID
, Data
.NoSound
, Data
.d2d_doors
);
802 TRIGGER_CLOSETRAP
, TRIGGER_TRAP
:
804 CloseTrap(Data
.PanelID
, Data
.NoSound
, Data
.d2d_doors
);
806 if TriggerType
= TRIGGER_TRAP
then
820 TRIGGER_PRESS
, TRIGGER_ON
, TRIGGER_OFF
, TRIGGER_ONOFF
:
822 PressCount
:= PressCount
+ 1;
824 if PressTime
= -1 then
825 PressTime
:= Data
.Wait
;
835 if g_GetUIDType(ActivateUID
) = UID_PLAYER
then
839 if gLMSRespawn
= LMS_RESPAWN_NONE
then
841 g_Player_Get(ActivateUID
).GetSecret();
842 Inc(gCoopSecretsFound
);
843 if g_Game_IsNet
then MH_SEND_GameStats();
849 Result
:= SetLift(Data
.PanelID
, 0, Data
.NoSound
, Data
.d2d_doors
);
852 if (not Data
.NoSound
) and Result
then begin
853 g_Sound_PlayExAt('SOUND_GAME_SWITCH0',
856 if g_Game_IsServer
and g_Game_IsNet
then
857 MH_SEND_Sound(X
+ (Width
div 2),
859 'SOUND_GAME_SWITCH0');
865 Result
:= SetLift(Data
.PanelID
, 1, Data
.NoSound
, Data
.d2d_doors
);
868 if (not Data
.NoSound
) and Result
then begin
869 g_Sound_PlayExAt('SOUND_GAME_SWITCH0',
872 if g_Game_IsServer
and g_Game_IsNet
then
873 MH_SEND_Sound(X
+ (Width
div 2),
875 'SOUND_GAME_SWITCH0');
881 Result
:= SetLift(Data
.PanelID
, 3, Data
.NoSound
, Data
.d2d_doors
);
887 if (not Data
.NoSound
) and Result
then begin
888 g_Sound_PlayExAt('SOUND_GAME_SWITCH0',
891 if g_Game_IsServer
and g_Game_IsNet
then
892 MH_SEND_Sound(X
+ (Width
div 2),
894 'SOUND_GAME_SWITCH0');
901 if ByteBool(Data
.ActivateOnce
) then
904 TriggerType
:= TRIGGER_NONE
;
912 animonce
:= Data
.AnimOnce
;
920 if Data
.SoundSwitch
and Sound
.IsPlaying() then
921 begin // Íóæíî âûêëþ÷èòü, åñëè èãðàë
926 else // (not Data.SoundSwitch) or (not Sound.IsPlaying())
927 if (Data
.PlayCount
> 0) or (not Sound
.IsPlaying()) then
929 if Data
.PlayCount
> 0 then
930 SoundPlayCount
:= Data
.PlayCount
931 else // 0 - èãðàåì áåñêîíå÷íî
935 if g_Game_IsNet
then MH_SEND_TriggerSound(Trigger
);
939 TRIGGER_SPAWNMONSTER
:
940 if (Data
.MonType
in [MONSTER_DEMON
..MONSTER_MAN
]) then
943 if (Data
.MonDelay
> 0) and (actType
<> ACTIVATE_CUSTOM
) then
945 AutoSpawn
:= not AutoSpawn
;
947 // Àâòîñïàâíåð ïåðåêëþ÷åí - ìåíÿåì òåêñòóðó
951 if ((Data
.MonDelay
= 0) and (actType
<> ACTIVATE_CUSTOM
))
952 or ((Data
.MonDelay
> 0) and (actType
= ACTIVATE_CUSTOM
)) then
953 for k
:= 1 to Data
.MonCount
do
955 if (actType
= ACTIVATE_CUSTOM
) and (Data
.MonDelay
> 0) then
956 SpawnCooldown
:= Data
.MonDelay
;
957 if (Data
.MonMax
> 0) and (SpawnedCount
>= Data
.MonMax
) then
960 i
:= g_Monsters_Create(Data
.MonType
,
961 Data
.MonPos
.X
, Data
.MonPos
.Y
,
962 TDirection(Data
.MonDir
), True);
967 if (Data
.MonHealth
> 0) then
968 gMonsters
[i
].SetHealth(Data
.MonHealth
);
969 // Óñòàíàâëèâàåì ïîâåäåíèå:
970 gMonsters
[i
].MonsterBehaviour
:= Data
.MonBehav
;
971 // Èäåì èñêàòü öåëü, åñëè íàäî:
972 if Data
.MonActive
then
973 gMonsters
[i
].WakeUp();
974 gMonsters
[i
].FNoRespawn
:= True;
976 if Data
.MonType
<> MONSTER_BARREL
then Inc(gTotalMonsters
);
980 SetLength(gMonstersSpawned
, Length(gMonstersSpawned
)+1);
981 gMonstersSpawned
[High(gMonstersSpawned
)] := gMonsters
[i
].UID
;
984 if Data
.MonMax
> 0 then
986 gMonsters
[i
].SpawnTrigger
:= ID
;
990 case Data
.MonEffect
of
991 EFFECT_TELEPORT
: begin
992 if g_Frames_Get(FramesID
, 'FRAMES_TELEPORT') then
994 Anim
:= TAnimation
.Create(FramesID
, False, 3);
995 g_Sound_PlayExAt('SOUND_GAME_TELEPORT', Data
.MonPos
.X
, Data
.MonPos
.Y
);
996 g_GFX_OnceAnim(gMonsters
[i
].Obj
.X
+gMonsters
[i
].Obj
.Rect
.X
+(gMonsters
[i
].Obj
.Rect
.Width
div 2)-32,
997 gMonsters
[i
].Obj
.Y
+gMonsters
[i
].Obj
.Rect
.Y
+(gMonsters
[i
].Obj
.Rect
.Height
div 2)-32, Anim
);
1000 if g_Game_IsServer
and g_Game_IsNet
then
1001 MH_SEND_Effect(gMonsters
[i
].Obj
.X
+gMonsters
[i
].Obj
.Rect
.X
+(gMonsters
[i
].Obj
.Rect
.Width
div 2)-32,
1002 gMonsters
[i
].Obj
.Y
+gMonsters
[i
].Obj
.Rect
.Y
+(gMonsters
[i
].Obj
.Rect
.Height
div 2)-32, 1,
1005 EFFECT_RESPAWN
: begin
1006 if g_Frames_Get(FramesID
, 'FRAMES_ITEM_RESPAWN') then
1008 Anim
:= TAnimation
.Create(FramesID
, False, 4);
1009 g_Sound_PlayExAt('SOUND_ITEM_RESPAWNITEM', Data
.MonPos
.X
, Data
.MonPos
.Y
);
1010 g_GFX_OnceAnim(gMonsters
[i
].Obj
.X
+gMonsters
[i
].Obj
.Rect
.X
+(gMonsters
[i
].Obj
.Rect
.Width
div 2)-16,
1011 gMonsters
[i
].Obj
.Y
+gMonsters
[i
].Obj
.Rect
.Y
+(gMonsters
[i
].Obj
.Rect
.Height
div 2)-16, Anim
);
1014 if g_Game_IsServer
and g_Game_IsNet
then
1015 MH_SEND_Effect(gMonsters
[i
].Obj
.X
+gMonsters
[i
].Obj
.Rect
.X
+(gMonsters
[i
].Obj
.Rect
.Width
div 2)-16,
1016 gMonsters
[i
].Obj
.Y
+gMonsters
[i
].Obj
.Rect
.Y
+(gMonsters
[i
].Obj
.Rect
.Height
div 2)-16, 1,
1020 if g_Frames_Get(FramesID
, 'FRAMES_FIRE') then
1022 Anim
:= TAnimation
.Create(FramesID
, False, 4);
1023 g_Sound_PlayExAt('SOUND_FIRE', Data
.MonPos
.X
, Data
.MonPos
.Y
);
1024 g_GFX_OnceAnim(gMonsters
[i
].Obj
.X
+gMonsters
[i
].Obj
.Rect
.X
+(gMonsters
[i
].Obj
.Rect
.Width
div 2)-32,
1025 gMonsters
[i
].Obj
.Y
+gMonsters
[i
].Obj
.Rect
.Y
+gMonsters
[i
].Obj
.Rect
.Height
-128, Anim
);
1028 if g_Game_IsServer
and g_Game_IsNet
then
1029 MH_SEND_Effect(gMonsters
[i
].Obj
.X
+gMonsters
[i
].Obj
.Rect
.X
+(gMonsters
[i
].Obj
.Rect
.Width
div 2)-32,
1030 gMonsters
[i
].Obj
.Y
+gMonsters
[i
].Obj
.Rect
.Y
+gMonsters
[i
].Obj
.Rect
.Height
-128, 1,
1035 if g_Game_IsNet
then
1036 MH_SEND_MonsterSpawn(gMonsters
[i
].UID
);
1038 if g_Game_IsNet
then
1040 MH_SEND_GameStats();
1041 MH_SEND_CoopStats();
1048 // Åñëè àêòèâèðîâàí àâòîñïàâíåðîì, íå ìåíÿåì òåêñòóðó
1049 if actType
= ACTIVATE_CUSTOM
then
1054 if (Data
.ItemType
in [ITEM_MEDKIT_SMALL
..ITEM_MAX
]) then
1057 if (Data
.ItemDelay
> 0) and (actType
<> ACTIVATE_CUSTOM
) then
1059 AutoSpawn
:= not AutoSpawn
;
1061 // Àâòîñïàâíåð ïåðåêëþ÷åí - ìåíÿåì òåêñòóðó
1065 if ((Data
.ItemDelay
= 0) and (actType
<> ACTIVATE_CUSTOM
))
1066 or ((Data
.ItemDelay
> 0) and (actType
= ACTIVATE_CUSTOM
)) then
1067 if (not Data
.ItemOnlyDM
) or
1068 (gGameSettings
.GameMode
in [GM_DM
, GM_TDM
, GM_CTF
]) then
1069 for k
:= 1 to Data
.ItemCount
do
1071 if (actType
= ACTIVATE_CUSTOM
) and (Data
.ItemDelay
> 0) then
1072 SpawnCooldown
:= Data
.ItemDelay
;
1073 if (Data
.ItemMax
> 0) and (SpawnedCount
>= Data
.ItemMax
) then
1076 iid
:= g_Items_Create(Data
.ItemPos
.X
, Data
.ItemPos
.Y
,
1077 Data
.ItemType
, Data
.ItemFalls
, False, True);
1081 if Data
.ItemMax
> 0 then
1083 gItems
[iid
].SpawnTrigger
:= ID
;
1087 case Data
.ItemEffect
of
1088 EFFECT_TELEPORT
: begin
1089 if g_Frames_Get(FramesID
, 'FRAMES_TELEPORT') then
1091 Anim
:= TAnimation
.Create(FramesID
, False, 3);
1092 g_Sound_PlayExAt('SOUND_GAME_TELEPORT', Data
.ItemPos
.X
, Data
.ItemPos
.Y
);
1093 g_GFX_OnceAnim(gItems
[iid
].Obj
.X
+gItems
[iid
].Obj
.Rect
.X
+(gItems
[iid
].Obj
.Rect
.Width
div 2)-32,
1094 gItems
[iid
].Obj
.Y
+gItems
[iid
].Obj
.Rect
.Y
+(gItems
[iid
].Obj
.Rect
.Height
div 2)-32, Anim
);
1097 if g_Game_IsServer
and g_Game_IsNet
then
1098 MH_SEND_Effect(gItems
[iid
].Obj
.X
+gItems
[iid
].Obj
.Rect
.X
+(gItems
[iid
].Obj
.Rect
.Width
div 2)-32,
1099 gItems
[iid
].Obj
.Y
+gItems
[iid
].Obj
.Rect
.Y
+(gItems
[iid
].Obj
.Rect
.Height
div 2)-32, 1,
1102 EFFECT_RESPAWN
: begin
1103 if g_Frames_Get(FramesID
, 'FRAMES_ITEM_RESPAWN') then
1105 Anim
:= TAnimation
.Create(FramesID
, False, 4);
1106 g_Sound_PlayExAt('SOUND_ITEM_RESPAWNITEM', Data
.ItemPos
.X
, Data
.ItemPos
.Y
);
1107 g_GFX_OnceAnim(gItems
[iid
].Obj
.X
+gItems
[iid
].Obj
.Rect
.X
+(gItems
[iid
].Obj
.Rect
.Width
div 2)-16,
1108 gItems
[iid
].Obj
.Y
+gItems
[iid
].Obj
.Rect
.Y
+(gItems
[iid
].Obj
.Rect
.Height
div 2)-16, Anim
);
1111 if g_Game_IsServer
and g_Game_IsNet
then
1112 MH_SEND_Effect(gItems
[iid
].Obj
.X
+gItems
[iid
].Obj
.Rect
.X
+(gItems
[iid
].Obj
.Rect
.Width
div 2)-16,
1113 gItems
[iid
].Obj
.Y
+gItems
[iid
].Obj
.Rect
.Y
+(gItems
[iid
].Obj
.Rect
.Height
div 2)-16, 1,
1117 if g_Frames_Get(FramesID
, 'FRAMES_FIRE') then
1119 Anim
:= TAnimation
.Create(FramesID
, False, 4);
1120 g_Sound_PlayExAt('SOUND_FIRE', Data
.ItemPos
.X
, Data
.ItemPos
.Y
);
1121 g_GFX_OnceAnim(gItems
[iid
].Obj
.X
+gItems
[iid
].Obj
.Rect
.X
+(gItems
[iid
].Obj
.Rect
.Width
div 2)-32,
1122 gItems
[iid
].Obj
.Y
+gItems
[iid
].Obj
.Rect
.Y
+gItems
[iid
].Obj
.Rect
.Height
-128, Anim
);
1125 if g_Game_IsServer
and g_Game_IsNet
then
1126 MH_SEND_Effect(gItems
[iid
].Obj
.X
+gItems
[iid
].Obj
.Rect
.X
+(gItems
[iid
].Obj
.Rect
.Width
div 2)-32,
1127 gItems
[iid
].Obj
.Y
+gItems
[iid
].Obj
.Rect
.Y
+gItems
[iid
].Obj
.Rect
.Height
-128, 1,
1132 if g_Game_IsNet
then
1133 MH_SEND_ItemSpawn(True, iid
);
1140 // Åñëè àêòèâèðîâàí àâòîñïàâíåðîì, íå ìåíÿåì òåêñòóðó
1141 if actType
= ACTIVATE_CUSTOM
then
1147 // Ìåíÿåì ìóçûêó, åñëè åñòü íà ÷òî:
1148 if (Trigger
.Data
.MusicName
<> '') then
1150 gMusic
.SetByName(Trigger
.Data
.MusicName
);
1151 gMusic
.SpecPause
:= True;
1155 if Trigger
.Data
.MusicAction
= 1 then
1157 if gMusic
.SpecPause
then // Áûëà íà ïàóçå => èãðàòü
1158 gMusic
.SpecPause
:= False
1159 else // Èãðàëà => ñíà÷àëà
1160 gMusic
.SetPosition(0);
1165 gMusic
.SpecPause
:= True;
1173 if g_Game_IsNet
then MH_SEND_TriggerMusic
;
1178 case g_GetUIDType(ActivateUID
) of
1181 p
:= g_Player_Get(ActivateUID
);
1185 if Data
.ResetVel
then
1193 pAngle
:= -DegToRad(Data
.PushAngle
);
1194 p
.Push(Floor(Cos(pAngle
)*Data
.PushForce
),
1195 Floor(Sin(pAngle
)*Data
.PushForce
));
1200 m
:= g_Monsters_Get(ActivateUID
);
1203 if Data
.ResetVel
then
1211 pAngle
:= -DegToRad(Data
.PushAngle
);
1212 m
.Push(Floor(Cos(pAngle
)*Data
.PushForce
),
1213 Floor(Sin(pAngle
)*Data
.PushForce
));
1224 // Ïðèáàâèòü èëè îòíÿòü î÷êî
1225 if (Data
.ScoreAction
in [0..1]) and (Data
.ScoreCount
> 0) then
1227 // Ñâîåé èëè ÷óæîé êîìàíäå
1228 if (Data
.ScoreTeam
in [0..1]) and (g_GetUIDType(ActivateUID
) = UID_PLAYER
) then
1230 p
:= g_Player_Get(ActivateUID
);
1231 if ((Data
.ScoreAction
= 0) and (Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_RED
))
1232 or ((Data
.ScoreAction
= 0) and (Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_BLUE
)) then
1234 Inc(gTeamStat
[TEAM_RED
].Goals
, Data
.ScoreCount
); // Red Scores
1236 if Data
.ScoreCon
then
1237 if Data
.ScoreTeam
= 0 then
1239 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_OWN
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1240 if g_Game_IsServer
and g_Game_IsNet
then
1241 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '+r');
1244 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_ENEMY
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1245 if g_Game_IsServer
and g_Game_IsNet
then
1246 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '+re');
1249 if Data
.ScoreMsg
then
1251 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_ADD
], [AnsiUpperCase(_lc
[I_GAME_TEAM_RED
])]), 108);
1252 if g_Game_IsServer
and g_Game_IsNet
then
1253 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, TEAM_RED
);
1256 if ((Data
.ScoreAction
= 1) and (Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_RED
))
1257 or ((Data
.ScoreAction
= 1) and (Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_BLUE
)) then
1259 Dec(gTeamStat
[TEAM_RED
].Goals
, Data
.ScoreCount
); // Red Fouls
1261 if Data
.ScoreCon
then
1262 if Data
.ScoreTeam
= 0 then
1264 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_OWN
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1265 if g_Game_IsServer
and g_Game_IsNet
then
1266 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '-r');
1269 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_ENEMY
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1270 if g_Game_IsServer
and g_Game_IsNet
then
1271 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '-re');
1274 if Data
.ScoreMsg
then
1276 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_SUB
], [AnsiUpperCase(_lc
[I_GAME_TEAM_RED
])]), 108);
1277 if g_Game_IsServer
and g_Game_IsNet
then
1278 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, -TEAM_RED
);
1281 if ((Data
.ScoreAction
= 0) and (Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_BLUE
))
1282 or ((Data
.ScoreAction
= 0) and (Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_RED
)) then
1284 Inc(gTeamStat
[TEAM_BLUE
].Goals
, Data
.ScoreCount
); // Blue Scores
1286 if Data
.ScoreCon
then
1287 if Data
.ScoreTeam
= 0 then
1289 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_OWN
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1290 if g_Game_IsServer
and g_Game_IsNet
then
1291 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '+b');
1294 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_ENEMY
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1295 if g_Game_IsServer
and g_Game_IsNet
then
1296 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '+be');
1299 if Data
.ScoreMsg
then
1301 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_ADD
], [AnsiUpperCase(_lc
[I_GAME_TEAM_BLUE
])]), 108);
1302 if g_Game_IsServer
and g_Game_IsNet
then
1303 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, TEAM_BLUE
);
1306 if ((Data
.ScoreAction
= 1) and (Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_BLUE
))
1307 or ((Data
.ScoreAction
= 1) and (Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_RED
)) then
1309 Dec(gTeamStat
[TEAM_BLUE
].Goals
, Data
.ScoreCount
); // Blue Fouls
1311 if Data
.ScoreCon
then
1312 if Data
.ScoreTeam
= 0 then
1314 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_OWN
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1315 if g_Game_IsServer
and g_Game_IsNet
then
1316 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '-b');
1319 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_ENEMY
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1320 if g_Game_IsServer
and g_Game_IsNet
then
1321 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '-be');
1324 if Data
.ScoreMsg
then
1326 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_SUB
], [AnsiUpperCase(_lc
[I_GAME_TEAM_BLUE
])]), 108);
1327 if g_Game_IsServer
and g_Game_IsNet
then
1328 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, -TEAM_BLUE
);
1331 Result
:= (p
.Team
= TEAM_RED
) or (p
.Team
= TEAM_BLUE
);
1333 // Êàêîé-òî êîíêðåòíîé êîìàíäå
1334 if Data
.ScoreTeam
in [2..3] then
1336 if (Data
.ScoreAction
= 0) and (Data
.ScoreTeam
= 2) then
1338 Inc(gTeamStat
[TEAM_RED
].Goals
, Data
.ScoreCount
); // Red Scores
1340 if Data
.ScoreCon
then
1342 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_TEAM
], [_lc
[I_PLAYER_SCORE_RED
], Data
.ScoreCount
]), True);
1343 if g_Game_IsServer
and g_Game_IsNet
then
1344 MH_SEND_GameEvent(NET_EV_SCORE
, Data
.ScoreCount
shl 16, '+tr');
1347 if Data
.ScoreMsg
then
1349 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_ADD
], [AnsiUpperCase(_lc
[I_GAME_TEAM_RED
])]), 108);
1350 if g_Game_IsServer
and g_Game_IsNet
then
1351 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, TEAM_RED
);
1354 if (Data
.ScoreAction
= 1) and (Data
.ScoreTeam
= 2) then
1356 Dec(gTeamStat
[TEAM_RED
].Goals
, Data
.ScoreCount
); // Red Fouls
1358 if Data
.ScoreCon
then
1360 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_TEAM
], [_lc
[I_PLAYER_SCORE_RED
], Data
.ScoreCount
]), True);
1361 if g_Game_IsServer
and g_Game_IsNet
then
1362 MH_SEND_GameEvent(NET_EV_SCORE
, Data
.ScoreCount
shl 16, '-tr');
1365 if Data
.ScoreMsg
then
1367 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_SUB
], [AnsiUpperCase(_lc
[I_GAME_TEAM_RED
])]), 108);
1368 if g_Game_IsServer
and g_Game_IsNet
then
1369 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, -TEAM_RED
);
1372 if (Data
.ScoreAction
= 0) and (Data
.ScoreTeam
= 3) then
1374 Inc(gTeamStat
[TEAM_BLUE
].Goals
, Data
.ScoreCount
); // Blue Scores
1376 if Data
.ScoreCon
then
1378 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_TEAM
], [_lc
[I_PLAYER_SCORE_BLUE
], Data
.ScoreCount
]), True);
1379 if g_Game_IsServer
and g_Game_IsNet
then
1380 MH_SEND_GameEvent(NET_EV_SCORE
, Data
.ScoreCount
shl 16, '+tb');
1383 if Data
.ScoreMsg
then
1385 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_ADD
], [AnsiUpperCase(_lc
[I_GAME_TEAM_BLUE
])]), 108);
1386 if g_Game_IsServer
and g_Game_IsNet
then
1387 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, TEAM_BLUE
);
1390 if (Data
.ScoreAction
= 1) and (Data
.ScoreTeam
= 3) then
1392 Dec(gTeamStat
[TEAM_BLUE
].Goals
, Data
.ScoreCount
); // Blue Fouls
1394 if Data
.ScoreCon
then
1396 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_TEAM
], [_lc
[I_PLAYER_SCORE_BLUE
], Data
.ScoreCount
]), True);
1397 if g_Game_IsServer
and g_Game_IsNet
then
1398 MH_SEND_GameEvent(NET_EV_SCORE
, Data
.ScoreCount
shl 16, '-tb');
1401 if Data
.ScoreMsg
then
1403 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_SUB
], [AnsiUpperCase(_lc
[I_GAME_TEAM_BLUE
])]), 108);
1404 if g_Game_IsServer
and g_Game_IsNet
then
1405 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, -TEAM_BLUE
);
1412 if (Data
.ScoreAction
= 2) and (gGameSettings
.GoalLimit
> 0) then
1414 // Ñâîåé èëè ÷óæîé êîìàíäû
1415 if (Data
.ScoreTeam
in [0..1]) and (g_GetUIDType(ActivateUID
) = UID_PLAYER
) then
1417 p
:= g_Player_Get(ActivateUID
);
1418 if ((Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_RED
)) // Red Wins
1419 or ((Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_BLUE
)) then
1420 if gTeamStat
[TEAM_RED
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1422 gTeamStat
[TEAM_RED
].Goals
:= gGameSettings
.GoalLimit
;
1424 if Data
.ScoreCon
then
1425 if Data
.ScoreTeam
= 0 then
1427 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_OWN
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1428 if g_Game_IsServer
and g_Game_IsNet
then
1429 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wr');
1432 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_ENEMY
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1433 if g_Game_IsServer
and g_Game_IsNet
then
1434 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wre');
1439 if ((Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_BLUE
)) // Blue Wins
1440 or ((Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_RED
)) then
1441 if gTeamStat
[TEAM_BLUE
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1443 gTeamStat
[TEAM_BLUE
].Goals
:= gGameSettings
.GoalLimit
;
1445 if Data
.ScoreCon
then
1446 if Data
.ScoreTeam
= 0 then
1448 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_OWN
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1449 if g_Game_IsServer
and g_Game_IsNet
then
1450 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wb');
1453 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_ENEMY
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1454 if g_Game_IsServer
and g_Game_IsNet
then
1455 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wbe');
1461 // Êàêîé-òî êîíêðåòíîé êîìàíäû
1462 if Data
.ScoreTeam
in [2..3] then
1464 if Data
.ScoreTeam
= 2 then // Red Wins
1465 if gTeamStat
[TEAM_RED
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1467 gTeamStat
[TEAM_RED
].Goals
:= gGameSettings
.GoalLimit
;
1470 if Data
.ScoreTeam
= 3 then // Blue Wins
1471 if gTeamStat
[TEAM_BLUE
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1473 gTeamStat
[TEAM_BLUE
].Goals
:= gGameSettings
.GoalLimit
;
1479 if (Data
.ScoreAction
= 3) and (gGameSettings
.GoalLimit
> 0) then
1481 // Ñâîåé èëè ÷óæîé êîìàíäû
1482 if (Data
.ScoreTeam
in [0..1]) and (g_GetUIDType(ActivateUID
) = UID_PLAYER
) then
1484 p
:= g_Player_Get(ActivateUID
);
1485 if ((Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_BLUE
)) // Red Wins
1486 or ((Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_RED
)) then
1487 if gTeamStat
[TEAM_RED
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1489 gTeamStat
[TEAM_RED
].Goals
:= gGameSettings
.GoalLimit
;
1491 if Data
.ScoreCon
then
1492 if Data
.ScoreTeam
= 0 then
1494 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_ENEMY
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1495 if g_Game_IsServer
and g_Game_IsNet
then
1496 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wre');
1499 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_OWN
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1500 if g_Game_IsServer
and g_Game_IsNet
then
1501 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wr');
1506 if ((Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_RED
)) // Blue Wins
1507 or ((Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_BLUE
)) then
1508 if gTeamStat
[TEAM_BLUE
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1510 gTeamStat
[TEAM_BLUE
].Goals
:= gGameSettings
.GoalLimit
;
1512 if Data
.ScoreCon
then
1513 if Data
.ScoreTeam
= 0 then
1515 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_ENEMY
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1516 if g_Game_IsServer
and g_Game_IsNet
then
1517 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wbe');
1520 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_OWN
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1521 if g_Game_IsServer
and g_Game_IsNet
then
1522 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wb');
1528 // Êàêîé-òî êîíêðåòíîé êîìàíäû
1529 if Data
.ScoreTeam
in [2..3] then
1531 if Data
.ScoreTeam
= 3 then // Red Wins
1532 if gTeamStat
[TEAM_RED
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1534 gTeamStat
[TEAM_RED
].Goals
:= gGameSettings
.GoalLimit
;
1537 if Data
.ScoreTeam
= 2 then // Blue Wins
1538 if gTeamStat
[TEAM_BLUE
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1540 gTeamStat
[TEAM_BLUE
].Goals
:= gGameSettings
.GoalLimit
;
1545 if Result
then begin
1550 if g_Game_IsServer
and g_Game_IsNet
then
1557 msg
:= b_Text_Format(Data
.MessageText
);
1558 case Data
.MessageSendTo
of
1561 if g_GetUIDType(ActivateUID
) = UID_PLAYER
then
1563 if g_Game_IsWatchedPlayer(ActivateUID
) then
1565 if Data
.MessageKind
= 0 then
1566 g_Console_Add(msg
, True)
1567 else if Data
.MessageKind
= 1 then
1568 g_Game_Message(msg
, Data
.MessageTime
);
1572 p
:= g_Player_Get(ActivateUID
);
1573 if g_Game_IsNet
and (p
.FClientID
>= 0) then
1574 if Data
.MessageKind
= 0 then
1575 MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
, p
.FClientID
)
1576 else if Data
.MessageKind
= 1 then
1577 MH_SEND_GameEvent(NET_EV_BIGTEXT
, Data
.MessageTime
, msg
, p
.FClientID
);
1582 1: // activator's team
1584 if g_GetUIDType(ActivateUID
) = UID_PLAYER
then
1586 p
:= g_Player_Get(ActivateUID
);
1587 if g_Game_IsWatchedTeam(p
.Team
) then
1588 if Data
.MessageKind
= 0 then
1589 g_Console_Add(msg
, True)
1590 else if Data
.MessageKind
= 1 then
1591 g_Game_Message(msg
, Data
.MessageTime
);
1593 if g_Game_IsNet
then
1595 for i
:= Low(gPlayers
) to High(gPlayers
) do
1596 if (gPlayers
[i
].Team
= p
.Team
) and (gPlayers
[i
].FClientID
>= 0) then
1597 if Data
.MessageKind
= 0 then
1598 MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
, gPlayers
[i
].FClientID
)
1599 else if Data
.MessageKind
= 1 then
1600 MH_SEND_GameEvent(NET_EV_BIGTEXT
, Data
.MessageTime
, msg
, gPlayers
[i
].FClientID
);
1605 2: // activator's enemy team
1607 if g_GetUIDType(ActivateUID
) = UID_PLAYER
then
1609 p
:= g_Player_Get(ActivateUID
);
1610 if g_Game_IsWatchedTeam(p
.Team
) then
1611 if Data
.MessageKind
= 0 then
1612 g_Console_Add(msg
, True)
1613 else if Data
.MessageKind
= 1 then
1614 g_Game_Message(msg
, Data
.MessageTime
);
1616 if g_Game_IsNet
then
1618 for i
:= Low(gPlayers
) to High(gPlayers
) do
1619 if (gPlayers
[i
].Team
<> p
.Team
) and (gPlayers
[i
].FClientID
>= 0) then
1620 if Data
.MessageKind
= 0 then
1621 MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
, gPlayers
[i
].FClientID
)
1622 else if Data
.MessageKind
= 1 then
1623 MH_SEND_GameEvent(NET_EV_BIGTEXT
, Data
.MessageTime
, msg
, gPlayers
[i
].FClientID
);
1630 if g_Game_IsWatchedTeam(TEAM_RED
) then
1631 if Data
.MessageKind
= 0 then
1632 g_Console_Add(msg
, True)
1633 else if Data
.MessageKind
= 1 then
1634 g_Game_Message(msg
, Data
.MessageTime
);
1636 if g_Game_IsNet
then
1638 for i
:= Low(gPlayers
) to High(gPlayers
) do
1639 if (gPlayers
[i
].Team
= TEAM_RED
) and (gPlayers
[i
].FClientID
>= 0) then
1640 if Data
.MessageKind
= 0 then
1641 MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
, gPlayers
[i
].FClientID
)
1642 else if Data
.MessageKind
= 1 then
1643 MH_SEND_GameEvent(NET_EV_BIGTEXT
, Data
.MessageTime
, msg
, gPlayers
[i
].FClientID
);
1649 if g_Game_IsWatchedTeam(TEAM_BLUE
) then
1650 if Data
.MessageKind
= 0 then
1651 g_Console_Add(msg
, True)
1652 else if Data
.MessageKind
= 1 then
1653 g_Game_Message(msg
, Data
.MessageTime
);
1655 if g_Game_IsNet
then
1657 for i
:= Low(gPlayers
) to High(gPlayers
) do
1658 if (gPlayers
[i
].Team
= TEAM_BLUE
) and (gPlayers
[i
].FClientID
>= 0) then
1659 if Data
.MessageKind
= 0 then
1660 MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
, gPlayers
[i
].FClientID
)
1661 else if Data
.MessageKind
= 1 then
1662 MH_SEND_GameEvent(NET_EV_BIGTEXT
, Data
.MessageTime
, msg
, gPlayers
[i
].FClientID
);
1668 if Data
.MessageKind
= 0 then
1669 g_Console_Add(msg
, True)
1670 else if Data
.MessageKind
= 1 then
1671 g_Game_Message(msg
, Data
.MessageTime
);
1673 if g_Game_IsNet
then
1675 if Data
.MessageKind
= 0 then
1676 MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
)
1677 else if Data
.MessageKind
= 1 then
1678 MH_SEND_GameEvent(NET_EV_BIGTEXT
, Data
.MessageTime
, msg
);
1685 TRIGGER_DAMAGE
, TRIGGER_HEALTH
:
1688 UIDType
:= g_GetUIDType(ActivateUID
);
1689 if (UIDType
= UID_PLAYER
) or (UIDType
= UID_MONSTER
) then
1695 // Âñïîìèíàåì, àêòèâèðîâàë ëè îí ìåíÿ ðàíüøå
1696 for i
:= 0 to High(Activators
) do
1697 if Activators
[i
].UID
= ActivateUID
then
1703 begin // Âèäèì åãî âïåðâûå
1705 SetLength(Activators
, Length(Activators
) + 1);
1706 k
:= High(Activators
);
1707 Activators
[k
].UID
:= ActivateUID
;
1709 begin // Óæå âèäåëè åãî
1710 // Åñëè èíòåðâàë îòêëþ÷¸í, íî îí âñ¸ åù¸ â çîíå ïîðàæåíèÿ, äà¸ì åìó âðåìÿ
1711 if (Data
.DamageInterval
= 0) and (Activators
[k
].TimeOut
> 0) then
1712 Activators
[k
].TimeOut
:= 65535;
1713 // Òàéìàóò ïðîø¸ë - ðàáîòàåì
1714 Result
:= Activators
[k
].TimeOut
= 0;
1723 p
:= g_Player_Get(ActivateUID
);
1727 // Íàíîñèì óðîí èãðîêó
1728 if (TriggerType
= TRIGGER_DAMAGE
) and (Data
.DamageValue
> 0) then
1729 p
.Damage(Data
.DamageValue
, 0, 0, 0, HIT_SOME
);
1732 if (TriggerType
= TRIGGER_HEALTH
) and (Data
.HealValue
> 0) then
1733 if p
.Heal(Data
.HealValue
, not Data
.HealMax
) and (not Data
.HealSilent
) then
1735 g_Sound_PlayExAt('SOUND_ITEM_GETITEM', p
.Obj
.X
, p
.Obj
.Y
);
1736 if g_Game_IsServer
and g_Game_IsNet
then
1737 MH_SEND_Sound(p
.Obj
.X
, p
.Obj
.Y
, 'SOUND_ITEM_GETITEM');
1743 m
:= g_Monsters_Get(ActivateUID
);
1747 // Íàíîñèì óðîí ìîíñòðó
1748 if (TriggerType
= TRIGGER_DAMAGE
) and (Data
.DamageValue
> 0) then
1749 m
.Damage(Data
.DamageValue
, 0, 0, 0, HIT_SOME
);
1752 if (TriggerType
= TRIGGER_HEALTH
) and (Data
.HealValue
> 0) then
1753 if m
.Heal(Data
.HealValue
) and (not Data
.HealSilent
) then
1755 g_Sound_PlayExAt('SOUND_ITEM_GETITEM', m
.Obj
.X
, m
.Obj
.Y
);
1756 if g_Game_IsServer
and g_Game_IsNet
then
1757 MH_SEND_Sound(m
.Obj
.X
, m
.Obj
.Y
, 'SOUND_ITEM_GETITEM');
1761 // Íàçíà÷àåì âðåìÿ ñëåäóþùåãî âîçäåéñòâèÿ
1762 if TriggerType
= TRIGGER_DAMAGE
then
1763 i
:= Data
.DamageInterval
1765 i
:= Data
.HealInterval
;
1768 Activators
[k
].TimeOut
:= i
1770 Activators
[k
].TimeOut
:= 65535;
1778 if ShotSightTime
> 0 then
1781 wx
:= Data
.ShotPos
.X
;
1782 wy
:= Data
.ShotPos
.Y
;
1783 pAngle
:= -DegToRad(Data
.ShotAngle
);
1784 xd
:= wx
+ Round(Cos(pAngle
) * 32.0);
1785 yd
:= wy
+ Round(Sin(pAngle
) * 32.0);
1788 case Data
.ShotTarget
of
1789 TRIGGER_SHOT_TARGET_MON
: // monsters
1790 if gMonsters
<> nil then
1791 for i
:= Low(gMonsters
) to High(gMonsters
) do
1792 if (gMonsters
[i
] <> nil) and gMonsters
[i
].Live
and
1793 (Data
.ShotAllMap
or g_Obj_Collide(X
, Y
, Width
, Height
, @(gMonsters
[i
].Obj
))) then
1795 xd
:= gMonsters
[i
].GameX
+ gMonsters
[i
].Obj
.Rect
.Width
div 2;
1796 yd
:= gMonsters
[i
].GameY
+ gMonsters
[i
].Obj
.Rect
.Height
div 2;
1797 TargetUID
:= gMonsters
[i
].UID
;
1801 TRIGGER_SHOT_TARGET_PLR
: // players
1802 if gPlayers
<> nil then
1803 for i
:= Low(gPlayers
) to High(gPlayers
) do
1804 if (gPlayers
[i
] <> nil) and gPlayers
[i
].Live
and
1805 (Data
.ShotAllMap
or g_Obj_Collide(X
, Y
, Width
, Height
, @(gPlayers
[i
].Obj
))) then
1807 xd
:= gPlayers
[i
].GameX
+ PLAYER_RECT_CX
;
1808 yd
:= gPlayers
[i
].GameY
+ PLAYER_RECT_CY
;
1809 TargetUID
:= gPlayers
[i
].UID
;
1813 TRIGGER_SHOT_TARGET_RED
: // red team
1814 if gPlayers
<> nil then
1815 for i
:= Low(gPlayers
) to High(gPlayers
) do
1816 if (gPlayers
[i
] <> nil) and gPlayers
[i
].Live
and
1817 (gPlayers
[i
].Team
= TEAM_RED
) and
1818 (Data
.ShotAllMap
or g_Obj_Collide(X
, Y
, Width
, Height
, @(gPlayers
[i
].Obj
))) then
1820 xd
:= gPlayers
[i
].GameX
+ PLAYER_RECT_CX
;
1821 yd
:= gPlayers
[i
].GameY
+ PLAYER_RECT_CY
;
1822 TargetUID
:= gPlayers
[i
].UID
;
1826 TRIGGER_SHOT_TARGET_BLUE
: // blue team
1827 if gPlayers
<> nil then
1828 for i
:= Low(gPlayers
) to High(gPlayers
) do
1829 if (gPlayers
[i
] <> nil) and gPlayers
[i
].Live
and
1830 (gPlayers
[i
].Team
= TEAM_BLUE
) and
1831 (Data
.ShotAllMap
or g_Obj_Collide(X
, Y
, Width
, Height
, @(gPlayers
[i
].Obj
))) then
1833 xd
:= gPlayers
[i
].GameX
+ PLAYER_RECT_CX
;
1834 yd
:= gPlayers
[i
].GameY
+ PLAYER_RECT_CY
;
1835 TargetUID
:= gPlayers
[i
].UID
;
1839 TRIGGER_SHOT_TARGET_MONPLR
: // monsters then players
1841 if gMonsters
<> nil then
1842 for i
:= Low(gMonsters
) to High(gMonsters
) do
1843 if (gMonsters
[i
] <> nil) and gMonsters
[i
].Live
and
1844 (Data
.ShotAllMap
or g_Obj_Collide(X
, Y
, Width
, Height
, @(gMonsters
[i
].Obj
))) then
1846 xd
:= gMonsters
[i
].GameX
+ gMonsters
[i
].Obj
.Rect
.Width
div 2;
1847 yd
:= gMonsters
[i
].GameY
+ gMonsters
[i
].Obj
.Rect
.Height
div 2;
1848 TargetUID
:= gMonsters
[i
].UID
;
1851 if (TargetUID
= 0) and (gPlayers
<> nil) then
1852 for i
:= Low(gPlayers
) to High(gPlayers
) do
1853 if (gPlayers
[i
] <> nil) and gPlayers
[i
].Live
and
1854 (Data
.ShotAllMap
or g_Obj_Collide(X
, Y
, Width
, Height
, @(gPlayers
[i
].Obj
))) then
1856 xd
:= gPlayers
[i
].GameX
+ PLAYER_RECT_CX
;
1857 yd
:= gPlayers
[i
].GameY
+ PLAYER_RECT_CY
;
1858 TargetUID
:= gPlayers
[i
].UID
;
1863 TRIGGER_SHOT_TARGET_PLRMON
: // players then monsters
1865 if gPlayers
<> nil then
1866 for i
:= Low(gPlayers
) to High(gPlayers
) do
1867 if (gPlayers
[i
] <> nil) and gPlayers
[i
].Live
and
1868 (Data
.ShotAllMap
or g_Obj_Collide(X
, Y
, Width
, Height
, @(gPlayers
[i
].Obj
))) then
1870 xd
:= gPlayers
[i
].GameX
+ PLAYER_RECT_CX
;
1871 yd
:= gPlayers
[i
].GameY
+ PLAYER_RECT_CY
;
1872 TargetUID
:= gPlayers
[i
].UID
;
1875 if (TargetUID
= 0) and (gMonsters
<> nil) then
1876 for i
:= Low(gMonsters
) to High(gMonsters
) do
1877 if (gMonsters
[i
] <> nil) and gMonsters
[i
].Live
and
1878 (Data
.ShotAllMap
or g_Obj_Collide(X
, Y
, Width
, Height
, @(gMonsters
[i
].Obj
))) then
1880 xd
:= gMonsters
[i
].GameX
+ gMonsters
[i
].Obj
.Rect
.Width
div 2;
1881 yd
:= gMonsters
[i
].GameY
+ gMonsters
[i
].Obj
.Rect
.Height
div 2;
1882 TargetUID
:= gMonsters
[i
].UID
;
1887 else TargetUID
:= ActivateUID
;
1890 if (Data
.ShotTarget
= TRIGGER_SHOT_TARGET_NONE
) or (TargetUID
> 0) then
1893 if (Data
.ShotIntSight
= 0) or
1894 (Data
.ShotTarget
= TRIGGER_SHOT_TARGET_NONE
) or
1895 (TargetUID
= ShotSightTarget
) then
1896 MakeShot(Trigger
, wx
, wy
, xd
, yd
, TargetUID
)
1899 ShotSightTime
:= Data
.ShotIntSight
;
1900 ShotSightTargetN
:= TargetUID
;
1901 if Data
.ShotType
= TRIGGER_SHOT_BFG
then
1903 g_Sound_PlayExAt('SOUND_WEAPON_STARTFIREBFG', wx
, wy
);
1904 if g_Game_IsNet
and g_Game_IsServer
then
1905 MH_SEND_Sound(wx
, wy
, 'SOUND_WEAPON_STARTFIREBFG');
1910 TimeOut
:= Data
.ShotWait
+ 1;
1920 TRIGGER_EFFECT_POS_CENTER
:
1922 wx
:= X
+ Width
div 2;
1923 wy
:= Y
+ Height
div 2;
1925 TRIGGER_EFFECT_POS_AREA
:
1927 wx
:= X
+ Random(Width
);
1928 wy
:= Y
+ Random(Height
);
1931 wx
:= X
+ Width
div 2;
1932 wy
:= Y
+ Height
div 2;
1937 if Data
.FXSpreadL
> 0 then xd
:= xd
- Random(Data
.FXSpreadL
+ 1);
1938 if Data
.FXSpreadR
> 0 then xd
:= xd
+ Random(Data
.FXSpreadR
+ 1);
1939 if Data
.FXSpreadU
> 0 then yd
:= yd
- Random(Data
.FXSpreadU
+ 1);
1940 if Data
.FXSpreadD
> 0 then yd
:= yd
+ Random(Data
.FXSpreadD
+ 1);
1941 MakeEffect(wx
, wy
, xd
, yd
,
1942 Data
.FXType
, Data
.FXSubType
,
1943 Data
.FXColorR
, Data
.FXColorG
, Data
.FXColorB
, True, False);
1946 TimeOut
:= Data
.FXWait
;
1951 g_Scripts_ProcExec(Data
.SCRProc
, [ID
, ActivateUID
, actType
, Data
.SCRArg
], 'map');
1958 if Result
and (Trigger
.TexturePanel
<> -1) then
1959 g_Map_SwitchTexture(Trigger
.TexturePanelType
, Trigger
.TexturePanel
, IfThen(animonce
, 2, 1));
1962 function g_Triggers_Create(Trigger
: TTrigger
): DWORD
;
1967 // Íå ñîçäàâàòü âûõîä, åñëè èãðà áåç âûõîäà:
1968 if (Trigger
.TriggerType
= TRIGGER_EXIT
) and
1969 (not LongBool(gGameSettings
.Options
and GAME_OPTION_ALLOWEXIT
)) then
1970 Trigger
.TriggerType
:= TRIGGER_NONE
;
1972 // Åñëè ìîíñòðû çàïðåùåíû, îòìåíÿåì òðèããåð:
1973 if (Trigger
.TriggerType
= TRIGGER_SPAWNMONSTER
) and
1974 (not LongBool(gGameSettings
.Options
and GAME_OPTION_MONSTERS
)) and
1975 (gGameSettings
.GameType
<> GT_SINGLE
) then
1976 Trigger
.TriggerType
:= TRIGGER_NONE
;
1978 // Ñ÷èòàåì êîëè÷åñòâî ñåêðåòîâ íà êàðòå:
1979 if Trigger
.TriggerType
= TRIGGER_SECRET
then
1980 gSecretsCount
:= gSecretsCount
+ 1;
1982 find_id
:= FindTrigger();
1983 gTriggers
[find_id
] := Trigger
;
1985 with gTriggers
[find_id
] do
1988 // if this type of trigger exists both on the client and on the server
1989 // use an uniform numeration
1990 if Trigger
.TriggerType
= TRIGGER_SOUND
then
1992 Inc(gTriggerClientID
);
1993 ClientID
:= gTriggerClientID
;
1999 PlayerCollide
:= False;
2003 SoundPlayCount
:= 0;
2010 // Çàãðóæàåì çâóê, åñëè ýòî òðèããåð "Çâóê":
2011 if (Trigger
.TriggerType
= TRIGGER_SOUND
) and
2012 (Trigger
.Data
.SoundName
<> '') then
2014 // Åùå íåò òàêîãî çâóêà:
2015 if not g_Sound_Exists(Trigger
.Data
.SoundName
) then
2017 fn
:= g_ExtractWadName(Trigger
.Data
.SoundName
);
2020 begin // Çâóê â ôàéëå ñ êàðòîé
2021 mapw
:= g_ExtractWadName(gMapInfo
.Map
);
2022 fn
:= mapw
+':'+g_ExtractFilePathName(Trigger
.Data
.SoundName
);
2024 else // Çâóê â îòäåëüíîì ôàéëå
2025 fn
:= GameDir
+ '/wads/' + Trigger
.Data
.SoundName
;
2027 if not g_Sound_CreateWADEx(Trigger
.Data
.SoundName
, fn
) then
2028 g_FatalError(Format(_lc
[I_GAME_ERROR_TR_SOUND
], [fn
, Trigger
.Data
.SoundName
]));
2031 // Ñîçäàåì îáúåêò çâóêà:
2032 with gTriggers
[find_id
] do
2034 Sound
:= TPlayableSound
.Create();
2035 if not Sound
.SetByName(Trigger
.Data
.SoundName
) then
2043 // Çàãðóæàåì ìóçûêó, åñëè ýòî òðèããåð "Ìóçûêà":
2044 if (Trigger
.TriggerType
= TRIGGER_MUSIC
) and
2045 (Trigger
.Data
.MusicName
<> '') then
2047 // Åùå íåò òàêîé ìóçûêè:
2048 if not g_Sound_Exists(Trigger
.Data
.MusicName
) then
2050 fn
:= g_ExtractWadName(Trigger
.Data
.MusicName
);
2053 begin // Ìóçûêà â ôàéëå ñ êàðòîé
2054 mapw
:= g_ExtractWadName(gMapInfo
.Map
);
2055 fn
:= mapw
+':'+g_ExtractFilePathName(Trigger
.Data
.MusicName
);
2057 else // Ìóçûêà â ôàéëå ñ êàðòîé
2058 fn
:= GameDir
+'/wads/'+Trigger
.Data
.MusicName
;
2060 if not g_Sound_CreateWADEx(Trigger
.Data
.MusicName
, fn
, True) then
2061 g_FatalError(Format(_lc
[I_GAME_ERROR_TR_SOUND
], [fn
, Trigger
.Data
.MusicName
]));
2065 // Çàãðóæàåì äàííûå òðèããåðà "Òóðåëü":
2066 if Trigger
.TriggerType
= TRIGGER_SHOT
then
2067 with gTriggers
[find_id
] do
2071 ShotSightTimeout
:= 0;
2072 ShotSightTarget
:= 0;
2073 ShotSightTargetN
:= 0;
2074 ShotAmmoCount
:= Trigger
.Data
.ShotAmmo
;
2075 ShotReloadTime
:= 0;
2081 procedure g_Triggers_Update();
2084 Affected
: array of Integer;
2086 if gTriggers
= nil then
2088 SetLength(Affected
, 0);
2090 for a
:= 0 to High(gTriggers
) do
2091 with gTriggers
[a
] do
2093 if TriggerType
<> TRIGGER_NONE
then
2095 // Óìåíüøàåì âðåìÿ äî çàêðûòèÿ äâåðè (îòêðûòèÿ ëîâóøêè):
2096 if DoorTime
> 0 then
2097 DoorTime
:= DoorTime
- 1;
2098 // Óìåíüøàåì âðåìÿ îæèäàíèÿ ïîñëå íàæàòèÿ:
2099 if PressTime
> 0 then
2100 PressTime
:= PressTime
- 1;
2101 // Ïðîâåðÿåì èãðîêîâ è ìîíñòðîâ, êîòîðûõ ðàíåå çàïîìíèëè:
2102 if (TriggerType
= TRIGGER_DAMAGE
) or (TriggerType
= TRIGGER_HEALTH
) then
2103 for b
:= 0 to High(Activators
) do
2105 // Óìåíüøàåì âðåìÿ äî ïîâòîðíîãî âîçäåéñòâèÿ:
2106 if Activators
[b
].TimeOut
> 0 then
2107 Dec(Activators
[b
].TimeOut
)
2110 // Ñ÷èòàåì, ÷òî îáúåêò ïîêèíóë çîíó äåéñòâèÿ òðèããåðà
2111 if (Data
.DamageInterval
= 0) and (Activators
[b
].TimeOut
< 65530) then
2112 Activators
[b
].TimeOut
:= 0;
2115 // Îáðàáàòûâàåì ñïàâíåðû:
2116 if Enabled
and AutoSpawn
then
2117 if SpawnCooldown
= 0 then
2119 // Åñëè ïðèøëî âðåìÿ, ñïàâíèì ìîíñòðà:
2120 if (TriggerType
= TRIGGER_SPAWNMONSTER
) and (Data
.MonDelay
> 0) then
2123 ActivateTrigger(gTriggers
[a
], ACTIVATE_CUSTOM
);
2125 // Åñëè ïðèøëî âðåìÿ, ñïàâíèì ïðåäìåò:
2126 if (TriggerType
= TRIGGER_SPAWNITEM
) and (Data
.ItemDelay
> 0) then
2129 ActivateTrigger(gTriggers
[a
], ACTIVATE_CUSTOM
);
2131 end else // Óìåíüøàåì âðåìÿ îæèäàíèÿ:
2134 // Îáðàáàòûâàåì ñîáûòèÿ òðèããåðà "Òóðåëü":
2135 if TriggerType
= TRIGGER_SHOT
then
2137 if ShotPanelTime
> 0 then
2140 if ShotPanelTime
= 0 then
2141 g_Map_SwitchTexture(ShotPanelType
, Data
.ShotPanelID
);
2143 if ShotSightTime
> 0 then
2146 if ShotSightTime
= 0 then
2147 ShotSightTarget
:= ShotSightTargetN
;
2149 if ShotSightTimeout
> 0 then
2151 Dec(ShotSightTimeout
);
2152 if ShotSightTimeout
= 0 then
2153 ShotSightTarget
:= 0;
2155 if ShotReloadTime
> 0 then
2157 Dec(ShotReloadTime
);
2158 if ShotReloadTime
= 0 then
2159 ShotAmmoCount
:= Data
.ShotAmmo
;
2163 // Òðèããåð "Çâóê" óæå îòûãðàë, åñëè íóæíî åùå - ïåðåçàïóñêàåì:
2164 if Enabled
and (TriggerType
= TRIGGER_SOUND
) and (Sound
<> nil) then
2165 if (SoundPlayCount
> 0) and (not Sound
.IsPlaying()) then
2167 if Data
.PlayCount
> 0 then // Åñëè 0 - èãðàåì çâóê áåñêîíå÷íî
2168 SoundPlayCount
:= SoundPlayCount
- 1;
2170 Sound
.PlayVolumeAt(X
+(Width
div 2), Y
+(Height
div 2), Data
.Volume
/255.0)
2172 Sound
.PlayPanVolume((Data
.Pan
-127.0)/128.0, Data
.Volume
/255.0);
2173 if Sound
.IsPlaying() and g_Game_IsNet
and g_Game_IsServer
then
2174 MH_SEND_TriggerSound(gTriggers
[a
]);
2177 // Òðèããåð "Ëîâóøêà" - ïîðà îòêðûâàòü:
2178 if (TriggerType
= TRIGGER_TRAP
) and (DoorTime
= 0) and (Data
.PanelID
<> -1) then
2180 OpenDoor(Data
.PanelID
, Data
.NoSound
, Data
.d2d_doors
);
2184 // Òðèããåð "Äâåðü 5 ñåê" - ïîðà çàêðûâàòü:
2185 if (TriggerType
= TRIGGER_DOOR5
) and (DoorTime
= 0) and (Data
.PanelID
<> -1) then
2188 if gWalls
[Data
.PanelID
].Enabled
then
2190 else // Ïîêà îòêðûòà - çàêðûâàåì
2191 if CloseDoor(Data
.PanelID
, Data
.NoSound
, Data
.d2d_doors
) then
2195 // Òðèããåð - ðàñøèðèòåëü èëè ïåðåêëþ÷àòåëü, è ïðîøëà çàäåðæêà, è íàæàëè íóæíîå ÷èñëî ðàç:
2196 if (TriggerType
in [TRIGGER_PRESS
, TRIGGER_ON
, TRIGGER_OFF
, TRIGGER_ONOFF
]) and
2197 (PressTime
= 0) and (PressCount
>= Data
.Count
) then
2199 // Ñáðàñûâàåì çàäåðæêó àêòèâàöèè:
2201 // Ñáðàñûâàåì ñ÷åò÷èê íàæàòèé:
2202 if Data
.Count
> 0 then
2203 PressCount
:= PressCount
- Data
.Count
2207 // Îïðåäåëÿåì èçìåíÿåìûå èì òðèããåðû:
2208 for b
:= 0 to High(gTriggers
) do
2209 if g_Collide(Data
.tX
, Data
.tY
, Data
.tWidth
, Data
.tHeight
, gTriggers
[b
].X
, gTriggers
[b
].Y
,
2210 gTriggers
[b
].Width
, gTriggers
[b
].Height
) and
2211 ((b
<> a
) or (Data
.Wait
> 0)) then
2212 begin // Can be self-activated, if there is Data.Wait
2213 if (not Data
.ExtRandom
) or gTriggers
[b
].Enabled
then
2215 SetLength(Affected
, Length(Affected
) + 1);
2216 Affected
[High(Affected
)] := b
;
2219 // Âûáèðàåì îäèí èç òðèããåðîâ äëÿ ðàñøèðèòåëÿ, åñëè âêëþ÷åí ðàíäîì:
2220 if (TriggerType
= TRIGGER_PRESS
) and Data
.ExtRandom
then
2222 if (Length(Affected
) > 0) then
2224 b
:= Affected
[Random(Length(Affected
))];
2225 gTriggers
[b
].ActivateUID
:= gTriggers
[a
].ActivateUID
;
2226 ActivateTrigger(gTriggers
[b
], 0);
2229 else //  ïðîòèâíîì ñëó÷àå ðàáîòàåì êàê îáû÷íî:
2230 for i
:= 0 to High(Affected
) do
2236 gTriggers
[b
].ActivateUID
:= gTriggers
[a
].ActivateUID
;
2237 ActivateTrigger(gTriggers
[b
], 0);
2241 gTriggers
[b
].Enabled
:= True;
2245 gTriggers
[b
].Enabled
:= False;
2246 gTriggers
[b
].TimeOut
:= 0;
2247 if gTriggers
[b
].AutoSpawn
then
2249 gTriggers
[b
].AutoSpawn
:= False;
2250 gTriggers
[b
].SpawnCooldown
:= 0;
2255 gTriggers
[b
].Enabled
:= not gTriggers
[b
].Enabled
;
2256 if not gTriggers
[b
].Enabled
then
2258 gTriggers
[b
].TimeOut
:= 0;
2259 if gTriggers
[b
].AutoSpawn
then
2261 gTriggers
[b
].AutoSpawn
:= False;
2262 gTriggers
[b
].SpawnCooldown
:= 0;
2268 SetLength(Affected
, 0);
2271 // Óìåíüøàåì âðåìÿ äî âîçìîæíîñòè ïîâòîðíîé àêòèâàöèè:
2274 TimeOut
:= TimeOut
- 1;
2275 Continue
; // ×òîáû íå ïîòåðÿòü 1 åäèíèöó çàäåðæêè
2278 // Íèæå èäóò òèïû àêòèâàöèè, åñëè òðèããåð îòêëþ÷¸í - èä¸ì äàëüøå
2283 if ByteBool(ActivateType
and ACTIVATE_PLAYERCOLLIDE
) and
2285 if gPlayers
<> nil then
2286 for b
:= 0 to High(gPlayers
) do
2287 if gPlayers
[b
] <> nil then
2289 // Æèâ, åñòü íóæíûå êëþ÷è è îí ðÿäîì:
2290 if Live
and ((gTriggers
[a
].Keys
and GetKeys
) = gTriggers
[a
].Keys
) and
2291 Collide(X
, Y
, Width
, Height
) then
2293 gTriggers
[a
].ActivateUID
:= UID
;
2295 if (gTriggers
[a
].TriggerType
in [TRIGGER_SOUND
, TRIGGER_MUSIC
]) and
2297 { Don't activate sound/music again if player is here }
2299 ActivateTrigger(gTriggers
[a
], ACTIVATE_PLAYERCOLLIDE
);
2302 { TODO 5 : àêòèâàöèÿ ìîíñòðàìè òðèããåðîâ ñ êëþ÷àìè }
2304 if ByteBool(ActivateType
and ACTIVATE_MONSTERCOLLIDE
) and
2305 ByteBool(ActivateType
and ACTIVATE_NOMONSTER
) and
2306 (TimeOut
= 0) and (Keys
= 0) then
2308 // Åñëè "Ìîíñòð áëèçêî" è "Ìîíñòðîâ íåò",
2309 // çàïóñêàåì òðèããåð íà ñòàðòå êàðòû è ñíèìàåì îáà ôëàãà
2310 ActivateType
:= ActivateType
and not (ACTIVATE_MONSTERCOLLIDE
or ACTIVATE_NOMONSTER
);
2311 gTriggers
[a
].ActivateUID
:= 0;
2312 ActivateTrigger(gTriggers
[a
], 0);
2316 if ByteBool(ActivateType
and ACTIVATE_MONSTERCOLLIDE
) and
2317 (TimeOut
= 0) and (Keys
= 0) then // Åñëè íå íóæíû êëþ÷è
2318 if gMonsters
<> nil then
2319 for b
:= 0 to High(gMonsters
) do
2320 if (gMonsters
[b
] <> nil) then
2321 with gMonsters
[b
] do
2322 if Collide(X
, Y
, Width
, Height
) then
2324 gTriggers
[a
].ActivateUID
:= UID
;
2325 ActivateTrigger(gTriggers
[a
], ACTIVATE_MONSTERCOLLIDE
);
2329 if ByteBool(ActivateType
and ACTIVATE_NOMONSTER
) and
2330 (TimeOut
= 0) and (Keys
= 0) then
2331 if not g_CollideMonster(X
, Y
, Width
, Height
) then
2333 gTriggers
[a
].ActivateUID
:= 0;
2334 ActivateTrigger(gTriggers
[a
], ACTIVATE_NOMONSTER
);
2338 PlayerCollide
:= g_CollidePlayer(X
, Y
, Width
, Height
);
2342 procedure g_Triggers_Press(ID
: DWORD
; ActivateType
: Byte);
2344 gTriggers
[ID
].ActivateUID
:= 0;
2345 ActivateTrigger(gTriggers
[ID
], ActivateType
);
2348 function g_Triggers_PressR(X
, Y
: Integer; Width
, Height
: Word; UID
: Word;
2349 ActivateType
: Byte; IgnoreList
: DWArray
= nil): DWArray
;
2357 if gTriggers
= nil then Exit
;
2359 case g_GetUIDType(UID
) of
2363 p
:= g_Player_Get(UID
);
2372 for a
:= 0 to High(gTriggers
) do
2373 if (gTriggers
[a
].TriggerType
<> TRIGGER_NONE
) and
2374 (gTriggers
[a
].TimeOut
= 0) and
2375 (not InDWArray(a
, IgnoreList
)) and
2376 ((gTriggers
[a
].Keys
and k
) = gTriggers
[a
].Keys
) and
2377 ByteBool(gTriggers
[a
].ActivateType
and ActivateType
) then
2378 if g_Collide(X
, Y
, Width
, Height
,
2379 gTriggers
[a
].X
, gTriggers
[a
].Y
,
2380 gTriggers
[a
].Width
, gTriggers
[a
].Height
) then
2382 gTriggers
[a
].ActivateUID
:= UID
;
2383 if ActivateTrigger(gTriggers
[a
], ActivateType
) then
2385 SetLength(Result
, Length(Result
)+1);
2386 Result
[High(Result
)] := a
;
2391 procedure g_Triggers_PressL(X1
, Y1
, X2
, Y2
: Integer; UID
: DWORD
; ActivateType
: Byte);
2397 if gTriggers
= nil then Exit
;
2399 case g_GetUIDType(UID
) of
2403 p
:= g_Player_Get(UID
);
2412 for a
:= 0 to High(gTriggers
) do
2413 if (gTriggers
[a
].TriggerType
<> TRIGGER_NONE
) and
2414 (gTriggers
[a
].TimeOut
= 0) and
2415 ((gTriggers
[a
].Keys
and k
) = gTriggers
[a
].Keys
) and
2416 ByteBool(gTriggers
[a
].ActivateType
and ActivateType
) then
2417 if g_CollideLine(x1
, y1
, x2
, y2
, gTriggers
[a
].X
, gTriggers
[a
].Y
,
2418 gTriggers
[a
].Width
, gTriggers
[a
].Height
) then
2420 gTriggers
[a
].ActivateUID
:= UID
;
2421 ActivateTrigger(gTriggers
[a
], ActivateType
);
2425 procedure g_Triggers_PressC(CX
, CY
: Integer; Radius
: Word; UID
: Word; ActivateType
: Byte);
2432 if gTriggers
= nil then
2435 case g_GetUIDType(UID
) of
2439 p
:= g_Player_Get(UID
);
2448 rsq
:= Radius
* Radius
;
2450 for a
:= 0 to High(gTriggers
) do
2451 if (gTriggers
[a
].TriggerType
<> TRIGGER_NONE
) and
2452 (gTriggers
[a
].TimeOut
= 0) and
2453 ((gTriggers
[a
].Keys
and k
) = gTriggers
[a
].Keys
) and
2454 ByteBool(gTriggers
[a
].ActivateType
and ActivateType
) then
2455 with gTriggers
[a
] do
2456 if g_Collide(CX
-Radius
, CY
-Radius
, 2*Radius
, 2*Radius
,
2457 X
, Y
, Width
, Height
) then
2458 if ((Sqr(CX
-X
)+Sqr(CY
-Y
)) < rsq
) or // Öåíòð êðóãà áëèçîê ê âåðõíåìó ëåâîìó óãëó
2459 ((Sqr(CX
-X
-Width
)+Sqr(CY
-Y
)) < rsq
) or // Öåíòð êðóãà áëèçîê ê âåðõíåìó ïðàâîìó óãëó
2460 ((Sqr(CX
-X
-Width
)+Sqr(CY
-Y
-Height
)) < rsq
) or // Öåíòð êðóãà áëèçîê ê íèæíåìó ïðàâîìó óãëó
2461 ((Sqr(CX
-X
)+Sqr(CY
-Y
-Height
)) < rsq
) or // Öåíòð êðóãà áëèçîê ê íèæíåìó ëåâîìó óãëó
2462 ( (CX
> (X
-Radius
)) and (CX
< (X
+Width
+Radius
)) and
2463 (CY
> Y
) and (CY
< (Y
+Height
)) ) or // Öåíòð êðóãà íåäàëåêî îò âåðòèêàëüíûõ ãðàíèö ïðÿìîóãîëüíèêà
2464 ( (CY
> (Y
-Radius
)) and (CY
< (Y
+Height
+Radius
)) and
2465 (CX
> X
) and (CX
< (X
+Width
)) ) then // Öåíòð êðóãà íåäàëåêî îò ãîðèçîíòàëüíûõ ãðàíèö ïðÿìîóãîëüíèêà
2468 ActivateTrigger(gTriggers
[a
], ActivateType
);
2472 procedure g_Triggers_OpenAll();
2477 if gTriggers
= nil then Exit
;
2480 for a
:= 0 to High(gTriggers
) do
2481 with gTriggers
[a
] do
2482 if (TriggerType
= TRIGGER_OPENDOOR
) or
2483 (TriggerType
= TRIGGER_DOOR5
) or
2484 (TriggerType
= TRIGGER_DOOR
) then
2486 OpenDoor(Data
.PanelID
, True, Data
.d2d_doors
);
2487 if TriggerType
= TRIGGER_DOOR5
then DoorTime
:= 180;
2491 if b
then g_Sound_PlayEx('SOUND_GAME_DOOROPEN');
2494 procedure g_Triggers_DecreaseSpawner(ID
: DWORD
);
2496 if (gTriggers
<> nil) then
2497 if gTriggers
[ID
].SpawnedCount
> 0 then
2498 Dec(gTriggers
[ID
].SpawnedCount
);
2501 procedure g_Triggers_Free();
2505 if gTriggers
<> nil then
2506 for a
:= 0 to High(gTriggers
) do
2508 if gTriggers
[a
].TriggerType
= TRIGGER_SOUND
then
2510 if g_Sound_Exists(gTriggers
[a
].Data
.SoundName
) then
2511 g_Sound_Delete(gTriggers
[a
].Data
.SoundName
);
2513 gTriggers
[a
].Sound
.Free();
2515 if gTriggers
[a
].Activators
<> nil then
2516 SetLength(gTriggers
[a
].Activators
, 0);
2521 SetLength(gMonstersSpawned
, 0);
2524 procedure g_Triggers_SaveState(var Mem
: TBinMemoryWriter
);
2526 count
, act_count
, i
, j
: Integer;
2532 // Ñ÷èòàåì êîëè÷åñòâî ñóùåñòâóþùèõ òðèããåðîâ:
2534 if gTriggers
<> nil then
2535 for i
:= 0 to High(gTriggers
) do
2538 Mem
:= TBinMemoryWriter
.Create((count
+1) * 200);
2540 // Êîëè÷åñòâî òðèããåðîâ:
2541 Mem
.WriteInt(count
);
2546 for i
:= 0 to High(gTriggers
) do
2548 // Ñèãíàòóðà òðèããåðà:
2549 dw
:= TRIGGER_SIGNATURE
; // 'TRGR'
2552 Mem
.WriteByte(gTriggers
[i
].TriggerType
);
2553 // Ñïåöèàëüíûå äàííûå òðèããåðà:
2554 p
:= @gTriggers
[i
].Data
;
2555 Mem
.WriteMemory(p
, SizeOf(TTriggerData
));
2556 // Êîîðäèíàòû ëåâîãî âåðõíåãî óãëà:
2557 Mem
.WriteInt(gTriggers
[i
].X
);
2558 Mem
.WriteInt(gTriggers
[i
].Y
);
2560 Mem
.WriteWord(gTriggers
[i
].Width
);
2561 Mem
.WriteWord(gTriggers
[i
].Height
);
2562 // Âêëþ÷åí ëè òðèããåð:
2563 Mem
.WriteBoolean(gTriggers
[i
].Enabled
);
2564 // Òèï àêòèâàöèè òðèããåðà:
2565 Mem
.WriteByte(gTriggers
[i
].ActivateType
);
2566 // Êëþ÷è, íåîáõîäèìûå äëÿ àêòèâàöèè:
2567 Mem
.WriteByte(gTriggers
[i
].Keys
);
2568 // ID ïàíåëè, òåêñòóðà êîòîðîé èçìåíèòñÿ:
2569 Mem
.WriteInt(gTriggers
[i
].TexturePanel
);
2571 Mem
.WriteWord(gTriggers
[i
].TexturePanelType
);
2572 // Âðåìÿ äî âîçìîæíîñòè àêòèâàöèè:
2573 Mem
.WriteWord(gTriggers
[i
].TimeOut
);
2574 // UID òîãî, êòî àêòèâèðîâàë ýòîò òðèããåð:
2575 Mem
.WriteWord(gTriggers
[i
].ActivateUID
);
2576 // Ñïèñîê UID-îâ îáúåêòîâ, êîòîðûå íàõîäèëèñü ïîä âîçäåéñòâèåì:
2577 act_count
:= Length(gTriggers
[i
].Activators
);
2578 Mem
.WriteInt(act_count
);
2579 for j
:= 0 to act_count
-1 do
2582 Mem
.WriteWord(gTriggers
[i
].Activators
[j
].UID
);
2584 Mem
.WriteWord(gTriggers
[i
].Activators
[j
].TimeOut
);
2586 // Ñòîèò ëè èãðîê â îáëàñòè òðèããåðà:
2587 Mem
.WriteBoolean(gTriggers
[i
].PlayerCollide
);
2588 // Âðåìÿ äî çàêðûòèÿ äâåðè:
2589 Mem
.WriteInt(gTriggers
[i
].DoorTime
);
2590 // Çàäåðæêà àêòèâàöèè:
2591 Mem
.WriteInt(gTriggers
[i
].PressTime
);
2593 Mem
.WriteInt(gTriggers
[i
].PressCount
);
2595 Mem
.WriteBoolean(gTriggers
[i
].AutoSpawn
);
2596 // Çàäåðæêà ñïàâíåðà:
2597 Mem
.WriteInt(gTriggers
[i
].SpawnCooldown
);
2598 // Ñ÷åò÷èê ñîçäàíèÿ îáúåêòîâ:
2599 Mem
.WriteInt(gTriggers
[i
].SpawnedCount
);
2600 // Ñêîëüêî ðàç ïðîèãðàí çâóê:
2601 Mem
.WriteInt(gTriggers
[i
].SoundPlayCount
);
2602 // Ïðîèãðûâàåòñÿ ëè çâóê?
2603 if gTriggers
[i
].Sound
<> nil then
2604 b
:= gTriggers
[i
].Sound
.IsPlaying()
2607 Mem
.WriteBoolean(b
);
2610 // Ïîçèöèÿ ïðîèãðûâàíèÿ çâóêà:
2611 dw
:= gTriggers
[i
].Sound
.GetPosition();
2614 sg
:= gTriggers
[i
].Sound
.GetVolume();
2615 sg
:= sg
/ (gSoundLevel
/255.0);
2616 Mem
.WriteSingle(sg
);
2617 // Ñòåðåî ñìåùåíèå çâóêà:
2618 sg
:= gTriggers
[i
].Sound
.GetPan();
2619 Mem
.WriteSingle(sg
);
2624 procedure g_Triggers_LoadState(var Mem
: TBinMemoryReader
);
2626 count
, act_count
, i
, j
, a
: Integer;
2638 // Êîëè÷åñòâî òðèããåðîâ:
2644 for a
:= 0 to count
-1 do
2646 // Ñèãíàòóðà òðèããåðà:
2648 if dw
<> TRIGGER_SIGNATURE
then // 'TRGR'
2650 raise EBinSizeError
.Create('g_Triggers_LoadState: Wrong Trigger Signature');
2653 Mem
.ReadByte(Trig
.TriggerType
);
2654 // Ñïåöèàëüíûå äàííûå òðèããåðà:
2655 Mem
.ReadMemory(p
, dw
);
2656 if dw
<> SizeOf(TTriggerData
) then
2658 raise EBinSizeError
.Create('g_Triggers_LoadState: Wrong TriggerData Size');
2660 Trig
.Data
:= TTriggerData(p
^);
2662 i
:= g_Triggers_Create(Trig
);
2663 // Êîîðäèíàòû ëåâîãî âåðõíåãî óãëà:
2664 Mem
.ReadInt(gTriggers
[i
].X
);
2665 Mem
.ReadInt(gTriggers
[i
].Y
);
2667 Mem
.ReadWord(gTriggers
[i
].Width
);
2668 Mem
.ReadWord(gTriggers
[i
].Height
);
2669 // Âêëþ÷åí ëè òðèããåð:
2670 Mem
.ReadBoolean(gTriggers
[i
].Enabled
);
2671 // Òèï àêòèâàöèè òðèããåðà:
2672 Mem
.ReadByte(gTriggers
[i
].ActivateType
);
2673 // Êëþ÷è, íåîáõîäèìûå äëÿ àêòèâàöèè:
2674 Mem
.ReadByte(gTriggers
[i
].Keys
);
2675 // ID ïàíåëè, òåêñòóðà êîòîðîé èçìåíèòñÿ:
2676 Mem
.ReadInt(gTriggers
[i
].TexturePanel
);
2678 Mem
.ReadWord(gTriggers
[i
].TexturePanelType
);
2679 // Âðåìÿ äî âîçìîæíîñòè àêòèâàöèè:
2680 Mem
.ReadWord(gTriggers
[i
].TimeOut
);
2681 // UID òîãî, êòî àêòèâèðîâàë ýòîò òðèããåð:
2682 Mem
.ReadWord(gTriggers
[i
].ActivateUID
);
2683 // Ñïèñîê UID-îâ îáúåêòîâ, êîòîðûå íàõîäèëèñü ïîä âîçäåéñòâèåì:
2684 Mem
.ReadInt(act_count
);
2685 if act_count
> 0 then
2687 SetLength(gTriggers
[i
].Activators
, act_count
);
2688 for j
:= 0 to act_count
-1 do
2691 Mem
.ReadWord(gTriggers
[i
].Activators
[j
].UID
);
2693 Mem
.ReadWord(gTriggers
[i
].Activators
[j
].TimeOut
);
2696 // Ñòîèò ëè èãðîê â îáëàñòè òðèããåðà:
2697 Mem
.ReadBoolean(gTriggers
[i
].PlayerCollide
);
2698 // Âðåìÿ äî çàêðûòèÿ äâåðè:
2699 Mem
.ReadInt(gTriggers
[i
].DoorTime
);
2700 // Çàäåðæêà àêòèâàöèè:
2701 Mem
.ReadInt(gTriggers
[i
].PressTime
);
2703 Mem
.ReadInt(gTriggers
[i
].PressCount
);
2705 Mem
.ReadBoolean(gTriggers
[i
].AutoSpawn
);
2706 // Çàäåðæêà ñïàâíåðà:
2707 Mem
.ReadInt(gTriggers
[i
].SpawnCooldown
);
2708 // Ñ÷åò÷èê ñîçäàíèÿ îáúåêòîâ:
2709 Mem
.ReadInt(gTriggers
[i
].SpawnedCount
);
2710 // Ñêîëüêî ðàç ïðîèãðàí çâóê:
2711 Mem
.ReadInt(gTriggers
[i
].SoundPlayCount
);
2712 // Ïðîèãðûâàåòñÿ ëè çâóê?
2716 // Ïîçèöèÿ ïðîèãðûâàíèÿ çâóêà:
2719 Mem
.ReadSingle(vol
);
2720 // Ñòåðåî ñìåùåíèå çâóêà:
2721 Mem
.ReadSingle(pan
);
2722 // Çàïóñêàåì çâóê, åñëè åñòü:
2723 if gTriggers
[i
].Sound
<> nil then
2725 gTriggers
[i
].Sound
.PlayPanVolume(pan
, vol
);
2726 gTriggers
[i
].Sound
.Pause(True);
2727 gTriggers
[i
].Sound
.SetPosition(dw
);