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
;
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');
213 with gWalls
[PanelID
] do
215 if gPlayers
<> nil then
216 for a
:= 0 to High(gPlayers
) do
217 if (gPlayers
[a
] <> nil) and gPlayers
[a
].Live
and
218 gPlayers
[a
].Collide(X
, Y
, Width
, Height
) then
219 gPlayers
[a
].Damage(TRAP_DAMAGE
, 0, 0, 0, HIT_TRAP
);
221 if gMonsters
<> nil then
222 for a
:= 0 to High(gMonsters
) do
223 if (gMonsters
[a
] <> nil) and gMonsters
[a
].Live
and
224 g_Obj_Collide(X
, Y
, Width
, Height
, @gMonsters
[a
].Obj
) then
225 gMonsters
[a
].Damage(TRAP_DAMAGE
, 0, 0, 0, HIT_TRAP
);
227 if not Enabled
then g_Map_EnableWall(PanelID
);
232 if gDoorMap
= nil then Exit
;
235 for a
:= 0 to High(gDoorMap
) do
237 for b
:= 0 to High(gDoorMap
[a
]) do
238 if gDoorMap
[a
, b
] = DWORD(PanelID
) then
244 if c
<> -1 then Break
;
249 for b
:= 0 to High(gDoorMap
[c
]) do
250 if not gWalls
[gDoorMap
[c
, b
]].Enabled
then
252 with gWalls
[PanelID
] do
254 g_Sound_PlayExAt('SOUND_GAME_SWITCH1', X
, Y
);
255 if g_Game_IsServer
and g_Game_IsNet
then
256 MH_SEND_Sound(X
, Y
, 'SOUND_GAME_SWITCH1');
261 for b
:= 0 to High(gDoorMap
[c
]) do
262 with gWalls
[gDoorMap
[c
, b
]] do
264 if gPlayers
<> nil then
265 for a
:= 0 to High(gPlayers
) do
266 if (gPlayers
[a
] <> nil) and gPlayers
[a
].Live
and
267 gPlayers
[a
].Collide(X
, Y
, Width
, Height
) then
268 gPlayers
[a
].Damage(TRAP_DAMAGE
, 0, 0, 0, HIT_TRAP
);
270 if gMonsters
<> nil then
271 for a
:= 0 to High(gMonsters
) do
272 if (gMonsters
[a
] <> nil) and gMonsters
[a
].Live
and
273 g_Obj_Collide(X
, Y
, Width
, Height
, @gMonsters
[a
].Obj
) then
274 gMonsters
[a
].Damage(TRAP_DAMAGE
, 0, 0, 0, HIT_TRAP
);
276 if not Enabled
then g_Map_EnableWall(gDoorMap
[c
, b
]);
281 function OpenDoor(PanelID
: Integer; NoSound
: Boolean; d2d
: Boolean): Boolean;
287 if PanelID
= -1 then Exit
;
291 with gWalls
[PanelID
] do
296 g_Sound_PlayExAt('SOUND_GAME_DOOROPEN', X
, Y
);
297 if g_Game_IsServer
and g_Game_IsNet
then
298 MH_SEND_Sound(X
, Y
, 'SOUND_GAME_DOOROPEN');
300 g_Map_DisableWall(PanelID
);
306 if gDoorMap
= nil then Exit
;
309 for a
:= 0 to High(gDoorMap
) do
311 for b
:= 0 to High(gDoorMap
[a
]) do
312 if gDoorMap
[a
, b
] = DWORD(PanelID
) then
318 if c
<> -1 then Break
;
323 for b
:= 0 to High(gDoorMap
[c
]) do
324 if gWalls
[gDoorMap
[c
, b
]].Enabled
then
326 with gWalls
[PanelID
] do
328 g_Sound_PlayExAt('SOUND_GAME_DOOROPEN', X
, Y
);
329 if g_Game_IsServer
and g_Game_IsNet
then
330 MH_SEND_Sound(X
, Y
, 'SOUND_GAME_DOOROPEN');
335 for b
:= 0 to High(gDoorMap
[c
]) do
336 if gWalls
[gDoorMap
[c
, b
]].Enabled
then
338 g_Map_DisableWall(gDoorMap
[c
, b
]);
344 function SetLift(PanelID
: Integer; d
: Integer; NoSound
: Boolean; d2d
: Boolean): Boolean;
351 if PanelID
= -1 then Exit
;
353 if (gLifts
[PanelID
].PanelType
= PANEL_LIFTUP
) or
354 (gLifts
[PanelID
].PanelType
= PANEL_LIFTDOWN
) then
358 else t
:= IfThen(gLifts
[PanelID
].LiftType
= 1, 0, 1);
360 else if (gLifts
[PanelID
].PanelType
= PANEL_LIFTLEFT
) or
361 (gLifts
[PanelID
].PanelType
= PANEL_LIFTRIGHT
) then
365 else t
:= IfThen(gLifts
[PanelID
].LiftType
= 2, 3, 2);
370 with gLifts
[PanelID
] do
371 if LiftType
<> t
then
373 g_Map_SetLift(PanelID
, t
);
376 g_Sound_PlayExAt('SOUND_GAME_SWITCH0', X, Y);}
382 if gLiftMap
= nil then Exit
;
385 for a
:= 0 to High(gLiftMap
) do
387 for b
:= 0 to High(gLiftMap
[a
]) do
388 if gLiftMap
[a
, b
] = DWORD(PanelID
) then
394 if c
<> -1 then Break
;
399 for b := 0 to High(gLiftMap[c]) do
400 if gLifts[gLiftMap[c, b]].LiftType <> t then
402 with gLifts[PanelID] do
403 g_Sound_PlayExAt('SOUND_GAME_SWITCH0', X, Y);
407 for b
:= 0 to High(gLiftMap
[c
]) do
408 with gLifts
[gLiftMap
[c
, b
]] do
409 if LiftType
<> t
then
411 g_Map_SetLift(gLiftMap
[c
, b
], t
);
418 procedure MakeShot(var Trigger
: TTrigger
; wx
, wy
, dx
, dy
: Integer; TargetUID
: Word);
426 if (Data
.ShotAmmo
= 0) or
427 ((Data
.ShotAmmo
> 0) and (ShotAmmoCount
> 0)) then
429 if (Data
.ShotPanelID
<> -1) and (ShotPanelTime
= 0) then
431 g_Map_SwitchTexture(ShotPanelType
, Data
.ShotPanelID
);
432 ShotPanelTime
:= 4; // òèêîâ íà âñïûøêó âûñòðåëà
435 if Data
.ShotIntSight
> 0 then
436 ShotSightTimeout
:= 180; // ~= 5 ñåêóíä
438 if ShotAmmoCount
> 0 then Dec(ShotAmmoCount
);
440 snd
:= 'SOUND_WEAPON_FIREROCKET';
442 dx
:= dx
+ Random(Data
.ShotAccuracy
) - Random(Data
.ShotAccuracy
);
443 dy
:= dy
+ Random(Data
.ShotAccuracy
) - Random(Data
.ShotAccuracy
);
445 case Data
.ShotType
of
448 g_Weapon_pistol(wx
, wy
, dx
, dy
, 0, True);
450 snd
:= 'SOUND_WEAPON_FIREPISTOL';
451 if Data
.ShotSound
then
453 g_Player_CreateShell(wx
, wy
, 0, -2, SHELL_BULLET
);
455 MH_SEND_Effect(wx
, wy
, 0, NET_GFX_SHELL1
);
461 g_Weapon_mgun(wx
, wy
, dx
, dy
, 0, True);
463 if gSoundEffectsDF
then snd
:= 'SOUND_WEAPON_FIRECGUN'
464 else snd
:= 'SOUND_WEAPON_FIREPISTOL';
465 if Data
.ShotSound
then
467 g_Player_CreateShell(wx
, wy
, 0, -2, SHELL_BULLET
);
469 MH_SEND_Effect(wx
, wy
, 0, NET_GFX_SHELL1
);
473 TRIGGER_SHOT_SHOTGUN
:
475 g_Weapon_Shotgun(wx
, wy
, dx
, dy
, 0, True);
477 snd
:= 'SOUND_WEAPON_FIRESHOTGUN';
478 if Data
.ShotSound
then
480 g_Player_CreateShell(wx
, wy
, 0, -2, SHELL_SHELL
);
482 MH_SEND_Effect(wx
, wy
, 0, NET_GFX_SHELL2
);
488 g_Weapon_DShotgun(wx
, wy
, dx
, dy
, 0, True);
490 snd
:= 'SOUND_WEAPON_FIRESHOTGUN2';
491 if Data
.ShotSound
then
493 g_Player_CreateShell(wx
, wy
, 0, -2, SHELL_SHELL
);
494 g_Player_CreateShell(wx
, wy
, 0, -2, SHELL_SHELL
);
496 MH_SEND_Effect(wx
, wy
, 0, NET_GFX_SHELL3
);
502 g_Weapon_ball1(wx
, wy
, dx
, dy
, 0, -1, True);
503 snd
:= 'SOUND_WEAPON_FIREBALL';
508 g_Weapon_Plasma(wx
, wy
, dx
, dy
, 0, -1, True);
509 snd
:= 'SOUND_WEAPON_FIREPLASMA';
514 g_Weapon_aplasma(wx
, wy
, dx
, dy
, 0, -1, True);
515 snd
:= 'SOUND_WEAPON_FIREPLASMA';
520 g_Weapon_ball2(wx
, wy
, dx
, dy
, 0, -1, True);
521 snd
:= 'SOUND_WEAPON_FIREBALL';
526 g_Weapon_ball7(wx
, wy
, dx
, dy
, 0, -1, True);
527 snd
:= 'SOUND_WEAPON_FIREBALL';
532 g_Weapon_manfire(wx
, wy
, dx
, dy
, 0, -1, True);
533 snd
:= 'SOUND_WEAPON_FIREBALL';
538 g_Weapon_revf(wx
, wy
, dx
, dy
, 0, TargetUID
, -1, True);
539 snd
:= 'SOUND_WEAPON_FIREREV';
544 g_Weapon_Rocket(wx
, wy
, dx
, dy
, 0, -1, True);
545 snd
:= 'SOUND_WEAPON_FIREROCKET';
550 g_Weapon_BFGShot(wx
, wy
, dx
, dy
, 0, -1, True);
551 snd
:= 'SOUND_WEAPON_FIREBFG';
556 if g_Frames_Get(TextureID
, 'FRAMES_EXPLODE_ROCKET') then
558 Anim
:= TAnimation
.Create(TextureID
, False, 6);
559 Anim
.Blending
:= False;
560 g_GFX_OnceAnim(wx
-64, wy
-64, Anim
);
564 g_Weapon_Explode(wx
, wy
, 60, 0);
565 snd
:= 'SOUND_WEAPON_EXPLODEROCKET';
568 TRIGGER_SHOT_BFGEXPL
:
570 if g_Frames_Get(TextureID
, 'FRAMES_EXPLODE_BFG') then
572 Anim
:= TAnimation
.Create(TextureID
, False, 6);
573 Anim
.Blending
:= False;
574 g_GFX_OnceAnim(wx
-64, wy
-64, Anim
);
578 g_Weapon_BFG9000(wx
, wy
, 0);
579 snd
:= 'SOUND_WEAPON_EXPLODEBFG';
583 if g_Game_IsNet
and g_Game_IsServer
then
584 case Data
.ShotType
of
586 MH_SEND_Effect(wx
, wy
, Byte(Data
.ShotSound
), NET_GFX_EXPLODE
);
587 TRIGGER_SHOT_BFGEXPL
:
588 MH_SEND_Effect(wx
, wy
, Byte(Data
.ShotSound
), NET_GFX_BFGEXPL
);
592 MH_SEND_CreateShot(LastShotID
);
593 if Data
.ShotSound
then
594 MH_SEND_Sound(wx
, wy
, snd
);
598 if Data
.ShotSound
then
599 g_Sound_PlayExAt(snd
, wx
, wy
);
602 if (Data
.ShotIntReload
> 0) and (ShotReloadTime
= 0) then
603 ShotReloadTime
:= Data
.ShotIntReload
; // òèêîâ íà ïåðåçàðÿäêó ïóøêè
606 procedure MakeEffect(X
, Y
, VX
, VY
: Integer; T
, ST
, CR
, CG
, CB
: Byte; Silent
, Send
: Boolean);
611 if T
= TRIGGER_EFFECT_PARTICLE
then
613 TRIGGER_EFFECT_SLIQUID
:
615 if (CR
= 255) and (CG
= 0) and (CB
= 0) then
616 g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 1, 0, 0, 0)
617 else if (CR
= 0) and (CG
= 255) and (CB
= 0) then
618 g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 2, 0, 0, 0)
619 else if (CR
= 0) and (CG
= 0) and (CB
= 255) then
620 g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 3, 0, 0, 0)
622 g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 0, 0, 0, 0);
624 TRIGGER_EFFECT_LLIQUID
:
625 g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 4, CR
, CG
, CB
);
626 TRIGGER_EFFECT_DLIQUID
:
627 g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 5, CR
, CG
, CB
);
628 TRIGGER_EFFECT_BLOOD
:
629 g_GFX_Blood(X
, Y
, 1, VX
, VY
, 0, 0, CR
, CG
, CB
);
630 TRIGGER_EFFECT_SPARK
:
631 g_GFX_Spark(X
, Y
, 1, GetAngle2(VX
, VY
), 0, 0);
632 TRIGGER_EFFECT_BUBBLE
:
633 g_GFX_Bubbles(X
, Y
, 1, 0, 0);
635 if T
= TRIGGER_EFFECT_ANIMATION
then
637 EFFECT_TELEPORT
: begin
638 if g_Frames_Get(FramesID
, 'FRAMES_TELEPORT') then
640 Anim
:= TAnimation
.Create(FramesID
, False, 3);
642 g_Sound_PlayExAt('SOUND_GAME_TELEPORT', X
, Y
);
643 g_GFX_OnceAnim(X
-32, Y
-32, Anim
);
646 if Send
and g_Game_IsServer
and g_Game_IsNet
then
647 MH_SEND_Effect(X
, Y
, Byte(not Silent
), NET_GFX_TELE
);
649 EFFECT_RESPAWN
: begin
650 if g_Frames_Get(FramesID
, 'FRAMES_ITEM_RESPAWN') then
652 Anim
:= TAnimation
.Create(FramesID
, False, 4);
654 g_Sound_PlayExAt('SOUND_ITEM_RESPAWNITEM', X
, Y
);
655 g_GFX_OnceAnim(X
-16, Y
-16, Anim
);
658 if Send
and g_Game_IsServer
and g_Game_IsNet
then
659 MH_SEND_Effect(X
-16, Y
-16, Byte(not Silent
), NET_GFX_RESPAWN
);
662 if g_Frames_Get(FramesID
, 'FRAMES_FIRE') then
664 Anim
:= TAnimation
.Create(FramesID
, False, 4);
666 g_Sound_PlayExAt('SOUND_FIRE', X
, Y
);
667 g_GFX_OnceAnim(X
-32, Y
-128, Anim
);
670 if Send
and g_Game_IsServer
and g_Game_IsNet
then
671 MH_SEND_Effect(X
-32, Y
-128, Byte(not Silent
), NET_GFX_FIRE
);
676 function ActivateTrigger(var Trigger
: TTrigger
; actType
: Byte): Boolean;
681 i
, k
, wx
, wy
, xd
, yd
: Integer;
692 if g_Game_IsClient
then
695 if not Trigger
.Enabled
then
697 if (Trigger
.TimeOut
<> 0) and (actType
<> ACTIVATE_CUSTOM
) then
699 if gLMSRespawn
= LMS_RESPAWN_WARMUP
then
704 coolDown
:= (actType
<> 0);
711 g_Sound_PlayEx('SOUND_GAME_SWITCH0');
712 if g_Game_IsNet
then MH_SEND_Sound(X
, Y
, 'SOUND_GAME_SWITCH0');
713 gExitByTrigger
:= True;
714 g_Game_ExitLevel(Data
.MapName
);
723 case g_GetUIDType(ActivateUID
) of
726 p
:= g_Player_Get(ActivateUID
);
730 if Data
.d2d_teleport
then
732 if p
.TeleportTo(Data
.TargetPoint
.X
-(p
.Obj
.Rect
.Width
div 2),
733 Data
.TargetPoint
.Y
-p
.Obj
.Rect
.Height
,
734 Data
.silent_teleport
,
739 if p
.TeleportTo(Data
.TargetPoint
.X
,
741 Data
.silent_teleport
,
748 m
:= g_Monsters_Get(ActivateUID
);
752 if Data
.d2d_teleport
then
754 if m
.TeleportTo(Data
.TargetPoint
.X
-(m
.Obj
.Rect
.Width
div 2),
755 Data
.TargetPoint
.Y
-m
.Obj
.Rect
.Height
,
756 Data
.silent_teleport
,
761 if m
.TeleportTo(Data
.TargetPoint
.X
,
763 Data
.silent_teleport
,
774 Result
:= OpenDoor(Data
.PanelID
, Data
.NoSound
, Data
.d2d_doors
);
780 Result
:= CloseDoor(Data
.PanelID
, Data
.NoSound
, Data
.d2d_doors
);
784 TRIGGER_DOOR
, TRIGGER_DOOR5
:
786 if Data
.PanelID
<> -1 then
788 if gWalls
[Data
.PanelID
].Enabled
then
790 Result
:= OpenDoor(Data
.PanelID
, Data
.NoSound
, Data
.d2d_doors
);
792 if TriggerType
= TRIGGER_DOOR5
then
796 Result
:= CloseDoor(Data
.PanelID
, Data
.NoSound
, Data
.d2d_doors
);
803 TRIGGER_CLOSETRAP
, TRIGGER_TRAP
:
805 CloseTrap(Data
.PanelID
, Data
.NoSound
, Data
.d2d_doors
);
807 if TriggerType
= TRIGGER_TRAP
then
821 TRIGGER_PRESS
, TRIGGER_ON
, TRIGGER_OFF
, TRIGGER_ONOFF
:
823 PressCount
:= PressCount
+ 1;
825 if PressTime
= -1 then
826 PressTime
:= Data
.Wait
;
836 if g_GetUIDType(ActivateUID
) = UID_PLAYER
then
840 if gLMSRespawn
= LMS_RESPAWN_NONE
then
842 g_Player_Get(ActivateUID
).GetSecret();
843 Inc(gCoopSecretsFound
);
844 if g_Game_IsNet
then MH_SEND_GameStats();
850 Result
:= SetLift(Data
.PanelID
, 0, Data
.NoSound
, Data
.d2d_doors
);
853 if (not Data
.NoSound
) and Result
then begin
854 g_Sound_PlayExAt('SOUND_GAME_SWITCH0',
857 if g_Game_IsServer
and g_Game_IsNet
then
858 MH_SEND_Sound(X
+ (Width
div 2),
860 'SOUND_GAME_SWITCH0');
866 Result
:= SetLift(Data
.PanelID
, 1, Data
.NoSound
, Data
.d2d_doors
);
869 if (not Data
.NoSound
) and Result
then begin
870 g_Sound_PlayExAt('SOUND_GAME_SWITCH0',
873 if g_Game_IsServer
and g_Game_IsNet
then
874 MH_SEND_Sound(X
+ (Width
div 2),
876 'SOUND_GAME_SWITCH0');
882 Result
:= SetLift(Data
.PanelID
, 3, Data
.NoSound
, Data
.d2d_doors
);
888 if (not Data
.NoSound
) and Result
then begin
889 g_Sound_PlayExAt('SOUND_GAME_SWITCH0',
892 if g_Game_IsServer
and g_Game_IsNet
then
893 MH_SEND_Sound(X
+ (Width
div 2),
895 'SOUND_GAME_SWITCH0');
902 if ByteBool(Data
.ActivateOnce
) then
905 TriggerType
:= TRIGGER_NONE
;
913 animonce
:= Data
.AnimOnce
;
921 if Data
.SoundSwitch
and Sound
.IsPlaying() then
922 begin // Íóæíî âûêëþ÷èòü, åñëè èãðàë
927 else // (not Data.SoundSwitch) or (not Sound.IsPlaying())
928 if (Data
.PlayCount
> 0) or (not Sound
.IsPlaying()) then
930 if Data
.PlayCount
> 0 then
931 SoundPlayCount
:= Data
.PlayCount
932 else // 0 - èãðàåì áåñêîíå÷íî
936 if g_Game_IsNet
then MH_SEND_TriggerSound(Trigger
);
940 TRIGGER_SPAWNMONSTER
:
941 if (Data
.MonType
in [MONSTER_DEMON
..MONSTER_MAN
]) then
944 if (Data
.MonDelay
> 0) and (actType
<> ACTIVATE_CUSTOM
) then
946 AutoSpawn
:= not AutoSpawn
;
948 // Àâòîñïàâíåð ïåðåêëþ÷åí - ìåíÿåì òåêñòóðó
952 if ((Data
.MonDelay
= 0) and (actType
<> ACTIVATE_CUSTOM
))
953 or ((Data
.MonDelay
> 0) and (actType
= ACTIVATE_CUSTOM
)) then
954 for k
:= 1 to Data
.MonCount
do
956 if (actType
= ACTIVATE_CUSTOM
) and (Data
.MonDelay
> 0) then
957 SpawnCooldown
:= Data
.MonDelay
;
958 if (Data
.MonMax
> 0) and (SpawnedCount
>= Data
.MonMax
) then
961 i
:= g_Monsters_Create(Data
.MonType
,
962 Data
.MonPos
.X
, Data
.MonPos
.Y
,
963 TDirection(Data
.MonDir
), True);
968 if (Data
.MonHealth
> 0) then
969 gMonsters
[i
].SetHealth(Data
.MonHealth
);
970 // Óñòàíàâëèâàåì ïîâåäåíèå:
971 gMonsters
[i
].MonsterBehaviour
:= Data
.MonBehav
;
972 // Èäåì èñêàòü öåëü, åñëè íàäî:
973 if Data
.MonActive
then
974 gMonsters
[i
].WakeUp();
975 gMonsters
[i
].FNoRespawn
:= True;
977 if Data
.MonType
<> MONSTER_BARREL
then Inc(gTotalMonsters
);
981 SetLength(gMonstersSpawned
, Length(gMonstersSpawned
)+1);
982 gMonstersSpawned
[High(gMonstersSpawned
)] := gMonsters
[i
].UID
;
985 if Data
.MonMax
> 0 then
987 gMonsters
[i
].SpawnTrigger
:= ID
;
991 case Data
.MonEffect
of
992 EFFECT_TELEPORT
: begin
993 if g_Frames_Get(FramesID
, 'FRAMES_TELEPORT') then
995 Anim
:= TAnimation
.Create(FramesID
, False, 3);
996 g_Sound_PlayExAt('SOUND_GAME_TELEPORT', Data
.MonPos
.X
, Data
.MonPos
.Y
);
997 g_GFX_OnceAnim(gMonsters
[i
].Obj
.X
+gMonsters
[i
].Obj
.Rect
.X
+(gMonsters
[i
].Obj
.Rect
.Width
div 2)-32,
998 gMonsters
[i
].Obj
.Y
+gMonsters
[i
].Obj
.Rect
.Y
+(gMonsters
[i
].Obj
.Rect
.Height
div 2)-32, Anim
);
1001 if g_Game_IsServer
and g_Game_IsNet
then
1002 MH_SEND_Effect(gMonsters
[i
].Obj
.X
+gMonsters
[i
].Obj
.Rect
.X
+(gMonsters
[i
].Obj
.Rect
.Width
div 2)-32,
1003 gMonsters
[i
].Obj
.Y
+gMonsters
[i
].Obj
.Rect
.Y
+(gMonsters
[i
].Obj
.Rect
.Height
div 2)-32, 1,
1006 EFFECT_RESPAWN
: begin
1007 if g_Frames_Get(FramesID
, 'FRAMES_ITEM_RESPAWN') then
1009 Anim
:= TAnimation
.Create(FramesID
, False, 4);
1010 g_Sound_PlayExAt('SOUND_ITEM_RESPAWNITEM', Data
.MonPos
.X
, Data
.MonPos
.Y
);
1011 g_GFX_OnceAnim(gMonsters
[i
].Obj
.X
+gMonsters
[i
].Obj
.Rect
.X
+(gMonsters
[i
].Obj
.Rect
.Width
div 2)-16,
1012 gMonsters
[i
].Obj
.Y
+gMonsters
[i
].Obj
.Rect
.Y
+(gMonsters
[i
].Obj
.Rect
.Height
div 2)-16, Anim
);
1015 if g_Game_IsServer
and g_Game_IsNet
then
1016 MH_SEND_Effect(gMonsters
[i
].Obj
.X
+gMonsters
[i
].Obj
.Rect
.X
+(gMonsters
[i
].Obj
.Rect
.Width
div 2)-16,
1017 gMonsters
[i
].Obj
.Y
+gMonsters
[i
].Obj
.Rect
.Y
+(gMonsters
[i
].Obj
.Rect
.Height
div 2)-16, 1,
1021 if g_Frames_Get(FramesID
, 'FRAMES_FIRE') then
1023 Anim
:= TAnimation
.Create(FramesID
, False, 4);
1024 g_Sound_PlayExAt('SOUND_FIRE', Data
.MonPos
.X
, Data
.MonPos
.Y
);
1025 g_GFX_OnceAnim(gMonsters
[i
].Obj
.X
+gMonsters
[i
].Obj
.Rect
.X
+(gMonsters
[i
].Obj
.Rect
.Width
div 2)-32,
1026 gMonsters
[i
].Obj
.Y
+gMonsters
[i
].Obj
.Rect
.Y
+gMonsters
[i
].Obj
.Rect
.Height
-128, Anim
);
1029 if g_Game_IsServer
and g_Game_IsNet
then
1030 MH_SEND_Effect(gMonsters
[i
].Obj
.X
+gMonsters
[i
].Obj
.Rect
.X
+(gMonsters
[i
].Obj
.Rect
.Width
div 2)-32,
1031 gMonsters
[i
].Obj
.Y
+gMonsters
[i
].Obj
.Rect
.Y
+gMonsters
[i
].Obj
.Rect
.Height
-128, 1,
1036 if g_Game_IsNet
then
1037 MH_SEND_MonsterSpawn(gMonsters
[i
].UID
);
1039 if g_Game_IsNet
then
1041 MH_SEND_GameStats();
1042 MH_SEND_CoopStats();
1049 // Åñëè àêòèâèðîâàí àâòîñïàâíåðîì, íå ìåíÿåì òåêñòóðó
1050 if actType
= ACTIVATE_CUSTOM
then
1055 if (Data
.ItemType
in [ITEM_MEDKIT_SMALL
..ITEM_MAX
]) then
1058 if (Data
.ItemDelay
> 0) and (actType
<> ACTIVATE_CUSTOM
) then
1060 AutoSpawn
:= not AutoSpawn
;
1062 // Àâòîñïàâíåð ïåðåêëþ÷åí - ìåíÿåì òåêñòóðó
1066 if ((Data
.ItemDelay
= 0) and (actType
<> ACTIVATE_CUSTOM
))
1067 or ((Data
.ItemDelay
> 0) and (actType
= ACTIVATE_CUSTOM
)) then
1068 if (not Data
.ItemOnlyDM
) or
1069 (gGameSettings
.GameMode
in [GM_DM
, GM_TDM
, GM_CTF
]) then
1070 for k
:= 1 to Data
.ItemCount
do
1072 if (actType
= ACTIVATE_CUSTOM
) and (Data
.ItemDelay
> 0) then
1073 SpawnCooldown
:= Data
.ItemDelay
;
1074 if (Data
.ItemMax
> 0) and (SpawnedCount
>= Data
.ItemMax
) then
1077 iid
:= g_Items_Create(Data
.ItemPos
.X
, Data
.ItemPos
.Y
,
1078 Data
.ItemType
, Data
.ItemFalls
, False, True);
1082 if Data
.ItemMax
> 0 then
1084 gItems
[iid
].SpawnTrigger
:= ID
;
1088 case Data
.ItemEffect
of
1089 EFFECT_TELEPORT
: begin
1090 if g_Frames_Get(FramesID
, 'FRAMES_TELEPORT') then
1092 Anim
:= TAnimation
.Create(FramesID
, False, 3);
1093 g_Sound_PlayExAt('SOUND_GAME_TELEPORT', Data
.ItemPos
.X
, Data
.ItemPos
.Y
);
1094 g_GFX_OnceAnim(gItems
[iid
].Obj
.X
+gItems
[iid
].Obj
.Rect
.X
+(gItems
[iid
].Obj
.Rect
.Width
div 2)-32,
1095 gItems
[iid
].Obj
.Y
+gItems
[iid
].Obj
.Rect
.Y
+(gItems
[iid
].Obj
.Rect
.Height
div 2)-32, Anim
);
1098 if g_Game_IsServer
and g_Game_IsNet
then
1099 MH_SEND_Effect(gItems
[iid
].Obj
.X
+gItems
[iid
].Obj
.Rect
.X
+(gItems
[iid
].Obj
.Rect
.Width
div 2)-32,
1100 gItems
[iid
].Obj
.Y
+gItems
[iid
].Obj
.Rect
.Y
+(gItems
[iid
].Obj
.Rect
.Height
div 2)-32, 1,
1103 EFFECT_RESPAWN
: begin
1104 if g_Frames_Get(FramesID
, 'FRAMES_ITEM_RESPAWN') then
1106 Anim
:= TAnimation
.Create(FramesID
, False, 4);
1107 g_Sound_PlayExAt('SOUND_ITEM_RESPAWNITEM', Data
.ItemPos
.X
, Data
.ItemPos
.Y
);
1108 g_GFX_OnceAnim(gItems
[iid
].Obj
.X
+gItems
[iid
].Obj
.Rect
.X
+(gItems
[iid
].Obj
.Rect
.Width
div 2)-16,
1109 gItems
[iid
].Obj
.Y
+gItems
[iid
].Obj
.Rect
.Y
+(gItems
[iid
].Obj
.Rect
.Height
div 2)-16, Anim
);
1112 if g_Game_IsServer
and g_Game_IsNet
then
1113 MH_SEND_Effect(gItems
[iid
].Obj
.X
+gItems
[iid
].Obj
.Rect
.X
+(gItems
[iid
].Obj
.Rect
.Width
div 2)-16,
1114 gItems
[iid
].Obj
.Y
+gItems
[iid
].Obj
.Rect
.Y
+(gItems
[iid
].Obj
.Rect
.Height
div 2)-16, 1,
1118 if g_Frames_Get(FramesID
, 'FRAMES_FIRE') then
1120 Anim
:= TAnimation
.Create(FramesID
, False, 4);
1121 g_Sound_PlayExAt('SOUND_FIRE', Data
.ItemPos
.X
, Data
.ItemPos
.Y
);
1122 g_GFX_OnceAnim(gItems
[iid
].Obj
.X
+gItems
[iid
].Obj
.Rect
.X
+(gItems
[iid
].Obj
.Rect
.Width
div 2)-32,
1123 gItems
[iid
].Obj
.Y
+gItems
[iid
].Obj
.Rect
.Y
+gItems
[iid
].Obj
.Rect
.Height
-128, Anim
);
1126 if g_Game_IsServer
and g_Game_IsNet
then
1127 MH_SEND_Effect(gItems
[iid
].Obj
.X
+gItems
[iid
].Obj
.Rect
.X
+(gItems
[iid
].Obj
.Rect
.Width
div 2)-32,
1128 gItems
[iid
].Obj
.Y
+gItems
[iid
].Obj
.Rect
.Y
+gItems
[iid
].Obj
.Rect
.Height
-128, 1,
1133 if g_Game_IsNet
then
1134 MH_SEND_ItemSpawn(True, iid
);
1141 // Åñëè àêòèâèðîâàí àâòîñïàâíåðîì, íå ìåíÿåì òåêñòóðó
1142 if actType
= ACTIVATE_CUSTOM
then
1148 // Ìåíÿåì ìóçûêó, åñëè åñòü íà ÷òî:
1149 if (Trigger
.Data
.MusicName
<> '') then
1151 gMusic
.SetByName(Trigger
.Data
.MusicName
);
1152 gMusic
.SpecPause
:= True;
1156 if Trigger
.Data
.MusicAction
= 1 then
1158 if gMusic
.SpecPause
then // Áûëà íà ïàóçå => èãðàòü
1159 gMusic
.SpecPause
:= False
1160 else // Èãðàëà => ñíà÷àëà
1161 gMusic
.SetPosition(0);
1166 gMusic
.SpecPause
:= True;
1174 if g_Game_IsNet
then MH_SEND_TriggerMusic
;
1179 case g_GetUIDType(ActivateUID
) of
1182 p
:= g_Player_Get(ActivateUID
);
1186 if Data
.ResetVel
then
1194 pAngle
:= -DegToRad(Data
.PushAngle
);
1195 p
.Push(Floor(Cos(pAngle
)*Data
.PushForce
),
1196 Floor(Sin(pAngle
)*Data
.PushForce
));
1201 m
:= g_Monsters_Get(ActivateUID
);
1204 if Data
.ResetVel
then
1212 pAngle
:= -DegToRad(Data
.PushAngle
);
1213 m
.Push(Floor(Cos(pAngle
)*Data
.PushForce
),
1214 Floor(Sin(pAngle
)*Data
.PushForce
));
1225 // Ïðèáàâèòü èëè îòíÿòü î÷êî
1226 if (Data
.ScoreAction
in [0..1]) and (Data
.ScoreCount
> 0) then
1228 // Ñâîåé èëè ÷óæîé êîìàíäå
1229 if (Data
.ScoreTeam
in [0..1]) and (g_GetUIDType(ActivateUID
) = UID_PLAYER
) then
1231 p
:= g_Player_Get(ActivateUID
);
1232 if ((Data
.ScoreAction
= 0) and (Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_RED
))
1233 or ((Data
.ScoreAction
= 0) and (Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_BLUE
)) then
1235 Inc(gTeamStat
[TEAM_RED
].Goals
, Data
.ScoreCount
); // Red Scores
1237 if Data
.ScoreCon
then
1238 if Data
.ScoreTeam
= 0 then
1240 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_OWN
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1241 if g_Game_IsServer
and g_Game_IsNet
then
1242 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '+r');
1245 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_ENEMY
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1246 if g_Game_IsServer
and g_Game_IsNet
then
1247 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '+re');
1250 if Data
.ScoreMsg
then
1252 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_ADD
], [AnsiUpperCase(_lc
[I_GAME_TEAM_RED
])]), 108);
1253 if g_Game_IsServer
and g_Game_IsNet
then
1254 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, TEAM_RED
);
1257 if ((Data
.ScoreAction
= 1) and (Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_RED
))
1258 or ((Data
.ScoreAction
= 1) and (Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_BLUE
)) then
1260 Dec(gTeamStat
[TEAM_RED
].Goals
, Data
.ScoreCount
); // Red Fouls
1262 if Data
.ScoreCon
then
1263 if Data
.ScoreTeam
= 0 then
1265 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_OWN
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1266 if g_Game_IsServer
and g_Game_IsNet
then
1267 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '-r');
1270 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_ENEMY
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1271 if g_Game_IsServer
and g_Game_IsNet
then
1272 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '-re');
1275 if Data
.ScoreMsg
then
1277 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_SUB
], [AnsiUpperCase(_lc
[I_GAME_TEAM_RED
])]), 108);
1278 if g_Game_IsServer
and g_Game_IsNet
then
1279 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, -TEAM_RED
);
1282 if ((Data
.ScoreAction
= 0) and (Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_BLUE
))
1283 or ((Data
.ScoreAction
= 0) and (Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_RED
)) then
1285 Inc(gTeamStat
[TEAM_BLUE
].Goals
, Data
.ScoreCount
); // Blue Scores
1287 if Data
.ScoreCon
then
1288 if Data
.ScoreTeam
= 0 then
1290 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_OWN
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1291 if g_Game_IsServer
and g_Game_IsNet
then
1292 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '+b');
1295 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_ENEMY
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1296 if g_Game_IsServer
and g_Game_IsNet
then
1297 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '+be');
1300 if Data
.ScoreMsg
then
1302 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_ADD
], [AnsiUpperCase(_lc
[I_GAME_TEAM_BLUE
])]), 108);
1303 if g_Game_IsServer
and g_Game_IsNet
then
1304 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, TEAM_BLUE
);
1307 if ((Data
.ScoreAction
= 1) and (Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_BLUE
))
1308 or ((Data
.ScoreAction
= 1) and (Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_RED
)) then
1310 Dec(gTeamStat
[TEAM_BLUE
].Goals
, Data
.ScoreCount
); // Blue Fouls
1312 if Data
.ScoreCon
then
1313 if Data
.ScoreTeam
= 0 then
1315 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_OWN
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1316 if g_Game_IsServer
and g_Game_IsNet
then
1317 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '-b');
1320 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_ENEMY
], [p
.Name
, Data
.ScoreCount
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1321 if g_Game_IsServer
and g_Game_IsNet
then
1322 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (Data
.ScoreCount
shl 16), '-be');
1325 if Data
.ScoreMsg
then
1327 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_SUB
], [AnsiUpperCase(_lc
[I_GAME_TEAM_BLUE
])]), 108);
1328 if g_Game_IsServer
and g_Game_IsNet
then
1329 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, -TEAM_BLUE
);
1332 Result
:= (p
.Team
= TEAM_RED
) or (p
.Team
= TEAM_BLUE
);
1334 // Êàêîé-òî êîíêðåòíîé êîìàíäå
1335 if Data
.ScoreTeam
in [2..3] then
1337 if (Data
.ScoreAction
= 0) and (Data
.ScoreTeam
= 2) then
1339 Inc(gTeamStat
[TEAM_RED
].Goals
, Data
.ScoreCount
); // Red Scores
1341 if Data
.ScoreCon
then
1343 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_TEAM
], [_lc
[I_PLAYER_SCORE_RED
], Data
.ScoreCount
]), True);
1344 if g_Game_IsServer
and g_Game_IsNet
then
1345 MH_SEND_GameEvent(NET_EV_SCORE
, Data
.ScoreCount
shl 16, '+tr');
1348 if Data
.ScoreMsg
then
1350 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_ADD
], [AnsiUpperCase(_lc
[I_GAME_TEAM_RED
])]), 108);
1351 if g_Game_IsServer
and g_Game_IsNet
then
1352 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, TEAM_RED
);
1355 if (Data
.ScoreAction
= 1) and (Data
.ScoreTeam
= 2) then
1357 Dec(gTeamStat
[TEAM_RED
].Goals
, Data
.ScoreCount
); // Red Fouls
1359 if Data
.ScoreCon
then
1361 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_TEAM
], [_lc
[I_PLAYER_SCORE_RED
], Data
.ScoreCount
]), True);
1362 if g_Game_IsServer
and g_Game_IsNet
then
1363 MH_SEND_GameEvent(NET_EV_SCORE
, Data
.ScoreCount
shl 16, '-tr');
1366 if Data
.ScoreMsg
then
1368 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_SUB
], [AnsiUpperCase(_lc
[I_GAME_TEAM_RED
])]), 108);
1369 if g_Game_IsServer
and g_Game_IsNet
then
1370 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, -TEAM_RED
);
1373 if (Data
.ScoreAction
= 0) and (Data
.ScoreTeam
= 3) then
1375 Inc(gTeamStat
[TEAM_BLUE
].Goals
, Data
.ScoreCount
); // Blue Scores
1377 if Data
.ScoreCon
then
1379 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_TEAM
], [_lc
[I_PLAYER_SCORE_BLUE
], Data
.ScoreCount
]), True);
1380 if g_Game_IsServer
and g_Game_IsNet
then
1381 MH_SEND_GameEvent(NET_EV_SCORE
, Data
.ScoreCount
shl 16, '+tb');
1384 if Data
.ScoreMsg
then
1386 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_ADD
], [AnsiUpperCase(_lc
[I_GAME_TEAM_BLUE
])]), 108);
1387 if g_Game_IsServer
and g_Game_IsNet
then
1388 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, TEAM_BLUE
);
1391 if (Data
.ScoreAction
= 1) and (Data
.ScoreTeam
= 3) then
1393 Dec(gTeamStat
[TEAM_BLUE
].Goals
, Data
.ScoreCount
); // Blue Fouls
1395 if Data
.ScoreCon
then
1397 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_TEAM
], [_lc
[I_PLAYER_SCORE_BLUE
], Data
.ScoreCount
]), True);
1398 if g_Game_IsServer
and g_Game_IsNet
then
1399 MH_SEND_GameEvent(NET_EV_SCORE
, Data
.ScoreCount
shl 16, '-tb');
1402 if Data
.ScoreMsg
then
1404 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_SUB
], [AnsiUpperCase(_lc
[I_GAME_TEAM_BLUE
])]), 108);
1405 if g_Game_IsServer
and g_Game_IsNet
then
1406 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, -TEAM_BLUE
);
1413 if (Data
.ScoreAction
= 2) and (gGameSettings
.GoalLimit
> 0) then
1415 // Ñâîåé èëè ÷óæîé êîìàíäû
1416 if (Data
.ScoreTeam
in [0..1]) and (g_GetUIDType(ActivateUID
) = UID_PLAYER
) then
1418 p
:= g_Player_Get(ActivateUID
);
1419 if ((Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_RED
)) // Red Wins
1420 or ((Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_BLUE
)) then
1421 if gTeamStat
[TEAM_RED
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1423 gTeamStat
[TEAM_RED
].Goals
:= gGameSettings
.GoalLimit
;
1425 if Data
.ScoreCon
then
1426 if Data
.ScoreTeam
= 0 then
1428 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_OWN
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1429 if g_Game_IsServer
and g_Game_IsNet
then
1430 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wr');
1433 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_ENEMY
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1434 if g_Game_IsServer
and g_Game_IsNet
then
1435 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wre');
1440 if ((Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_BLUE
)) // Blue Wins
1441 or ((Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_RED
)) then
1442 if gTeamStat
[TEAM_BLUE
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1444 gTeamStat
[TEAM_BLUE
].Goals
:= gGameSettings
.GoalLimit
;
1446 if Data
.ScoreCon
then
1447 if Data
.ScoreTeam
= 0 then
1449 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_OWN
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1450 if g_Game_IsServer
and g_Game_IsNet
then
1451 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wb');
1454 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_ENEMY
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1455 if g_Game_IsServer
and g_Game_IsNet
then
1456 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wbe');
1462 // Êàêîé-òî êîíêðåòíîé êîìàíäû
1463 if Data
.ScoreTeam
in [2..3] then
1465 if Data
.ScoreTeam
= 2 then // Red Wins
1466 if gTeamStat
[TEAM_RED
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1468 gTeamStat
[TEAM_RED
].Goals
:= gGameSettings
.GoalLimit
;
1471 if Data
.ScoreTeam
= 3 then // Blue Wins
1472 if gTeamStat
[TEAM_BLUE
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1474 gTeamStat
[TEAM_BLUE
].Goals
:= gGameSettings
.GoalLimit
;
1480 if (Data
.ScoreAction
= 3) and (gGameSettings
.GoalLimit
> 0) then
1482 // Ñâîåé èëè ÷óæîé êîìàíäû
1483 if (Data
.ScoreTeam
in [0..1]) and (g_GetUIDType(ActivateUID
) = UID_PLAYER
) then
1485 p
:= g_Player_Get(ActivateUID
);
1486 if ((Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_BLUE
)) // Red Wins
1487 or ((Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_RED
)) then
1488 if gTeamStat
[TEAM_RED
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1490 gTeamStat
[TEAM_RED
].Goals
:= gGameSettings
.GoalLimit
;
1492 if Data
.ScoreCon
then
1493 if Data
.ScoreTeam
= 0 then
1495 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_ENEMY
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1496 if g_Game_IsServer
and g_Game_IsNet
then
1497 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wre');
1500 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_OWN
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1501 if g_Game_IsServer
and g_Game_IsNet
then
1502 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wr');
1507 if ((Data
.ScoreTeam
= 0) and (p
.Team
= TEAM_RED
)) // Blue Wins
1508 or ((Data
.ScoreTeam
= 1) and (p
.Team
= TEAM_BLUE
)) then
1509 if gTeamStat
[TEAM_BLUE
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1511 gTeamStat
[TEAM_BLUE
].Goals
:= gGameSettings
.GoalLimit
;
1513 if Data
.ScoreCon
then
1514 if Data
.ScoreTeam
= 0 then
1516 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_ENEMY
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1517 if g_Game_IsServer
and g_Game_IsNet
then
1518 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wbe');
1521 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_OWN
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1522 if g_Game_IsServer
and g_Game_IsNet
then
1523 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wb');
1529 // Êàêîé-òî êîíêðåòíîé êîìàíäû
1530 if Data
.ScoreTeam
in [2..3] then
1532 if Data
.ScoreTeam
= 3 then // Red Wins
1533 if gTeamStat
[TEAM_RED
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1535 gTeamStat
[TEAM_RED
].Goals
:= gGameSettings
.GoalLimit
;
1538 if Data
.ScoreTeam
= 2 then // Blue Wins
1539 if gTeamStat
[TEAM_BLUE
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1541 gTeamStat
[TEAM_BLUE
].Goals
:= gGameSettings
.GoalLimit
;
1546 if Result
then begin
1551 if g_Game_IsServer
and g_Game_IsNet
then
1558 msg
:= b_Text_Format(Data
.MessageText
);
1559 case Data
.MessageSendTo
of
1562 if g_GetUIDType(ActivateUID
) = UID_PLAYER
then
1564 if g_Game_IsWatchedPlayer(ActivateUID
) then
1566 if Data
.MessageKind
= 0 then
1567 g_Console_Add(msg
, True)
1568 else if Data
.MessageKind
= 1 then
1569 g_Game_Message(msg
, Data
.MessageTime
);
1573 p
:= g_Player_Get(ActivateUID
);
1574 if g_Game_IsNet
and (p
.FClientID
>= 0) then
1575 if Data
.MessageKind
= 0 then
1576 MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
, p
.FClientID
)
1577 else if Data
.MessageKind
= 1 then
1578 MH_SEND_GameEvent(NET_EV_BIGTEXT
, Data
.MessageTime
, msg
, p
.FClientID
);
1583 1: // activator's team
1585 if g_GetUIDType(ActivateUID
) = UID_PLAYER
then
1587 p
:= g_Player_Get(ActivateUID
);
1588 if g_Game_IsWatchedTeam(p
.Team
) then
1589 if Data
.MessageKind
= 0 then
1590 g_Console_Add(msg
, True)
1591 else if Data
.MessageKind
= 1 then
1592 g_Game_Message(msg
, Data
.MessageTime
);
1594 if g_Game_IsNet
then
1596 for i
:= Low(gPlayers
) to High(gPlayers
) do
1597 if (gPlayers
[i
].Team
= p
.Team
) and (gPlayers
[i
].FClientID
>= 0) then
1598 if Data
.MessageKind
= 0 then
1599 MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
, gPlayers
[i
].FClientID
)
1600 else if Data
.MessageKind
= 1 then
1601 MH_SEND_GameEvent(NET_EV_BIGTEXT
, Data
.MessageTime
, msg
, gPlayers
[i
].FClientID
);
1606 2: // activator's enemy team
1608 if g_GetUIDType(ActivateUID
) = UID_PLAYER
then
1610 p
:= g_Player_Get(ActivateUID
);
1611 if g_Game_IsWatchedTeam(p
.Team
) then
1612 if Data
.MessageKind
= 0 then
1613 g_Console_Add(msg
, True)
1614 else if Data
.MessageKind
= 1 then
1615 g_Game_Message(msg
, Data
.MessageTime
);
1617 if g_Game_IsNet
then
1619 for i
:= Low(gPlayers
) to High(gPlayers
) do
1620 if (gPlayers
[i
].Team
<> p
.Team
) and (gPlayers
[i
].FClientID
>= 0) then
1621 if Data
.MessageKind
= 0 then
1622 MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
, gPlayers
[i
].FClientID
)
1623 else if Data
.MessageKind
= 1 then
1624 MH_SEND_GameEvent(NET_EV_BIGTEXT
, Data
.MessageTime
, msg
, gPlayers
[i
].FClientID
);
1631 if g_Game_IsWatchedTeam(TEAM_RED
) then
1632 if Data
.MessageKind
= 0 then
1633 g_Console_Add(msg
, True)
1634 else if Data
.MessageKind
= 1 then
1635 g_Game_Message(msg
, Data
.MessageTime
);
1637 if g_Game_IsNet
then
1639 for i
:= Low(gPlayers
) to High(gPlayers
) do
1640 if (gPlayers
[i
].Team
= TEAM_RED
) and (gPlayers
[i
].FClientID
>= 0) then
1641 if Data
.MessageKind
= 0 then
1642 MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
, gPlayers
[i
].FClientID
)
1643 else if Data
.MessageKind
= 1 then
1644 MH_SEND_GameEvent(NET_EV_BIGTEXT
, Data
.MessageTime
, msg
, gPlayers
[i
].FClientID
);
1650 if g_Game_IsWatchedTeam(TEAM_BLUE
) then
1651 if Data
.MessageKind
= 0 then
1652 g_Console_Add(msg
, True)
1653 else if Data
.MessageKind
= 1 then
1654 g_Game_Message(msg
, Data
.MessageTime
);
1656 if g_Game_IsNet
then
1658 for i
:= Low(gPlayers
) to High(gPlayers
) do
1659 if (gPlayers
[i
].Team
= TEAM_BLUE
) and (gPlayers
[i
].FClientID
>= 0) then
1660 if Data
.MessageKind
= 0 then
1661 MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
, gPlayers
[i
].FClientID
)
1662 else if Data
.MessageKind
= 1 then
1663 MH_SEND_GameEvent(NET_EV_BIGTEXT
, Data
.MessageTime
, msg
, gPlayers
[i
].FClientID
);
1669 if Data
.MessageKind
= 0 then
1670 g_Console_Add(msg
, True)
1671 else if Data
.MessageKind
= 1 then
1672 g_Game_Message(msg
, Data
.MessageTime
);
1674 if g_Game_IsNet
then
1676 if Data
.MessageKind
= 0 then
1677 MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
)
1678 else if Data
.MessageKind
= 1 then
1679 MH_SEND_GameEvent(NET_EV_BIGTEXT
, Data
.MessageTime
, msg
);
1686 TRIGGER_DAMAGE
, TRIGGER_HEALTH
:
1689 UIDType
:= g_GetUIDType(ActivateUID
);
1690 if (UIDType
= UID_PLAYER
) or (UIDType
= UID_MONSTER
) then
1696 // Âñïîìèíàåì, àêòèâèðîâàë ëè îí ìåíÿ ðàíüøå
1697 for i
:= 0 to High(Activators
) do
1698 if Activators
[i
].UID
= ActivateUID
then
1704 begin // Âèäèì åãî âïåðâûå
1706 SetLength(Activators
, Length(Activators
) + 1);
1707 k
:= High(Activators
);
1708 Activators
[k
].UID
:= ActivateUID
;
1710 begin // Óæå âèäåëè åãî
1711 // Åñëè èíòåðâàë îòêëþ÷¸í, íî îí âñ¸ åù¸ â çîíå ïîðàæåíèÿ, äà¸ì åìó âðåìÿ
1712 if (Data
.DamageInterval
= 0) and (Activators
[k
].TimeOut
> 0) then
1713 Activators
[k
].TimeOut
:= 65535;
1714 // Òàéìàóò ïðîø¸ë - ðàáîòàåì
1715 Result
:= Activators
[k
].TimeOut
= 0;
1724 p
:= g_Player_Get(ActivateUID
);
1728 // Íàíîñèì óðîí èãðîêó
1729 if (TriggerType
= TRIGGER_DAMAGE
) and (Data
.DamageValue
> 0) then
1730 p
.Damage(Data
.DamageValue
, 0, 0, 0, HIT_SOME
);
1733 if (TriggerType
= TRIGGER_HEALTH
) and (Data
.HealValue
> 0) then
1734 if p
.Heal(Data
.HealValue
, not Data
.HealMax
) and (not Data
.HealSilent
) then
1736 g_Sound_PlayExAt('SOUND_ITEM_GETITEM', p
.Obj
.X
, p
.Obj
.Y
);
1737 if g_Game_IsServer
and g_Game_IsNet
then
1738 MH_SEND_Sound(p
.Obj
.X
, p
.Obj
.Y
, 'SOUND_ITEM_GETITEM');
1744 m
:= g_Monsters_Get(ActivateUID
);
1748 // Íàíîñèì óðîí ìîíñòðó
1749 if (TriggerType
= TRIGGER_DAMAGE
) and (Data
.DamageValue
> 0) then
1750 m
.Damage(Data
.DamageValue
, 0, 0, 0, HIT_SOME
);
1753 if (TriggerType
= TRIGGER_HEALTH
) and (Data
.HealValue
> 0) then
1754 if m
.Heal(Data
.HealValue
) and (not Data
.HealSilent
) then
1756 g_Sound_PlayExAt('SOUND_ITEM_GETITEM', m
.Obj
.X
, m
.Obj
.Y
);
1757 if g_Game_IsServer
and g_Game_IsNet
then
1758 MH_SEND_Sound(m
.Obj
.X
, m
.Obj
.Y
, 'SOUND_ITEM_GETITEM');
1762 // Íàçíà÷àåì âðåìÿ ñëåäóþùåãî âîçäåéñòâèÿ
1763 if TriggerType
= TRIGGER_DAMAGE
then
1764 i
:= Data
.DamageInterval
1766 i
:= Data
.HealInterval
;
1769 Activators
[k
].TimeOut
:= i
1771 Activators
[k
].TimeOut
:= 65535;
1779 if ShotSightTime
> 0 then
1782 wx
:= Data
.ShotPos
.X
;
1783 wy
:= Data
.ShotPos
.Y
;
1784 pAngle
:= -DegToRad(Data
.ShotAngle
);
1785 xd
:= wx
+ Round(Cos(pAngle
) * 32.0);
1786 yd
:= wy
+ Round(Sin(pAngle
) * 32.0);
1789 case Data
.ShotTarget
of
1790 TRIGGER_SHOT_TARGET_MON
: // monsters
1791 if gMonsters
<> nil then
1792 for i
:= Low(gMonsters
) to High(gMonsters
) do
1793 if (gMonsters
[i
] <> nil) and gMonsters
[i
].Live
and
1794 (Data
.ShotAllMap
or g_Obj_Collide(X
, Y
, Width
, Height
, @(gMonsters
[i
].Obj
))) then
1796 xd
:= gMonsters
[i
].GameX
+ gMonsters
[i
].Obj
.Rect
.Width
div 2;
1797 yd
:= gMonsters
[i
].GameY
+ gMonsters
[i
].Obj
.Rect
.Height
div 2;
1798 TargetUID
:= gMonsters
[i
].UID
;
1802 TRIGGER_SHOT_TARGET_PLR
: // players
1803 if gPlayers
<> nil then
1804 for i
:= Low(gPlayers
) to High(gPlayers
) do
1805 if (gPlayers
[i
] <> nil) and gPlayers
[i
].Live
and
1806 (Data
.ShotAllMap
or g_Obj_Collide(X
, Y
, Width
, Height
, @(gPlayers
[i
].Obj
))) then
1808 xd
:= gPlayers
[i
].GameX
+ PLAYER_RECT_CX
;
1809 yd
:= gPlayers
[i
].GameY
+ PLAYER_RECT_CY
;
1810 TargetUID
:= gPlayers
[i
].UID
;
1814 TRIGGER_SHOT_TARGET_RED
: // red team
1815 if gPlayers
<> nil then
1816 for i
:= Low(gPlayers
) to High(gPlayers
) do
1817 if (gPlayers
[i
] <> nil) and gPlayers
[i
].Live
and
1818 (gPlayers
[i
].Team
= TEAM_RED
) and
1819 (Data
.ShotAllMap
or g_Obj_Collide(X
, Y
, Width
, Height
, @(gPlayers
[i
].Obj
))) then
1821 xd
:= gPlayers
[i
].GameX
+ PLAYER_RECT_CX
;
1822 yd
:= gPlayers
[i
].GameY
+ PLAYER_RECT_CY
;
1823 TargetUID
:= gPlayers
[i
].UID
;
1827 TRIGGER_SHOT_TARGET_BLUE
: // blue team
1828 if gPlayers
<> nil then
1829 for i
:= Low(gPlayers
) to High(gPlayers
) do
1830 if (gPlayers
[i
] <> nil) and gPlayers
[i
].Live
and
1831 (gPlayers
[i
].Team
= TEAM_BLUE
) and
1832 (Data
.ShotAllMap
or g_Obj_Collide(X
, Y
, Width
, Height
, @(gPlayers
[i
].Obj
))) then
1834 xd
:= gPlayers
[i
].GameX
+ PLAYER_RECT_CX
;
1835 yd
:= gPlayers
[i
].GameY
+ PLAYER_RECT_CY
;
1836 TargetUID
:= gPlayers
[i
].UID
;
1840 TRIGGER_SHOT_TARGET_MONPLR
: // monsters then players
1842 if gMonsters
<> nil then
1843 for i
:= Low(gMonsters
) to High(gMonsters
) do
1844 if (gMonsters
[i
] <> nil) and gMonsters
[i
].Live
and
1845 (Data
.ShotAllMap
or g_Obj_Collide(X
, Y
, Width
, Height
, @(gMonsters
[i
].Obj
))) then
1847 xd
:= gMonsters
[i
].GameX
+ gMonsters
[i
].Obj
.Rect
.Width
div 2;
1848 yd
:= gMonsters
[i
].GameY
+ gMonsters
[i
].Obj
.Rect
.Height
div 2;
1849 TargetUID
:= gMonsters
[i
].UID
;
1852 if (TargetUID
= 0) and (gPlayers
<> nil) then
1853 for i
:= Low(gPlayers
) to High(gPlayers
) do
1854 if (gPlayers
[i
] <> nil) and gPlayers
[i
].Live
and
1855 (Data
.ShotAllMap
or g_Obj_Collide(X
, Y
, Width
, Height
, @(gPlayers
[i
].Obj
))) then
1857 xd
:= gPlayers
[i
].GameX
+ PLAYER_RECT_CX
;
1858 yd
:= gPlayers
[i
].GameY
+ PLAYER_RECT_CY
;
1859 TargetUID
:= gPlayers
[i
].UID
;
1864 TRIGGER_SHOT_TARGET_PLRMON
: // players then monsters
1866 if gPlayers
<> nil then
1867 for i
:= Low(gPlayers
) to High(gPlayers
) do
1868 if (gPlayers
[i
] <> nil) and gPlayers
[i
].Live
and
1869 (Data
.ShotAllMap
or g_Obj_Collide(X
, Y
, Width
, Height
, @(gPlayers
[i
].Obj
))) then
1871 xd
:= gPlayers
[i
].GameX
+ PLAYER_RECT_CX
;
1872 yd
:= gPlayers
[i
].GameY
+ PLAYER_RECT_CY
;
1873 TargetUID
:= gPlayers
[i
].UID
;
1876 if (TargetUID
= 0) and (gMonsters
<> nil) then
1877 for i
:= Low(gMonsters
) to High(gMonsters
) do
1878 if (gMonsters
[i
] <> nil) and gMonsters
[i
].Live
and
1879 (Data
.ShotAllMap
or g_Obj_Collide(X
, Y
, Width
, Height
, @(gMonsters
[i
].Obj
))) then
1881 xd
:= gMonsters
[i
].GameX
+ gMonsters
[i
].Obj
.Rect
.Width
div 2;
1882 yd
:= gMonsters
[i
].GameY
+ gMonsters
[i
].Obj
.Rect
.Height
div 2;
1883 TargetUID
:= gMonsters
[i
].UID
;
1888 else TargetUID
:= ActivateUID
;
1891 if (Data
.ShotTarget
= TRIGGER_SHOT_TARGET_NONE
) or (TargetUID
> 0) then
1894 if (Data
.ShotIntSight
= 0) or
1895 (Data
.ShotTarget
= TRIGGER_SHOT_TARGET_NONE
) or
1896 (TargetUID
= ShotSightTarget
) then
1897 MakeShot(Trigger
, wx
, wy
, xd
, yd
, TargetUID
)
1900 ShotSightTime
:= Data
.ShotIntSight
;
1901 ShotSightTargetN
:= TargetUID
;
1902 if Data
.ShotType
= TRIGGER_SHOT_BFG
then
1904 g_Sound_PlayExAt('SOUND_WEAPON_STARTFIREBFG', wx
, wy
);
1905 if g_Game_IsNet
and g_Game_IsServer
then
1906 MH_SEND_Sound(wx
, wy
, 'SOUND_WEAPON_STARTFIREBFG');
1911 TimeOut
:= Data
.ShotWait
+ 1;
1921 TRIGGER_EFFECT_POS_CENTER
:
1923 wx
:= X
+ Width
div 2;
1924 wy
:= Y
+ Height
div 2;
1926 TRIGGER_EFFECT_POS_AREA
:
1928 wx
:= X
+ Random(Width
);
1929 wy
:= Y
+ Random(Height
);
1932 wx
:= X
+ Width
div 2;
1933 wy
:= Y
+ Height
div 2;
1938 if Data
.FXSpreadL
> 0 then xd
:= xd
- Random(Data
.FXSpreadL
+ 1);
1939 if Data
.FXSpreadR
> 0 then xd
:= xd
+ Random(Data
.FXSpreadR
+ 1);
1940 if Data
.FXSpreadU
> 0 then yd
:= yd
- Random(Data
.FXSpreadU
+ 1);
1941 if Data
.FXSpreadD
> 0 then yd
:= yd
+ Random(Data
.FXSpreadD
+ 1);
1942 MakeEffect(wx
, wy
, xd
, yd
,
1943 Data
.FXType
, Data
.FXSubType
,
1944 Data
.FXColorR
, Data
.FXColorG
, Data
.FXColorB
, True, False);
1947 TimeOut
:= Data
.FXWait
;
1952 if Result
and (Trigger
.TexturePanel
<> -1) then
1953 g_Map_SwitchTexture(Trigger
.TexturePanelType
, Trigger
.TexturePanel
, IfThen(animonce
, 2, 1));
1956 function g_Triggers_Create(Trigger
: TTrigger
): DWORD
;
1961 // Íå ñîçäàâàòü âûõîä, åñëè èãðà áåç âûõîäà:
1962 if (Trigger
.TriggerType
= TRIGGER_EXIT
) and
1963 (not LongBool(gGameSettings
.Options
and GAME_OPTION_ALLOWEXIT
)) then
1964 Trigger
.TriggerType
:= TRIGGER_NONE
;
1966 // Åñëè ìîíñòðû çàïðåùåíû, îòìåíÿåì òðèããåð:
1967 if (Trigger
.TriggerType
= TRIGGER_SPAWNMONSTER
) and
1968 (not LongBool(gGameSettings
.Options
and GAME_OPTION_MONSTERS
)) and
1969 (gGameSettings
.GameType
<> GT_SINGLE
) then
1970 Trigger
.TriggerType
:= TRIGGER_NONE
;
1972 // Ñ÷èòàåì êîëè÷åñòâî ñåêðåòîâ íà êàðòå:
1973 if Trigger
.TriggerType
= TRIGGER_SECRET
then
1974 gSecretsCount
:= gSecretsCount
+ 1;
1976 find_id
:= FindTrigger();
1977 gTriggers
[find_id
] := Trigger
;
1979 with gTriggers
[find_id
] do
1982 // if this type of trigger exists both on the client and on the server
1983 // use an uniform numeration
1984 if Trigger
.TriggerType
= TRIGGER_SOUND
then
1986 Inc(gTriggerClientID
);
1987 ClientID
:= gTriggerClientID
;
1993 PlayerCollide
:= False;
1997 SoundPlayCount
:= 0;
2004 // Çàãðóæàåì çâóê, åñëè ýòî òðèããåð "Çâóê":
2005 if (Trigger
.TriggerType
= TRIGGER_SOUND
) and
2006 (Trigger
.Data
.SoundName
<> '') then
2008 // Åùå íåò òàêîãî çâóêà:
2009 if not g_Sound_Exists(Trigger
.Data
.SoundName
) then
2011 fn
:= g_ExtractWadName(Trigger
.Data
.SoundName
);
2014 begin // Çâóê â ôàéëå ñ êàðòîé
2015 mapw
:= g_ExtractWadName(gMapInfo
.Map
);
2016 fn
:= mapw
+':'+g_ExtractFilePathName(Trigger
.Data
.SoundName
);
2018 else // Çâóê â îòäåëüíîì ôàéëå
2019 fn
:= GameDir
+ '/wads/' + Trigger
.Data
.SoundName
;
2021 if not g_Sound_CreateWADEx(Trigger
.Data
.SoundName
, fn
) then
2022 g_FatalError(Format(_lc
[I_GAME_ERROR_TR_SOUND
], [fn
, Trigger
.Data
.SoundName
]));
2025 // Ñîçäàåì îáúåêò çâóêà:
2026 with gTriggers
[find_id
] do
2028 Sound
:= TPlayableSound
.Create();
2029 if not Sound
.SetByName(Trigger
.Data
.SoundName
) then
2037 // Çàãðóæàåì ìóçûêó, åñëè ýòî òðèããåð "Ìóçûêà":
2038 if (Trigger
.TriggerType
= TRIGGER_MUSIC
) and
2039 (Trigger
.Data
.MusicName
<> '') then
2041 // Åùå íåò òàêîé ìóçûêè:
2042 if not g_Sound_Exists(Trigger
.Data
.MusicName
) then
2044 fn
:= g_ExtractWadName(Trigger
.Data
.MusicName
);
2047 begin // Ìóçûêà â ôàéëå ñ êàðòîé
2048 mapw
:= g_ExtractWadName(gMapInfo
.Map
);
2049 fn
:= mapw
+':'+g_ExtractFilePathName(Trigger
.Data
.MusicName
);
2051 else // Ìóçûêà â ôàéëå ñ êàðòîé
2052 fn
:= GameDir
+'/wads/'+Trigger
.Data
.MusicName
;
2054 if not g_Sound_CreateWADEx(Trigger
.Data
.MusicName
, fn
, True) then
2055 g_FatalError(Format(_lc
[I_GAME_ERROR_TR_SOUND
], [fn
, Trigger
.Data
.MusicName
]));
2059 // Çàãðóæàåì äàííûå òðèããåðà "Òóðåëü":
2060 if Trigger
.TriggerType
= TRIGGER_SHOT
then
2061 with gTriggers
[find_id
] do
2065 ShotSightTimeout
:= 0;
2066 ShotSightTarget
:= 0;
2067 ShotSightTargetN
:= 0;
2068 ShotAmmoCount
:= Trigger
.Data
.ShotAmmo
;
2069 ShotReloadTime
:= 0;
2075 procedure g_Triggers_Update();
2078 Affected
: array of Integer;
2080 if gTriggers
= nil then
2082 SetLength(Affected
, 0);
2084 for a
:= 0 to High(gTriggers
) do
2085 with gTriggers
[a
] do
2087 if TriggerType
<> TRIGGER_NONE
then
2089 // Óìåíüøàåì âðåìÿ äî çàêðûòèÿ äâåðè (îòêðûòèÿ ëîâóøêè):
2090 if DoorTime
> 0 then
2091 DoorTime
:= DoorTime
- 1;
2092 // Óìåíüøàåì âðåìÿ îæèäàíèÿ ïîñëå íàæàòèÿ:
2093 if PressTime
> 0 then
2094 PressTime
:= PressTime
- 1;
2095 // Ïðîâåðÿåì èãðîêîâ è ìîíñòðîâ, êîòîðûõ ðàíåå çàïîìíèëè:
2096 if (TriggerType
= TRIGGER_DAMAGE
) or (TriggerType
= TRIGGER_HEALTH
) then
2097 for b
:= 0 to High(Activators
) do
2099 // Óìåíüøàåì âðåìÿ äî ïîâòîðíîãî âîçäåéñòâèÿ:
2100 if Activators
[b
].TimeOut
> 0 then
2101 Dec(Activators
[b
].TimeOut
)
2104 // Ñ÷èòàåì, ÷òî îáúåêò ïîêèíóë çîíó äåéñòâèÿ òðèããåðà
2105 if (Data
.DamageInterval
= 0) and (Activators
[b
].TimeOut
< 65530) then
2106 Activators
[b
].TimeOut
:= 0;
2109 // Îáðàáàòûâàåì ñïàâíåðû:
2110 if Enabled
and AutoSpawn
then
2111 if SpawnCooldown
= 0 then
2113 // Åñëè ïðèøëî âðåìÿ, ñïàâíèì ìîíñòðà:
2114 if (TriggerType
= TRIGGER_SPAWNMONSTER
) and (Data
.MonDelay
> 0) then
2117 ActivateTrigger(gTriggers
[a
], ACTIVATE_CUSTOM
);
2119 // Åñëè ïðèøëî âðåìÿ, ñïàâíèì ïðåäìåò:
2120 if (TriggerType
= TRIGGER_SPAWNITEM
) and (Data
.ItemDelay
> 0) then
2123 ActivateTrigger(gTriggers
[a
], ACTIVATE_CUSTOM
);
2125 end else // Óìåíüøàåì âðåìÿ îæèäàíèÿ:
2128 // Îáðàáàòûâàåì ñîáûòèÿ òðèããåðà "Òóðåëü":
2129 if TriggerType
= TRIGGER_SHOT
then
2131 if ShotPanelTime
> 0 then
2134 if ShotPanelTime
= 0 then
2135 g_Map_SwitchTexture(ShotPanelType
, Data
.ShotPanelID
);
2137 if ShotSightTime
> 0 then
2140 if ShotSightTime
= 0 then
2141 ShotSightTarget
:= ShotSightTargetN
;
2143 if ShotSightTimeout
> 0 then
2145 Dec(ShotSightTimeout
);
2146 if ShotSightTimeout
= 0 then
2147 ShotSightTarget
:= 0;
2149 if ShotReloadTime
> 0 then
2151 Dec(ShotReloadTime
);
2152 if ShotReloadTime
= 0 then
2153 ShotAmmoCount
:= Data
.ShotAmmo
;
2157 // Òðèããåð "Çâóê" óæå îòûãðàë, åñëè íóæíî åùå - ïåðåçàïóñêàåì:
2158 if Enabled
and (TriggerType
= TRIGGER_SOUND
) and (Sound
<> nil) then
2159 if (SoundPlayCount
> 0) and (not Sound
.IsPlaying()) then
2161 if Data
.PlayCount
> 0 then // Åñëè 0 - èãðàåì çâóê áåñêîíå÷íî
2162 SoundPlayCount
:= SoundPlayCount
- 1;
2164 Sound
.PlayVolumeAt(X
+(Width
div 2), Y
+(Height
div 2), Data
.Volume
/255.0)
2166 Sound
.PlayPanVolume((Data
.Pan
-127.0)/128.0, Data
.Volume
/255.0);
2167 if Sound
.IsPlaying() and g_Game_IsNet
and g_Game_IsServer
then
2168 MH_SEND_TriggerSound(gTriggers
[a
]);
2171 // Òðèããåð "Ëîâóøêà" - ïîðà îòêðûâàòü:
2172 if (TriggerType
= TRIGGER_TRAP
) and (DoorTime
= 0) and (Data
.PanelID
<> -1) then
2174 OpenDoor(Data
.PanelID
, Data
.NoSound
, Data
.d2d_doors
);
2178 // Òðèããåð "Äâåðü 5 ñåê" - ïîðà çàêðûâàòü:
2179 if (TriggerType
= TRIGGER_DOOR5
) and (DoorTime
= 0) and (Data
.PanelID
<> -1) then
2182 if gWalls
[Data
.PanelID
].Enabled
then
2184 else // Ïîêà îòêðûòà - çàêðûâàåì
2185 if CloseDoor(Data
.PanelID
, Data
.NoSound
, Data
.d2d_doors
) then
2189 // Òðèããåð - ðàñøèðèòåëü èëè ïåðåêëþ÷àòåëü, è ïðîøëà çàäåðæêà, è íàæàëè íóæíîå ÷èñëî ðàç:
2190 if (TriggerType
in [TRIGGER_PRESS
, TRIGGER_ON
, TRIGGER_OFF
, TRIGGER_ONOFF
]) and
2191 (PressTime
= 0) and (PressCount
>= Data
.Count
) then
2193 // Ñáðàñûâàåì çàäåðæêó àêòèâàöèè:
2195 // Ñáðàñûâàåì ñ÷åò÷èê íàæàòèé:
2196 if Data
.Count
> 0 then
2197 PressCount
:= PressCount
- Data
.Count
2201 // Îïðåäåëÿåì èçìåíÿåìûå èì òðèããåðû:
2202 for b
:= 0 to High(gTriggers
) do
2203 if g_Collide(Data
.tX
, Data
.tY
, Data
.tWidth
, Data
.tHeight
, gTriggers
[b
].X
, gTriggers
[b
].Y
,
2204 gTriggers
[b
].Width
, gTriggers
[b
].Height
) and
2205 ((b
<> a
) or (Data
.Wait
> 0)) then
2206 begin // Can be self-activated, if there is Data.Wait
2207 if (not Data
.ExtRandom
) or gTriggers
[b
].Enabled
then
2209 SetLength(Affected
, Length(Affected
) + 1);
2210 Affected
[High(Affected
)] := b
;
2213 // Âûáèðàåì îäèí èç òðèããåðîâ äëÿ ðàñøèðèòåëÿ, åñëè âêëþ÷åí ðàíäîì:
2214 if (TriggerType
= TRIGGER_PRESS
) and Data
.ExtRandom
then
2216 if (Length(Affected
) > 0) then
2218 b
:= Affected
[Random(Length(Affected
))];
2219 gTriggers
[b
].ActivateUID
:= gTriggers
[a
].ActivateUID
;
2220 ActivateTrigger(gTriggers
[b
], 0);
2223 else //  ïðîòèâíîì ñëó÷àå ðàáîòàåì êàê îáû÷íî:
2224 for i
:= 0 to High(Affected
) do
2230 gTriggers
[b
].ActivateUID
:= gTriggers
[a
].ActivateUID
;
2231 ActivateTrigger(gTriggers
[b
], 0);
2235 gTriggers
[b
].Enabled
:= True;
2239 gTriggers
[b
].Enabled
:= False;
2240 gTriggers
[b
].TimeOut
:= 0;
2241 if gTriggers
[b
].AutoSpawn
then
2243 gTriggers
[b
].AutoSpawn
:= False;
2244 gTriggers
[b
].SpawnCooldown
:= 0;
2249 gTriggers
[b
].Enabled
:= not gTriggers
[b
].Enabled
;
2250 if not gTriggers
[b
].Enabled
then
2252 gTriggers
[b
].TimeOut
:= 0;
2253 if gTriggers
[b
].AutoSpawn
then
2255 gTriggers
[b
].AutoSpawn
:= False;
2256 gTriggers
[b
].SpawnCooldown
:= 0;
2262 SetLength(Affected
, 0);
2265 // Óìåíüøàåì âðåìÿ äî âîçìîæíîñòè ïîâòîðíîé àêòèâàöèè:
2268 TimeOut
:= TimeOut
- 1;
2269 Continue
; // ×òîáû íå ïîòåðÿòü 1 åäèíèöó çàäåðæêè
2272 // Íèæå èäóò òèïû àêòèâàöèè, åñëè òðèããåð îòêëþ÷¸í - èä¸ì äàëüøå
2277 if ByteBool(ActivateType
and ACTIVATE_PLAYERCOLLIDE
) and
2279 if gPlayers
<> nil then
2280 for b
:= 0 to High(gPlayers
) do
2281 if gPlayers
[b
] <> nil then
2283 // Æèâ, åñòü íóæíûå êëþ÷è è îí ðÿäîì:
2284 if Live
and ((gTriggers
[a
].Keys
and GetKeys
) = gTriggers
[a
].Keys
) and
2285 Collide(X
, Y
, Width
, Height
) then
2287 gTriggers
[a
].ActivateUID
:= UID
;
2289 if (gTriggers
[a
].TriggerType
in [TRIGGER_SOUND
, TRIGGER_MUSIC
]) and
2291 { Don't activate sound/music again if player is here }
2293 ActivateTrigger(gTriggers
[a
], ACTIVATE_PLAYERCOLLIDE
);
2296 { TODO 5 : àêòèâàöèÿ ìîíñòðàìè òðèããåðîâ ñ êëþ÷àìè }
2298 if ByteBool(ActivateType
and ACTIVATE_MONSTERCOLLIDE
) and
2299 ByteBool(ActivateType
and ACTIVATE_NOMONSTER
) and
2300 (TimeOut
= 0) and (Keys
= 0) then
2302 // Åñëè "Ìîíñòð áëèçêî" è "Ìîíñòðîâ íåò",
2303 // çàïóñêàåì òðèããåð íà ñòàðòå êàðòû è ñíèìàåì îáà ôëàãà
2304 ActivateType
:= ActivateType
and not (ACTIVATE_MONSTERCOLLIDE
or ACTIVATE_NOMONSTER
);
2305 gTriggers
[a
].ActivateUID
:= 0;
2306 ActivateTrigger(gTriggers
[a
], 0);
2310 if ByteBool(ActivateType
and ACTIVATE_MONSTERCOLLIDE
) and
2311 (TimeOut
= 0) and (Keys
= 0) then // Åñëè íå íóæíû êëþ÷è
2312 if gMonsters
<> nil then
2313 for b
:= 0 to High(gMonsters
) do
2314 if (gMonsters
[b
] <> nil) then
2315 with gMonsters
[b
] do
2316 if Collide(X
, Y
, Width
, Height
) then
2318 gTriggers
[a
].ActivateUID
:= UID
;
2319 ActivateTrigger(gTriggers
[a
], ACTIVATE_MONSTERCOLLIDE
);
2323 if ByteBool(ActivateType
and ACTIVATE_NOMONSTER
) and
2324 (TimeOut
= 0) and (Keys
= 0) then
2325 if not g_CollideMonster(X
, Y
, Width
, Height
) then
2327 gTriggers
[a
].ActivateUID
:= 0;
2328 ActivateTrigger(gTriggers
[a
], ACTIVATE_NOMONSTER
);
2332 PlayerCollide
:= g_CollidePlayer(X
, Y
, Width
, Height
);
2336 procedure g_Triggers_Press(ID
: DWORD
; ActivateType
: Byte);
2338 gTriggers
[ID
].ActivateUID
:= 0;
2339 ActivateTrigger(gTriggers
[ID
], ActivateType
);
2342 function g_Triggers_PressR(X
, Y
: Integer; Width
, Height
: Word; UID
: Word;
2343 ActivateType
: Byte; IgnoreList
: DWArray
= nil): DWArray
;
2351 if gTriggers
= nil then Exit
;
2353 case g_GetUIDType(UID
) of
2357 p
:= g_Player_Get(UID
);
2366 for a
:= 0 to High(gTriggers
) do
2367 if (gTriggers
[a
].TriggerType
<> TRIGGER_NONE
) and
2368 (gTriggers
[a
].TimeOut
= 0) and
2369 (not InDWArray(a
, IgnoreList
)) and
2370 ((gTriggers
[a
].Keys
and k
) = gTriggers
[a
].Keys
) and
2371 ByteBool(gTriggers
[a
].ActivateType
and ActivateType
) then
2372 if g_Collide(X
, Y
, Width
, Height
,
2373 gTriggers
[a
].X
, gTriggers
[a
].Y
,
2374 gTriggers
[a
].Width
, gTriggers
[a
].Height
) then
2376 gTriggers
[a
].ActivateUID
:= UID
;
2377 if ActivateTrigger(gTriggers
[a
], ActivateType
) then
2379 SetLength(Result
, Length(Result
)+1);
2380 Result
[High(Result
)] := a
;
2385 procedure g_Triggers_PressL(X1
, Y1
, X2
, Y2
: Integer; UID
: DWORD
; ActivateType
: Byte);
2391 if gTriggers
= nil then Exit
;
2393 case g_GetUIDType(UID
) of
2397 p
:= g_Player_Get(UID
);
2406 for a
:= 0 to High(gTriggers
) do
2407 if (gTriggers
[a
].TriggerType
<> TRIGGER_NONE
) and
2408 (gTriggers
[a
].TimeOut
= 0) and
2409 ((gTriggers
[a
].Keys
and k
) = gTriggers
[a
].Keys
) and
2410 ByteBool(gTriggers
[a
].ActivateType
and ActivateType
) then
2411 if g_CollideLine(x1
, y1
, x2
, y2
, gTriggers
[a
].X
, gTriggers
[a
].Y
,
2412 gTriggers
[a
].Width
, gTriggers
[a
].Height
) then
2414 gTriggers
[a
].ActivateUID
:= UID
;
2415 ActivateTrigger(gTriggers
[a
], ActivateType
);
2419 procedure g_Triggers_PressC(CX
, CY
: Integer; Radius
: Word; UID
: Word; ActivateType
: Byte);
2426 if gTriggers
= nil then
2429 case g_GetUIDType(UID
) of
2433 p
:= g_Player_Get(UID
);
2442 rsq
:= Radius
* Radius
;
2444 for a
:= 0 to High(gTriggers
) do
2445 if (gTriggers
[a
].TriggerType
<> TRIGGER_NONE
) and
2446 (gTriggers
[a
].TimeOut
= 0) and
2447 ((gTriggers
[a
].Keys
and k
) = gTriggers
[a
].Keys
) and
2448 ByteBool(gTriggers
[a
].ActivateType
and ActivateType
) then
2449 with gTriggers
[a
] do
2450 if g_Collide(CX
-Radius
, CY
-Radius
, 2*Radius
, 2*Radius
,
2451 X
, Y
, Width
, Height
) then
2452 if ((Sqr(CX
-X
)+Sqr(CY
-Y
)) < rsq
) or // Öåíòð êðóãà áëèçîê ê âåðõíåìó ëåâîìó óãëó
2453 ((Sqr(CX
-X
-Width
)+Sqr(CY
-Y
)) < rsq
) or // Öåíòð êðóãà áëèçîê ê âåðõíåìó ïðàâîìó óãëó
2454 ((Sqr(CX
-X
-Width
)+Sqr(CY
-Y
-Height
)) < rsq
) or // Öåíòð êðóãà áëèçîê ê íèæíåìó ïðàâîìó óãëó
2455 ((Sqr(CX
-X
)+Sqr(CY
-Y
-Height
)) < rsq
) or // Öåíòð êðóãà áëèçîê ê íèæíåìó ëåâîìó óãëó
2456 ( (CX
> (X
-Radius
)) and (CX
< (X
+Width
+Radius
)) and
2457 (CY
> Y
) and (CY
< (Y
+Height
)) ) or // Öåíòð êðóãà íåäàëåêî îò âåðòèêàëüíûõ ãðàíèö ïðÿìîóãîëüíèêà
2458 ( (CY
> (Y
-Radius
)) and (CY
< (Y
+Height
+Radius
)) and
2459 (CX
> X
) and (CX
< (X
+Width
)) ) then // Öåíòð êðóãà íåäàëåêî îò ãîðèçîíòàëüíûõ ãðàíèö ïðÿìîóãîëüíèêà
2462 ActivateTrigger(gTriggers
[a
], ActivateType
);
2466 procedure g_Triggers_OpenAll();
2471 if gTriggers
= nil then Exit
;
2474 for a
:= 0 to High(gTriggers
) do
2475 with gTriggers
[a
] do
2476 if (TriggerType
= TRIGGER_OPENDOOR
) or
2477 (TriggerType
= TRIGGER_DOOR5
) or
2478 (TriggerType
= TRIGGER_DOOR
) then
2480 OpenDoor(Data
.PanelID
, True, Data
.d2d_doors
);
2481 if TriggerType
= TRIGGER_DOOR5
then DoorTime
:= 180;
2485 if b
then g_Sound_PlayEx('SOUND_GAME_DOOROPEN');
2488 procedure g_Triggers_DecreaseSpawner(ID
: DWORD
);
2490 if (gTriggers
<> nil) then
2491 if gTriggers
[ID
].SpawnedCount
> 0 then
2492 Dec(gTriggers
[ID
].SpawnedCount
);
2495 procedure g_Triggers_Free();
2499 if gTriggers
<> nil then
2500 for a
:= 0 to High(gTriggers
) do
2502 if gTriggers
[a
].TriggerType
= TRIGGER_SOUND
then
2504 if g_Sound_Exists(gTriggers
[a
].Data
.SoundName
) then
2505 g_Sound_Delete(gTriggers
[a
].Data
.SoundName
);
2507 gTriggers
[a
].Sound
.Free();
2509 if gTriggers
[a
].Activators
<> nil then
2510 SetLength(gTriggers
[a
].Activators
, 0);
2515 SetLength(gMonstersSpawned
, 0);
2518 procedure g_Triggers_SaveState(var Mem
: TBinMemoryWriter
);
2520 count
, act_count
, i
, j
: Integer;
2526 // Ñ÷èòàåì êîëè÷åñòâî ñóùåñòâóþùèõ òðèããåðîâ:
2528 if gTriggers
<> nil then
2529 for i
:= 0 to High(gTriggers
) do
2532 Mem
:= TBinMemoryWriter
.Create((count
+1) * 200);
2534 // Êîëè÷åñòâî òðèããåðîâ:
2535 Mem
.WriteInt(count
);
2540 for i
:= 0 to High(gTriggers
) do
2542 // Ñèãíàòóðà òðèããåðà:
2543 dw
:= TRIGGER_SIGNATURE
; // 'TRGR'
2546 Mem
.WriteByte(gTriggers
[i
].TriggerType
);
2547 // Ñïåöèàëüíûå äàííûå òðèããåðà:
2548 p
:= @gTriggers
[i
].Data
;
2549 Mem
.WriteMemory(p
, SizeOf(TTriggerData
));
2550 // Êîîðäèíàòû ëåâîãî âåðõíåãî óãëà:
2551 Mem
.WriteInt(gTriggers
[i
].X
);
2552 Mem
.WriteInt(gTriggers
[i
].Y
);
2554 Mem
.WriteWord(gTriggers
[i
].Width
);
2555 Mem
.WriteWord(gTriggers
[i
].Height
);
2556 // Âêëþ÷åí ëè òðèããåð:
2557 Mem
.WriteBoolean(gTriggers
[i
].Enabled
);
2558 // Òèï àêòèâàöèè òðèããåðà:
2559 Mem
.WriteByte(gTriggers
[i
].ActivateType
);
2560 // Êëþ÷è, íåîáõîäèìûå äëÿ àêòèâàöèè:
2561 Mem
.WriteByte(gTriggers
[i
].Keys
);
2562 // ID ïàíåëè, òåêñòóðà êîòîðîé èçìåíèòñÿ:
2563 Mem
.WriteInt(gTriggers
[i
].TexturePanel
);
2565 Mem
.WriteWord(gTriggers
[i
].TexturePanelType
);
2566 // Âðåìÿ äî âîçìîæíîñòè àêòèâàöèè:
2567 Mem
.WriteWord(gTriggers
[i
].TimeOut
);
2568 // UID òîãî, êòî àêòèâèðîâàë ýòîò òðèããåð:
2569 Mem
.WriteWord(gTriggers
[i
].ActivateUID
);
2570 // Ñïèñîê UID-îâ îáúåêòîâ, êîòîðûå íàõîäèëèñü ïîä âîçäåéñòâèåì:
2571 act_count
:= Length(gTriggers
[i
].Activators
);
2572 Mem
.WriteInt(act_count
);
2573 for j
:= 0 to act_count
-1 do
2576 Mem
.WriteWord(gTriggers
[i
].Activators
[j
].UID
);
2578 Mem
.WriteWord(gTriggers
[i
].Activators
[j
].TimeOut
);
2580 // Ñòîèò ëè èãðîê â îáëàñòè òðèããåðà:
2581 Mem
.WriteBoolean(gTriggers
[i
].PlayerCollide
);
2582 // Âðåìÿ äî çàêðûòèÿ äâåðè:
2583 Mem
.WriteInt(gTriggers
[i
].DoorTime
);
2584 // Çàäåðæêà àêòèâàöèè:
2585 Mem
.WriteInt(gTriggers
[i
].PressTime
);
2587 Mem
.WriteInt(gTriggers
[i
].PressCount
);
2589 Mem
.WriteBoolean(gTriggers
[i
].AutoSpawn
);
2590 // Çàäåðæêà ñïàâíåðà:
2591 Mem
.WriteInt(gTriggers
[i
].SpawnCooldown
);
2592 // Ñ÷åò÷èê ñîçäàíèÿ îáúåêòîâ:
2593 Mem
.WriteInt(gTriggers
[i
].SpawnedCount
);
2594 // Ñêîëüêî ðàç ïðîèãðàí çâóê:
2595 Mem
.WriteInt(gTriggers
[i
].SoundPlayCount
);
2596 // Ïðîèãðûâàåòñÿ ëè çâóê?
2597 if gTriggers
[i
].Sound
<> nil then
2598 b
:= gTriggers
[i
].Sound
.IsPlaying()
2601 Mem
.WriteBoolean(b
);
2604 // Ïîçèöèÿ ïðîèãðûâàíèÿ çâóêà:
2605 dw
:= gTriggers
[i
].Sound
.GetPosition();
2608 sg
:= gTriggers
[i
].Sound
.GetVolume();
2609 sg
:= sg
/ (gSoundLevel
/255.0);
2610 Mem
.WriteSingle(sg
);
2611 // Ñòåðåî ñìåùåíèå çâóêà:
2612 sg
:= gTriggers
[i
].Sound
.GetPan();
2613 Mem
.WriteSingle(sg
);
2618 procedure g_Triggers_LoadState(var Mem
: TBinMemoryReader
);
2620 count
, act_count
, i
, j
, a
: Integer;
2632 // Êîëè÷åñòâî òðèããåðîâ:
2638 for a
:= 0 to count
-1 do
2640 // Ñèãíàòóðà òðèããåðà:
2642 if dw
<> TRIGGER_SIGNATURE
then // 'TRGR'
2644 raise EBinSizeError
.Create('g_Triggers_LoadState: Wrong Trigger Signature');
2647 Mem
.ReadByte(Trig
.TriggerType
);
2648 // Ñïåöèàëüíûå äàííûå òðèããåðà:
2649 Mem
.ReadMemory(p
, dw
);
2650 if dw
<> SizeOf(TTriggerData
) then
2652 raise EBinSizeError
.Create('g_Triggers_LoadState: Wrong TriggerData Size');
2654 Trig
.Data
:= TTriggerData(p
^);
2656 i
:= g_Triggers_Create(Trig
);
2657 // Êîîðäèíàòû ëåâîãî âåðõíåãî óãëà:
2658 Mem
.ReadInt(gTriggers
[i
].X
);
2659 Mem
.ReadInt(gTriggers
[i
].Y
);
2661 Mem
.ReadWord(gTriggers
[i
].Width
);
2662 Mem
.ReadWord(gTriggers
[i
].Height
);
2663 // Âêëþ÷åí ëè òðèããåð:
2664 Mem
.ReadBoolean(gTriggers
[i
].Enabled
);
2665 // Òèï àêòèâàöèè òðèããåðà:
2666 Mem
.ReadByte(gTriggers
[i
].ActivateType
);
2667 // Êëþ÷è, íåîáõîäèìûå äëÿ àêòèâàöèè:
2668 Mem
.ReadByte(gTriggers
[i
].Keys
);
2669 // ID ïàíåëè, òåêñòóðà êîòîðîé èçìåíèòñÿ:
2670 Mem
.ReadInt(gTriggers
[i
].TexturePanel
);
2672 Mem
.ReadWord(gTriggers
[i
].TexturePanelType
);
2673 // Âðåìÿ äî âîçìîæíîñòè àêòèâàöèè:
2674 Mem
.ReadWord(gTriggers
[i
].TimeOut
);
2675 // UID òîãî, êòî àêòèâèðîâàë ýòîò òðèããåð:
2676 Mem
.ReadWord(gTriggers
[i
].ActivateUID
);
2677 // Ñïèñîê UID-îâ îáúåêòîâ, êîòîðûå íàõîäèëèñü ïîä âîçäåéñòâèåì:
2678 Mem
.ReadInt(act_count
);
2679 if act_count
> 0 then
2681 SetLength(gTriggers
[i
].Activators
, act_count
);
2682 for j
:= 0 to act_count
-1 do
2685 Mem
.ReadWord(gTriggers
[i
].Activators
[j
].UID
);
2687 Mem
.ReadWord(gTriggers
[i
].Activators
[j
].TimeOut
);
2690 // Ñòîèò ëè èãðîê â îáëàñòè òðèããåðà:
2691 Mem
.ReadBoolean(gTriggers
[i
].PlayerCollide
);
2692 // Âðåìÿ äî çàêðûòèÿ äâåðè:
2693 Mem
.ReadInt(gTriggers
[i
].DoorTime
);
2694 // Çàäåðæêà àêòèâàöèè:
2695 Mem
.ReadInt(gTriggers
[i
].PressTime
);
2697 Mem
.ReadInt(gTriggers
[i
].PressCount
);
2699 Mem
.ReadBoolean(gTriggers
[i
].AutoSpawn
);
2700 // Çàäåðæêà ñïàâíåðà:
2701 Mem
.ReadInt(gTriggers
[i
].SpawnCooldown
);
2702 // Ñ÷åò÷èê ñîçäàíèÿ îáúåêòîâ:
2703 Mem
.ReadInt(gTriggers
[i
].SpawnedCount
);
2704 // Ñêîëüêî ðàç ïðîèãðàí çâóê:
2705 Mem
.ReadInt(gTriggers
[i
].SoundPlayCount
);
2706 // Ïðîèãðûâàåòñÿ ëè çâóê?
2710 // Ïîçèöèÿ ïðîèãðûâàíèÿ çâóêà:
2713 Mem
.ReadSingle(vol
);
2714 // Ñòåðåî ñìåùåíèå çâóêà:
2715 Mem
.ReadSingle(pan
);
2716 // Çàïóñêàåì çâóê, åñëè åñòü:
2717 if gTriggers
[i
].Sound
<> nil then
2719 gTriggers
[i
].Sound
.PlayPanVolume(pan
, vol
);
2720 gTriggers
[i
].Sound
.Pause(True);
2721 gTriggers
[i
].Sound
.SetPosition(dw
);