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, version 3 of the License ONLY.
7 * This program is distributed in the hope that it will be useful,
8 * but WITHOUT ANY WARRANTY; without even the implied warranty of
9 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
10 * GNU General Public License for more details.
12 * You should have received a copy of the GNU General Public License
13 * along with this program. If not, see <http://www.gnu.org/licenses/>.
15 {$INCLUDE ../shared/a_modes.inc}
21 SysUtils
, Variants
, Classes
,
22 MAPDEF
, e_graphics
, g_basic
, g_sound
,
23 xdynrec
, hashtable
, exoma
;
42 TexturePanelGUID
: Integer;
43 //TexturePanelType: Word;
47 Activators
: array of TActivator
;
48 PlayerCollide
: Boolean;
52 SoundPlayCount
: Integer;
53 Sound
: TPlayableSound
;
55 SpawnCooldown
: Integer;
56 SpawnedCount
: Integer;
57 //ShotPanelType: Word;
58 ShotPanelTime
: Integer;
59 ShotSightTime
: Integer;
60 ShotSightTimeout
: Integer;
61 ShotSightTarget
: Word;
62 ShotSightTargetN
: Word;
64 ShotReloadTime
: Integer;
66 mapId
: AnsiString; // trigger id, from map
67 mapIndex
: Integer; // index in fields['trigger'], used in save/load
68 trigPanelGUID
: Integer;
70 trigDataRec
: TDynRecord
; // triggerdata; owned by trigger (cloned)
71 exoInit
, exoThink
, exoCheck
, exoAction
: TExprBase
;
73 userVars
: THashStrVariant
;
75 {$INCLUDE ../shared/mapdef_tgc_def.inc}
78 function trigCenter (): TDFPoint
; inline;
81 function g_Triggers_Create (aTrigger
: TTrigger
; trec
: TDynRecord
; forceInternalIndex
: Integer=-1): DWORD
;
82 procedure g_Triggers_Update();
83 procedure g_Triggers_Press(ID
: DWORD
; ActivateType
: Byte; ActivateUID
: Word = 0);
84 function g_Triggers_PressR(X
, Y
: Integer; Width
, Height
: Word; UID
: Word;
85 ActivateType
: Byte; IgnoreList
: DWArray
= nil): DWArray
;
86 procedure g_Triggers_PressL(X1
, Y1
, X2
, Y2
: Integer; UID
: DWORD
; ActivateType
: Byte);
87 procedure g_Triggers_PressC(CX
, CY
: Integer; Radius
: Word; UID
: Word; ActivateType
: Byte; IgnoreTrigger
: Integer = -1);
88 procedure g_Triggers_OpenAll();
89 procedure g_Triggers_DecreaseSpawner(ID
: DWORD
);
90 procedure g_Triggers_Free();
91 procedure g_Triggers_SaveState (st
: TStream
);
92 procedure g_Triggers_LoadState (st
: TStream
);
96 gTriggerClientID
: Integer = 0;
97 gTriggers
: array of TTrigger
;
98 gSecretsCount
: Integer = 0;
99 gMonstersSpawned
: array of LongInt = nil;
106 g_player
, g_map
, g_panel
, g_gfx
, g_game
, g_textures
,
107 g_console
, g_monsters
, g_items
, g_phys
, g_weapons
,
108 wadreader
, g_main
, e_log
, g_language
,
109 g_options
, g_net
, g_netmsg
, utils
, xparser
, xstreams
;
112 TRIGGER_SIGNATURE
= $58475254; // 'TRGX'
115 {$INCLUDE ../shared/mapdef_tgc_impl.inc}
118 // ////////////////////////////////////////////////////////////////////////// //
120 TTrigScope
= class(TExprScope
)
123 monsprops
: TPropHash
;
124 platprops
: TPropHash
;
130 constructor Create ();
131 destructor Destroy (); override;
133 function getObj (const aname
: AnsiString): TObject
; override;
134 function getField (obj
: TObject
; const afldname
: AnsiString): Variant; override;
135 procedure setField (obj
: TObject
; const afldname
: AnsiString; var aval
: Variant); override;
139 // ////////////////////////////////////////////////////////////////////////// //
141 TMyConstList
= class(TExprConstList
)
143 function valid (const cname
: AnsiString): Boolean; override;
144 function get (const cname
: AnsiString; out v
: Variant): Boolean; override;
148 // ////////////////////////////////////////////////////////////////////////// //
149 function TMyConstList
.valid (const cname
: AnsiString): Boolean;
151 //writeln('CHECK: ''', cname, '''');
153 (cname
= 'player') or
158 function TMyConstList
.get (const cname
: AnsiString; out v
: Variant): Boolean;
163 //if (cname = 'answer') then begin v := LongInt(42); result := true; exit; end;
165 if (gCurrentMap
= nil) then exit
;
166 for eidx
:= 0 to gCurrentMap
.mapdef
.ebsTypeCount
-1 do
168 ebs
:= gCurrentMap
.mapdef
.ebsTypeAt
[eidx
];
169 if ebs
.has
[cname
] then
171 //writeln('FOUND: ''', cname, '''');
180 // ////////////////////////////////////////////////////////////////////////// //
181 constructor TTrigScope
.Create ();
183 plrprops
:= TPropHash
.Create(TPlayer
, 'e');
184 monsprops
:= TPropHash
.Create(TMonster
, 'e');
185 platprops
:= TPropHash
.Create(TPanel
, 'e');
190 destructor TTrigScope
.Destroy ();
199 function TTrigScope
.getObj (const aname
: AnsiString): TObject
;
201 if (aname
= 'player') then result
:= gPlayers
[0] //FIXME
202 else if (aname
= 'self') or (aname
= 'this') then result
:= TObject(Pointer(PtrUInt(1)))
203 else result
:= inherited getObj(aname
);
207 function TTrigScope
.getField (obj
: TObject
; const afldname
: AnsiString): Variant;
209 if (obj
= gPlayers
[0]) then
211 if plrprops
.get(obj
, afldname
, result
) then exit
;
213 else if (obj
= TObject(Pointer(PtrUInt(1)))) then
215 if (me
<> nil) and (me
.userVars
<> nil) then
217 if me
.userVars
.get(afldname
, result
) then exit
;
220 result
:= inherited getField(obj
, afldname
);
224 procedure TTrigScope
.setField (obj
: TObject
; const afldname
: AnsiString; var aval
: Variant);
226 if (obj
= gPlayers
[0]) then
228 if plrprops
.put(obj
, afldname
, aval
) then exit
;
230 else if (obj
= TObject(Pointer(PtrUInt(1)))) then
234 if (Length(afldname
) > 4) and (afldname
[1] = 'u') and (afldname
[2] = 's') and
235 (afldname
[3] = 'e') and (afldname
[4] = 'r') then
237 if (me
.userVars
= nil) then me
.userVars
:= THashStrVariant
.Create();
238 me
.userVars
.put(afldname
, aval
);
243 inherited setField(obj
, afldname
, aval
);
247 // ////////////////////////////////////////////////////////////////////////// //
249 tgscope
: TTrigScope
= nil;
250 tgclist
: TMyConstList
= nil;
253 // ////////////////////////////////////////////////////////////////////////// //
254 function TTrigger
.trigCenter (): TDFPoint
; inline;
256 result
:= TDFPoint
.Create(x
+width
div 2, y
+height
div 2);
260 function FindTrigger (): DWORD
;
264 olen
:= Length(gTriggers
);
266 for i
:= 0 to olen
-1 do
268 if gTriggers
[i
].TriggerType
= TRIGGER_NONE
then begin result
:= i
; exit
; end;
271 SetLength(gTriggers
, olen
+8);
274 for i
:= result
to High(gTriggers
) do
276 gTriggers
[i
].TriggerType
:= TRIGGER_NONE
;
277 gTriggers
[i
].trigDataRec
:= nil;
278 gTriggers
[i
].exoInit
:= nil;
279 gTriggers
[i
].exoThink
:= nil;
280 gTriggers
[i
].exoCheck
:= nil;
281 gTriggers
[i
].exoAction
:= nil;
282 gTriggers
[i
].userVars
:= nil;
287 function tr_CloseDoor (PanelGUID
: Integer; NoSound
: Boolean; d2d
: Boolean): Boolean;
294 pan
:= g_Map_PanelByGUID(PanelGUID
);
295 if (pan
= nil) or not pan
.isGWall
then exit
; //!FIXME!TRIGANY!
296 PanelID
:= pan
.arrIdx
;
300 with gWalls
[PanelID
] do
302 if g_CollidePlayer(X
, Y
, Width
, Height
) or g_Mons_IsAnyAliveAt(X
, Y
, Width
, Height
) then Exit
;
307 g_Sound_PlayExAt('SOUND_GAME_DOORCLOSE', X
, Y
);
308 if g_Game_IsServer
and g_Game_IsNet
then MH_SEND_Sound(X
, Y
, 'SOUND_GAME_DOORCLOSE');
310 g_Map_EnableWallGUID(PanelGUID
);
317 if (gDoorMap
= nil) then exit
;
320 for a
:= 0 to High(gDoorMap
) do
322 for b
:= 0 to High(gDoorMap
[a
]) do
324 if gDoorMap
[a
, b
] = DWORD(PanelID
) then
330 if (c
<> -1) then break
;
332 if (c
= -1) then exit
;
334 for b
:= 0 to High(gDoorMap
[c
]) do
336 with gWalls
[gDoorMap
[c
, b
]] do
338 if g_CollidePlayer(X
, Y
, Width
, Height
) or g_Mons_IsAnyAliveAt(X
, Y
, Width
, Height
) then exit
;
344 for b
:= 0 to High(gDoorMap
[c
]) do
346 if not gWalls
[gDoorMap
[c
, b
]].Enabled
then
348 with gWalls
[PanelID
] do
350 g_Sound_PlayExAt('SOUND_GAME_DOORCLOSE', X
, Y
);
351 if g_Game_IsServer
and g_Game_IsNet
then MH_SEND_Sound(X
, Y
, 'SOUND_GAME_DOORCLOSE');
358 for b
:= 0 to High(gDoorMap
[c
]) do
360 if not gWalls
[gDoorMap
[c
, b
]].Enabled
then
362 g_Map_EnableWall_XXX(gDoorMap
[c
, b
]);
370 procedure tr_CloseTrap (PanelGUID
: Integer; NoSound
: Boolean; d2d
: Boolean);
373 wx
, wy
, wh
, ww
: Integer;
377 function monsDamage (mon
: TMonster
): Boolean;
379 result
:= false; // don't stop
380 if g_Obj_Collide(wx
, wy
, ww
, wh
, @mon
.Obj
) then mon
.Damage(TRAP_DAMAGE
, 0, 0, 0, HIT_TRAP
);
384 pan
:= g_Map_PanelByGUID(PanelGUID
);
388 e_LogWritefln('tr_CloseTrap: pguid=%s; NO PANEL!', [PanelGUID], MSG_WARNING);
392 e_LogWritefln('tr_CloseTrap: pguid=%s; isGWall=%s; arrIdx=%s', [PanelGUID, pan.isGWall, pan.arrIdx]);
395 if (pan
= nil) or not pan
.isGWall
then exit
; //!FIXME!TRIGANY!
396 PanelID
:= pan
.arrIdx
;
400 with gWalls
[PanelID
] do
402 if (not NoSound
) and (not Enabled
) then
404 g_Sound_PlayExAt('SOUND_GAME_SWITCH1', X
, Y
);
405 if g_Game_IsServer
and g_Game_IsNet
then MH_SEND_Sound(X
, Y
, 'SOUND_GAME_SWITCH1');
409 wx
:= gWalls
[PanelID
].X
;
410 wy
:= gWalls
[PanelID
].Y
;
411 ww
:= gWalls
[PanelID
].Width
;
412 wh
:= gWalls
[PanelID
].Height
;
414 with gWalls
[PanelID
] do
416 if gPlayers
<> nil then
418 for a
:= 0 to High(gPlayers
) do
420 if (gPlayers
[a
] <> nil) and gPlayers
[a
].alive
and gPlayers
[a
].Collide(X
, Y
, Width
, Height
) then
422 gPlayers
[a
].Damage(TRAP_DAMAGE
, 0, 0, 0, HIT_TRAP
);
427 //g_Mons_ForEach(monsDamage);
428 g_Mons_ForEachAliveAt(wx
, wy
, ww
, wh
, monsDamage
);
430 if not Enabled
then g_Map_EnableWallGUID(PanelGUID
);
435 if (gDoorMap
= nil) then exit
;
438 for a
:= 0 to High(gDoorMap
) do
440 for b
:= 0 to High(gDoorMap
[a
]) do
442 if gDoorMap
[a
, b
] = DWORD(PanelID
) then
448 if (c
<> -1) then break
;
450 if (c
= -1) then exit
;
454 for b
:= 0 to High(gDoorMap
[c
]) do
456 if not gWalls
[gDoorMap
[c
, b
]].Enabled
then
458 with gWalls
[PanelID
] do
460 g_Sound_PlayExAt('SOUND_GAME_SWITCH1', X
, Y
);
461 if g_Game_IsServer
and g_Game_IsNet
then MH_SEND_Sound(X
, Y
, 'SOUND_GAME_SWITCH1');
468 for b
:= 0 to High(gDoorMap
[c
]) do
470 wx
:= gWalls
[gDoorMap
[c
, b
]].X
;
471 wy
:= gWalls
[gDoorMap
[c
, b
]].Y
;
472 ww
:= gWalls
[gDoorMap
[c
, b
]].Width
;
473 wh
:= gWalls
[gDoorMap
[c
, b
]].Height
;
475 with gWalls
[gDoorMap
[c
, b
]] do
477 if gPlayers
<> nil then
479 for a
:= 0 to High(gPlayers
) do
481 if (gPlayers
[a
] <> nil) and gPlayers
[a
].alive
and gPlayers
[a
].Collide(X
, Y
, Width
, Height
) then
483 gPlayers
[a
].Damage(TRAP_DAMAGE
, 0, 0, 0, HIT_TRAP
);
488 //g_Mons_ForEach(monsDamage);
489 g_Mons_ForEachAliveAt(wx
, wy
, ww
, wh
, monsDamage
);
491 if gMonsters <> nil then
492 for a := 0 to High(gMonsters) do
493 if (gMonsters[a] <> nil) and gMonsters[a].alive and
494 g_Obj_Collide(X, Y, Width, Height, @gMonsters[a].Obj) then
495 gMonsters[a].Damage(TRAP_DAMAGE, 0, 0, 0, HIT_TRAP);
498 if not Enabled
then g_Map_EnableWall_XXX(gDoorMap
[c
, b
]);
505 function tr_OpenDoor (PanelGUID
: Integer; NoSound
: Boolean; d2d
: Boolean): Boolean;
512 pan
:= g_Map_PanelByGUID(PanelGUID
);
513 if (pan
= nil) or not pan
.isGWall
then exit
; //!FIXME!TRIGANY!
514 PanelID
:= pan
.arrIdx
;
518 with gWalls
[PanelID
] do
524 g_Sound_PlayExAt('SOUND_GAME_DOOROPEN', X
, Y
);
525 if g_Game_IsServer
and g_Game_IsNet
then MH_SEND_Sound(X
, Y
, 'SOUND_GAME_DOOROPEN');
527 g_Map_DisableWallGUID(PanelGUID
);
534 if (gDoorMap
= nil) then exit
;
537 for a
:= 0 to High(gDoorMap
) do
539 for b
:= 0 to High(gDoorMap
[a
]) do
541 if gDoorMap
[a
, b
] = DWORD(PanelID
) then
547 if (c
<> -1) then break
;
549 if (c
= -1) then exit
;
553 for b
:= 0 to High(gDoorMap
[c
]) do
555 if gWalls
[gDoorMap
[c
, b
]].Enabled
then
557 with gWalls
[PanelID
] do
559 g_Sound_PlayExAt('SOUND_GAME_DOOROPEN', X
, Y
);
560 if g_Game_IsServer
and g_Game_IsNet
then MH_SEND_Sound(X
, Y
, 'SOUND_GAME_DOOROPEN');
567 for b
:= 0 to High(gDoorMap
[c
]) do
569 if gWalls
[gDoorMap
[c
, b
]].Enabled
then
571 g_Map_DisableWall_XXX(gDoorMap
[c
, b
]);
579 function tr_SetLift (PanelGUID
: Integer; d
: Integer; NoSound
: Boolean; d2d
: Boolean): Boolean;
587 pan
:= g_Map_PanelByGUID(PanelGUID
);
588 if (pan
= nil) or not pan
.isGLift
then exit
; //!FIXME!TRIGANY!
589 PanelID
:= pan
.arrIdx
;
591 if (gLifts
[PanelID
].PanelType
= PANEL_LIFTUP
) or (gLifts
[PanelID
].PanelType
= PANEL_LIFTDOWN
) then
595 1: t
:= LIFTTYPE_DOWN
;
596 else t
:= IfThen(gLifts
[PanelID
].LiftType
= LIFTTYPE_DOWN
, LIFTTYPE_UP
, LIFTTYPE_DOWN
);
599 else if (gLifts
[PanelID
].PanelType
= PANEL_LIFTLEFT
) or (gLifts
[PanelID
].PanelType
= PANEL_LIFTRIGHT
) then
602 0: t
:= LIFTTYPE_LEFT
;
603 1: t
:= LIFTTYPE_RIGHT
;
604 else t
:= IfThen(gLifts
[PanelID
].LiftType
= LIFTTYPE_LEFT
, LIFTTYPE_RIGHT
, LIFTTYPE_LEFT
);
610 with gLifts
[PanelID
] do
612 if (LiftType
<> t
) then
614 g_Map_SetLiftGUID(PanelGUID
, t
); //???
615 //if not NoSound then g_Sound_PlayExAt('SOUND_GAME_SWITCH0', X, Y);
622 if (gLiftMap
= nil) then exit
;
625 for a
:= 0 to High(gLiftMap
) do
627 for b
:= 0 to High(gLiftMap
[a
]) do
629 if (gLiftMap
[a
, b
] = DWORD(PanelID
)) then
635 if (c
<> -1) then break
;
637 if (c
= -1) then exit
;
640 for b := 0 to High(gLiftMap[c]) do
641 if gLifts[gLiftMap[c, b]].LiftType <> t then
643 with gLifts[PanelID] do
644 g_Sound_PlayExAt('SOUND_GAME_SWITCH0', X, Y);
648 for b
:= 0 to High(gLiftMap
[c
]) do
650 with gLifts
[gLiftMap
[c
, b
]] do
652 if (LiftType
<> t
) then
654 g_Map_SetLift_XXX(gLiftMap
[c
, b
], t
);
663 function tr_SpawnShot (ShotType
: Integer; wx
, wy
, dx
, dy
: Integer; ShotSound
: Boolean; ShotTarget
: Word): Integer;
671 TextureID
:= DWORD(-1);
672 snd
:= 'SOUND_WEAPON_FIREROCKET';
678 g_Weapon_pistol(wx
, wy
, dx
, dy
, 0, True);
679 snd
:= 'SOUND_WEAPON_FIREPISTOL';
683 g_Player_CreateShell(wx
, wy
, 0, -2, SHELL_BULLET
);
684 if g_Game_IsNet
then MH_SEND_Effect(wx
, wy
, 0, NET_GFX_SHELL1
);
690 g_Weapon_mgun(wx
, wy
, dx
, dy
, 0, True);
691 if gSoundEffectsDF
then snd
:= 'SOUND_WEAPON_FIRECGUN'
692 else snd
:= 'SOUND_WEAPON_FIREPISTOL';
696 g_Player_CreateShell(wx
, wy
, 0, -2, SHELL_BULLET
);
697 if g_Game_IsNet
then MH_SEND_Effect(wx
, wy
, 0, NET_GFX_SHELL1
);
701 TRIGGER_SHOT_SHOTGUN
:
703 g_Weapon_Shotgun(wx
, wy
, dx
, dy
, 0, True);
704 snd
:= 'SOUND_WEAPON_FIRESHOTGUN';
708 g_Player_CreateShell(wx
, wy
, 0, -2, SHELL_SHELL
);
709 if g_Game_IsNet
then MH_SEND_Effect(wx
, wy
, 0, NET_GFX_SHELL2
);
715 g_Weapon_DShotgun(wx
, wy
, dx
, dy
, 0, True);
716 snd
:= 'SOUND_WEAPON_FIRESHOTGUN2';
720 g_Player_CreateShell(wx
, wy
, 0, -2, SHELL_SHELL
);
721 g_Player_CreateShell(wx
, wy
, 0, -2, SHELL_SHELL
);
722 if g_Game_IsNet
then MH_SEND_Effect(wx
, wy
, 0, NET_GFX_SHELL3
);
728 g_Weapon_ball1(wx
, wy
, dx
, dy
, 0, -1, True);
729 snd
:= 'SOUND_WEAPON_FIREBALL';
734 g_Weapon_Plasma(wx
, wy
, dx
, dy
, 0, -1, True);
735 snd
:= 'SOUND_WEAPON_FIREPLASMA';
740 g_Weapon_aplasma(wx
, wy
, dx
, dy
, 0, -1, True);
741 snd
:= 'SOUND_WEAPON_FIREPLASMA';
746 g_Weapon_ball2(wx
, wy
, dx
, dy
, 0, -1, True);
747 snd
:= 'SOUND_WEAPON_FIREBALL';
752 g_Weapon_ball7(wx
, wy
, dx
, dy
, 0, -1, True);
753 snd
:= 'SOUND_WEAPON_FIREBALL';
758 g_Weapon_manfire(wx
, wy
, dx
, dy
, 0, -1, True);
759 snd
:= 'SOUND_WEAPON_FIREBALL';
764 g_Weapon_revf(wx
, wy
, dx
, dy
, 0, ShotTarget
, -1, True);
765 snd
:= 'SOUND_WEAPON_FIREREV';
770 g_Weapon_Rocket(wx
, wy
, dx
, dy
, 0, -1, True);
771 snd
:= 'SOUND_WEAPON_FIREROCKET';
776 g_Weapon_BFGShot(wx
, wy
, dx
, dy
, 0, -1, True);
777 snd
:= 'SOUND_WEAPON_FIREBFG';
782 if g_Frames_Get(TextureID
, 'FRAMES_EXPLODE_ROCKET') then
784 Anim
:= TAnimation
.Create(TextureID
, False, 6);
785 Anim
.Blending
:= False;
786 g_GFX_OnceAnim(wx
-64, wy
-64, Anim
);
790 g_Weapon_Explode(wx
, wy
, 60, 0);
791 snd
:= 'SOUND_WEAPON_EXPLODEROCKET';
794 TRIGGER_SHOT_BFGEXPL
:
796 if g_Frames_Get(TextureID
, 'FRAMES_EXPLODE_BFG') then
798 Anim
:= TAnimation
.Create(TextureID
, False, 6);
799 Anim
.Blending
:= False;
800 g_GFX_OnceAnim(wx
-64, wy
-64, Anim
);
804 g_Weapon_BFG9000(wx
, wy
, 0);
805 snd
:= 'SOUND_WEAPON_EXPLODEBFG';
810 g_Weapon_flame(wx
, wy
, dx
, dy
, 0, -1, True);
811 snd
:= 'SOUND_GAME_BURNING';
817 if g_Game_IsNet
and g_Game_IsServer
then
820 TRIGGER_SHOT_EXPL
: MH_SEND_Effect(wx
, wy
, Byte(ShotSound
), NET_GFX_EXPLODE
);
821 TRIGGER_SHOT_BFGEXPL
: MH_SEND_Effect(wx
, wy
, Byte(ShotSound
), NET_GFX_BFGEXPL
);
824 if Projectile
then MH_SEND_CreateShot(LastShotID
);
825 if ShotSound
then MH_SEND_Sound(wx
, wy
, snd
);
830 if ShotSound
then g_Sound_PlayExAt(snd
, wx
, wy
);
832 if Projectile
then Result
:= LastShotID
;
836 procedure MakeShot (var Trigger
: TTrigger
; wx
, wy
, dx
, dy
: Integer; TargetUID
: Word);
840 if (tgcAmmo
= 0) or ((tgcAmmo
> 0) and (ShotAmmoCount
> 0)) then
842 if (trigPanelGUID
<> -1) and (ShotPanelTime
= 0) then
844 g_Map_SwitchTextureGUID({ShotPanelType,} trigPanelGUID
);
845 ShotPanelTime
:= 4; // òèêîâ íà âñïûøêó âûñòðåëà
848 if (tgcSight
> 0) then ShotSightTimeout
:= 180; // ~= 5 ñåêóíä
850 if (ShotAmmoCount
> 0) then Dec(ShotAmmoCount
);
852 dx
+= Random(tgcAccuracy
)-Random(tgcAccuracy
);
853 dy
+= Random(tgcAccuracy
)-Random(tgcAccuracy
);
855 tr_SpawnShot(tgcShotType
, wx
, wy
, dx
, dy
, tgcShotSound
, TargetUID
);
859 if (tgcReload
> 0) and (ShotReloadTime
= 0) then
861 ShotReloadTime
:= tgcReload
; // òèêîâ íà ïåðåçàðÿäêó ïóøêè
868 procedure tr_MakeEffect (X
, Y
, VX
, VY
: Integer; T
, ST
, CR
, CG
, CB
: Byte; Silent
, Send
: Boolean);
873 if T
= TRIGGER_EFFECT_PARTICLE
then
876 TRIGGER_EFFECT_SLIQUID
:
878 if (CR
= 255) and (CG
= 0) and (CB
= 0) then g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 1, 0, 0, 0)
879 else if (CR
= 0) and (CG
= 255) and (CB
= 0) then g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 2, 0, 0, 0)
880 else if (CR
= 0) and (CG
= 0) and (CB
= 255) then g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 3, 0, 0, 0)
881 else g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 0, 0, 0, 0);
883 TRIGGER_EFFECT_LLIQUID
: g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 4, CR
, CG
, CB
);
884 TRIGGER_EFFECT_DLIQUID
: g_GFX_SimpleWater(X
, Y
, 1, VX
, VY
, 5, CR
, CG
, CB
);
885 TRIGGER_EFFECT_BLOOD
: g_GFX_Blood(X
, Y
, 1, VX
, VY
, 0, 0, CR
, CG
, CB
);
886 TRIGGER_EFFECT_SPARK
: g_GFX_Spark(X
, Y
, 1, GetAngle2(VX
, VY
), 0, 0);
887 TRIGGER_EFFECT_BUBBLE
: g_GFX_Bubbles(X
, Y
, 1, 0, 0);
891 if T
= TRIGGER_EFFECT_ANIMATION
then
894 EFFECT_TELEPORT
: begin
895 if g_Frames_Get(FramesID
, 'FRAMES_TELEPORT') then
897 Anim
:= TAnimation
.Create(FramesID
, False, 3);
898 if not Silent
then g_Sound_PlayExAt('SOUND_GAME_TELEPORT', X
, Y
);
899 g_GFX_OnceAnim(X
-32, Y
-32, Anim
);
902 if Send
and g_Game_IsServer
and g_Game_IsNet
then MH_SEND_Effect(X
, Y
, Byte(not Silent
), NET_GFX_TELE
);
904 EFFECT_RESPAWN
: begin
905 if g_Frames_Get(FramesID
, 'FRAMES_ITEM_RESPAWN') then
907 Anim
:= TAnimation
.Create(FramesID
, False, 4);
908 if not Silent
then g_Sound_PlayExAt('SOUND_ITEM_RESPAWNITEM', X
, Y
);
909 g_GFX_OnceAnim(X
-16, Y
-16, Anim
);
912 if Send
and g_Game_IsServer
and g_Game_IsNet
then MH_SEND_Effect(X
-16, Y
-16, Byte(not Silent
), NET_GFX_RESPAWN
);
915 if g_Frames_Get(FramesID
, 'FRAMES_FIRE') then
917 Anim
:= TAnimation
.Create(FramesID
, False, 4);
918 if not Silent
then g_Sound_PlayExAt('SOUND_FIRE', X
, Y
);
919 g_GFX_OnceAnim(X
-32, Y
-128, Anim
);
922 if Send
and g_Game_IsServer
and g_Game_IsNet
then MH_SEND_Effect(X
-32, Y
-128, Byte(not Silent
), NET_GFX_FIRE
);
929 function tr_Teleport (ActivateUID
: Integer; TX
, TY
: Integer; TDir
: Integer; Silent
: Boolean; D2D
: Boolean): Boolean;
935 if (ActivateUID
< 0) or (ActivateUID
> $FFFF) then Exit
;
936 case g_GetUIDType(ActivateUID
) of
939 p
:= g_Player_Get(ActivateUID
);
940 if p
= nil then Exit
;
943 if p
.TeleportTo(TX
-(p
.Obj
.Rect
.Width
div 2), TY
-p
.Obj
.Rect
.Height
, Silent
, TDir
) then result
:= true;
947 if p
.TeleportTo(TX
, TY
, Silent
, TDir
) then result
:= true;
952 m
:= g_Monsters_ByUID(ActivateUID
);
953 if m
= nil then Exit
;
956 if m
.TeleportTo(TX
-(m
.Obj
.Rect
.Width
div 2), TY
-m
.Obj
.Rect
.Height
, Silent
, TDir
) then result
:= true;
960 if m
.TeleportTo(TX
, TY
, Silent
, TDir
) then result
:= true;
967 function tr_Push (ActivateUID
: Integer; VX
, VY
: Integer; ResetVel
: Boolean): Boolean;
973 if (ActivateUID
< 0) or (ActivateUID
> $FFFF) then exit
;
974 case g_GetUIDType(ActivateUID
) of
977 p
:= g_Player_Get(ActivateUID
);
978 if p
= nil then Exit
;
993 m
:= g_Monsters_ByUID(ActivateUID
);
994 if m
= nil then Exit
;
1010 function tr_Message (MKind
: Integer; MText
: string; MSendTo
: Integer; MTime
: Integer; ActivateUID
: Integer): Boolean;
1017 if (ActivateUID
< 0) or (ActivateUID
> $FFFF) then Exit
;
1018 msg
:= b_Text_Format(MText
);
1020 TRIGGER_MESSAGE_DEST_ME
: // activator
1022 if g_GetUIDType(ActivateUID
) = UID_PLAYER
then
1024 if g_Game_IsWatchedPlayer(ActivateUID
) then
1026 if MKind
= TRIGGER_MESSAGE_KIND_CHAT
then g_Console_Add(msg
, True)
1027 else if MKind
= TRIGGER_MESSAGE_KIND_GAME
then g_Game_Message(msg
, MTime
);
1031 p
:= g_Player_Get(ActivateUID
);
1032 if g_Game_IsNet
and (p
.FClientID
>= 0) then
1034 if MKind
= TRIGGER_MESSAGE_KIND_CHAT
then MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
, p
.FClientID
)
1035 else if MKind
= TRIGGER_MESSAGE_KIND_GAME
then MH_SEND_GameEvent(NET_EV_BIGTEXT
, MTime
, msg
, p
.FClientID
);
1041 TRIGGER_MESSAGE_DEST_MY_TEAM
: // activator's team
1043 if g_GetUIDType(ActivateUID
) = UID_PLAYER
then
1045 p
:= g_Player_Get(ActivateUID
);
1046 if g_Game_IsWatchedTeam(p
.Team
) then
1048 if MKind
= TRIGGER_MESSAGE_KIND_CHAT
then g_Console_Add(msg
, True)
1049 else if MKind
= TRIGGER_MESSAGE_KIND_GAME
then g_Game_Message(msg
, MTime
);
1052 if g_Game_IsNet
then
1054 for i
:= Low(gPlayers
) to High(gPlayers
) do
1056 if (gPlayers
[i
].Team
= p
.Team
) and (gPlayers
[i
].FClientID
>= 0) then
1058 if MKind
= TRIGGER_MESSAGE_KIND_CHAT
then MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
, gPlayers
[i
].FClientID
)
1059 else if MKind
= TRIGGER_MESSAGE_KIND_GAME
then MH_SEND_GameEvent(NET_EV_BIGTEXT
, MTime
, msg
, gPlayers
[i
].FClientID
);
1066 TRIGGER_MESSAGE_DEST_ENEMY_TEAM
: // activator's enemy team
1068 if g_GetUIDType(ActivateUID
) = UID_PLAYER
then
1070 p
:= g_Player_Get(ActivateUID
);
1071 if g_Game_IsWatchedTeam(p
.Team
) then
1073 if MKind
= TRIGGER_MESSAGE_KIND_CHAT
then g_Console_Add(msg
, True)
1074 else if MKind
= TRIGGER_MESSAGE_KIND_GAME
then g_Game_Message(msg
, MTime
);
1077 if g_Game_IsNet
then
1079 for i
:= Low(gPlayers
) to High(gPlayers
) do
1081 if (gPlayers
[i
].Team
<> p
.Team
) and (gPlayers
[i
].FClientID
>= 0) then
1083 if MKind
= TRIGGER_MESSAGE_KIND_CHAT
then MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
, gPlayers
[i
].FClientID
)
1084 else if MKind
= TRIGGER_MESSAGE_KIND_GAME
then MH_SEND_GameEvent(NET_EV_BIGTEXT
, MTime
, msg
, gPlayers
[i
].FClientID
);
1091 TRIGGER_MESSAGE_DEST_RED_TEAM
: // red team
1093 if g_Game_IsWatchedTeam(TEAM_RED
) then
1095 if MKind
= TRIGGER_MESSAGE_KIND_CHAT
then g_Console_Add(msg
, True)
1096 else if MKind
= TRIGGER_MESSAGE_KIND_GAME
then g_Game_Message(msg
, MTime
);
1099 if g_Game_IsNet
then
1101 for i
:= Low(gPlayers
) to High(gPlayers
) do
1103 if (gPlayers
[i
].Team
= TEAM_RED
) and (gPlayers
[i
].FClientID
>= 0) then
1105 if MKind
= TRIGGER_MESSAGE_KIND_CHAT
then MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
, gPlayers
[i
].FClientID
)
1106 else if MKind
= TRIGGER_MESSAGE_KIND_GAME
then MH_SEND_GameEvent(NET_EV_BIGTEXT
, MTime
, msg
, gPlayers
[i
].FClientID
);
1112 TRIGGER_MESSAGE_DEST_BLUE_TEAM
: // blue team
1114 if g_Game_IsWatchedTeam(TEAM_BLUE
) then
1116 if MKind
= TRIGGER_MESSAGE_KIND_CHAT
then g_Console_Add(msg
, True)
1117 else if MKind
= TRIGGER_MESSAGE_KIND_GAME
then g_Game_Message(msg
, MTime
);
1120 if g_Game_IsNet
then
1122 for i
:= Low(gPlayers
) to High(gPlayers
) do
1124 if (gPlayers
[i
].Team
= TEAM_BLUE
) and (gPlayers
[i
].FClientID
>= 0) then
1126 if MKind
= TRIGGER_MESSAGE_KIND_CHAT
then MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
, gPlayers
[i
].FClientID
)
1127 else if MKind
= TRIGGER_MESSAGE_KIND_GAME
then MH_SEND_GameEvent(NET_EV_BIGTEXT
, MTime
, msg
, gPlayers
[i
].FClientID
);
1133 TRIGGER_MESSAGE_DEST_EVERYONE
: // everyone
1135 if MKind
= TRIGGER_MESSAGE_KIND_CHAT
then g_Console_Add(msg
, True)
1136 else if MKind
= TRIGGER_MESSAGE_KIND_GAME
then g_Game_Message(msg
, MTime
);
1138 if g_Game_IsNet
then
1140 if MKind
= TRIGGER_MESSAGE_KIND_CHAT
then MH_SEND_Chat(msg
, NET_CHAT_SYSTEM
)
1141 else if MKind
= TRIGGER_MESSAGE_KIND_GAME
then MH_SEND_GameEvent(NET_EV_BIGTEXT
, MTime
, msg
);
1148 function tr_ShotAimCheck (var Trigger
: TTrigger
; Obj
: PObj
): Boolean;
1153 if TriggerType
<> TRIGGER_SHOT
then Exit
;
1154 result
:= (tgcAim
and TRIGGER_SHOT_AIM_ALLMAP
> 0)
1155 or g_Obj_Collide(X
, Y
, Width
, Height
, Obj
);
1156 if result
and (tgcAim
and TRIGGER_SHOT_AIM_TRACE
> 0) then
1158 result
:= g_TraceVector(tgcTX
, tgcTY
,
1159 Obj
^.X
+ Obj
^.Rect
.X
+ (Obj
^.Rect
.Width
div 2),
1160 Obj
^.Y
+ Obj
^.Rect
.Y
+ (Obj
^.Rect
.Height
div 2));
1166 function ActivateTrigger (var Trigger
: TTrigger
; actType
: Byte): Boolean;
1172 idx
, k
, wx
, wy
, xd
, yd
: Integer;
1183 function monsShotTarget (mon
: TMonster
): Boolean;
1185 result
:= false; // don't stop
1186 if mon
.alive
and tr_ShotAimCheck(Trigger
, @(mon
.Obj
)) then
1188 xd
:= mon
.GameX
+ mon
.Obj
.Rect
.Width
div 2;
1189 yd
:= mon
.GameY
+ mon
.Obj
.Rect
.Height
div 2;
1190 TargetUID
:= mon
.UID
;
1191 result
:= true; // stop
1195 function monsShotTargetMonPlr (mon
: TMonster
): Boolean;
1197 result
:= false; // don't stop
1198 if mon
.alive
and tr_ShotAimCheck(Trigger
, @(mon
.Obj
)) then
1200 xd
:= mon
.GameX
+ mon
.Obj
.Rect
.Width
div 2;
1201 yd
:= mon
.GameY
+ mon
.Obj
.Rect
.Height
div 2;
1202 TargetUID
:= mon
.UID
;
1203 result
:= true; // stop
1207 function monShotTargetPlrMon (mon
: TMonster
): Boolean;
1209 result
:= false; // don't stop
1210 if mon
.alive
and tr_ShotAimCheck(Trigger
, @(mon
.Obj
)) then
1212 xd
:= mon
.GameX
+ mon
.Obj
.Rect
.Width
div 2;
1213 yd
:= mon
.GameY
+ mon
.Obj
.Rect
.Height
div 2;
1214 TargetUID
:= mon
.UID
;
1215 result
:= true; // stop
1223 if g_Game_IsClient
then exit
;
1225 if not Trigger
.Enabled
then exit
;
1226 if (Trigger
.TimeOut
<> 0) and (actType
<> ACTIVATE_CUSTOM
) then exit
;
1227 if (gLMSRespawn
= LMS_RESPAWN_WARMUP
) then exit
;
1229 if (Trigger
.exoCheck
<> nil) then
1231 //conwritefln('exocheck: [%s]', [Trigger.exoCheck.toString()]);
1233 tgscope
.me
:= @Trigger
;
1234 tvval
:= Trigger
.exoCheck
.value(tgscope
);
1236 if not Boolean(tvval
) then exit
;
1237 except on e
: Exception
do
1240 conwritefln('trigger exocheck error: %s [%s]', [e
.message, Trigger
.exoCheck
.toString()]);
1248 coolDown
:= (actType
<> 0);
1250 if (Trigger
.exoAction
<> nil) then
1252 //conwritefln('exoactivate: [%s]', [Trigger.exoAction.toString()]);
1254 tgscope
.me
:= @Trigger
;
1255 Trigger
.exoAction
.value(tgscope
);
1257 except on e
: Exception
do
1260 conwritefln('trigger exoactivate error: %s [%s]', [e
.message, Trigger
.exoAction
.toString()]);
1271 g_Sound_PlayEx('SOUND_GAME_SWITCH0');
1272 if g_Game_IsNet
then MH_SEND_Sound(X
, Y
, 'SOUND_GAME_SWITCH0');
1273 gExitByTrigger
:= True;
1274 g_Game_ExitLevel(tgcMap
);
1283 Result
:= tr_Teleport(ActivateUID
,
1284 tgcTarget
.X
, tgcTarget
.Y
,
1285 tgcDirection
, tgcSilent
,
1292 Result
:= tr_OpenDoor(trigPanelGUID
, tgcSilent
, tgcD2d
);
1298 Result
:= tr_CloseDoor(trigPanelGUID
, tgcSilent
, tgcD2d
);
1302 TRIGGER_DOOR
, TRIGGER_DOOR5
:
1304 pan
:= g_Map_PanelByGUID(trigPanelGUID
);
1305 if (pan
<> nil) and pan
.isGWall
then
1307 if gWalls
[{trigPanelID}pan
.arrIdx
].Enabled
then
1309 result
:= tr_OpenDoor(trigPanelGUID
, tgcSilent
, tgcD2d
);
1310 if (TriggerType
= TRIGGER_DOOR5
) then DoorTime
:= 180;
1314 result
:= tr_CloseDoor(trigPanelGUID
, tgcSilent
, tgcD2d
);
1317 if result
then TimeOut
:= 18;
1321 TRIGGER_CLOSETRAP
, TRIGGER_TRAP
:
1323 tr_CloseTrap(trigPanelGUID
, tgcSilent
, tgcD2d
);
1325 if TriggerType
= TRIGGER_TRAP
then
1339 TRIGGER_PRESS
, TRIGGER_ON
, TRIGGER_OFF
, TRIGGER_ONOFF
:
1342 if PressTime
= -1 then PressTime
:= tgcWait
;
1343 if coolDown
then TimeOut
:= 18 else TimeOut
:= 0;
1348 if g_GetUIDType(ActivateUID
) = UID_PLAYER
then
1352 if gLMSRespawn
= LMS_RESPAWN_NONE
then
1354 p
:= g_Player_Get(ActivateUID
);
1356 Inc(gCoopSecretsFound
);
1357 if g_Game_IsNet
then
1359 MH_SEND_GameStats();
1360 if p
.FClientID
>= 0 then
1361 MH_SEND_GameEvent(NET_EV_SECRET
, p
.UID
, '');
1368 Result
:= tr_SetLift(trigPanelGUID
, 0, tgcSilent
, tgcD2d
);
1371 if (not tgcSilent
) and Result
then begin
1372 g_Sound_PlayExAt('SOUND_GAME_SWITCH0',
1374 Y
+ (Height
div 2));
1375 if g_Game_IsServer
and g_Game_IsNet
then
1376 MH_SEND_Sound(X
+ (Width
div 2),
1378 'SOUND_GAME_SWITCH0');
1384 Result
:= tr_SetLift(trigPanelGUID
, 1, tgcSilent
, tgcD2d
);
1387 if (not tgcSilent
) and Result
then begin
1388 g_Sound_PlayExAt('SOUND_GAME_SWITCH0',
1390 Y
+ (Height
div 2));
1391 if g_Game_IsServer
and g_Game_IsNet
then
1392 MH_SEND_Sound(X
+ (Width
div 2),
1394 'SOUND_GAME_SWITCH0');
1400 Result
:= tr_SetLift(trigPanelGUID
, 3, tgcSilent
, tgcD2d
);
1406 if (not tgcSilent
) and Result
then begin
1407 g_Sound_PlayExAt('SOUND_GAME_SWITCH0',
1409 Y
+ (Height
div 2));
1410 if g_Game_IsServer
and g_Game_IsNet
then
1411 MH_SEND_Sound(X
+ (Width
div 2),
1413 'SOUND_GAME_SWITCH0');
1420 if tgcActivateOnce
then
1423 TriggerType
:= TRIGGER_NONE
;
1431 animonce
:= tgcAnimateOnce
;
1437 if Sound
<> nil then
1439 if tgcSoundSwitch
and Sound
.IsPlaying() then
1440 begin // Íóæíî âûêëþ÷èòü, åñëè èãðàë
1442 SoundPlayCount
:= 0;
1445 else // (not Data.SoundSwitch) or (not Sound.IsPlaying())
1446 if (tgcPlayCount
> 0) or (not Sound
.IsPlaying()) then
1448 if tgcPlayCount
> 0 then
1449 SoundPlayCount
:= tgcPlayCount
1450 else // 0 - èãðàåì áåñêîíå÷íî
1451 SoundPlayCount
:= 1;
1454 if g_Game_IsNet
then MH_SEND_TriggerSound(Trigger
);
1458 TRIGGER_SPAWNMONSTER
:
1459 if (tgcSpawnMonsType
in [MONSTER_DEMON
..MONSTER_MAN
]) then
1462 if (tgcDelay
> 0) and (actType
<> ACTIVATE_CUSTOM
) then
1464 AutoSpawn
:= not AutoSpawn
;
1466 // Àâòîñïàâíåð ïåðåêëþ÷åí - ìåíÿåì òåêñòóðó
1470 if ((tgcDelay
= 0) and (actType
<> ACTIVATE_CUSTOM
))
1471 or ((tgcDelay
> 0) and (actType
= ACTIVATE_CUSTOM
)) then
1472 for k
:= 1 to tgcMonsCount
do
1474 if (actType
= ACTIVATE_CUSTOM
) and (tgcDelay
> 0) then
1475 SpawnCooldown
:= -1; // Çàäåðæêà âûñòàâèòñÿ ìîíñòðîì ïðè óíè÷òîæåíèè
1476 if (tgcMax
> 0) and (SpawnedCount
>= tgcMax
) then
1479 mon
:= g_Monsters_Create(tgcSpawnMonsType
,
1481 TDirection(tgcDirection
), True);
1486 if (tgcHealth
> 0) then
1487 mon
.SetHealth(tgcHealth
);
1488 // Óñòàíàâëèâàåì ïîâåäåíèå:
1489 mon
.MonsterBehaviour
:= tgcBehaviour
;
1490 mon
.FNoRespawn
:= True;
1491 if g_Game_IsNet
then
1492 MH_SEND_MonsterSpawn(mon
.UID
);
1493 // Èäåì èñêàòü öåëü, åñëè íàäî:
1497 if tgcSpawnMonsType
<> MONSTER_BARREL
then Inc(gTotalMonsters
);
1499 if g_Game_IsNet
then
1501 SetLength(gMonstersSpawned
, Length(gMonstersSpawned
)+1);
1502 gMonstersSpawned
[High(gMonstersSpawned
)] := mon
.UID
;
1505 mon
.SpawnTrigger
:= ID
;
1506 if tgcMax
> 0 then Inc(SpawnedCount
);
1509 EFFECT_TELEPORT
: begin
1510 if g_Frames_Get(FramesID
, 'FRAMES_TELEPORT') then
1512 Anim
:= TAnimation
.Create(FramesID
, False, 3);
1513 g_Sound_PlayExAt('SOUND_GAME_TELEPORT', tgcTX
, tgcTY
);
1514 g_GFX_OnceAnim(mon
.Obj
.X
+mon
.Obj
.Rect
.X
+(mon
.Obj
.Rect
.Width
div 2)-32,
1515 mon
.Obj
.Y
+mon
.Obj
.Rect
.Y
+(mon
.Obj
.Rect
.Height
div 2)-32, Anim
);
1518 if g_Game_IsServer
and g_Game_IsNet
then
1519 MH_SEND_Effect(mon
.Obj
.X
+mon
.Obj
.Rect
.X
+(mon
.Obj
.Rect
.Width
div 2)-32,
1520 mon
.Obj
.Y
+mon
.Obj
.Rect
.Y
+(mon
.Obj
.Rect
.Height
div 2)-32, 1,
1523 EFFECT_RESPAWN
: begin
1524 if g_Frames_Get(FramesID
, 'FRAMES_ITEM_RESPAWN') then
1526 Anim
:= TAnimation
.Create(FramesID
, False, 4);
1527 g_Sound_PlayExAt('SOUND_ITEM_RESPAWNITEM', tgcTX
, tgcTY
);
1528 g_GFX_OnceAnim(mon
.Obj
.X
+mon
.Obj
.Rect
.X
+(mon
.Obj
.Rect
.Width
div 2)-16,
1529 mon
.Obj
.Y
+mon
.Obj
.Rect
.Y
+(mon
.Obj
.Rect
.Height
div 2)-16, Anim
);
1532 if g_Game_IsServer
and g_Game_IsNet
then
1533 MH_SEND_Effect(mon
.Obj
.X
+mon
.Obj
.Rect
.X
+(mon
.Obj
.Rect
.Width
div 2)-16,
1534 mon
.Obj
.Y
+mon
.Obj
.Rect
.Y
+(mon
.Obj
.Rect
.Height
div 2)-16, 1,
1538 if g_Frames_Get(FramesID
, 'FRAMES_FIRE') then
1540 Anim
:= TAnimation
.Create(FramesID
, False, 4);
1541 g_Sound_PlayExAt('SOUND_FIRE', tgcTX
, tgcTY
);
1542 g_GFX_OnceAnim(mon
.Obj
.X
+mon
.Obj
.Rect
.X
+(mon
.Obj
.Rect
.Width
div 2)-32,
1543 mon
.Obj
.Y
+mon
.Obj
.Rect
.Y
+mon
.Obj
.Rect
.Height
-128, Anim
);
1546 if g_Game_IsServer
and g_Game_IsNet
then
1547 MH_SEND_Effect(mon
.Obj
.X
+mon
.Obj
.Rect
.X
+(mon
.Obj
.Rect
.Width
div 2)-32,
1548 mon
.Obj
.Y
+mon
.Obj
.Rect
.Y
+mon
.Obj
.Rect
.Height
-128, 1,
1553 if g_Game_IsNet
then
1555 MH_SEND_GameStats();
1556 MH_SEND_CoopStats();
1563 // Åñëè àêòèâèðîâàí àâòîñïàâíåðîì, íå ìåíÿåì òåêñòóðó
1564 if actType
= ACTIVATE_CUSTOM
then
1569 if (tgcSpawnItemType
in [ITEM_MEDKIT_SMALL
..ITEM_MAX
]) then
1572 if (tgcDelay
> 0) and (actType
<> ACTIVATE_CUSTOM
) then
1574 AutoSpawn
:= not AutoSpawn
;
1576 // Àâòîñïàâíåð ïåðåêëþ÷åí - ìåíÿåì òåêñòóðó
1580 if ((tgcDelay
= 0) and (actType
<> ACTIVATE_CUSTOM
))
1581 or ((tgcDelay
> 0) and (actType
= ACTIVATE_CUSTOM
)) then
1582 if (not tgcDmonly
) or
1583 (gGameSettings
.GameMode
in [GM_DM
, GM_TDM
, GM_CTF
]) then
1584 for k
:= 1 to tgcItemCount
do
1586 if (actType
= ACTIVATE_CUSTOM
) and (tgcDelay
> 0) then
1587 SpawnCooldown
:= -1; // Çàäåðæêà âûñòàâèòñÿ èòåìîì ïðè óíè÷òîæåíèè
1588 if (tgcMax
> 0) and (SpawnedCount
>= tgcMax
) then
1591 iid
:= g_Items_Create(tgcTX
, tgcTY
,
1592 tgcSpawnItemType
, tgcGravity
, False, True);
1596 it
:= g_Items_ByIdx(iid
);
1597 it
.SpawnTrigger
:= ID
;
1598 if tgcMax
> 0 then Inc(SpawnedCount
);
1601 EFFECT_TELEPORT
: begin
1602 it
:= g_Items_ByIdx(iid
);
1603 if g_Frames_Get(FramesID
, 'FRAMES_TELEPORT') then
1605 Anim
:= TAnimation
.Create(FramesID
, False, 3);
1606 g_Sound_PlayExAt('SOUND_GAME_TELEPORT', tgcTX
, tgcTY
);
1607 g_GFX_OnceAnim(it
.Obj
.X
+it
.Obj
.Rect
.X
+(it
.Obj
.Rect
.Width
div 2)-32,
1608 it
.Obj
.Y
+it
.Obj
.Rect
.Y
+(it
.Obj
.Rect
.Height
div 2)-32, Anim
);
1611 if g_Game_IsServer
and g_Game_IsNet
then
1612 MH_SEND_Effect(it
.Obj
.X
+it
.Obj
.Rect
.X
+(it
.Obj
.Rect
.Width
div 2)-32,
1613 it
.Obj
.Y
+it
.Obj
.Rect
.Y
+(it
.Obj
.Rect
.Height
div 2)-32, 1,
1616 EFFECT_RESPAWN
: begin
1617 it
:= g_Items_ByIdx(iid
);
1618 if g_Frames_Get(FramesID
, 'FRAMES_ITEM_RESPAWN') then
1620 Anim
:= TAnimation
.Create(FramesID
, False, 4);
1621 g_Sound_PlayExAt('SOUND_ITEM_RESPAWNITEM', tgcTX
, tgcTY
);
1622 g_GFX_OnceAnim(it
.Obj
.X
+it
.Obj
.Rect
.X
+(it
.Obj
.Rect
.Width
div 2)-16,
1623 it
.Obj
.Y
+it
.Obj
.Rect
.Y
+(it
.Obj
.Rect
.Height
div 2)-16, Anim
);
1626 if g_Game_IsServer
and g_Game_IsNet
then
1627 MH_SEND_Effect(it
.Obj
.X
+it
.Obj
.Rect
.X
+(it
.Obj
.Rect
.Width
div 2)-16,
1628 it
.Obj
.Y
+it
.Obj
.Rect
.Y
+(it
.Obj
.Rect
.Height
div 2)-16, 1,
1632 it
:= g_Items_ByIdx(iid
);
1633 if g_Frames_Get(FramesID
, 'FRAMES_FIRE') then
1635 Anim
:= TAnimation
.Create(FramesID
, False, 4);
1636 g_Sound_PlayExAt('SOUND_FIRE', tgcTX
, tgcTY
);
1637 g_GFX_OnceAnim(it
.Obj
.X
+it
.Obj
.Rect
.X
+(it
.Obj
.Rect
.Width
div 2)-32,
1638 it
.Obj
.Y
+it
.Obj
.Rect
.Y
+it
.Obj
.Rect
.Height
-128, Anim
);
1641 if g_Game_IsServer
and g_Game_IsNet
then
1642 MH_SEND_Effect(it
.Obj
.X
+it
.Obj
.Rect
.X
+(it
.Obj
.Rect
.Width
div 2)-32,
1643 it
.Obj
.Y
+it
.Obj
.Rect
.Y
+it
.Obj
.Rect
.Height
-128, 1,
1648 if g_Game_IsNet
then
1649 MH_SEND_ItemSpawn(True, iid
);
1656 // Åñëè àêòèâèðîâàí àâòîñïàâíåðîì, íå ìåíÿåì òåêñòóðó
1657 if actType
= ACTIVATE_CUSTOM
then
1663 // Ìåíÿåì ìóçûêó, åñëè åñòü íà ÷òî:
1664 if (Trigger
.tgcMusicName
<> '') then
1666 gMusic
.SetByName(Trigger
.tgcMusicName
);
1667 gMusic
.SpecPause
:= True;
1671 case Trigger
.tgcMusicAction
of
1672 TRIGGER_MUSIC_ACTION_STOP
: // Âûêëþ÷èòü
1673 gMusic
.SpecPause
:= True; // Ïàóçà
1674 TRIGGER_MUSIC_ACTION_PLAY
: // Âêëþ÷èòü
1675 if gMusic
.SpecPause
then // Áûëà íà ïàóçå => èãðàòü
1676 gMusic
.SpecPause
:= False
1677 else // Èãðàëà => ñíà÷àëà
1678 gMusic
.SetPosition(0);
1686 if g_Game_IsNet
then MH_SEND_TriggerMusic
;
1691 pAngle
:= -DegToRad(tgcAngle
);
1692 Result
:= tr_Push(ActivateUID
,
1693 Floor(Cos(pAngle
)*tgcForce
),
1694 Floor(Sin(pAngle
)*tgcForce
),
1702 // Ïðèáàâèòü èëè îòíÿòü î÷êî
1703 if (tgcScoreAction
in [TRIGGER_SCORE_ACTION_ADD
, TRIGGER_SCORE_ACTION_SUB
]) and (tgcScoreCount
> 0) then
1705 // Ñâîåé èëè ÷óæîé êîìàíäå
1706 if (tgcScoreTeam
in [TRIGGER_SCORE_TEAM_MINE_RED
, TRIGGER_SCORE_TEAM_MINE_BLUE
]) and (g_GetUIDType(ActivateUID
) = UID_PLAYER
) then
1708 p
:= g_Player_Get(ActivateUID
);
1709 if ((tgcScoreAction
= TRIGGER_SCORE_ACTION_ADD
) and (tgcScoreTeam
= TRIGGER_SCORE_TEAM_MINE_RED
) and (p
.Team
= TEAM_RED
))
1710 or ((tgcScoreAction
= TRIGGER_SCORE_ACTION_ADD
) and (tgcScoreTeam
= TRIGGER_SCORE_TEAM_MINE_BLUE
) and (p
.Team
= TEAM_BLUE
)) then
1712 Inc(gTeamStat
[TEAM_RED
].Goals
, tgcScoreCount
); // Red Scores
1716 if (tgcScoreTeam
= TRIGGER_SCORE_TEAM_MINE_RED
) then
1718 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_OWN
], [p
.Name
, tgcScoreCount
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1719 if g_Game_IsServer
and g_Game_IsNet
then
1720 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (tgcScoreCount
shl 16), '+r');
1723 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_ENEMY
], [p
.Name
, tgcScoreCount
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1724 if g_Game_IsServer
and g_Game_IsNet
then
1725 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (tgcScoreCount
shl 16), '+re');
1731 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_ADD
], [AnsiUpperCase(_lc
[I_GAME_TEAM_RED
])]), 108);
1732 if g_Game_IsServer
and g_Game_IsNet
then
1733 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, TEAM_RED
);
1736 if ((tgcScoreAction
= TRIGGER_SCORE_ACTION_SUB
) and (tgcScoreTeam
= TRIGGER_SCORE_TEAM_MINE_RED
) and (p
.Team
= TEAM_RED
))
1737 or ((tgcScoreAction
= TRIGGER_SCORE_ACTION_SUB
) and (tgcScoreTeam
= TRIGGER_SCORE_TEAM_MINE_BLUE
) and (p
.Team
= TEAM_BLUE
)) then
1739 Dec(gTeamStat
[TEAM_RED
].Goals
, tgcScoreCount
); // Red Fouls
1743 if (tgcScoreTeam
= TRIGGER_SCORE_TEAM_MINE_RED
) then
1745 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_OWN
], [p
.Name
, tgcScoreCount
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1746 if g_Game_IsServer
and g_Game_IsNet
then
1747 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (tgcScoreCount
shl 16), '-r');
1750 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_ENEMY
], [p
.Name
, tgcScoreCount
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1751 if g_Game_IsServer
and g_Game_IsNet
then
1752 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (tgcScoreCount
shl 16), '-re');
1758 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_SUB
], [AnsiUpperCase(_lc
[I_GAME_TEAM_RED
])]), 108);
1759 if g_Game_IsServer
and g_Game_IsNet
then
1760 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, -TEAM_RED
);
1763 if ((tgcScoreAction
= TRIGGER_SCORE_ACTION_ADD
) and (tgcScoreTeam
= TRIGGER_SCORE_TEAM_MINE_RED
) and (p
.Team
= TEAM_BLUE
))
1764 or ((tgcScoreAction
= TRIGGER_SCORE_ACTION_ADD
) and (tgcScoreTeam
= TRIGGER_SCORE_TEAM_MINE_BLUE
) and (p
.Team
= TEAM_RED
)) then
1766 Inc(gTeamStat
[TEAM_BLUE
].Goals
, tgcScoreCount
); // Blue Scores
1770 if (tgcScoreTeam
= TRIGGER_SCORE_TEAM_MINE_RED
) then
1772 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_OWN
], [p
.Name
, tgcScoreCount
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1773 if g_Game_IsServer
and g_Game_IsNet
then
1774 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (tgcScoreCount
shl 16), '+b');
1777 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_ENEMY
], [p
.Name
, tgcScoreCount
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1778 if g_Game_IsServer
and g_Game_IsNet
then
1779 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (tgcScoreCount
shl 16), '+be');
1785 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_ADD
], [AnsiUpperCase(_lc
[I_GAME_TEAM_BLUE
])]), 108);
1786 if g_Game_IsServer
and g_Game_IsNet
then
1787 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, TEAM_BLUE
);
1790 if ((tgcScoreAction
= TRIGGER_SCORE_ACTION_SUB
) and (tgcScoreTeam
= TRIGGER_SCORE_TEAM_MINE_RED
) and (p
.Team
= TEAM_BLUE
))
1791 or ((tgcScoreAction
= TRIGGER_SCORE_ACTION_SUB
) and (tgcScoreTeam
= TRIGGER_SCORE_TEAM_MINE_BLUE
) and (p
.Team
= TEAM_RED
)) then
1793 Dec(gTeamStat
[TEAM_BLUE
].Goals
, tgcScoreCount
); // Blue Fouls
1797 if (tgcScoreTeam
= TRIGGER_SCORE_TEAM_MINE_RED
) then
1799 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_OWN
], [p
.Name
, tgcScoreCount
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1800 if g_Game_IsServer
and g_Game_IsNet
then
1801 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (tgcScoreCount
shl 16), '-b');
1804 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_ENEMY
], [p
.Name
, tgcScoreCount
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1805 if g_Game_IsServer
and g_Game_IsNet
then
1806 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
or (tgcScoreCount
shl 16), '-be');
1812 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_SUB
], [AnsiUpperCase(_lc
[I_GAME_TEAM_BLUE
])]), 108);
1813 if g_Game_IsServer
and g_Game_IsNet
then
1814 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, -TEAM_BLUE
);
1817 Result
:= (p
.Team
= TEAM_RED
) or (p
.Team
= TEAM_BLUE
);
1819 // Êàêîé-òî êîíêðåòíîé êîìàíäå
1820 if tgcScoreTeam
in [TRIGGER_SCORE_TEAM_FORCE_RED
, TRIGGER_SCORE_TEAM_FORCE_BLUE
] then
1822 if (tgcScoreAction
= TRIGGER_SCORE_ACTION_ADD
) and (tgcScoreTeam
= TRIGGER_SCORE_TEAM_FORCE_RED
) then
1824 Inc(gTeamStat
[TEAM_RED
].Goals
, tgcScoreCount
); // Red Scores
1828 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_TEAM
], [_lc
[I_PLAYER_SCORE_RED
], tgcScoreCount
]), True);
1829 if g_Game_IsServer
and g_Game_IsNet
then
1830 MH_SEND_GameEvent(NET_EV_SCORE
, tgcScoreCount
shl 16, '+tr');
1835 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_ADD
], [AnsiUpperCase(_lc
[I_GAME_TEAM_RED
])]), 108);
1836 if g_Game_IsServer
and g_Game_IsNet
then
1837 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, TEAM_RED
);
1840 if (tgcScoreAction
= TRIGGER_SCORE_ACTION_SUB
) and (tgcScoreTeam
= TRIGGER_SCORE_TEAM_FORCE_RED
) then
1842 Dec(gTeamStat
[TEAM_RED
].Goals
, tgcScoreCount
); // Red Fouls
1846 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_TEAM
], [_lc
[I_PLAYER_SCORE_RED
], tgcScoreCount
]), True);
1847 if g_Game_IsServer
and g_Game_IsNet
then
1848 MH_SEND_GameEvent(NET_EV_SCORE
, tgcScoreCount
shl 16, '-tr');
1853 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_SUB
], [AnsiUpperCase(_lc
[I_GAME_TEAM_RED
])]), 108);
1854 if g_Game_IsServer
and g_Game_IsNet
then
1855 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, -TEAM_RED
);
1858 if (tgcScoreAction
= TRIGGER_SCORE_ACTION_ADD
) and (tgcScoreTeam
= TRIGGER_SCORE_TEAM_FORCE_BLUE
) then
1860 Inc(gTeamStat
[TEAM_BLUE
].Goals
, tgcScoreCount
); // Blue Scores
1864 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_ADD_TEAM
], [_lc
[I_PLAYER_SCORE_BLUE
], tgcScoreCount
]), True);
1865 if g_Game_IsServer
and g_Game_IsNet
then
1866 MH_SEND_GameEvent(NET_EV_SCORE
, tgcScoreCount
shl 16, '+tb');
1871 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_ADD
], [AnsiUpperCase(_lc
[I_GAME_TEAM_BLUE
])]), 108);
1872 if g_Game_IsServer
and g_Game_IsNet
then
1873 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, TEAM_BLUE
);
1876 if (tgcScoreAction
= TRIGGER_SCORE_ACTION_SUB
) and (tgcScoreTeam
= TRIGGER_SCORE_TEAM_FORCE_BLUE
) then
1878 Dec(gTeamStat
[TEAM_BLUE
].Goals
, tgcScoreCount
); // Blue Fouls
1882 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_SUB_TEAM
], [_lc
[I_PLAYER_SCORE_BLUE
], tgcScoreCount
]), True);
1883 if g_Game_IsServer
and g_Game_IsNet
then
1884 MH_SEND_GameEvent(NET_EV_SCORE
, tgcScoreCount
shl 16, '-tb');
1889 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_SUB
], [AnsiUpperCase(_lc
[I_GAME_TEAM_BLUE
])]), 108);
1890 if g_Game_IsServer
and g_Game_IsNet
then
1891 MH_SEND_GameEvent(NET_EV_SCORE_MSG
, -TEAM_BLUE
);
1898 if (tgcScoreAction
= TRIGGER_SCORE_ACTION_WIN
) and (gGameSettings
.GoalLimit
> 0) then
1900 // Ñâîåé èëè ÷óæîé êîìàíäû
1901 if (tgcScoreTeam
in [TRIGGER_SCORE_TEAM_MINE_RED
, TRIGGER_SCORE_TEAM_MINE_BLUE
]) and (g_GetUIDType(ActivateUID
) = UID_PLAYER
) then
1903 p
:= g_Player_Get(ActivateUID
);
1904 if ((tgcScoreTeam
= TRIGGER_SCORE_TEAM_MINE_RED
) and (p
.Team
= TEAM_RED
)) // Red Wins
1905 or ((tgcScoreTeam
= TRIGGER_SCORE_TEAM_MINE_BLUE
) and (p
.Team
= TEAM_BLUE
)) then
1907 if gTeamStat
[TEAM_RED
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1909 gTeamStat
[TEAM_RED
].Goals
:= gGameSettings
.GoalLimit
;
1913 if (tgcScoreTeam
= TRIGGER_SCORE_TEAM_MINE_RED
) then
1915 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_OWN
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1916 if g_Game_IsServer
and g_Game_IsNet
then
1917 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wr');
1920 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_ENEMY
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1921 if g_Game_IsServer
and g_Game_IsNet
then
1922 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wre');
1929 if ((tgcScoreTeam
= TRIGGER_SCORE_TEAM_MINE_RED
) and (p
.Team
= TEAM_BLUE
)) // Blue Wins
1930 or ((tgcScoreTeam
= TRIGGER_SCORE_TEAM_MINE_BLUE
) and (p
.Team
= TEAM_RED
)) then
1932 if gTeamStat
[TEAM_BLUE
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1934 gTeamStat
[TEAM_BLUE
].Goals
:= gGameSettings
.GoalLimit
;
1938 if (tgcScoreTeam
= TRIGGER_SCORE_TEAM_MINE_RED
) then
1940 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_OWN
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1941 if g_Game_IsServer
and g_Game_IsNet
then
1942 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wb');
1945 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_ENEMY
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
1946 if g_Game_IsServer
and g_Game_IsNet
then
1947 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wbe');
1955 // Êàêîé-òî êîíêðåòíîé êîìàíäû
1956 if tgcScoreTeam
in [TRIGGER_SCORE_TEAM_FORCE_RED
, TRIGGER_SCORE_TEAM_FORCE_BLUE
] then
1958 if (tgcScoreTeam
= TRIGGER_SCORE_TEAM_FORCE_RED
) then // Red Wins
1960 if gTeamStat
[TEAM_RED
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1962 gTeamStat
[TEAM_RED
].Goals
:= gGameSettings
.GoalLimit
;
1966 if (tgcScoreTeam
= TRIGGER_SCORE_TEAM_FORCE_BLUE
) then // Blue Wins
1968 if gTeamStat
[TEAM_BLUE
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1970 gTeamStat
[TEAM_BLUE
].Goals
:= gGameSettings
.GoalLimit
;
1977 if (tgcScoreAction
= TRIGGER_SCORE_ACTION_LOOSE
) and (gGameSettings
.GoalLimit
> 0) then
1979 // Ñâîåé èëè ÷óæîé êîìàíäû
1980 if (tgcScoreTeam
in [TRIGGER_SCORE_TEAM_MINE_RED
, TRIGGER_SCORE_TEAM_MINE_BLUE
]) and (g_GetUIDType(ActivateUID
) = UID_PLAYER
) then
1982 p
:= g_Player_Get(ActivateUID
);
1983 if ((tgcScoreTeam
= TRIGGER_SCORE_TEAM_MINE_RED
) and (p
.Team
= TEAM_BLUE
)) // Red Wins
1984 or ((tgcScoreTeam
= TRIGGER_SCORE_TEAM_MINE_BLUE
) and (p
.Team
= TEAM_RED
)) then
1985 if gTeamStat
[TEAM_RED
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
1987 gTeamStat
[TEAM_RED
].Goals
:= gGameSettings
.GoalLimit
;
1990 if tgcScoreTeam
= TRIGGER_SCORE_TEAM_MINE_RED
then
1992 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_ENEMY
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1993 if g_Game_IsServer
and g_Game_IsNet
then
1994 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wre');
1997 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_OWN
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_RED
]]), True);
1998 if g_Game_IsServer
and g_Game_IsNet
then
1999 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wr');
2004 if ((tgcScoreTeam
= TRIGGER_SCORE_TEAM_MINE_RED
) and (p
.Team
= TEAM_RED
)) // Blue Wins
2005 or ((tgcScoreTeam
= TRIGGER_SCORE_TEAM_MINE_BLUE
) and (p
.Team
= TEAM_BLUE
)) then
2006 if gTeamStat
[TEAM_BLUE
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
2008 gTeamStat
[TEAM_BLUE
].Goals
:= gGameSettings
.GoalLimit
;
2011 if tgcScoreTeam
= TRIGGER_SCORE_TEAM_MINE_RED
then
2013 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_ENEMY
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
2014 if g_Game_IsServer
and g_Game_IsNet
then
2015 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wbe');
2018 g_Console_Add(Format(_lc
[I_PLAYER_SCORE_WIN_OWN
], [p
.Name
, _lc
[I_PLAYER_SCORE_TO_BLUE
]]), True);
2019 if g_Game_IsServer
and g_Game_IsNet
then
2020 MH_SEND_GameEvent(NET_EV_SCORE
, p
.UID
, 'wb');
2026 // Êàêîé-òî êîíêðåòíîé êîìàíäû
2027 if tgcScoreTeam
in [TRIGGER_SCORE_TEAM_FORCE_BLUE
, TRIGGER_SCORE_TEAM_FORCE_RED
] then
2029 if (tgcScoreTeam
= TRIGGER_SCORE_TEAM_FORCE_BLUE
) then // Red Wins
2031 if gTeamStat
[TEAM_RED
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
2033 gTeamStat
[TEAM_RED
].Goals
:= gGameSettings
.GoalLimit
;
2037 if (tgcScoreTeam
= TRIGGER_SCORE_TEAM_FORCE_RED
) then // Blue Wins
2039 if gTeamStat
[TEAM_BLUE
].Goals
< SmallInt(gGameSettings
.GoalLimit
) then
2041 gTeamStat
[TEAM_BLUE
].Goals
:= gGameSettings
.GoalLimit
;
2047 if Result
then begin
2052 if g_Game_IsServer
and g_Game_IsNet
then
2059 Result
:= tr_Message(tgcKind
, tgcText
,
2060 tgcMsgDest
, tgcMsgTime
,
2065 TRIGGER_DAMAGE
, TRIGGER_HEALTH
:
2068 UIDType
:= g_GetUIDType(ActivateUID
);
2069 if (UIDType
= UID_PLAYER
) or (UIDType
= UID_MONSTER
) then
2075 // Âñïîìèíàåì, àêòèâèðîâàë ëè îí ìåíÿ ðàíüøå
2076 for idx
:= 0 to High(Activators
) do
2077 if Activators
[idx
].UID
= ActivateUID
then
2083 begin // Âèäèì åãî âïåðâûå
2085 SetLength(Activators
, Length(Activators
) + 1);
2086 k
:= High(Activators
);
2087 Activators
[k
].UID
:= ActivateUID
;
2089 begin // Óæå âèäåëè åãî
2090 // Åñëè èíòåðâàë îòêëþ÷¸í, íî îí âñ¸ åù¸ â çîíå ïîðàæåíèÿ, äà¸ì åìó âðåìÿ
2091 if (tgcInterval
= 0) and (Activators
[k
].TimeOut
> 0) then
2092 Activators
[k
].TimeOut
:= 65535;
2093 // Òàéìàóò ïðîø¸ë - ðàáîòàåì
2094 Result
:= Activators
[k
].TimeOut
= 0;
2103 p
:= g_Player_Get(ActivateUID
);
2107 // Íàíîñèì óðîí èãðîêó
2108 if (TriggerType
= TRIGGER_DAMAGE
) and (tgcAmount
> 0) then
2110 // Êèñëîòíûé óðîí íå íàíîñèòñÿ êîãäà åñòü êîñòþì
2111 // "Âîäÿíîé" óðîí íå íàíîñèòñÿ êîãäà åñòü êèñëîðîä
2112 if not (((tgcKind
= HIT_ACID
) and (p
.FMegaRulez
[MR_SUIT
] > gTime
)) or
2113 ((tgcKind
= HIT_WATER
) and (p
.Air
> 0))) then
2114 p
.Damage(tgcAmount
, 0, 0, 0, tgcKind
);
2115 if (tgcKind
= HIT_FLAME
) then p
.CatchFire(0);
2119 if (TriggerType
= TRIGGER_HEALTH
) and (tgcAmount
> 0) then
2120 if p
.Heal(tgcAmount
, not tgcHealMax
) and (not tgcSilent
) then
2122 g_Sound_PlayExAt('SOUND_ITEM_GETITEM', p
.Obj
.X
, p
.Obj
.Y
);
2123 if g_Game_IsServer
and g_Game_IsNet
then
2124 MH_SEND_Sound(p
.Obj
.X
, p
.Obj
.Y
, 'SOUND_ITEM_GETITEM');
2130 m
:= g_Monsters_ByUID(ActivateUID
);
2134 // Íàíîñèì óðîí ìîíñòðó
2135 if (TriggerType
= TRIGGER_DAMAGE
) and (tgcAmount
> 0) then
2137 m
.Damage(tgcAmount
, 0, 0, 0, tgcKind
);
2138 if (tgcKind
= HIT_FLAME
) then m
.CatchFire(0);
2142 if (TriggerType
= TRIGGER_HEALTH
) and (tgcAmount
> 0) then
2143 if m
.Heal(tgcAmount
) and (not tgcSilent
) then
2145 g_Sound_PlayExAt('SOUND_ITEM_GETITEM', m
.Obj
.X
, m
.Obj
.Y
);
2146 if g_Game_IsServer
and g_Game_IsNet
then
2147 MH_SEND_Sound(m
.Obj
.X
, m
.Obj
.Y
, 'SOUND_ITEM_GETITEM');
2151 // Íàçíà÷àåì âðåìÿ ñëåäóþùåãî âîçäåéñòâèÿ
2155 Activators
[k
].TimeOut
:= idx
2157 Activators
[k
].TimeOut
:= 65535;
2165 if ShotSightTime
> 0 then
2168 // put this at the beginning so it doesn't trigger itself
2169 TimeOut
:= tgcWait
+ 1;
2173 pAngle
:= -DegToRad(tgcAngle
);
2174 xd
:= wx
+ Round(Cos(pAngle
) * 32.0);
2175 yd
:= wy
+ Round(Sin(pAngle
) * 32.0);
2178 case tgcShotTarget
of
2179 TRIGGER_SHOT_TARGET_MON
: // monsters
2180 //TODO: accelerate this!
2181 g_Mons_ForEachAlive(monsShotTarget
);
2183 TRIGGER_SHOT_TARGET_PLR
: // players
2184 if gPlayers
<> nil then
2185 for idx
:= Low(gPlayers
) to High(gPlayers
) do
2186 if (gPlayers
[idx
] <> nil) and gPlayers
[idx
].alive
and
2187 tr_ShotAimCheck(Trigger
, @(gPlayers
[idx
].Obj
)) then
2189 xd
:= gPlayers
[idx
].GameX
+ PLAYER_RECT_CX
;
2190 yd
:= gPlayers
[idx
].GameY
+ PLAYER_RECT_CY
;
2191 TargetUID
:= gPlayers
[idx
].UID
;
2195 TRIGGER_SHOT_TARGET_RED
: // red team
2196 if gPlayers
<> nil then
2197 for idx
:= Low(gPlayers
) to High(gPlayers
) do
2198 if (gPlayers
[idx
] <> nil) and gPlayers
[idx
].alive
and
2199 (gPlayers
[idx
].Team
= TEAM_RED
) and
2200 tr_ShotAimCheck(Trigger
, @(gPlayers
[idx
].Obj
)) then
2202 xd
:= gPlayers
[idx
].GameX
+ PLAYER_RECT_CX
;
2203 yd
:= gPlayers
[idx
].GameY
+ PLAYER_RECT_CY
;
2204 TargetUID
:= gPlayers
[idx
].UID
;
2208 TRIGGER_SHOT_TARGET_BLUE
: // blue team
2209 if gPlayers
<> nil then
2210 for idx
:= Low(gPlayers
) to High(gPlayers
) do
2211 if (gPlayers
[idx
] <> nil) and gPlayers
[idx
].alive
and
2212 (gPlayers
[idx
].Team
= TEAM_BLUE
) and
2213 tr_ShotAimCheck(Trigger
, @(gPlayers
[idx
].Obj
)) then
2215 xd
:= gPlayers
[idx
].GameX
+ PLAYER_RECT_CX
;
2216 yd
:= gPlayers
[idx
].GameY
+ PLAYER_RECT_CY
;
2217 TargetUID
:= gPlayers
[idx
].UID
;
2221 TRIGGER_SHOT_TARGET_MONPLR
: // monsters then players
2223 //TODO: accelerate this!
2224 g_Mons_ForEachAlive(monsShotTargetMonPlr
);
2226 if (TargetUID
= 0) and (gPlayers
<> nil) then
2227 for idx
:= Low(gPlayers
) to High(gPlayers
) do
2228 if (gPlayers
[idx
] <> nil) and gPlayers
[idx
].alive
and
2229 tr_ShotAimCheck(Trigger
, @(gPlayers
[idx
].Obj
)) then
2231 xd
:= gPlayers
[idx
].GameX
+ PLAYER_RECT_CX
;
2232 yd
:= gPlayers
[idx
].GameY
+ PLAYER_RECT_CY
;
2233 TargetUID
:= gPlayers
[idx
].UID
;
2238 TRIGGER_SHOT_TARGET_PLRMON
: // players then monsters
2240 if gPlayers
<> nil then
2241 for idx
:= Low(gPlayers
) to High(gPlayers
) do
2242 if (gPlayers
[idx
] <> nil) and gPlayers
[idx
].alive
and
2243 tr_ShotAimCheck(Trigger
, @(gPlayers
[idx
].Obj
)) then
2245 xd
:= gPlayers
[idx
].GameX
+ PLAYER_RECT_CX
;
2246 yd
:= gPlayers
[idx
].GameY
+ PLAYER_RECT_CY
;
2247 TargetUID
:= gPlayers
[idx
].UID
;
2250 if TargetUID
= 0 then
2252 //TODO: accelerate this!
2253 g_Mons_ForEachAlive(monShotTargetPlrMon
);
2258 if (tgcShotTarget
<> TRIGGER_SHOT_TARGET_NONE
) or
2259 (tgcShotType
<> TRIGGER_SHOT_REV
) then
2260 TargetUID
:= ActivateUID
;
2264 if (tgcShotTarget
= TRIGGER_SHOT_TARGET_NONE
) or (TargetUID
> 0) or
2265 ((tgcShotTarget
> TRIGGER_SHOT_TARGET_NONE
) and (TargetUID
= 0)) then
2268 if (tgcSight
= 0) or
2269 (tgcShotTarget
= TRIGGER_SHOT_TARGET_NONE
) or
2270 (TargetUID
= ShotSightTarget
) then
2271 MakeShot(Trigger
, wx
, wy
, xd
, yd
, TargetUID
)
2274 ShotSightTime
:= tgcSight
;
2275 ShotSightTargetN
:= TargetUID
;
2276 if tgcShotType
= TRIGGER_SHOT_BFG
then
2278 g_Sound_PlayExAt('SOUND_WEAPON_STARTFIREBFG', wx
, wy
);
2279 if g_Game_IsNet
and g_Game_IsServer
then
2280 MH_SEND_Sound(wx
, wy
, 'SOUND_WEAPON_STARTFIREBFG');
2293 TRIGGER_EFFECT_POS_CENTER
:
2295 wx
:= X
+ Width
div 2;
2296 wy
:= Y
+ Height
div 2;
2298 TRIGGER_EFFECT_POS_AREA
:
2300 wx
:= X
+ Random(Width
);
2301 wy
:= Y
+ Random(Height
);
2304 wx
:= X
+ Width
div 2;
2305 wy
:= Y
+ Height
div 2;
2310 if tgcSpreadL
> 0 then xd
-= Random(tgcSpreadL
+1);
2311 if tgcSpreadR
> 0 then xd
+= Random(tgcSpreadR
+1);
2312 if tgcSpreadU
> 0 then yd
-= Random(tgcSpreadU
+1);
2313 if tgcSpreadD
> 0 then yd
+= Random(tgcSpreadD
+1);
2314 tr_MakeEffect(wx
, wy
, xd
, yd
,
2315 tgcFXType
, tgcFXSubType
,
2316 tgcFXRed
, tgcFXGreen
, tgcFXBlue
, True, False);
2325 if Result
{and (Trigger.TexturePanel <> -1)} then
2327 g_Map_SwitchTextureGUID({Trigger.TexturePanelType,} Trigger
.TexturePanelGUID
, IfThen(animonce
, 2, 1));
2332 function g_Triggers_CreateWithMapIndex (aTrigger
: TTrigger
; arridx
, mapidx
: Integer): DWORD
;
2334 triggers
: TDynField
;
2336 triggers
:= gCurrentMap
['trigger'];
2337 if (triggers
= nil) then raise Exception
.Create('LOAD: map has no triggers');
2338 if (mapidx
< 0) or (mapidx
>= triggers
.count
) then raise Exception
.Create('LOAD: invalid map trigger index');
2339 aTrigger
.mapIndex
:= mapidx
;
2340 result
:= g_Triggers_Create(aTrigger
, triggers
.itemAt
[mapidx
], arridx
);
2344 function g_Triggers_Create (aTrigger
: TTrigger
; trec
: TDynRecord
; forceInternalIndex
: Integer=-1): DWORD
;
2347 fn
, mapw
: AnsiString;
2351 if (tgscope
= nil) then tgscope
:= TTrigScope
.Create();
2352 if (tgclist
= nil) then tgclist
:= TMyConstList
.Create();
2354 // Íå ñîçäàâàòü âûõîä, åñëè èãðà áåç âûõîäà
2355 if (aTrigger
.TriggerType
= TRIGGER_EXIT
) and
2356 (not LongBool(gGameSettings
.Options
and GAME_OPTION_ALLOWEXIT
)) then
2358 aTrigger
.TriggerType
:= TRIGGER_NONE
;
2361 // Åñëè ìîíñòðû çàïðåùåíû, îòìåíÿåì òðèããåð
2362 if (aTrigger
.TriggerType
= TRIGGER_SPAWNMONSTER
) and
2363 (not LongBool(gGameSettings
.Options
and GAME_OPTION_MONSTERS
)) and
2364 (gGameSettings
.GameType
<> GT_SINGLE
) then
2366 aTrigger
.TriggerType
:= TRIGGER_NONE
;
2369 // Ñ÷èòàåì êîëè÷åñòâî ñåêðåòîâ íà êàðòå
2370 if (aTrigger
.TriggerType
= TRIGGER_SECRET
) then gSecretsCount
+= 1;
2372 if (forceInternalIndex
< 0) then
2374 find_id
:= FindTrigger();
2378 olen
:= Length(gTriggers
);
2379 if (forceInternalIndex
>= olen
) then
2381 SetLength(gTriggers
, forceInternalIndex
+1);
2382 for f
:= olen
to High(gTriggers
) do
2384 gTriggers
[f
].TriggerType
:= TRIGGER_NONE
;
2385 gTriggers
[f
].trigDataRec
:= nil;
2386 gTriggers
[f
].exoInit
:= nil;
2387 gTriggers
[f
].exoThink
:= nil;
2388 gTriggers
[f
].exoCheck
:= nil;
2389 gTriggers
[f
].exoAction
:= nil;
2390 gTriggers
[f
].userVars
:= nil;
2393 f
:= forceInternalIndex
;
2394 gTriggers
[f
].trigDataRec
.Free();
2395 gTriggers
[f
].exoInit
.Free();
2396 gTriggers
[f
].exoThink
.Free();
2397 gTriggers
[f
].exoCheck
.Free();
2398 gTriggers
[f
].exoAction
.Free();
2399 gTriggers
[f
].userVars
.Free();
2400 gTriggers
[f
].trigDataRec
:= nil;
2401 gTriggers
[f
].exoInit
:= nil;
2402 gTriggers
[f
].exoThink
:= nil;
2403 gTriggers
[f
].exoCheck
:= nil;
2404 gTriggers
[f
].exoAction
:= nil;
2405 gTriggers
[f
].userVars
:= nil;
2406 find_id
:= DWORD(forceInternalIndex
);
2408 gTriggers
[find_id
] := aTrigger
;
2409 ptg
:= @gTriggers
[find_id
];
2411 ptg
.mapId
:= trec
.id
;
2412 // clone trigger data
2413 if (trec
.trigRec
= nil) then
2415 ptg
.trigDataRec
:= nil;
2417 if (ptg
.TriggerType
<> TRIGGER_SECRET
) then
2419 e_LogWritefln('trigger of type %s has no triggerdata; wtf?!', [ptg
.TriggerType
], TMsgType
.Warning
);
2424 ptg
.trigDataRec
:= trec
.trigRec
.clone(nil);
2430 // if this type of trigger exists both on the client and on the server
2431 // use an uniform numeration
2433 if (ptg
.TriggerType
= TRIGGER_SOUND
) then
2435 Inc(gTriggerClientID
);
2436 ClientID
:= gTriggerClientID
;
2440 PlayerCollide
:= False;
2444 SoundPlayCount
:= 0;
2451 // update cached trigger variables
2452 trigUpdateCacheData(ptg
^, ptg
.trigDataRec
);
2454 ptg
.userVars
:= nil;
2457 ptg
.exoThink
:= TExprBase
.parseStatList(tgclist
, VarToStr(trec
.user
['exoma_think']));
2459 on e
: TExomaParseException
do
2461 conwritefln('*** ERROR parsing exoma_think (%s,%s): %s [%s]', [e
.tokLine
, e
.tokCol
, e
.message, VarToStr(trec
.user
['exoma_think'])]);
2462 ptg
.exoThink
:= nil;
2468 ptg
.exoCheck
:= TExprBase
.parse(tgclist
, VarToStr(trec
.user
['exoma_check']));
2470 on e
: TExomaParseException
do
2472 conwritefln('*** ERROR parsing exoma_check (%s,%s): %s [%s]', [e
.tokLine
, e
.tokCol
, e
.message, VarToStr(trec
.user
['exoma_check'])]);
2473 ptg
.exoCheck
:= nil;
2479 ptg
.exoAction
:= TExprBase
.parseStatList(tgclist
, VarToStr(trec
.user
['exoma_action']));
2481 on e
: TExomaParseException
do
2483 conwritefln('*** ERROR parsing exoma_action (%s,%s): %s [%s]', [e
.tokLine
, e
.tokCol
, e
.message, VarToStr(trec
.user
['exoma_action'])]);
2484 ptg
.exoAction
:= nil;
2490 ptg
.exoInit
:= TExprBase
.parseStatList(tgclist
, VarToStr(trec
.user
['exoma_init']));
2492 on e
: TExomaParseException
do
2494 conwritefln('*** ERROR parsing exoma_init (%s,%s): %s [%s]', [e
.tokLine
, e
.tokCol
, e
.message, VarToStr(trec
.user
['exoma_init'])]);
2501 if (forceInternalIndex
< 0) and (ptg
.exoInit
<> nil) then
2503 //conwritefln('executing trigger init: [%s]', [gTriggers[find_id].exoInit.toString()]);
2506 ptg
.exoInit
.value(tgscope
);
2510 conwritefln('*** trigger exoactivate error: %s', [ptg
.exoInit
.toString()]);
2515 // Çàãðóæàåì çâóê, åñëè ýòî òðèããåð "Çâóê"
2516 if (ptg
.TriggerType
= TRIGGER_SOUND
) and (ptg
.tgcSoundName
<> '') then
2518 // Åùå íåò òàêîãî çâóêà
2519 if not g_Sound_Exists(ptg
.tgcSoundName
) then
2521 fn
:= g_ExtractWadName(ptg
.tgcSoundName
);
2523 begin // Çâóê â ôàéëå ñ êàðòîé
2524 mapw
:= g_ExtractWadName(gMapInfo
.Map
);
2525 fn
:= mapw
+':'+g_ExtractFilePathName(ptg
.tgcSoundName
);
2527 else // Çâóê â îòäåëüíîì ôàéëå
2529 fn
:= GameDir
+ '/wads/' + ptg
.tgcSoundName
;
2532 //e_LogWritefln('loading trigger sound ''%s''', [fn]);
2533 if not g_Sound_CreateWADEx(ptg
.tgcSoundName
, fn
) then
2535 g_FatalError(Format(_lc
[I_GAME_ERROR_TR_SOUND
], [fn
, ptg
.tgcSoundName
]));
2539 // Ñîçäàåì îáúåêò çâóêà
2542 Sound
:= TPlayableSound
.Create();
2543 if not Sound
.SetByName(ptg
.tgcSoundName
) then
2551 // Çàãðóæàåì ìóçûêó, åñëè ýòî òðèããåð "Ìóçûêà"
2552 if (ptg
.TriggerType
= TRIGGER_MUSIC
) and (ptg
.tgcMusicName
<> '') then
2554 // Åùå íåò òàêîé ìóçûêè
2555 if not g_Sound_Exists(ptg
.tgcMusicName
) then
2557 fn
:= g_ExtractWadName(ptg
.tgcMusicName
);
2560 begin // Ìóçûêà â ôàéëå ñ êàðòîé
2561 mapw
:= g_ExtractWadName(gMapInfo
.Map
);
2562 fn
:= mapw
+':'+g_ExtractFilePathName(ptg
.tgcMusicName
);
2564 else // Ìóçûêà â ôàéëå ñ êàðòîé
2566 fn
:= GameDir
+'/wads/'+ptg
.tgcMusicName
;
2569 if not g_Sound_CreateWADEx(ptg
.tgcMusicName
, fn
, True) then
2571 g_FatalError(Format(_lc
[I_GAME_ERROR_TR_SOUND
], [fn
, ptg
.tgcMusicName
]));
2576 // Çàãðóæàåì äàííûå òðèããåðà "Òóðåëü"
2577 if (ptg
.TriggerType
= TRIGGER_SHOT
) then
2583 ShotSightTimeout
:= 0;
2584 ShotSightTarget
:= 0;
2585 ShotSightTargetN
:= 0;
2586 ShotAmmoCount
:= ptg
.tgcAmmo
;
2587 ShotReloadTime
:= 0;
2595 // sorry; grid doesn't support recursive queries, so we have to do this
2597 TSimpleMonsterList
= specialize TSimpleList
<TMonster
>;
2600 tgMonsList
: TSimpleMonsterList
= nil;
2602 procedure g_Triggers_Update();
2605 Affected
: array of Integer;
2607 function monsNear (mon
: TMonster
): Boolean;
2609 result
:= false; // don't stop
2611 gTriggers[a].ActivateUID := mon.UID;
2612 ActivateTrigger(gTriggers[a], ACTIVATE_MONSTERCOLLIDE);
2614 tgMonsList
.append(mon
);
2621 if (tgMonsList
= nil) then tgMonsList
:= TSimpleMonsterList
.Create();
2623 if gTriggers
= nil then
2625 SetLength(Affected
, 0);
2627 for a
:= 0 to High(gTriggers
) do
2628 with gTriggers
[a
] do
2630 if TriggerType
<> TRIGGER_NONE
then
2632 // Óìåíüøàåì âðåìÿ äî çàêðûòèÿ äâåðè (îòêðûòèÿ ëîâóøêè)
2633 if DoorTime
> 0 then DoorTime
:= DoorTime
- 1;
2634 // Óìåíüøàåì âðåìÿ îæèäàíèÿ ïîñëå íàæàòèÿ
2635 if PressTime
> 0 then PressTime
:= PressTime
- 1;
2636 // Ïðîâåðÿåì èãðîêîâ è ìîíñòðîâ, êîòîðûõ ðàíåå çàïîìíèëè:
2637 if (TriggerType
= TRIGGER_DAMAGE
) or (TriggerType
= TRIGGER_HEALTH
) then
2639 for b
:= 0 to High(Activators
) do
2641 // Óìåíüøàåì âðåìÿ äî ïîâòîðíîãî âîçäåéñòâèÿ:
2642 if Activators
[b
].TimeOut
> 0 then
2644 Dec(Activators
[b
].TimeOut
);
2650 // Ñ÷èòàåì, ÷òî îáúåêò ïîêèíóë çîíó äåéñòâèÿ òðèããåðà
2651 if (tgcInterval
= 0) and (Activators
[b
].TimeOut
< 65530) then Activators
[b
].TimeOut
:= 0;
2655 // Îáðàáàòûâàåì ñïàâíåðû
2656 if Enabled
and AutoSpawn
then
2658 if SpawnCooldown
= 0 then
2660 // Åñëè ïðèøëî âðåìÿ, ñïàâíèì ìîíñòðà
2661 if (TriggerType
= TRIGGER_SPAWNMONSTER
) and (tgcDelay
> 0) then
2664 ActivateTrigger(gTriggers
[a
], ACTIVATE_CUSTOM
);
2666 // Åñëè ïðèøëî âðåìÿ, ñïàâíèì ïðåäìåò
2667 if (TriggerType
= TRIGGER_SPAWNITEM
) and (tgcDelay
> 0) then
2670 ActivateTrigger(gTriggers
[a
], ACTIVATE_CUSTOM
);
2675 // Óìåíüøàåì âðåìÿ îæèäàíèÿ
2680 // Îáðàáàòûâàåì ñîáûòèÿ òðèããåðà "Òóðåëü"
2681 if TriggerType
= TRIGGER_SHOT
then
2683 if ShotPanelTime
> 0 then
2686 if ShotPanelTime
= 0 then g_Map_SwitchTextureGUID({ShotPanelType,} trigPanelGUID
);
2688 if ShotSightTime
> 0 then
2691 if ShotSightTime
= 0 then ShotSightTarget
:= ShotSightTargetN
;
2693 if ShotSightTimeout
> 0 then
2695 Dec(ShotSightTimeout
);
2696 if ShotSightTimeout
= 0 then ShotSightTarget
:= 0;
2698 if ShotReloadTime
> 0 then
2700 Dec(ShotReloadTime
);
2701 if ShotReloadTime
= 0 then ShotAmmoCount
:= tgcAmmo
;
2705 // Òðèããåð "Çâóê" óæå îòûãðàë, åñëè íóæíî åùå - ïåðåçàïóñêàåì
2706 if Enabled
and (TriggerType
= TRIGGER_SOUND
) and (Sound
<> nil) then
2708 if (SoundPlayCount
> 0) and (not Sound
.IsPlaying()) then
2710 if tgcPlayCount
> 0 then Dec(SoundPlayCount
); (* looped sound if zero *)
2712 Sound
.PlayVolumeAtRect(X
, Y
, Width
, Height
, tgcVolume
/ 255.0)
2714 Sound
.PlayPanVolume((tgcPan
- 127.0) / 128.0, tgcVolume
/ 255.0);
2715 if Sound
.IsPlaying() and g_Game_IsNet
and g_Game_IsServer
then
2716 MH_SEND_TriggerSound(gTriggers
[a
])
2720 // Òðèããåð "Ëîâóøêà" - ïîðà îòêðûâàòü
2721 if (TriggerType
= TRIGGER_TRAP
) and (DoorTime
= 0) and (g_Map_PanelByGUID(trigPanelGUID
) <> nil) then
2723 tr_OpenDoor(trigPanelGUID
, tgcSilent
, tgcD2d
);
2727 // Òðèããåð "Äâåðü 5 ñåê" - ïîðà çàêðûâàòü
2728 if (TriggerType
= TRIGGER_DOOR5
) and (DoorTime
= 0) and (g_Map_PanelByGUID(trigPanelGUID
) <> nil) then
2730 pan
:= g_Map_PanelByGUID(trigPanelGUID
);
2731 if (pan
<> nil) and pan
.isGWall
then
2734 if {gWalls[trigPanelID].Enabled} pan
.Enabled
then
2740 // Ïîêà îòêðûòà - çàêðûâàåì
2741 if tr_CloseDoor(trigPanelGUID
, tgcSilent
, tgcD2d
) then DoorTime
:= -1;
2746 // Òðèããåð - ðàñøèðèòåëü èëè ïåðåêëþ÷àòåëü, è ïðîøëà çàäåðæêà, è íàæàëè íóæíîå ÷èñëî ðàç:
2747 if (TriggerType
in [TRIGGER_PRESS
, TRIGGER_ON
, TRIGGER_OFF
, TRIGGER_ONOFF
]) and
2748 (PressTime
= 0) and (PressCount
>= tgcPressCount
) then
2750 // Ñáðàñûâàåì çàäåðæêó àêòèâàöèè:
2752 // Ñáðàñûâàåì ñ÷åò÷èê íàæàòèé:
2753 if tgcPressCount
> 0 then PressCount
-= tgcPressCount
else PressCount
:= 0;
2755 // Îïðåäåëÿåì èçìåíÿåìûå èì òðèããåðû:
2756 for b
:= 0 to High(gTriggers
) do
2758 if g_Collide(tgcTX
, tgcTY
, tgcTWidth
, tgcTHeight
, gTriggers
[b
].X
, gTriggers
[b
].Y
,
2759 gTriggers
[b
].Width
, gTriggers
[b
].Height
) and
2760 ((b
<> a
) or (tgcWait
> 0)) then
2761 begin // Can be self-activated, if there is Data.Wait
2762 if (not tgcExtRandom
) or gTriggers
[b
].Enabled
then
2764 SetLength(Affected
, Length(Affected
) + 1);
2765 Affected
[High(Affected
)] := b
;
2771 // if we have panelid, assume that it will switch the moving platform
2772 pan
:= g_Map_PanelByGUID(trigPanelGUID
);
2773 if (pan
<> nil) then
2776 TRIGGER_PRESS
: pan
.movingActive
:= true; // what to do here?
2777 TRIGGER_ON
: pan
.movingActive
:= true;
2778 TRIGGER_OFF
: pan
.movingActive
:= false;
2779 TRIGGER_ONOFF
: pan
.movingActive
:= not pan
.movingActive
;
2781 if not tgcSilent
and (Length(tgcSound
) > 0) then
2783 g_Sound_PlayExAt(tgcSound
, X
, Y
);
2784 if g_Game_IsServer
and g_Game_IsNet
then MH_SEND_Sound(X
, Y
, tgcSound
);
2788 // Âûáèðàåì îäèí èç òðèããåðîâ äëÿ ðàñøèðèòåëÿ, åñëè âêëþ÷åí ðàíäîì:
2789 if (TriggerType
= TRIGGER_PRESS
) and tgcExtRandom
then
2791 if (Length(Affected
) > 0) then
2793 b
:= Affected
[Random(Length(Affected
))];
2794 gTriggers
[b
].ActivateUID
:= gTriggers
[a
].ActivateUID
;
2795 ActivateTrigger(gTriggers
[b
], 0);
2798 else //  ïðîòèâíîì ñëó÷àå ðàáîòàåì êàê îáû÷íî:
2800 for i
:= 0 to High(Affected
) do
2806 gTriggers
[b
].ActivateUID
:= gTriggers
[a
].ActivateUID
;
2807 ActivateTrigger(gTriggers
[b
], 0);
2811 gTriggers
[b
].Enabled
:= True;
2815 gTriggers
[b
].Enabled
:= False;
2816 gTriggers
[b
].TimeOut
:= 0;
2817 if gTriggers
[b
].AutoSpawn
then
2819 gTriggers
[b
].AutoSpawn
:= False;
2820 gTriggers
[b
].SpawnCooldown
:= 0;
2825 gTriggers
[b
].Enabled
:= not gTriggers
[b
].Enabled
;
2826 if not gTriggers
[b
].Enabled
then
2828 gTriggers
[b
].TimeOut
:= 0;
2829 if gTriggers
[b
].AutoSpawn
then
2831 gTriggers
[b
].AutoSpawn
:= False;
2832 gTriggers
[b
].SpawnCooldown
:= 0;
2839 SetLength(Affected
, 0);
2842 // Óìåíüøàåì âðåìÿ äî âîçìîæíîñòè ïîâòîðíîé àêòèâàöèè:
2845 TimeOut
:= TimeOut
- 1;
2846 Continue
; // ×òîáû íå ïîòåðÿòü 1 åäèíèöó çàäåðæêè
2849 // Íèæå èäóò òèïû àêòèâàöèè, åñëè òðèããåð îòêëþ÷¸í - èä¸ì äàëüøå
2854 if ByteBool(ActivateType
and ACTIVATE_PLAYERCOLLIDE
) and
2856 if gPlayers
<> nil then
2857 for b
:= 0 to High(gPlayers
) do
2858 if gPlayers
[b
] <> nil then
2860 // Æèâ, åñòü íóæíûå êëþ÷è è îí ðÿäîì:
2861 if alive
and ((gTriggers
[a
].Keys
and GetKeys
) = gTriggers
[a
].Keys
) and
2862 Collide(X
, Y
, Width
, Height
) then
2864 gTriggers
[a
].ActivateUID
:= UID
;
2866 if (gTriggers
[a
].TriggerType
in [TRIGGER_SOUND
, TRIGGER_MUSIC
]) and
2868 { Don't activate sound/music again if player is here }
2870 ActivateTrigger(gTriggers
[a
], ACTIVATE_PLAYERCOLLIDE
);
2873 { TODO 5 : àêòèâàöèÿ ìîíñòðàìè òðèããåðîâ ñ êëþ÷àìè }
2875 if ByteBool(ActivateType
and ACTIVATE_MONSTERCOLLIDE
) and
2876 ByteBool(ActivateType
and ACTIVATE_NOMONSTER
) and
2877 (TimeOut
= 0) and (Keys
= 0) then
2879 // Åñëè "Ìîíñòð áëèçêî" è "Ìîíñòðîâ íåò",
2880 // çàïóñêàåì òðèããåð íà ñòàðòå êàðòû è ñíèìàåì îáà ôëàãà
2881 ActivateType
:= ActivateType
and not (ACTIVATE_MONSTERCOLLIDE
or ACTIVATE_NOMONSTER
);
2882 gTriggers
[a
].ActivateUID
:= 0;
2883 ActivateTrigger(gTriggers
[a
], 0);
2887 if ByteBool(ActivateType
and ACTIVATE_MONSTERCOLLIDE
) and
2888 (TimeOut
= 0) and (Keys
= 0) then // Åñëè íå íóæíû êëþ÷è
2890 //g_Mons_ForEach(monsNear);
2893 g_Mons_ForEachAt(gTriggers
[a
].X
, gTriggers
[a
].Y
, gTriggers
[a
].Width
, gTriggers
[a
].Height
, monsNear
);
2894 for mon
in tgMonsList
do
2896 gTriggers
[a
].ActivateUID
:= mon
.UID
;
2897 ActivateTrigger(gTriggers
[a
], ACTIVATE_MONSTERCOLLIDE
);
2899 tgMonsList
.reset(); // just in case
2903 if ByteBool(ActivateType
and ACTIVATE_NOMONSTER
) and
2904 (TimeOut
= 0) and (Keys
= 0) then
2905 if not g_Mons_IsAnyAliveAt(X
, Y
, Width
, Height
) then
2907 gTriggers
[a
].ActivateUID
:= 0;
2908 ActivateTrigger(gTriggers
[a
], ACTIVATE_NOMONSTER
);
2912 PlayerCollide
:= g_CollidePlayer(X
, Y
, Width
, Height
);
2916 procedure g_Triggers_Press(ID
: DWORD
; ActivateType
: Byte; ActivateUID
: Word = 0);
2918 if (ID
>= Length(gTriggers
)) then exit
;
2919 gTriggers
[ID
].ActivateUID
:= ActivateUID
;
2920 ActivateTrigger(gTriggers
[ID
], ActivateType
);
2923 function g_Triggers_PressR(X
, Y
: Integer; Width
, Height
: Word; UID
: Word;
2924 ActivateType
: Byte; IgnoreList
: DWArray
= nil): DWArray
;
2932 if gTriggers
= nil then Exit
;
2934 case g_GetUIDType(UID
) of
2938 p
:= g_Player_Get(UID
);
2947 for a
:= 0 to High(gTriggers
) do
2948 if (gTriggers
[a
].TriggerType
<> TRIGGER_NONE
) and
2949 (gTriggers
[a
].TimeOut
= 0) and
2950 (not InDWArray(a
, IgnoreList
)) and
2951 ((gTriggers
[a
].Keys
and k
) = gTriggers
[a
].Keys
) and
2952 ByteBool(gTriggers
[a
].ActivateType
and ActivateType
) then
2953 if g_Collide(X
, Y
, Width
, Height
,
2954 gTriggers
[a
].X
, gTriggers
[a
].Y
,
2955 gTriggers
[a
].Width
, gTriggers
[a
].Height
) then
2957 gTriggers
[a
].ActivateUID
:= UID
;
2958 if ActivateTrigger(gTriggers
[a
], ActivateType
) then
2960 SetLength(Result
, Length(Result
)+1);
2961 Result
[High(Result
)] := a
;
2966 procedure g_Triggers_PressL(X1
, Y1
, X2
, Y2
: Integer; UID
: DWORD
; ActivateType
: Byte);
2972 if gTriggers
= nil then Exit
;
2974 case g_GetUIDType(UID
) of
2978 p
:= g_Player_Get(UID
);
2987 for a
:= 0 to High(gTriggers
) do
2988 if (gTriggers
[a
].TriggerType
<> TRIGGER_NONE
) and
2989 (gTriggers
[a
].TimeOut
= 0) and
2990 ((gTriggers
[a
].Keys
and k
) = gTriggers
[a
].Keys
) and
2991 ByteBool(gTriggers
[a
].ActivateType
and ActivateType
) then
2992 if g_CollideLine(x1
, y1
, x2
, y2
, gTriggers
[a
].X
, gTriggers
[a
].Y
,
2993 gTriggers
[a
].Width
, gTriggers
[a
].Height
) then
2995 gTriggers
[a
].ActivateUID
:= UID
;
2996 ActivateTrigger(gTriggers
[a
], ActivateType
);
3000 procedure g_Triggers_PressC(CX
, CY
: Integer; Radius
: Word; UID
: Word; ActivateType
: Byte; IgnoreTrigger
: Integer = -1);
3007 if gTriggers
= nil then
3010 case g_GetUIDType(UID
) of
3014 p
:= g_Player_Get(UID
);
3023 rsq
:= Radius
* Radius
;
3025 for a
:= 0 to High(gTriggers
) do
3026 if (gTriggers
[a
].ID
<> DWORD(IgnoreTrigger
)) and
3027 (gTriggers
[a
].TriggerType
<> TRIGGER_NONE
) and
3028 (gTriggers
[a
].TimeOut
= 0) and
3029 ((gTriggers
[a
].Keys
and k
) = gTriggers
[a
].Keys
) and
3030 ByteBool(gTriggers
[a
].ActivateType
and ActivateType
) then
3031 with gTriggers
[a
] do
3032 if g_Collide(CX
-Radius
, CY
-Radius
, 2*Radius
, 2*Radius
,
3033 X
, Y
, Width
, Height
) then
3034 if ((Sqr(CX
-X
)+Sqr(CY
-Y
)) < rsq
) or // Öåíòð êðóãà áëèçîê ê âåðõíåìó ëåâîìó óãëó
3035 ((Sqr(CX
-X
-Width
)+Sqr(CY
-Y
)) < rsq
) or // Öåíòð êðóãà áëèçîê ê âåðõíåìó ïðàâîìó óãëó
3036 ((Sqr(CX
-X
-Width
)+Sqr(CY
-Y
-Height
)) < rsq
) or // Öåíòð êðóãà áëèçîê ê íèæíåìó ïðàâîìó óãëó
3037 ((Sqr(CX
-X
)+Sqr(CY
-Y
-Height
)) < rsq
) or // Öåíòð êðóãà áëèçîê ê íèæíåìó ëåâîìó óãëó
3038 ( (CX
> (X
-Radius
)) and (CX
< (X
+Width
+Radius
)) and
3039 (CY
> Y
) and (CY
< (Y
+Height
)) ) or // Öåíòð êðóãà íåäàëåêî îò âåðòèêàëüíûõ ãðàíèö ïðÿìîóãîëüíèêà
3040 ( (CY
> (Y
-Radius
)) and (CY
< (Y
+Height
+Radius
)) and
3041 (CX
> X
) and (CX
< (X
+Width
)) ) then // Öåíòð êðóãà íåäàëåêî îò ãîðèçîíòàëüíûõ ãðàíèö ïðÿìîóãîëüíèêà
3044 ActivateTrigger(gTriggers
[a
], ActivateType
);
3048 procedure g_Triggers_OpenAll();
3053 if gTriggers
= nil then Exit
;
3056 for a
:= 0 to High(gTriggers
) do
3058 with gTriggers
[a
] do
3060 if (TriggerType
= TRIGGER_OPENDOOR
) or
3061 (TriggerType
= TRIGGER_DOOR5
) or
3062 (TriggerType
= TRIGGER_DOOR
) then
3064 tr_OpenDoor(trigPanelGUID
, True, tgcD2d
);
3065 if TriggerType
= TRIGGER_DOOR5
then DoorTime
:= 180;
3071 if b
then g_Sound_PlayEx('SOUND_GAME_DOOROPEN');
3074 procedure g_Triggers_DecreaseSpawner(ID
: DWORD
);
3076 if (gTriggers
<> nil) then
3078 if gTriggers
[ID
].tgcMax
> 0 then
3080 if gTriggers
[ID
].SpawnedCount
> 0 then
3081 Dec(gTriggers
[ID
].SpawnedCount
);
3083 if gTriggers
[ID
].tgcDelay
> 0 then
3085 if gTriggers
[ID
].SpawnCooldown
< 0 then
3086 gTriggers
[ID
].SpawnCooldown
:= gTriggers
[ID
].tgcDelay
;
3091 procedure g_Triggers_Free ();
3095 for a
:= 0 to High(gTriggers
) do
3097 if (gTriggers
[a
].TriggerType
= TRIGGER_SOUND
) then
3099 if g_Sound_Exists(gTriggers
[a
].tgcSoundName
) then
3101 g_Sound_Delete(gTriggers
[a
].tgcSoundName
);
3103 gTriggers
[a
].Sound
.Free();
3105 if (gTriggers
[a
].Activators
<> nil) then
3107 SetLength(gTriggers
[a
].Activators
, 0);
3109 gTriggers
[a
].trigDataRec
.Free();
3111 gTriggers
[a
].exoThink
.Free();
3112 gTriggers
[a
].exoCheck
.Free();
3113 gTriggers
[a
].exoAction
.Free();
3114 gTriggers
[a
].userVars
.Free();
3119 SetLength(gMonstersSpawned
, 0);
3123 procedure g_Triggers_SaveState (st
: TStream
);
3125 count
, actCount
, i
, j
: Integer;
3128 kv
: THashStrVariant
.PEntry
;
3131 // Ñ÷èòàåì êîëè÷åñòâî ñóùåñòâóþùèõ òðèããåðîâ
3132 count
:= Length(gTriggers
);
3134 // Êîëè÷åñòâî òðèããåðîâ
3135 utils
.writeInt(st
, LongInt(count
));
3136 if (count
= 0) then exit
;
3138 for i
:= 0 to High(gTriggers
) do
3140 // Ñèãíàòóðà òðèããåðà
3141 utils
.writeSign(st
, 'TRGX');
3142 utils
.writeInt(st
, Byte(0));
3144 utils
.writeInt(st
, Byte(gTriggers
[i
].TriggerType
));
3145 if (gTriggers
[i
].TriggerType
= TRIGGER_NONE
) then continue
; // empty one
3146 // Ñïåöèàëüíûå äàííûå òðèããåðà: ïîòîì èç êàðòû îïÿòü âûòàùèì; ñîõðàíèì òîëüêî èíäåêñ
3147 utils
.writeInt(st
, LongInt(gTriggers
[i
].mapIndex
));
3148 // Êîîðäèíàòû ëåâîãî âåðõíåãî óãëà
3149 utils
.writeInt(st
, LongInt(gTriggers
[i
].X
));
3150 utils
.writeInt(st
, LongInt(gTriggers
[i
].Y
));
3152 utils
.writeInt(st
, Word(gTriggers
[i
].Width
));
3153 utils
.writeInt(st
, Word(gTriggers
[i
].Height
));
3154 // Âêëþ÷åí ëè òðèããåð
3155 utils
.writeBool(st
, gTriggers
[i
].Enabled
);
3156 // Òèï àêòèâàöèè òðèããåðà
3157 utils
.writeInt(st
, Byte(gTriggers
[i
].ActivateType
));
3158 // Êëþ÷è, íåîáõîäèìûå äëÿ àêòèâàöèè
3159 utils
.writeInt(st
, Byte(gTriggers
[i
].Keys
));
3160 // ID ïàíåëè, òåêñòóðà êîòîðîé èçìåíèòñÿ
3161 utils
.writeInt(st
, LongInt(gTriggers
[i
].TexturePanelGUID
));
3163 //Mem.WriteWord(gTriggers[i].TexturePanelType);
3164 // Âíóòðåííèé íîìåð äðóãîé ïàíåëè (ïî ñ÷àñòëèâîé ñëó÷àéíîñòè îí áóäåò ñîâïàäàòü ñ òåì, ÷òî ñîçäàíî ïðè çàãðóçêå êàðòû)
3165 utils
.writeInt(st
, LongInt(gTriggers
[i
].trigPanelGUID
));
3166 // Âðåìÿ äî âîçìîæíîñòè àêòèâàöèè
3167 utils
.writeInt(st
, Word(gTriggers
[i
].TimeOut
));
3168 // UID òîãî, êòî àêòèâèðîâàë ýòîò òðèããåð
3169 utils
.writeInt(st
, Word(gTriggers
[i
].ActivateUID
));
3170 // Ñïèñîê UID-îâ îáúåêòîâ, êîòîðûå íàõîäèëèñü ïîä âîçäåéñòâèåì
3171 actCount
:= Length(gTriggers
[i
].Activators
);
3172 utils
.writeInt(st
, LongInt(actCount
));
3173 for j
:= 0 to actCount
-1 do
3176 utils
.writeInt(st
, Word(gTriggers
[i
].Activators
[j
].UID
));
3178 utils
.writeInt(st
, Word(gTriggers
[i
].Activators
[j
].TimeOut
));
3180 // Ñòîèò ëè èãðîê â îáëàñòè òðèããåðà
3181 utils
.writeBool(st
, gTriggers
[i
].PlayerCollide
);
3182 // Âðåìÿ äî çàêðûòèÿ äâåðè
3183 utils
.writeInt(st
, LongInt(gTriggers
[i
].DoorTime
));
3184 // Çàäåðæêà àêòèâàöèè
3185 utils
.writeInt(st
, LongInt(gTriggers
[i
].PressTime
));
3187 utils
.writeInt(st
, LongInt(gTriggers
[i
].PressCount
));
3189 utils
.writeBool(st
, gTriggers
[i
].AutoSpawn
);
3190 // Çàäåðæêà ñïàâíåðà
3191 utils
.writeInt(st
, LongInt(gTriggers
[i
].SpawnCooldown
));
3192 // Ñ÷åò÷èê ñîçäàíèÿ îáúåêòîâ
3193 utils
.writeInt(st
, LongInt(gTriggers
[i
].SpawnedCount
));
3194 // Ñêîëüêî ðàç ïðîèãðàí çâóê
3195 utils
.writeInt(st
, LongInt(gTriggers
[i
].SoundPlayCount
));
3196 // Ïðîèãðûâàåòñÿ ëè çâóê?
3197 if (gTriggers
[i
].Sound
<> nil) then b
:= gTriggers
[i
].Sound
.IsPlaying() else b
:= false;
3198 utils
.writeBool(st
, b
);
3201 // Ïîçèöèÿ ïðîèãðûâàíèÿ çâóêà
3202 utils
.writeInt(st
, LongWord(gTriggers
[i
].Sound
.GetPosition()));
3204 sg
:= gTriggers
[i
].Sound
.GetVolume();
3205 sg
:= sg
/(gSoundLevel
/255.0);
3206 //Mem.WriteSingle(sg);
3207 st
.WriteBuffer(sg
, sizeof(sg
)); // sorry
3208 // Ñòåðåî ñìåùåíèå çâóêà
3209 sg
:= gTriggers
[i
].Sound
.GetPan();
3210 //Mem.WriteSingle(sg);
3211 st
.WriteBuffer(sg
, sizeof(sg
)); // sorry
3214 if (gTriggers
[i
].userVars
= nil) then
3216 utils
.writeInt(st
, LongInt(0));
3220 utils
.writeInt(st
, LongInt(gTriggers
[i
].userVars
.count
)); //FIXME: check for overflow
3221 for kv
in gTriggers
[i
].userVars
.byKeyValue
do
3223 //writeln('<', kv.key, '>:<', VarToStr(kv.value), '>');
3224 utils
.writeStr(st
, kv
.key
);
3225 t
:= LongInt(varType(kv
.value
));
3226 utils
.writeInt(st
, LongInt(t
));
3228 varString
: utils
.writeStr(st
, AnsiString(kv
.value
));
3229 varBoolean
: utils
.writeBool(st
, Boolean(kv
.value
));
3230 varShortInt
: utils
.writeInt(st
, LongInt(kv
.value
));
3231 varSmallint
: utils
.writeInt(st
, LongInt(kv
.value
));
3232 varInteger
: utils
.writeInt(st
, LongInt(kv
.value
));
3233 //varInt64: Mem.WriteInt(Integer(kv.value));
3234 varByte
: utils
.writeInt(st
, LongInt(kv
.value
));
3235 varWord
: utils
.writeInt(st
, LongInt(kv
.value
));
3236 varLongWord
: utils
.writeInt(st
, LongInt(kv
.value
));
3238 else raise Exception
.CreateFmt('cannot save uservar ''%s''', [kv
.key
]);
3246 procedure g_Triggers_LoadState (st
: TStream
);
3248 count
, actCount
, i
, j
, a
: Integer;
3257 uvname
: AnsiString = '';
3258 ustr
: AnsiString = '';
3266 // Êîëè÷åñòâî òðèããåðîâ
3267 count
:= utils
.readLongInt(st
);
3268 if (count
= 0) then exit
;
3269 if (count
< 0) or (count
> 1024*1024) then raise XStreamError
.Create('invalid trigger count');
3271 for a
:= 0 to count
-1 do
3273 // Ñèãíàòóðà òðèããåðà
3274 if not utils
.checkSign(st
, 'TRGX') then raise XStreamError
.Create('invalid trigger signature');
3275 if (utils
.readByte(st
) <> 0) then raise XStreamError
.Create('invalid trigger version');
3277 Trig
.TriggerType
:= utils
.readByte(st
);
3278 if (Trig
.TriggerType
= TRIGGER_NONE
) then continue
; // empty one
3279 // Ñïåöèàëüíûå äàííûå òðèããåðà: èíäåêñ â gCurrentMap.field['triggers']
3280 mapIndex
:= utils
.readLongInt(st
);
3281 i
:= g_Triggers_CreateWithMapIndex(Trig
, a
, mapIndex
);
3282 // Êîîðäèíàòû ëåâîãî âåðõíåãî óãëà
3283 gTriggers
[i
].X
:= utils
.readLongInt(st
);
3284 gTriggers
[i
].Y
:= utils
.readLongInt(st
);
3286 gTriggers
[i
].Width
:= utils
.readWord(st
);
3287 gTriggers
[i
].Height
:= utils
.readWord(st
);
3288 // Âêëþ÷åí ëè òðèããåð
3289 gTriggers
[i
].Enabled
:= utils
.readBool(st
);
3290 // Òèï àêòèâàöèè òðèããåðà
3291 gTriggers
[i
].ActivateType
:= utils
.readByte(st
);
3292 // Êëþ÷è, íåîáõîäèìûå äëÿ àêòèâàöèè
3293 gTriggers
[i
].Keys
:= utils
.readByte(st
);
3294 // ID ïàíåëè, òåêñòóðà êîòîðîé èçìåíèòñÿ
3295 gTriggers
[i
].TexturePanelGUID
:= utils
.readLongInt(st
);
3297 //Mem.ReadWord(gTriggers[i].TexturePanelType);
3298 // Âíóòðåííèé íîìåð äðóãîé ïàíåëè (ïî ñ÷àñòëèâîé ñëó÷àéíîñòè îí áóäåò ñîâïàäàòü ñ òåì, ÷òî ñîçäàíî ïðè çàãðóçêå êàðòû)
3299 gTriggers
[i
].trigPanelGUID
:= utils
.readLongInt(st
);
3300 // Âðåìÿ äî âîçìîæíîñòè àêòèâàöèè
3301 gTriggers
[i
].TimeOut
:= utils
.readWord(st
);
3302 // UID òîãî, êòî àêòèâèðîâàë ýòîò òðèããåð
3303 gTriggers
[i
].ActivateUID
:= utils
.readWord(st
);
3304 // Ñïèñîê UID-îâ îáúåêòîâ, êîòîðûå íàõîäèëèñü ïîä âîçäåéñòâèåì
3305 actCount
:= utils
.readLongInt(st
);
3306 if (actCount
< 0) or (actCount
> 1024*1024) then raise XStreamError
.Create('invalid activated object count');
3307 if (actCount
> 0) then
3309 SetLength(gTriggers
[i
].Activators
, actCount
);
3310 for j
:= 0 to actCount
-1 do
3313 gTriggers
[i
].Activators
[j
].UID
:= utils
.readWord(st
);
3315 gTriggers
[i
].Activators
[j
].TimeOut
:= utils
.readWord(st
);
3318 // Ñòîèò ëè èãðîê â îáëàñòè òðèããåðà
3319 gTriggers
[i
].PlayerCollide
:= utils
.readBool(st
);
3320 // Âðåìÿ äî çàêðûòèÿ äâåðè
3321 gTriggers
[i
].DoorTime
:= utils
.readLongInt(st
);
3322 // Çàäåðæêà àêòèâàöèè
3323 gTriggers
[i
].PressTime
:= utils
.readLongInt(st
);
3325 gTriggers
[i
].PressCount
:= utils
.readLongInt(st
);
3327 gTriggers
[i
].AutoSpawn
:= utils
.readBool(st
);
3328 // Çàäåðæêà ñïàâíåðà
3329 gTriggers
[i
].SpawnCooldown
:= utils
.readLongInt(st
);
3330 // Ñ÷åò÷èê ñîçäàíèÿ îáúåêòîâ
3331 gTriggers
[i
].SpawnedCount
:= utils
.readLongInt(st
);
3332 // Ñêîëüêî ðàç ïðîèãðàí çâóê
3333 gTriggers
[i
].SoundPlayCount
:= utils
.readLongInt(st
);
3334 // Ïðîèãðûâàåòñÿ ëè çâóê?
3335 b
:= utils
.readBool(st
);
3338 // Ïîçèöèÿ ïðîèãðûâàíèÿ çâóêà
3339 dw
:= utils
.readLongWord(st
);
3341 //Mem.ReadSingle(vol);
3342 st
.ReadBuffer(vol
, sizeof(vol
)); // sorry
3343 // Ñòåðåî ñìåùåíèå çâóêà
3344 //Mem.ReadSingle(pan);
3345 st
.ReadBuffer(pan
, sizeof(pan
)); // sorry
3346 // Çàïóñêàåì çâóê, åñëè åñòü
3347 if (gTriggers
[i
].Sound
<> nil) then
3349 gTriggers
[i
].Sound
.PlayPanVolume(pan
, vol
);
3350 gTriggers
[i
].Sound
.Pause(True);
3351 gTriggers
[i
].Sound
.SetPosition(dw
);
3355 gTriggers
[i
].userVars
.Free();
3356 gTriggers
[i
].userVars
:= nil;
3357 uvcount
:= utils
.readLongInt(st
);
3358 if (uvcount
< 0) or (uvcount
> 1024*1024) then raise XStreamError
.Create('invalid number of user vars in trigger');
3359 if (uvcount
> 0) then
3361 gTriggers
[i
].userVars
:= THashStrVariant
.Create();
3363 while (uvcount
> 0) do
3366 uvname
:= utils
.readStr(st
);
3367 vt
:= utils
.readLongInt(st
);
3369 varString
: begin ustr
:= utils
.readStr(st
); vv
:= ustr
; end;
3370 varBoolean
: begin ubool
:= utils
.readBool(st
); vv
:= ubool
; end;
3371 varShortInt
: begin uint
:= utils
.readLongInt(st
); vv
:= ShortInt(uint
); end;
3372 varSmallint
: begin uint
:= utils
.readLongInt(st
); vv
:= SmallInt(uint
); end;
3373 varInteger
: begin uint
:= utils
.readLongInt(st
); vv
:= LongInt(uint
); end;
3374 varByte
: begin uint
:= utils
.readLongInt(st
); vv
:= Byte(uint
); end;
3375 varWord
: begin uint
:= utils
.readLongInt(st
); vv
:= Word(uint
); end;
3376 varLongWord
: begin uint
:= utils
.readLongInt(st
); vv
:= LongWord(uint
); end;
3377 else raise Exception
.CreateFmt('cannot load uservar ''%s''', [uvname
]);
3379 gTriggers
[i
].userVars
.put(uvname
, vv
);