DEADSOFTWARE

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