DEADSOFTWARE

GIT / REPO / FRED-BOY
Projects / d2df-sdl.git / blob
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
Flammenwerfer: Burn in hell demons!
[d2df-sdl.git] / src / game / g_netmsg.pas
1 (* Copyright (C) Doom 2D: Forever Developers
2 *
3 * This program is free software: you can redistribute it and/or modify
4 * it under the terms of the GNU General Public License as published by
5 * the Free Software Foundation, either version 3 of the License, or
6 * (at your option) any later version.
7 *
8 * This program is distributed in the hope that it will be useful,
9 * but WITHOUT ANY WARRANTY; without even the implied warranty of
10 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 * GNU General Public License for more details.
12 *
13 * You should have received a copy of the GNU General Public License
14 * along with this program. If not, see <http://www.gnu.org/licenses/>.
15 *)
16 {$INCLUDE ../shared/a_modes.inc}
17 unit g_netmsg;
18
19 interface
20
21 uses e_msg, g_net, g_triggers, Classes, SysUtils, md5;
22
23 const
24 NET_MSG_INFO = 100;
25
26 NET_MSG_CHAT = 101;
27 NET_MSG_SND = 102;
28 NET_MSG_GFX = 103;
29 NET_MSG_GEVENT = 104;
30 NET_MSG_SCORE = 105;
31 NET_MSG_COOP = 106;
32 NET_MSG_FLAG = 107;
33 NET_MSG_REQFST = 108;
34 NET_MSG_GSET = 109;
35
36 NET_MSG_PLR = 111;
37 NET_MSG_PLRPOS = 112;
38 NET_MSG_PLRSTA = 113;
39 NET_MSG_PLRDEL = 114;
40 NET_MSG_PLRDMG = 115;
41 NET_MSG_PLRDIE = 116;
42 NET_MSG_PLRFIRE= 117;
43 NET_MSG_PLRSET = 119;
44 NET_MSG_CHEAT = 120;
45
46 NET_MSG_ISPAWN = 121;
47 NET_MSG_IDEL = 122;
48
49 NET_MSG_MSPAWN = 131;
50 NET_MSG_MPOS = 132;
51 NET_MSG_MSTATE = 133;
52 NET_MSG_MSHOT = 134;
53 NET_MSG_MDEL = 135;
54
55 NET_MSG_PSTATE = 141;
56 NET_MSG_PTEX = 142;
57
58 NET_MSG_TSOUND = 151;
59 NET_MSG_TMUSIC = 152;
60
61 NET_MSG_SHDEL = 161;
62 NET_MSG_SHADD = 162;
63 NET_MSG_SHPOS = 163;
64
65 NET_MSG_RCON_AUTH = 191;
66 NET_MSG_RCON_CMD = 192;
67 NET_MSG_TIME_SYNC = 194;
68 NET_MSG_VOTE_EVENT = 195;
69
70 NET_MSG_MAP_REQUEST = 201;
71 NET_MSG_MAP_RESPONSE = 202;
72 NET_MSG_RES_REQUEST = 203;
73 NET_MSG_RES_RESPONSE = 204;
74
75 NET_CHAT_SYSTEM = 0;
76 NET_CHAT_PLAYER = 1;
77 NET_CHAT_TEAM = 2;
78
79 NET_RCON_NOAUTH = 0;
80 NET_RCON_PWGOOD = 1;
81 NET_RCON_PWBAD = 2;
82
83 NET_GFX_SPARK = 1;
84 NET_GFX_TELE = 2;
85 NET_GFX_RESPAWN = 3;
86 NET_GFX_FIRE = 4;
87 NET_GFX_EXPLODE = 5;
88 NET_GFX_BFGEXPL = 6;
89 NET_GFX_BFGHIT = 7;
90 NET_GFX_SHELL1 = 8;
91 NET_GFX_SHELL2 = 9;
92 NET_GFX_SHELL3 = 10;
93
94 NET_EV_MAPSTART = 1;
95 NET_EV_MAPEND = 2;
96 NET_EV_CHANGE_TEAM = 3;
97 NET_EV_PLAYER_KICK = 4;
98 NET_EV_PLAYER_BAN = 5;
99 NET_EV_LMS_WARMUP = 6;
100 NET_EV_LMS_SURVIVOR = 7;
101 NET_EV_RCON = 8;
102 NET_EV_BIGTEXT = 9;
103 NET_EV_SCORE = 10;
104 NET_EV_SCORE_MSG = 11;
105 NET_EV_LMS_START = 12;
106 NET_EV_LMS_WIN = 13;
107 NET_EV_TLMS_WIN = 14;
108 NET_EV_LMS_LOSE = 15;
109 NET_EV_LMS_DRAW = 16;
110 NET_EV_KILLCOMBO = 17;
111 NET_EV_PLAYER_TOUCH = 18;
112
113 NET_VE_STARTED = 1;
114 NET_VE_PASSED = 2;
115 NET_VE_FAILED = 3;
116 NET_VE_VOTE = 4;
117 NET_VE_REVOKE = 5;
118 NET_VE_INPROGRESS = 6;
119
120 NET_FLAG_GET = 1;
121 NET_FLAG_DROP = 2;
122 NET_FLAG_CAP = 3;
123 NET_FLAG_RETURN = 4;
124
125 NET_CHEAT_SUICIDE = 1;
126 NET_CHEAT_SPECTATE = 2;
127
128 NET_MAX_DIFFTIME = 5000 div 36;
129
130 // HOST MESSAGES
131
132 procedure MH_RECV_Info(C: pTNetClient; var M: TMsg);
133 procedure MH_RECV_Chat(C: pTNetClient; var M: TMsg);
134 procedure MH_RECV_FullStateRequest(C: pTNetClient; var M: TMsg);
135 function MH_RECV_PlayerPos(C: pTNetClient; var M: TMsg): Word;
136 procedure MH_RECV_PlayerSettings(C: pTNetClient; var M: TMsg);
137 procedure MH_RECV_CheatRequest(C: pTNetClient; var M: TMsg);
138 procedure MH_RECV_RCONPassword(C: pTNetClient; var M: TMsg);
139 procedure MH_RECV_RCONCommand(C: pTNetClient; var M: TMsg);
140 procedure MH_RECV_MapRequest(C: pTNetClient; var M: TMsg);
141 procedure MH_RECV_ResRequest(C: pTNetClient; var M: TMsg);
142 procedure MH_RECV_Vote(C: pTNetClient; var M: TMsg);
143
144 // GAME
145 procedure MH_SEND_Everything(CreatePlayers: Boolean = False; ID: Integer = NET_EVERYONE);
146 procedure MH_SEND_Info(ID: Byte);
147 procedure MH_SEND_Chat(Txt: string; Mode: Byte; ID: Integer = NET_EVERYONE);
148 procedure MH_SEND_Effect(X, Y: Integer; Ang: SmallInt; Kind: Byte; ID: Integer = NET_EVERYONE);
149 procedure MH_SEND_Sound(X, Y: Integer; Name: string; Pos: Boolean = True; ID: Integer = NET_EVERYONE);
150 procedure MH_SEND_CreateShot(Proj: LongInt; ID: Integer = NET_EVERYONE);
151 procedure MH_SEND_UpdateShot(Proj: LongInt; ID: Integer = NET_EVERYONE);
152 procedure MH_SEND_DeleteShot(Proj: LongInt; X, Y: LongInt; Loud: Boolean = True; ID: Integer = NET_EVERYONE);
153 procedure MH_SEND_GameStats(ID: Integer = NET_EVERYONE);
154 procedure MH_SEND_CoopStats(ID: Integer = NET_EVERYONE);
155 procedure MH_SEND_GameEvent(EvType: Byte; EvNum: Integer = 0; EvStr: string = 'N'; ID: Integer = NET_EVERYONE);
156 procedure MH_SEND_FlagEvent(EvType: Byte; Flag: Byte; PID: Word; Quiet: Boolean = False; ID: Integer = NET_EVERYONE);
157 procedure MH_SEND_GameSettings(ID: Integer = NET_EVERYONE);
158 // PLAYER
159 procedure MH_SEND_PlayerCreate(PID: Word; ID: Integer = NET_EVERYONE);
160 procedure MH_SEND_PlayerPos(Reliable: Boolean; PID: Word; ID: Integer = NET_EVERYONE);
161 procedure MH_SEND_PlayerStats(PID: Word; ID: Integer = NET_EVERYONE);
162 procedure MH_SEND_PlayerDelete(PID: Word; ID: Integer = NET_EVERYONE);
163 procedure MH_SEND_PlayerDamage(PID: Word; Kind: Byte; Attacker, Value: Word; VX, VY: Integer; ID: Integer = NET_EVERYONE);
164 procedure MH_SEND_PlayerFire(PID: Word; Weapon: Byte; X, Y, AX, AY: Integer; ShotID: Integer = -1; ID: Integer = NET_EVERYONE);
165 procedure MH_SEND_PlayerDeath(PID: Word; KillType, DeathType: Byte; Attacker: Word; ID: Integer = NET_EVERYONE);
166 procedure MH_SEND_PlayerSettings(PID: Word; Mdl: string = ''; ID: Integer = NET_EVERYONE);
167 // ITEM
168 procedure MH_SEND_ItemSpawn(Quiet: Boolean; IID: Word; ID: Integer = NET_EVERYONE);
169 procedure MH_SEND_ItemDestroy(Quiet: Boolean; IID: Word; ID: Integer = NET_EVERYONE);
170 // PANEL
171 procedure MH_SEND_PanelTexture(PGUID: Integer; AnimLoop: Byte; ID: Integer = NET_EVERYONE);
172 procedure MH_SEND_PanelState(PGUID: Integer; ID: Integer = NET_EVERYONE);
173 // MONSTER
174 procedure MH_SEND_MonsterSpawn(UID: Word; ID: Integer = NET_EVERYONE);
175 procedure MH_SEND_MonsterPos(UID: Word; ID: Integer = NET_EVERYONE);
176 procedure MH_SEND_MonsterState(UID: Word; ForcedAnim: Byte = 255; ID: Integer = NET_EVERYONE);
177 procedure MH_SEND_MonsterShot(UID: Word; X, Y, VX, VY: Integer; ID: Integer = NET_EVERYONE);
178 procedure MH_SEND_MonsterDelete(UID: Word; ID: Integer = NET_EVERYONE);
179 // TRIGGER
180 procedure MH_SEND_TriggerSound(var T: TTrigger; ID: Integer = NET_EVERYONE);
181 procedure MH_SEND_TriggerMusic(ID: Integer = NET_EVERYONE);
182 // MISC
183 procedure MH_SEND_TimeSync(Time: LongWord; ID: Integer = NET_EVERYONE);
184 procedure MH_SEND_VoteEvent(EvType: Byte;
185 StrArg1: string = 'a'; StrArg2: string = 'b';
186 IntArg1: SmallInt = 0; IntArg2: SmallInt = 0;
187 ID: Integer = NET_EVERYONE);
188
189 // CLIENT MESSAGES //
190
191 // GAME
192 procedure MC_RECV_Chat(var M: TMsg);
193 procedure MC_RECV_Effect(var M: TMsg);
194 procedure MC_RECV_Sound(var M: TMsg);
195 procedure MC_RECV_GameStats(var M: TMsg);
196 procedure MC_RECV_CoopStats(var M: TMsg);
197 procedure MC_RECV_GameEvent(var M: TMsg);
198 procedure MC_RECV_FlagEvent(var M: TMsg);
199 procedure MC_RECV_GameSettings(var M: TMsg);
200 // PLAYER
201 function MC_RECV_PlayerCreate(var M: TMsg): Word;
202 function MC_RECV_PlayerPos(var M: TMsg): Word;
203 function MC_RECV_PlayerStats(var M: TMsg): Word;
204 function MC_RECV_PlayerDelete(var M: TMsg): Word;
205 function MC_RECV_PlayerDamage(var M: TMsg): Word;
206 function MC_RECV_PlayerDeath(var M: TMsg): Word;
207 function MC_RECV_PlayerFire(var M: TMsg): Word;
208 procedure MC_RECV_PlayerSettings(var M: TMsg);
209 // ITEM
210 procedure MC_RECV_ItemSpawn(var M: TMsg);
211 procedure MC_RECV_ItemDestroy(var M: TMsg);
212 // PANEL
213 procedure MC_RECV_PanelTexture(var M: TMsg);
214 procedure MC_RECV_PanelState(var M: TMsg);
215 // MONSTER
216 procedure MC_RECV_MonsterSpawn(var M: TMsg);
217 procedure MC_RECV_MonsterPos(var M: TMsg);
218 procedure MC_RECV_MonsterState(var M: TMsg);
219 procedure MC_RECV_MonsterShot(var M: TMsg);
220 procedure MC_RECV_MonsterDelete(var M: TMsg);
221 // SHOT
222 procedure MC_RECV_CreateShot(var M: TMsg);
223 procedure MC_RECV_UpdateShot(var M: TMsg);
224 procedure MC_RECV_DeleteShot(var M: TMsg);
225 // TRIGGER
226 procedure MC_RECV_TriggerSound(var M: TMsg);
227 procedure MC_RECV_TriggerMusic(var M: TMsg);
228 // MISC
229 procedure MC_RECV_TimeSync(var M: TMsg);
230 procedure MC_RECV_VoteEvent(var M: TMsg);
231 // SERVICE
232 procedure MC_SEND_Info(Password: string);
233 procedure MC_SEND_Chat(Txt: string; Mode: Byte);
234 procedure MC_SEND_PlayerPos();
235 procedure MC_SEND_FullStateRequest();
236 procedure MC_SEND_PlayerSettings();
237 procedure MC_SEND_CheatRequest(Kind: Byte);
238 procedure MC_SEND_RCONPassword(Password: string);
239 procedure MC_SEND_RCONCommand(Cmd: string);
240 procedure MC_SEND_Vote(Start: Boolean = False; Command: string = 'a');
241 // DOWNLOAD
242 procedure MC_SEND_MapRequest();
243 procedure MC_SEND_ResRequest(const resName: AnsiString);
244
245 type
246 TExternalResourceInfo = record
247 Name: string[255];
248 md5: TMD5Digest;
249 end;
250
251 TResDataMsg = record
252 MsgId: Byte;
253 FileSize: Integer;
254 FileData: AByte;
255 end;
256
257 TMapDataMsg = record
258 MsgId: Byte;
259 FileSize: Integer;
260 FileData: AByte;
261 ExternalResources: array of TExternalResourceInfo;
262 end;
263
264 function MapDataFromMsgStream(msgStream: TMemoryStream):TMapDataMsg;
265 function ResDataFromMsgStream(msgStream: TMemoryStream):TResDataMsg;
266
267 implementation
268
269 uses
270 Math, ENet, e_input, e_graphics, e_log,
271 g_textures, g_gfx, g_sound, g_console, g_basic, g_options, g_main,
272 g_game, g_player, g_map, g_panel, g_items, g_weapons, g_phys, g_gui,
273 g_language, g_monsters, g_netmaster, utils, wadreader, MAPDEF;
274
275 const
276 NET_KEY_LEFT = 1;
277 NET_KEY_RIGHT = 2;
278 NET_KEY_UP = 4;
279 NET_KEY_DOWN = 8;
280 NET_KEY_JUMP = 16;
281 NET_KEY_FIRE = 32;
282 NET_KEY_OPEN = 64;
283 NET_KEY_NW = 256;
284 NET_KEY_PW = 512;
285 NET_KEY_CHAT = 2048;
286 NET_KEY_FORCEDIR = 4096;
287
288 //var
289 //kBytePrev: Word = 0;
290 //kDirPrev: TDirection = D_LEFT;
291 //HostGameTime: Word = 0;
292
293 // HOST MESSAGES //
294
295
296 // GAME
297
298 procedure MH_RECV_Chat(C: pTNetClient; var M: TMsg);
299 var
300 Txt: string;
301 Mode: Byte;
302 PID: Word;
303 Pl: TPlayer;
304 begin
305 PID := C^.Player;
306 Pl := g_Player_Get(PID);
307
308 Txt := M.ReadString();
309 Mode := M.ReadByte();
310 if (Mode = NET_CHAT_SYSTEM) then
311 Mode := NET_CHAT_PLAYER; // prevent sending system messages from clients
312 if (Mode = NET_CHAT_TEAM) and (not gGameSettings.GameMode in [GM_TDM, GM_CTF]) then
313 Mode := NET_CHAT_PLAYER; // revert to player chat in non-team game
314
315 if Pl = nil then
316 MH_SEND_Chat(Txt, Mode)
317 else
318 MH_SEND_Chat(Pl.Name + ': ' + Txt, Mode, IfThen(Mode = NET_CHAT_TEAM, Pl.Team, NET_EVERYONE));
319 end;
320
321 procedure MH_RECV_Info(C: pTNetClient; var M: TMsg);
322 var
323 Ver, PName, Model, Pw: string;
324 R, G, B, T: Byte;
325 PID: Word;
326 Color: TRGB;
327 I: Integer;
328 begin
329 Ver := M.ReadString();
330 Pw := M.ReadString();
331 PName := M.ReadString();
332 Model := M.ReadString();
333 R := M.ReadByte();
334 G := M.ReadByte();
335 B := M.ReadByte();
336 T := M.ReadByte();
337
338 if Ver <> GAME_VERSION then
339 begin
340 g_Console_Add(_lc[I_NET_MSG] + _lc[I_NET_MSG_HOST_REJECT] +
341 _lc[I_NET_DISC_VERSION]);
342 enet_peer_disconnect(C^.Peer, NET_DISC_VERSION);
343 Exit;
344 end;
345
346 if g_Net_IsHostBanned(C^.Peer^.address.host) then
347 begin
348 if g_Net_IsHostBanned(C^.Peer^.address.host, True) then
349 begin
350 g_Console_Add(_lc[I_NET_MSG] + _lc[I_NET_MSG_HOST_REJECT] +
351 _lc[I_NET_DISC_BAN]);
352 enet_peer_disconnect(C^.Peer, NET_DISC_BAN);
353 end
354 else
355 begin
356 g_Console_Add(_lc[I_NET_MSG] + _lc[I_NET_MSG_HOST_REJECT] +
357 _lc[I_NET_DISC_BAN]);
358 enet_peer_disconnect(C^.Peer, NET_DISC_TEMPBAN);
359 end;
360 Exit;
361 end;
362
363 if NetPassword <> '' then
364 if AnsiLowerCase(NetPassword) <> AnsiLowerCase(Pw) then
365 begin
366 g_Console_Add(_lc[I_NET_MSG] + _lc[I_NET_MSG_HOST_REJECT] +
367 _lc[I_NET_DISC_PASSWORD]);
368 enet_peer_disconnect(C^.Peer, NET_DISC_PASSWORD);
369 Exit;
370 end;
371
372 Color.R := R;
373 Color.B := B;
374 Color.G := G;
375
376 PID := g_Player_Create(Model, Color, T, False);
377 with g_Player_Get(PID) do
378 begin
379 Name := PName;
380 Reset(True);
381 end;
382
383 C^.Player := PID;
384
385 g_Console_Add(Format(_lc[I_PLAYER_JOIN], [PName]), True);
386 e_WriteLog('NET: Client ' + PName + ' [' + IntToStr(C^.ID) +
387 '] connected. Assigned player #' + IntToStr(PID) + '.', TMsgType.Notify);
388
389 MH_SEND_Info(C^.ID);
390
391 with g_Player_Get(PID) do
392 begin
393 Name := PName;
394 FClientID := C^.ID;
395 // round in progress, don't spawn
396 if (gGameSettings.MaxLives > 0) and (gLMSRespawn = LMS_RESPAWN_NONE) then
397 begin
398 Lives := 0;
399 FNoRespawn := True;
400 Spectate;
401 FWantsInGame := True; // TODO: look into this later
402 end
403 else
404 Respawn(gGameSettings.GameType = GT_SINGLE);
405 end;
406
407 for I := Low(NetClients) to High(NetClients) do
408 begin
409 if NetClients[I].ID = C^.ID then Continue;
410 MH_SEND_PlayerCreate(PID, NetClients[I].ID);
411 MH_SEND_PlayerPos(True, PID, NetClients[I].ID);
412 MH_SEND_PlayerStats(PID, NetClients[I].ID);
413 end;
414
415 if gState in [STATE_INTERCUSTOM, STATE_FOLD] then
416 MH_SEND_GameEvent(NET_EV_MAPEND, 0, 'N', C^.ID);
417
418 if NetUseMaster then g_Net_Slist_Update;
419 end;
420
421 procedure MH_RECV_FullStateRequest(C: pTNetClient; var M: TMsg);
422 begin
423 if gGameOn then
424 MH_SEND_Everything((C^.State = NET_STATE_AUTH), C^.ID)
425 else
426 C^.RequestedFullUpdate := True;
427 end;
428
429 // PLAYER
430
431 function MH_RECV_PlayerPos(C: pTNetClient; var M: TMsg): Word;
432 var
433 Dir, i: Byte;
434 WeaponSelect: Word;
435 PID: Word;
436 kByte: Word;
437 Pl: TPlayer;
438 GT: LongWord;
439 begin
440 Result := 0;
441 if not gGameOn then Exit;
442
443 GT := M.ReadLongWord();
444 PID := C^.Player;
445 Pl := g_Player_Get(PID);
446 if Pl = nil then
447 Exit;
448
449 if (GT > gTime + NET_MAX_DIFFTIME) or (GT < Pl.NetTime) then Exit;
450
451 with Pl do
452 begin
453 NetTime := GT;
454 kByte := M.ReadWord();
455 Dir := M.ReadByte();
456 WeaponSelect := M.ReadWord();
457 //e_WriteLog(Format('R:ws=%d', [WeaponSelect]), MSG_WARNING);
458 if Direction <> TDirection(Dir) then
459 JustTeleported := False;
460
461 SetDirection(TDirection(Dir));
462 ReleaseKeys;
463
464 if kByte = NET_KEY_CHAT then
465 begin
466 PressKey(KEY_CHAT, 10000);
467 Exit;
468 end;
469
470 if LongBool(kByte and NET_KEY_LEFT) then PressKey(KEY_LEFT, 10000);
471 if LongBool(kByte and NET_KEY_RIGHT) then PressKey(KEY_RIGHT, 10000);
472 if LongBool(kByte and NET_KEY_UP) then PressKey(KEY_UP, 10000);
473 if LongBool(kByte and NET_KEY_DOWN) then PressKey(KEY_DOWN, 10000);
474 if LongBool(kByte and NET_KEY_JUMP) then PressKey(KEY_JUMP, 10000);
475 if LongBool(kByte and NET_KEY_FIRE) then PressKey(KEY_FIRE, 10000);
476 if LongBool(kByte and NET_KEY_OPEN) then PressKey(KEY_OPEN, 10000);
477 if LongBool(kByte and NET_KEY_NW) then PressKey(KEY_NEXTWEAPON, 10000);
478 if LongBool(kByte and NET_KEY_PW) then PressKey(KEY_PREVWEAPON, 10000);
479
480 for i := 0 to 15 do
481 begin
482 if (WeaponSelect and Word(1 shl i)) <> 0 then
483 begin
484 //e_WriteLog(Format(' R:wn=%d', [i]), MSG_WARNING);
485 QueueWeaponSwitch(i);
486 end;
487 end;
488 end;
489
490 // MH_SEND_PlayerPos(False, PID, C^.ID);
491 end;
492
493 procedure MH_RECV_CheatRequest(C: pTNetClient; var M: TMsg);
494 var
495 CheatKind: Byte;
496 Pl: TPlayer;
497 begin
498 Pl := g_Player_Get(C^.Player);
499 if Pl = nil then Exit;
500
501 CheatKind := M.ReadByte();
502
503 case CheatKind of
504 NET_CHEAT_SUICIDE:
505 Pl.Damage(SUICIDE_DAMAGE, Pl.UID, 0, 0, HIT_SELF);
506 NET_CHEAT_SPECTATE:
507 begin
508 if Pl.FSpectator then
509 Pl.Respawn(False)
510 else
511 Pl.Spectate;
512 end;
513 end;
514 end;
515
516 procedure MH_RECV_PlayerSettings(C: pTNetClient; var M: TMsg);
517 var
518 TmpName: string;
519 TmpModel: string;
520 TmpColor: TRGB;
521 TmpTeam: Byte;
522 Pl: TPlayer;
523 begin
524 TmpName := M.ReadString();
525 TmpModel := M.ReadString();
526 TmpColor.R := M.ReadByte();
527 TmpColor.G := M.ReadByte();
528 TmpColor.B := M.ReadByte();
529 TmpTeam := M.ReadByte();
530
531 Pl := g_Player_Get(C^.Player);
532 if Pl = nil then Exit;
533
534 if (gGameSettings.GameMode in [GM_TDM, GM_CTF]) and (Pl.Team <> TmpTeam) then
535 Pl.SwitchTeam
536 else
537 Pl.SetColor(TmpColor);
538
539 if Pl.Name <> TmpName then
540 begin
541 g_Console_Add(Format(_lc[I_PLAYER_NAME], [Pl.Name, TmpName]), True);
542 Pl.Name := TmpName;
543 end;
544
545 if TmpModel <> Pl.Model.Name then
546 Pl.SetModel(TmpModel);
547
548 MH_SEND_PlayerSettings(Pl.UID, TmpModel);
549 end;
550
551 // RCON
552
553 procedure MH_RECV_RCONPassword(C: pTNetClient; var M: TMsg);
554 var
555 Pwd: string;
556 begin
557 Pwd := M.ReadString();
558 if not NetAllowRCON then Exit;
559 if Pwd = NetRCONPassword then
560 begin
561 C^.RCONAuth := True;
562 MH_SEND_GameEvent(NET_EV_RCON, NET_RCON_PWGOOD, 'N', C^.ID);
563 end
564 else
565 MH_SEND_GameEvent(NET_EV_RCON, NET_RCON_PWBAD, 'N', C^.ID);
566 end;
567
568 procedure MH_RECV_RCONCommand(C: pTNetClient; var M: TMsg);
569 var
570 Cmd: string;
571 begin
572 Cmd := M.ReadString();
573 if not NetAllowRCON then Exit;
574 if not C^.RCONAuth then
575 begin
576 MH_SEND_GameEvent(NET_EV_RCON, NET_RCON_NOAUTH, 'N', C^.ID);
577 Exit;
578 end;
579 g_Console_Process(Cmd);
580 end;
581
582 // MISC
583
584 procedure MH_RECV_Vote(C: pTNetClient; var M: TMsg);
585 var
586 Start: Boolean;
587 Name, Command: string;
588 Need: Integer;
589 Pl: TPlayer;
590 begin
591 Start := M.ReadByte() <> 0;
592 Command := M.ReadString();
593
594 Pl := g_Player_Get(C^.Player);
595 if Pl = nil then Exit;
596 Name := Pl.Name;
597
598 if Start then
599 begin
600 if not g_Console_CommandBlacklisted(Command) then
601 g_Game_StartVote(Command, Name);
602 end
603 else if gVoteInProgress then
604 begin
605 if (gPlayer1 <> nil) or (gPlayer2 <> nil) then
606 Need := Floor((NetClientCount+1)/2.0) + 1
607 else
608 Need := Floor(NetClientCount/2.0) + 1;
609 if C^.Voted then
610 begin
611 Dec(gVoteCount);
612 C^.Voted := False;
613 g_Console_Add(Format(_lc[I_MESSAGE_VOTE_REVOKED], [Name, gVoteCount, Need]), True);
614 MH_SEND_VoteEvent(NET_VE_REVOKE, Name, 'a', gVoteCount, Need);
615 end
616 else
617 begin
618 Inc(gVoteCount);
619 C^.Voted := True;
620 g_Console_Add(Format(_lc[I_MESSAGE_VOTE_VOTE], [Name, gVoteCount, Need]), True);
621 MH_SEND_VoteEvent(NET_VE_VOTE, Name, 'a', gVoteCount, Need);
622 g_Game_CheckVote;
623 end;
624 end;
625 end;
626
627 // GAME (SEND)
628
629 procedure MH_SEND_Everything(CreatePlayers: Boolean = False; ID: Integer = NET_EVERYONE);
630
631 function sendItemRespawn (it: PItem): Boolean;
632 begin
633 result := false; // don't stop
634 MH_SEND_ItemSpawn(True, it.myid, ID);
635 end;
636
637 function sendMonSpawn (mon: TMonster): Boolean;
638 begin
639 result := false; // don't stop
640 MH_SEND_MonsterSpawn(mon.UID, ID);
641 end;
642
643 function sendPanelState (pan: TPanel): Boolean;
644 begin
645 result := false; // don't stop
646 MH_SEND_PanelState(pan.guid, ID); // anyway, to sync mplats
647 if (pan.CanChangeTexture) then MH_SEND_PanelTexture(pan.guid, pan.LastAnimLoop, ID);
648 end;
649
650 var
651 I: Integer;
652 begin
653 if gPlayers <> nil then
654 begin
655 for I := Low(gPlayers) to High(gPlayers) do
656 begin
657 if gPlayers[I] <> nil then
658 begin
659 if CreatePlayers then MH_SEND_PlayerCreate(gPlayers[I].UID, ID);
660 MH_SEND_PlayerPos(True, gPlayers[I].UID, ID);
661 MH_SEND_PlayerStats(gPlayers[I].UID, ID);
662
663 if (gPlayers[I].Flag <> FLAG_NONE) and (gGameSettings.GameMode = GM_CTF) then
664 begin
665 MH_SEND_FlagEvent(FLAG_STATE_CAPTURED, gPlayers[I].Flag, gPlayers[I].UID, True, ID);
666 end;
667 end;
668 end;
669 end;
670
671 g_Items_ForEachAlive(sendItemRespawn, true); // backwards
672 g_Mons_ForEach(sendMonSpawn);
673 g_Map_ForEachPanel(sendPanelState);
674
675 if gTriggers <> nil then
676 begin
677 for I := Low(gTriggers) to High(gTriggers) do
678 begin
679 if gTriggers[I].TriggerType = TRIGGER_SOUND then
680 begin
681 MH_SEND_TriggerSound(gTriggers[I], ID);
682 end;
683 end;
684 end;
685
686 if Shots <> nil then
687 begin
688 for I := Low(Shots) to High(Shots) do
689 begin
690 if Shots[i].ShotType in [6, 7, 8] then
691 begin
692 MH_SEND_CreateShot(i, ID);
693 end;
694 end;
695 end;
696
697 MH_SEND_TriggerMusic(ID);
698
699 MH_SEND_GameStats(ID);
700 MH_SEND_CoopStats(ID);
701
702 if gGameSettings.GameMode = GM_CTF then
703 begin
704 if gFlags[FLAG_RED].State <> FLAG_STATE_CAPTURED then MH_SEND_FlagEvent(gFlags[FLAG_RED].State, FLAG_RED, 0, True, ID);
705 if gFlags[FLAG_BLUE].State <> FLAG_STATE_CAPTURED then MH_SEND_FlagEvent(gFlags[FLAG_BLUE].State, FLAG_BLUE, 0, True, ID);
706 end;
707
708 if CreatePlayers and (ID >= 0) then NetClients[ID].State := NET_STATE_GAME;
709
710 if gLMSRespawn > LMS_RESPAWN_NONE then
711 begin
712 MH_SEND_GameEvent(NET_EV_LMS_WARMUP, (gLMSRespawnTime - gTime) div 1000, 'N', ID);
713 end;
714 end;
715
716 procedure MH_SEND_Info(ID: Byte);
717 var
718 Map: string;
719 begin
720 Map := g_ExtractFileName(gMapInfo.Map);
721
722 NetOut.Clear();
723
724 NetOut.Write(Byte(NET_MSG_INFO));
725 NetOut.Write(ID);
726 NetOut.Write(NetClients[ID].Player);
727 NetOut.Write(gGameSettings.WAD);
728 NetOut.Write(Map);
729 NetOut.Write(gWADHash);
730 NetOut.Write(gGameSettings.GameMode);
731 NetOut.Write(gGameSettings.GoalLimit);
732 NetOut.Write(gGameSettings.TimeLimit);
733 NetOut.Write(gGameSettings.MaxLives);
734 NetOut.Write(gGameSettings.Options);
735 NetOut.Write(gTime);
736
737 g_Net_Host_Send(ID, True, NET_CHAN_SERVICE);
738 end;
739
740 procedure MH_SEND_Chat(Txt: string; Mode: Byte; ID: Integer = NET_EVERYONE);
741 var
742 Name: string;
743 i: Integer;
744 Team: Byte;
745 begin
746 if (Mode = NET_CHAT_TEAM) and (not gGameSettings.GameMode in [GM_TDM, GM_CTF]) then
747 Mode := NET_CHAT_PLAYER;
748
749 Team := 0;
750 if (Mode = NET_CHAT_TEAM) then
751 begin
752 for i := Low(gPlayers) to High(gPlayers) do
753 if (gPlayers[i] <> nil) and (gPlayers[i].FClientID >= 0) and
754 (gPlayers[i].Team = ID) then
755 begin
756 NetOut.Write(Byte(NET_MSG_CHAT));
757 NetOut.Write(Txt);
758 NetOut.Write(Mode);
759 g_Net_Host_Send(gPlayers[i].FClientID, True, NET_CHAN_CHAT);
760 end;
761 Team := ID;
762 ID := NET_EVERYONE;
763 end
764 else
765 begin
766 NetOut.Write(Byte(NET_MSG_CHAT));
767 NetOut.Write(Txt);
768 NetOut.Write(Mode);
769 g_Net_Host_Send(ID, True, NET_CHAN_CHAT);
770 end;
771
772 if Mode = NET_CHAT_SYSTEM then
773 Exit;
774
775 if ID = NET_EVERYONE then
776 begin
777 if Mode = NET_CHAT_PLAYER then
778 begin
779 g_Console_Add(Txt, True);
780 e_WriteLog('[Chat] ' + b_Text_Unformat(Txt), TMsgType.Notify);
781 g_Game_ChatSound(b_Text_Unformat(Txt));
782 end
783 else
784 if Mode = NET_CHAT_TEAM then
785 if gPlayer1 <> nil then
786 begin
787 if (gPlayer1.Team = TEAM_RED) and (Team = TEAM_RED) then
788 begin
789 g_Console_Add(#18'[Team] '#2 + Txt, True);
790 e_WriteLog('[Team Chat] ' + b_Text_Unformat(Txt), TMsgType.Notify);
791 g_Game_ChatSound(b_Text_Unformat(Txt));
792 end
793 else if (gPlayer1.Team = TEAM_BLUE) and (Team = TEAM_BLUE) then
794 begin
795 g_Console_Add(#20'[Team] '#2 + Txt, True);
796 e_WriteLog('[Team Chat] ' + b_Text_Unformat(Txt), TMsgType.Notify);
797 g_Game_ChatSound(b_Text_Unformat(Txt));
798 end;
799 end;
800 end
801 else
802 begin
803 Name := g_Net_ClientName_ByID(ID);
804 g_Console_Add('-> ' + Name + ': ' + Txt, True);
805 e_WriteLog('[Tell ' + Name + '] ' + b_Text_Unformat(Txt), TMsgType.Notify);
806 g_Game_ChatSound(b_Text_Unformat(Txt), False);
807 end;
808 end;
809
810 procedure MH_SEND_Effect(X, Y: Integer; Ang: SmallInt; Kind: Byte; ID: Integer = NET_EVERYONE);
811 begin
812 NetOut.Write(Byte(NET_MSG_GFX));
813 NetOut.Write(Kind);
814 NetOut.Write(X);
815 NetOut.Write(Y);
816 NetOut.Write(Ang);
817
818 g_Net_Host_Send(ID, False, NET_CHAN_GAME);
819 end;
820
821 procedure MH_SEND_Sound(X, Y: Integer; Name: string; Pos: Boolean = True; ID: Integer = NET_EVERYONE);
822 begin
823 NetOut.Write(Byte(NET_MSG_SND));
824 NetOut.Write(Name);
825 if Pos then
826 begin
827 NetOut.Write(Byte(1));
828 NetOut.Write(X);
829 NetOut.Write(Y);
830 end
831 else
832 NetOut.Write(Byte(0));
833
834 g_Net_Host_Send(ID, False, NET_CHAN_GAME);
835 end;
836
837 procedure MH_SEND_CreateShot(Proj: LongInt; ID: Integer = NET_EVERYONE);
838 begin
839 if (Shots = nil) or (Proj < 0) or (Proj > High(Shots)) then Exit;
840
841 NetOut.Write(Byte(NET_MSG_SHADD));
842 NetOut.Write(Proj);
843 NetOut.Write(Shots[Proj].ShotType);
844 NetOut.Write(Shots[Proj].Target);
845 NetOut.Write(Shots[Proj].SpawnerUID);
846 NetOut.Write(Shots[Proj].Timeout);
847 NetOut.Write(Shots[Proj].Obj.X);
848 NetOut.Write(Shots[Proj].Obj.Y);
849 NetOut.Write(Shots[Proj].Obj.Vel.X);
850 NetOut.Write(Shots[Proj].Obj.Vel.Y);
851
852 g_Net_Host_Send(ID, True, NET_CHAN_SHOTS);
853 end;
854
855 procedure MH_SEND_UpdateShot(Proj: LongInt; ID: Integer = NET_EVERYONE);
856 begin
857 if (Shots = nil) or (Proj < 0) or (Proj > High(Shots)) then Exit;
858
859 NetOut.Write(Byte(NET_MSG_SHPOS));
860 NetOut.Write(Proj);
861 NetOut.Write(Shots[Proj].Obj.X);
862 NetOut.Write(Shots[Proj].Obj.Y);
863 NetOut.Write(Shots[Proj].Obj.Vel.X);
864 NetOut.Write(Shots[Proj].Obj.Vel.Y);
865
866 g_Net_Host_Send(ID, False, NET_CHAN_SHOTS);
867 end;
868
869 procedure MH_Send_DeleteShot(Proj: LongInt; X, Y: LongInt; Loud: Boolean = True; ID: Integer = NET_EVERYONE);
870 begin
871 NetOut.Write(Byte(NET_MSG_SHDEL));
872 NetOut.Write(Proj);
873 NetOut.Write(Byte(Loud));
874 NetOut.Write(X);
875 NetOut.Write(Y);
876
877 g_Net_Host_Send(ID, True, NET_CHAN_SHOTS);
878 end;
879
880 procedure MH_SEND_GameStats(ID: Integer = NET_EVERYONE);
881 begin
882 NetOut.Write(Byte(NET_MSG_SCORE));
883 if gGameSettings.GameMode in [GM_TDM, GM_CTF] then
884 begin
885 NetOut.Write(gTeamStat[TEAM_RED].Goals);
886 NetOut.Write(gTeamStat[TEAM_BLUE].Goals);
887 end
888 else
889 if gGameSettings.GameMode = GM_COOP then
890 begin
891 NetOut.Write(gCoopMonstersKilled);
892 NetOut.Write(gCoopSecretsFound);
893 end;
894
895 g_Net_Host_Send(ID, True, NET_CHAN_IMPORTANT);
896 end;
897
898 procedure MH_SEND_CoopStats(ID: Integer = NET_EVERYONE);
899 begin
900 NetOut.Write(Byte(NET_MSG_COOP));
901 NetOut.Write(gTotalMonsters);
902 NetOut.Write(gSecretsCount);
903 NetOut.Write(gCoopTotalMonstersKilled);
904 NetOut.Write(gCoopTotalSecretsFound);
905 NetOut.Write(gCoopTotalMonsters);
906 NetOut.Write(gCoopTotalSecrets);
907 end;
908
909 procedure MH_SEND_GameEvent(EvType: Byte; EvNum: Integer = 0; EvStr: string = 'N'; ID: Integer = NET_EVERYONE);
910 begin
911 NetOut.Write(Byte(NET_MSG_GEVENT));
912 NetOut.Write(EvType);
913 NetOut.Write(EvNum);
914 NetOut.Write(EvStr);
915 NetOut.Write(Byte(gLastMap));
916 NetOut.Write(gTime);
917 if (EvType = NET_EV_MAPSTART) and isWadPath(EvStr) then
918 begin
919 NetOut.Write(Byte(1));
920 NetOut.Write(gWADHash);
921 end else
922 NetOut.Write(Byte(0));
923
924 g_Net_Host_Send(ID, True, NET_CHAN_SERVICE);
925 end;
926
927 procedure MH_SEND_FlagEvent(EvType: Byte; Flag: Byte; PID: Word; Quiet: Boolean = False; ID: Integer = NET_EVERYONE);
928 begin
929 NetOut.Write(Byte(NET_MSG_FLAG));
930 NetOut.Write(EvType);
931 NetOut.Write(Flag);
932 NetOut.Write(Byte(Quiet));
933 NetOut.Write(PID);
934 NetOut.Write(gFlags[Flag].State);
935 NetOut.Write(gFlags[Flag].CaptureTime);
936 NetOut.Write(gFlags[Flag].Obj.X);
937 NetOut.Write(gFlags[Flag].Obj.Y);
938 NetOut.Write(gFlags[Flag].Obj.Vel.X);
939 NetOut.Write(gFlags[Flag].Obj.Vel.Y);
940
941 g_Net_Host_Send(ID, True, NET_CHAN_IMPORTANT);
942 end;
943
944 procedure MH_SEND_GameSettings(ID: Integer = NET_EVERYONE);
945 begin
946 NetOut.Write(Byte(NET_MSG_GSET));
947 NetOut.Write(gGameSettings.GameMode);
948 NetOut.Write(gGameSettings.GoalLimit);
949 NetOut.Write(gGameSettings.TimeLimit);
950 NetOut.Write(gGameSettings.MaxLives);
951 NetOut.Write(gGameSettings.Options);
952
953 g_Net_Host_Send(ID, True, NET_CHAN_IMPORTANT);
954 end;
955
956 // PLAYER (SEND)
957
958 procedure MH_SEND_PlayerCreate(PID: Word; ID: Integer = NET_EVERYONE);
959 var
960 P: TPlayer;
961 begin
962 P := g_Player_Get(PID);
963 if P = nil then Exit;
964
965 NetOut.Write(Byte(NET_MSG_PLR));
966 NetOut.Write(PID);
967 NetOut.Write(P.Name);
968
969 NetOut.Write(P.FActualModelName);
970 NetOut.Write(P.FColor.R);
971 NetOut.Write(P.FColor.G);
972 NetOut.Write(P.FColor.B);
973 NetOut.Write(P.Team);
974
975 g_Net_Host_Send(ID, True, NET_CHAN_IMPORTANT)
976 end;
977
978 procedure MH_SEND_PlayerPos(Reliable: Boolean; PID: Word; ID: Integer = NET_EVERYONE);
979 var
980 kByte: Word;
981 Pl: TPlayer;
982 begin
983 Pl := g_Player_Get(PID);
984 if Pl = nil then Exit;
985 if Pl.FDummy then Exit;
986
987 NetOut.Write(Byte(NET_MSG_PLRPOS));
988 NetOut.Write(gTime);
989 NetOut.Write(PID);
990
991 kByte := 0;
992
993 with Pl do
994 begin
995 NetOut.Write(FPing);
996 NetOut.Write(FLoss);
997 if IsKeyPressed(KEY_CHAT) then
998 kByte := NET_KEY_CHAT
999 else
1000 begin
1001 if IsKeyPressed(KEY_LEFT) then kByte := kByte or NET_KEY_LEFT;
1002 if IsKeyPressed(KEY_RIGHT) then kByte := kByte or NET_KEY_RIGHT;
1003 if IsKeyPressed(KEY_UP) then kByte := kByte or NET_KEY_UP;
1004 if IsKeyPressed(KEY_DOWN) then kByte := kByte or NET_KEY_DOWN;
1005 if IsKeyPressed(KEY_JUMP) then kByte := kByte or NET_KEY_JUMP;
1006 if JustTeleported then kByte := kByte or NET_KEY_FORCEDIR;
1007 end;
1008
1009 NetOut.Write(kByte);
1010 if Direction = TDirection.D_LEFT then NetOut.Write(Byte(0)) else NetOut.Write(Byte(1));
1011 NetOut.Write(GameX);
1012 NetOut.Write(GameY);
1013 NetOut.Write(GameVelX);
1014 NetOut.Write(GameVelY);
1015 NetOut.Write(GameAccelX);
1016 NetOut.Write(GameAccelY);
1017 end;
1018
1019 g_Net_Host_Send(ID, Reliable, NET_CHAN_PLAYERPOS);
1020 end;
1021
1022 procedure MH_SEND_PlayerStats(PID: Word; ID: Integer = NET_EVERYONE);
1023 var
1024 P: TPlayer;
1025 I: Integer;
1026 begin
1027 P := g_Player_Get(PID);
1028 if P = nil then Exit;
1029
1030 NetOut.Write(Byte(NET_MSG_PLRSTA));
1031 NetOut.Write(PID);
1032
1033 with P do
1034 begin
1035 NetOut.Write(Byte(alive));
1036 NetOut.Write(Byte(GodMode));
1037 NetOut.Write(Health);
1038 NetOut.Write(Armor);
1039 NetOut.Write(Air);
1040 NetOut.Write(JetFuel);
1041 NetOut.Write(Lives);
1042 NetOut.Write(Team);
1043
1044 for I := WP_FIRST to WP_LAST do
1045 NetOut.Write(Byte(FWeapon[I]));
1046
1047 for I := A_BULLETS to A_HIGH do
1048 NetOut.Write(FAmmo[I]);
1049
1050 for I := A_BULLETS to A_HIGH do
1051 NetOut.Write(FMaxAmmo[I]);
1052
1053 for I := MR_SUIT to MR_MAX do
1054 NetOut.Write(LongWord(FMegaRulez[I]));
1055
1056 NetOut.Write(Byte(R_ITEM_BACKPACK in FRulez));
1057 NetOut.Write(Byte(R_KEY_RED in FRulez));
1058 NetOut.Write(Byte(R_KEY_GREEN in FRulez));
1059 NetOut.Write(Byte(R_KEY_BLUE in FRulez));
1060 NetOut.Write(Byte(R_BERSERK in FRulez));
1061
1062 NetOut.Write(Frags);
1063 NetOut.Write(Death);
1064
1065 NetOut.Write(CurrWeap);
1066
1067 NetOut.Write(Byte(FSpectator));
1068 NetOut.Write(Byte(FGhost));
1069 NetOut.Write(Byte(FPhysics));
1070 NetOut.Write(Byte(FNoRespawn));
1071 NetOut.Write(Byte(FJetpack));
1072 NetOut.Write(FFireTime);
1073 NetOut.Write(Byte(FFlaming));
1074 end;
1075
1076 g_Net_Host_Send(ID, True, NET_CHAN_PLAYER);
1077 end;
1078
1079 procedure MH_SEND_PlayerDamage(PID: Word; Kind: Byte; Attacker, Value: Word; VX, VY: Integer; ID: Integer = NET_EVERYONE);
1080 begin
1081 NetOut.Write(Byte(NET_MSG_PLRDMG));
1082 NetOut.Write(PID);
1083 NetOut.Write(Kind);
1084 NetOut.Write(Attacker);
1085 NetOut.Write(Value);
1086 NetOut.Write(VX);
1087 NetOut.Write(VY);
1088
1089 g_Net_Host_Send(ID, False, NET_CHAN_PLAYER);
1090 end;
1091
1092 procedure MH_SEND_PlayerDeath(PID: Word; KillType, DeathType: Byte; Attacker: Word; ID: Integer = NET_EVERYONE);
1093 begin
1094 NetOut.Write(Byte(NET_MSG_PLRDIE));
1095 NetOut.Write(PID);
1096 NetOut.Write(KillType);
1097 NetOut.Write(DeathType);
1098 NetOut.Write(Attacker);
1099
1100 g_Net_Host_Send(ID, True, NET_CHAN_PLAYER);
1101 end;
1102
1103 procedure MH_SEND_PlayerFire(PID: Word; Weapon: Byte; X, Y, AX, AY: Integer; ShotID: Integer = -1; ID: Integer = NET_EVERYONE);
1104 begin
1105 NetOut.Write(Byte(NET_MSG_PLRFIRE));
1106 NetOut.Write(PID);
1107 NetOut.Write(Weapon);
1108 NetOut.Write(X);
1109 NetOut.Write(Y);
1110 NetOut.Write(AX);
1111 NetOut.Write(AY);
1112 NetOut.Write(ShotID);
1113
1114 g_Net_Host_Send(ID, True, NET_CHAN_SHOTS);
1115 end;
1116
1117 procedure MH_SEND_PlayerDelete(PID: Word; ID: Integer = NET_EVERYONE);
1118 begin
1119 NetOut.Write(Byte(NET_MSG_PLRDEL));
1120 NetOut.Write(PID);
1121
1122 g_Net_Host_Send(ID, True, NET_CHAN_IMPORTANT);
1123 end;
1124
1125 procedure MH_SEND_PlayerSettings(PID: Word; Mdl: string = ''; ID: Integer = NET_EVERYONE);
1126 var
1127 Pl: TPlayer;
1128 begin
1129 Pl := g_Player_Get(PID);
1130 if Pl = nil then Exit;
1131
1132 NetOut.Write(Byte(NET_MSG_PLRSET));
1133 NetOut.Write(PID);
1134 NetOut.Write(Pl.Name);
1135 if Mdl = '' then
1136 NetOut.Write(Pl.Model.Name)
1137 else
1138 NetOut.Write(Mdl);
1139 NetOut.Write(Pl.FColor.R);
1140 NetOut.Write(Pl.FColor.G);
1141 NetOut.Write(Pl.FColor.B);
1142 NetOut.Write(Pl.Team);
1143
1144 g_Net_Host_Send(ID, True, NET_CHAN_IMPORTANT);
1145 end;
1146
1147 // ITEM (SEND)
1148
1149 procedure MH_SEND_ItemSpawn(Quiet: Boolean; IID: Word; ID: Integer = NET_EVERYONE);
1150 var
1151 it: PItem;
1152 tt: Byte;
1153 begin
1154 it := g_Items_ByIdx(IID);
1155
1156 NetOut.Write(Byte(NET_MSG_ISPAWN));
1157 NetOut.Write(IID);
1158 NetOut.Write(Byte(Quiet));
1159 tt := it.ItemType;
1160 if it.dropped then tt := tt or $80;
1161 NetOut.Write(tt);
1162 NetOut.Write(Byte(it.Fall));
1163 NetOut.Write(Byte(it.Respawnable));
1164 NetOut.Write(it.Obj.X);
1165 NetOut.Write(it.Obj.Y);
1166 NetOut.Write(it.Obj.Vel.X);
1167 NetOut.Write(it.Obj.Vel.Y);
1168
1169 g_Net_Host_Send(ID, True, NET_CHAN_LARGEDATA);
1170 end;
1171
1172 procedure MH_SEND_ItemDestroy(Quiet: Boolean; IID: Word; ID: Integer = NET_EVERYONE);
1173 begin
1174 NetOut.Write(Byte(NET_MSG_IDEL));
1175 NetOut.Write(IID);
1176 NetOut.Write(Byte(Quiet));
1177
1178 g_Net_Host_Send(ID, True, NET_CHAN_LARGEDATA);
1179 end;
1180
1181 // PANEL
1182
1183 procedure MH_SEND_PanelTexture(PGUID: Integer; AnimLoop: Byte; ID: Integer = NET_EVERYONE);
1184 var
1185 TP: TPanel;
1186 begin
1187 TP := g_Map_PanelByGUID(PGUID);
1188 if (TP = nil) then exit;
1189
1190 with TP do
1191 begin
1192 NetOut.Write(Byte(NET_MSG_PTEX));
1193 NetOut.Write(LongWord(PGUID));
1194 NetOut.Write(FCurTexture);
1195 NetOut.Write(FCurFrame);
1196 NetOut.Write(FCurFrameCount);
1197 NetOut.Write(AnimLoop);
1198 end;
1199
1200 g_Net_Host_Send(ID, True, NET_CHAN_LARGEDATA);
1201 end;
1202
1203 procedure MH_SEND_PanelState(PGUID: Integer; ID: Integer = NET_EVERYONE);
1204 var
1205 TP: TPanel;
1206 mpflags: Byte = 0;
1207 begin
1208 TP := g_Map_PanelByGUID(PGUID);
1209 if (TP = nil) then exit;
1210
1211 NetOut.Write(Byte(NET_MSG_PSTATE));
1212 NetOut.Write(LongWord(PGUID));
1213 NetOut.Write(Byte(TP.Enabled));
1214 NetOut.Write(TP.LiftType);
1215 NetOut.Write(TP.X);
1216 NetOut.Write(TP.Y);
1217 NetOut.Write(Word(TP.Width));
1218 NetOut.Write(Word(TP.Height));
1219 // mplats
1220 NetOut.Write(LongInt(TP.movingSpeedX));
1221 NetOut.Write(LongInt(TP.movingSpeedY));
1222 NetOut.Write(LongInt(TP.movingStartX));
1223 NetOut.Write(LongInt(TP.movingStartY));
1224 NetOut.Write(LongInt(TP.movingEndX));
1225 NetOut.Write(LongInt(TP.movingEndY));
1226 NetOut.Write(LongInt(TP.sizeSpeedX));
1227 NetOut.Write(LongInt(TP.sizeSpeedY));
1228 NetOut.Write(LongInt(TP.sizeEndX));
1229 NetOut.Write(LongInt(TP.sizeEndY));
1230 if TP.movingActive then mpflags := mpflags or 1;
1231 if TP.moveOnce then mpflags := mpflags or 2;
1232 NetOut.Write(Byte(mpflags));
1233
1234 g_Net_Host_Send(ID, True, NET_CHAN_LARGEDATA);
1235 end;
1236
1237 // TRIGGER
1238
1239 procedure MH_SEND_TriggerSound(var T: TTrigger; ID: Integer = NET_EVERYONE);
1240 begin
1241 if gTriggers = nil then Exit;
1242 if T.Sound = nil then Exit;
1243
1244 NetOut.Write(Byte(NET_MSG_TSOUND));
1245 NetOut.Write(T.ClientID);
1246 NetOut.Write(Byte(T.Sound.IsPlaying));
1247 NetOut.Write(LongWord(T.Sound.GetPosition));
1248 NetOut.Write(T.SoundPlayCount);
1249
1250 g_Net_Host_Send(ID, True);
1251 end;
1252
1253 procedure MH_SEND_TriggerMusic(ID: Integer = NET_EVERYONE);
1254 begin
1255 NetOut.Write(Byte(NET_MSG_TMUSIC));
1256 NetOut.Write(gMusic.Name);
1257 NetOut.Write(Byte(gMusic.IsPlaying));
1258 NetOut.Write(LongWord(gMusic.GetPosition));
1259 NetOut.Write(Byte(gMusic.SpecPause or gMusic.IsPaused));
1260
1261 g_Net_Host_Send(ID, True);
1262 end;
1263
1264 // MONSTER
1265
1266 procedure MH_SEND_MonsterSpawn(UID: Word; ID: Integer = NET_EVERYONE);
1267 var
1268 M: TMonster;
1269 begin
1270 M := g_Monsters_ByUID(UID);
1271 if M = nil then
1272 Exit;
1273
1274 with M do
1275 begin
1276 NetOut.Write(Byte(NET_MSG_MSPAWN));
1277 NetOut.Write(UID);
1278 NetOut.Write(MonsterType);
1279 NetOut.Write(MonsterState);
1280 NetOut.Write(MonsterAnim);
1281 NetOut.Write(MonsterTargetUID);
1282 NetOut.Write(MonsterTargetTime);
1283 NetOut.Write(MonsterBehaviour);
1284 NetOut.Write(MonsterSleep);
1285 NetOut.Write(MonsterHealth);
1286 NetOut.Write(MonsterAmmo);
1287 NetOut.Write(GameX);
1288 NetOut.Write(GameY);
1289 NetOut.Write(GameVelX);
1290 NetOut.Write(GameVelY);
1291 NetOut.Write(Byte(GameDirection));
1292 end;
1293
1294 g_Net_Host_Send(ID, True, NET_CHAN_LARGEDATA);
1295 end;
1296
1297 procedure MH_SEND_MonsterPos(UID: Word; ID: Integer = NET_EVERYONE);
1298 var
1299 M: TMonster;
1300 begin
1301 M := g_Monsters_ByUID(UID);
1302 if M = nil then Exit;
1303
1304 NetOut.Write(Byte(NET_MSG_MPOS));
1305 NetOut.Write(UID);
1306
1307 with M do
1308 begin
1309 NetOut.Write(GameX);
1310 NetOut.Write(GameY);
1311 NetOut.Write(GameVelX);
1312 NetOut.Write(GameVelY);
1313 NetOut.Write(Byte(GameDirection));
1314 end;
1315
1316 g_Net_Host_Send(ID, False, NET_CHAN_MONSTERPOS);
1317 end;
1318
1319 procedure MH_SEND_MonsterState(UID: Word; ForcedAnim: Byte = 255; ID: Integer = NET_EVERYONE);
1320 var
1321 M: TMonster;
1322 begin
1323 M := g_Monsters_ByUID(UID);
1324 if M = nil then Exit;
1325
1326 NetOut.Write(Byte(NET_MSG_MSTATE));
1327 NetOut.Write(UID);
1328
1329 with M do
1330 begin
1331 NetOut.Write(MonsterState);
1332 NetOut.Write(ForcedAnim);
1333 NetOut.Write(MonsterTargetUID);
1334 NetOut.Write(MonsterTargetTime);
1335 NetOut.Write(MonsterSleep);
1336 NetOut.Write(MonsterHealth);
1337 NetOut.Write(MonsterAmmo);
1338 NetOut.Write(MonsterPain);
1339 NetOut.Write(Byte(AnimIsReverse));
1340 NetOut.Write(FFireTime);
1341 end;
1342
1343 g_Net_Host_Send(ID, True, NET_CHAN_MONSTER);
1344 end;
1345
1346 procedure MH_SEND_MonsterShot(UID: Word; X, Y, VX, VY: Integer; ID: Integer = NET_EVERYONE);
1347 begin
1348 NetOut.Write(Byte(NET_MSG_MSHOT));
1349 NetOut.Write(UID);
1350 NetOut.Write(X);
1351 NetOut.Write(Y);
1352 NetOut.Write(VX);
1353 NetOut.Write(VY);
1354
1355 g_Net_Host_Send(ID, True, NET_CHAN_MONSTER);
1356 end;
1357
1358 procedure MH_SEND_MonsterDelete(UID: Word; ID: Integer = NET_EVERYONE);
1359 var
1360 M: TMonster;
1361 begin
1362 M := g_Monsters_ByUID(UID);
1363 if M = nil then Exit;
1364
1365 NetOut.Write(Byte(NET_MSG_MDEL));
1366 NetOut.Write(UID);
1367
1368 g_Net_Host_Send(ID, True, NET_CHAN_LARGEDATA);
1369 end;
1370
1371 // MISC
1372
1373 procedure MH_SEND_TimeSync(Time: LongWord; ID: Integer = NET_EVERYONE);
1374 begin
1375 NetOut.Write(Byte(NET_MSG_TIME_SYNC));
1376 NetOut.Write(Time);
1377
1378 g_Net_Host_Send(ID, False, NET_CHAN_SERVICE);
1379 end;
1380
1381 procedure MH_SEND_VoteEvent(EvType: Byte;
1382 StrArg1: string = 'a'; StrArg2: string = 'b';
1383 IntArg1: SmallInt = 0; IntArg2: SmallInt = 0;
1384 ID: Integer = NET_EVERYONE);
1385 begin
1386 NetOut.Write(Byte(NET_MSG_VOTE_EVENT));
1387 NetOut.Write(EvType);
1388 NetOut.Write(IntArg1);
1389 NetOut.Write(IntArg2);
1390 NetOut.Write(StrArg1);
1391 NetOut.Write(StrArg2);
1392
1393 g_Net_Host_Send(ID, True, NET_CHAN_IMPORTANT);
1394 end;
1395
1396 // CLIENT MESSAGES //
1397
1398 // GAME
1399
1400 procedure MC_RECV_Chat(var M: TMsg);
1401 var
1402 Txt: string;
1403 Mode: Byte;
1404 begin
1405 Txt := M.ReadString();
1406 Mode := M.ReadByte();
1407
1408 if Mode <> NET_CHAT_SYSTEM then
1409 begin
1410 if Mode = NET_CHAT_PLAYER then
1411 begin
1412 g_Console_Add(Txt, True);
1413 e_WriteLog('[Chat] ' + b_Text_Unformat(Txt), TMsgType.Notify);
1414 g_Game_ChatSound(b_Text_Unformat(Txt));
1415 end else
1416 if (Mode = NET_CHAT_TEAM) and (gPlayer1 <> nil) then
1417 begin
1418 if gPlayer1.Team = TEAM_RED then
1419 g_Console_Add(b_Text_Format('\r[Team] ') + Txt, True);
1420 if gPlayer1.Team = TEAM_BLUE then
1421 g_Console_Add(b_Text_Format('\b[Team] ') + Txt, True);
1422 e_WriteLog('[Team Chat] ' + b_Text_Unformat(Txt), TMsgType.Notify);
1423 g_Game_ChatSound(b_Text_Unformat(Txt));
1424 end;
1425 end else
1426 g_Console_Add(Txt, True);
1427 end;
1428
1429 procedure MC_RECV_Effect(var M: TMsg);
1430 var
1431 Kind: Byte;
1432 X, Y: Integer;
1433 Ang: SmallInt;
1434 Anim: TAnimation;
1435 ID: LongWord;
1436 begin
1437 if not gGameOn then Exit;
1438 Kind := M.ReadByte();
1439 X := M.ReadLongInt();
1440 Y := M.ReadLongInt();
1441 Ang := M.ReadSmallInt();
1442
1443 case Kind of
1444 NET_GFX_SPARK:
1445 g_GFX_Spark(X, Y, 2 + Random(2), Ang, 0, 0);
1446
1447 NET_GFX_TELE:
1448 begin
1449 if g_Frames_Get(ID, 'FRAMES_TELEPORT') then
1450 begin
1451 Anim := TAnimation.Create(ID, False, 3);
1452 g_GFX_OnceAnim(X, Y, Anim);
1453 Anim.Free();
1454 end;
1455 if Ang = 1 then
1456 g_Sound_PlayExAt('SOUND_GAME_TELEPORT', X, Y);
1457 end;
1458
1459 NET_GFX_EXPLODE:
1460 begin
1461 if g_Frames_Get(ID, 'FRAMES_EXPLODE_ROCKET') then
1462 begin
1463 Anim := TAnimation.Create(ID, False, 6);
1464 Anim.Blending := False;
1465 g_GFX_OnceAnim(X-64, Y-64, Anim);
1466 Anim.Free();
1467 end;
1468 if Ang = 1 then
1469 g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEROCKET', X, Y);
1470 end;
1471
1472 NET_GFX_BFGEXPL:
1473 begin
1474 if g_Frames_Get(ID, 'FRAMES_EXPLODE_BFG') then
1475 begin
1476 Anim := TAnimation.Create(ID, False, 6);
1477 Anim.Blending := False;
1478 g_GFX_OnceAnim(X-64, Y-64, Anim);
1479 Anim.Free();
1480 end;
1481 if Ang = 1 then
1482 g_Sound_PlayExAt('SOUND_WEAPON_EXPLODEBFG', X, Y);
1483 end;
1484
1485 NET_GFX_BFGHIT:
1486 begin
1487 if g_Frames_Get(ID, 'FRAMES_BFGHIT') then
1488 begin
1489 Anim := TAnimation.Create(ID, False, 4);
1490 g_GFX_OnceAnim(X-32, Y-32, Anim);
1491 Anim.Free();
1492 end;
1493 end;
1494
1495 NET_GFX_FIRE:
1496 begin
1497 if g_Frames_Get(ID, 'FRAMES_FIRE') then
1498 begin
1499 Anim := TAnimation.Create(ID, False, 4);
1500 g_GFX_OnceAnim(X, Y, Anim);
1501 Anim.Free();
1502 end;
1503 if Ang = 1 then
1504 g_Sound_PlayExAt('SOUND_FIRE', X, Y);
1505 end;
1506
1507 NET_GFX_RESPAWN:
1508 begin
1509 if g_Frames_Get(ID, 'FRAMES_ITEM_RESPAWN') then
1510 begin
1511 Anim := TAnimation.Create(ID, False, 4);
1512 g_GFX_OnceAnim(X, Y, Anim);
1513 Anim.Free();
1514 end;
1515 if Ang = 1 then
1516 g_Sound_PlayExAt('SOUND_ITEM_RESPAWNITEM', X, Y);
1517 end;
1518
1519 NET_GFX_SHELL1:
1520 g_Player_CreateShell(X, Y, 0, -2, SHELL_BULLET);
1521
1522 NET_GFX_SHELL2:
1523 g_Player_CreateShell(X, Y, 0, -2, SHELL_SHELL);
1524
1525 NET_GFX_SHELL3:
1526 begin
1527 g_Player_CreateShell(X, Y, 0, -2, SHELL_SHELL);
1528 g_Player_CreateShell(X, Y, 0, -2, SHELL_SHELL);
1529 end;
1530 end;
1531 end;
1532
1533 procedure MC_RECV_Sound(var M: TMsg);
1534 var
1535 Name: string;
1536 X, Y: Integer;
1537 Pos: Boolean;
1538 begin
1539 Name := M.ReadString();
1540 Pos := M.ReadByte() <> 0;
1541 if Pos then
1542 begin
1543 X := M.ReadLongInt();
1544 Y := M.ReadLongInt();
1545 g_Sound_PlayExAt(Name, X, Y);
1546 end
1547 else
1548 g_Sound_PlayEx(Name);
1549 end;
1550
1551 procedure MC_RECV_CreateShot(var M: TMsg);
1552 var
1553 I, X, Y, XV, YV: Integer;
1554 Timeout: LongWord;
1555 Target, Spawner: Word;
1556 ShType: Byte;
1557 begin
1558 I := M.ReadLongInt();
1559 ShType := M.ReadByte();
1560 Target := M.ReadWord();
1561 Spawner := M.ReadWord();
1562 Timeout := M.ReadLongWord();
1563 X := M.ReadLongInt();
1564 Y := M.ReadLongInt();
1565 XV := M.ReadLongInt();
1566 YV := M.ReadLongInt();
1567
1568 I := g_Weapon_CreateShot(I, ShType, Spawner, Target, X, Y, XV, YV);
1569 if (Shots <> nil) and (I <= High(Shots)) then
1570 begin
1571 Shots[I].Timeout := Timeout;
1572 //Shots[I].Target := Target; // TODO: find a use for Target later
1573 end;
1574 end;
1575
1576 procedure MC_RECV_UpdateShot(var M: TMsg);
1577 var
1578 I, TX, TY, TXV, TYV: Integer;
1579 begin
1580 I := M.ReadLongInt();
1581 TX := M.ReadLongInt();
1582 TY := M.ReadLongInt();
1583 TXV := M.ReadLongInt();
1584 TYV := M.ReadLongInt();
1585
1586 if (Shots <> nil) and (I <= High(Shots)) then
1587 with (Shots[i]) do
1588 begin
1589 Obj.X := TX;
1590 Obj.Y := TY;
1591 Obj.Vel.X := TXV;
1592 Obj.Vel.Y := TYV;
1593 end;
1594 end;
1595
1596 procedure MC_RECV_DeleteShot(var M: TMsg);
1597 var
1598 I, X, Y: Integer;
1599 L: Boolean;
1600 begin
1601 if not gGameOn then Exit;
1602 I := M.ReadLongInt();
1603 L := (M.ReadByte() <> 0);
1604 X := M.ReadLongInt();
1605 Y := M.ReadLongInt();
1606
1607 g_Weapon_DestroyShot(I, X, Y, L);
1608 end;
1609
1610 procedure MC_RECV_GameStats(var M: TMsg);
1611 begin
1612 if gGameSettings.GameMode in [GM_TDM, GM_CTF] then
1613 begin
1614 gTeamStat[TEAM_RED].Goals := M.ReadSmallInt();
1615 gTeamStat[TEAM_BLUE].Goals := M.ReadSmallInt();
1616 end
1617 else
1618 if gGameSettings.GameMode = GM_COOP then
1619 begin
1620 gCoopMonstersKilled := M.ReadWord();
1621 gCoopSecretsFound := M.ReadWord();
1622 end;
1623 end;
1624
1625 procedure MC_RECV_CoopStats(var M: TMsg);
1626 begin
1627 gTotalMonsters := M.ReadLongInt();
1628 gSecretsCount := M.ReadLongInt();
1629 gCoopTotalMonstersKilled := M.ReadWord();
1630 gCoopTotalSecretsFound := M.ReadWord();
1631 gCoopTotalMonsters := M.ReadWord();
1632 gCoopTotalSecrets := M.ReadWord();
1633 end;
1634
1635 procedure MC_RECV_GameEvent(var M: TMsg);
1636 var
1637 EvType: Byte;
1638 EvNum: Integer;
1639 EvStr: string;
1640 EvTime: LongWord;
1641 BHash: Boolean;
1642 EvHash: TMD5Digest;
1643 pl: TPlayer;
1644 i1, i2: TStrings_Locale;
1645 pln: String;
1646 cnt: Byte;
1647 begin
1648 FillChar(EvHash, Sizeof(EvHash), 0);
1649 EvType := M.ReadByte();
1650 EvNum := M.ReadLongInt();
1651 EvStr := M.ReadString();
1652 gLastMap := M.ReadByte() <> 0;
1653 if gLastMap and (gGameSettings.GameMode = GM_COOP) then gStatsOff := True;
1654 gStatsPressed := True;
1655 EvTime := M.ReadLongWord();
1656 BHash := M.ReadByte() <> 0;
1657 if BHash then
1658 EvHash := M.ReadMD5();
1659
1660 gTime := EvTime;
1661
1662 case EvType of
1663 NET_EV_MAPSTART:
1664 begin
1665 gGameOn := False;
1666 g_Game_ClearLoading();
1667 g_Game_StopAllSounds(True);
1668
1669 gSwitchGameMode := Byte(EvNum);
1670 gGameSettings.GameMode := gSwitchGameMode;
1671
1672 gWADHash := EvHash;
1673 if not g_Game_StartMap(EvStr, True) then
1674 begin
1675 if not isWadPath(EvStr) then
1676 g_FatalError(Format(_lc[I_GAME_ERROR_MAP_LOAD], [gGameSettings.WAD + ':\' + EvStr]))
1677 else
1678 g_FatalError(Format(_lc[I_GAME_ERROR_MAP_LOAD], [EvStr]));
1679 Exit;
1680 end;
1681
1682 MC_SEND_FullStateRequest;
1683 end;
1684
1685 NET_EV_MAPEND:
1686 begin
1687 gMissionFailed := EvNum <> 0;
1688 gExit := EXIT_ENDLEVELCUSTOM;
1689 end;
1690
1691 NET_EV_RCON:
1692 begin
1693 case EvNum of
1694 NET_RCON_NOAUTH:
1695 g_Console_Add(_lc[I_NET_RCON_NOAUTH], True);
1696 NET_RCON_PWGOOD:
1697 g_Console_Add(_lc[I_NET_RCON_PWD_VALID], True);
1698 NET_RCON_PWBAD:
1699 g_Console_Add(_lc[I_NET_RCON_PWD_INVALID], True);
1700 end;
1701 end;
1702
1703 NET_EV_CHANGE_TEAM:
1704 begin
1705 if EvNum = TEAM_RED then
1706 g_Console_Add(Format(_lc[I_PLAYER_CHTEAM_RED], [EvStr]), True);
1707 if EvNum = TEAM_BLUE then
1708 g_Console_Add(Format(_lc[I_PLAYER_CHTEAM_BLUE], [EvStr]), True);
1709 end;
1710
1711 NET_EV_PLAYER_KICK:
1712 g_Console_Add(Format(_lc[I_PLAYER_KICK], [EvStr]), True);
1713
1714 NET_EV_PLAYER_BAN:
1715 g_Console_Add(Format(_lc[I_PLAYER_BAN], [EvStr]), True);
1716
1717 NET_EV_LMS_WARMUP:
1718 g_Console_Add(Format(_lc[I_MSG_WARMUP_START], [EvNum]), True);
1719
1720 NET_EV_LMS_SURVIVOR:
1721 g_Console_Add('*** ' + _lc[I_MESSAGE_LMS_SURVIVOR] + ' ***', True);
1722
1723 NET_EV_BIGTEXT:
1724 g_Game_Message(AnsiUpperCase(EvStr), Word(EvNum));
1725
1726 NET_EV_SCORE:
1727 begin
1728 pl := g_Player_Get(EvNum and $FFFF);
1729 if pl = nil then
1730 pln := '?'
1731 else
1732 pln := pl.Name;
1733 cnt := (EvNum shr 16) and $FF;
1734 if Pos('w', EvStr) = 0 then
1735 begin
1736 // Default score
1737 if Pos('t', EvStr) = 0 then
1738 begin
1739 // Player +/- score
1740 if Pos('-', EvStr) = 0 then
1741 begin
1742 if Pos('e', EvStr) = 0 then
1743 i1 := I_PLAYER_SCORE_ADD_OWN
1744 else
1745 i1 := I_PLAYER_SCORE_ADD_ENEMY;
1746 end else
1747 begin
1748 if Pos('e', EvStr) = 0 then
1749 i1 := I_PLAYER_SCORE_SUB_OWN
1750 else
1751 i1 := I_PLAYER_SCORE_SUB_ENEMY;
1752 end;
1753 // Which team
1754 if Pos('r', EvStr) > 0 then
1755 i2 := I_PLAYER_SCORE_TO_RED
1756 else
1757 i2 := I_PLAYER_SCORE_TO_BLUE;
1758 g_Console_Add(Format(_lc[i1], [pln, cnt, _lc[i2]]), True);
1759 end else
1760 begin
1761 // Team +/- score
1762 if Pos('-', EvStr) = 0 then
1763 i1 := I_PLAYER_SCORE_ADD_TEAM
1764 else
1765 i1 := I_PLAYER_SCORE_SUB_TEAM;
1766 // Which team
1767 if Pos('r', EvStr) > 0 then
1768 i2 := I_PLAYER_SCORE_RED
1769 else
1770 i2 := I_PLAYER_SCORE_BLUE;
1771 g_Console_Add(Format(_lc[i1], [_lc[i2], cnt]), True);
1772 end;
1773 end else
1774 begin
1775 // Game Win
1776 if Pos('e', EvStr) = 0 then
1777 i1 := I_PLAYER_SCORE_WIN_OWN
1778 else
1779 i1 := I_PLAYER_SCORE_WIN_ENEMY;
1780 // Which team
1781 if Pos('r', EvStr) > 0 then
1782 i2 := I_PLAYER_SCORE_TO_RED
1783 else
1784 i2 := I_PLAYER_SCORE_TO_BLUE;
1785 g_Console_Add(Format(_lc[i1], [pln, _lc[i2]]), True);
1786 end;
1787 end;
1788
1789 NET_EV_SCORE_MSG:
1790 begin
1791 if EvNum = TEAM_RED then
1792 g_Game_Message(Format(_lc[I_MESSAGE_SCORE_ADD], [AnsiUpperCase(_lc[I_GAME_TEAM_RED])]), 108);
1793 if EvNum = TEAM_BLUE then
1794 g_Game_Message(Format(_lc[I_MESSAGE_SCORE_ADD], [AnsiUpperCase(_lc[I_GAME_TEAM_BLUE])]), 108);
1795 if EvNum = -TEAM_RED then
1796 g_Game_Message(Format(_lc[I_MESSAGE_SCORE_SUB], [AnsiUpperCase(_lc[I_GAME_TEAM_RED])]), 108);
1797 if EvNum = -TEAM_BLUE then
1798 g_Game_Message(Format(_lc[I_MESSAGE_SCORE_SUB], [AnsiUpperCase(_lc[I_GAME_TEAM_BLUE])]), 108);
1799 end;
1800
1801 NET_EV_LMS_START:
1802 begin
1803 g_Player_RemoveAllCorpses;
1804 g_Game_Message(_lc[I_MESSAGE_LMS_START], 144);
1805 end;
1806
1807 NET_EV_LMS_WIN:
1808 g_Game_Message(Format(_lc[I_MESSAGE_LMS_WIN], [AnsiUpperCase(EvStr)]), 144);
1809
1810 NET_EV_TLMS_WIN:
1811 begin
1812 if EvNum = TEAM_RED then
1813 g_Game_Message(Format(_lc[I_MESSAGE_TLMS_WIN], [AnsiUpperCase(_lc[I_GAME_TEAM_RED])]), 144);
1814 if EvNum = TEAM_BLUE then
1815 g_Game_Message(Format(_lc[I_MESSAGE_TLMS_WIN], [AnsiUpperCase(_lc[I_GAME_TEAM_BLUE])]), 144);
1816 end;
1817
1818 NET_EV_LMS_LOSE:
1819 g_Game_Message(_lc[I_MESSAGE_LMS_LOSE], 144);
1820
1821 NET_EV_LMS_DRAW:
1822 g_Game_Message(_lc[I_GAME_WIN_DRAW], 144);
1823
1824 NET_EV_KILLCOMBO:
1825 g_Game_Announce_KillCombo(EvNum);
1826
1827 NET_EV_PLAYER_TOUCH:
1828 begin
1829 pl := g_Player_Get(EvNum);
1830 if pl <> nil then
1831 pl.Touch();
1832 end;
1833
1834 end;
1835 end;
1836
1837 procedure MC_RECV_FlagEvent(var M: TMsg);
1838 var
1839 PID: Word;
1840 Pl: TPlayer;
1841 EvType: Byte;
1842 Fl, a: Byte;
1843 Quiet: Boolean;
1844 s, ts: string;
1845 begin
1846 EvType := M.ReadByte();
1847 Fl := M.ReadByte();
1848
1849 if Fl = FLAG_NONE then Exit;
1850
1851 Quiet := (M.ReadByte() <> 0);
1852 PID := M.ReadWord();
1853
1854 gFlags[Fl].State := M.ReadByte();
1855 gFlags[Fl].CaptureTime := M.ReadLongWord();
1856 gFlags[Fl].Obj.X := M.ReadLongInt();
1857 gFlags[Fl].Obj.Y := M.ReadLongInt();
1858 gFlags[Fl].Obj.Vel.X := M.ReadLongInt();
1859 gFlags[Fl].Obj.Vel.Y := M.ReadLongInt();
1860
1861 Pl := g_Player_Get(PID);
1862 if (Pl = nil) and
1863 (EvType <> FLAG_STATE_NORMAL) and
1864 (EvType <> FLAG_STATE_DROPPED) and
1865 (EvType <> FLAG_STATE_RETURNED) then
1866 Exit;
1867
1868 case EvType of
1869 FLAG_STATE_NORMAL:
1870 begin
1871 if Quiet or (Pl = nil) then Exit;
1872
1873 if Fl = FLAG_RED then
1874 s := _lc[I_PLAYER_FLAG_RED]
1875 else
1876 s := _lc[I_PLAYER_FLAG_BLUE];
1877
1878 g_Game_Message(Format(_lc[I_MESSAGE_FLAG_RETURN], [AnsiUpperCase(s)]), 144);
1879
1880 if ((Pl = gPlayer1) or (Pl = gPlayer2)
1881 or ((gPlayer1 <> nil) and (gPlayer1.Team = Pl.Team))
1882 or ((gPlayer2 <> nil) and (gPlayer2.Team = Pl.Team))) then
1883 a := 0
1884 else
1885 a := 1;
1886
1887 if not sound_ret_flag[a].IsPlaying() then
1888 sound_ret_flag[a].Play();
1889 end;
1890
1891 FLAG_STATE_CAPTURED:
1892 begin
1893 if (Pl <> nil) then Pl.SetFlag(Fl);
1894
1895 if Quiet then Exit;
1896
1897 if Fl = FLAG_RED then
1898 s := _lc[I_PLAYER_FLAG_RED]
1899 else
1900 s := _lc[I_PLAYER_FLAG_BLUE];
1901
1902 g_Console_Add(Format(_lc[I_PLAYER_FLAG_GET], [Pl.Name, s]), True);
1903 g_Game_Message(Format(_lc[I_MESSAGE_FLAG_GET], [AnsiUpperCase(s)]), 144);
1904
1905 if ((Pl = gPlayer1) or (Pl = gPlayer2)
1906 or ((gPlayer1 <> nil) and (gPlayer1.Team = Pl.Team))
1907 or ((gPlayer2 <> nil) and (gPlayer2.Team = Pl.Team))) then
1908 a := 0
1909 else
1910 a := 1;
1911
1912 if not sound_get_flag[a].IsPlaying() then
1913 sound_get_flag[a].Play();
1914 end;
1915
1916 FLAG_STATE_DROPPED:
1917 begin
1918 if (Pl <> nil) then Pl.SetFlag(FLAG_NONE);
1919
1920 if Quiet or (Pl = nil) then Exit;
1921
1922 if Fl = FLAG_RED then
1923 s := _lc[I_PLAYER_FLAG_RED]
1924 else
1925 s := _lc[I_PLAYER_FLAG_BLUE];
1926
1927 g_Console_Add(Format(_lc[I_PLAYER_FLAG_DROP], [Pl.Name, s]), True);
1928 g_Game_Message(Format(_lc[I_MESSAGE_FLAG_DROP], [AnsiUpperCase(s)]), 144);
1929
1930 if ((Pl = gPlayer1) or (Pl = gPlayer2)
1931 or ((gPlayer1 <> nil) and (gPlayer1.Team = Pl.Team))
1932 or ((gPlayer2 <> nil) and (gPlayer2.Team = Pl.Team))) then
1933 a := 0
1934 else
1935 a := 1;
1936
1937 if not sound_lost_flag[a].IsPlaying() then
1938 sound_lost_flag[a].Play();
1939 end;
1940
1941 FLAG_STATE_SCORED:
1942 begin
1943 g_Map_ResetFlag(FLAG_RED);
1944 g_Map_ResetFlag(FLAG_BLUE);
1945 if Quiet or (Pl = nil) then Exit;
1946 Pl.SetFlag(FLAG_NONE);
1947
1948 if Fl = FLAG_RED then
1949 s := _lc[I_PLAYER_FLAG_RED]
1950 else
1951 s := _lc[I_PLAYER_FLAG_BLUE];
1952
1953 ts := Format('%.4d', [gFlags[Fl].CaptureTime]);
1954 Insert('.', ts, Length(ts) + 1 - 3);
1955 g_Console_Add(Format(_lc[I_PLAYER_FLAG_CAPTURE], [Pl.Name, s, ts]), True);
1956 g_Game_Message(Format(_lc[I_MESSAGE_FLAG_CAPTURE], [AnsiUpperCase(s)]), 144);
1957
1958 if ((Pl = gPlayer1) or (Pl = gPlayer2)
1959 or ((gPlayer1 <> nil) and (gPlayer1.Team = Pl.Team))
1960 or ((gPlayer2 <> nil) and (gPlayer2.Team = Pl.Team))) then
1961 a := 0
1962 else
1963 a := 1;
1964
1965 if not sound_cap_flag[a].IsPlaying() then
1966 sound_cap_flag[a].Play();
1967 end;
1968
1969 FLAG_STATE_RETURNED:
1970 begin
1971 g_Map_ResetFlag(Fl);
1972 if Quiet then Exit;
1973
1974 if Fl = FLAG_RED then
1975 s := _lc[I_PLAYER_FLAG_RED]
1976 else
1977 s := _lc[I_PLAYER_FLAG_BLUE];
1978
1979 g_Game_Message(Format(_lc[I_MESSAGE_FLAG_RETURN], [AnsiUpperCase(s)]), 144);
1980
1981 if ((Pl = gPlayer1) or (Pl = gPlayer2)
1982 or ((gPlayer1 <> nil) and (gPlayer1.Team = Pl.Team))
1983 or ((gPlayer2 <> nil) and (gPlayer2.Team = Pl.Team))) then
1984 a := 0
1985 else
1986 a := 1;
1987
1988 if not sound_ret_flag[a].IsPlaying() then
1989 sound_ret_flag[a].Play();
1990 end;
1991 end;
1992 end;
1993
1994 procedure MC_RECV_GameSettings(var M: TMsg);
1995 begin
1996 gGameSettings.GameMode := M.ReadByte();
1997 gGameSettings.GoalLimit := M.ReadWord();
1998 gGameSettings.TimeLimit := M.ReadWord();
1999 gGameSettings.MaxLives := M.ReadByte();
2000 gGameSettings.Options := M.ReadLongWord();
2001 end;
2002
2003 // PLAYER
2004
2005 function MC_RECV_PlayerCreate(var M: TMsg): Word;
2006 var
2007 PID, DID: Word;
2008 PName, Model: string;
2009 Color: TRGB;
2010 T: Byte;
2011 Pl: TPlayer;
2012 begin
2013 PID := M.ReadWord();
2014 Pl := g_Player_Get(PID);
2015
2016 PName := M.ReadString();
2017 Model := M.ReadString();
2018 Color.R := M.ReadByte();
2019 Color.G := M.ReadByte();
2020 Color.B := M.ReadByte();
2021 T := M.ReadByte();
2022
2023 Result := 0;
2024 if (PID <> NetPlrUID1) and (PID <> NetPlrUID2) then
2025 begin
2026 if (Pl <> nil) then Exit;
2027 DID := g_Player_Create(Model, Color, T, False);
2028 with g_Player_Get(DID) do
2029 begin
2030 UID := PID;
2031 Name := PName;
2032 Reset(True);
2033 end;
2034 end
2035 else
2036 begin
2037 if (PID = NetPlrUID1) and (gPlayer1 <> nil) then begin
2038 gPlayer1.UID := PID;
2039 gPlayer1.Model.SetColor(Color.R, Color.G, Color.B);
2040 gPlayer1.ChangeTeam(T);
2041 end;
2042 if (PID = NetPlrUID2) and (gPlayer2 <> nil) then begin
2043 gPlayer2.UID := PID;
2044 gPlayer2.Model.SetColor(Color.R, Color.G, Color.B);
2045 gPlayer2.ChangeTeam(T);
2046 end;
2047 end;
2048
2049 g_Console_Add(Format(_lc[I_PLAYER_JOIN], [PName]), True);
2050 e_WriteLog('NET: Player ' + PName + ' [' + IntToStr(PID) + '] added.', TMsgType.Notify);
2051 Result := PID;
2052 end;
2053
2054 function MC_RECV_PlayerPos(var M: TMsg): Word;
2055 var
2056 GT: LongWord;
2057 PID: Word;
2058 kByte: Word;
2059 Pl: TPlayer;
2060 Dir: Byte;
2061 TmpX, TmpY: Integer;
2062 begin
2063 Result := 0;
2064
2065 GT := M.ReadLongWord();
2066 if GT < gTime - NET_MAX_DIFFTIME then
2067 begin
2068 gTime := GT;
2069 Exit;
2070 end;
2071 gTime := GT;
2072
2073 PID := M.ReadWord();
2074 Pl := g_Player_Get(PID);
2075
2076 if Pl = nil then Exit;
2077
2078 Result := PID;
2079
2080 with Pl do
2081 begin
2082 FPing := M.ReadWord();
2083 FLoss := M.ReadByte();
2084 kByte := M.ReadWord();
2085 Dir := M.ReadByte();
2086
2087 TmpX := M.ReadLongInt();
2088 TmpY := M.ReadLongInt();
2089
2090 ReleaseKeys;
2091
2092 if (kByte = NET_KEY_CHAT) then
2093 PressKey(KEY_CHAT, 10000)
2094 else
2095 begin
2096 if LongBool(kByte and NET_KEY_LEFT) then PressKey(KEY_LEFT, 10000);
2097 if LongBool(kByte and NET_KEY_RIGHT) then PressKey(KEY_RIGHT, 10000);
2098 if LongBool(kByte and NET_KEY_UP) then PressKey(KEY_UP, 10000);
2099 if LongBool(kByte and NET_KEY_DOWN) then PressKey(KEY_DOWN, 10000);
2100 if LongBool(kByte and NET_KEY_JUMP) then PressKey(KEY_JUMP, 10000);
2101 end;
2102
2103 if ((Pl <> gPlayer1) and (Pl <> gPlayer2)) or LongBool(kByte and NET_KEY_FORCEDIR) then
2104 SetDirection(TDirection(Dir));
2105
2106 GameVelX := M.ReadLongInt();
2107 GameVelY := M.ReadLongInt();
2108 GameAccelX := M.ReadLongInt();
2109 GameAccelY := M.ReadLongInt();
2110 SetLerp(TmpX, TmpY);
2111 if NetForcePlayerUpdate then Update();
2112 end;
2113 end;
2114
2115 function MC_RECV_PlayerStats(var M: TMsg): Word;
2116 var
2117 PID: Word;
2118 Pl: TPlayer;
2119 I, OldFire: Integer;
2120 OldJet, Flam: Boolean;
2121 NewTeam: Byte;
2122 begin
2123 PID := M.ReadWord();
2124 Pl := g_Player_Get(PID);
2125 Result := 0;
2126 if Pl = nil then
2127 Exit;
2128
2129 with Pl do
2130 begin
2131 alive := (M.ReadByte() <> 0);
2132 GodMode := (M.ReadByte() <> 0);
2133 Health := M.ReadLongInt();
2134 Armor := M.ReadLongInt();
2135 Air := M.ReadLongInt();
2136 JetFuel := M.ReadLongInt();
2137 Lives := M.ReadByte();
2138 NewTeam := M.ReadByte();
2139
2140 for I := WP_FIRST to WP_LAST do
2141 FWeapon[I] := (M.ReadByte() <> 0);
2142
2143 for I := A_BULLETS to A_HIGH do
2144 FAmmo[I] := M.ReadWord();
2145
2146 for I := A_BULLETS to A_HIGH do
2147 FMaxAmmo[I] := M.ReadWord();
2148
2149 for I := MR_SUIT to MR_MAX do
2150 FMegaRulez[I] := M.ReadLongWord();
2151
2152 FRulez := [];
2153 if (M.ReadByte() <> 0) then
2154 FRulez := FRulez + [R_ITEM_BACKPACK];
2155 if (M.ReadByte() <> 0) then
2156 FRulez := FRulez + [R_KEY_RED];
2157 if (M.ReadByte() <> 0) then
2158 FRulez := FRulez + [R_KEY_GREEN];
2159 if (M.ReadByte() <> 0) then
2160 FRulez := FRulez + [R_KEY_BLUE];
2161 if (M.ReadByte() <> 0) then
2162 FRulez := FRulez + [R_BERSERK];
2163
2164 Frags := M.ReadLongInt();
2165 Death := M.ReadLongInt();
2166
2167 SetWeapon(M.ReadByte());
2168
2169 FSpectator := M.ReadByte() <> 0;
2170 if FSpectator then
2171 begin
2172 if Pl = gPlayer1 then
2173 begin
2174 gLMSPID1 := UID;
2175 gPlayer1 := nil;
2176 end;
2177 if Pl = gPlayer2 then
2178 begin
2179 gLMSPID2 := UID;
2180 gPlayer2 := nil;
2181 end;
2182 end
2183 else
2184 begin
2185 if (gPlayer1 = nil) and (gLMSPID1 > 0) then
2186 gPlayer1 := g_Player_Get(gLMSPID1);
2187 if (gPlayer2 = nil) and (gLMSPID2 > 0) then
2188 gPlayer2 := g_Player_Get(gLMSPID2);
2189 end;
2190 FGhost := M.ReadByte() <> 0;
2191 FPhysics := M.ReadByte() <> 0;
2192 FNoRespawn := M.ReadByte() <> 0;
2193 OldJet := FJetpack;
2194 FJetpack := M.ReadByte() <> 0;
2195 OldFire := FFireTime;
2196 FFireTime := M.ReadLongInt();
2197 if (OldFire <= 0) and (FFireTime > 0) then
2198 g_Sound_PlayExAt('SOUND_IGNITE', Obj.X, Obj.Y);
2199 Flam := M.ReadByte() <> 0;
2200 if OldJet and not FJetpack then
2201 JetpackOff
2202 else if not OldJet and FJetpack then
2203 JetpackOn;
2204 if FFlaming and not Flam then
2205 FlamerOff;
2206 if Team <> NewTeam then
2207 Pl.ChangeTeam(NewTeam);
2208 end;
2209
2210 Result := PID;
2211 end;
2212
2213 function MC_RECV_PlayerDamage(var M: TMsg): Word;
2214 var
2215 PID: Word;
2216 Pl: TPlayer;
2217 Kind: Byte;
2218 Attacker, Value: Word;
2219 VX, VY: Integer;
2220 begin
2221 Result := 0;
2222 if not gGameOn then Exit;
2223 PID := M.ReadWord();
2224 Pl := g_Player_Get(PID);
2225 if Pl = nil then Exit;
2226
2227 Kind := M.ReadByte();
2228 Attacker := M.ReadWord();
2229 Value := M.ReadWord();
2230 VX := M.ReadWord();
2231 VY := M.ReadWord();
2232
2233 with Pl do
2234 Damage(Value, Attacker, VX, VY, Kind);
2235
2236 Result := PID;
2237 end;
2238
2239 function MC_RECV_PlayerDeath(var M: TMsg): Word;
2240 var
2241 PID: Word;
2242 Pl: TPlayer;
2243 KillType, DeathType: Byte;
2244 Attacker: Word;
2245 begin
2246 Result := 0;
2247 if not gGameOn then Exit;
2248 PID := M.ReadWord();
2249 Pl := g_Player_Get(PID);
2250 if Pl = nil then Exit;
2251
2252 KillType := M.ReadByte();
2253 DeathType := M.ReadByte();
2254 Attacker := M.ReadWord();
2255
2256 with Pl do
2257 begin
2258 Kill(KillType, Attacker, DeathType);
2259 SoftReset;
2260 end;
2261 end;
2262
2263 function MC_RECV_PlayerDelete(var M: TMsg): Word;
2264 var
2265 PID: Word;
2266 Pl: TPlayer;
2267 begin
2268 PID := M.ReadWord();
2269 Pl := g_Player_Get(PID);
2270 Result := 0;
2271 if Pl = nil then Exit;
2272
2273 g_Console_Add(Format(_lc[I_PLAYER_LEAVE], [Pl.Name]), True);
2274 e_WriteLog('NET: Player ' + Pl.Name + ' [' + IntToStr(PID) + '] removed.', TMsgType.Notify);
2275
2276 g_Player_Remove(PID);
2277
2278 Result := PID;
2279 end;
2280
2281 function MC_RECV_PlayerFire(var M: TMsg): Word;
2282 var
2283 PID: Word;
2284 Weap: Byte;
2285 Pl: TPlayer;
2286 X, Y, AX, AY: Integer;
2287 SHID: Integer;
2288 begin
2289 Result := 0;
2290 if not gGameOn then Exit;
2291 PID := M.ReadWord();
2292 Pl := g_Player_Get(PID);
2293 if Pl = nil then Exit;
2294
2295 Weap := M.ReadByte();
2296 X := M.ReadLongInt();
2297 Y := M.ReadLongInt();
2298 AX := M.ReadLongInt();
2299 AY := M.ReadLongInt();
2300 SHID := M.ReadLongInt();
2301
2302 with Pl do
2303 if alive then NetFire(Weap, X, Y, AX, AY, SHID);
2304 end;
2305
2306 procedure MC_RECV_PlayerSettings(var M: TMsg);
2307 var
2308 TmpName: string;
2309 TmpModel: string;
2310 TmpColor: TRGB;
2311 TmpTeam: Byte;
2312 Pl: TPlayer;
2313 PID: Word;
2314 begin
2315 PID := M.ReadWord();
2316 Pl := g_Player_Get(PID);
2317 if Pl = nil then Exit;
2318
2319 TmpName := M.ReadString();
2320 TmpModel := M.ReadString();
2321 TmpColor.R := M.ReadByte();
2322 TmpColor.G := M.ReadByte();
2323 TmpColor.B := M.ReadByte();
2324 TmpTeam := M.ReadByte();
2325
2326 if (gGameSettings.GameMode in [GM_TDM, GM_CTF]) and (Pl.Team <> TmpTeam) then
2327 begin
2328 Pl.ChangeTeam(TmpTeam);
2329 if gPlayer1 = Pl then
2330 gPlayer1Settings.Team := TmpTeam;
2331 if gPlayer2 = Pl then
2332 gPlayer2Settings.Team := TmpTeam;
2333 end else
2334 Pl.SetColor(TmpColor);
2335
2336 if Pl.Name <> TmpName then
2337 begin
2338 g_Console_Add(Format(_lc[I_PLAYER_NAME], [Pl.Name, TmpName]), True);
2339 Pl.Name := TmpName;
2340 end;
2341
2342 if TmpModel <> Pl.Model.Name then
2343 Pl.SetModel(TmpModel);
2344 end;
2345
2346 // ITEM
2347
2348 procedure MC_RECV_ItemSpawn(var M: TMsg);
2349 var
2350 ID: Word;
2351 AID: DWord;
2352 X, Y, VX, VY: Integer;
2353 T: Byte;
2354 Quiet, Fall{, Resp}: Boolean;
2355 Anim: TAnimation;
2356 it: PItem;
2357 begin
2358 if not gGameOn then Exit;
2359 ID := M.ReadWord();
2360 Quiet := M.ReadByte() <> 0;
2361 T := M.ReadByte();
2362 Fall := M.ReadByte() <> 0;
2363 {Resp :=} M.ReadByte();
2364 X := M.ReadLongInt();
2365 Y := M.ReadLongInt();
2366 VX := M.ReadLongInt();
2367 VY := M.ReadLongInt();
2368
2369 g_Items_Create(X, Y, T and $7F, Fall, False, False, ID);
2370 if ((T and $80) <> 0) then g_Items_SetDrop(ID);
2371
2372 it := g_Items_ByIdx(ID);
2373 it.Obj.Vel.X := VX;
2374 it.Obj.Vel.Y := VY;
2375
2376 if not Quiet then
2377 begin
2378 g_Sound_PlayExAt('SOUND_ITEM_RESPAWNITEM', X, Y);
2379 if g_Frames_Get(AID, 'FRAMES_ITEM_RESPAWN') then
2380 begin
2381 Anim := TAnimation.Create(AID, False, 4);
2382 g_GFX_OnceAnim(X+(it.Obj.Rect.Width div 2)-16, Y+(it.Obj.Rect.Height div 2)-16, Anim);
2383 Anim.Free();
2384 end;
2385 end;
2386 end;
2387
2388 procedure MC_RECV_ItemDestroy(var M: TMsg);
2389 var
2390 ID: Word;
2391 Quiet: Boolean;
2392 begin
2393 if not gGameOn then Exit;
2394 ID := M.ReadWord();
2395 Quiet := M.ReadByte() <> 0;
2396
2397 if not g_Items_ValidId(ID) then exit;
2398
2399 if not Quiet then g_Items_EmitPickupSound(ID);
2400
2401 g_Items_Remove(ID);
2402 end;
2403
2404 // PANEL
2405
2406 procedure MC_RECV_PanelTexture(var M: TMsg);
2407 var
2408 TP: TPanel;
2409 PGUID: Integer;
2410 Tex, Fr: Integer;
2411 Loop, Cnt: Byte;
2412 begin
2413 if not gGameOn then Exit;
2414
2415 PGUID := Integer(M.ReadLongWord());
2416 Tex := M.ReadLongInt();
2417 Fr := M.ReadLongInt();
2418 Cnt := M.ReadByte();
2419 Loop := M.ReadByte();
2420
2421 TP := g_Map_PanelByGUID(PGUID);
2422 if (TP <> nil) then
2423 begin
2424 // switch texture
2425 TP.SetTexture(Tex, Loop);
2426 TP.SetFrame(Fr, Cnt);
2427 end;
2428 end;
2429
2430 procedure MC_RECV_PanelState(var M: TMsg);
2431 var
2432 PGUID: Integer;
2433 E: Boolean;
2434 Lift: Byte;
2435 X, Y, W, H: Integer;
2436 TP: TPanel;
2437 speedX, speedY, startX, startY, endX, endY: Integer;
2438 sizeSpX, sizeSpY, sizeEX, sizeEY: Integer;
2439 mpflags: Byte;
2440 begin
2441 if not gGameOn then Exit;
2442
2443 PGUID := Integer(M.ReadLongWord());
2444 E := (M.ReadByte() <> 0);
2445 Lift := M.ReadByte();
2446 X := M.ReadLongInt();
2447 Y := M.ReadLongInt();
2448 W := M.ReadWord();
2449 H := M.ReadWord();
2450 // mplats
2451 speedX := M.ReadLongInt();
2452 speedY := M.ReadLongInt();
2453 startX := M.ReadLongInt();
2454 startY := M.ReadLongInt();
2455 endX := M.ReadLongInt();
2456 endY := M.ReadLongInt();
2457 sizeSpX := M.ReadLongInt();
2458 sizeSpY := M.ReadLongInt();
2459 sizeEX := M.ReadLongInt();
2460 sizeEY := M.ReadLongInt();
2461 mpflags := M.ReadByte(); // bit0: TP.movingActive; bit1: TP.moveOnce
2462
2463 TP := g_Map_PanelByGUID(PGUID);
2464 if (TP = nil) then exit;
2465
2466 // update lifts state
2467 if TP.isGLift then g_Map_SetLiftGUID(PGUID, Lift);
2468
2469 // update enabled/disabled state for all panels
2470 if E then g_Map_EnableWallGUID(PGUID) else g_Map_DisableWallGUID(PGUID);
2471
2472 // update panel position, as it can be moved (mplat)
2473 TP.X := X;
2474 TP.Y := Y;
2475 TP.Width := W;
2476 TP.Height := H;
2477 // update mplat state
2478 TP.movingSpeedX := speedX;
2479 TP.movingSpeedY := speedY;
2480 TP.movingStartX := startX;
2481 TP.movingStartY := startY;
2482 TP.movingEndX := endX;
2483 TP.movingEndY := endY;
2484 TP.sizeSpeedX := sizeSpX;
2485 TP.sizeSpeedY := sizeSpY;
2486 TP.sizeEndX := sizeEX;
2487 TP.sizeEndY := sizeEY;
2488 TP.movingActive := ((mpflags and 1) <> 0);
2489 TP.moveOnce := ((mpflags and 2) <> 0);
2490 // notify panel of it's position/size change, so it can fix other internal structures
2491 TP.positionChanged();
2492 end;
2493
2494 // TRIGGERS
2495
2496 procedure MC_RECV_TriggerSound(var M: TMsg);
2497 var
2498 SPlaying: Boolean;
2499 SPos, SID: LongWord;
2500 SCount: LongInt;
2501 I: Integer;
2502 begin
2503 if not gGameOn then Exit;
2504 if gTriggers = nil then Exit;
2505
2506 SID := M.ReadLongWord();
2507 SPlaying := M.ReadByte() <> 0;
2508 SPos := M.ReadLongWord();
2509 SCount := M.ReadLongInt();
2510
2511 for I := Low(gTriggers) to High(gTriggers) do
2512 if gTriggers[I].TriggerType = TRIGGER_SOUND then
2513 if gTriggers[I].ClientID = SID then
2514 with gTriggers[I] do
2515 begin
2516 if Sound <> nil then
2517 begin
2518 if SPlaying then
2519 begin
2520 if tgcLocal then
2521 Sound.PlayVolumeAt(X+(Width div 2), Y+(Height div 2), tgcVolume/255.0)
2522 else
2523 Sound.PlayPanVolume((tgcPan-127.0)/128.0, tgcVolume/255.0);
2524 Sound.SetPosition(SPos);
2525 end
2526 else
2527 if Sound.IsPlaying then Sound.Stop;
2528 end;
2529
2530 SoundPlayCount := SCount;
2531 end;
2532 end;
2533
2534 procedure MC_RECV_TriggerMusic(var M: TMsg);
2535 var
2536 MName: string;
2537 MPlaying: Boolean;
2538 MPos: LongWord;
2539 MPaused: Boolean;
2540 begin
2541 if not gGameOn then Exit;
2542
2543 MName := M.ReadString();
2544 MPlaying := M.ReadByte() <> 0;
2545 MPos := M.ReadLongWord();
2546 MPaused := M.ReadByte() <> 0;
2547
2548 if MPlaying then
2549 begin
2550 gMusic.SetByName(MName);
2551 gMusic.Play(True);
2552 gMusic.SetPosition(MPos);
2553 gMusic.SpecPause := MPaused;
2554 end
2555 else
2556 if gMusic.IsPlaying then gMusic.Stop;
2557 end;
2558
2559 // MONSTERS
2560
2561 procedure MC_RECV_MonsterSpawn(var M: TMsg);
2562 var
2563 ID: Word;
2564 MType, MState, MDir, MAnim, MBehav: Byte;
2565 X, Y, VX, VY, MTargTime, MHealth, MAmmo, MSleep: Integer;
2566 MTarg: Word;
2567 Mon: TMonster;
2568 begin
2569 ID := M.ReadWord();
2570 Mon := g_Monsters_ByUID(ID);
2571 if Mon <> nil then
2572 Exit;
2573
2574 MType := M.ReadByte();
2575 MState := M.ReadByte();
2576 MAnim := M.ReadByte();
2577 MTarg := M.ReadWord();
2578 MTargTime := M.ReadLongInt();
2579 MBehav := M.ReadByte();
2580 MSleep := M.ReadLongInt();
2581 MHealth := M.ReadLongInt();
2582 MAmmo := M.ReadLongInt();
2583
2584 X := M.ReadLongInt();
2585 Y := M.ReadLongInt();
2586 VX := M.ReadLongInt();
2587 VY := M.ReadLongInt();
2588 MDir := M.ReadByte();
2589
2590 g_Monsters_Create(MType, X, Y, TDirection(MDir), False, ID);
2591 Mon := g_Monsters_ByUID(ID);
2592 if Mon = nil then
2593 Exit;
2594
2595 with Mon do
2596 begin
2597
2598 MonsterAnim := MAnim;
2599 MonsterTargetUID := MTarg;
2600 MonsterTargetTime := MTargTime;
2601 MonsterBehaviour := MBehav;
2602 MonsterSleep := MSleep;
2603 MonsterAmmo := MAmmo;
2604 SetHealth(MHealth);
2605
2606 SetState(MState);
2607
2608 setPosition(X, Y); // this will call positionChanged();
2609 GameVelX := VX;
2610 GameVelY := VY;
2611 end;
2612 end;
2613
2614 procedure MC_RECV_MonsterPos(var M: TMsg);
2615 var
2616 Mon: TMonster;
2617 ID: Word;
2618 X, Y: Integer;
2619 begin
2620 ID := M.ReadWord();
2621 Mon := g_Monsters_ByUID(ID);
2622 if Mon = nil then
2623 Exit;
2624
2625 with Mon do
2626 begin
2627 X := M.ReadLongInt();
2628 Y := M.ReadLongInt();
2629 Mon.setPosition(X, Y); // this will call `positionChanged()`
2630 GameVelX := M.ReadLongInt();
2631 GameVelY := M.ReadLongInt();
2632 GameDirection := TDirection(M.ReadByte());
2633 end;
2634 end;
2635
2636 procedure MC_RECV_MonsterState(var M: TMsg);
2637 var
2638 ID, OldFire: Integer;
2639 MState, MFAnm: Byte;
2640 Mon: TMonster;
2641 AnimRevert: Boolean;
2642 begin
2643 ID := M.ReadWord();
2644 Mon := g_Monsters_ByUID(ID);
2645 if Mon = nil then Exit;
2646
2647 MState := M.ReadByte();
2648 MFAnm := M.ReadByte();
2649
2650 with Mon do
2651 begin
2652 MonsterTargetUID := M.ReadWord();
2653 MonsterTargetTime := M.ReadLongInt();
2654 MonsterSleep := M.ReadLongInt();
2655 MonsterHealth := M.ReadLongInt();
2656 MonsterAmmo := M.ReadLongInt();
2657 MonsterPain := M.ReadLongInt();
2658 AnimRevert := M.ReadByte() <> 0;
2659 OldFire := FFireTime;
2660 FFireTime := M.ReadLongInt();
2661 if (OldFire <= 0) and (FFireTime > 0) then
2662 g_Sound_PlayExAt('SOUND_IGNITE', Obj.X, Obj.Y);
2663 RevertAnim(AnimRevert);
2664
2665 if MonsterState <> MState then
2666 begin
2667 if (MState = MONSTATE_GO) and (MonsterState = MONSTATE_SLEEP) then WakeUpSound();
2668 if (MState = MONSTATE_DIE) then DieSound();
2669 if (MState = MONSTATE_PAIN) then MakeBloodSimple(Min(200, MonsterPain));
2670 if (MState = MONSTATE_ATTACK) then kick(nil);
2671 if (MState = MONSTATE_DEAD) then SetDeadAnim();
2672
2673 SetState(MState, MFAnm);
2674 end;
2675 end;
2676 end;
2677
2678 procedure MC_RECV_MonsterShot(var M: TMsg);
2679 var
2680 ID: Integer;
2681 Mon: TMonster;
2682 X, Y, VX, VY: Integer;
2683 begin
2684 ID := M.ReadWord();
2685
2686 Mon := g_Monsters_ByUID(ID);
2687 if Mon = nil then Exit;
2688
2689 X := M.ReadLongInt();
2690 Y := M.ReadLongInt();
2691 VX := M.ReadLongInt();
2692 VY := M.ReadLongInt();
2693
2694 Mon.ClientAttack(X, Y, VX, VY);
2695 end;
2696
2697 procedure MC_RECV_MonsterDelete(var M: TMsg);
2698 var
2699 ID: Integer;
2700 Mon: TMonster;
2701 begin
2702 ID := M.ReadWord();
2703 Mon := g_Monsters_ByUID(ID);
2704 if Mon = nil then Exit;
2705 Mon.SetState(5);
2706 Mon.MonsterRemoved := True;
2707 end;
2708
2709 procedure MC_RECV_TimeSync(var M: TMsg);
2710 var
2711 Time: LongWord;
2712 begin
2713 Time := M.ReadLongWord();
2714
2715 if gState = STATE_INTERCUSTOM then
2716 gServInterTime := Min(Time, 255);
2717 end;
2718
2719 procedure MC_RECV_VoteEvent(var M: TMsg);
2720 var
2721 EvID: Byte;
2722 Str1, Str2: string;
2723 Int1, Int2: SmallInt;
2724 begin
2725 EvID := M.ReadByte();
2726 Int1 := M.ReadSmallInt();
2727 Int2 := M.ReadSmallInt();
2728 Str1 := M.ReadString();
2729 Str2 := M.ReadString();
2730
2731 case EvID of
2732 NET_VE_STARTED:
2733 g_Console_Add(Format(_lc[I_MESSAGE_VOTE_STARTED], [Str1, Str2, Int1]), True);
2734 NET_VE_PASSED:
2735 g_Console_Add(Format(_lc[I_MESSAGE_VOTE_PASSED], [Str1]), True);
2736 NET_VE_FAILED:
2737 g_Console_Add(_lc[I_MESSAGE_VOTE_FAILED], True);
2738 NET_VE_VOTE:
2739 g_Console_Add(Format(_lc[I_MESSAGE_VOTE_VOTE], [Str1, Int1, Int2]), True);
2740 NET_VE_INPROGRESS:
2741 g_Console_Add(Format(_lc[I_MESSAGE_VOTE_INPROGRESS], [Str1]), True);
2742 end;
2743 end;
2744
2745 // CLIENT SEND
2746
2747 procedure MC_SEND_Info(Password: string);
2748 begin
2749 NetOut.Clear();
2750
2751 NetOut.Write(Byte(NET_MSG_INFO));
2752 NetOut.Write(GAME_VERSION);
2753 NetOut.Write(Password);
2754 NetOut.Write(gPlayer1Settings.Name);
2755 NetOut.Write(gPlayer1Settings.Model);
2756 NetOut.Write(gPlayer1Settings.Color.R);
2757 NetOut.Write(gPlayer1Settings.Color.G);
2758 NetOut.Write(gPlayer1Settings.Color.B);
2759 NetOut.Write(gPlayer1Settings.Team);
2760
2761 g_Net_Client_Send(True, NET_CHAN_SERVICE);
2762 end;
2763
2764 procedure MC_SEND_Chat(Txt: string; Mode: Byte);
2765 begin
2766 NetOut.Write(Byte(NET_MSG_CHAT));
2767 NetOut.Write(Txt);
2768 NetOut.Write(Mode);
2769
2770 g_Net_Client_Send(True, NET_CHAN_CHAT);
2771 end;
2772
2773 function isKeyPressed (key1: Word; key2: Word): Boolean;
2774 begin
2775 if (key1 <> 0) and e_KeyPressed(key1) then begin result := true; exit; end;
2776 if (key2 <> 0) and e_KeyPressed(key2) then begin result := true; exit; end;
2777 result := false;
2778 end;
2779
2780 procedure MC_SEND_PlayerPos();
2781 var
2782 kByte: Word;
2783 Predict: Boolean;
2784 strafeDir: Byte;
2785 WeaponSelect: Word = 0;
2786 I: Integer;
2787 begin
2788 if not gGameOn then Exit;
2789 if gPlayers = nil then Exit;
2790 if gPlayer1 = nil then Exit;
2791
2792 kByte := 0;
2793 Predict := NetPredictSelf; // and (not NetGotKeys);
2794
2795 if (not gConsoleShow) and (not gChatShow) and (g_ActiveWindow = nil) then
2796 begin
2797 strafeDir := P1MoveButton shr 4;
2798 P1MoveButton := P1MoveButton and $0F;
2799 with gGameControls.P1Control do
2800 begin
2801 if isKeyPressed(KeyLeft, KeyLeft2) and (not isKeyPressed(KeyRight, KeyRight2)) then P1MoveButton := 1
2802 else if (not isKeyPressed(KeyLeft, KeyLeft2)) and isKeyPressed(KeyRight, KeyRight2) then P1MoveButton := 2
2803 else if (not isKeyPressed(KeyLeft, KeyLeft2)) and (not isKeyPressed(KeyRight, KeyRight2)) then P1MoveButton := 0;
2804
2805 // strafing
2806 if isKeyPressed(KeyStrafe, KeyStrafe2) then
2807 begin
2808 // new strafe mechanics
2809 if (strafeDir = 0) then strafeDir := P1MoveButton; // start strafing
2810 // now set direction according to strafe (reversed)
2811 if (strafeDir = 2) then gPlayer1.SetDirection(TDirection.D_LEFT)
2812 else if (strafeDir = 1) then gPlayer1.SetDirection(TDirection.D_RIGHT);
2813 end
2814 else
2815 begin
2816 if (P1MoveButton = 2) and isKeyPressed(KeyLeft, KeyLeft2) then gPlayer1.SetDirection(TDirection.D_LEFT)
2817 else if (P1MoveButton = 1) and isKeyPressed(KeyRight, KeyRight2) then gPlayer1.SetDirection(TDirection.D_RIGHT)
2818 else if P1MoveButton <> 0 then gPlayer1.SetDirection(TDirection(P1MoveButton-1));
2819 end;
2820
2821 gPlayer1.ReleaseKeys;
2822 if P1MoveButton = 1 then
2823 begin
2824 kByte := kByte or NET_KEY_LEFT;
2825 if Predict then gPlayer1.PressKey(KEY_LEFT, 10000);
2826 end;
2827 if P1MoveButton = 2 then
2828 begin
2829 kByte := kByte or NET_KEY_RIGHT;
2830 if Predict then gPlayer1.PressKey(KEY_RIGHT, 10000);
2831 end;
2832 if isKeyPressed(KeyUp, KeyUp2) then
2833 begin
2834 kByte := kByte or NET_KEY_UP;
2835 gPlayer1.PressKey(KEY_UP, 10000);
2836 end;
2837 if isKeyPressed(KeyDown, KeyDown2) then
2838 begin
2839 kByte := kByte or NET_KEY_DOWN;
2840 gPlayer1.PressKey(KEY_DOWN, 10000);
2841 end;
2842 if isKeyPressed(KeyJump, KeyJump2) then
2843 begin
2844 kByte := kByte or NET_KEY_JUMP;
2845 // gPlayer1.PressKey(KEY_JUMP, 10000); // TODO: Make a prediction option
2846 end;
2847 if isKeyPressed(KeyFire, KeyFire2) then kByte := kByte or NET_KEY_FIRE;
2848 if isKeyPressed(KeyOpen, KeyOpen2) then kByte := kByte or NET_KEY_OPEN;
2849 if isKeyPressed(KeyNextWeapon, KeyNextWeapon2) then kByte := kByte or NET_KEY_NW;
2850 if isKeyPressed(KeyPrevWeapon, KeyPrevWeapon2) then kByte := kByte or NET_KEY_PW;
2851 for I := 0 to High(KeyWeapon) do
2852 if isKeyPressed(KeyWeapon[I], KeyWeapon2[I]) then
2853 WeaponSelect := WeaponSelect or Word(1 shl I);
2854 end;
2855 // fix movebutton state
2856 P1MoveButton := P1MoveButton or (strafeDir shl 4);
2857 end
2858 else
2859 kByte := NET_KEY_CHAT;
2860
2861 NetOut.Write(Byte(NET_MSG_PLRPOS));
2862 NetOut.Write(gTime);
2863 NetOut.Write(kByte);
2864 NetOut.Write(Byte(gPlayer1.Direction));
2865 NetOut.Write(WeaponSelect);
2866 //e_WriteLog(Format('S:ws=%d', [WeaponSelect]), MSG_WARNING);
2867 g_Net_Client_Send(True, NET_CHAN_PLAYERPOS);
2868
2869 //kBytePrev := kByte;
2870 //kDirPrev := gPlayer1.Direction;
2871 end;
2872
2873 procedure MC_SEND_Vote(Start: Boolean = False; Command: string = 'a');
2874 begin
2875 NetOut.Write(Byte(NET_MSG_VOTE_EVENT));
2876 NetOut.Write(Byte(Start));
2877 NetOut.Write(Command);
2878 g_Net_Client_Send(True, NET_CHAN_IMPORTANT);
2879 end;
2880
2881 procedure MC_SEND_PlayerSettings();
2882 begin
2883 NetOut.Write(Byte(NET_MSG_PLRSET));
2884 NetOut.Write(gPlayer1Settings.Name);
2885 NetOut.Write(gPlayer1Settings.Model);
2886 NetOut.Write(gPlayer1Settings.Color.R);
2887 NetOut.Write(gPlayer1Settings.Color.G);
2888 NetOut.Write(gPlayer1Settings.Color.B);
2889 NetOut.Write(gPlayer1Settings.Team);
2890
2891 g_Net_Client_Send(True, NET_CHAN_IMPORTANT);
2892 end;
2893
2894 procedure MC_SEND_FullStateRequest();
2895 begin
2896 NetOut.Write(Byte(NET_MSG_REQFST));
2897
2898 g_Net_Client_Send(True, NET_CHAN_SERVICE);
2899 end;
2900
2901 procedure MC_SEND_CheatRequest(Kind: Byte);
2902 begin
2903 NetOut.Write(Byte(NET_MSG_CHEAT));
2904 NetOut.Write(Kind);
2905
2906 g_Net_Client_Send(True, NET_CHAN_IMPORTANT);
2907 end;
2908 procedure MC_SEND_RCONPassword(Password: string);
2909 begin
2910 NetOut.Write(Byte(NET_MSG_RCON_AUTH));
2911 NetOut.Write(Password);
2912
2913 g_Net_Client_Send(True, NET_CHAN_SERVICE);
2914 end;
2915 procedure MC_SEND_RCONCommand(Cmd: string);
2916 begin
2917 NetOut.Write(Byte(NET_MSG_RCON_CMD));
2918 NetOut.Write(Cmd);
2919
2920 g_Net_Client_Send(True, NET_CHAN_SERVICE);
2921 end;
2922
2923 // i have no idea why all this stuff is in here
2924
2925 function ReadFile(const FileName: TFileName): AByte;
2926 var
2927 FileStream : TStream;
2928 fname: string;
2929 begin
2930 e_WriteLog(Format('NETWORK: looking for file "%s"', [FileName]), TMsgType.Notify);
2931 fname := findDiskWad(FileName);
2932 if length(fname) = 0 then
2933 begin
2934 e_WriteLog(Format('NETWORK: file "%s" not found!', [FileName]), TMsgType.Fatal);
2935 SetLength(Result, 0);
2936 exit;
2937 end;
2938 e_WriteLog(Format('NETWORK: found file "%s"', [fname]), TMsgType.Notify);
2939 Result := nil;
2940 FileStream := openDiskFileRO(fname);
2941 try
2942 if FileStream.Size > 0 then
2943 begin
2944 SetLength(Result, FileStream.Size);
2945 FileStream.Read(Result[0], FileStream.Size);
2946 end;
2947 finally
2948 FileStream.Free;
2949 end;
2950 end;
2951
2952 function CreateMapDataMsg(const FileName: TFileName; ResList: TStringList): TMapDataMsg;
2953 var
2954 i: Integer;
2955 begin
2956 Result.MsgId := NET_MSG_MAP_RESPONSE;
2957 Result.FileData := ReadFile(FileName);
2958 Result.FileSize := Length(Result.FileData);
2959
2960 SetLength(Result.ExternalResources, ResList.Count);
2961 for i:=0 to ResList.Count-1 do
2962 begin
2963 Result.ExternalResources[i].Name := ResList.Strings[i];
2964 Result.ExternalResources[i].md5 := MD5File(GameDir+'/wads/'+ResList.Strings[i]);
2965 end;
2966 end;
2967
2968 procedure ResDataMsgToBytes(var bytes: AByte; const ResData: TResDataMsg);
2969 var
2970 ResultStream: TMemoryStream;
2971 begin
2972 ResultStream := TMemoryStream.Create;
2973
2974 ResultStream.WriteBuffer(ResData.MsgId, SizeOf(ResData.MsgId)); //msgId
2975 ResultStream.WriteBuffer(ResData.FileSize, SizeOf(ResData.FileSize)); //file size
2976 ResultStream.WriteBuffer(ResData.FileData[0], ResData.FileSize); //file data
2977
2978 SetLength(bytes, ResultStream.Size);
2979 ResultStream.Seek(0, soFromBeginning);
2980 ResultStream.ReadBuffer(bytes[0], ResultStream.Size);
2981
2982 ResultStream.Free;
2983 end;
2984
2985 function ResDataFromMsgStream(msgStream: TMemoryStream):TResDataMsg;
2986 begin
2987 msgStream.ReadBuffer(Result.MsgId, SizeOf(Result.MsgId));
2988 msgStream.ReadBuffer(Result.FileSize, SizeOf(Result.FileSize));
2989 SetLength(Result.FileData, Result.FileSize);
2990 msgStream.ReadBuffer(Result.FileData[0], Result.FileSize);
2991 end;
2992
2993 procedure MapDataMsgToBytes(var bytes: AByte; const MapDataMsg: TMapDataMsg);
2994 var
2995 ResultStream: TMemoryStream;
2996 resCount: Integer;
2997 begin
2998 resCount := Length(MapDataMsg.ExternalResources);
2999
3000 ResultStream := TMemoryStream.Create;
3001
3002 ResultStream.WriteBuffer(MapDataMsg.MsgId, SizeOf(MapDataMsg.MsgId)); //msgId
3003 ResultStream.WriteBuffer(MapDataMsg.FileSize, SizeOf(MapDataMsg.FileSize)); //file size
3004 ResultStream.WriteBuffer(MapDataMsg.FileData[0], MapDataMsg.FileSize); //file data
3005
3006 ResultStream.WriteBuffer(resCount, SizeOf(resCount)); //res count
3007 ResultStream.WriteBuffer(MapDataMsg.ExternalResources[0], resCount*SizeOf(TExternalResourceInfo)); //res data
3008
3009 SetLength(bytes, ResultStream.Size);
3010 ResultStream.Seek(0, soFromBeginning);
3011 ResultStream.ReadBuffer(bytes[0], ResultStream.Size);
3012
3013 ResultStream.Free;
3014 end;
3015
3016 function MapDataFromMsgStream(msgStream: TMemoryStream):TMapDataMsg;
3017 var
3018 resCount: Integer;
3019 begin
3020 msgStream.ReadBuffer(Result.MsgId, SizeOf(Result.MsgId));
3021 msgStream.ReadBuffer(Result.FileSize, SizeOf(Result.FileSize)); //file size
3022
3023 SetLength(Result.FileData, Result.FileSize);
3024 msgStream.ReadBuffer(Result.FileData[0], Result.FileSize); //file data
3025
3026 msgStream.ReadBuffer(resCount, SizeOf(resCount)); //res count
3027 SetLength(Result.ExternalResources, resCount);
3028
3029 msgStream.ReadBuffer(Result.ExternalResources[0], resCount * SizeOf(TExternalResourceInfo)); //res data
3030 end;
3031
3032 function IsValidFileName(const S: String): Boolean;
3033 const
3034 Forbidden: set of Char = ['<', '>', '|', '"', ':', '*', '?'];
3035 var
3036 I: Integer;
3037 begin
3038 Result := S <> '';
3039 for I := 1 to Length(S) do
3040 Result := Result and (not(S[I] in Forbidden));
3041 end;
3042
3043 function IsValidFilePath(const S: String): Boolean;
3044 var
3045 I: Integer;
3046 begin
3047 Result := False;
3048 if not IsValidFileName(S) then exit;
3049 if FileExists(S) then exit;
3050 I := LastDelimiter('\/', S);
3051 if (I > 0) then
3052 if (not DirectoryExists(Copy(S, 1, I-1))) then
3053 exit;
3054 Result := True;
3055 end;
3056
3057 procedure MC_SEND_MapRequest();
3058 begin
3059 NetOut.Write(Byte(NET_MSG_MAP_REQUEST));
3060 g_Net_Client_Send(True, NET_CHAN_IMPORTANT);
3061 end;
3062
3063 procedure MC_SEND_ResRequest(const resName: AnsiString);
3064 begin
3065 NetOut.Write(Byte(NET_MSG_RES_REQUEST));
3066 NetOut.Write(resName);
3067 g_Net_Client_Send(True, NET_CHAN_IMPORTANT);
3068 end;
3069
3070 procedure MH_RECV_MapRequest(C: pTNetClient; var M: TMsg);
3071 var
3072 payload: AByte;
3073 peer: pENetPeer;
3074 mapDataMsg: TMapDataMsg;
3075 begin
3076 e_WriteLog('NET: Received map request from ' +
3077 DecodeIPV4(C^.Peer.address.host), TMsgType.Notify);
3078
3079 mapDataMsg := CreateMapDataMsg(MapsDir + gGameSettings.WAD, gExternalResources);
3080 peer := NetClients[C^.ID].Peer;
3081
3082 MapDataMsgToBytes(payload, mapDataMsg);
3083 g_Net_SendData(payload, peer, True, NET_CHAN_DOWNLOAD);
3084
3085 payload := nil;
3086 mapDataMsg.FileData := nil;
3087 mapDataMsg.ExternalResources := nil;
3088 end;
3089
3090 procedure MH_RECV_ResRequest(C: pTNetClient; var M: TMsg);
3091 var
3092 payload: AByte;
3093 peer: pENetPeer;
3094 FileName: String;
3095 resDataMsg: TResDataMsg;
3096 begin
3097 FileName := ExtractFileName(M.ReadString());
3098 e_WriteLog('NET: Received res request: ' + FileName +
3099 ' from ' + DecodeIPV4(C^.Peer.address.host), TMsgType.Notify);
3100
3101 if not IsValidFilePath(FileName) then
3102 begin
3103 e_WriteLog('Invalid filename: ' + FileName, TMsgType.Warning);
3104 exit;
3105 end;
3106
3107 peer := NetClients[C^.ID].Peer;
3108
3109 if gExternalResources.IndexOf(FileName) > -1 then
3110 begin
3111 resDataMsg.MsgId := NET_MSG_RES_RESPONSE;
3112 resDataMsg.FileData := ReadFile(GameDir+'/wads/'+FileName);
3113 resDataMsg.FileSize := Length(resDataMsg.FileData);
3114
3115 ResDataMsgToBytes(payload, resDataMsg);
3116 g_Net_SendData(payload, peer, True, NET_CHAN_DOWNLOAD);
3117 end;
3118 end;
3119
3120 end.
[MIRROR] a port of Doom 2D Forever to FPC/SDL
[25/02/2024 19:55:35]
DEADSOFTWARE 2012-2024