bd2bb6ff6eb8b4c8db401598976a942c3300f078
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}
20 uses e_msg
, g_net
, g_triggers
, Classes
, SysUtils
, md5
;
66 NET_MSG_RCON_AUTH
= 191;
67 NET_MSG_RCON_CMD
= 192;
68 NET_MSG_TIME_SYNC
= 194;
69 NET_MSG_VOTE_EVENT
= 195;
72 NET_MSG_MAP_REQUEST = 201;
73 NET_MSG_MAP_RESPONSE = 202;
74 NET_MSG_RES_REQUEST = 203;
75 NET_MSG_RES_RESPONSE = 204;
99 NET_EV_CHANGE_TEAM
= 3;
100 NET_EV_PLAYER_KICK
= 4;
101 NET_EV_PLAYER_BAN
= 5;
102 NET_EV_LMS_WARMUP
= 6;
103 NET_EV_LMS_SURVIVOR
= 7;
107 NET_EV_SCORE_MSG
= 11;
108 NET_EV_LMS_START
= 12;
110 NET_EV_TLMS_WIN
= 14;
111 NET_EV_LMS_LOSE
= 15;
112 NET_EV_LMS_DRAW
= 16;
113 NET_EV_KILLCOMBO
= 17;
114 NET_EV_PLAYER_TOUCH
= 18;
116 NET_EV_INTER_READY
= 20;
117 NET_EV_LMS_NOSPAWN
= 21;
124 NET_VE_INPROGRESS
= 6;
131 NET_CHEAT_SUICIDE
= 1;
132 NET_CHEAT_SPECTATE
= 2;
134 NET_CHEAT_DROPFLAG
= 4;
136 NET_MAX_DIFFTIME
= 5000 div 36;
140 procedure MH_MalformedPacket(C
: pTNetClient
);
141 procedure MH_ProcessFirstSpawn (C
: pTNetClient
);
143 procedure MH_RECV_Info(C
: pTNetClient
; var M
: TMsg
);
144 procedure MH_RECV_Chat(C
: pTNetClient
; var M
: TMsg
);
145 procedure MH_RECV_FullStateRequest(C
: pTNetClient
; var M
: TMsg
);
146 function MH_RECV_PlayerPos(C
: pTNetClient
; var M
: TMsg
): Word;
147 procedure MH_RECV_PlayerSettings(C
: pTNetClient
; var M
: TMsg
);
148 procedure MH_RECV_CheatRequest(C
: pTNetClient
; var M
: TMsg
);
149 procedure MH_RECV_RCONPassword(C
: pTNetClient
; var M
: TMsg
);
150 procedure MH_RECV_RCONCommand(C
: pTNetClient
; var M
: TMsg
);
151 //procedure MH_RECV_MapRequest(C: pTNetClient; var M: TMsg);
152 //procedure MH_RECV_ResRequest(C: pTNetClient; var M: TMsg);
153 procedure MH_RECV_Vote(C
: pTNetClient
; var M
: TMsg
);
156 procedure MH_SEND_Everything(CreatePlayers
: Boolean {= False}; ID
: Integer {= NET_EVERYONE});
157 procedure MH_SEND_Info(ID
: Byte);
158 procedure MH_SEND_Chat(Txt
: string; Mode
: Byte; ID
: Integer = NET_EVERYONE
);
159 procedure MH_SEND_Effect(X
, Y
: Integer; Ang
: SmallInt; Kind
: Byte; ID
: Integer = NET_EVERYONE
);
160 procedure MH_SEND_Sound(X
, Y
: Integer; Name
: string; Pos
: Boolean = True; ID
: Integer = NET_EVERYONE
);
161 procedure MH_SEND_CreateShot(Proj
: LongInt; ID
: Integer = NET_EVERYONE
);
162 procedure MH_SEND_UpdateShot(Proj
: LongInt; ID
: Integer = NET_EVERYONE
);
163 procedure MH_SEND_DeleteShot(Proj
: LongInt; X
, Y
: LongInt; Loud
: Boolean = True; ID
: Integer = NET_EVERYONE
);
164 procedure MH_SEND_GameStats(ID
: Integer = NET_EVERYONE
);
165 procedure MH_SEND_CoopStats(ID
: Integer = NET_EVERYONE
);
166 procedure MH_SEND_GameEvent(EvType
: Byte; EvNum
: Integer = 0; EvStr
: string = 'N'; ID
: Integer = NET_EVERYONE
);
167 procedure MH_SEND_FlagEvent(EvType
: Byte; Flag
: Byte; PID
: Word; Quiet
: Boolean = False; ID
: Integer = NET_EVERYONE
);
168 procedure MH_SEND_FlagPos(Flag
: Byte; ID
: Integer = NET_EVERYONE
);
169 procedure MH_SEND_GameSettings(ID
: Integer = NET_EVERYONE
);
171 procedure MH_SEND_PlayerCreate(PID
: Word; ID
: Integer = NET_EVERYONE
);
172 procedure MH_SEND_PlayerPos(Reliable
: Boolean; PID
: Word; ID
: Integer = NET_EVERYONE
);
173 procedure MH_SEND_PlayerStats(PID
: Word; ID
: Integer = NET_EVERYONE
);
174 procedure MH_SEND_PlayerDelete(PID
: Word; ID
: Integer = NET_EVERYONE
);
175 procedure MH_SEND_PlayerDamage(PID
: Word; Kind
: Byte; Attacker
, Value
: Word; VX
, VY
: Integer; ID
: Integer = NET_EVERYONE
);
176 procedure MH_SEND_PlayerFire(PID
: Word; Weapon
: Byte; X
, Y
, AX
, AY
: Integer; ShotID
: Integer = -1; ID
: Integer = NET_EVERYONE
);
177 procedure MH_SEND_PlayerDeath(PID
: Word; KillType
, DeathType
: Byte; Attacker
: Word; ID
: Integer = NET_EVERYONE
);
178 procedure MH_SEND_PlayerSettings(PID
: Word; Mdl
: string = ''; ID
: Integer = NET_EVERYONE
);
180 procedure MH_SEND_ItemSpawn(Quiet
: Boolean; IID
: Word; ID
: Integer = NET_EVERYONE
);
181 procedure MH_SEND_ItemDestroy(Quiet
: Boolean; IID
: Word; ID
: Integer = NET_EVERYONE
);
182 procedure MH_SEND_ItemPos(IID
: Word; ID
: Integer = NET_EVERYONE
);
184 procedure MH_SEND_PanelTexture(PGUID
: Integer; ID
: Integer = NET_EVERYONE
);
185 procedure MH_SEND_PanelState(PGUID
: Integer; ID
: Integer = NET_EVERYONE
);
187 procedure MH_SEND_MonsterSpawn(UID
: Word; ID
: Integer = NET_EVERYONE
);
188 procedure MH_SEND_MonsterPos(UID
: Word; ID
: Integer = NET_EVERYONE
);
189 procedure MH_SEND_MonsterState(UID
: Word; ForcedAnim
: Byte = 255; ID
: Integer = NET_EVERYONE
);
190 procedure MH_SEND_MonsterShot(UID
: Word; X
, Y
, VX
, VY
: Integer; ID
: Integer = NET_EVERYONE
);
191 procedure MH_SEND_MonsterDelete(UID
: Word; ID
: Integer = NET_EVERYONE
);
193 procedure MH_SEND_TriggerSound(var T
: TTrigger
; ID
: Integer = NET_EVERYONE
);
194 procedure MH_SEND_TriggerMusic(ID
: Integer = NET_EVERYONE
);
196 procedure MH_SEND_TimeSync(Time
: LongWord; ID
: Integer = NET_EVERYONE
);
197 procedure MH_SEND_VoteEvent(EvType
: Byte;
198 StrArg1
: string = 'a'; StrArg2
: string = 'b';
199 IntArg1
: SmallInt = 0; IntArg2
: SmallInt = 0;
200 ID
: Integer = NET_EVERYONE
);
202 // CLIENT MESSAGES //
205 procedure MC_RECV_Chat(var M
: TMsg
);
206 procedure MC_RECV_Effect(var M
: TMsg
);
207 procedure MC_RECV_Sound(var M
: TMsg
);
208 procedure MC_RECV_GameStats(var M
: TMsg
);
209 procedure MC_RECV_CoopStats(var M
: TMsg
);
210 procedure MC_RECV_GameEvent(var M
: TMsg
);
211 procedure MC_RECV_FlagEvent(var M
: TMsg
);
212 procedure MC_RECV_FlagPos(var M
: TMsg
);
213 procedure MC_RECV_GameSettings(var M
: TMsg
);
215 function MC_RECV_PlayerCreate(var M
: TMsg
): Word;
216 function MC_RECV_PlayerPos(var M
: TMsg
): Word;
217 function MC_RECV_PlayerStats(var M
: TMsg
): Word;
218 function MC_RECV_PlayerDelete(var M
: TMsg
): Word;
219 function MC_RECV_PlayerDamage(var M
: TMsg
): Word;
220 function MC_RECV_PlayerDeath(var M
: TMsg
): Word;
221 function MC_RECV_PlayerFire(var M
: TMsg
): Word;
222 procedure MC_RECV_PlayerSettings(var M
: TMsg
);
224 procedure MC_RECV_ItemSpawn(var M
: TMsg
);
225 procedure MC_RECV_ItemDestroy(var M
: TMsg
);
226 procedure MC_RECV_ItemPos(var M
: TMsg
);
228 procedure MC_RECV_PanelTexture(var M
: TMsg
);
229 procedure MC_RECV_PanelState(var M
: TMsg
);
231 procedure MC_RECV_MonsterSpawn(var M
: TMsg
);
232 procedure MC_RECV_MonsterPos(var M
: TMsg
);
233 procedure MC_RECV_MonsterState(var M
: TMsg
);
234 procedure MC_RECV_MonsterShot(var M
: TMsg
);
235 procedure MC_RECV_MonsterDelete(var M
: TMsg
);
237 procedure MC_RECV_CreateShot(var M
: TMsg
);
238 procedure MC_RECV_UpdateShot(var M
: TMsg
);
239 procedure MC_RECV_DeleteShot(var M
: TMsg
);
241 procedure MC_RECV_TriggerSound(var M
: TMsg
);
242 procedure MC_RECV_TriggerMusic(var M
: TMsg
);
244 procedure MC_RECV_TimeSync(var M
: TMsg
);
245 procedure MC_RECV_VoteEvent(var M
: TMsg
);
247 procedure MC_SEND_Info(Password
: string);
248 procedure MC_SEND_Chat(Txt
: string; Mode
: Byte);
249 procedure MC_SEND_PlayerPos();
250 procedure MC_SEND_FullStateRequest();
251 procedure MC_SEND_PlayerSettings();
252 procedure MC_SEND_CheatRequest(Kind
: Byte);
253 procedure MC_SEND_RCONPassword(Password
: string);
254 procedure MC_SEND_RCONCommand(Cmd
: string);
255 procedure MC_SEND_Vote(Start
: Boolean = False; Command
: string = 'a');
257 //procedure MC_SEND_MapRequest();
258 //procedure MC_SEND_ResRequest(const resName: AnsiString);
262 TExternalResourceInfo
= record
277 ExternalResources
: array of TExternalResourceInfo
;
280 function IsValidFileName(const S
: String): Boolean;
281 function IsValidFilePath(const S
: String): Boolean;
296 {$IFDEF ENABLE_SHELLS}
299 {$IFDEF ENABLE_CORPSES}
302 Math
, ENet
, e_input
, e_log
, g_base
, g_basic
,
303 g_sound
, g_console
, g_options
, g_window
,
304 g_game
, g_player
, g_map
, g_panel
, g_items
, g_weapons
, g_phys
,
305 g_language
, g_monsters
, g_netmaster
, utils
, wadreader
, MAPDEF
309 NET_KEY_LEFT
= 1 shl 0;
310 NET_KEY_RIGHT
= 1 shl 1;
311 NET_KEY_UP
= 1 shl 2;
312 NET_KEY_DOWN
= 1 shl 3;
313 NET_KEY_JUMP
= 1 shl 4;
314 NET_KEY_FIRE
= 1 shl 5;
315 NET_KEY_OPEN
= 1 shl 6;
316 NET_KEY_CHAT
= 1 shl 7;
317 NET_KEY_FORCEDIR
= 1 shl 8;
320 //kBytePrev: Word = 0;
321 //kDirPrev: TDirection = D_LEFT;
322 //HostGameTime: Word = 0;
325 function IsValidFileName(const S
: String): Boolean;
327 Forbidden
: set of Char = ['<', '>', '|', '"', ':', '*', '?'];
332 for I
:= 1 to Length(S
) do
333 Result
:= Result
and (not(S
[I
] in Forbidden
));
336 function IsValidFilePath(const S
: String): Boolean;
341 if not IsValidFileName(S
) then exit
;
342 if FileExists(S
) then exit
;
343 I
:= LastDelimiter('\/', S
);
345 if (not DirectoryExists(Copy(S
, 1, I
-1))) then
356 procedure MH_MalformedPacket(C
: pTNetClient
);
358 g_Console_Add(_lc
[I_NET_MSG
] + _lc
[I_NET_MSG_HOST_REJECT
] +
359 _lc
[I_NET_DISC_PROTOCOL
]);
360 g_Net_Host_Kick(C
^.ID
, NET_DISC_PROTOCOL
);
363 procedure MH_RECV_Chat(C
: pTNetClient
; var M
: TMsg
);
372 Pl
:= g_Player_Get(PID
);
376 Txt
:= M
.ReadString();
377 Mode
:= M
.ReadByte();
382 if Err
then begin MH_MalformedPacket(C
); Exit
; end;
384 if (Mode
= NET_CHAT_SYSTEM
) then
385 Mode
:= NET_CHAT_PLAYER
; // prevent sending system messages from clients
386 if (Mode
= NET_CHAT_TEAM
) and (not gGameSettings
.GameMode
in [GM_TDM
, GM_CTF
]) then
387 Mode
:= NET_CHAT_PLAYER
; // revert to player chat in non-team game
390 MH_SEND_Chat(Txt
, Mode
)
392 MH_SEND_Chat(Pl
.Name
+ ': ' + Txt
, Mode
, IfThen(Mode
= NET_CHAT_TEAM
, Pl
.Team
, NET_EVERYONE
));
395 procedure MH_RECV_Info(C
: pTNetClient
; var M
: TMsg
);
397 Ver
, PName
, Model
, Pw
: string;
400 TmpPrefArray
: Array [WP_FIRST
.. WP_LAST
+ 1] of Byte;
410 Ver
:= M
.ReadString();
411 Pw
:= M
.ReadString();
412 PName
:= M
.ReadString();
413 Model
:= M
.ReadString();
418 WeapSwitch
:= M
.ReadByte();
419 for I
:= WP_FIRST
to WP_LAST
+ 1 do
420 TmpPrefArray
[I
] := M
.ReadByte();
421 SwitchEmpty
:= M
.ReadByte();
422 SkipF
:= M
.ReadByte();
427 if Err
then begin MH_MalformedPacket(C
); Exit
; end;
429 if Ver
<> GAME_VERSION
then
431 g_Console_Add(_lc
[I_NET_MSG
] + _lc
[I_NET_MSG_HOST_REJECT
] +
432 _lc
[I_NET_DISC_VERSION
]);
433 g_Net_Host_Kick(C
^.ID
, NET_DISC_VERSION
);
437 if g_Net_IsHostBanned(C
^.Peer
^.address
.host
) then
439 if g_Net_IsHostBanned(C
^.Peer
^.address
.host
, True) then
441 g_Console_Add(_lc
[I_NET_MSG
] + _lc
[I_NET_MSG_HOST_REJECT
] +
442 _lc
[I_NET_DISC_BAN
]);
443 g_Net_Host_Kick(C
^.ID
, NET_DISC_BAN
);
447 g_Console_Add(_lc
[I_NET_MSG
] + _lc
[I_NET_MSG_HOST_REJECT
] +
448 _lc
[I_NET_DISC_BAN
]);
449 g_Net_Host_Kick(C
^.ID
, NET_DISC_TEMPBAN
);
454 if NetPassword
<> '' then
455 if AnsiLowerCase(NetPassword
) <> AnsiLowerCase(Pw
) then
457 g_Console_Add(_lc
[I_NET_MSG
] + _lc
[I_NET_MSG_HOST_REJECT
] +
458 _lc
[I_NET_DISC_PASSWORD
]);
459 g_Net_Host_Kick(C
^.ID
, NET_DISC_PASSWORD
);
463 if (C
^.Player
<> 0) then
465 // already received info
466 g_Net_Penalize(C
, 'client info spam');
474 PID
:= g_Player_Create(Model
, Color
, T
, False);
475 with g_Player_Get(PID
) do
478 WeapSwitchMode
:= WeapSwitch
;
479 SetWeaponPrefs(TmpPrefArray
);
480 SwitchToEmpty
:= SwitchEmpty
;
482 if (g_Force_Model_Get() <> 0) then
483 SetModel(g_Forced_Model_GetName());
488 C
^.WaitForFirstSpawn
:= false;
491 g_Console_Add(Format(_lc
[I_PLAYER_JOIN
], [PName
]), True);
492 e_WriteLog('NET: Client ' + PName
+ ' [' + IntToStr(C
^.ID
) +
493 '] connected. Assigned player #' + IntToStr(PID
) + '.', TMsgType
.Notify
);
497 with g_Player_Get(PID
) do
501 // round in progress, don't spawn
502 e_LogWritefln('*** client #%u (cid #%u) authenticated...', [C
.ID
, C
.Player
]);
503 //e_LogWritefln('spawning player with pid #%u...', [PID]);
504 //Respawn(gGameSettings.GameType = GT_SINGLE);
505 //k8: no, do not spawn a player yet, wait for "request full state" packet
509 // `FWantsInGame` seems to mean "spawn the player on the next occasion".
510 // that is, if we'll set it to `true`, the player can be spawned after
511 // warmup time ran out, for example, regardless of the real player state.
512 // also, this seems to work only for the initial connection. further
513 // map changes could initiate resource downloading, but the player will
514 // be spawned immediately.
515 // the proper solution will require another player state, "ephemeral".
516 // the player should start any map in "ephemeral" state, and turned into
517 // real mobj only when they sent a special "i am ready" packet. this packet
518 // must be sent after receiving the full state, so the player will get a full
519 // map view before going into game.
520 FWantsInGame
:= false;
521 C
^.WaitForFirstSpawn
:= true;
524 //if not C^.WaitForFirstSpawn then
526 for I
:= Low(NetClients
) to High(NetClients
) do
528 if NetClients
[I
].ID
= C
^.ID
then Continue
;
529 MH_SEND_PlayerCreate(PID
, NetClients
[I
].ID
);
530 MH_SEND_PlayerPos(True, PID
, NetClients
[I
].ID
);
531 MH_SEND_PlayerStats(PID
, NetClients
[I
].ID
);
535 if gState
in [STATE_INTERCUSTOM
, STATE_FOLD
] then
536 MH_SEND_GameEvent(NET_EV_MAPEND
, 0, 'N', C
^.ID
);
540 //g_Net_Slist_Update;
546 procedure MH_ProcessFirstSpawn (C
: pTNetClient
);
550 if not C
.WaitForFirstSpawn
then exit
;
551 plr
:= g_Player_Get(C
^.Player
);
552 if not assigned(plr
) then exit
;
553 g_Net_Slist_ServerPlayerComes();
554 e_LogWritefln('*** client #%u (cid #%u) first spawn', [C
.ID
, C
.Player
]);
555 C
.WaitForFirstSpawn
:= false;
556 plr
.FNoRespawn
:= false;
557 plr
.FWantsInGame
:= true; // TODO: look into this later
559 if (gGameSettings
.MaxLives
> 0) and (gLMSRespawn
= LMS_RESPAWN_NONE
) then
562 MH_SEND_GameEvent(NET_EV_LMS_NOSPAWN
, 0, 'N', C
.ID
);
567 if gLMSRespawn
> LMS_RESPAWN_NONE
then
568 MH_SEND_GameEvent(NET_EV_LMS_WARMUP
, gLMSRespawnTime
- gTime
, 'N', C
.ID
);
573 procedure MH_RECV_FullStateRequest(C
: pTNetClient
; var M
: TMsg
);
575 //e_LogWritefln('*** client #%u (cid #%u) full state request', [C.ID, C.Player]);
577 if C
^.FullUpdateSent
then
579 // FullStateRequest spam?
580 g_Net_Penalize(C
, 'duplicate full state request');
586 MH_SEND_Everything((C
^.State
= NET_STATE_AUTH
), C
^.ID
)
590 C
^.RequestedFullUpdate
:= True;
596 function MH_RECV_PlayerPos(C
: pTNetClient
; var M
: TMsg
): Word;
609 if not gGameOn
then Exit
;
612 GT
:= M
.ReadLongWord();
617 if Err
then begin MH_MalformedPacket(C
); Exit
; end;
620 Pl
:= g_Player_Get(PID
);
624 if (GT
> gTime
+ NET_MAX_DIFFTIME
) or (GT
< Pl
.NetTime
) then Exit
;
630 kByte
:= M
.ReadWord();
632 WeaponAct
:= M
.ReadByte();
633 WeaponSelect
:= M
.ReadWord();
638 if Err
then begin MH_MalformedPacket(C
); Exit
; end;
640 //e_WriteLog(Format('R:ws=%d', [WeaponSelect]), MSG_WARNING);
641 if Direction
<> TDirection(Dir
) then
642 JustTeleported
:= False;
644 SetDirection(TDirection(Dir
));
647 if kByte
= NET_KEY_CHAT
then
649 PressKey(KEY_CHAT
, 10000);
653 if LongBool(kByte
and NET_KEY_LEFT
) then PressKey(KEY_LEFT
, 10000);
654 if LongBool(kByte
and NET_KEY_RIGHT
) then PressKey(KEY_RIGHT
, 10000);
655 if LongBool(kByte
and NET_KEY_UP
) then PressKey(KEY_UP
, 10000);
656 if LongBool(kByte
and NET_KEY_DOWN
) then PressKey(KEY_DOWN
, 10000);
657 if LongBool(kByte
and NET_KEY_JUMP
) then PressKey(KEY_JUMP
, 10000);
658 if LongBool(kByte
and NET_KEY_FIRE
) then PressKey(KEY_FIRE
, 10000);
659 if LongBool(kByte
and NET_KEY_OPEN
) then PressKey(KEY_OPEN
, 10000);
663 if (WeaponAct
and Byte(1 shl i
)) <> 0 then
665 //e_WriteLog(Format(' R:wn=%d', [i]), MSG_WARNING);
666 ProcessWeaponAction(i
);
672 if (WeaponSelect
and Word(1 shl i
)) <> 0 then
674 //e_WriteLog(Format(' R:wn=%d', [i]), MSG_WARNING);
675 QueueWeaponSwitch(i
);
680 // MH_SEND_PlayerPos(False, PID, C^.ID);
683 procedure MH_RECV_CheatRequest(C
: pTNetClient
; var M
: TMsg
);
690 Pl
:= g_Player_Get(C
^.Player
);
691 if Pl
= nil then Exit
;
694 CheatKind
:= M
.ReadByte();
699 if Err
then begin MH_MalformedPacket(C
); Exit
; end;
703 Pl
.Damage(SUICIDE_DAMAGE
, Pl
.UID
, 0, 0, HIT_SELF
);
706 if Pl
.FSpectator
then
708 if (gGameSettings
.MaxLives
= 0) or (gLMSRespawn
> LMS_RESPAWN_NONE
) then
711 MH_SEND_GameEvent(NET_EV_LMS_NOSPAWN
, Pl
.UID
);
718 if gState
<> STATE_INTERCUSTOM
then Exit
;
719 Pl
.FReady
:= not Pl
.FReady
;
722 MH_SEND_GameEvent(NET_EV_INTER_READY
, Pl
.UID
, 'Y');
723 Inc(gInterReadyCount
);
727 MH_SEND_GameEvent(NET_EV_INTER_READY
, Pl
.UID
, 'N');
728 Dec(gInterReadyCount
);
736 procedure MH_RECV_PlayerSettings(C
: pTNetClient
; var M
: TMsg
);
743 TmpPrefArray
: Array [WP_FIRST
.. WP_LAST
+ 1] of Byte;
752 TmpName
:= M
.ReadString();
753 TmpModel
:= M
.ReadString();
754 TmpColor
.R
:= M
.ReadByte();
755 TmpColor
.G
:= M
.ReadByte();
756 TmpColor
.B
:= M
.ReadByte();
757 TmpTeam
:= M
.ReadByte();
758 TmpWeapSwitch
:= M
.ReadByte();
759 for I
:= WP_FIRST
to WP_LAST
+ 1 do
760 TmpPrefArray
[I
] := M
.ReadByte();
761 TmpSwEmpty
:= M
.ReadByte();
762 TmpSkipF
:= M
.ReadByte();
767 if Err
then begin MH_MalformedPacket(C
); Exit
; end;
769 Pl
:= g_Player_Get(C
^.Player
);
770 if Pl
= nil then Exit
;
772 if (gGameSettings
.GameMode
in [GM_TDM
, GM_CTF
]) and (Pl
.Team
<> TmpTeam
) then
775 Pl
.SetColor(TmpColor
);
777 if Pl
.Name
<> TmpName
then
779 g_Console_Add(Format(_lc
[I_PLAYER_NAME
], [Pl
.Name
, TmpName
]), True);
783 if (g_Force_Model_Get() <> 0) then
784 TmpModel
:= g_Forced_Model_GetName();
785 if TmpModel
<> Pl
.Model
.GetName() then
786 Pl
.SetModel(TmpModel
);
788 if (TmpWeapSwitch
<> Pl
.WeapSwitchMode
) then
789 Pl
.WeapSwitchMode
:= TmpWeapSwitch
;
791 Pl
.SetWeaponPrefs(TmpPrefArray
);
792 if (TmpSwEmpty
<> Pl
.SwitchToEmpty
) then
793 Pl
.SwitchToEmpty
:= TmpSwEmpty
;
795 if (TmpSkipF
<> Pl
.SkipFist
) then
796 Pl
.SkipFist
:= TmpSkipF
;
798 MH_SEND_PlayerSettings(Pl
.UID
, TmpModel
);
803 procedure MH_RECV_RCONPassword(C
: pTNetClient
; var M
: TMsg
);
810 Pwd
:= M
.ReadString();
814 if Err
then begin MH_MalformedPacket(C
); Exit
; end;
815 if not NetAllowRCON
then Exit
;
816 if Pwd
= NetRCONPassword
then
819 MH_SEND_GameEvent(NET_EV_RCON
, NET_RCON_PWGOOD
, 'N', C
^.ID
);
822 MH_SEND_GameEvent(NET_EV_RCON
, NET_RCON_PWBAD
, 'N', C
^.ID
);
825 procedure MH_RECV_RCONCommand(C
: pTNetClient
; var M
: TMsg
);
832 Cmd
:= M
.ReadString();
836 if Err
then begin MH_MalformedPacket(C
); Exit
; end;
837 if not NetAllowRCON
then Exit
;
838 if not C
^.RCONAuth
then
840 MH_SEND_GameEvent(NET_EV_RCON
, NET_RCON_NOAUTH
, 'N', C
^.ID
);
843 g_Console_Process(Cmd
);
848 procedure MH_RECV_Vote(C
: pTNetClient
; var M
: TMsg
);
851 Name
, Command
: string;
858 Start
:= M
.ReadByte() <> 0;
859 Command
:= M
.ReadString();
864 if Err
then begin MH_MalformedPacket(C
); Exit
; end;
866 Pl
:= g_Player_Get(C
^.Player
);
867 if Pl
= nil then Exit
;
872 if not g_Console_CommandBlacklisted(Command
) then
873 g_Game_StartVote(Command
, Name
);
875 else if gVoteInProgress
then
877 if (gPlayer1
<> nil) or (gPlayer2
<> nil) then
878 Need
:= Floor((NetClientCount
+1)/2.0) + 1
880 Need
:= Floor(NetClientCount
/2.0) + 1;
885 g_Console_Add(Format(_lc
[I_MESSAGE_VOTE_REVOKED
], [Name
, gVoteCount
, Need
]), True);
886 MH_SEND_VoteEvent(NET_VE_REVOKE
, Name
, 'a', gVoteCount
, Need
);
892 g_Console_Add(Format(_lc
[I_MESSAGE_VOTE_VOTE
], [Name
, gVoteCount
, Need
]), True);
893 MH_SEND_VoteEvent(NET_VE_VOTE
, Name
, 'a', gVoteCount
, Need
);
901 procedure MH_SEND_Everything(CreatePlayers
: Boolean {= False}; ID
: Integer {= NET_EVERYONE});
903 function sendItemRespawn (it
: PItem
): Boolean;
905 result
:= false; // don't stop
906 MH_SEND_ItemSpawn(True, it
.myid
, ID
);
909 function sendMonSpawn (mon
: TMonster
): Boolean;
911 result
:= false; // don't stop
912 MH_SEND_MonsterSpawn(mon
.UID
, ID
);
915 function sendPanelState (pan
: TPanel
): Boolean;
917 result
:= false; // don't stop
918 MH_SEND_PanelState(pan
.guid
, ID
); // anyway, to sync mplats
919 if (pan
.CanChangeTexture
) then MH_SEND_PanelTexture(pan
.guid
, ID
);
925 if (ID
< 0) or (ID
>= Length(NetClients
)) then
926 exit
; // bogus client, this shouldn't happen
928 NetClients
[ID
].FullUpdateSent
:= True;
930 e_LogWritefln('*** client #%u (cid #%u) will get everything', [ID
, NetClients
[ID
].Player
]);
932 MH_ProcessFirstSpawn(@NetClients
[ID
]);
934 if gPlayers
<> nil then
936 for I
:= Low(gPlayers
) to High(gPlayers
) do
938 if gPlayers
[I
] <> nil then
940 if CreatePlayers
then MH_SEND_PlayerCreate(gPlayers
[I
].UID
, ID
);
941 MH_SEND_PlayerPos(True, gPlayers
[I
].UID
, ID
);
942 MH_SEND_PlayerStats(gPlayers
[I
].UID
, ID
);
944 if (gPlayers
[I
].Flag
<> FLAG_NONE
) and (gGameSettings
.GameMode
= GM_CTF
) then
946 MH_SEND_FlagEvent(FLAG_STATE_CAPTURED
, gPlayers
[I
].Flag
, gPlayers
[I
].UID
, True, ID
);
952 g_Items_ForEachAlive(sendItemRespawn
, true); // backwards
953 g_Mons_ForEach(sendMonSpawn
);
954 g_Map_ForEachPanel(sendPanelState
);
956 if gTriggers
<> nil then
958 for I
:= Low(gTriggers
) to High(gTriggers
) do
960 if gTriggers
[I
].TriggerType
= TRIGGER_SOUND
then
962 MH_SEND_TriggerSound(gTriggers
[I
], ID
);
969 for I
:= Low(Shots
) to High(Shots
) do
971 if Shots
[i
].ShotType
in [6, 7, 8] then
973 MH_SEND_CreateShot(i
, ID
);
978 MH_SEND_TriggerMusic(ID
);
980 MH_SEND_GameStats(ID
);
981 MH_SEND_CoopStats(ID
);
983 if gGameSettings
.GameMode
= GM_CTF
then
985 if gFlags
[FLAG_RED
].State
<> FLAG_STATE_CAPTURED
then MH_SEND_FlagEvent(gFlags
[FLAG_RED
].State
, FLAG_RED
, 0, True, ID
);
986 if gFlags
[FLAG_BLUE
].State
<> FLAG_STATE_CAPTURED
then MH_SEND_FlagEvent(gFlags
[FLAG_BLUE
].State
, FLAG_BLUE
, 0, True, ID
);
989 if CreatePlayers
and (ID
>= 0) then NetClients
[ID
].State
:= NET_STATE_GAME
;
994 procedure MH_SEND_Info(ID
: Byte);
998 NetOut
.Write(Byte(NET_MSG_INFO
));
1000 NetOut
.Write(NetClients
[ID
].Player
);
1001 NetOut
.Write(ExtractFileName(gGameSettings
.WAD
));
1002 NetOut
.Write(g_ExtractFileName(gMapInfo
.Map
));
1003 NetOut
.Write(gWADHash
);
1004 NetOut
.Write(gGameSettings
.GameMode
);
1005 NetOut
.Write(gGameSettings
.ScoreLimit
);
1006 NetOut
.Write(gGameSettings
.TimeLimit
);
1007 NetOut
.Write(gGameSettings
.MaxLives
);
1008 NetOut
.Write(gGameSettings
.Options
);
1009 NetOut
.Write(gTime
);
1011 g_Net_Host_Send(ID
, True, NET_CHAN_SERVICE
);
1014 procedure MH_SEND_Chat(Txt
: string; Mode
: Byte; ID
: Integer = NET_EVERYONE
);
1020 if (Mode
= NET_CHAT_TEAM
) and (not gGameSettings
.GameMode
in [GM_TDM
, GM_CTF
]) then
1021 Mode
:= NET_CHAT_PLAYER
;
1024 if (Mode
= NET_CHAT_TEAM
) then
1026 for i
:= Low(gPlayers
) to High(gPlayers
) do
1027 if (gPlayers
[i
] <> nil) and (gPlayers
[i
].FClientID
>= 0) and
1028 (gPlayers
[i
].Team
= ID
) then
1030 NetOut
.Write(Byte(NET_MSG_CHAT
));
1033 g_Net_Host_Send(gPlayers
[i
].FClientID
, True, NET_CHAN_CHAT
);
1040 NetOut
.Write(Byte(NET_MSG_CHAT
));
1043 g_Net_Host_Send(ID
, True, NET_CHAN_CHAT
);
1046 if Mode
= NET_CHAT_SYSTEM
then
1049 if ID
= NET_EVERYONE
then
1051 if Mode
= NET_CHAT_PLAYER
then
1053 g_Console_Add(Txt
, True);
1054 e_WriteLog('[Chat] ' + b_Text_Unformat(Txt
), TMsgType
.Notify
);
1055 g_Game_ChatSound(b_Text_Unformat(Txt
));
1058 if Mode
= NET_CHAT_TEAM
then
1059 if gPlayer1
<> nil then
1061 if (gPlayer1
.Team
= TEAM_RED
) and (Team
= TEAM_RED
) then
1063 g_Console_Add(#18'[Team] '#2 + Txt
, True);
1064 e_WriteLog('[Team Chat] ' + b_Text_Unformat(Txt
), TMsgType
.Notify
);
1065 g_Game_ChatSound(b_Text_Unformat(Txt
));
1067 else if (gPlayer1
.Team
= TEAM_BLUE
) and (Team
= TEAM_BLUE
) then
1069 g_Console_Add(#20'[Team] '#2 + Txt
, True);
1070 e_WriteLog('[Team Chat] ' + b_Text_Unformat(Txt
), TMsgType
.Notify
);
1071 g_Game_ChatSound(b_Text_Unformat(Txt
));
1077 Name
:= g_Net_ClientName_ByID(ID
);
1078 g_Console_Add('-> ' + Name
+ ': ' + Txt
, True);
1079 e_WriteLog('[Tell ' + Name
+ '] ' + b_Text_Unformat(Txt
), TMsgType
.Notify
);
1080 g_Game_ChatSound(b_Text_Unformat(Txt
), False);
1084 procedure MH_SEND_Effect(X
, Y
: Integer; Ang
: SmallInt; Kind
: Byte; ID
: Integer = NET_EVERYONE
);
1086 NetOut
.Write(Byte(NET_MSG_GFX
));
1092 g_Net_Host_Send(ID
, False, NET_CHAN_GAME
);
1095 procedure MH_SEND_Sound(X
, Y
: Integer; Name
: string; Pos
: Boolean = True; ID
: Integer = NET_EVERYONE
);
1097 NetOut
.Write(Byte(NET_MSG_SND
));
1101 NetOut
.Write(Byte(1));
1106 NetOut
.Write(Byte(0));
1108 g_Net_Host_Send(ID
, False, NET_CHAN_GAME
);
1111 procedure MH_SEND_CreateShot(Proj
: LongInt; ID
: Integer = NET_EVERYONE
);
1113 if (Shots
= nil) or (Proj
< 0) or (Proj
> High(Shots
)) then Exit
;
1115 NetOut
.Write(Byte(NET_MSG_SHADD
));
1117 NetOut
.Write(Shots
[Proj
].ShotType
);
1118 NetOut
.Write(Shots
[Proj
].Target
);
1119 NetOut
.Write(Shots
[Proj
].SpawnerUID
);
1120 NetOut
.Write(Shots
[Proj
].Timeout
);
1121 NetOut
.Write(Shots
[Proj
].Obj
.X
);
1122 NetOut
.Write(Shots
[Proj
].Obj
.Y
);
1123 NetOut
.Write(Shots
[Proj
].Obj
.Vel
.X
);
1124 NetOut
.Write(Shots
[Proj
].Obj
.Vel
.Y
);
1126 g_Net_Host_Send(ID
, True, NET_CHAN_SHOTS
);
1129 procedure MH_SEND_UpdateShot(Proj
: LongInt; ID
: Integer = NET_EVERYONE
);
1131 if (Shots
= nil) or (Proj
< 0) or (Proj
> High(Shots
)) then Exit
;
1133 NetOut
.Write(Byte(NET_MSG_SHPOS
));
1135 NetOut
.Write(Shots
[Proj
].Obj
.X
);
1136 NetOut
.Write(Shots
[Proj
].Obj
.Y
);
1137 NetOut
.Write(Shots
[Proj
].Obj
.Vel
.X
);
1138 NetOut
.Write(Shots
[Proj
].Obj
.Vel
.Y
);
1140 g_Net_Host_Send(ID
, False, NET_CHAN_SHOTS
);
1143 procedure MH_Send_DeleteShot(Proj
: LongInt; X
, Y
: LongInt; Loud
: Boolean = True; ID
: Integer = NET_EVERYONE
);
1145 NetOut
.Write(Byte(NET_MSG_SHDEL
));
1147 NetOut
.Write(Byte(Loud
));
1151 g_Net_Host_Send(ID
, True, NET_CHAN_SHOTS
);
1154 procedure MH_SEND_GameStats(ID
: Integer = NET_EVERYONE
);
1156 NetOut
.Write(Byte(NET_MSG_SCORE
));
1157 if gGameSettings
.GameMode
in [GM_TDM
, GM_CTF
] then
1159 NetOut
.Write(gTeamStat
[TEAM_RED
].Score
);
1160 NetOut
.Write(gTeamStat
[TEAM_BLUE
].Score
);
1163 if gGameSettings
.GameMode
= GM_COOP
then
1165 NetOut
.Write(gCoopMonstersKilled
);
1166 NetOut
.Write(gCoopSecretsFound
);
1169 g_Net_Host_Send(ID
, True, NET_CHAN_IMPORTANT
);
1172 procedure MH_SEND_CoopStats(ID
: Integer = NET_EVERYONE
);
1174 NetOut
.Write(Byte(NET_MSG_COOP
));
1175 NetOut
.Write(gTotalMonsters
);
1176 NetOut
.Write(gSecretsCount
);
1177 NetOut
.Write(gCoopTotalMonstersKilled
);
1178 NetOut
.Write(gCoopTotalSecretsFound
);
1179 NetOut
.Write(gCoopTotalMonsters
);
1180 NetOut
.Write(gCoopTotalSecrets
);
1183 procedure MH_SEND_GameEvent(EvType
: Byte; EvNum
: Integer = 0; EvStr
: string = 'N'; ID
: Integer = NET_EVERYONE
);
1185 NetOut
.Write(Byte(NET_MSG_GEVENT
));
1186 NetOut
.Write(EvType
);
1187 NetOut
.Write(EvNum
);
1188 NetOut
.Write(EvStr
);
1189 NetOut
.Write(Byte(gLastMap
));
1190 NetOut
.Write(gTime
);
1191 if (EvType
= NET_EV_MAPSTART
) and isWadPath(EvStr
) then
1193 NetOut
.Write(Byte(1));
1194 NetOut
.Write(gWADHash
);
1196 NetOut
.Write(Byte(0));
1198 g_Net_Host_Send(ID
, True, NET_CHAN_SERVICE
);
1201 procedure MH_SEND_FlagEvent(EvType
: Byte; Flag
: Byte; PID
: Word; Quiet
: Boolean = False; ID
: Integer = NET_EVERYONE
);
1203 NetOut
.Write(Byte(NET_MSG_FLAG
));
1204 NetOut
.Write(EvType
);
1206 NetOut
.Write(Byte(Quiet
));
1208 NetOut
.Write(gFlags
[Flag
].State
);
1209 NetOut
.Write(gFlags
[Flag
].CaptureTime
);
1210 NetOut
.Write(gFlags
[Flag
].Obj
.X
);
1211 NetOut
.Write(gFlags
[Flag
].Obj
.Y
);
1212 NetOut
.Write(gFlags
[Flag
].Obj
.Vel
.X
);
1213 NetOut
.Write(gFlags
[Flag
].Obj
.Vel
.Y
);
1214 NetOut
.Write(Byte(gFlags
[Flag
].Direction
));
1216 g_Net_Host_Send(ID
, True, NET_CHAN_IMPORTANT
);
1219 procedure MH_SEND_FlagPos(Flag
: Byte; ID
: Integer = NET_EVERYONE
);
1221 NetOut
.Write(Byte(NET_MSG_FLAGPOS
));
1223 NetOut
.Write(gFlags
[Flag
].Obj
.X
);
1224 NetOut
.Write(gFlags
[Flag
].Obj
.Y
);
1225 NetOut
.Write(gFlags
[Flag
].Obj
.Vel
.X
);
1226 NetOut
.Write(gFlags
[Flag
].Obj
.Vel
.Y
);
1228 g_Net_Host_Send(ID
, False, NET_CHAN_IMPORTANT
);
1231 procedure MH_SEND_GameSettings(ID
: Integer = NET_EVERYONE
);
1233 NetOut
.Write(Byte(NET_MSG_GSET
));
1234 NetOut
.Write(gGameSettings
.GameMode
);
1235 NetOut
.Write(gGameSettings
.ScoreLimit
);
1236 NetOut
.Write(gGameSettings
.TimeLimit
);
1237 NetOut
.Write(gGameSettings
.MaxLives
);
1238 NetOut
.Write(gGameSettings
.Options
);
1240 g_Net_Host_Send(ID
, True, NET_CHAN_IMPORTANT
);
1245 procedure MH_SEND_PlayerCreate(PID
: Word; ID
: Integer = NET_EVERYONE
);
1249 P
:= g_Player_Get(PID
);
1250 if P
= nil then Exit
;
1252 NetOut
.Write(Byte(NET_MSG_PLR
));
1254 NetOut
.Write(P
.Name
);
1256 NetOut
.Write(P
.FActualModelName
);
1257 NetOut
.Write(P
.FColor
.R
);
1258 NetOut
.Write(P
.FColor
.G
);
1259 NetOut
.Write(P
.FColor
.B
);
1260 NetOut
.Write(P
.Team
);
1262 g_Net_Host_Send(ID
, True, NET_CHAN_IMPORTANT
)
1265 procedure MH_SEND_PlayerPos(Reliable
: Boolean; PID
: Word; ID
: Integer = NET_EVERYONE
);
1270 Pl
:= g_Player_Get(PID
);
1271 if Pl
= nil then Exit
;
1272 if Pl
.FDummy
then Exit
;
1274 NetOut
.Write(Byte(NET_MSG_PLRPOS
));
1275 NetOut
.Write(gTime
);
1282 NetOut
.Write(FPing
);
1283 NetOut
.Write(FLoss
);
1284 if IsKeyPressed(KEY_CHAT
) then
1285 kByte
:= NET_KEY_CHAT
1288 if IsKeyPressed(KEY_LEFT
) then kByte
:= kByte
or NET_KEY_LEFT
;
1289 if IsKeyPressed(KEY_RIGHT
) then kByte
:= kByte
or NET_KEY_RIGHT
;
1290 if IsKeyPressed(KEY_UP
) then kByte
:= kByte
or NET_KEY_UP
;
1291 if IsKeyPressed(KEY_DOWN
) then kByte
:= kByte
or NET_KEY_DOWN
;
1292 if IsKeyPressed(KEY_JUMP
) then kByte
:= kByte
or NET_KEY_JUMP
;
1295 if JustTeleported
then kByte
:= kByte
or NET_KEY_FORCEDIR
;
1297 NetOut
.Write(kByte
);
1298 if Direction
= TDirection
.D_LEFT
then NetOut
.Write(Byte(0)) else NetOut
.Write(Byte(1));
1299 NetOut
.Write(GameX
);
1300 NetOut
.Write(GameY
);
1301 NetOut
.Write(GameVelX
);
1302 NetOut
.Write(GameVelY
);
1303 NetOut
.Write(GameAccelX
);
1304 NetOut
.Write(GameAccelY
);
1307 g_Net_Host_Send(ID
, Reliable
, NET_CHAN_PLAYERPOS
);
1310 procedure MH_SEND_PlayerStats(PID
: Word; ID
: Integer = NET_EVERYONE
);
1315 P
:= g_Player_Get(PID
);
1316 if P
= nil then Exit
;
1318 NetOut
.Write(Byte(NET_MSG_PLRSTA
));
1323 NetOut
.Write(Byte(alive
));
1324 NetOut
.Write(Byte(GodMode
));
1325 NetOut
.Write(Health
);
1326 NetOut
.Write(Armor
);
1328 NetOut
.Write(JetFuel
);
1329 NetOut
.Write(Lives
);
1332 for I
:= WP_FIRST
to WP_LAST
do
1333 NetOut
.Write(Byte(FWeapon
[I
]));
1335 for I
:= A_BULLETS
to A_HIGH
do
1336 NetOut
.Write(FAmmo
[I
]);
1338 for I
:= A_BULLETS
to A_HIGH
do
1339 NetOut
.Write(FMaxAmmo
[I
]);
1341 for I
:= MR_SUIT
to MR_MAX
do
1342 NetOut
.Write(LongWord(FMegaRulez
[I
]));
1344 NetOut
.Write(Byte(R_ITEM_BACKPACK
in FRulez
));
1345 NetOut
.Write(Byte(R_KEY_RED
in FRulez
));
1346 NetOut
.Write(Byte(R_KEY_GREEN
in FRulez
));
1347 NetOut
.Write(Byte(R_KEY_BLUE
in FRulez
));
1348 NetOut
.Write(Byte(R_BERSERK
in FRulez
));
1350 NetOut
.Write(Frags
);
1351 NetOut
.Write(Death
);
1353 NetOut
.Write(CurrWeap
);
1355 NetOut
.Write(Byte(FSpectator
));
1356 NetOut
.Write(Byte(FGhost
));
1357 NetOut
.Write(Byte(FPhysics
));
1358 NetOut
.Write(Byte(FNoRespawn
));
1359 NetOut
.Write(Byte(FJetpack
));
1360 NetOut
.Write(FFireTime
);
1361 NetOut
.Write(Byte(FFlaming
));
1362 NetOut
.Write(FSpawnInvul
);
1365 g_Net_Host_Send(ID
, True, NET_CHAN_PLAYER
);
1368 procedure MH_SEND_PlayerDamage(PID
: Word; Kind
: Byte; Attacker
, Value
: Word; VX
, VY
: Integer; ID
: Integer = NET_EVERYONE
);
1370 NetOut
.Write(Byte(NET_MSG_PLRDMG
));
1373 NetOut
.Write(Attacker
);
1374 NetOut
.Write(Value
);
1378 g_Net_Host_Send(ID
, False, NET_CHAN_PLAYER
);
1381 procedure MH_SEND_PlayerDeath(PID
: Word; KillType
, DeathType
: Byte; Attacker
: Word; ID
: Integer = NET_EVERYONE
);
1383 NetOut
.Write(Byte(NET_MSG_PLRDIE
));
1385 NetOut
.Write(KillType
);
1386 NetOut
.Write(DeathType
);
1387 NetOut
.Write(Attacker
);
1389 g_Net_Host_Send(ID
, True, NET_CHAN_PLAYER
);
1392 procedure MH_SEND_PlayerFire(PID
: Word; Weapon
: Byte; X
, Y
, AX
, AY
: Integer; ShotID
: Integer = -1; ID
: Integer = NET_EVERYONE
);
1394 NetOut
.Write(Byte(NET_MSG_PLRFIRE
));
1396 NetOut
.Write(Weapon
);
1401 NetOut
.Write(ShotID
);
1403 g_Net_Host_Send(ID
, True, NET_CHAN_SHOTS
);
1406 procedure MH_SEND_PlayerDelete(PID
: Word; ID
: Integer = NET_EVERYONE
);
1408 NetOut
.Write(Byte(NET_MSG_PLRDEL
));
1411 g_Net_Host_Send(ID
, True, NET_CHAN_IMPORTANT
);
1414 procedure MH_SEND_PlayerSettings(PID
: Word; Mdl
: string = ''; ID
: Integer = NET_EVERYONE
);
1418 Pl
:= g_Player_Get(PID
);
1419 if Pl
= nil then Exit
;
1421 NetOut
.Write(Byte(NET_MSG_PLRSET
));
1423 NetOut
.Write(Pl
.Name
);
1425 NetOut
.Write(Pl
.Model
.GetName())
1428 NetOut
.Write(Pl
.FColor
.R
);
1429 NetOut
.Write(Pl
.FColor
.G
);
1430 NetOut
.Write(Pl
.FColor
.B
);
1431 NetOut
.Write(Pl
.Team
);
1433 g_Net_Host_Send(ID
, True, NET_CHAN_IMPORTANT
);
1438 procedure MH_SEND_ItemSpawn(Quiet
: Boolean; IID
: Word; ID
: Integer = NET_EVERYONE
);
1443 it
:= g_Items_ByIdx(IID
);
1445 NetOut
.Write(Byte(NET_MSG_ISPAWN
));
1447 NetOut
.Write(Byte(Quiet
));
1449 if it
.dropped
then tt
:= tt
or $80;
1451 NetOut
.Write(Byte(it
.Fall
));
1452 NetOut
.Write(Byte(it
.Respawnable
));
1453 NetOut
.Write(it
.Obj
.X
);
1454 NetOut
.Write(it
.Obj
.Y
);
1455 NetOut
.Write(it
.Obj
.Vel
.X
);
1456 NetOut
.Write(it
.Obj
.Vel
.Y
);
1458 g_Net_Host_Send(ID
, True, NET_CHAN_LARGEDATA
);
1461 procedure MH_SEND_ItemDestroy(Quiet
: Boolean; IID
: Word; ID
: Integer = NET_EVERYONE
);
1463 NetOut
.Write(Byte(NET_MSG_IDEL
));
1465 NetOut
.Write(Byte(Quiet
));
1467 g_Net_Host_Send(ID
, True, NET_CHAN_LARGEDATA
);
1470 procedure MH_SEND_ItemPos(IID
: Word; ID
: Integer = NET_EVERYONE
);
1474 it
:= g_Items_ByIdx(IID
);
1476 NetOut
.Write(Byte(NET_MSG_IPOS
));
1478 NetOut
.Write(it
.Obj
.X
);
1479 NetOut
.Write(it
.Obj
.Y
);
1480 NetOut
.Write(it
.Obj
.Vel
.X
);
1481 NetOut
.Write(it
.Obj
.Vel
.Y
);
1483 g_Net_Host_Send(ID
, False, NET_CHAN_LARGEDATA
);
1488 procedure MH_SEND_PanelTexture(PGUID
: Integer; ID
: Integer = NET_EVERYONE
);
1492 TP
:= g_Map_PanelByGUID(PGUID
);
1493 if (TP
= nil) then exit
;
1495 NetOut
.Write(Byte(NET_MSG_PTEX
));
1496 NetOut
.Write(LongWord(PGUID
));
1497 NetOut
.Write(TP
.FCurTexture
);
1498 NetOut
.Write(TP
.AnimTime
);
1499 NetOut
.Write(TP
.LastAnimLoop
);
1501 g_Net_Host_Send(ID
, True, NET_CHAN_LARGEDATA
);
1504 procedure MH_SEND_PanelState(PGUID
: Integer; ID
: Integer = NET_EVERYONE
);
1509 TP
:= g_Map_PanelByGUID(PGUID
);
1510 if (TP
= nil) then exit
;
1512 NetOut
.Write(Byte(NET_MSG_PSTATE
));
1513 NetOut
.Write(LongWord(PGUID
));
1514 NetOut
.Write(Byte(TP
.Enabled
));
1515 NetOut
.Write(TP
.LiftType
);
1518 NetOut
.Write(Word(TP
.Width
));
1519 NetOut
.Write(Word(TP
.Height
));
1521 NetOut
.Write(LongInt(TP
.movingSpeedX
));
1522 NetOut
.Write(LongInt(TP
.movingSpeedY
));
1523 NetOut
.Write(LongInt(TP
.movingStartX
));
1524 NetOut
.Write(LongInt(TP
.movingStartY
));
1525 NetOut
.Write(LongInt(TP
.movingEndX
));
1526 NetOut
.Write(LongInt(TP
.movingEndY
));
1527 NetOut
.Write(LongInt(TP
.sizeSpeedX
));
1528 NetOut
.Write(LongInt(TP
.sizeSpeedY
));
1529 NetOut
.Write(LongInt(TP
.sizeEndX
));
1530 NetOut
.Write(LongInt(TP
.sizeEndY
));
1531 if TP
.movingActive
then mpflags
:= mpflags
or 1;
1532 if TP
.moveOnce
then mpflags
:= mpflags
or 2;
1533 NetOut
.Write(Byte(mpflags
));
1535 g_Net_Host_Send(ID
, True, NET_CHAN_LARGEDATA
);
1540 procedure MH_SEND_TriggerSound(var T
: TTrigger
; ID
: Integer = NET_EVERYONE
);
1542 if gTriggers
= nil then Exit
;
1543 if T
.Sound
= nil then Exit
;
1545 NetOut
.Write(Byte(NET_MSG_TSOUND
));
1546 NetOut
.Write(T
.ClientID
);
1547 NetOut
.Write(Byte(T
.Sound
.IsPlaying
));
1548 NetOut
.Write(LongWord(T
.Sound
.GetPosition
));
1549 NetOut
.Write(T
.SoundPlayCount
);
1551 g_Net_Host_Send(ID
, True);
1554 procedure MH_SEND_TriggerMusic(ID
: Integer = NET_EVERYONE
);
1556 NetOut
.Write(Byte(NET_MSG_TMUSIC
));
1557 NetOut
.Write(gMusic
.Name
);
1558 NetOut
.Write(Byte(gMusic
.IsPlaying
));
1559 NetOut
.Write(LongWord(gMusic
.GetPosition
));
1560 NetOut
.Write(Byte(gMusic
.SpecPause
or gMusic
.IsPaused
));
1562 g_Net_Host_Send(ID
, True);
1567 procedure MH_SEND_MonsterSpawn(UID
: Word; ID
: Integer = NET_EVERYONE
);
1571 M
:= g_Monsters_ByUID(UID
);
1577 NetOut
.Write(Byte(NET_MSG_MSPAWN
));
1579 NetOut
.Write(MonsterType
);
1580 NetOut
.Write(MonsterState
);
1581 NetOut
.Write(MonsterAnim
);
1582 NetOut
.Write(MonsterTargetUID
);
1583 NetOut
.Write(MonsterTargetTime
);
1584 NetOut
.Write(MonsterBehaviour
);
1585 NetOut
.Write(MonsterSleep
);
1586 NetOut
.Write(MonsterHealth
);
1587 NetOut
.Write(MonsterAmmo
);
1588 NetOut
.Write(GameX
);
1589 NetOut
.Write(GameY
);
1590 NetOut
.Write(GameVelX
);
1591 NetOut
.Write(GameVelY
);
1592 NetOut
.Write(Byte(GameDirection
));
1595 g_Net_Host_Send(ID
, True, NET_CHAN_LARGEDATA
);
1598 procedure MH_SEND_MonsterPos(UID
: Word; ID
: Integer = NET_EVERYONE
);
1602 M
:= g_Monsters_ByUID(UID
);
1603 if M
= nil then Exit
;
1605 NetOut
.Write(Byte(NET_MSG_MPOS
));
1610 NetOut
.Write(GameX
);
1611 NetOut
.Write(GameY
);
1612 NetOut
.Write(GameVelX
);
1613 NetOut
.Write(GameVelY
);
1614 NetOut
.Write(Byte(GameDirection
));
1617 g_Net_Host_Send(ID
, False, NET_CHAN_MONSTERPOS
);
1620 procedure MH_SEND_MonsterState(UID
: Word; ForcedAnim
: Byte = 255; ID
: Integer = NET_EVERYONE
);
1624 M
:= g_Monsters_ByUID(UID
);
1625 if M
= nil then Exit
;
1627 NetOut
.Write(Byte(NET_MSG_MSTATE
));
1632 NetOut
.Write(MonsterState
);
1633 NetOut
.Write(ForcedAnim
);
1634 NetOut
.Write(MonsterTargetUID
);
1635 NetOut
.Write(MonsterTargetTime
);
1636 NetOut
.Write(MonsterSleep
);
1637 NetOut
.Write(MonsterHealth
);
1638 NetOut
.Write(MonsterAmmo
);
1639 NetOut
.Write(MonsterPain
);
1640 NetOut
.Write(Byte(AnimIsReverse
));
1641 NetOut
.Write(FFireTime
);
1644 g_Net_Host_Send(ID
, True, NET_CHAN_MONSTER
);
1647 procedure MH_SEND_MonsterShot(UID
: Word; X
, Y
, VX
, VY
: Integer; ID
: Integer = NET_EVERYONE
);
1649 NetOut
.Write(Byte(NET_MSG_MSHOT
));
1656 g_Net_Host_Send(ID
, True, NET_CHAN_MONSTER
);
1659 procedure MH_SEND_MonsterDelete(UID
: Word; ID
: Integer = NET_EVERYONE
);
1663 M
:= g_Monsters_ByUID(UID
);
1664 if M
= nil then Exit
;
1666 NetOut
.Write(Byte(NET_MSG_MDEL
));
1669 g_Net_Host_Send(ID
, True, NET_CHAN_LARGEDATA
);
1674 procedure MH_SEND_TimeSync(Time
: LongWord; ID
: Integer = NET_EVERYONE
);
1676 NetOut
.Write(Byte(NET_MSG_TIME_SYNC
));
1679 g_Net_Host_Send(ID
, False, NET_CHAN_SERVICE
);
1682 procedure MH_SEND_VoteEvent(EvType
: Byte;
1683 StrArg1
: string = 'a'; StrArg2
: string = 'b';
1684 IntArg1
: SmallInt = 0; IntArg2
: SmallInt = 0;
1685 ID
: Integer = NET_EVERYONE
);
1687 NetOut
.Write(Byte(NET_MSG_VOTE_EVENT
));
1688 NetOut
.Write(EvType
);
1689 NetOut
.Write(IntArg1
);
1690 NetOut
.Write(IntArg2
);
1691 NetOut
.Write(StrArg1
);
1692 NetOut
.Write(StrArg2
);
1694 g_Net_Host_Send(ID
, True, NET_CHAN_IMPORTANT
);
1697 // CLIENT MESSAGES //
1701 procedure MC_RECV_Chat(var M
: TMsg
);
1706 Txt
:= M
.ReadString();
1707 Mode
:= M
.ReadByte();
1709 if Mode
<> NET_CHAT_SYSTEM
then
1711 if NetDeafLevel
= 0 then
1713 if Mode
= NET_CHAT_PLAYER
then
1715 g_Console_Add(Txt
, True);
1716 e_WriteLog('[Chat] ' + b_Text_Unformat(Txt
), TMsgType
.Notify
);
1717 g_Game_ChatSound(b_Text_Unformat(Txt
));
1719 if (Mode
= NET_CHAT_TEAM
) and (gPlayer1
<> nil) then
1721 if gPlayer1
.Team
= TEAM_RED
then
1722 g_Console_Add(b_Text_Format('\r[Team] ') + Txt
, True);
1723 if gPlayer1
.Team
= TEAM_BLUE
then
1724 g_Console_Add(b_Text_Format('\b[Team] ') + Txt
, True);
1725 e_WriteLog('[Team Chat] ' + b_Text_Unformat(Txt
), TMsgType
.Notify
);
1726 g_Game_ChatSound(b_Text_Unformat(Txt
));
1729 end else if (NetDeafLevel
< 2) then
1730 g_Console_Add(Txt
, True);
1733 procedure MC_RECV_Effect(var M
: TMsg
);
1739 if not gGameOn
then Exit
;
1740 Kind
:= M
.ReadByte();
1741 X
:= M
.ReadLongInt();
1742 Y
:= M
.ReadLongInt();
1743 Ang
:= M
.ReadSmallInt();
1749 g_GFX_Spark(X
, Y
, 2 + Random(2), Ang
, 0, 0);
1755 g_GFX_QueueEffect(R_GFX_TELEPORT_FAST
, X
, Y
);
1758 g_Sound_PlayExAt('SOUND_GAME_TELEPORT', X
, Y
);
1763 g_GFX_QueueEffect(R_GFX_EXPLODE_ROCKET
, X
- 64, Y
- 64);
1766 g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEROCKET', X
, Y
);
1771 g_GFX_QueueEffect(R_GFX_EXPLODE_BFG
, X
- 64, Y
- 64);
1774 g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEBFG', X
, Y
);
1779 g_GFX_QueueEffect(R_GFX_BFG_HIT
, X
- 32, Y
- 32);
1785 g_GFX_QueueEffect(R_GFX_FIRE
, X
, Y
);
1788 g_Sound_PlayExAt('SOUND_FIRE', X
, Y
);
1793 g_GFX_QueueEffect(R_GFX_ITEM_RESPAWN
, X
, Y
);
1796 g_Sound_PlayExAt('SOUND_ITEM_RESPAWNITEM', X
, Y
);
1800 {$IFDEF ENABLE_SHELLS}
1801 g_Shells_Create(X
, Y
, 0, -2, SHELL_BULLET
);
1806 {$IFDEF ENABLE_SHELLS}
1807 g_Shells_Create(X
, Y
, 0, -2, SHELL_SHELL
);
1812 {$IFDEF ENABLE_SHELLS}
1813 g_Shells_Create(X
, Y
, 0, -2, SHELL_SHELL
);
1814 g_Shells_Create(X
, Y
, 0, -2, SHELL_SHELL
);
1820 procedure MC_RECV_Sound(var M
: TMsg
);
1826 Name
:= M
.ReadString();
1827 Pos
:= M
.ReadByte() <> 0;
1830 X
:= M
.ReadLongInt();
1831 Y
:= M
.ReadLongInt();
1832 g_Sound_PlayExAt(Name
, X
, Y
);
1835 g_Sound_PlayEx(Name
);
1838 procedure MC_RECV_CreateShot(var M
: TMsg
);
1840 I
, X
, Y
, XV
, YV
: Integer;
1842 Target
, Spawner
: Word;
1845 I
:= M
.ReadLongInt();
1846 ShType
:= M
.ReadByte();
1847 Target
:= M
.ReadWord();
1848 Spawner
:= M
.ReadWord();
1849 Timeout
:= M
.ReadLongWord();
1850 X
:= M
.ReadLongInt();
1851 Y
:= M
.ReadLongInt();
1852 XV
:= M
.ReadLongInt();
1853 YV
:= M
.ReadLongInt();
1855 I
:= g_Weapon_CreateShot(I
, ShType
, Spawner
, Target
, X
, Y
, XV
, YV
);
1856 if (Shots
<> nil) and (I
<= High(Shots
)) then
1858 Shots
[I
].Timeout
:= Timeout
;
1859 //Shots[I].Target := Target; // TODO: find a use for Target later
1863 procedure MC_RECV_UpdateShot(var M
: TMsg
);
1865 I
, TX
, TY
, TXV
, TYV
: Integer;
1867 I
:= M
.ReadLongInt();
1868 TX
:= M
.ReadLongInt();
1869 TY
:= M
.ReadLongInt();
1870 TXV
:= M
.ReadLongInt();
1871 TYV
:= M
.ReadLongInt();
1873 if (Shots
<> nil) and (I
<= High(Shots
)) then
1883 procedure MC_RECV_DeleteShot(var M
: TMsg
);
1888 if not gGameOn
then Exit
;
1889 I
:= M
.ReadLongInt();
1890 L
:= (M
.ReadByte() <> 0);
1891 X
:= M
.ReadLongInt();
1892 Y
:= M
.ReadLongInt();
1894 g_Weapon_DestroyShot(I
, X
, Y
, L
);
1897 procedure MC_RECV_GameStats(var M
: TMsg
);
1899 if gGameSettings
.GameMode
in [GM_TDM
, GM_CTF
] then
1901 gTeamStat
[TEAM_RED
].Score
:= M
.ReadSmallInt();
1902 gTeamStat
[TEAM_BLUE
].Score
:= M
.ReadSmallInt();
1905 if gGameSettings
.GameMode
= GM_COOP
then
1907 gCoopMonstersKilled
:= M
.ReadWord();
1908 gCoopSecretsFound
:= M
.ReadWord();
1912 procedure MC_RECV_CoopStats(var M
: TMsg
);
1914 gTotalMonsters
:= M
.ReadLongInt();
1915 gSecretsCount
:= M
.ReadLongInt();
1916 gCoopTotalMonstersKilled
:= M
.ReadWord();
1917 gCoopTotalSecretsFound
:= M
.ReadWord();
1918 gCoopTotalMonsters
:= M
.ReadWord();
1919 gCoopTotalSecrets
:= M
.ReadWord();
1922 procedure MC_RECV_GameEvent(var M
: TMsg
);
1931 i1
, i2
: TStrings_Locale
;
1934 goodCmd
: Boolean = true;
1936 FillChar(EvHash
, Sizeof(EvHash
), 0);
1937 EvType
:= M
.ReadByte();
1938 EvNum
:= M
.ReadLongInt();
1939 EvStr
:= M
.ReadString();
1940 gLastMap
:= M
.ReadByte() <> 0;
1941 if gLastMap
and (gGameSettings
.GameMode
= GM_COOP
) then gStatsOff
:= True;
1942 gStatsPressed
:= True;
1943 EvTime
:= M
.ReadLongWord();
1944 BHash
:= M
.ReadByte() <> 0;
1946 EvHash
:= M
.ReadMD5();
1950 if (g_Res_received_map_start
<> 0) then
1952 if (g_Res_received_map_start
< 0) then exit
;
1955 NET_EV_MAPSTART
: goodCmd
:= true;
1956 NET_EV_MAPEND
: goodCmd
:= true;
1957 NET_EV_PLAYER_KICK
: goodCmd
:= true;
1958 NET_EV_PLAYER_BAN
: goodCmd
:= true;
1959 NET_EV_LMS_WARMUP
: goodCmd
:= true;
1961 if not goodCmd
then exit
;
1967 if (g_Res_received_map_start
<> 0) then
1969 g_Res_received_map_start
:= -1;
1974 g_Game_ClearLoading();
1975 g_Game_StopAllSounds(True);
1977 gSwitchGameMode
:= Byte(EvNum
);
1978 gGameSettings
.GameMode
:= gSwitchGameMode
;
1981 if not g_Game_StartMap(false{asMegawad}, EvStr
, True) then
1983 if not isWadPath(EvStr
) then
1984 g_FatalError(Format(_lc
[I_GAME_ERROR_MAP_LOAD
], [gGameSettings
.WAD
+ ':\' + EvStr
]))
1986 g_FatalError(Format(_lc
[I_GAME_ERROR_MAP_LOAD
], [EvStr
]));
1990 MC_SEND_FullStateRequest
;
1996 gLMSRespawn
:= LMS_RESPAWN_NONE
;
1997 gLMSRespawnTime
:= 0;
1998 if (g_Res_received_map_start
<> 0) then
2000 g_Res_received_map_start
:= -1;
2004 gMissionFailed
:= EvNum
<> 0;
2005 gExit
:= EXIT_ENDLEVELCUSTOM
;
2013 g_Console_Add(_lc
[I_NET_RCON_NOAUTH
], True);
2015 g_Console_Add(_lc
[I_NET_RCON_PWD_VALID
], True);
2017 g_Console_Add(_lc
[I_NET_RCON_PWD_INVALID
], True);
2023 if NetDeafLevel
< 2 then
2025 if EvNum
= TEAM_RED
then
2026 g_Console_Add(Format(_lc
[I_PLAYER_CHTEAM_RED
], [EvStr
]), True);
2027 if EvNum
= TEAM_BLUE
then
2028 g_Console_Add(Format(_lc
[I_PLAYER_CHTEAM_BLUE
], [EvStr
]), True);
2034 g_Console_Add(Format(_lc
[I_PLAYER_KICK
], [EvStr
]), True);
2035 if (g_Res_received_map_start
<> 0) then g_Res_received_map_start
:= -1;
2040 g_Console_Add(Format(_lc
[I_PLAYER_BAN
], [EvStr
]), True);
2041 if (g_Res_received_map_start
<> 0) then g_Res_received_map_start
:= -1;
2048 gLMSRespawn
:= LMS_RESPAWN_WARMUP
;
2049 gLMSRespawnTime
:= gTime
+ EvNum
;
2050 g_Console_Add(Format(_lc
[I_MSG_WARMUP_START
], [EvNum
div 1000]), True);
2052 else if gPlayer1
= nil then
2054 g_Console_Add(_lc
[I_PLAYER_SPECT4
], True);
2058 NET_EV_LMS_SURVIVOR
:
2059 g_Console_Add('*** ' + _lc
[I_MESSAGE_LMS_SURVIVOR
] + ' ***', True);
2062 if NetDeafLevel
< 2 then g_Game_Message(AnsiUpperCase(EvStr
), Word(EvNum
));
2066 pl
:= g_Player_Get(EvNum
and $FFFF);
2071 cnt
:= (EvNum
shr 16) and $FF;
2072 if Pos('w', EvStr
) = 0 then
2075 if Pos('t', EvStr
) = 0 then
2078 if Pos('-', EvStr
) = 0 then
2080 if Pos('e', EvStr
) = 0 then
2081 i1
:= I_PLAYER_SCORE_ADD_OWN
2083 i1
:= I_PLAYER_SCORE_ADD_ENEMY
;
2086 if Pos('e', EvStr
) = 0 then
2087 i1
:= I_PLAYER_SCORE_SUB_OWN
2089 i1
:= I_PLAYER_SCORE_SUB_ENEMY
;
2092 if Pos('r', EvStr
) > 0 then
2093 i2
:= I_PLAYER_SCORE_TO_RED
2095 i2
:= I_PLAYER_SCORE_TO_BLUE
;
2096 g_Console_Add(Format(_lc
[i1
], [pln
, cnt
, _lc
[i2
]]), True);
2100 if Pos('-', EvStr
) = 0 then
2101 i1
:= I_PLAYER_SCORE_ADD_TEAM
2103 i1
:= I_PLAYER_SCORE_SUB_TEAM
;
2105 if Pos('r', EvStr
) > 0 then
2106 i2
:= I_PLAYER_SCORE_RED
2108 i2
:= I_PLAYER_SCORE_BLUE
;
2109 g_Console_Add(Format(_lc
[i1
], [_lc
[i2
], cnt
]), True);
2114 if Pos('e', EvStr
) = 0 then
2115 i1
:= I_PLAYER_SCORE_WIN_OWN
2117 i1
:= I_PLAYER_SCORE_WIN_ENEMY
;
2119 if Pos('r', EvStr
) > 0 then
2120 i2
:= I_PLAYER_SCORE_TO_RED
2122 i2
:= I_PLAYER_SCORE_TO_BLUE
;
2123 g_Console_Add(Format(_lc
[i1
], [pln
, _lc
[i2
]]), True);
2129 if EvNum
= TEAM_RED
then
2130 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_ADD
], [AnsiUpperCase(_lc
[I_GAME_TEAM_RED
])]), 108);
2131 if EvNum
= TEAM_BLUE
then
2132 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_ADD
], [AnsiUpperCase(_lc
[I_GAME_TEAM_BLUE
])]), 108);
2133 if EvNum
= -TEAM_RED
then
2134 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_SUB
], [AnsiUpperCase(_lc
[I_GAME_TEAM_RED
])]), 108);
2135 if EvNum
= -TEAM_BLUE
then
2136 g_Game_Message(Format(_lc
[I_MESSAGE_SCORE_SUB
], [AnsiUpperCase(_lc
[I_GAME_TEAM_BLUE
])]), 108);
2141 {$IFDEF ENABLE_GIBS}
2144 {$IFDEF ENABLE_SHELLS}
2147 {$IFDEF ENABLE_CORPSES}
2148 g_Corpses_RemoveAll
;
2150 gLMSRespawn
:= LMS_RESPAWN_NONE
;
2151 g_Game_Message(_lc
[I_MESSAGE_LMS_START
], 144);
2155 g_Game_Message(Format(_lc
[I_MESSAGE_LMS_WIN
], [AnsiUpperCase(EvStr
)]), 144);
2159 if EvNum
= TEAM_RED
then
2160 g_Game_Message(Format(_lc
[I_MESSAGE_TLMS_WIN
], [AnsiUpperCase(_lc
[I_GAME_TEAM_RED
])]), 144);
2161 if EvNum
= TEAM_BLUE
then
2162 g_Game_Message(Format(_lc
[I_MESSAGE_TLMS_WIN
], [AnsiUpperCase(_lc
[I_GAME_TEAM_BLUE
])]), 144);
2166 g_Game_Message(_lc
[I_MESSAGE_LMS_LOSE
], 144);
2169 g_Game_Message(_lc
[I_GAME_WIN_DRAW
], 144);
2172 g_Console_Add(_lc
[I_PLAYER_SPECT4
], True);
2175 g_Game_Announce_KillCombo(EvNum
);
2177 NET_EV_PLAYER_TOUCH
:
2179 pl
:= g_Player_Get(EvNum
);
2186 pl
:= g_Player_Get(EvNum
);
2189 g_Console_Add(Format(_lc
[I_PLAYER_SECRET
], [pl
.Name
]), True);
2190 g_Sound_PlayEx('SOUND_GAME_SECRET');
2196 pl
:= g_Player_Get(EvNum
);
2197 if pl
<> nil then pl
.FReady
:= (EvStr
= 'Y');
2202 procedure MC_RECV_FlagPos(var M
: TMsg
);
2207 if Fl
= FLAG_NONE
then Exit
;
2208 gFlags
[Fl
].Obj
.X
:= M
.ReadLongInt();
2209 gFlags
[Fl
].Obj
.Y
:= M
.ReadLongInt();
2210 gFlags
[Fl
].Obj
.Vel
.X
:= M
.ReadLongInt();
2211 gFlags
[Fl
].Obj
.Vel
.Y
:= M
.ReadLongInt();
2214 procedure MC_RECV_FlagEvent(var M
: TMsg
);
2223 EvType
:= M
.ReadByte();
2226 if Fl
= FLAG_NONE
then Exit
;
2228 Quiet
:= (M
.ReadByte() <> 0);
2229 PID
:= M
.ReadWord();
2231 gFlags
[Fl
].State
:= M
.ReadByte();
2232 gFlags
[Fl
].CaptureTime
:= M
.ReadLongWord();
2233 gFlags
[Fl
].Obj
.X
:= M
.ReadLongInt();
2234 gFlags
[Fl
].Obj
.Y
:= M
.ReadLongInt();
2235 gFlags
[Fl
].Obj
.Vel
.X
:= M
.ReadLongInt();
2236 gFlags
[Fl
].Obj
.Vel
.Y
:= M
.ReadLongInt();
2237 gFlags
[Fl
].Direction
:= TDirection(M
.ReadByte());
2239 Pl
:= g_Player_Get(PID
);
2241 (EvType
<> FLAG_STATE_NORMAL
) and
2242 (EvType
<> FLAG_STATE_DROPPED
) and
2243 (EvType
<> FLAG_STATE_RETURNED
) then
2249 if Quiet
or (Pl
= nil) then Exit
;
2251 if Fl
= FLAG_RED
then
2252 s
:= _lc
[I_PLAYER_FLAG_RED
]
2254 s
:= _lc
[I_PLAYER_FLAG_BLUE
];
2256 g_Game_Message(Format(_lc
[I_MESSAGE_FLAG_RETURN
], [AnsiUpperCase(s
)]), 144);
2258 if ((Pl
= gPlayer1
) or (Pl
= gPlayer2
)
2259 or ((gPlayer1
<> nil) and (gPlayer1
.Team
= Pl
.Team
))
2260 or ((gPlayer2
<> nil) and (gPlayer2
.Team
= Pl
.Team
))) then
2265 if not sound_ret_flag
[a
].IsPlaying() then
2266 sound_ret_flag
[a
].Play();
2269 FLAG_STATE_CAPTURED
:
2271 if (Pl
<> nil) then Pl
.SetFlag(Fl
);
2275 if Fl
= FLAG_RED
then
2276 s
:= _lc
[I_PLAYER_FLAG_RED
]
2278 s
:= _lc
[I_PLAYER_FLAG_BLUE
];
2280 g_Console_Add(Format(_lc
[I_PLAYER_FLAG_GET
], [Pl
.Name
, s
]), True);
2281 g_Game_Message(Format(_lc
[I_MESSAGE_FLAG_GET
], [AnsiUpperCase(s
)]), 144);
2283 if ((Pl
= gPlayer1
) or (Pl
= gPlayer2
)
2284 or ((gPlayer1
<> nil) and (gPlayer1
.Team
= Pl
.Team
))
2285 or ((gPlayer2
<> nil) and (gPlayer2
.Team
= Pl
.Team
))) then
2290 if not sound_get_flag
[a
].IsPlaying() then
2291 sound_get_flag
[a
].Play();
2296 if (Pl
<> nil) then Pl
.SetFlag(FLAG_NONE
);
2298 if Quiet
or (Pl
= nil) then Exit
;
2300 if Fl
= FLAG_RED
then
2301 s
:= _lc
[I_PLAYER_FLAG_RED
]
2303 s
:= _lc
[I_PLAYER_FLAG_BLUE
];
2305 g_Console_Add(Format(_lc
[I_PLAYER_FLAG_DROP
], [Pl
.Name
, s
]), True);
2306 g_Game_Message(Format(_lc
[I_MESSAGE_FLAG_DROP
], [AnsiUpperCase(s
)]), 144);
2308 if ((Pl
= gPlayer1
) or (Pl
= gPlayer2
)
2309 or ((gPlayer1
<> nil) and (gPlayer1
.Team
= Pl
.Team
))
2310 or ((gPlayer2
<> nil) and (gPlayer2
.Team
= Pl
.Team
))) then
2315 if not sound_lost_flag
[a
].IsPlaying() then
2316 sound_lost_flag
[a
].Play();
2321 g_Map_ResetFlag(FLAG_RED
);
2322 g_Map_ResetFlag(FLAG_BLUE
);
2323 if Quiet
or (Pl
= nil) then Exit
;
2324 Pl
.SetFlag(FLAG_NONE
);
2326 if Fl
= FLAG_RED
then
2327 s
:= _lc
[I_PLAYER_FLAG_RED
]
2329 s
:= _lc
[I_PLAYER_FLAG_BLUE
];
2331 ts
:= Format('%.4d', [gFlags
[Fl
].CaptureTime
]);
2332 Insert('.', ts
, Length(ts
) + 1 - 3);
2333 g_Console_Add(Format(_lc
[I_PLAYER_FLAG_CAPTURE
], [Pl
.Name
, s
, ts
]), True);
2334 g_Game_Message(Format(_lc
[I_MESSAGE_FLAG_CAPTURE
], [AnsiUpperCase(s
)]), 144);
2336 if ((Pl
= gPlayer1
) or (Pl
= gPlayer2
)
2337 or ((gPlayer1
<> nil) and (gPlayer1
.Team
= Pl
.Team
))
2338 or ((gPlayer2
<> nil) and (gPlayer2
.Team
= Pl
.Team
))) then
2343 if not sound_cap_flag
[a
].IsPlaying() then
2344 sound_cap_flag
[a
].Play();
2347 FLAG_STATE_RETURNED
:
2349 g_Map_ResetFlag(Fl
);
2352 if Fl
= FLAG_RED
then
2353 s
:= _lc
[I_PLAYER_FLAG_RED
]
2355 s
:= _lc
[I_PLAYER_FLAG_BLUE
];
2357 g_Game_Message(Format(_lc
[I_MESSAGE_FLAG_RETURN
], [AnsiUpperCase(s
)]), 144);
2359 if ((Pl
= gPlayer1
) or (Pl
= gPlayer2
)
2360 or ((gPlayer1
<> nil) and (gPlayer1
.Team
= Pl
.Team
))
2361 or ((gPlayer2
<> nil) and (gPlayer2
.Team
= Pl
.Team
))) then
2366 if not sound_ret_flag
[a
].IsPlaying() then
2367 sound_ret_flag
[a
].Play();
2372 procedure MC_RECV_GameSettings(var M
: TMsg
);
2374 gGameSettings
.GameMode
:= M
.ReadByte();
2375 gGameSettings
.ScoreLimit
:= M
.ReadWord();
2376 gGameSettings
.TimeLimit
:= M
.ReadWord();
2377 gGameSettings
.MaxLives
:= M
.ReadByte();
2378 gGameSettings
.Options
:= M
.ReadLongWord();
2383 function MC_RECV_PlayerCreate(var M
: TMsg
): Word;
2386 PName
, Model
: string;
2391 PID
:= M
.ReadWord();
2392 Pl
:= g_Player_Get(PID
);
2394 PName
:= M
.ReadString();
2395 Model
:= M
.ReadString();
2396 Color
.R
:= M
.ReadByte();
2397 Color
.G
:= M
.ReadByte();
2398 Color
.B
:= M
.ReadByte();
2402 if (PID
<> NetPlrUID1
) and (PID
<> NetPlrUID2
) then
2404 if (Pl
<> nil) then Exit
;
2405 if (g_Force_Model_Get() <> 0) then
2406 Model
:= g_Forced_Model_GetName();
2407 DID
:= g_Player_Create(Model
, Color
, T
, False);
2408 with g_Player_Get(DID
) do
2417 if (PID
= NetPlrUID1
) and (gPlayer1
<> nil) then begin
2418 gPlayer1
.UID
:= PID
;
2419 gPlayer1
.Model
.SetColor(Color
.R
, Color
.G
, Color
.B
);
2420 gPlayer1
.ChangeTeam(T
);
2422 if (PID
= NetPlrUID2
) and (gPlayer2
<> nil) then begin
2423 gPlayer2
.UID
:= PID
;
2424 gPlayer2
.Model
.SetColor(Color
.R
, Color
.G
, Color
.B
);
2425 gPlayer2
.ChangeTeam(T
);
2429 if NetDeafLevel
< 3 then
2430 g_Console_Add(Format(_lc
[I_PLAYER_JOIN
], [PName
]), True);
2431 e_WriteLog('NET: Player ' + PName
+ ' [' + IntToStr(PID
) + '] added.', TMsgType
.Notify
);
2435 function MC_RECV_PlayerPos(var M
: TMsg
): Word;
2442 TmpX
, TmpY
: Integer;
2446 GT
:= M
.ReadLongWord();
2447 if GT
< gTime
- NET_MAX_DIFFTIME
then
2454 PID
:= M
.ReadWord();
2455 Pl
:= g_Player_Get(PID
);
2457 if Pl
= nil then Exit
;
2463 FPing
:= M
.ReadWord();
2464 FLoss
:= M
.ReadByte();
2465 kByte
:= M
.ReadWord();
2466 Dir
:= M
.ReadByte();
2468 TmpX
:= M
.ReadLongInt();
2469 TmpY
:= M
.ReadLongInt();
2473 if LongBool(kByte
and NET_KEY_CHAT
) then
2474 PressKey(KEY_CHAT
, 10000)
2477 if LongBool(kByte
and NET_KEY_LEFT
) then PressKey(KEY_LEFT
, 10000);
2478 if LongBool(kByte
and NET_KEY_RIGHT
) then PressKey(KEY_RIGHT
, 10000);
2479 if LongBool(kByte
and NET_KEY_UP
) then PressKey(KEY_UP
, 10000);
2480 if LongBool(kByte
and NET_KEY_DOWN
) then PressKey(KEY_DOWN
, 10000);
2481 if LongBool(kByte
and NET_KEY_JUMP
) then PressKey(KEY_JUMP
, 10000);
2484 JustTeleported
:= LongBool(kByte
and NET_KEY_FORCEDIR
);
2486 if ((Pl
<> gPlayer1
) and (Pl
<> gPlayer2
)) or JustTeleported
then
2487 SetDirection(TDirection(Dir
));
2489 GameVelX
:= M
.ReadLongInt();
2490 GameVelY
:= M
.ReadLongInt();
2491 GameAccelX
:= M
.ReadLongInt();
2492 GameAccelY
:= M
.ReadLongInt();
2493 SetLerp(TmpX
, TmpY
);
2494 if NetForcePlayerUpdate
then Update();
2498 function MC_RECV_PlayerStats(var M
: TMsg
): Word;
2502 I
, OldFire
: Integer;
2503 OldJet
, Flam
: Boolean;
2506 PID
:= M
.ReadWord();
2507 Pl
:= g_Player_Get(PID
);
2514 alive
:= (M
.ReadByte() <> 0);
2515 GodMode
:= (M
.ReadByte() <> 0);
2516 Health
:= M
.ReadLongInt();
2517 Armor
:= M
.ReadLongInt();
2518 Air
:= M
.ReadLongInt();
2519 JetFuel
:= M
.ReadLongInt();
2520 Lives
:= M
.ReadByte();
2521 NewTeam
:= M
.ReadByte();
2523 for I
:= WP_FIRST
to WP_LAST
do
2524 FWeapon
[I
] := (M
.ReadByte() <> 0);
2526 for I
:= A_BULLETS
to A_HIGH
do
2527 FAmmo
[I
] := M
.ReadWord();
2529 for I
:= A_BULLETS
to A_HIGH
do
2530 FMaxAmmo
[I
] := M
.ReadWord();
2532 for I
:= MR_SUIT
to MR_MAX
do
2533 FMegaRulez
[I
] := M
.ReadLongWord();
2536 if (M
.ReadByte() <> 0) then
2537 FRulez
:= FRulez
+ [R_ITEM_BACKPACK
];
2538 if (M
.ReadByte() <> 0) then
2539 FRulez
:= FRulez
+ [R_KEY_RED
];
2540 if (M
.ReadByte() <> 0) then
2541 FRulez
:= FRulez
+ [R_KEY_GREEN
];
2542 if (M
.ReadByte() <> 0) then
2543 FRulez
:= FRulez
+ [R_KEY_BLUE
];
2544 if (M
.ReadByte() <> 0) then
2545 FRulez
:= FRulez
+ [R_BERSERK
];
2547 Frags
:= M
.ReadLongInt();
2548 Death
:= M
.ReadLongInt();
2550 SetWeapon(M
.ReadByte());
2552 FSpectator
:= M
.ReadByte() <> 0;
2555 if UID
= NetPlrUID1
then
2557 gSpectLatchPID1
:= UID
;
2560 if UID
= NetPlrUID2
then
2562 gSpectLatchPID2
:= UID
;
2568 if (gPlayer1
= nil) and (gSpectLatchPID1
> 0) and (UID
= gSpectLatchPID1
) then
2571 gSpectLatchPID1
:= 0;
2573 if (gPlayer2
= nil) and (gSpectLatchPID2
> 0) and (UID
= gSpectLatchPID2
) then
2576 gSpectLatchPID2
:= 0;
2579 FGhost
:= M
.ReadByte() <> 0;
2580 FPhysics
:= M
.ReadByte() <> 0;
2581 FNoRespawn
:= M
.ReadByte() <> 0;
2583 FJetpack
:= M
.ReadByte() <> 0;
2584 OldFire
:= FFireTime
;
2585 FFireTime
:= M
.ReadLongInt();
2586 if (OldFire
<= 0) and (FFireTime
> 0) then
2587 g_Sound_PlayExAt('SOUND_IGNITE', Obj
.X
, Obj
.Y
);
2588 Flam
:= M
.ReadByte() <> 0;
2589 FSpawnInvul
:= M
.ReadLongInt();
2590 if OldJet
and not FJetpack
then
2592 else if not OldJet
and FJetpack
then
2594 if FFlaming
and not Flam
then
2596 if Team
<> NewTeam
then
2597 Pl
.ChangeTeam(NewTeam
);
2603 function MC_RECV_PlayerDamage(var M
: TMsg
): Word;
2608 Attacker
, Value
: Word;
2612 if not gGameOn
then Exit
;
2613 PID
:= M
.ReadWord();
2614 Pl
:= g_Player_Get(PID
);
2615 if Pl
= nil then Exit
;
2617 Kind
:= M
.ReadByte();
2618 Attacker
:= M
.ReadWord();
2619 Value
:= M
.ReadWord();
2624 Damage(Value
, Attacker
, VX
, VY
, Kind
);
2629 function MC_RECV_PlayerDeath(var M
: TMsg
): Word;
2633 KillType
, DeathType
: Byte;
2637 if not gGameOn
then Exit
;
2638 PID
:= M
.ReadWord();
2639 Pl
:= g_Player_Get(PID
);
2640 if Pl
= nil then Exit
;
2642 KillType
:= M
.ReadByte();
2643 DeathType
:= M
.ReadByte();
2644 Attacker
:= M
.ReadWord();
2648 Kill(KillType
, Attacker
, DeathType
);
2653 function MC_RECV_PlayerDelete(var M
: TMsg
): Word;
2658 PID
:= M
.ReadWord();
2659 Pl
:= g_Player_Get(PID
);
2661 if Pl
= nil then Exit
;
2663 if NetDeafLevel
< 3 then
2664 g_Console_Add(Format(_lc
[I_PLAYER_LEAVE
], [Pl
.Name
]), True);
2665 e_WriteLog('NET: Player ' + Pl
.Name
+ ' [' + IntToStr(PID
) + '] removed.', TMsgType
.Notify
);
2667 g_Player_Remove(PID
);
2672 function MC_RECV_PlayerFire(var M
: TMsg
): Word;
2677 X
, Y
, AX
, AY
: Integer;
2681 if not gGameOn
then Exit
;
2682 PID
:= M
.ReadWord();
2683 Pl
:= g_Player_Get(PID
);
2684 if Pl
= nil then Exit
;
2686 Weap
:= M
.ReadByte();
2687 X
:= M
.ReadLongInt();
2688 Y
:= M
.ReadLongInt();
2689 AX
:= M
.ReadLongInt();
2690 AY
:= M
.ReadLongInt();
2691 SHID
:= M
.ReadLongInt();
2694 if alive
then NetFire(Weap
, X
, Y
, AX
, AY
, SHID
);
2697 procedure MC_RECV_PlayerSettings(var M
: TMsg
);
2707 PID
:= M
.ReadWord();
2708 Pl
:= g_Player_Get(PID
);
2709 if Pl
= nil then Exit
;
2711 TmpName
:= M
.ReadString();
2712 TmpModel
:= M
.ReadString();
2713 TmpColor
.R
:= M
.ReadByte();
2714 TmpColor
.G
:= M
.ReadByte();
2715 TmpColor
.B
:= M
.ReadByte();
2716 TmpTeam
:= M
.ReadByte();
2718 if (gGameSettings
.GameMode
in [GM_TDM
, GM_CTF
]) and (Pl
.Team
<> TmpTeam
) then
2720 Pl
.ChangeTeam(TmpTeam
);
2721 if gPlayer1
= Pl
then
2722 gPlayer1Settings
.Team
:= TmpTeam
;
2723 if gPlayer2
= Pl
then
2724 gPlayer2Settings
.Team
:= TmpTeam
;
2726 Pl
.SetColor(TmpColor
);
2728 if Pl
.Name
<> TmpName
then
2730 if NetDeafLevel
< 3 then
2731 g_Console_Add(Format(_lc
[I_PLAYER_NAME
], [Pl
.Name
, TmpName
]), True);
2735 if (g_Force_Model_Get() <> 0) then
2736 TmpModel
:= g_Forced_Model_GetName();
2737 if TmpModel
<> Pl
.Model
.GetName() then
2738 Pl
.SetModel(TmpModel
);
2743 procedure MC_RECV_ItemSpawn(var M
: TMsg
);
2746 X
, Y
, VX
, VY
: Integer;
2748 Quiet
, Fall
{, Resp}: Boolean;
2751 if not gGameOn
then Exit
;
2753 Quiet
:= M
.ReadByte() <> 0;
2755 Fall
:= M
.ReadByte() <> 0;
2756 {Resp :=} M
.ReadByte();
2757 X
:= M
.ReadLongInt();
2758 Y
:= M
.ReadLongInt();
2759 VX
:= M
.ReadLongInt();
2760 VY
:= M
.ReadLongInt();
2762 g_Items_Create(X
, Y
, T
and $7F, Fall
, False, False, ID
);
2763 if ((T
and $80) <> 0) then g_Items_SetDrop(ID
);
2765 it
:= g_Items_ByIdx(ID
);
2771 g_Sound_PlayExAt('SOUND_ITEM_RESPAWNITEM', X
, Y
);
2773 g_GFX_QueueEffect(R_GFX_ITEM_RESPAWN
, X
+(it
.Obj
.Rect
.Width
div 2)-16, Y
+(it
.Obj
.Rect
.Height
div 2)-16);
2778 procedure MC_RECV_ItemDestroy(var M
: TMsg
);
2783 if not gGameOn
then Exit
;
2785 Quiet
:= M
.ReadByte() <> 0;
2787 if not g_Items_ValidId(ID
) then exit
;
2789 if not Quiet
then g_Items_EmitPickupSound(ID
);
2794 procedure MC_RECV_ItemPos(var M
: TMsg
);
2797 X
, Y
, VX
, VY
: Integer;
2800 if not gGameOn
then Exit
;
2803 X
:= M
.ReadLongInt();
2804 Y
:= M
.ReadLongInt();
2805 VX
:= M
.ReadLongInt();
2806 VY
:= M
.ReadLongInt();
2808 if g_Items_ValidId(ID
) then
2810 it
:= g_Items_ByIdx(ID
);
2815 it
.positionChanged();
2821 procedure MC_RECV_PanelTexture(var M
: TMsg
);
2822 var TP
: TPanel
; PGUID
, Tex
: Integer; AnimTime
: LongWord; Loop
: Byte;
2824 if not gGameOn
then Exit
;
2826 PGUID
:= Integer(M
.ReadLongWord());
2827 Tex
:= M
.ReadLongInt();
2828 AnimTime
:= M
.ReadLongWord();
2829 Loop
:= M
.ReadByte();
2831 TP
:= g_Map_PanelByGUID(PGUID
);
2835 TP
.SetTexture(Tex
, Loop
);
2836 TP
.SetFrame(AnimTime
);
2840 procedure MC_RECV_PanelState(var M
: TMsg
);
2845 X
, Y
, W
, H
: Integer;
2847 speedX
, speedY
, startX
, startY
, endX
, endY
: Integer;
2848 sizeSpX
, sizeSpY
, sizeEX
, sizeEY
: Integer;
2851 if not gGameOn
then Exit
;
2853 PGUID
:= Integer(M
.ReadLongWord());
2854 E
:= (M
.ReadByte() <> 0);
2855 Lift
:= M
.ReadByte();
2856 X
:= M
.ReadLongInt();
2857 Y
:= M
.ReadLongInt();
2861 speedX
:= M
.ReadLongInt();
2862 speedY
:= M
.ReadLongInt();
2863 startX
:= M
.ReadLongInt();
2864 startY
:= M
.ReadLongInt();
2865 endX
:= M
.ReadLongInt();
2866 endY
:= M
.ReadLongInt();
2867 sizeSpX
:= M
.ReadLongInt();
2868 sizeSpY
:= M
.ReadLongInt();
2869 sizeEX
:= M
.ReadLongInt();
2870 sizeEY
:= M
.ReadLongInt();
2871 mpflags
:= M
.ReadByte(); // bit0: TP.movingActive; bit1: TP.moveOnce
2873 TP
:= g_Map_PanelByGUID(PGUID
);
2874 if (TP
= nil) then exit
;
2876 // update lifts state
2877 if TP
.isGLift
then g_Map_SetLiftGUID(PGUID
, Lift
);
2879 // update enabled/disabled state for all panels
2880 if E
then g_Map_EnableWallGUID(PGUID
) else g_Map_DisableWallGUID(PGUID
);
2882 // update panel position, as it can be moved (mplat)
2887 // update mplat state
2888 TP
.movingSpeedX
:= speedX
;
2889 TP
.movingSpeedY
:= speedY
;
2890 TP
.movingStartX
:= startX
;
2891 TP
.movingStartY
:= startY
;
2892 TP
.movingEndX
:= endX
;
2893 TP
.movingEndY
:= endY
;
2894 TP
.sizeSpeedX
:= sizeSpX
;
2895 TP
.sizeSpeedY
:= sizeSpY
;
2896 TP
.sizeEndX
:= sizeEX
;
2897 TP
.sizeEndY
:= sizeEY
;
2898 TP
.movingActive
:= ((mpflags
and 1) <> 0);
2899 TP
.moveOnce
:= ((mpflags
and 2) <> 0);
2900 // notify panel of it's position/size change, so it can fix other internal structures
2901 TP
.positionChanged();
2906 procedure MC_RECV_TriggerSound(var M
: TMsg
);
2909 SPos
, SID
: LongWord;
2913 if not gGameOn
then Exit
;
2914 if gTriggers
= nil then Exit
;
2916 SID
:= M
.ReadLongWord();
2917 SPlaying
:= M
.ReadByte() <> 0;
2918 SPos
:= M
.ReadLongWord();
2919 SCount
:= M
.ReadLongInt();
2921 for I
:= Low(gTriggers
) to High(gTriggers
) do
2922 if gTriggers
[I
].TriggerType
= TRIGGER_SOUND
then
2923 if gTriggers
[I
].ClientID
= SID
then
2924 with gTriggers
[I
] do
2926 if Sound
<> nil then
2931 Sound
.PlayVolumeAt(X
+(Width
div 2), Y
+(Height
div 2), tgcVolume
/255.0)
2933 Sound
.PlayPanVolume((tgcPan
-127.0)/128.0, tgcVolume
/255.0);
2934 Sound
.SetPosition(SPos
);
2937 if Sound
.IsPlaying
then Sound
.Stop
;
2940 SoundPlayCount
:= SCount
;
2944 procedure MC_RECV_TriggerMusic(var M
: TMsg
);
2951 if not gGameOn
then Exit
;
2953 MName
:= M
.ReadString();
2954 MPlaying
:= M
.ReadByte() <> 0;
2955 MPos
:= M
.ReadLongWord();
2956 MPaused
:= M
.ReadByte() <> 0;
2957 MPos
:= MPos
+1; //k8: stfu, fpc!
2961 gMusic
.SetByName(MName
);
2963 // gMusic.SetPosition(MPos);
2964 gMusic
.SpecPause
:= MPaused
;
2967 if gMusic
.IsPlaying
then gMusic
.Stop
;
2972 procedure MC_RECV_MonsterSpawn(var M
: TMsg
);
2975 MType
, MState
, MDir
, MAnim
, MBehav
: Byte;
2976 X
, Y
, VX
, VY
, MTargTime
, MHealth
, MAmmo
, MSleep
: Integer;
2981 Mon
:= g_Monsters_ByUID(ID
);
2985 MType
:= M
.ReadByte();
2986 MState
:= M
.ReadByte();
2987 MAnim
:= M
.ReadByte();
2988 MTarg
:= M
.ReadWord();
2989 MTargTime
:= M
.ReadLongInt();
2990 MBehav
:= M
.ReadByte();
2991 MSleep
:= M
.ReadLongInt();
2992 MHealth
:= M
.ReadLongInt();
2993 MAmmo
:= M
.ReadLongInt();
2995 X
:= M
.ReadLongInt();
2996 Y
:= M
.ReadLongInt();
2997 VX
:= M
.ReadLongInt();
2998 VY
:= M
.ReadLongInt();
2999 MDir
:= M
.ReadByte();
3001 g_Monsters_Create(MType
, X
, Y
, TDirection(MDir
), False, ID
);
3002 Mon
:= g_Monsters_ByUID(ID
);
3009 MonsterAnim
:= MAnim
;
3010 MonsterTargetUID
:= MTarg
;
3011 MonsterTargetTime
:= MTargTime
;
3012 MonsterBehaviour
:= MBehav
;
3013 MonsterSleep
:= MSleep
;
3014 MonsterAmmo
:= MAmmo
;
3019 setPosition(X
, Y
); // this will call positionChanged();
3025 procedure MC_RECV_MonsterPos(var M
: TMsg
);
3032 Mon
:= g_Monsters_ByUID(ID
);
3038 X
:= M
.ReadLongInt();
3039 Y
:= M
.ReadLongInt();
3040 Mon
.setPosition(X
, Y
); // this will call `positionChanged()`
3041 GameVelX
:= M
.ReadLongInt();
3042 GameVelY
:= M
.ReadLongInt();
3043 GameDirection
:= TDirection(M
.ReadByte());
3047 procedure MC_RECV_MonsterState(var M
: TMsg
);
3049 ID
, OldFire
: Integer;
3050 MState
, MFAnm
: Byte;
3052 AnimRevert
: Boolean;
3055 Mon
:= g_Monsters_ByUID(ID
);
3056 if Mon
= nil then Exit
;
3058 MState
:= M
.ReadByte();
3059 MFAnm
:= M
.ReadByte();
3063 MonsterTargetUID
:= M
.ReadWord();
3064 MonsterTargetTime
:= M
.ReadLongInt();
3065 MonsterSleep
:= M
.ReadLongInt();
3066 MonsterHealth
:= M
.ReadLongInt();
3067 MonsterAmmo
:= M
.ReadLongInt();
3068 MonsterPain
:= M
.ReadLongInt();
3069 AnimRevert
:= M
.ReadByte() <> 0;
3070 OldFire
:= FFireTime
;
3071 FFireTime
:= M
.ReadLongInt();
3072 if (OldFire
<= 0) and (FFireTime
> 0) then
3073 g_Sound_PlayExAt('SOUND_IGNITE', Obj
.X
, Obj
.Y
);
3074 RevertAnim(AnimRevert
);
3076 if MonsterState
<> MState
then
3078 if (MState
= MONSTATE_GO
) and (MonsterState
= MONSTATE_SLEEP
) then WakeUpSound();
3079 if (MState
= MONSTATE_DIE
) then DieSound();
3080 if (MState
= MONSTATE_PAIN
) then MakeBloodSimple(Min(200, MonsterPain
));
3081 if (MState
= MONSTATE_ATTACK
) then kick(nil);
3082 if (MState
= MONSTATE_DEAD
) then SetDeadAnim();
3084 SetState(MState
, MFAnm
);
3089 procedure MC_RECV_MonsterShot(var M
: TMsg
);
3093 X
, Y
, VX
, VY
: Integer;
3097 Mon
:= g_Monsters_ByUID(ID
);
3098 if Mon
= nil then Exit
;
3100 X
:= M
.ReadLongInt();
3101 Y
:= M
.ReadLongInt();
3102 VX
:= M
.ReadLongInt();
3103 VY
:= M
.ReadLongInt();
3105 Mon
.ClientAttack(X
, Y
, VX
, VY
);
3108 procedure MC_RECV_MonsterDelete(var M
: TMsg
);
3114 Mon
:= g_Monsters_ByUID(ID
);
3115 if Mon
= nil then Exit
;
3117 Mon
.MonsterRemoved
:= True;
3120 procedure MC_RECV_TimeSync(var M
: TMsg
);
3124 Time
:= M
.ReadLongWord();
3126 if gState
= STATE_INTERCUSTOM
then
3127 gServInterTime
:= Min(Time
, 255);
3130 procedure MC_RECV_VoteEvent(var M
: TMsg
);
3134 Int1
, Int2
: SmallInt;
3136 EvID
:= M
.ReadByte();
3137 Int1
:= M
.ReadSmallInt();
3138 Int2
:= M
.ReadSmallInt();
3139 Str1
:= M
.ReadString();
3140 Str2
:= M
.ReadString();
3142 if NetDeafLevel
< 2 then
3145 g_Console_Add(Format(_lc
[I_MESSAGE_VOTE_STARTED
], [Str1
, Str2
, Int1
]), True);
3147 g_Console_Add(Format(_lc
[I_MESSAGE_VOTE_PASSED
], [Str1
]), True);
3149 g_Console_Add(_lc
[I_MESSAGE_VOTE_FAILED
], True);
3151 g_Console_Add(Format(_lc
[I_MESSAGE_VOTE_VOTE
], [Str1
, Int1
, Int2
]), True);
3153 g_Console_Add(Format(_lc
[I_MESSAGE_VOTE_INPROGRESS
], [Str1
]), True);
3159 procedure MC_SEND_Info(Password
: string);
3164 NetOut
.Write(Byte(NET_MSG_INFO
));
3165 NetOut
.Write(GAME_VERSION
);
3166 NetOut
.Write(Password
);
3167 NetOut
.Write(gPlayer1Settings
.Name
);
3168 NetOut
.Write(gPlayer1Settings
.Model
);
3169 NetOut
.Write(gPlayer1Settings
.Color
.R
);
3170 NetOut
.Write(gPlayer1Settings
.Color
.G
);
3171 NetOut
.Write(gPlayer1Settings
.Color
.B
);
3172 NetOut
.Write(gPlayer1Settings
.Team
);
3173 NetOut
.Write(gPlayer1Settings
.WeaponSwitch
);
3174 for i
:= WP_FIRST
to WP_LAST
+ 1 do
3175 NetOut
.Write(gPlayer1Settings
.WeaponPreferences
[i
]);
3176 NetOut
.Write(gPlayer1Settings
.SwitchToEmpty
);
3177 NetOut
.Write(gPlayer1Settings
.SkipFist
);
3179 g_Net_Client_Send(True, NET_CHAN_SERVICE
);
3182 procedure MC_SEND_Chat(Txt
: string; Mode
: Byte);
3184 NetOut
.Write(Byte(NET_MSG_CHAT
));
3188 g_Net_Client_Send(True, NET_CHAN_CHAT
);
3191 procedure MC_SEND_PlayerPos();
3196 WeaponAct
: Byte = 0;
3197 WeaponSelect
: Word = 0;
3200 if not gGameOn
then Exit
;
3201 if gPlayers
= nil then Exit
;
3202 if gPlayer1
= nil then Exit
;
3205 Predict
:= NetPredictSelf
; // and (not NetGotKeys);
3207 {$IFDEF DISABLE_MENU}
3208 if (not gConsoleShow
) and (not gChatShow
) then
3210 if (not gConsoleShow
) and (not gChatShow
) and (g_ActiveWindow
= nil) then
3213 strafeDir
:= P1MoveButton
shr 4;
3214 P1MoveButton
:= P1MoveButton
and $0F;
3216 if gPlayerAction
[0, ACTION_MOVELEFT
] and (not gPlayerAction
[0, ACTION_MOVERIGHT
]) then
3218 else if (not gPlayerAction
[0, ACTION_MOVELEFT
]) and gPlayerAction
[0, ACTION_MOVERIGHT
] then
3220 else if (not gPlayerAction
[0, ACTION_MOVELEFT
]) and (not gPlayerAction
[0, ACTION_MOVERIGHT
]) then
3224 if gPlayerAction
[0, ACTION_STRAFE
] then
3226 // new strafe mechanics
3227 if (strafeDir
= 0) then
3228 strafeDir
:= P1MoveButton
; // start strafing
3229 // now set direction according to strafe (reversed)
3230 if (strafeDir
= 2) then
3231 gPlayer1
.SetDirection(TDirection
.D_LEFT
)
3232 else if (strafeDir
= 1) then
3233 gPlayer1
.SetDirection(TDirection
.D_RIGHT
)
3237 strafeDir
:= 0; // not strafing anymore
3238 if (P1MoveButton
= 2) and gPlayerAction
[0, ACTION_MOVELEFT
] then
3239 gPlayer1
.SetDirection(TDirection
.D_LEFT
)
3240 else if (P1MoveButton
= 1) and gPlayerAction
[0, ACTION_MOVERIGHT
] then
3241 gPlayer1
.SetDirection(TDirection
.D_RIGHT
)
3242 else if P1MoveButton
<> 0 then
3243 gPlayer1
.SetDirection(TDirection(P1MoveButton
-1));
3246 gPlayer1
.ReleaseKeys
;
3247 if P1MoveButton
= 1 then
3249 kByte
:= kByte
or NET_KEY_LEFT
;
3250 if Predict
then gPlayer1
.PressKey(KEY_LEFT
, 10000);
3252 if P1MoveButton
= 2 then
3254 kByte
:= kByte
or NET_KEY_RIGHT
;
3255 if Predict
then gPlayer1
.PressKey(KEY_RIGHT
, 10000);
3257 if gPlayerAction
[0, ACTION_LOOKUP
] then
3259 kByte
:= kByte
or NET_KEY_UP
;
3260 gPlayer1
.PressKey(KEY_UP
, 10000);
3262 if gPlayerAction
[0, ACTION_LOOKDOWN
] then
3264 kByte
:= kByte
or NET_KEY_DOWN
;
3265 gPlayer1
.PressKey(KEY_DOWN
, 10000);
3267 if gPlayerAction
[0, ACTION_JUMP
] then
3269 kByte
:= kByte
or NET_KEY_JUMP
;
3270 // gPlayer1.PressKey(KEY_JUMP, 10000); // TODO: Make a prediction option
3272 if gPlayerAction
[0, ACTION_ATTACK
] then kByte
:= kByte
or NET_KEY_FIRE
;
3273 if gPlayerAction
[0, ACTION_ACTIVATE
] then kByte
:= kByte
or NET_KEY_OPEN
;
3275 for i
:= WP_FACT
to WP_LACT
do
3277 if gWeaponAction
[0, i
] then
3279 WeaponAct
:= WeaponAct
or Byte(1 shl i
);
3280 gWeaponAction
[0, i
] := False
3284 for i
:= WP_FIRST
to WP_LAST
do
3286 if gSelectWeapon
[0, i
] then
3288 WeaponSelect
:= WeaponSelect
or Word(1 shl i
);
3289 gSelectWeapon
[0, i
] := False
3293 // fix movebutton state
3294 P1MoveButton
:= P1MoveButton
or (strafeDir
shl 4);
3297 kByte
:= NET_KEY_CHAT
;
3299 NetOut
.Write(Byte(NET_MSG_PLRPOS
));
3300 NetOut
.Write(gTime
);
3301 NetOut
.Write(kByte
);
3302 NetOut
.Write(Byte(gPlayer1
.Direction
));
3303 NetOut
.Write(WeaponAct
);
3304 NetOut
.Write(WeaponSelect
);
3305 //e_WriteLog(Format('S:ws=%d', [WeaponSelect]), MSG_WARNING);
3306 g_Net_Client_Send(True, NET_CHAN_PLAYERPOS
);
3308 //kBytePrev := kByte;
3309 //kDirPrev := gPlayer1.Direction;
3312 procedure MC_SEND_Vote(Start
: Boolean = False; Command
: string = 'a');
3314 NetOut
.Write(Byte(NET_MSG_VOTE_EVENT
));
3315 NetOut
.Write(Byte(Start
));
3316 NetOut
.Write(Command
);
3317 g_Net_Client_Send(True, NET_CHAN_IMPORTANT
);
3320 procedure MC_SEND_PlayerSettings();
3323 NetOut
.Write(Byte(NET_MSG_PLRSET
));
3324 NetOut
.Write(gPlayer1Settings
.Name
);
3325 NetOut
.Write(gPlayer1Settings
.Model
);
3326 NetOut
.Write(gPlayer1Settings
.Color
.R
);
3327 NetOut
.Write(gPlayer1Settings
.Color
.G
);
3328 NetOut
.Write(gPlayer1Settings
.Color
.B
);
3329 NetOut
.Write(gPlayer1Settings
.Team
);
3330 NetOut
.Write(gPlayer1Settings
.WeaponSwitch
);
3331 for i
:= WP_FIRST
to WP_LAST
+ 1 do
3332 NetOut
.Write(gPlayer1Settings
.WeaponPreferences
[i
]);
3333 NetOut
.Write(gPlayer1Settings
.SwitchToEmpty
);
3334 NetOut
.Write(gPlayer1Settings
.SkipFist
);
3336 g_Net_Client_Send(True, NET_CHAN_IMPORTANT
);
3339 procedure MC_SEND_FullStateRequest();
3341 NetOut
.Write(Byte(NET_MSG_REQFST
));
3343 g_Net_Client_Send(True, NET_CHAN_SERVICE
);
3346 procedure MC_SEND_CheatRequest(Kind
: Byte);
3348 NetOut
.Write(Byte(NET_MSG_CHEAT
));
3351 g_Net_Client_Send(True, NET_CHAN_IMPORTANT
);
3353 procedure MC_SEND_RCONPassword(Password
: string);
3355 NetOut
.Write(Byte(NET_MSG_RCON_AUTH
));
3356 NetOut
.Write(Password
);
3358 g_Net_Client_Send(True, NET_CHAN_SERVICE
);
3360 procedure MC_SEND_RCONCommand(Cmd
: string);
3362 NetOut
.Write(Byte(NET_MSG_RCON_CMD
));
3365 g_Net_Client_Send(True, NET_CHAN_SERVICE
);