DEADSOFTWARE

GIT / REPO / FRED-BOY
Projects / d2df-sdl.git / blob


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