fix negative frags showing up as 65535 and such
[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         Con_DPrintf("Protocol %i\n", cl.protocol);
343
344 // parse maxclients
345         cl.maxclients = MSG_ReadByte ();
346         if (cl.maxclients < 1 || cl.maxclients > MAX_SCOREBOARD)
347         {
348                 Con_Printf("Bad maxclients (%u) from server\n", cl.maxclients);
349                 return;
350         }
351         Mem_EmptyPool(cl_scores_mempool);
352         cl.scores = Mem_Alloc(cl_scores_mempool, cl.maxclients*sizeof(*cl.scores));
353
354 // parse gametype
355         cl.gametype = MSG_ReadByte ();
356
357 // parse signon message
358         str = MSG_ReadString ();
359         strlcpy (cl.levelname, str, sizeof(cl.levelname));
360
361 // seperate the printfs so the server message can have a color
362         if (cl.protocol != PROTOCOL_NEHAHRAMOVIE) // no messages when playing the Nehahra movie
363                 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);
364
365         // check memory integrity
366         Mem_CheckSentinelsGlobal();
367
368         // disable until we get textures for it
369         R_ResetSkyBox();
370
371         memset(cl.model_precache, 0, sizeof(cl.model_precache));
372         memset(cl.sound_precache, 0, sizeof(cl.sound_precache));
373
374         // parse model precache list
375         for (nummodels=1 ; ; nummodels++)
376         {
377                 str = MSG_ReadString();
378                 if (!str[0])
379                         break;
380                 if (nummodels==MAX_MODELS)
381                         Host_Error ("Server sent too many model precaches\n");
382                 if (strlen(str) >= MAX_QPATH)
383                         Host_Error ("Server sent a precache name of %i characters (max %i)", strlen(str), MAX_QPATH - 1);
384                 strlcpy (parse_model_precache[nummodels], str, sizeof (parse_model_precache[nummodels]));
385         }
386         // parse sound precache list
387         for (numsounds=1 ; ; numsounds++)
388         {
389                 str = MSG_ReadString();
390                 if (!str[0])
391                         break;
392                 if (numsounds==MAX_SOUNDS)
393                         Host_Error("Server sent too many sound precaches\n");
394                 if (strlen(str) >= MAX_QPATH)
395                         Host_Error("Server sent a precache name of %i characters (max %i)", strlen(str), MAX_QPATH - 1);
396                 strlcpy (parse_sound_precache[numsounds], str, sizeof (parse_sound_precache[numsounds]));
397         }
398
399         // touch all of the precached models that are still loaded so we can free
400         // anything that isn't needed
401         Mod_ClearUsed();
402         for (i = 1;i < nummodels;i++)
403         {
404                 CL_KeepaliveMessage();
405                 Mod_TouchModel(parse_model_precache[i]);
406         }
407         Mod_PurgeUnused();
408
409         // do the same for sounds
410         S_ClearUsed();
411         for (i = 1;i < numsounds;i++)
412         {
413                 CL_KeepaliveMessage();
414                 S_TouchSound(parse_sound_precache[i], true);
415         }
416         S_PurgeUnused();
417
418         // now we try to load everything that is new
419
420         // world model
421         CL_KeepaliveMessage ();
422         cl.model_precache[1] = Mod_ForName(parse_model_precache[1], false, false, true);
423         if (cl.model_precache[1] == NULL)
424                 Con_Printf("Map %s not found\n", parse_model_precache[1]);
425
426         // normal models
427         for (i=2 ; i<nummodels ; i++)
428         {
429                 CL_KeepaliveMessage();
430                 if ((cl.model_precache[i] = Mod_ForName(parse_model_precache[i], false, false, false)) == NULL)
431                         Con_Printf("Model %s not found\n", parse_model_precache[i]);
432         }
433
434         // sounds
435         for (i=1 ; i<numsounds ; i++)
436         {
437                 CL_KeepaliveMessage();
438                 cl.sound_precache[i] = S_PrecacheSound(parse_sound_precache[i], true, true);
439         }
440
441         // local state
442         ent = &cl_entities[0];
443         // entire entity array was cleared, so just fill in a few fields
444         ent->state_current.active = true;
445         ent->render.model = cl.worldmodel = cl.model_precache[1];
446         ent->render.scale = 1; // some of the renderer still relies on scale
447         ent->render.alpha = 1;
448         ent->render.flags = RENDER_SHADOW | RENDER_LIGHT;
449         Matrix4x4_CreateFromQuakeEntity(&ent->render.matrix, 0, 0, 0, 0, 0, 0, 1);
450         Matrix4x4_Invert_Simple(&ent->render.inversematrix, &ent->render.matrix);
451         CL_BoundingBoxForEntity(&ent->render);
452
453         cl_num_entities = 1;
454
455         R_Modules_NewMap();
456         CL_CGVM_Start();
457
458         // noclip is turned off at start
459         noclip_anglehack = false;
460
461         // check memory integrity
462         Mem_CheckSentinelsGlobal();
463 }
464
465 void CL_ValidateState(entity_state_t *s)
466 {
467         model_t *model;
468
469         if (!s->active)
470                 return;
471
472         if (s->modelindex >= MAX_MODELS)
473                 Host_Error("CL_ValidateState: modelindex (%i) >= MAX_MODELS (%i)\n", s->modelindex, MAX_MODELS);
474
475         // colormap is client index + 1
476         if (s->colormap > cl.maxclients)
477         {
478                 Con_DPrintf("CL_ValidateState: colormap (%i) > cl.maxclients (%i)\n", s->colormap, cl.maxclients);
479                 s->colormap = 0;
480         }
481
482         model = cl.model_precache[s->modelindex];
483         Mod_CheckLoaded(model);
484         if (model && s->frame >= model->numframes)
485         {
486                 Con_DPrintf("CL_ValidateState: no such frame %i in \"%s\"\n", s->frame, model->name);
487                 s->frame = 0;
488         }
489         if (model && s->skin > 0 && s->skin >= model->numskins)
490         {
491                 Con_DPrintf("CL_ValidateState: no such skin %i in \"%s\"\n", s->skin, model->name);
492                 s->skin = 0;
493         }
494 }
495
496 void CL_MoveLerpEntityStates(entity_t *ent)
497 {
498         float odelta[3], adelta[3];
499         CL_ValidateState(&ent->state_current);
500         VectorSubtract(ent->state_current.origin, ent->persistent.neworigin, odelta);
501         VectorSubtract(ent->state_current.angles, ent->persistent.newangles, adelta);
502         if (!ent->state_previous.active || cls.timedemo || DotProduct(odelta, odelta) > 1000*1000 || cl_nolerp.integer)
503         {
504                 // we definitely shouldn't lerp
505                 ent->persistent.lerpdeltatime = 0;
506                 ent->persistent.lerpstarttime = cl.mtime[1];
507                 VectorCopy(ent->state_current.origin, ent->persistent.oldorigin);
508                 VectorCopy(ent->state_current.angles, ent->persistent.oldangles);
509                 VectorCopy(ent->state_current.origin, ent->persistent.neworigin);
510                 VectorCopy(ent->state_current.angles, ent->persistent.newangles);
511         }
512         else if (ent->state_current.flags & RENDER_STEP)
513         {
514                 // monster interpolation
515                 if (DotProduct(odelta, odelta) + DotProduct(adelta, adelta) > 0.01)
516                 {
517                         ent->persistent.lerpdeltatime = bound(0, cl.mtime[1] - ent->persistent.lerpstarttime, 0.1);
518                         ent->persistent.lerpstarttime = cl.mtime[1];
519                         VectorCopy(ent->persistent.neworigin, ent->persistent.oldorigin);
520                         VectorCopy(ent->persistent.newangles, ent->persistent.oldangles);
521                         VectorCopy(ent->state_current.origin, ent->persistent.neworigin);
522                         VectorCopy(ent->state_current.angles, ent->persistent.newangles);
523                 }
524         }
525         else
526         {
527                 // not a monster
528                 ent->persistent.lerpstarttime = cl.mtime[1];
529                 // no lerp if it's singleplayer
530                 if (cl.islocalgame)
531                         ent->persistent.lerpdeltatime = 0;
532                 else
533                         ent->persistent.lerpdeltatime = cl.mtime[0] - cl.mtime[1];
534                 VectorCopy(ent->persistent.neworigin, ent->persistent.oldorigin);
535                 VectorCopy(ent->persistent.newangles, ent->persistent.oldangles);
536                 VectorCopy(ent->state_current.origin, ent->persistent.neworigin);
537                 VectorCopy(ent->state_current.angles, ent->persistent.newangles);
538         }
539 }
540
541 void CL_ReadEntityFrame(void)
542 {
543         if (cl.protocol == PROTOCOL_DARKPLACES1 || cl.protocol == PROTOCOL_DARKPLACES2 || cl.protocol == PROTOCOL_DARKPLACES3)
544                 EntityFrame_CL_ReadFrame();
545         else if (cl.protocol == PROTOCOL_DARKPLACES4)
546                 EntityFrame4_CL_ReadFrame();
547         else if (cl.protocol == PROTOCOL_DARKPLACES5)
548                 EntityFrame5_CL_ReadFrame();
549 }
550
551 /*
552 ==================
553 CL_ParseBaseline
554 ==================
555 */
556 void CL_ParseBaseline (entity_t *ent, int large)
557 {
558         int i;
559
560         ent->state_baseline = defaultstate;
561         // FIXME: set ent->state_baseline.number?
562         ent->state_baseline.active = true;
563         if (large)
564         {
565                 ent->state_baseline.modelindex = (unsigned short) MSG_ReadShort ();
566                 ent->state_baseline.frame = (unsigned short) MSG_ReadShort ();
567         }
568         else
569         {
570                 ent->state_baseline.modelindex = MSG_ReadByte ();
571                 ent->state_baseline.frame = MSG_ReadByte ();
572         }
573         ent->state_baseline.colormap = MSG_ReadByte();
574         ent->state_baseline.skin = MSG_ReadByte();
575         for (i = 0;i < 3;i++)
576         {
577                 ent->state_baseline.origin[i] = MSG_ReadCoord(cl.protocol);
578                 ent->state_baseline.angles[i] = MSG_ReadAngle(cl.protocol);
579         }
580         CL_ValidateState(&ent->state_baseline);
581         ent->state_previous = ent->state_current = ent->state_baseline;
582 }
583
584
585 /*
586 ==================
587 CL_ParseClientdata
588
589 Server information pertaining to this client only
590 ==================
591 */
592 void CL_ParseClientdata (int bits)
593 {
594         int i, j;
595
596         bits &= 0xFFFF;
597         if (bits & SU_EXTEND1)
598                 bits |= (MSG_ReadByte() << 16);
599         if (bits & SU_EXTEND2)
600                 bits |= (MSG_ReadByte() << 24);
601
602         if (bits & SU_VIEWHEIGHT)
603                 cl.viewheight = MSG_ReadChar ();
604         else
605                 cl.viewheight = DEFAULT_VIEWHEIGHT;
606
607         if (bits & SU_IDEALPITCH)
608                 cl.idealpitch = MSG_ReadChar ();
609         else
610                 cl.idealpitch = 0;
611
612         VectorCopy (cl.mvelocity[0], cl.mvelocity[1]);
613         for (i = 0;i < 3;i++)
614         {
615                 if (bits & (SU_PUNCH1<<i) )
616                 {
617                         if (cl.protocol == PROTOCOL_DARKPLACES1 || cl.protocol == PROTOCOL_DARKPLACES2 || cl.protocol == PROTOCOL_DARKPLACES3 || cl.protocol == PROTOCOL_DARKPLACES4 || cl.protocol == PROTOCOL_DARKPLACES5)
618                                 cl.punchangle[i] = MSG_ReadAngle16i();
619                         else if (cl.protocol == PROTOCOL_QUAKE)
620                                 cl.punchangle[i] = MSG_ReadChar();
621                         else
622                                 Host_Error("CL_ParseClientData: unknown cl.protocol\n");
623                 }
624                 else
625                         cl.punchangle[i] = 0;
626                 if (bits & (SU_PUNCHVEC1<<i))
627                 {
628                         if (cl.protocol == PROTOCOL_DARKPLACES1 || cl.protocol == PROTOCOL_DARKPLACES2 || cl.protocol == PROTOCOL_DARKPLACES3 || cl.protocol == PROTOCOL_DARKPLACES4)
629                                 cl.punchvector[i] = MSG_ReadCoord16i();
630                         else if (cl.protocol == PROTOCOL_DARKPLACES5)
631                                 cl.punchvector[i] = MSG_ReadCoord32f();
632                         else
633                                 Host_Error("CL_ParseClientData: unknown cl.protocol\n");
634                 }
635                 else
636                         cl.punchvector[i] = 0;
637                 if (bits & (SU_VELOCITY1<<i) )
638                 {
639                         if (cl.protocol == PROTOCOL_QUAKE || cl.protocol == PROTOCOL_DARKPLACES1 || cl.protocol == PROTOCOL_DARKPLACES2 || cl.protocol == PROTOCOL_DARKPLACES3 || cl.protocol == PROTOCOL_DARKPLACES4)
640                                 cl.mvelocity[0][i] = MSG_ReadChar()*16;
641                         else if (cl.protocol == PROTOCOL_DARKPLACES5)
642                                 cl.mvelocity[0][i] = MSG_ReadCoord32f();
643                         else
644                                 Host_Error("CL_ParseClientData: unknown cl.protocol\n");
645                 }
646                 else
647                         cl.mvelocity[0][i] = 0;
648         }
649
650         i = MSG_ReadLong ();
651         if (cl.items != i)
652         {       // set flash times
653                 for (j=0 ; j<32 ; j++)
654                         if ( (i & (1<<j)) && !(cl.items & (1<<j)))
655                                 cl.item_gettime[j] = cl.time;
656                 cl.items = i;
657         }
658
659         cl.onground = (bits & SU_ONGROUND) != 0;
660         cl.inwater = (bits & SU_INWATER) != 0;
661
662         if (cl.protocol == PROTOCOL_DARKPLACES5)
663         {
664                 cl.stats[STAT_WEAPONFRAME] = (bits & SU_WEAPONFRAME) ? MSG_ReadShort() : 0;
665                 cl.stats[STAT_ARMOR] = (bits & SU_ARMOR) ? MSG_ReadShort() : 0;
666                 cl.stats[STAT_WEAPON] = (bits & SU_WEAPON) ? MSG_ReadShort() : 0;
667                 cl.stats[STAT_HEALTH] = MSG_ReadShort();
668                 cl.stats[STAT_AMMO] = MSG_ReadShort();
669
670                 cl.stats[STAT_SHELLS] = MSG_ReadShort();
671                 cl.stats[STAT_NAILS] = MSG_ReadShort();
672                 cl.stats[STAT_ROCKETS] = MSG_ReadShort();
673                 cl.stats[STAT_CELLS] = MSG_ReadShort();
674                 //cl.stats[STAT_GENERIC1] = MSG_ReadShort();
675                 //cl.stats[STAT_GENERIC2] = MSG_ReadShort();
676                 //cl.stats[STAT_GENERIC3] = MSG_ReadShort();
677                 //cl.stats[STAT_GENERIC4] = MSG_ReadShort();
678                 //cl.stats[STAT_GENERIC5] = MSG_ReadShort();
679                 //cl.stats[STAT_GENERIC6] = MSG_ReadShort();
680
681                 i = (unsigned short) MSG_ReadShort ();
682         }
683         else
684         {
685                 cl.stats[STAT_WEAPONFRAME] = (bits & SU_WEAPONFRAME) ? MSG_ReadByte() : 0;
686                 cl.stats[STAT_ARMOR] = (bits & SU_ARMOR) ? MSG_ReadByte() : 0;
687                 cl.stats[STAT_WEAPON] = (bits & SU_WEAPON) ? MSG_ReadByte() : 0;
688                 cl.stats[STAT_HEALTH] = MSG_ReadShort();
689                 cl.stats[STAT_AMMO] = MSG_ReadByte();
690         
691                 cl.stats[STAT_SHELLS] = MSG_ReadByte();
692                 cl.stats[STAT_NAILS] = MSG_ReadByte();
693                 cl.stats[STAT_ROCKETS] = MSG_ReadByte();
694                 cl.stats[STAT_CELLS] = MSG_ReadByte();
695
696                 i = MSG_ReadByte ();
697                 if (gamemode == GAME_HIPNOTIC || gamemode == GAME_ROGUE)
698                         i = (1<<i);
699         }
700
701         // GAME_NEXUIZ hud needs weapon change time
702         // GAME_NEXUIZ uses a bit number as it's STAT_ACTIVEWEAPON, not a bitfield
703         // like other modes
704         if (cl.stats[STAT_ACTIVEWEAPON] != i)
705                 cl.weapontime = cl.time;
706         cl.stats[STAT_ACTIVEWEAPON] = i;
707
708         cl.viewzoomold = cl.viewzoomnew; // for interpolation
709         if (bits & SU_VIEWZOOM)
710         {
711                 if (cl.protocol == PROTOCOL_DARKPLACES5)
712                         i = (unsigned short) MSG_ReadShort();
713                 else
714                         i = MSG_ReadByte();
715                 if (i < 2)
716                         i = 2;
717                 cl.viewzoomnew = (float) i * (1.0f / 255.0f);
718         }
719         else
720                 cl.viewzoomnew = 1;
721
722 }
723
724 /*
725 =====================
726 CL_ParseStatic
727 =====================
728 */
729 void CL_ParseStatic (int large)
730 {
731         entity_t *ent;
732
733         if (cl_num_static_entities >= cl_max_static_entities)
734                 Host_Error ("Too many static entities");
735         ent = &cl_static_entities[cl_num_static_entities++];
736         CL_ParseBaseline (ent, large);
737
738 // copy it to the current state
739         ent->render.model = cl.model_precache[ent->state_baseline.modelindex];
740         ent->render.frame = ent->render.frame1 = ent->render.frame2 = ent->state_baseline.frame;
741         ent->render.framelerp = 0;
742         // make torchs play out of sync
743         ent->render.frame1time = ent->render.frame2time = lhrandom(-10, -1);
744         ent->render.colormap = -1; // no special coloring
745         ent->render.skinnum = ent->state_baseline.skin;
746         ent->render.effects = ent->state_baseline.effects;
747         ent->render.alpha = 1;
748         //ent->render.scale = 1;
749
750         //VectorCopy (ent->state_baseline.origin, ent->render.origin);
751         //VectorCopy (ent->state_baseline.angles, ent->render.angles);
752
753         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);
754         Matrix4x4_Invert_Simple(&ent->render.inversematrix, &ent->render.matrix);
755         CL_BoundingBoxForEntity(&ent->render);
756
757         // This is definitely cheating...
758         if (ent->render.model == NULL)
759                 cl_num_static_entities--;
760 }
761
762 /*
763 ===================
764 CL_ParseStaticSound
765 ===================
766 */
767 void CL_ParseStaticSound (int large)
768 {
769         vec3_t          org;
770         int                     sound_num, vol, atten;
771
772         MSG_ReadVector(org, cl.protocol);
773         if (large)
774                 sound_num = (unsigned short) MSG_ReadShort ();
775         else
776                 sound_num = MSG_ReadByte ();
777         vol = MSG_ReadByte ();
778         atten = MSG_ReadByte ();
779
780         S_StaticSound (cl.sound_precache[sound_num], org, vol, atten);
781 }
782
783 void CL_ParseEffect (void)
784 {
785         vec3_t          org;
786         int                     modelindex, startframe, framecount, framerate;
787
788         MSG_ReadVector(org, cl.protocol);
789         modelindex = MSG_ReadByte ();
790         startframe = MSG_ReadByte ();
791         framecount = MSG_ReadByte ();
792         framerate = MSG_ReadByte ();
793
794         CL_Effect(org, modelindex, startframe, framecount, framerate);
795 }
796
797 void CL_ParseEffect2 (void)
798 {
799         vec3_t          org;
800         int                     modelindex, startframe, framecount, framerate;
801
802         MSG_ReadVector(org, cl.protocol);
803         modelindex = (unsigned short) MSG_ReadShort ();
804         startframe = (unsigned short) MSG_ReadShort ();
805         framecount = MSG_ReadByte ();
806         framerate = MSG_ReadByte ();
807
808         CL_Effect(org, modelindex, startframe, framecount, framerate);
809 }
810
811 model_t *cl_model_bolt = NULL;
812 model_t *cl_model_bolt2 = NULL;
813 model_t *cl_model_bolt3 = NULL;
814 model_t *cl_model_beam = NULL;
815
816 sfx_t *cl_sfx_wizhit;
817 sfx_t *cl_sfx_knighthit;
818 sfx_t *cl_sfx_tink1;
819 sfx_t *cl_sfx_ric1;
820 sfx_t *cl_sfx_ric2;
821 sfx_t *cl_sfx_ric3;
822 sfx_t *cl_sfx_r_exp3;
823
824 /*
825 =================
826 CL_ParseTEnt
827 =================
828 */
829 void CL_InitTEnts (void)
830 {
831         cl_sfx_wizhit = S_PrecacheSound ("wizard/hit.wav", false, true);
832         cl_sfx_knighthit = S_PrecacheSound ("hknight/hit.wav", false, true);
833         cl_sfx_tink1 = S_PrecacheSound ("weapons/tink1.wav", false, true);
834         cl_sfx_ric1 = S_PrecacheSound ("weapons/ric1.wav", false, true);
835         cl_sfx_ric2 = S_PrecacheSound ("weapons/ric2.wav", false, true);
836         cl_sfx_ric3 = S_PrecacheSound ("weapons/ric3.wav", false, true);
837         cl_sfx_r_exp3 = S_PrecacheSound ("weapons/r_exp3.wav", false, true);
838 }
839
840 void CL_ParseBeam (model_t *m, int lightning)
841 {
842         int i, ent;
843         vec3_t start, end;
844         beam_t *b;
845
846         ent = (unsigned short) MSG_ReadShort ();
847         MSG_ReadVector(start, cl.protocol);
848         MSG_ReadVector(end, cl.protocol);
849
850         if (ent >= MAX_EDICTS)
851         {
852                 Con_Printf("CL_ParseBeam: invalid entity number %i\n", ent);
853                 ent = 0;
854         }
855
856         // override any beam with the same entity
857         for (i = 0, b = cl_beams;i < cl_max_beams;i++, b++)
858         {
859                 if (b->entity == ent)
860                 {
861                         //b->entity = ent;
862                         b->lightning = lightning;
863                         b->relativestartvalid = (ent && cl_entities[ent].state_current.active) ? 2 : 0;
864                         b->model = m;
865                         b->endtime = cl.time + 0.2;
866                         VectorCopy (start, b->start);
867                         VectorCopy (end, b->end);
868                         return;
869                 }
870         }
871
872         // find a free beam
873         for (i = 0, b = cl_beams;i < cl_max_beams;i++, b++)
874         {
875                 if (!b->model || b->endtime < cl.time)
876                 {
877                         b->entity = ent;
878                         b->lightning = lightning;
879                         b->relativestartvalid = (ent && cl_entities[ent].state_current.active) ? 2 : 0;
880                         b->model = m;
881                         b->endtime = cl.time + 0.2;
882                         VectorCopy (start, b->start);
883                         VectorCopy (end, b->end);
884                         return;
885                 }
886         }
887         Con_Print("beam list overflow!\n");
888 }
889
890 void CL_ParseTempEntity(void)
891 {
892         int type;
893         vec3_t pos;
894         vec3_t dir;
895         vec3_t pos2;
896         vec3_t color;
897         int rnd;
898         int colorStart, colorLength, count;
899         float velspeed, radius;
900         qbyte *tempcolor;
901         matrix4x4_t tempmatrix;
902
903         type = MSG_ReadByte();
904         switch (type)
905         {
906         case TE_WIZSPIKE:
907                 // spike hitting wall
908                 MSG_ReadVector(pos, cl.protocol);
909                 CL_FindNonSolidLocation(pos, pos, 4);
910                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
911                 CL_AllocDlight(NULL, &tempmatrix, 100, 0.12f, 0.50f, 0.12f, 500, 0.2, 0, 0, false, 1);
912                 CL_RunParticleEffect(pos, vec3_origin, 20, 30);
913                 S_StartSound(-1, 0, cl_sfx_wizhit, pos, 1, 1);
914                 break;
915
916         case TE_KNIGHTSPIKE:
917                 // spike hitting wall
918                 MSG_ReadVector(pos, cl.protocol);
919                 CL_FindNonSolidLocation(pos, pos, 4);
920                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
921                 CL_AllocDlight(NULL, &tempmatrix, 100, 0.50f, 0.30f, 0.10f, 500, 0.2, 0, 0, false, 1);
922                 CL_RunParticleEffect(pos, vec3_origin, 226, 20);
923                 S_StartSound(-1, 0, cl_sfx_knighthit, pos, 1, 1);
924                 break;
925
926         case TE_SPIKE:
927                 // spike hitting wall
928                 MSG_ReadVector(pos, cl.protocol);
929                 CL_FindNonSolidLocation(pos, pos, 4);
930                 // LordHavoc: changed to spark shower
931                 CL_SparkShower(pos, vec3_origin, 15);
932                 if (rand() % 5)
933                         S_StartSound(-1, 0, cl_sfx_tink1, pos, 1, 1);
934                 else
935                 {
936                         rnd = rand() & 3;
937                         if (rnd == 1)
938                                 S_StartSound(-1, 0, cl_sfx_ric1, pos, 1, 1);
939                         else if (rnd == 2)
940                                 S_StartSound(-1, 0, cl_sfx_ric2, pos, 1, 1);
941                         else
942                                 S_StartSound(-1, 0, cl_sfx_ric3, pos, 1, 1);
943                 }
944                 break;
945         case TE_SPIKEQUAD:
946                 // quad spike hitting wall
947                 MSG_ReadVector(pos, cl.protocol);
948                 CL_FindNonSolidLocation(pos, pos, 4);
949                 // LordHavoc: changed to spark shower
950                 CL_SparkShower(pos, vec3_origin, 15);
951                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
952                 CL_AllocDlight(NULL, &tempmatrix, 100, 0.15f, 0.15f, 1.5f, 500, 0.2, 0, 0, true, 1);
953                 S_StartSound(-1, 0, cl_sfx_r_exp3, pos, 1, 1);
954                 if (rand() % 5)
955                         S_StartSound(-1, 0, cl_sfx_tink1, pos, 1, 1);
956                 else
957                 {
958                         rnd = rand() & 3;
959                         if (rnd == 1)
960                                 S_StartSound(-1, 0, cl_sfx_ric1, pos, 1, 1);
961                         else if (rnd == 2)
962                                 S_StartSound(-1, 0, cl_sfx_ric2, pos, 1, 1);
963                         else
964                                 S_StartSound(-1, 0, cl_sfx_ric3, pos, 1, 1);
965                 }
966                 break;
967         case TE_SUPERSPIKE:
968                 // super spike hitting wall
969                 MSG_ReadVector(pos, cl.protocol);
970                 CL_FindNonSolidLocation(pos, pos, 4);
971                 // LordHavoc: changed to dust shower
972                 CL_SparkShower(pos, vec3_origin, 30);
973                 if (rand() % 5)
974                         S_StartSound(-1, 0, cl_sfx_tink1, pos, 1, 1);
975                 else
976                 {
977                         rnd = rand() & 3;
978                         if (rnd == 1)
979                                 S_StartSound(-1, 0, cl_sfx_ric1, pos, 1, 1);
980                         else if (rnd == 2)
981                                 S_StartSound(-1, 0, cl_sfx_ric2, pos, 1, 1);
982                         else
983                                 S_StartSound(-1, 0, cl_sfx_ric3, pos, 1, 1);
984                 }
985                 break;
986         case TE_SUPERSPIKEQUAD:
987                 // quad super spike hitting wall
988                 MSG_ReadVector(pos, cl.protocol);
989                 CL_FindNonSolidLocation(pos, pos, 4);
990                 // LordHavoc: changed to dust shower
991                 CL_SparkShower(pos, vec3_origin, 30);
992                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
993                 CL_AllocDlight(NULL, &tempmatrix, 100, 0.15f, 0.15f, 1.5f, 500, 0.2, 0, 0, true, 1);
994                 if (rand() % 5)
995                         S_StartSound(-1, 0, cl_sfx_tink1, pos, 1, 1);
996                 else
997                 {
998                         rnd = rand() & 3;
999                         if (rnd == 1)
1000                                 S_StartSound(-1, 0, cl_sfx_ric1, pos, 1, 1);
1001                         else if (rnd == 2)
1002                                 S_StartSound(-1, 0, cl_sfx_ric2, pos, 1, 1);
1003                         else
1004                                 S_StartSound(-1, 0, cl_sfx_ric3, pos, 1, 1);
1005                 }
1006                 break;
1007                 // LordHavoc: added for improved blood splatters
1008         case TE_BLOOD:
1009                 // blood puff
1010                 MSG_ReadVector(pos, cl.protocol);
1011                 CL_FindNonSolidLocation(pos, pos, 4);
1012                 dir[0] = MSG_ReadChar();
1013                 dir[1] = MSG_ReadChar();
1014                 dir[2] = MSG_ReadChar();
1015                 count = MSG_ReadByte();
1016                 CL_BloodPuff(pos, dir, count);
1017                 break;
1018         case TE_SPARK:
1019                 // spark shower
1020                 MSG_ReadVector(pos, cl.protocol);
1021                 CL_FindNonSolidLocation(pos, pos, 4);
1022                 dir[0] = MSG_ReadChar();
1023                 dir[1] = MSG_ReadChar();
1024                 dir[2] = MSG_ReadChar();
1025                 count = MSG_ReadByte();
1026                 CL_SparkShower(pos, dir, count);
1027                 break;
1028         case TE_PLASMABURN:
1029                 MSG_ReadVector(pos, cl.protocol);
1030                 CL_FindNonSolidLocation(pos, pos, 4);
1031                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
1032                 CL_AllocDlight(NULL, &tempmatrix, 200, 1, 1, 1, 1000, 0.2, 0, 0, true, 1);
1033                 CL_PlasmaBurn(pos);
1034                 break;
1035                 // LordHavoc: added for improved gore
1036         case TE_BLOODSHOWER:
1037                 // vaporized body
1038                 MSG_ReadVector(pos, cl.protocol); // mins
1039                 MSG_ReadVector(pos2, cl.protocol); // maxs
1040                 velspeed = MSG_ReadCoord(cl.protocol); // speed
1041                 count = (unsigned short) MSG_ReadShort(); // number of particles
1042                 CL_BloodShower(pos, pos2, velspeed, count);
1043                 break;
1044         case TE_PARTICLECUBE:
1045                 // general purpose particle effect
1046                 MSG_ReadVector(pos, cl.protocol); // mins
1047                 MSG_ReadVector(pos2, cl.protocol); // maxs
1048                 MSG_ReadVector(dir, cl.protocol); // dir
1049                 count = (unsigned short) MSG_ReadShort(); // number of particles
1050                 colorStart = MSG_ReadByte(); // color
1051                 colorLength = MSG_ReadByte(); // gravity (1 or 0)
1052                 velspeed = MSG_ReadCoord(cl.protocol); // randomvel
1053                 CL_ParticleCube(pos, pos2, dir, count, colorStart, colorLength, velspeed);
1054                 break;
1055
1056         case TE_PARTICLERAIN:
1057                 // general purpose particle effect
1058                 MSG_ReadVector(pos, cl.protocol); // mins
1059                 MSG_ReadVector(pos2, cl.protocol); // maxs
1060                 MSG_ReadVector(dir, cl.protocol); // dir
1061                 count = (unsigned short) MSG_ReadShort(); // number of particles
1062                 colorStart = MSG_ReadByte(); // color
1063                 CL_ParticleRain(pos, pos2, dir, count, colorStart, 0);
1064                 break;
1065
1066         case TE_PARTICLESNOW:
1067                 // general purpose particle effect
1068                 MSG_ReadVector(pos, cl.protocol); // mins
1069                 MSG_ReadVector(pos2, cl.protocol); // maxs
1070                 MSG_ReadVector(dir, cl.protocol); // dir
1071                 count = (unsigned short) MSG_ReadShort(); // number of particles
1072                 colorStart = MSG_ReadByte(); // color
1073                 CL_ParticleRain(pos, pos2, dir, count, colorStart, 1);
1074                 break;
1075
1076         case TE_GUNSHOT:
1077                 // bullet hitting wall
1078                 MSG_ReadVector(pos, cl.protocol);
1079                 CL_FindNonSolidLocation(pos, pos, 4);
1080                 // LordHavoc: changed to dust shower
1081                 CL_SparkShower(pos, vec3_origin, 15);
1082                 break;
1083
1084         case TE_GUNSHOTQUAD:
1085                 // quad bullet hitting wall
1086                 MSG_ReadVector(pos, cl.protocol);
1087                 CL_FindNonSolidLocation(pos, pos, 4);
1088                 CL_SparkShower(pos, vec3_origin, 15);
1089                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
1090                 CL_AllocDlight(NULL, &tempmatrix, 100, 0.15f, 0.15f, 1.5f, 500, 0.2, 0, 0, true, 1);
1091                 break;
1092
1093         case TE_EXPLOSION:
1094                 // rocket explosion
1095                 MSG_ReadVector(pos, cl.protocol);
1096                 CL_FindNonSolidLocation(pos, pos, 10);
1097                 CL_ParticleExplosion(pos);
1098                 // LordHavoc: boosted color from 1.0, 0.8, 0.4 to 1.25, 1.0, 0.5
1099                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
1100                 CL_AllocDlight(NULL, &tempmatrix, 350, 4.0f, 2.0f, 0.50f, 700, 0.5, 0, 0, true, 1);
1101                 S_StartSound(-1, 0, cl_sfx_r_exp3, pos, 1, 1);
1102                 break;
1103
1104         case TE_EXPLOSIONQUAD:
1105                 // quad rocket explosion
1106                 MSG_ReadVector(pos, cl.protocol);
1107                 CL_FindNonSolidLocation(pos, pos, 10);
1108                 CL_ParticleExplosion(pos);
1109                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
1110                 CL_AllocDlight(NULL, &tempmatrix, 350, 2.5f, 2.0f, 4.0f, 700, 0.5, 0, 0, true, 1);
1111                 S_StartSound(-1, 0, cl_sfx_r_exp3, pos, 1, 1);
1112                 break;
1113
1114         case TE_EXPLOSION3:
1115                 // Nehahra movie colored lighting explosion
1116                 MSG_ReadVector(pos, cl.protocol);
1117                 CL_FindNonSolidLocation(pos, pos, 10);
1118                 CL_ParticleExplosion(pos);
1119                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
1120                 color[0] = MSG_ReadCoord(cl.protocol) * (2.0f / 1.0f);
1121                 color[1] = MSG_ReadCoord(cl.protocol) * (2.0f / 1.0f);
1122                 color[2] = MSG_ReadCoord(cl.protocol) * (2.0f / 1.0f);
1123                 CL_AllocDlight(NULL, &tempmatrix, 350, color[0], color[1], color[2], 700, 0.5, 0, 0, true, 1);  
1124                 S_StartSound(-1, 0, cl_sfx_r_exp3, pos, 1, 1);
1125                 break;
1126
1127         case TE_EXPLOSIONRGB:
1128                 // colored lighting explosion
1129                 MSG_ReadVector(pos, cl.protocol);
1130                 CL_FindNonSolidLocation(pos, pos, 10);
1131                 CL_ParticleExplosion(pos);
1132                 color[0] = MSG_ReadByte() * (2.0f / 255.0f);
1133                 color[1] = MSG_ReadByte() * (2.0f / 255.0f);
1134                 color[2] = MSG_ReadByte() * (2.0f / 255.0f);
1135                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
1136                 CL_AllocDlight(NULL, &tempmatrix, 350, color[0], color[1], color[2], 700, 0.5, 0, 0, true, 1);
1137                 S_StartSound(-1, 0, cl_sfx_r_exp3, pos, 1, 1);
1138                 break;
1139
1140         case TE_TAREXPLOSION:
1141                 // tarbaby explosion
1142                 MSG_ReadVector(pos, cl.protocol);
1143                 CL_FindNonSolidLocation(pos, pos, 10);
1144                 CL_BlobExplosion(pos);
1145
1146                 S_StartSound(-1, 0, cl_sfx_r_exp3, pos, 1, 1);
1147                 S_StartSound(-1, 0, cl_sfx_r_exp3, pos, 1, 1);
1148                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
1149                 CL_AllocDlight(NULL, &tempmatrix, 600, 1.6f, 0.8f, 2.0f, 1200, 0.5, 0, 0, true, 1);
1150                 break;
1151
1152         case TE_SMALLFLASH:
1153                 MSG_ReadVector(pos, cl.protocol);
1154                 CL_FindNonSolidLocation(pos, pos, 10);
1155                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
1156                 CL_AllocDlight(NULL, &tempmatrix, 200, 2, 2, 2, 1000, 0.2, 0, 0, true, 1);
1157                 break;
1158
1159         case TE_CUSTOMFLASH:
1160                 MSG_ReadVector(pos, cl.protocol);
1161                 CL_FindNonSolidLocation(pos, pos, 4);
1162                 radius = MSG_ReadByte() * 8;
1163                 velspeed = (MSG_ReadByte() + 1) * (1.0 / 256.0);
1164                 color[0] = MSG_ReadByte() * (2.0f / 255.0f);
1165                 color[1] = MSG_ReadByte() * (2.0f / 255.0f);
1166                 color[2] = MSG_ReadByte() * (2.0f / 255.0f);
1167                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
1168                 CL_AllocDlight(NULL, &tempmatrix, radius, color[0], color[1], color[2], radius / velspeed, velspeed, 0, 0, true, 1);
1169                 break;
1170
1171         case TE_FLAMEJET:
1172                 MSG_ReadVector(pos, cl.protocol);
1173                 MSG_ReadVector(dir, cl.protocol);
1174                 count = MSG_ReadByte();
1175                 CL_Flames(pos, dir, count);
1176                 break;
1177
1178         case TE_LIGHTNING1:
1179                 // lightning bolts
1180                 if (!cl_model_bolt)
1181                         cl_model_bolt = Mod_ForName("progs/bolt.mdl", false, false, false);
1182                 CL_ParseBeam(cl_model_bolt, true);
1183                 break;
1184
1185         case TE_LIGHTNING2:
1186                 // lightning bolts
1187                 if (!cl_model_bolt2)
1188                         cl_model_bolt2 = Mod_ForName("progs/bolt2.mdl", false, false, false);
1189                 CL_ParseBeam(cl_model_bolt2, true);
1190                 break;
1191
1192         case TE_LIGHTNING3:
1193                 // lightning bolts
1194                 if (!cl_model_bolt3)
1195                         cl_model_bolt3 = Mod_ForName("progs/bolt3.mdl", true, false, false);
1196                 CL_ParseBeam(cl_model_bolt3, false);
1197                 break;
1198
1199 // PGM 01/21/97
1200         case TE_BEAM:
1201                 // grappling hook beam
1202                 if (!cl_model_beam)
1203                         cl_model_beam = Mod_ForName("progs/beam.mdl", true, false, false);
1204                 CL_ParseBeam(cl_model_beam, false);
1205                 break;
1206 // PGM 01/21/97
1207
1208 // LordHavoc: for compatibility with the Nehahra movie...
1209         case TE_LIGHTNING4NEH:
1210                 CL_ParseBeam(Mod_ForName(MSG_ReadString(), true, false, false), false);
1211                 break;
1212
1213         case TE_LAVASPLASH:
1214                 MSG_ReadVector(pos, cl.protocol);
1215                 CL_LavaSplash(pos);
1216                 break;
1217
1218         case TE_TELEPORT:
1219                 MSG_ReadVector(pos, cl.protocol);
1220                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
1221                 CL_AllocDlight(NULL, &tempmatrix, 500, 1.0f, 1.0f, 1.0f, 1500, 99.0f, 0, 0, true, 1);
1222 //              CL_TeleportSplash(pos);
1223                 break;
1224
1225         case TE_EXPLOSION2:
1226                 // color mapped explosion
1227                 MSG_ReadVector(pos, cl.protocol);
1228                 CL_FindNonSolidLocation(pos, pos, 10);
1229                 colorStart = MSG_ReadByte();
1230                 colorLength = MSG_ReadByte();
1231                 CL_ParticleExplosion2(pos, colorStart, colorLength);
1232                 tempcolor = (qbyte *)&palette_complete[(rand()%colorLength) + colorStart];
1233                 color[0] = tempcolor[0] * (2.0f / 255.0f);
1234                 color[1] = tempcolor[1] * (2.0f / 255.0f);
1235                 color[2] = tempcolor[2] * (2.0f / 255.0f);
1236                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
1237                 CL_AllocDlight(NULL, &tempmatrix, 350, color[0], color[1], color[2], 700, 0.5, 0, 0, true, 1);
1238                 S_StartSound(-1, 0, cl_sfx_r_exp3, pos, 1, 1);
1239                 break;
1240
1241         case TE_TEI_G3:
1242                 MSG_ReadVector(pos, cl.protocol);
1243                 MSG_ReadVector(pos2, cl.protocol);
1244                 MSG_ReadVector(dir, cl.protocol);
1245                 CL_BeamParticle(pos, pos2, 12, 1, 0.3, 0.1, 1, 1);
1246                 CL_BeamParticle(pos, pos2, 5, 1, 0.9, 0.3, 1, 1);
1247                 break;
1248
1249         case TE_TEI_SMOKE:
1250                 MSG_ReadVector(pos, cl.protocol);
1251                 MSG_ReadVector(dir, cl.protocol);
1252                 count = MSG_ReadByte();
1253                 CL_FindNonSolidLocation(pos, pos, 4);
1254                 CL_Tei_Smoke(pos, dir, count);
1255                 break;
1256
1257         case TE_TEI_BIGEXPLOSION:
1258                 MSG_ReadVector(pos, cl.protocol);
1259                 CL_FindNonSolidLocation(pos, pos, 10);
1260                 CL_ParticleExplosion(pos);
1261                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
1262                 CL_AllocDlight(NULL, &tempmatrix, 500, 2.5f, 2.0f, 1.0f, 500, 9999, 0, 0, true, 1);
1263                 S_StartSound(-1, 0, cl_sfx_r_exp3, pos, 1, 1);
1264                 break;
1265
1266         case TE_TEI_PLASMAHIT:
1267                 MSG_ReadVector(pos, cl.protocol);
1268                 MSG_ReadVector(dir, cl.protocol);
1269                 count = MSG_ReadByte();
1270                 CL_FindNonSolidLocation(pos, pos, 5);
1271                 CL_Tei_PlasmaHit(pos, dir, count);
1272                 Matrix4x4_CreateTranslate(&tempmatrix, pos[0], pos[1], pos[2]);
1273                 CL_AllocDlight(NULL, &tempmatrix, 500, 0.6, 1.2, 2.0f, 2000, 9999, 0, 0, true, 1);
1274                 break;
1275
1276         default:
1277                 Host_Error("CL_ParseTempEntity: bad type %d (hex %02X)", type, type);
1278         }
1279 }
1280
1281 #define SHOWNET(x) if(cl_shownet.integer==2)Con_Printf("%3i:%s\n", msg_readcount-1, x);
1282
1283 static qbyte cgamenetbuffer[65536];
1284
1285 /*
1286 =====================
1287 CL_ParseServerMessage
1288 =====================
1289 */
1290 int parsingerror = false;
1291 void CL_ParseServerMessage(void)
1292 {
1293         int                     cmd;
1294         int                     i;
1295         qbyte           cmdlog[32];
1296         char            *cmdlogname[32], *temp;
1297         int                     cmdindex, cmdcount = 0;
1298
1299         if (cls.demorecording)
1300                 CL_WriteDemoMessage ();
1301
1302         cl.last_received_message = realtime;
1303
1304 //
1305 // if recording demos, copy the message out
1306 //
1307         if (cl_shownet.integer == 1)
1308                 Con_Printf("%f %i\n", realtime, net_message.cursize);
1309         else if (cl_shownet.integer == 2)
1310                 Con_Print("------------------\n");
1311
1312         cl.onground = false;    // unless the server says otherwise
1313 //
1314 // parse the message
1315 //
1316         //MSG_BeginReading ();
1317
1318         parsingerror = true;
1319
1320         while (1)
1321         {
1322                 if (msg_badread)
1323                         Host_Error ("CL_ParseServerMessage: Bad server message");
1324
1325                 cmd = MSG_ReadByte ();
1326
1327                 if (cmd == -1)
1328                 {
1329                         SHOWNET("END OF MESSAGE");
1330                         break;          // end of message
1331                 }
1332
1333                 cmdindex = cmdcount & 31;
1334                 cmdcount++;
1335                 cmdlog[cmdindex] = cmd;
1336
1337                 // if the high bit of the command byte is set, it is a fast update
1338                 if (cmd & 128)
1339                 {
1340                         // 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)
1341                         temp = "entity";
1342                         cmdlogname[cmdindex] = temp;
1343                         SHOWNET("fast update");
1344                         if (cls.signon == SIGNONS - 1)
1345                         {
1346                                 // first update is the final signon stage
1347                                 cls.signon = SIGNONS;
1348                                 CL_SignonReply ();
1349                         }
1350                         EntityFrameQuake_ReadEntity (cmd&127);
1351                         continue;
1352                 }
1353
1354                 SHOWNET(svc_strings[cmd]);
1355                 cmdlogname[cmdindex] = svc_strings[cmd];
1356                 if (!cmdlogname[cmdindex])
1357                 {
1358                         // 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)
1359                         temp = "<unknown>";
1360                         cmdlogname[cmdindex] = temp;
1361                 }
1362
1363                 // other commands
1364                 switch (cmd)
1365                 {
1366                 default:
1367                         {
1368                                 char description[32*64], temp[64];
1369                                 int count;
1370                                 strcpy (description, "packet dump: ");
1371                                 i = cmdcount - 32;
1372                                 if (i < 0)
1373                                         i = 0;
1374                                 count = cmdcount - i;
1375                                 i &= 31;
1376                                 while(count > 0)
1377                                 {
1378                                         snprintf (temp, sizeof (temp), "%3i:%s ", cmdlog[i], cmdlogname[i]);
1379                                         strlcat (description, temp, sizeof (description));
1380                                         count--;
1381                                         i++;
1382                                         i &= 31;
1383                                 }
1384                                 description[strlen(description)-1] = '\n'; // replace the last space with a newline
1385                                 Con_Print(description);
1386                                 Host_Error ("CL_ParseServerMessage: Illegible server message\n");
1387                         }
1388                         break;
1389
1390                 case svc_nop:
1391                         if (cls.signon < SIGNONS)
1392                                 Con_Print("<-- server to client keepalive\n");
1393                         break;
1394
1395                 case svc_time:
1396                         cl.mtime[1] = cl.mtime[0];
1397                         cl.mtime[0] = MSG_ReadFloat ();
1398                         break;
1399
1400                 case svc_clientdata:
1401                         i = (unsigned short) MSG_ReadShort ();
1402                         CL_ParseClientdata (i);
1403                         break;
1404
1405                 case svc_version:
1406                         i = MSG_ReadLong ();
1407                         // hack for unmarked Nehahra movie demos which had a custom protocol
1408                         if (i == PROTOCOL_QUAKE && cls.demoplayback && demo_nehahra.integer)
1409                                 i = PROTOCOL_NEHAHRAMOVIE;
1410                         if (i != PROTOCOL_QUAKE && i != PROTOCOL_DARKPLACES1 && i != PROTOCOL_DARKPLACES2 && i != PROTOCOL_DARKPLACES3 && i != PROTOCOL_DARKPLACES4 && i != PROTOCOL_DARKPLACES5 && i != PROTOCOL_NEHAHRAMOVIE)
1411                                 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);
1412                         cl.protocol = i;
1413                         break;
1414
1415                 case svc_disconnect:
1416                         Con_Printf ("Server disconnected\n");
1417                         if (cls.demonum != -1)
1418                                 CL_NextDemo ();
1419                         else
1420                                 CL_Disconnect ();
1421                         break;
1422
1423                 case svc_print:
1424                         Con_Print(MSG_ReadString());
1425                         break;
1426
1427                 case svc_centerprint:
1428                         SCR_CenterPrint(MSG_ReadString ());
1429                         break;
1430
1431                 case svc_stufftext:
1432                         Cbuf_AddText (MSG_ReadString ());
1433                         break;
1434
1435                 case svc_damage:
1436                         V_ParseDamage ();
1437                         break;
1438
1439                 case svc_serverinfo:
1440                         CL_ParseServerInfo ();
1441                         break;
1442
1443                 case svc_setangle:
1444                         for (i=0 ; i<3 ; i++)
1445                                 cl.viewangles[i] = MSG_ReadAngle (cl.protocol);
1446                         break;
1447
1448                 case svc_setview:
1449                         cl.viewentity = (unsigned short)MSG_ReadShort ();
1450                         if (cl.viewentity >= MAX_EDICTS)
1451                                 Host_Error("svc_setview >= MAX_EDICTS\n");
1452                         // LordHavoc: assume first setview recieved is the real player entity
1453                         if (!cl.playerentity)
1454                                 cl.playerentity = cl.viewentity;
1455                         break;
1456
1457                 case svc_lightstyle:
1458                         i = MSG_ReadByte ();
1459                         if (i >= MAX_LIGHTSTYLES)
1460                                 Host_Error ("svc_lightstyle >= MAX_LIGHTSTYLES");
1461                         strlcpy (cl_lightstyle[i].map,  MSG_ReadString(), sizeof (cl_lightstyle[i].map));
1462                         cl_lightstyle[i].map[MAX_STYLESTRING - 1] = 0;
1463                         cl_lightstyle[i].length = strlen(cl_lightstyle[i].map);
1464                         break;
1465
1466                 case svc_sound:
1467                         CL_ParseStartSoundPacket(false);
1468                         break;
1469
1470                 case svc_sound2:
1471                         CL_ParseStartSoundPacket(true);
1472                         break;
1473
1474                 case svc_stopsound:
1475                         i = (unsigned short) MSG_ReadShort();
1476                         S_StopSound(i>>3, i&7);
1477                         break;
1478
1479                 case svc_updatename:
1480                         i = MSG_ReadByte ();
1481                         if (i >= cl.maxclients)
1482                                 Host_Error ("CL_ParseServerMessage: svc_updatename >= cl.maxclients");
1483                         strlcpy (cl.scores[i].name, MSG_ReadString (), sizeof (cl.scores[i].name));
1484                         break;
1485
1486                 case svc_updatefrags:
1487                         i = MSG_ReadByte ();
1488                         if (i >= cl.maxclients)
1489                                 Host_Error ("CL_ParseServerMessage: svc_updatefrags >= cl.maxclients");
1490                         cl.scores[i].frags = (signed short) MSG_ReadShort ();
1491                         break;
1492
1493                 case svc_updatecolors:
1494                         i = MSG_ReadByte ();
1495                         if (i >= cl.maxclients)
1496                                 Host_Error ("CL_ParseServerMessage: svc_updatecolors >= cl.maxclients");
1497                         cl.scores[i].colors = MSG_ReadByte ();
1498                         break;
1499
1500                 case svc_particle:
1501                         CL_ParseParticleEffect ();
1502                         break;
1503
1504                 case svc_effect:
1505                         CL_ParseEffect ();
1506                         break;
1507
1508                 case svc_effect2:
1509                         CL_ParseEffect2 ();
1510                         break;
1511
1512                 case svc_spawnbaseline:
1513                         i = (unsigned short) MSG_ReadShort ();
1514                         if (i < 0 || i >= MAX_EDICTS)
1515                                 Host_Error ("CL_ParseServerMessage: svc_spawnbaseline: invalid entity number %i", i);
1516                         CL_ParseBaseline (cl_entities + i, false);
1517                         break;
1518                 case svc_spawnbaseline2:
1519                         i = (unsigned short) MSG_ReadShort ();
1520                         if (i < 0 || i >= MAX_EDICTS)
1521                                 Host_Error ("CL_ParseServerMessage: svc_spawnbaseline2: invalid entity number %i", i);
1522                         CL_ParseBaseline (cl_entities + i, true);
1523                         break;
1524                 case svc_spawnstatic:
1525                         CL_ParseStatic (false);
1526                         break;
1527                 case svc_spawnstatic2:
1528                         CL_ParseStatic (true);
1529                         break;
1530                 case svc_temp_entity:
1531                         CL_ParseTempEntity ();
1532                         break;
1533
1534                 case svc_setpause:
1535                         cl.paused = MSG_ReadByte ();
1536                         if (cl.paused)
1537                         {
1538                                 CDAudio_Pause ();
1539                                 S_PauseGameSounds ();
1540                         }
1541                         else
1542                         {
1543                                 CDAudio_Resume ();
1544                                 S_ResumeGameSounds ();
1545                         }
1546                         break;
1547
1548                 case svc_signonnum:
1549                         i = MSG_ReadByte ();
1550                         if (i <= cls.signon)
1551                                 Host_Error ("Received signon %i when at %i", i, cls.signon);
1552                         cls.signon = i;
1553                         CL_SignonReply ();
1554                         break;
1555
1556                 case svc_killedmonster:
1557                         cl.stats[STAT_MONSTERS]++;
1558                         break;
1559
1560                 case svc_foundsecret:
1561                         cl.stats[STAT_SECRETS]++;
1562                         break;
1563
1564                 case svc_updatestat:
1565                         i = MSG_ReadByte ();
1566                         if (i < 0 || i >= MAX_CL_STATS)
1567                                 Host_Error ("svc_updatestat: %i is invalid", i);
1568                         cl.stats[i] = MSG_ReadLong ();
1569                         break;
1570
1571                 case svc_spawnstaticsound:
1572                         CL_ParseStaticSound (false);
1573                         break;
1574
1575                 case svc_spawnstaticsound2:
1576                         CL_ParseStaticSound (true);
1577                         break;
1578
1579                 case svc_cdtrack:
1580                         cl.cdtrack = MSG_ReadByte ();
1581                         cl.looptrack = MSG_ReadByte ();
1582                         if ( (cls.demoplayback || cls.demorecording) && (cls.forcetrack != -1) )
1583                                 CDAudio_Play ((qbyte)cls.forcetrack, true);
1584                         else
1585                                 CDAudio_Play ((qbyte)cl.cdtrack, true);
1586                         break;
1587
1588                 case svc_intermission:
1589                         cl.intermission = 1;
1590                         cl.completed_time = cl.time;
1591                         break;
1592
1593                 case svc_finale:
1594                         cl.intermission = 2;
1595                         cl.completed_time = cl.time;
1596                         SCR_CenterPrint(MSG_ReadString ());
1597                         break;
1598
1599                 case svc_cutscene:
1600                         cl.intermission = 3;
1601                         cl.completed_time = cl.time;
1602                         SCR_CenterPrint(MSG_ReadString ());
1603                         break;
1604
1605                 case svc_sellscreen:
1606                         Cmd_ExecuteString ("help", src_command);
1607                         break;
1608                 case svc_hidelmp:
1609                         if (gamemode == GAME_TENEBRAE)
1610                         {
1611                                 // repeating particle effect
1612                                 MSG_ReadCoord(cl.protocol);
1613                                 MSG_ReadCoord(cl.protocol);
1614                                 MSG_ReadCoord(cl.protocol);
1615                                 MSG_ReadCoord(cl.protocol);
1616                                 MSG_ReadCoord(cl.protocol);
1617                                 MSG_ReadCoord(cl.protocol);
1618                                 MSG_ReadByte();
1619                                 MSG_ReadLong();
1620                                 MSG_ReadLong();
1621                                 MSG_ReadString();
1622                         }
1623                         else
1624                                 SHOWLMP_decodehide();
1625                         break;
1626                 case svc_showlmp:
1627                         if (gamemode == GAME_TENEBRAE)
1628                         {
1629                                 // particle effect
1630                                 MSG_ReadCoord(cl.protocol);
1631                                 MSG_ReadCoord(cl.protocol);
1632                                 MSG_ReadCoord(cl.protocol);
1633                                 MSG_ReadByte();
1634                                 MSG_ReadString();
1635                         }
1636                         else
1637                                 SHOWLMP_decodeshow();
1638                         break;
1639                 case svc_skybox:
1640                         R_SetSkyBox(MSG_ReadString());
1641                         break;
1642                 case svc_cgame:
1643                         {
1644                                 int length;
1645                                 length = (int) ((unsigned short) MSG_ReadShort());
1646                                 for (i = 0;i < length;i++)
1647                                         cgamenetbuffer[i] = MSG_ReadByte();
1648                                 if (!msg_badread)
1649                                         CL_CGVM_ParseNetwork(cgamenetbuffer, length);
1650                         }
1651                         break;
1652                 case svc_entities:
1653                         if (cls.signon == SIGNONS - 1)
1654                         {
1655                                 // first update is the final signon stage
1656                                 cls.signon = SIGNONS;
1657                                 CL_SignonReply ();
1658                         }
1659                         CL_ReadEntityFrame();
1660                         break;
1661                 }
1662         }
1663
1664         EntityFrameQuake_ISeeDeadEntities();
1665
1666         parsingerror = false;
1667 }
1668
1669 void CL_Parse_DumpPacket(void)
1670 {
1671         if (!parsingerror)
1672                 return;
1673         Con_Print("Packet dump:\n");
1674         SZ_HexDumpToConsole(&net_message);
1675         parsingerror = false;
1676 }
1677
1678 void CL_Parse_Init(void)
1679 {
1680         // LordHavoc: added demo_nehahra cvar
1681         cl_scores_mempool = Mem_AllocPool("client player info", 0, NULL);
1682         Cvar_RegisterVariable (&demo_nehahra);
1683         if (gamemode == GAME_NEHAHRA)
1684                 Cvar_SetValue("demo_nehahra", 1);
1685         Cvar_RegisterVariable(&developer_networkentities);
1686 }