PROTOCOL_DARKPLACES5
[divverent/darkplaces.git] / cl_parse.c
1 /*
2 Copyright (C) 1996-1997 Id Software, Inc.
3
4 This program is free software; you can redistribute it and/or
5 modify it under the terms of the GNU General Public License
6 as published by the Free Software Foundation; either version 2
7 of the License, or (at your option) any later version.
8
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
12
13 See the GNU General Public License for more details.
14
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software
17 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
18
19 */
20 // cl_parse.c  -- parse a message received from the server
21
22 #include "quakedef.h"
23 #include "cl_collision.h"
24
25 char *svc_strings[128] =
26 {
27         "svc_bad",
28         "svc_nop",
29         "svc_disconnect",
30         "svc_updatestat",
31         "svc_version",          // [long] server version
32         "svc_setview",          // [short] entity number
33         "svc_sound",                    // <see code>
34         "svc_time",                     // [float] server time
35         "svc_print",                    // [string] null terminated string
36         "svc_stufftext",                // [string] stuffed into client's console buffer
37                                                 // the string should be \n terminated
38         "svc_setangle",         // [vec3] set the view angle to this absolute value
39
40         "svc_serverinfo",               // [long] version
41                                                 // [string] signon string
42                                                 // [string]..[0]model cache [string]...[0]sounds cache
43                                                 // [string]..[0]item cache
44         "svc_lightstyle",               // [byte] [string]
45         "svc_updatename",               // [byte] [string]
46         "svc_updatefrags",      // [byte] [short]
47         "svc_clientdata",               // <shortbits + data>
48         "svc_stopsound",                // <see code>
49         "svc_updatecolors",     // [byte] [byte]
50         "svc_particle",         // [vec3] <variable>
51         "svc_damage",                   // [byte] impact [byte] blood [vec3] from
52
53         "svc_spawnstatic",
54         "OBSOLETE svc_spawnbinary",
55         "svc_spawnbaseline",
56
57         "svc_temp_entity",              // <variable>
58         "svc_setpause",
59         "svc_signonnum",
60         "svc_centerprint",
61         "svc_killedmonster",
62         "svc_foundsecret",
63         "svc_spawnstaticsound",
64         "svc_intermission",
65         "svc_finale",                   // [string] music [string] text
66         "svc_cdtrack",                  // [byte] track [byte] looptrack
67         "svc_sellscreen",
68         "svc_cutscene",
69         "svc_showlmp",  // [string] iconlabel [string] lmpfile [short] x [short] y
70         "svc_hidelmp",  // [string] iconlabel
71         "svc_skybox", // [string] skyname
72         "", // 38
73         "", // 39
74         "", // 40
75         "", // 41
76         "", // 42
77         "", // 43
78         "", // 44
79         "", // 45
80         "", // 46
81         "", // 47
82         "", // 48
83         "", // 49
84         "svc_cgame", //                         50              // [short] length [bytes] data
85         "svc_unusedlh1", //                     51              // unused
86         "svc_effect", //                        52              // [vector] org [byte] modelindex [byte] startframe [byte] framecount [byte] framerate
87         "svc_effect2", //                       53              // [vector] org [short] modelindex [short] startframe [byte] framecount [byte] framerate
88         "svc_sound2", //                        54              // short soundindex instead of byte
89         "svc_spawnbaseline2", //        55              // short modelindex instead of byte
90         "svc_spawnstatic2", //          56              // short modelindex instead of byte
91         "svc_entities", //                      57              // [int] deltaframe [int] thisframe [float vector] eye [variable length] entitydata
92         "svc_unusedlh3", //                     58
93         "svc_spawnstaticsound2", //     59              // [coord3] [short] samp [byte] vol [byte] aten
94 };
95
96 //=============================================================================
97
98 cvar_t demo_nehahra = {0, "demo_nehahra", "0"};
99 cvar_t developer_networkentities = {0, "developer_networkentities", "0"};
100
101 mempool_t *cl_scores_mempool;
102
103 /*
104 ==================
105 CL_ParseStartSoundPacket
106 ==================
107 */
108 void CL_ParseStartSoundPacket(int largesoundindex)
109 {
110         vec3_t  pos;
111         int     channel, ent;
112         int     sound_num;
113         int     volume;
114         int     field_mask;
115         float   attenuation;
116
117         field_mask = MSG_ReadByte();
118
119         if (field_mask & SND_VOLUME)
120                 volume = MSG_ReadByte ();
121         else
122                 volume = DEFAULT_SOUND_PACKET_VOLUME;
123
124         if (field_mask & SND_ATTENUATION)
125                 attenuation = MSG_ReadByte () / 64.0;
126         else
127                 attenuation = DEFAULT_SOUND_PACKET_ATTENUATION;
128
129         if (field_mask & SND_LARGEENTITY)
130         {
131                 ent = (unsigned short) MSG_ReadShort ();
132                 channel = MSG_ReadByte ();
133         }
134         else
135         {
136                 channel = (unsigned short) MSG_ReadShort ();
137                 ent = channel >> 3;
138                 channel &= 7;
139         }
140
141         if (largesoundindex || field_mask & SND_LARGESOUND)
142                 sound_num = (unsigned short) MSG_ReadShort ();
143         else
144                 sound_num = MSG_ReadByte ();
145
146         if (sound_num >= MAX_SOUNDS)
147                 Host_Error("CL_ParseStartSoundPacket: sound_num (%i) >= MAX_SOUNDS (%i)\n", sound_num, MAX_SOUNDS);
148
149
150         if (ent >= MAX_EDICTS)
151                 Host_Error ("CL_ParseStartSoundPacket: ent = %i", ent);
152
153         MSG_ReadVector(pos, cl.protocol);
154
155         S_StartSound (ent, channel, cl.sound_precache[sound_num], pos, volume/255.0, attenuation);
156 }
157
158 /*
159 ==================
160 CL_KeepaliveMessage
161
162 When the client is taking a long time to load stuff, send keepalive messages
163 so the server doesn't disconnect.
164 ==================
165 */
166
167 static qbyte olddata[NET_MAXMESSAGE];
168 void CL_KeepaliveMessage (void)
169 {
170         float time;
171         static float lastmsg;
172         int oldreadcount;
173         qboolean oldbadread;
174         sizebuf_t old;
175
176         // no need if server is local and definitely not if this is a demo
177         if (sv.active || cls.demoplayback)
178                 return;
179
180 // read messages from server, should just be nops
181         oldreadcount = msg_readcount;
182         oldbadread = msg_badread;
183         old = net_message;
184         memcpy(olddata, net_message.data, net_message.cursize);
185
186         NetConn_ClientFrame();
187
188         msg_readcount = oldreadcount;
189         msg_badread = oldbadread;
190         net_message = old;
191         memcpy(net_message.data, olddata, net_message.cursize);
192
193         if (cls.netcon && NetConn_CanSendMessage(cls.netcon) && (time = Sys_DoubleTime()) - lastmsg >= 5)
194         {
195                 sizebuf_t       msg;
196                 qbyte           buf[4];
197                 lastmsg = time;
198                 // write out a nop
199                 // LordHavoc: must use unreliable because reliable could kill the sigon message!
200                 Con_Print("--> client to server keepalive\n");
201                 msg.data = buf;
202                 msg.maxsize = sizeof(buf);
203                 msg.cursize = 0;
204                 MSG_WriteChar(&msg, svc_nop);
205                 NetConn_SendUnreliableMessage(cls.netcon, &msg);
206                 // try not to utterly crush the computer with work, that's just rude
207                 Sys_Sleep(1);
208         }
209 }
210
211 void CL_ParseEntityLump(char *entdata)
212 {
213         const char *data;
214         char key[128], value[4096];
215         FOG_clear(); // LordHavoc: no fog until set
216         // LordHavoc: default to the map's sky (q3 shader parsing sets this)
217         R_SetSkyBox(cl.worldmodel->brush.skybox);
218         data = entdata;
219         if (!data)
220                 return;
221         if (!COM_ParseToken(&data, false))
222                 return; // error
223         if (com_token[0] != '{')
224                 return; // error
225         while (1)
226         {
227                 if (!COM_ParseToken(&data, false))
228                         return; // error
229                 if (com_token[0] == '}')
230                         break; // end of worldspawn
231                 if (com_token[0] == '_')
232                         strlcpy (key, com_token + 1, sizeof (key));
233                 else
234                         strlcpy (key, com_token, sizeof (key));
235                 while (key[strlen(key)-1] == ' ') // remove trailing spaces
236                         key[strlen(key)-1] = 0;
237                 if (!COM_ParseToken(&data, false))
238                         return; // error
239                 strlcpy (value, com_token, sizeof (value));
240                 if (!strcmp("sky", key))
241                         R_SetSkyBox(value);
242                 else if (!strcmp("skyname", key)) // non-standard, introduced by QuakeForge... sigh.
243                         R_SetSkyBox(value);
244                 else if (!strcmp("qlsky", key)) // non-standard, introduced by QuakeLives (EEK)
245                         R_SetSkyBox(value);
246                 else if (!strcmp("fog", key))
247                         sscanf(value, "%f %f %f %f", &fog_density, &fog_red, &fog_green, &fog_blue);
248                 else if (!strcmp("fog_density", key))
249                         fog_density = atof(value);
250                 else if (!strcmp("fog_red", key))
251                         fog_red = atof(value);
252                 else if (!strcmp("fog_green", key))
253                         fog_green = atof(value);
254                 else if (!strcmp("fog_blue", key))
255                         fog_blue = atof(value);
256         }
257 }
258
259 /*
260 =====================
261 CL_SignonReply
262
263 An svc_signonnum has been received, perform a client side setup
264 =====================
265 */
266 static void CL_SignonReply (void)
267 {
268         //char  str[8192];
269
270 Con_DPrintf("CL_SignonReply: %i\n", cls.signon);
271
272         switch (cls.signon)
273         {
274         case 1:
275                 MSG_WriteByte (&cls.message, clc_stringcmd);
276                 MSG_WriteString (&cls.message, "prespawn");
277                 break;
278
279         case 2:
280                 MSG_WriteByte (&cls.message, clc_stringcmd);
281                 MSG_WriteString (&cls.message, va("name \"%s\"\n", cl_name.string));
282
283                 MSG_WriteByte (&cls.message, clc_stringcmd);
284                 MSG_WriteString (&cls.message, va("color %i %i\n", cl_color.integer >> 4, cl_color.integer & 15));
285
286                 if (cl_pmodel.integer)
287                 {
288                         MSG_WriteByte (&cls.message, clc_stringcmd);
289                         MSG_WriteString (&cls.message, va("pmodel %i\n", cl_pmodel.integer));
290                 }
291
292                 MSG_WriteByte (&cls.message, clc_stringcmd);
293                 MSG_WriteString (&cls.message, va("rate %i\n", cl_rate.integer));
294
295                 MSG_WriteByte (&cls.message, clc_stringcmd);
296                 MSG_WriteString (&cls.message, "spawn");
297                 break;
298
299         case 3:
300                 MSG_WriteByte (&cls.message, clc_stringcmd);
301                 MSG_WriteString (&cls.message, "begin");
302                 break;
303
304         case 4:
305                 Con_ClearNotify();
306                 break;
307         }
308 }
309
310 /*
311 ==================
312 CL_ParseServerInfo
313 ==================
314 */
315 // FIXME: this is a lot of memory to be keeping around, this needs to be dynamically allocated and freed
316 static char parse_model_precache[MAX_MODELS][MAX_QPATH];
317 static char parse_sound_precache[MAX_SOUNDS][MAX_QPATH];
318 void CL_ParseServerInfo (void)
319 {
320         char *str;
321         int i;
322         int nummodels, numsounds;
323         entity_t *ent;
324
325         Con_DPrint("Serverinfo packet received.\n");
326 //
327 // wipe the client_state_t struct
328 //
329         CL_ClearState ();
330
331 // parse protocol version number
332         i = MSG_ReadLong ();
333         // hack for unmarked Nehahra movie demos which had a custom protocol
334         if (i == PROTOCOL_QUAKE && cls.demoplayback && demo_nehahra.integer)
335                 i = PROTOCOL_NEHAHRAMOVIE;
336         if (i != PROTOCOL_QUAKE && i != PROTOCOL_DARKPLACES1 && i != PROTOCOL_DARKPLACES2 && i != PROTOCOL_DARKPLACES3 && i != PROTOCOL_DARKPLACES4 && i != PROTOCOL_DARKPLACES5 && i != PROTOCOL_NEHAHRAMOVIE)
337         {
338                 Host_Error("CL_ParseServerInfo: Server is protocol %i, not %i (Quake), %i (DP1), %i (DP2), %i (DP3), %i (DP4), %i (DP5), or %i (Nehahra movie)", i, PROTOCOL_QUAKE, PROTOCOL_DARKPLACES1, PROTOCOL_DARKPLACES2, PROTOCOL_DARKPLACES3, PROTOCOL_DARKPLACES4, PROTOCOL_DARKPLACES5, PROTOCOL_NEHAHRAMOVIE);
339                 return;
340         }
341         cl.protocol = i;
342
343 // parse maxclients
344         cl.maxclients = MSG_ReadByte ();
345         if (cl.maxclients < 1 || cl.maxclients > MAX_SCOREBOARD)
346         {
347                 Con_Printf("Bad maxclients (%u) from server\n", cl.maxclients);
348                 return;
349         }
350         Mem_EmptyPool(cl_scores_mempool);
351         cl.scores = Mem_Alloc(cl_scores_mempool, cl.maxclients*sizeof(*cl.scores));
352
353 // parse gametype
354         cl.gametype = MSG_ReadByte ();
355
356 // parse signon message
357         str = MSG_ReadString ();
358         strlcpy (cl.levelname, str, sizeof(cl.levelname));
359
360 // seperate the printfs so the server message can have a color
361         if (cl.protocol != PROTOCOL_NEHAHRAMOVIE) // no messages when playing the Nehahra movie
362                 Con_Printf("\n\n\35\36\36\36\36\36\36\36\36\36\36\36\36\36\36\36\36\36\36\36\36\36\36\36\36\36\36\36\36\36\36\36\36\36\36\36\37\n\n\2%s\n", str);
363
364         // check memory integrity
365         Mem_CheckSentinelsGlobal();
366
367         // disable until we get textures for it
368         R_ResetSkyBox();
369
370         memset(cl.model_precache, 0, sizeof(cl.model_precache));
371         memset(cl.sound_precache, 0, sizeof(cl.sound_precache));
372
373         // parse model precache list
374         for (nummodels=1 ; ; nummodels++)
375         {
376                 str = MSG_ReadString();
377                 if (!str[0])
378                         break;
379                 if (nummodels==MAX_MODELS)
380                         Host_Error ("Server sent too many model precaches\n");
381                 if (strlen(str) >= MAX_QPATH)
382                         Host_Error ("Server sent a precache name of %i characters (max %i)", strlen(str), MAX_QPATH - 1);
383                 strlcpy (parse_model_precache[nummodels], str, sizeof (parse_model_precache[nummodels]));
384         }
385         // parse sound precache list
386         for (numsounds=1 ; ; numsounds++)
387         {
388                 str = MSG_ReadString();
389                 if (!str[0])
390                         break;
391                 if (numsounds==MAX_SOUNDS)
392                         Host_Error("Server sent too many sound precaches\n");
393                 if (strlen(str) >= MAX_QPATH)
394                         Host_Error("Server sent a precache name of %i characters (max %i)", strlen(str), MAX_QPATH - 1);
395                 strlcpy (parse_sound_precache[numsounds], str, sizeof (parse_sound_precache[numsounds]));
396         }
397
398         // touch all of the precached models that are still loaded so we can free
399         // anything that isn't needed
400         Mod_ClearUsed();
401         for (i = 1;i < nummodels;i++)
402         {
403                 CL_KeepaliveMessage();
404                 Mod_TouchModel(parse_model_precache[i]);
405         }
406         Mod_PurgeUnused();
407
408         // do the same for sounds
409         S_ClearUsed();
410         for (i = 1;i < numsounds;i++)
411         {
412                 CL_KeepaliveMessage();
413                 S_TouchSound(parse_sound_precache[i], true);
414         }
415         S_PurgeUnused();
416
417         // now we try to load everything that is new
418
419         // world model
420         CL_KeepaliveMessage ();
421         cl.model_precache[1] = Mod_ForName(parse_model_precache[1], false, false, true);
422         if (cl.model_precache[1] == NULL)
423                 Con_Printf("Map %s not found\n", parse_model_precache[1]);
424
425         // normal models
426         for (i=2 ; i<nummodels ; i++)
427         {
428                 CL_KeepaliveMessage();
429                 if ((cl.model_precache[i] = Mod_ForName(parse_model_precache[i], false, false, false)) == NULL)
430                         Con_Printf("Model %s not found\n", parse_model_precache[i]);
431         }
432
433         // sounds
434         for (i=1 ; i<numsounds ; i++)
435         {
436                 CL_KeepaliveMessage();
437                 cl.sound_precache[i] = S_PrecacheSound(parse_sound_precache[i], true, true);
438         }
439
440         // local state
441         ent = &cl_entities[0];
442         // entire entity array was cleared, so just fill in a few fields
443         ent->state_current.active = true;
444         ent->render.model = cl.worldmodel = cl.model_precache[1];
445         ent->render.scale = 1; // some of the renderer still relies on scale
446         ent->render.alpha = 1;
447         ent->render.flags = RENDER_SHADOW | RENDER_LIGHT;
448         Matrix4x4_CreateFromQuakeEntity(&ent->render.matrix, 0, 0, 0, 0, 0, 0, 1);
449         Matrix4x4_Invert_Simple(&ent->render.inversematrix, &ent->render.matrix);
450         CL_BoundingBoxForEntity(&ent->render);
451
452         cl_num_entities = 1;
453
454         R_Modules_NewMap();
455         CL_CGVM_Start();
456
457         // noclip is turned off at start
458         noclip_anglehack = false;
459
460         // check memory integrity
461         Mem_CheckSentinelsGlobal();
462 }
463
464 void CL_ValidateState(entity_state_t *s)
465 {
466         model_t *model;
467
468         if (!s->active)
469                 return;
470
471         if (s->modelindex >= MAX_MODELS)
472                 Host_Error("CL_ValidateState: modelindex (%i) >= MAX_MODELS (%i)\n", s->modelindex, MAX_MODELS);
473
474         // colormap is client index + 1
475         if (s->colormap > cl.maxclients)
476         {
477                 Con_DPrintf("CL_ValidateState: colormap (%i) > cl.maxclients (%i)", s->colormap, cl.maxclients);
478                 s->colormap = 0;
479         }
480
481         model = cl.model_precache[s->modelindex];
482         Mod_CheckLoaded(model);
483         if (model && s->frame >= model->numframes)
484         {
485                 Con_DPrintf("CL_ValidateState: no such frame %i in \"%s\"\n", s->frame, model->name);
486                 s->frame = 0;
487         }
488         if (model && s->skin > 0 && s->skin >= model->numskins)
489         {
490                 Con_DPrintf("CL_ValidateState: no such skin %i in \"%s\"\n", s->skin, model->name);
491                 s->skin = 0;
492         }
493 }
494
495 void CL_MoveLerpEntityStates(entity_t *ent)
496 {
497         float odelta[3], adelta[3];
498         CL_ValidateState(&ent->state_current);
499         VectorSubtract(ent->state_current.origin, ent->persistent.neworigin, odelta);
500         VectorSubtract(ent->state_current.angles, ent->persistent.newangles, adelta);
501         if (!ent->state_previous.active || cls.timedemo || DotProduct(odelta, odelta) > 1000*1000 || cl_nolerp.integer)
502         {
503                 // we definitely shouldn't lerp
504                 ent->persistent.lerpdeltatime = 0;
505                 ent->persistent.lerpstarttime = cl.mtime[1];
506                 VectorCopy(ent->state_current.origin, ent->persistent.oldorigin);
507                 VectorCopy(ent->state_current.angles, ent->persistent.oldangles);
508                 VectorCopy(ent->state_current.origin, ent->persistent.neworigin);
509                 VectorCopy(ent->state_current.angles, ent->persistent.newangles);
510         }
511         else if (ent->state_current.flags & RENDER_STEP)
512         {
513                 // monster interpolation
514                 if (DotProduct(odelta, odelta) + DotProduct(adelta, adelta) > 0.01)
515                 {
516                         ent->persistent.lerpdeltatime = bound(0, cl.mtime[1] - ent->persistent.lerpstarttime, 0.1);
517                         ent->persistent.lerpstarttime = cl.mtime[1];
518                         VectorCopy(ent->persistent.neworigin, ent->persistent.oldorigin);
519                         VectorCopy(ent->persistent.newangles, ent->persistent.oldangles);
520                         VectorCopy(ent->state_current.origin, ent->persistent.neworigin);
521                         VectorCopy(ent->state_current.angles, ent->persistent.newangles);
522                 }
523         }
524         else
525         {
526                 // not a monster
527                 ent->persistent.lerpstarttime = cl.mtime[1];
528                 // no lerp if it's singleplayer
529                 if (cl.islocalgame)
530                         ent->persistent.lerpdeltatime = 0;
531                 else
532                         ent->persistent.lerpdeltatime = cl.mtime[0] - cl.mtime[1];
533                 VectorCopy(ent->persistent.neworigin, ent->persistent.oldorigin);
534                 VectorCopy(ent->persistent.newangles, ent->persistent.oldangles);
535                 VectorCopy(ent->state_current.origin, ent->persistent.neworigin);
536                 VectorCopy(ent->state_current.angles, ent->persistent.newangles);
537         }
538 }
539
540 void CL_ReadEntityFrame(void)
541 {
542         if (cl.protocol == PROTOCOL_DARKPLACES1 || cl.protocol == PROTOCOL_DARKPLACES2 || cl.protocol == PROTOCOL_DARKPLACES3)
543                 EntityFrame_CL_ReadFrame();
544         else if (cl.protocol == PROTOCOL_DARKPLACES4)
545                 EntityFrame4_CL_ReadFrame();
546         else if (cl.protocol == PROTOCOL_DARKPLACES5)
547                 EntityFrame5_CL_ReadFrame();
548 }
549
550 /*
551 ==================
552 CL_ParseBaseline
553 ==================
554 */
555 void CL_ParseBaseline (entity_t *ent, int large)
556 {
557         int i;
558
559         ent->state_baseline = defaultstate;
560         // FIXME: set ent->state_baseline.number?
561         ent->state_baseline.active = true;
562         if (large)
563         {
564                 ent->state_baseline.modelindex = (unsigned short) MSG_ReadShort ();
565                 ent->state_baseline.frame = (unsigned short) MSG_ReadShort ();
566         }
567         else
568         {
569                 ent->state_baseline.modelindex = MSG_ReadByte ();
570                 ent->state_baseline.frame = MSG_ReadByte ();
571         }
572         ent->state_baseline.colormap = MSG_ReadByte();
573         ent->state_baseline.skin = MSG_ReadByte();
574         for (i = 0;i < 3;i++)
575         {
576                 ent->state_baseline.origin[i] = MSG_ReadCoord(cl.protocol);
577                 ent->state_baseline.angles[i] = MSG_ReadAngle8i();
578         }
579         CL_ValidateState(&ent->state_baseline);
580         ent->state_previous = ent->state_current = ent->state_baseline;
581 }
582
583
584 /*
585 ==================
586 CL_ParseClientdata
587
588 Server information pertaining to this client only
589 ==================
590 */
591 void CL_ParseClientdata (int bits)
592 {
593         int i, j;
594
595         bits &= 0xFFFF;
596         if (bits & SU_EXTEND1)
597                 bits |= (MSG_ReadByte() << 16);
598         if (bits & SU_EXTEND2)
599                 bits |= (MSG_ReadByte() << 24);
600
601         if (bits & SU_VIEWHEIGHT)
602                 cl.viewheight = MSG_ReadChar ();
603         else
604                 cl.viewheight = DEFAULT_VIEWHEIGHT;
605
606         if (bits & SU_IDEALPITCH)
607                 cl.idealpitch = MSG_ReadChar ();
608         else
609                 cl.idealpitch = 0;
610
611         VectorCopy (cl.mvelocity[0], cl.mvelocity[1]);
612         for (i = 0;i < 3;i++)
613         {
614                 if (bits & (SU_PUNCH1<<i) )
615                 {
616                         if (cl.protocol == PROTOCOL_DARKPLACES1 || cl.protocol == PROTOCOL_DARKPLACES2 || cl.protocol == PROTOCOL_DARKPLACES3 || cl.protocol == PROTOCOL_DARKPLACES4 || cl.protocol == PROTOCOL_DARKPLACES5)
617                                 cl.punchangle[i] = MSG_ReadAngle16i();
618                         else if (cl.protocol == PROTOCOL_QUAKE)
619                                 cl.punchangle[i] = MSG_ReadChar();
620                         else
621                                 Host_Error("CL_ParseClientData: unknown cl.protocol\n");
622                 }
623                 else
624                         cl.punchangle[i] = 0;
625                 if (bits & (SU_PUNCHVEC1<<i))
626                 {
627                         if (cl.protocol == PROTOCOL_DARKPLACES1 || cl.protocol == PROTOCOL_DARKPLACES2 || cl.protocol == PROTOCOL_DARKPLACES3 || cl.protocol == PROTOCOL_DARKPLACES4)
628                                 cl.punchvector[i] = MSG_ReadCoord16i();
629                         else if (cl.protocol == PROTOCOL_DARKPLACES5)
630                                 cl.punchvector[i] = MSG_ReadCoord32f();
631                         else
632                                 Host_Error("CL_ParseClientData: unknown cl.protocol\n");
633                 }
634                 else
635                         cl.punchvector[i] = 0;
636                 if (bits & (SU_VELOCITY1<<i) )
637                 {
638                         if (cl.protocol == PROTOCOL_QUAKE || cl.protocol == PROTOCOL_DARKPLACES1 || cl.protocol == PROTOCOL_DARKPLACES2 || cl.protocol == PROTOCOL_DARKPLACES3 || cl.protocol == PROTOCOL_DARKPLACES4)
639                                 cl.mvelocity[0][i] = MSG_ReadChar()*16;
640                         else if (cl.protocol == PROTOCOL_DARKPLACES5)
641                                 cl.mvelocity[0][i] = MSG_ReadCoord32f();
642                         else
643                                 Host_Error("CL_ParseClientData: unknown cl.protocol\n");
644                 }
645                 else
646                         cl.mvelocity[0][i] = 0;
647         }
648
649         i = MSG_ReadLong ();
650         if (cl.items != i)
651         {       // set flash times
652                 for (j=0 ; j<32 ; j++)
653                         if ( (i & (1<<j)) && !(cl.items & (1<<j)))
654                                 cl.item_gettime[j] = cl.time;
655                 cl.items = i;
656         }
657
658         cl.onground = (bits & SU_ONGROUND) != 0;
659         cl.inwater = (bits & SU_INWATER) != 0;
660
661         if (cl.protocol == PROTOCOL_DARKPLACES5)
662         {
663                 cl.stats[STAT_WEAPONFRAME] = (bits & SU_WEAPONFRAME) ? MSG_ReadShort() : 0;
664                 cl.stats[STAT_ARMOR] = (bits & SU_ARMOR) ? MSG_ReadShort() : 0;
665                 cl.stats[STAT_WEAPON] = (bits & SU_WEAPON) ? MSG_ReadShort() : 0;
666                 cl.stats[STAT_HEALTH] = MSG_ReadShort();
667                 cl.stats[STAT_AMMO] = MSG_ReadShort();
668
669                 cl.stats[STAT_SHELLS] = MSG_ReadShort();
670                 cl.stats[STAT_NAILS] = MSG_ReadShort();
671                 cl.stats[STAT_ROCKETS] = MSG_ReadShort();
672                 cl.stats[STAT_CELLS] = MSG_ReadShort();
673                 //cl.stats[STAT_GENERIC1] = MSG_ReadShort();
674                 //cl.stats[STAT_GENERIC2] = MSG_ReadShort();
675                 //cl.stats[STAT_GENERIC3] = MSG_ReadShort();
676                 //cl.stats[STAT_GENERIC4] = MSG_ReadShort();
677                 //cl.stats[STAT_GENERIC5] = MSG_ReadShort();
678                 //cl.stats[STAT_GENERIC6] = MSG_ReadShort();
679
680                 i = (unsigned short) MSG_ReadShort ();
681         }
682         else
683         {
684                 cl.stats[STAT_WEAPONFRAME] = (bits & SU_WEAPONFRAME) ? MSG_ReadByte() : 0;
685                 cl.stats[STAT_ARMOR] = (bits & SU_ARMOR) ? MSG_ReadByte() : 0;
686                 cl.stats[STAT_WEAPON] = (bits & SU_WEAPON) ? MSG_ReadByte() : 0;
687                 cl.stats[STAT_HEALTH] = MSG_ReadShort();
688                 cl.stats[STAT_AMMO] = MSG_ReadByte();
689         
690                 cl.stats[STAT_SHELLS] = MSG_ReadByte();
691                 cl.stats[STAT_NAILS] = MSG_ReadByte();
692                 cl.stats[STAT_ROCKETS] = MSG_ReadByte();
693                 cl.stats[STAT_CELLS] = MSG_ReadByte();
694
695                 i = MSG_ReadByte ();
696                 if (gamemode == GAME_HIPNOTIC || gamemode == GAME_ROGUE)
697                         i = (1<<i);
698         }
699
700         // GAME_NEXUIZ hud needs weapon change time
701         // GAME_NEXUIZ uses a bit number as it's STAT_ACTIVEWEAPON, not a bitfield
702         // like other modes
703         if (cl.stats[STAT_ACTIVEWEAPON] != i)
704                 cl.weapontime = cl.time;
705         cl.stats[STAT_ACTIVEWEAPON] = i;
706
707         cl.viewzoomold = cl.viewzoomnew; // for interpolation
708         if (bits & SU_VIEWZOOM)
709         {
710                 if (cl.protocol == PROTOCOL_DARKPLACES5)
711                         i = (unsigned short) MSG_ReadShort();
712                 else
713                         i = MSG_ReadByte();
714                 if (i < 2)
715                         i = 2;
716                 cl.viewzoomnew = (float) i * (1.0f / 255.0f);
717         }
718         else
719                 cl.viewzoomnew = 1;
720
721 }
722
723 /*
724 =====================
725 CL_ParseStatic
726 =====================
727 */
728 void CL_ParseStatic (int large)
729 {
730         entity_t *ent;
731
732         if (cl_num_static_entities >= cl_max_static_entities)
733                 Host_Error ("Too many static entities");
734         ent = &cl_static_entities[cl_num_static_entities++];
735         CL_ParseBaseline (ent, large);
736
737 // copy it to the current state
738         ent->render.model = cl.model_precache[ent->state_baseline.modelindex];
739         ent->render.frame = ent->render.frame1 = ent->render.frame2 = ent->state_baseline.frame;
740         ent->render.framelerp = 0;
741         // make torchs play out of sync
742         ent->render.frame1time = ent->render.frame2time = lhrandom(-10, -1);
743         ent->render.colormap = -1; // no special coloring
744         ent->render.skinnum = ent->state_baseline.skin;
745         ent->render.effects = ent->state_baseline.effects;
746         ent->render.alpha = 1;
747         //ent->render.scale = 1;
748
749         //VectorCopy (ent->state_baseline.origin, ent->render.origin);
750         //VectorCopy (ent->state_baseline.angles, ent->render.angles);
751
752         Matrix4x4_CreateFromQuakeEntity(&ent->render.matrix, ent->state_baseline.origin[0], ent->state_baseline.origin[1], ent->state_baseline.origin[2], ent->state_baseline.angles[0], ent->state_baseline.angles[1], ent->state_baseline.angles[2], 1);
753         Matrix4x4_Invert_Simple(&ent->render.inversematrix, &ent->render.matrix);
754         CL_BoundingBoxForEntity(&ent->render);
755
756         // This is definitely cheating...
757         if (ent->render.model == NULL)
758                 cl_num_static_entities--;
759 }
760
761 /*
762 ===================
763 CL_ParseStaticSound
764 ===================
765 */
766 void CL_ParseStaticSound (int large)
767 {
768         vec3_t          org;
769         int                     sound_num, vol, atten;
770
771         MSG_ReadVector(org, cl.protocol);
772         if (large)
773                 sound_num = (unsigned short) MSG_ReadShort ();
774         else
775                 sound_num = MSG_ReadByte ();
776         vol = MSG_ReadByte ();
777         atten = MSG_ReadByte ();
778
779         S_StaticSound (cl.sound_precache[sound_num], org, vol, atten);
780 }
781
782 void CL_ParseEffect (void)
783 {
784         vec3_t          org;
785         int                     modelindex, startframe, framecount, framerate;
786
787         MSG_ReadVector(org, cl.protocol);
788         modelindex = MSG_ReadByte ();
789         startframe = MSG_ReadByte ();
790         framecount = MSG_ReadByte ();
791         framerate = MSG_ReadByte ();
792
793         CL_Effect(org, modelindex, startframe, framecount, framerate);
794 }
795
796 void CL_ParseEffect2 (void)
797 {
798         vec3_t          org;
799         int                     modelindex, startframe, framecount, framerate;
800
801         MSG_ReadVector(org, cl.protocol);
802         modelindex = (unsigned short) MSG_ReadShort ();
803         startframe = (unsigned short) MSG_ReadShort ();
804         framecount = MSG_ReadByte ();
805         framerate = MSG_ReadByte ();
806
807         CL_Effect(org, modelindex, startframe, framecount, framerate);
808 }
809
810 model_t *cl_model_bolt = NULL;
811 model_t *cl_model_bolt2 = NULL;
812 model_t *cl_model_bolt3 = NULL;
813 model_t *cl_model_beam = NULL;
814
815 sfx_t *cl_sfx_wizhit;
816 sfx_t *cl_sfx_knighthit;
817 sfx_t *cl_sfx_tink1;
818 sfx_t *cl_sfx_ric1;
819 sfx_t *cl_sfx_ric2;
820 sfx_t *cl_sfx_ric3;
821 sfx_t *cl_sfx_r_exp3;
822
823 /*
824 =================
825 CL_ParseTEnt
826 =================
827 */
828 void CL_InitTEnts (void)
829 {
830         cl_sfx_wizhit = S_PrecacheSound ("wizard/hit.wav", false, true);
831         cl_sfx_knighthit = S_PrecacheSound ("hknight/hit.wav", false, true);
832         cl_sfx_tink1 = S_PrecacheSound ("weapons/tink1.wav", false, true);
833         cl_sfx_ric1 = S_PrecacheSound ("weapons/ric1.wav", false, true);
834         cl_sfx_ric2 = S_PrecacheSound ("weapons/ric2.wav", false, true);
835         cl_sfx_ric3 = S_PrecacheSound ("weapons/ric3.wav", false, true);
836         cl_sfx_r_exp3 = S_PrecacheSound ("weapons/r_exp3.wav", false, true);
837 }
838
839 void CL_ParseBeam (model_t *m, int lightning)
840 {
841         int i, ent;
842         vec3_t start, end;
843         beam_t *b;
844
845         ent = (unsigned short) MSG_ReadShort ();
846         MSG_ReadVector(start, cl.protocol);
847         MSG_ReadVector(end, cl.protocol);
848
849         if (ent >= MAX_EDICTS)
850         {
851                 Con_Printf("CL_ParseBeam: invalid entity number %i\n", ent);
852                 ent = 0;
853         }
854
855         // override any beam with the same entity
856         for (i = 0, b = cl_beams;i < cl_max_beams;i++, b++)
857         {
858                 if (b->entity == ent)
859                 {
860                         //b->entity = ent;
861                         b->lightning = lightning;
862                         b->relativestartvalid = (ent && cl_entities[ent].state_current.active) ? 2 : 0;
863                         b->model = m;
864                         b->endtime = cl.time + 0.2;
865                         VectorCopy (start, b->start);
866                         VectorCopy (end, b->end);
867                         return;
868                 }
869         }
870
871         // find a free beam
872         for (i = 0, b = cl_beams;i < cl_max_beams;i++, b++)
873         {
874                 if (!b->model || b->endtime < cl.time)
875                 {
876                         b->entity = ent;
877                         b->lightning = lightning;
878                         b->relativestartvalid = (ent && cl_entities[ent].state_current.active) ? 2 : 0;
879                         b->model = m;
880                         b->endtime = cl.time + 0.2;
881                         VectorCopy (start, b->start);
882                         VectorCopy (end, b->end);
883                         return;
884                 }
885         }
886         Con_Print("beam list overflow!\n");
887 }
888
889 void CL_ParseTempEntity(void)
890 {
891         int type;
892         vec3_t pos;
893         vec3_t dir;
894         vec3_t pos2;
895         vec3_t color;
896         int rnd;
897         int colorStart, colorLength, count;
898         float velspeed, radius;
899         qbyte *tempcolor;
900         matrix4x4_t tempmatrix;
901
902         type = MSG_ReadByte();
903         switch (type)
904         {
905         case TE_WIZSPIKE:
906                 // spike hitting wall
907                 MSG_ReadVector(pos, cl.protocol);
908                 CL_FindNonSolidLocation(pos, pos, 4);
909                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
910                 CL_AllocDlight(NULL, &tempmatrix, 100, 0.12f, 0.50f, 0.12f, 500, 0.2, 0, 0, false, 1);
911                 CL_RunParticleEffect(pos, vec3_origin, 20, 30);
912                 S_StartSound(-1, 0, cl_sfx_wizhit, pos, 1, 1);
913                 break;
914
915         case TE_KNIGHTSPIKE:
916                 // spike hitting wall
917                 MSG_ReadVector(pos, cl.protocol);
918                 CL_FindNonSolidLocation(pos, pos, 4);
919                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
920                 CL_AllocDlight(NULL, &tempmatrix, 100, 0.50f, 0.30f, 0.10f, 500, 0.2, 0, 0, false, 1);
921                 CL_RunParticleEffect(pos, vec3_origin, 226, 20);
922                 S_StartSound(-1, 0, cl_sfx_knighthit, pos, 1, 1);
923                 break;
924
925         case TE_SPIKE:
926                 // spike hitting wall
927                 MSG_ReadVector(pos, cl.protocol);
928                 CL_FindNonSolidLocation(pos, pos, 4);
929                 // LordHavoc: changed to spark shower
930                 CL_SparkShower(pos, vec3_origin, 15);
931                 if (rand() % 5)
932                         S_StartSound(-1, 0, cl_sfx_tink1, pos, 1, 1);
933                 else
934                 {
935                         rnd = rand() & 3;
936                         if (rnd == 1)
937                                 S_StartSound(-1, 0, cl_sfx_ric1, pos, 1, 1);
938                         else if (rnd == 2)
939                                 S_StartSound(-1, 0, cl_sfx_ric2, pos, 1, 1);
940                         else
941                                 S_StartSound(-1, 0, cl_sfx_ric3, pos, 1, 1);
942                 }
943                 break;
944         case TE_SPIKEQUAD:
945                 // quad spike hitting wall
946                 MSG_ReadVector(pos, cl.protocol);
947                 CL_FindNonSolidLocation(pos, pos, 4);
948                 // LordHavoc: changed to spark shower
949                 CL_SparkShower(pos, vec3_origin, 15);
950                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
951                 CL_AllocDlight(NULL, &tempmatrix, 100, 0.15f, 0.15f, 1.5f, 500, 0.2, 0, 0, true, 1);
952                 S_StartSound(-1, 0, cl_sfx_r_exp3, pos, 1, 1);
953                 if (rand() % 5)
954                         S_StartSound(-1, 0, cl_sfx_tink1, pos, 1, 1);
955                 else
956                 {
957                         rnd = rand() & 3;
958                         if (rnd == 1)
959                                 S_StartSound(-1, 0, cl_sfx_ric1, pos, 1, 1);
960                         else if (rnd == 2)
961                                 S_StartSound(-1, 0, cl_sfx_ric2, pos, 1, 1);
962                         else
963                                 S_StartSound(-1, 0, cl_sfx_ric3, pos, 1, 1);
964                 }
965                 break;
966         case TE_SUPERSPIKE:
967                 // super spike hitting wall
968                 MSG_ReadVector(pos, cl.protocol);
969                 CL_FindNonSolidLocation(pos, pos, 4);
970                 // LordHavoc: changed to dust shower
971                 CL_SparkShower(pos, vec3_origin, 30);
972                 if (rand() % 5)
973                         S_StartSound(-1, 0, cl_sfx_tink1, pos, 1, 1);
974                 else
975                 {
976                         rnd = rand() & 3;
977                         if (rnd == 1)
978                                 S_StartSound(-1, 0, cl_sfx_ric1, pos, 1, 1);
979                         else if (rnd == 2)
980                                 S_StartSound(-1, 0, cl_sfx_ric2, pos, 1, 1);
981                         else
982                                 S_StartSound(-1, 0, cl_sfx_ric3, pos, 1, 1);
983                 }
984                 break;
985         case TE_SUPERSPIKEQUAD:
986                 // quad super spike hitting wall
987                 MSG_ReadVector(pos, cl.protocol);
988                 CL_FindNonSolidLocation(pos, pos, 4);
989                 // LordHavoc: changed to dust shower
990                 CL_SparkShower(pos, vec3_origin, 30);
991                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
992                 CL_AllocDlight(NULL, &tempmatrix, 100, 0.15f, 0.15f, 1.5f, 500, 0.2, 0, 0, true, 1);
993                 if (rand() % 5)
994                         S_StartSound(-1, 0, cl_sfx_tink1, pos, 1, 1);
995                 else
996                 {
997                         rnd = rand() & 3;
998                         if (rnd == 1)
999                                 S_StartSound(-1, 0, cl_sfx_ric1, pos, 1, 1);
1000                         else if (rnd == 2)
1001                                 S_StartSound(-1, 0, cl_sfx_ric2, pos, 1, 1);
1002                         else
1003                                 S_StartSound(-1, 0, cl_sfx_ric3, pos, 1, 1);
1004                 }
1005                 break;
1006                 // LordHavoc: added for improved blood splatters
1007         case TE_BLOOD:
1008                 // blood puff
1009                 MSG_ReadVector(pos, cl.protocol);
1010                 CL_FindNonSolidLocation(pos, pos, 4);
1011                 dir[0] = MSG_ReadChar();
1012                 dir[1] = MSG_ReadChar();
1013                 dir[2] = MSG_ReadChar();
1014                 count = MSG_ReadByte();
1015                 CL_BloodPuff(pos, dir, count);
1016                 break;
1017         case TE_SPARK:
1018                 // spark shower
1019                 MSG_ReadVector(pos, cl.protocol);
1020                 CL_FindNonSolidLocation(pos, pos, 4);
1021                 dir[0] = MSG_ReadChar();
1022                 dir[1] = MSG_ReadChar();
1023                 dir[2] = MSG_ReadChar();
1024                 count = MSG_ReadByte();
1025                 CL_SparkShower(pos, dir, count);
1026                 break;
1027         case TE_PLASMABURN:
1028                 MSG_ReadVector(pos, cl.protocol);
1029                 CL_FindNonSolidLocation(pos, pos, 4);
1030                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
1031                 CL_AllocDlight(NULL, &tempmatrix, 200, 1, 1, 1, 1000, 0.2, 0, 0, true, 1);
1032                 CL_PlasmaBurn(pos);
1033                 break;
1034                 // LordHavoc: added for improved gore
1035         case TE_BLOODSHOWER:
1036                 // vaporized body
1037                 MSG_ReadVector(pos, cl.protocol); // mins
1038                 MSG_ReadVector(pos2, cl.protocol); // maxs
1039                 velspeed = MSG_ReadCoord(cl.protocol); // speed
1040                 count = (unsigned short) MSG_ReadShort(); // number of particles
1041                 CL_BloodShower(pos, pos2, velspeed, count);
1042                 break;
1043         case TE_PARTICLECUBE:
1044                 // general purpose particle effect
1045                 MSG_ReadVector(pos, cl.protocol); // mins
1046                 MSG_ReadVector(pos2, cl.protocol); // maxs
1047                 MSG_ReadVector(dir, cl.protocol); // dir
1048                 count = (unsigned short) MSG_ReadShort(); // number of particles
1049                 colorStart = MSG_ReadByte(); // color
1050                 colorLength = MSG_ReadByte(); // gravity (1 or 0)
1051                 velspeed = MSG_ReadCoord(cl.protocol); // randomvel
1052                 CL_ParticleCube(pos, pos2, dir, count, colorStart, colorLength, velspeed);
1053                 break;
1054
1055         case TE_PARTICLERAIN:
1056                 // general purpose particle effect
1057                 MSG_ReadVector(pos, cl.protocol); // mins
1058                 MSG_ReadVector(pos2, cl.protocol); // maxs
1059                 MSG_ReadVector(dir, cl.protocol); // dir
1060                 count = (unsigned short) MSG_ReadShort(); // number of particles
1061                 colorStart = MSG_ReadByte(); // color
1062                 CL_ParticleRain(pos, pos2, dir, count, colorStart, 0);
1063                 break;
1064
1065         case TE_PARTICLESNOW:
1066                 // general purpose particle effect
1067                 MSG_ReadVector(pos, cl.protocol); // mins
1068                 MSG_ReadVector(pos2, cl.protocol); // maxs
1069                 MSG_ReadVector(dir, cl.protocol); // dir
1070                 count = (unsigned short) MSG_ReadShort(); // number of particles
1071                 colorStart = MSG_ReadByte(); // color
1072                 CL_ParticleRain(pos, pos2, dir, count, colorStart, 1);
1073                 break;
1074
1075         case TE_GUNSHOT:
1076                 // bullet hitting wall
1077                 MSG_ReadVector(pos, cl.protocol);
1078                 CL_FindNonSolidLocation(pos, pos, 4);
1079                 // LordHavoc: changed to dust shower
1080                 CL_SparkShower(pos, vec3_origin, 15);
1081                 break;
1082
1083         case TE_GUNSHOTQUAD:
1084                 // quad bullet hitting wall
1085                 MSG_ReadVector(pos, cl.protocol);
1086                 CL_FindNonSolidLocation(pos, pos, 4);
1087                 CL_SparkShower(pos, vec3_origin, 15);
1088                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
1089                 CL_AllocDlight(NULL, &tempmatrix, 100, 0.15f, 0.15f, 1.5f, 500, 0.2, 0, 0, true, 1);
1090                 break;
1091
1092         case TE_EXPLOSION:
1093                 // rocket explosion
1094                 MSG_ReadVector(pos, cl.protocol);
1095                 CL_FindNonSolidLocation(pos, pos, 10);
1096                 CL_ParticleExplosion(pos);
1097                 // LordHavoc: boosted color from 1.0, 0.8, 0.4 to 1.25, 1.0, 0.5
1098                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
1099                 CL_AllocDlight(NULL, &tempmatrix, 350, 4.0f, 2.0f, 0.50f, 700, 0.5, 0, 0, true, 1);
1100                 S_StartSound(-1, 0, cl_sfx_r_exp3, pos, 1, 1);
1101                 break;
1102
1103         case TE_EXPLOSIONQUAD:
1104                 // quad rocket explosion
1105                 MSG_ReadVector(pos, cl.protocol);
1106                 CL_FindNonSolidLocation(pos, pos, 10);
1107                 CL_ParticleExplosion(pos);
1108                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
1109                 CL_AllocDlight(NULL, &tempmatrix, 350, 2.5f, 2.0f, 4.0f, 700, 0.5, 0, 0, true, 1);
1110                 S_StartSound(-1, 0, cl_sfx_r_exp3, pos, 1, 1);
1111                 break;
1112
1113         case TE_EXPLOSION3:
1114                 // Nehahra movie colored lighting explosion
1115                 MSG_ReadVector(pos, cl.protocol);
1116                 CL_FindNonSolidLocation(pos, pos, 10);
1117                 CL_ParticleExplosion(pos);
1118                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
1119                 color[0] = MSG_ReadCoord(cl.protocol) * (2.0f / 1.0f);
1120                 color[1] = MSG_ReadCoord(cl.protocol) * (2.0f / 1.0f);
1121                 color[2] = MSG_ReadCoord(cl.protocol) * (2.0f / 1.0f);
1122                 CL_AllocDlight(NULL, &tempmatrix, 350, color[0], color[1], color[2], 700, 0.5, 0, 0, true, 1);  
1123                 S_StartSound(-1, 0, cl_sfx_r_exp3, pos, 1, 1);
1124                 break;
1125
1126         case TE_EXPLOSIONRGB:
1127                 // colored lighting explosion
1128                 MSG_ReadVector(pos, cl.protocol);
1129                 CL_FindNonSolidLocation(pos, pos, 10);
1130                 CL_ParticleExplosion(pos);
1131                 color[0] = MSG_ReadByte() * (2.0f / 255.0f);
1132                 color[1] = MSG_ReadByte() * (2.0f / 255.0f);
1133                 color[2] = MSG_ReadByte() * (2.0f / 255.0f);
1134                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
1135                 CL_AllocDlight(NULL, &tempmatrix, 350, color[0], color[1], color[2], 700, 0.5, 0, 0, true, 1);
1136                 S_StartSound(-1, 0, cl_sfx_r_exp3, pos, 1, 1);
1137                 break;
1138
1139         case TE_TAREXPLOSION:
1140                 // tarbaby explosion
1141                 MSG_ReadVector(pos, cl.protocol);
1142                 CL_FindNonSolidLocation(pos, pos, 10);
1143                 CL_BlobExplosion(pos);
1144
1145                 S_StartSound(-1, 0, cl_sfx_r_exp3, pos, 1, 1);
1146                 S_StartSound(-1, 0, cl_sfx_r_exp3, pos, 1, 1);
1147                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
1148                 CL_AllocDlight(NULL, &tempmatrix, 600, 1.6f, 0.8f, 2.0f, 1200, 0.5, 0, 0, true, 1);
1149                 break;
1150
1151         case TE_SMALLFLASH:
1152                 MSG_ReadVector(pos, cl.protocol);
1153                 CL_FindNonSolidLocation(pos, pos, 10);
1154                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
1155                 CL_AllocDlight(NULL, &tempmatrix, 200, 2, 2, 2, 1000, 0.2, 0, 0, true, 1);
1156                 break;
1157
1158         case TE_CUSTOMFLASH:
1159                 MSG_ReadVector(pos, cl.protocol);
1160                 CL_FindNonSolidLocation(pos, pos, 4);
1161                 radius = MSG_ReadByte() * 8;
1162                 velspeed = (MSG_ReadByte() + 1) * (1.0 / 256.0);
1163                 color[0] = MSG_ReadByte() * (2.0f / 255.0f);
1164                 color[1] = MSG_ReadByte() * (2.0f / 255.0f);
1165                 color[2] = MSG_ReadByte() * (2.0f / 255.0f);
1166                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
1167                 CL_AllocDlight(NULL, &tempmatrix, radius, color[0], color[1], color[2], radius / velspeed, velspeed, 0, 0, true, 1);
1168                 break;
1169
1170         case TE_FLAMEJET:
1171                 MSG_ReadVector(pos, cl.protocol);
1172                 MSG_ReadVector(dir, cl.protocol);
1173                 count = MSG_ReadByte();
1174                 CL_Flames(pos, dir, count);
1175                 break;
1176
1177         case TE_LIGHTNING1:
1178                 // lightning bolts
1179                 if (!cl_model_bolt)
1180                         cl_model_bolt = Mod_ForName("progs/bolt.mdl", false, false, false);
1181                 CL_ParseBeam(cl_model_bolt, true);
1182                 break;
1183
1184         case TE_LIGHTNING2:
1185                 // lightning bolts
1186                 if (!cl_model_bolt2)
1187                         cl_model_bolt2 = Mod_ForName("progs/bolt2.mdl", false, false, false);
1188                 CL_ParseBeam(cl_model_bolt2, true);
1189                 break;
1190
1191         case TE_LIGHTNING3:
1192                 // lightning bolts
1193                 if (!cl_model_bolt3)
1194                         cl_model_bolt3 = Mod_ForName("progs/bolt3.mdl", true, false, false);
1195                 CL_ParseBeam(cl_model_bolt3, false);
1196                 break;
1197
1198 // PGM 01/21/97
1199         case TE_BEAM:
1200                 // grappling hook beam
1201                 if (!cl_model_beam)
1202                         cl_model_beam = Mod_ForName("progs/beam.mdl", true, false, false);
1203                 CL_ParseBeam(cl_model_beam, false);
1204                 break;
1205 // PGM 01/21/97
1206
1207 // LordHavoc: for compatibility with the Nehahra movie...
1208         case TE_LIGHTNING4NEH:
1209                 CL_ParseBeam(Mod_ForName(MSG_ReadString(), true, false, false), false);
1210                 break;
1211
1212         case TE_LAVASPLASH:
1213                 MSG_ReadVector(pos, cl.protocol);
1214                 CL_LavaSplash(pos);
1215                 break;
1216
1217         case TE_TELEPORT:
1218                 MSG_ReadVector(pos, cl.protocol);
1219                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
1220                 CL_AllocDlight(NULL, &tempmatrix, 500, 1.0f, 1.0f, 1.0f, 1500, 99.0f, 0, 0, true, 1);
1221 //              CL_TeleportSplash(pos);
1222                 break;
1223
1224         case TE_EXPLOSION2:
1225                 // color mapped explosion
1226                 MSG_ReadVector(pos, cl.protocol);
1227                 CL_FindNonSolidLocation(pos, pos, 10);
1228                 colorStart = MSG_ReadByte();
1229                 colorLength = MSG_ReadByte();
1230                 CL_ParticleExplosion2(pos, colorStart, colorLength);
1231                 tempcolor = (qbyte *)&palette_complete[(rand()%colorLength) + colorStart];
1232                 color[0] = tempcolor[0] * (2.0f / 255.0f);
1233                 color[1] = tempcolor[1] * (2.0f / 255.0f);
1234                 color[2] = tempcolor[2] * (2.0f / 255.0f);
1235                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
1236                 CL_AllocDlight(NULL, &tempmatrix, 350, color[0], color[1], color[2], 700, 0.5, 0, 0, true, 1);
1237                 S_StartSound(-1, 0, cl_sfx_r_exp3, pos, 1, 1);
1238                 break;
1239
1240         case TE_TEI_G3:
1241                 MSG_ReadVector(pos, cl.protocol);
1242                 MSG_ReadVector(pos2, cl.protocol);
1243                 MSG_ReadVector(dir, cl.protocol);
1244                 CL_BeamParticle(pos, pos2, 12, 1, 0.3, 0.1, 1, 1);
1245                 CL_BeamParticle(pos, pos2, 5, 1, 0.9, 0.3, 1, 1);
1246                 break;
1247
1248         case TE_TEI_SMOKE:
1249                 MSG_ReadVector(pos, cl.protocol);
1250                 MSG_ReadVector(dir, cl.protocol);
1251                 count = MSG_ReadByte();
1252                 CL_FindNonSolidLocation(pos, pos, 4);
1253                 CL_Tei_Smoke(pos, dir, count);
1254                 break;
1255
1256         case TE_TEI_BIGEXPLOSION:
1257                 MSG_ReadVector(pos, cl.protocol);
1258                 CL_FindNonSolidLocation(pos, pos, 10);
1259                 CL_ParticleExplosion(pos);
1260                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
1261                 CL_AllocDlight(NULL, &tempmatrix, 500, 2.5f, 2.0f, 1.0f, 500, 9999, 0, 0, true, 1);
1262                 S_StartSound(-1, 0, cl_sfx_r_exp3, pos, 1, 1);
1263                 break;
1264
1265         case TE_TEI_PLASMAHIT:
1266                 MSG_ReadVector(pos, cl.protocol);
1267                 MSG_ReadVector(dir, cl.protocol);
1268                 count = MSG_ReadByte();
1269                 CL_FindNonSolidLocation(pos, pos, 5);
1270                 CL_Tei_PlasmaHit(pos, dir, count);
1271                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
1272                 CL_AllocDlight(NULL, &tempmatrix, 500, 0.6, 1.2, 2.0f, 2000, 9999, 0, 0, true, 1);
1273                 break;
1274
1275         default:
1276                 Host_Error("CL_ParseTempEntity: bad type %d (hex %02X)", type, type);
1277         }
1278 }
1279
1280 #define SHOWNET(x) if(cl_shownet.integer==2)Con_Printf("%3i:%s\n", msg_readcount-1, x);
1281
1282 static qbyte cgamenetbuffer[65536];
1283
1284 /*
1285 =====================
1286 CL_ParseServerMessage
1287 =====================
1288 */
1289 int parsingerror = false;
1290 void CL_ParseServerMessage(void)
1291 {
1292         int                     cmd;
1293         int                     i, entitiesupdated;
1294         qbyte           cmdlog[32];
1295         char            *cmdlogname[32], *temp;
1296         int                     cmdindex, cmdcount = 0;
1297
1298         if (cls.demorecording)
1299                 CL_WriteDemoMessage ();
1300
1301         cl.last_received_message = realtime;
1302
1303 //
1304 // if recording demos, copy the message out
1305 //
1306         if (cl_shownet.integer == 1)
1307                 Con_Printf("%f %i\n", realtime, net_message.cursize);
1308         else if (cl_shownet.integer == 2)
1309                 Con_Print("------------------\n");
1310
1311         cl.onground = false;    // unless the server says otherwise
1312 //
1313 // parse the message
1314 //
1315         //MSG_BeginReading ();
1316
1317         entitiesupdated = false;
1318
1319         parsingerror = true;
1320
1321         while (1)
1322         {
1323                 if (msg_badread)
1324                         Host_Error ("CL_ParseServerMessage: Bad server message");
1325
1326                 cmd = MSG_ReadByte ();
1327
1328                 if (cmd == -1)
1329                 {
1330                         SHOWNET("END OF MESSAGE");
1331                         break;          // end of message
1332                 }
1333
1334                 cmdindex = cmdcount & 31;
1335                 cmdcount++;
1336                 cmdlog[cmdindex] = cmd;
1337
1338                 // if the high bit of the command byte is set, it is a fast update
1339                 if (cmd & 128)
1340                 {
1341                         entitiesupdated = true;
1342                         // LordHavoc: fix for bizarre problem in MSVC that I do not understand (if I assign the string pointer directly it ends up storing a NULL pointer)
1343                         temp = "entity";
1344                         cmdlogname[cmdindex] = temp;
1345                         SHOWNET("fast update");
1346                         if (cls.signon == SIGNONS - 1)
1347                         {
1348                                 // first update is the final signon stage
1349                                 cls.signon = SIGNONS;
1350                                 CL_SignonReply ();
1351                         }
1352                         EntityFrameQuake_ReadEntity (cmd&127);
1353                         continue;
1354                 }
1355
1356                 SHOWNET(svc_strings[cmd]);
1357                 cmdlogname[cmdindex] = svc_strings[cmd];
1358                 if (!cmdlogname[cmdindex])
1359                 {
1360                         // LordHavoc: fix for bizarre problem in MSVC that I do not understand (if I assign the string pointer directly it ends up storing a NULL pointer)
1361                         temp = "<unknown>";
1362                         cmdlogname[cmdindex] = temp;
1363                 }
1364
1365                 // other commands
1366                 switch (cmd)
1367                 {
1368                 default:
1369                         {
1370                                 char description[32*64], temp[64];
1371                                 int count;
1372                                 strcpy (description, "packet dump: ");
1373                                 i = cmdcount - 32;
1374                                 if (i < 0)
1375                                         i = 0;
1376                                 count = cmdcount - i;
1377                                 i &= 31;
1378                                 while(count > 0)
1379                                 {
1380                                         snprintf (temp, sizeof (temp), "%3i:%s ", cmdlog[i], cmdlogname[i]);
1381                                         strlcat (description, temp, sizeof (description));
1382                                         count--;
1383                                         i++;
1384                                         i &= 31;
1385                                 }
1386                                 description[strlen(description)-1] = '\n'; // replace the last space with a newline
1387                                 Con_Print(description);
1388                                 Host_Error ("CL_ParseServerMessage: Illegible server message\n");
1389                         }
1390                         break;
1391
1392                 case svc_nop:
1393                         if (cls.signon < SIGNONS)
1394                                 Con_Print("<-- server to client keepalive\n");
1395                         break;
1396
1397                 case svc_time:
1398                         cl.mtime[1] = cl.mtime[0];
1399                         cl.mtime[0] = MSG_ReadFloat ();
1400                         break;
1401
1402                 case svc_clientdata:
1403                         i = (unsigned short) MSG_ReadShort ();
1404                         CL_ParseClientdata (i);
1405                         break;
1406
1407                 case svc_version:
1408                         i = MSG_ReadLong ();
1409                         // hack for unmarked Nehahra movie demos which had a custom protocol
1410                         if (i == PROTOCOL_QUAKE && cls.demoplayback && demo_nehahra.integer)
1411                                 i = PROTOCOL_NEHAHRAMOVIE;
1412                         if (i != PROTOCOL_QUAKE && i != PROTOCOL_DARKPLACES1 && i != PROTOCOL_DARKPLACES2 && i != PROTOCOL_DARKPLACES3 && i != PROTOCOL_DARKPLACES4 && i != PROTOCOL_DARKPLACES5 && i != PROTOCOL_NEHAHRAMOVIE)
1413                                 Host_Error("CL_ParseServerMessage: Server is protocol %i, not %i (Quake), %i (DP1), %i (DP2), %i (DP3), %i (DP4), %i (DP5), or %i (Nehahra movie)", i, PROTOCOL_QUAKE, PROTOCOL_DARKPLACES1, PROTOCOL_DARKPLACES2, PROTOCOL_DARKPLACES3, PROTOCOL_DARKPLACES4, PROTOCOL_DARKPLACES5, PROTOCOL_NEHAHRAMOVIE);
1414                         cl.protocol = i;
1415                         break;
1416
1417                 case svc_disconnect:
1418                         Con_Printf ("Server disconnected\n");
1419                         if (cls.demonum != -1)
1420                                 CL_NextDemo ();
1421                         else
1422                                 CL_Disconnect ();
1423                         break;
1424
1425                 case svc_print:
1426                         Con_Print(MSG_ReadString());
1427                         break;
1428
1429                 case svc_centerprint:
1430                         SCR_CenterPrint(MSG_ReadString ());
1431                         break;
1432
1433                 case svc_stufftext:
1434                         Cbuf_AddText (MSG_ReadString ());
1435                         break;
1436
1437                 case svc_damage:
1438                         V_ParseDamage ();
1439                         break;
1440
1441                 case svc_serverinfo:
1442                         CL_ParseServerInfo ();
1443                         break;
1444
1445                 case svc_setangle:
1446                         for (i=0 ; i<3 ; i++)
1447                         {
1448                                 if (cl.protocol == PROTOCOL_DARKPLACES5)
1449                                         cl.viewangles[i] = MSG_ReadAngle16i ();
1450                                 else
1451                                         cl.viewangles[i] = MSG_ReadAngle8i ();
1452                         }
1453                         break;
1454
1455                 case svc_setview:
1456                         cl.viewentity = (unsigned short)MSG_ReadShort ();
1457                         if (cl.viewentity >= MAX_EDICTS)
1458                                 Host_Error("svc_setview >= MAX_EDICTS\n");
1459                         // LordHavoc: assume first setview recieved is the real player entity
1460                         if (!cl.playerentity)
1461                                 cl.playerentity = cl.viewentity;
1462                         break;
1463
1464                 case svc_lightstyle:
1465                         i = MSG_ReadByte ();
1466                         if (i >= MAX_LIGHTSTYLES)
1467                                 Host_Error ("svc_lightstyle >= MAX_LIGHTSTYLES");
1468                         strlcpy (cl_lightstyle[i].map,  MSG_ReadString(), sizeof (cl_lightstyle[i].map));
1469                         cl_lightstyle[i].map[MAX_STYLESTRING - 1] = 0;
1470                         cl_lightstyle[i].length = strlen(cl_lightstyle[i].map);
1471                         break;
1472
1473                 case svc_sound:
1474                         CL_ParseStartSoundPacket(false);
1475                         break;
1476
1477                 case svc_sound2:
1478                         CL_ParseStartSoundPacket(true);
1479                         break;
1480
1481                 case svc_stopsound:
1482                         i = (unsigned short) MSG_ReadShort();
1483                         S_StopSound(i>>3, i&7);
1484                         break;
1485
1486                 case svc_updatename:
1487                         i = MSG_ReadByte ();
1488                         if (i >= cl.maxclients)
1489                                 Host_Error ("CL_ParseServerMessage: svc_updatename >= cl.maxclients");
1490                         strlcpy (cl.scores[i].name, MSG_ReadString (), sizeof (cl.scores[i].name));
1491                         break;
1492
1493                 case svc_updatefrags:
1494                         i = MSG_ReadByte ();
1495                         if (i >= cl.maxclients)
1496                                 Host_Error ("CL_ParseServerMessage: svc_updatefrags >= cl.maxclients");
1497                         cl.scores[i].frags = (unsigned short) MSG_ReadShort ();
1498                         break;
1499
1500                 case svc_updatecolors:
1501                         i = MSG_ReadByte ();
1502                         if (i >= cl.maxclients)
1503                                 Host_Error ("CL_ParseServerMessage: svc_updatecolors >= cl.maxclients");
1504                         cl.scores[i].colors = MSG_ReadByte ();
1505                         break;
1506
1507                 case svc_particle:
1508                         CL_ParseParticleEffect ();
1509                         break;
1510
1511                 case svc_effect:
1512                         CL_ParseEffect ();
1513                         break;
1514
1515                 case svc_effect2:
1516                         CL_ParseEffect2 ();
1517                         break;
1518
1519                 case svc_spawnbaseline:
1520                         i = (unsigned short) MSG_ReadShort ();
1521                         if (i < 0 || i >= MAX_EDICTS)
1522                                 Host_Error ("CL_ParseServerMessage: svc_spawnbaseline: invalid entity number %i", i);
1523                         CL_ParseBaseline (cl_entities + i, false);
1524                         break;
1525                 case svc_spawnbaseline2:
1526                         i = (unsigned short) MSG_ReadShort ();
1527                         if (i < 0 || i >= MAX_EDICTS)
1528                                 Host_Error ("CL_ParseServerMessage: svc_spawnbaseline2: invalid entity number %i", i);
1529                         CL_ParseBaseline (cl_entities + i, true);
1530                         break;
1531                 case svc_spawnstatic:
1532                         CL_ParseStatic (false);
1533                         break;
1534                 case svc_spawnstatic2:
1535                         CL_ParseStatic (true);
1536                         break;
1537                 case svc_temp_entity:
1538                         CL_ParseTempEntity ();
1539                         break;
1540
1541                 case svc_setpause:
1542                         cl.paused = MSG_ReadByte ();
1543                         if (cl.paused)
1544                         {
1545                                 CDAudio_Pause ();
1546                                 S_PauseGameSounds ();
1547                         }
1548                         else
1549                         {
1550                                 CDAudio_Resume ();
1551                                 S_ResumeGameSounds ();
1552                         }
1553                         break;
1554
1555                 case svc_signonnum:
1556                         i = MSG_ReadByte ();
1557                         if (i <= cls.signon)
1558                                 Host_Error ("Received signon %i when at %i", i, cls.signon);
1559                         cls.signon = i;
1560                         CL_SignonReply ();
1561                         break;
1562
1563                 case svc_killedmonster:
1564                         cl.stats[STAT_MONSTERS]++;
1565                         break;
1566
1567                 case svc_foundsecret:
1568                         cl.stats[STAT_SECRETS]++;
1569                         break;
1570
1571                 case svc_updatestat:
1572                         i = MSG_ReadByte ();
1573                         if (i < 0 || i >= MAX_CL_STATS)
1574                                 Host_Error ("svc_updatestat: %i is invalid", i);
1575                         cl.stats[i] = MSG_ReadLong ();
1576                         break;
1577
1578                 case svc_spawnstaticsound:
1579                         CL_ParseStaticSound (false);
1580                         break;
1581
1582                 case svc_spawnstaticsound2:
1583                         CL_ParseStaticSound (true);
1584                         break;
1585
1586                 case svc_cdtrack:
1587                         cl.cdtrack = MSG_ReadByte ();
1588                         cl.looptrack = MSG_ReadByte ();
1589                         if ( (cls.demoplayback || cls.demorecording) && (cls.forcetrack != -1) )
1590                                 CDAudio_Play ((qbyte)cls.forcetrack, true);
1591                         else
1592                                 CDAudio_Play ((qbyte)cl.cdtrack, true);
1593                         break;
1594
1595                 case svc_intermission:
1596                         cl.intermission = 1;
1597                         cl.completed_time = cl.time;
1598                         break;
1599
1600                 case svc_finale:
1601                         cl.intermission = 2;
1602                         cl.completed_time = cl.time;
1603                         SCR_CenterPrint(MSG_ReadString ());
1604                         break;
1605
1606                 case svc_cutscene:
1607                         cl.intermission = 3;
1608                         cl.completed_time = cl.time;
1609                         SCR_CenterPrint(MSG_ReadString ());
1610                         break;
1611
1612                 case svc_sellscreen:
1613                         Cmd_ExecuteString ("help", src_command);
1614                         break;
1615                 case svc_hidelmp:
1616                         if (gamemode == GAME_TENEBRAE)
1617                         {
1618                                 // repeating particle effect
1619                                 MSG_ReadCoord(cl.protocol);
1620                                 MSG_ReadCoord(cl.protocol);
1621                                 MSG_ReadCoord(cl.protocol);
1622                                 MSG_ReadCoord(cl.protocol);
1623                                 MSG_ReadCoord(cl.protocol);
1624                                 MSG_ReadCoord(cl.protocol);
1625                                 MSG_ReadByte();
1626                                 MSG_ReadLong();
1627                                 MSG_ReadLong();
1628                                 MSG_ReadString();
1629                         }
1630                         else
1631                                 SHOWLMP_decodehide();
1632                         break;
1633                 case svc_showlmp:
1634                         if (gamemode == GAME_TENEBRAE)
1635                         {
1636                                 // particle effect
1637                                 MSG_ReadCoord(cl.protocol);
1638                                 MSG_ReadCoord(cl.protocol);
1639                                 MSG_ReadCoord(cl.protocol);
1640                                 MSG_ReadByte();
1641                                 MSG_ReadString();
1642                         }
1643                         else
1644                                 SHOWLMP_decodeshow();
1645                         break;
1646                 case svc_skybox:
1647                         R_SetSkyBox(MSG_ReadString());
1648                         break;
1649                 case svc_cgame:
1650                         {
1651                                 int length;
1652                                 length = (int) ((unsigned short) MSG_ReadShort());
1653                                 for (i = 0;i < length;i++)
1654                                         cgamenetbuffer[i] = MSG_ReadByte();
1655                                 if (!msg_badread)
1656                                         CL_CGVM_ParseNetwork(cgamenetbuffer, length);
1657                         }
1658                         break;
1659                 case svc_entities:
1660                         if (cls.signon == SIGNONS - 1)
1661                         {
1662                                 // first update is the final signon stage
1663                                 cls.signon = SIGNONS;
1664                                 CL_SignonReply ();
1665                         }
1666                         CL_ReadEntityFrame();
1667                         break;
1668                 }
1669         }
1670
1671         if (entitiesupdated)
1672                 EntityFrameQuake_ISeeDeadEntities();
1673
1674         parsingerror = false;
1675 }
1676
1677 void CL_Parse_DumpPacket(void)
1678 {
1679         if (!parsingerror)
1680                 return;
1681         Con_Print("Packet dump:\n");
1682         SZ_HexDumpToConsole(&net_message);
1683         parsingerror = false;
1684 }
1685
1686 void CL_Parse_Init(void)
1687 {
1688         // LordHavoc: added demo_nehahra cvar
1689         cl_scores_mempool = Mem_AllocPool("client player info", 0, NULL);
1690         Cvar_RegisterVariable (&demo_nehahra);
1691         if (gamemode == GAME_NEHAHRA)
1692                 Cvar_SetValue("demo_nehahra", 1);
1693         Cvar_RegisterVariable(&developer_networkentities);
1694 }