particle tweaks
[divverent/darkplaces.git] / cl_particles.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
21 #include "quakedef.h"
22
23 #define MAX_PARTICLES                   16384   // default max # of particles at one time
24 #define ABSOLUTE_MIN_PARTICLES  512             // no fewer than this no matter what's on the command line
25
26 typedef enum
27 {
28         pt_static, pt_grav, pt_blob, pt_blob2, pt_bulletsmoke, pt_smoke, pt_snow, pt_rain, pt_spark, pt_bubble, pt_fade, pt_steam, pt_splash, pt_splashpuff, pt_flame, pt_blood, pt_oneframe, pt_lavasplash, pt_raindropsplash, pt_underwaterspark, pt_explosionsplash
29 }
30 ptype_t;
31
32 typedef struct particle_s
33 {
34         ptype_t         type;
35         int                     orientation; // typically PARTICLE_BILLBOARD
36         vec3_t          org;
37         vec3_t          vel;
38         int                     additive;
39         int                     tex;
40         float           die;
41         float           scalex;
42         float           scaley;
43         float           alpha; // 0-255
44         float           time2; // used for various things (snow fluttering, for example)
45         float           bounce; // how much bounce-back from a surface the particle hits (0 = no physics, 1 = stop and slide, 2 = keep bouncing forever, 1.5 is typical)
46         vec3_t          oldorg;
47         vec3_t          vel2; // used for snow fluttering (base velocity, wind for instance)
48         float           friction; // how much air friction affects this object (objects with a low mass/size ratio tend to get more air friction)
49         float           pressure; // if non-zero, apply pressure to other particles
50         int                     dynlight; // if set the particle will be dynamically lit (if cl_dynamicparticles is on), used for smoke and blood
51         byte            color[4];
52 }
53 particle_t;
54
55 static int particlepalette[256] =
56 {
57         0x000000,0x0f0f0f,0x1f1f1f,0x2f2f2f,0x3f3f3f,0x4b4b4b,0x5b5b5b,0x6b6b6b,
58         0x7b7b7b,0x8b8b8b,0x9b9b9b,0xababab,0xbbbbbb,0xcbcbcb,0xdbdbdb,0xebebeb,
59         0x0f0b07,0x170f0b,0x1f170b,0x271b0f,0x2f2313,0x372b17,0x3f2f17,0x4b371b,
60         0x533b1b,0x5b431f,0x634b1f,0x6b531f,0x73571f,0x7b5f23,0x836723,0x8f6f23,
61         0x0b0b0f,0x13131b,0x1b1b27,0x272733,0x2f2f3f,0x37374b,0x3f3f57,0x474767,
62         0x4f4f73,0x5b5b7f,0x63638b,0x6b6b97,0x7373a3,0x7b7baf,0x8383bb,0x8b8bcb,
63         0x000000,0x070700,0x0b0b00,0x131300,0x1b1b00,0x232300,0x2b2b07,0x2f2f07,
64         0x373707,0x3f3f07,0x474707,0x4b4b0b,0x53530b,0x5b5b0b,0x63630b,0x6b6b0f,
65         0x070000,0x0f0000,0x170000,0x1f0000,0x270000,0x2f0000,0x370000,0x3f0000,
66         0x470000,0x4f0000,0x570000,0x5f0000,0x670000,0x6f0000,0x770000,0x7f0000,
67         0x131300,0x1b1b00,0x232300,0x2f2b00,0x372f00,0x433700,0x4b3b07,0x574307,
68         0x5f4707,0x6b4b0b,0x77530f,0x835713,0x8b5b13,0x975f1b,0xa3631f,0xaf6723,
69         0x231307,0x2f170b,0x3b1f0f,0x4b2313,0x572b17,0x632f1f,0x733723,0x7f3b2b,
70         0x8f4333,0x9f4f33,0xaf632f,0xbf772f,0xcf8f2b,0xdfab27,0xefcb1f,0xfff31b,
71         0x0b0700,0x1b1300,0x2b230f,0x372b13,0x47331b,0x533723,0x633f2b,0x6f4733,
72         0x7f533f,0x8b5f47,0x9b6b53,0xa77b5f,0xb7876b,0xc3937b,0xd3a38b,0xe3b397,
73         0xab8ba3,0x9f7f97,0x937387,0x8b677b,0x7f5b6f,0x775363,0x6b4b57,0x5f3f4b,
74         0x573743,0x4b2f37,0x43272f,0x371f23,0x2b171b,0x231313,0x170b0b,0x0f0707,
75         0xbb739f,0xaf6b8f,0xa35f83,0x975777,0x8b4f6b,0x7f4b5f,0x734353,0x6b3b4b,
76         0x5f333f,0x532b37,0x47232b,0x3b1f23,0x2f171b,0x231313,0x170b0b,0x0f0707,
77         0xdbc3bb,0xcbb3a7,0xbfa39b,0xaf978b,0xa3877b,0x977b6f,0x876f5f,0x7b6353,
78         0x6b5747,0x5f4b3b,0x533f33,0x433327,0x372b1f,0x271f17,0x1b130f,0x0f0b07,
79         0x6f837b,0x677b6f,0x5f7367,0x576b5f,0x4f6357,0x475b4f,0x3f5347,0x374b3f,
80         0x2f4337,0x2b3b2f,0x233327,0x1f2b1f,0x172317,0x0f1b13,0x0b130b,0x070b07,
81         0xfff31b,0xefdf17,0xdbcb13,0xcbb70f,0xbba70f,0xab970b,0x9b8307,0x8b7307,
82         0x7b6307,0x6b5300,0x5b4700,0x4b3700,0x3b2b00,0x2b1f00,0x1b0f00,0x0b0700,
83         0x0000ff,0x0b0bef,0x1313df,0x1b1bcf,0x2323bf,0x2b2baf,0x2f2f9f,0x2f2f8f,
84         0x2f2f7f,0x2f2f6f,0x2f2f5f,0x2b2b4f,0x23233f,0x1b1b2f,0x13131f,0x0b0b0f,
85         0x2b0000,0x3b0000,0x4b0700,0x5f0700,0x6f0f00,0x7f1707,0x931f07,0xa3270b,
86         0xb7330f,0xc34b1b,0xcf632b,0xdb7f3b,0xe3974f,0xe7ab5f,0xefbf77,0xf7d38b,
87         0xa77b3b,0xb79b37,0xc7c337,0xe7e357,0x7fbfff,0xabe7ff,0xd7ffff,0x670000,
88         0x8b0000,0xb30000,0xd70000,0xff0000,0xfff393,0xfff7c7,0xffffff,0x9f5b53
89 };
90
91 static int explosparkramp[8] = {0x4b0700, 0x6f0f00, 0x931f07, 0xb7330f, 0xcf632b, 0xe3974f, 0xffe7b5, 0xffffff};
92 //static int explounderwatersparkramp[8] = {0x00074b, 0x000f6f, 0x071f93, 0x0f33b7, 0x2b63cf, 0x4f97e3, 0xb5e7ff, 0xffffff};
93
94 // these must match r_part.c's textures
95 static const int tex_smoke[8] = {0, 1, 2, 3, 4, 5, 6, 7};
96 static const int tex_rainsplash[16] = {8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23};
97 static const int tex_particle = 24;
98 static const int tex_rain = 25;
99 static const int tex_bubble = 26;
100 static const int tex_rocketglow = 27;
101
102 static int                      cl_maxparticles;
103 static int                      cl_numparticles;
104 static particle_t       *particles;
105 static particle_t       **freeparticles; // list used only in compacting particles array
106 static renderparticle_t *cl_renderparticles;
107
108 static cvar_t cl_particles = {CVAR_SAVE, "cl_particles", "1"};
109 static cvar_t cl_particles_size = {CVAR_SAVE, "cl_particles_size", "1"};
110 static cvar_t cl_particles_bloodshowers = {CVAR_SAVE, "cl_particles_bloodshowers", "1"};
111 static cvar_t cl_particles_blood = {CVAR_SAVE, "cl_particles_blood", "1"};
112 static cvar_t cl_particles_smoke = {CVAR_SAVE, "cl_particles_smoke", "1"};
113 static cvar_t cl_particles_sparks = {CVAR_SAVE, "cl_particles_sparks", "1"};
114 static cvar_t cl_particles_bubbles = {CVAR_SAVE, "cl_particles_bubbles", "1"};
115 static cvar_t cl_particles_explosions = {CVAR_SAVE, "cl_particles_explosions", "0"};
116
117 static mempool_t *cl_part_mempool;
118
119 void CL_Particles_Clear(void)
120 {
121         cl_numparticles = 0;
122 }
123
124 /*
125 ===============
126 CL_InitParticles
127 ===============
128 */
129 void CL_ReadPointFile_f (void);
130 void CL_Particles_Init (void)
131 {
132         int             i;
133
134         i = COM_CheckParm ("-particles");
135
136         if (i)
137         {
138                 cl_maxparticles = (int)(atoi(com_argv[i+1]));
139                 if (cl_maxparticles < ABSOLUTE_MIN_PARTICLES)
140                         cl_maxparticles = ABSOLUTE_MIN_PARTICLES;
141         }
142         else
143                 cl_maxparticles = MAX_PARTICLES;
144
145         Cmd_AddCommand ("pointfile", CL_ReadPointFile_f);
146
147         Cvar_RegisterVariable (&cl_particles);
148         Cvar_RegisterVariable (&cl_particles_size);
149         Cvar_RegisterVariable (&cl_particles_bloodshowers);
150         Cvar_RegisterVariable (&cl_particles_blood);
151         Cvar_RegisterVariable (&cl_particles_smoke);
152         Cvar_RegisterVariable (&cl_particles_sparks);
153         Cvar_RegisterVariable (&cl_particles_bubbles);
154         Cvar_RegisterVariable (&cl_particles_explosions);
155
156         cl_part_mempool = Mem_AllocPool("CL_Part");
157         particles = (particle_t *) Mem_Alloc(cl_part_mempool, cl_maxparticles * sizeof(particle_t));
158         freeparticles = (void *) Mem_Alloc(cl_part_mempool, cl_maxparticles * sizeof(particle_t *));
159         cl_numparticles = 0;
160
161         // FIXME: r_refdef stuff should be allocated somewhere else?
162         r_refdef.particles = cl_renderparticles = Mem_Alloc(cl_refdef_mempool, cl_maxparticles * sizeof(renderparticle_t));
163 }
164
165 #define particle(ptype, porientation, pcolor, ptex, plight, padditive, pscalex, pscaley, palpha, ptime, pbounce, px, py, pz, pvx, pvy, pvz, ptime2, pvx2, pvy2, pvz2, pfriction, ppressure)\
166 {\
167         particle_t      *part;\
168         int tempcolor;\
169         if (cl_numparticles >= cl_maxparticles)\
170                 return;\
171         part = &particles[cl_numparticles++];\
172         part->type = (ptype);\
173         tempcolor = (pcolor);\
174         part->color[0] = ((tempcolor) >> 16) & 0xFF;\
175         part->color[1] = ((tempcolor) >> 8) & 0xFF;\
176         part->color[2] = (tempcolor) & 0xFF;\
177         part->color[3] = 0xFF;\
178         part->tex = (ptex);\
179         part->orientation = (porientation);\
180         part->dynlight = (plight);\
181         part->additive = (padditive);\
182         part->scalex = (pscalex);\
183         part->scaley = (pscaley);\
184         part->alpha = (palpha);\
185         part->die = cl.time + (ptime);\
186         part->bounce = (pbounce);\
187         part->org[0] = (px);\
188         part->org[1] = (py);\
189         part->org[2] = (pz);\
190         part->vel[0] = (pvx);\
191         part->vel[1] = (pvy);\
192         part->vel[2] = (pvz);\
193         part->time2 = (ptime2);\
194         part->vel2[0] = (pvx2);\
195         part->vel2[1] = (pvy2);\
196         part->vel2[2] = (pvz2);\
197         part->friction = (pfriction);\
198         part->pressure = (ppressure);\
199 }
200
201 /*
202 ===============
203 CL_EntityParticles
204 ===============
205 */
206 void CL_EntityParticles (entity_t *ent)
207 {
208         int                     i;
209         float           angle;
210         float           sp, sy, cp, cy;
211         vec3_t          forward;
212         float           dist;
213         float           beamlength;
214         static vec3_t avelocities[NUMVERTEXNORMALS];
215         if (!cl_particles.integer) return;
216
217         dist = 64;
218         beamlength = 16;
219
220         if (!avelocities[0][0])
221                 for (i=0 ; i<NUMVERTEXNORMALS*3 ; i++)
222                         avelocities[0][i] = (rand()&255) * 0.01;
223
224         for (i=0 ; i<NUMVERTEXNORMALS ; i++)
225         {
226                 angle = cl.time * avelocities[i][0];
227                 sy = sin(angle);
228                 cy = cos(angle);
229                 angle = cl.time * avelocities[i][1];
230                 sp = sin(angle);
231                 cp = cos(angle);
232
233                 forward[0] = cp*cy;
234                 forward[1] = cp*sy;
235                 forward[2] = -sp;
236
237                 particle(pt_oneframe, PARTICLE_BILLBOARD, particlepalette[0x6f], tex_particle, false, true, 2, 2, 255, 9999, 0, ent->render.origin[0] + m_bytenormals[i][0]*dist + forward[0]*beamlength, ent->render.origin[1] + m_bytenormals[i][1]*dist + forward[1]*beamlength, ent->render.origin[2] + m_bytenormals[i][2]*dist + forward[2]*beamlength, 0, 0, 0, 0, 0, 0, 0, 0, 0);
238         }
239 }
240
241
242 void CL_ReadPointFile_f (void)
243 {
244         vec3_t  org;
245         int             r, c;
246         char    *pointfile, *pointfilepos, *t, tchar;
247
248         pointfile = COM_LoadFile(va("maps/%s.pts", sv.name), true);
249         if (!pointfile)
250         {
251                 Con_Printf ("couldn't open %s.pts\n", sv.name);
252                 return;
253         }
254
255         Con_Printf ("Reading %s.pts...\n", sv.name);
256         c = 0;
257         pointfilepos = pointfile;
258         while (*pointfilepos)
259         {
260                 while (*pointfilepos == '\n' || *pointfilepos == '\r')
261                         pointfilepos++;
262                 if (!*pointfilepos)
263                         break;
264                 t = pointfilepos;
265                 while (*t && *t != '\n' && *t != '\r')
266                         t++;
267                 tchar = *t;
268                 *t = 0;
269                 r = sscanf (pointfilepos,"%f %f %f", &org[0], &org[1], &org[2]);
270                 *t = tchar;
271                 pointfilepos = t;
272                 if (r != 3)
273                         break;
274                 c++;
275
276                 if (cl_numparticles >= cl_maxparticles)
277                 {
278                         Con_Printf ("Not enough free particles\n");
279                         break;
280                 }
281                 particle(pt_static, PARTICLE_BILLBOARD, particlepalette[(-c)&15], tex_particle, false, false, 2, 2, 255, 99999, 0, org[0], org[1], org[2], 0, 0, 0, 0, 0, 0, 0, 0, 0);
282         }
283
284         Mem_Free(pointfile);
285         Con_Printf ("%i points read\n", c);
286 }
287
288 /*
289 ===============
290 CL_ParseParticleEffect
291
292 Parse an effect out of the server message
293 ===============
294 */
295 void CL_ParseParticleEffect (void)
296 {
297         vec3_t          org, dir;
298         int                     i, count, msgcount, color;
299
300         for (i=0 ; i<3 ; i++)
301                 org[i] = MSG_ReadCoord ();
302         for (i=0 ; i<3 ; i++)
303                 dir[i] = MSG_ReadChar () * (1.0/16);
304         msgcount = MSG_ReadByte ();
305         color = MSG_ReadByte ();
306
307         if (msgcount == 255)
308                 count = 1024;
309         else
310                 count = msgcount;
311
312         CL_RunParticleEffect (org, dir, color, count);
313 }
314
315 /*
316 ===============
317 CL_ParticleExplosion
318
319 ===============
320 */
321 void CL_ParticleExplosion (vec3_t org, int smoke)
322 {
323         if (cl_particles.integer && cl_particles_explosions.integer)
324         {
325                 int i, j;
326                 float f;
327                 vec3_t v, end, ang;
328                 byte noise1[32*32], noise2[32*32];
329
330                 VectorClear(end); // hush MSVC
331                 i = Mod_PointInLeaf(org, cl.worldmodel)->contents;
332                 if (i == CONTENTS_SLIME || i == CONTENTS_WATER)
333                 {
334                         for (i = 0;i < 128;i++)
335                                 particle(pt_bubble, PARTICLE_BILLBOARD, 0xFFFFFF, tex_bubble, false, true, 2, 2, 255, 9999, 1.5, org[0] + lhrandom(-16, 16), org[1] + lhrandom(-16, 16), org[2] + lhrandom(-16, 16), lhrandom(-96, 96), lhrandom(-96, 96), lhrandom(-96, 96), 0, 0, 0, 0, 0, 0);
336
337                         ang[2] = lhrandom(0, 360);
338                         fractalnoisequick(noise1, 32, 4);
339                         fractalnoisequick(noise2, 32, 8);
340                         for (i = 0;i < 32;i++)
341                         {
342                                 for (j = 0;j < 32;j++)
343                                 {
344                                         VectorRandom(v);
345                                         VectorMA(org, 16, v, v);
346                                         TraceLine(org, v, end, NULL, 0, true);
347                                         ang[0] = (j + 0.5f) * (360.0f / 32.0f);
348                                         ang[1] = (i + 0.5f) * (360.0f / 32.0f);
349                                         AngleVectors(ang, v, NULL, NULL);
350                                         f = noise1[j*32+i] * 1.5f;
351                                         VectorScale(v, f, v);
352                                         particle(pt_underwaterspark, PARTICLE_BILLBOARD, noise2[j*32+i] * 0x010101, tex_smoke[rand()&7], false, false, 10, 10, lhrandom(128, 255), 9999, 1.5, end[0], end[1], end[2], v[0], v[1], v[2], 512.0f, 0, 0, 0, 2, 0);
353                                         VectorScale(v, 0.75, v);
354                                         particle(pt_underwaterspark, PARTICLE_BILLBOARD, explosparkramp[(noise2[j*32+i] >> 5)], tex_particle, false, true, 10, 10, lhrandom(128, 255), 9999, 1.5, end[0], end[1], end[2], v[0], v[1], v[2], 512.0f, 0, 0, 0, 2, 0);
355                                 }
356                         }
357                 }
358                 else
359                 {
360                         ang[2] = lhrandom(0, 360);
361                         fractalnoisequick(noise1, 32, 4);
362                         fractalnoisequick(noise2, 32, 8);
363                         for (i = 0;i < 32;i++)
364                         {
365                                 for (j = 0;j < 32;j++)
366                                 {
367                                         VectorRandom(v);
368                                         VectorMA(org, 16, v, v);
369                                         TraceLine(org, v, end, NULL, 0, true);
370                                         ang[0] = (j + 0.5f) * (360.0f / 32.0f);
371                                         ang[1] = (i + 0.5f) * (360.0f / 32.0f);
372                                         AngleVectors(ang, v, NULL, NULL);
373                                         f = noise1[j*32+i] * 1.5f;
374                                         VectorScale(v, f, v);
375                                         particle(pt_spark, PARTICLE_BILLBOARD, noise2[j*32+i] * 0x010101, tex_smoke[rand()&7], false, false, 10, 10, lhrandom(128, 255), 9999, 1.5, end[0], end[1], end[2], v[0], v[1], v[2] + 160.0f, 512.0f, 0, 0, 0, 2, 0);
376                                         VectorScale(v, 0.75, v);
377                                         particle(pt_spark, PARTICLE_BILLBOARD, explosparkramp[(noise2[j*32+i] >> 5)], tex_particle, false, true, 10, 10, lhrandom(128, 255), 9999, 1.5, end[0], end[1], end[2], v[0], v[1], v[2] + 160.0f, 512.0f, 0, 0, 0, 2, 0);
378                                 //      VectorRandom(v);
379                                 //      VectorScale(v, 384, v);
380                                 //      particle(pt_spark, PARTICLE_BILLBOARD, explosparkramp[rand()&7], tex_particle, false, true, 2, 2, lhrandom(16, 255), 9999, 1.5, end[0], end[1], end[2], v[0], v[1], v[2] + 160.0f, 512.0f, 0, 0, 0, 2, 0);
381                                 }
382                         }
383                 }
384         }
385         else
386                 R_NewExplosion(org);
387         R_Stain(org, 96, 80, 80, 80, 128, 176, 176, 176, 128);
388 }
389
390 /*
391 ===============
392 CL_ParticleExplosion2
393
394 ===============
395 */
396 void CL_ParticleExplosion2 (vec3_t org, int colorStart, int colorLength)
397 {
398         int                     i;
399         if (!cl_particles.integer) return;
400
401         for (i = 0;i < 512;i++)
402                 particle(pt_fade, PARTICLE_BILLBOARD, particlepalette[colorStart + (i % colorLength)], tex_particle, false, false, 1.5, 1.5, 255, 0.3, 0, org[0] + lhrandom(-8, 8), org[1] + lhrandom(-8, 8), org[2] + lhrandom(-8, 8), lhrandom(-192, 192), lhrandom(-192, 192), lhrandom(-192, 192), 0, 0, 0, 0, 1, 0);
403 }
404
405 /*
406 ===============
407 CL_BlobExplosion
408
409 ===============
410 */
411 void CL_BlobExplosion (vec3_t org)
412 {
413         int                     i;
414         if (!cl_particles.integer) return;
415
416         R_Stain(org, 96, 96, 64, 96, 128, 160, 128, 160, 128);
417         for (i = 0;i < 256;i++)
418                 particle(pt_blob , PARTICLE_BILLBOARD, particlepalette[ 66+(rand()%6)], tex_particle, false, true, 4, 4, 255, 9999, 0, org[0] + lhrandom(-16, 16), org[1] + lhrandom(-16, 16), org[2] + lhrandom(-16, 16), lhrandom(-4, 4), lhrandom(-4, 4), lhrandom(-128, 128), 0, 0, 0, 0, 0, 0);
419         for (i = 0;i < 256;i++)
420                 particle(pt_blob2, PARTICLE_BILLBOARD, particlepalette[150+(rand()%6)], tex_particle, false, true, 4, 4, 255, 9999, 0, org[0] + lhrandom(-16, 16), org[1] + lhrandom(-16, 16), org[2] + lhrandom(-16, 16), lhrandom(-4, 4), lhrandom(-4, 4), lhrandom(-128, 128), 0, 0, 0, 0, 0, 0);
421 }
422
423 /*
424 ===============
425 CL_RunParticleEffect
426
427 ===============
428 */
429 void CL_RunParticleEffect (vec3_t org, vec3_t dir, int color, int count)
430 {
431         if (!cl_particles.integer) return;
432
433         if (count == 1024)
434         {
435                 CL_ParticleExplosion(org, false);
436                 return;
437         }
438         while (count--)
439                 particle(pt_fade, PARTICLE_BILLBOARD, particlepalette[color + (rand()&7)], tex_particle, false, false, 1, 1, 128, 9999, 0, org[0] + lhrandom(-8, 8), org[1] + lhrandom(-8, 8), org[2] + lhrandom(-8, 8), lhrandom(-15, 15), lhrandom(-15, 15), lhrandom(-15, 15), 0, 0, 0, 0, 0, 0);
440 }
441
442 // LordHavoc: added this for spawning sparks/dust (which have strong gravity)
443 /*
444 ===============
445 CL_SparkShower
446 ===============
447 */
448 void CL_SparkShower (vec3_t org, vec3_t dir, int count)
449 {
450         if (!cl_particles.integer) return;
451
452         R_Stain(org, 32, 96, 96, 96, 32, 128, 128, 128, 32);
453
454         // smoke puff
455         if (cl_particles_smoke.integer)
456                 particle(pt_bulletsmoke, PARTICLE_BILLBOARD, 0xFFFFFF /*0xA0A0A0*/, tex_smoke[rand()&7], true, true, 5, 5, 255, 9999, 0, org[0], org[1], org[2], lhrandom(-8, 8), lhrandom(-8, 8), lhrandom(0, 16), 0, 0, 0, 0, 0, 0);
457
458         if (cl_particles_sparks.integer)
459         {
460                 // sparks
461                 while(count--)
462                         particle(pt_spark, PARTICLE_BILLBOARD, particlepalette[0x68 + (rand() & 7)], tex_particle, false, true, 1, 1, lhrandom(0, 255), 9999, 1.5, org[0], org[1], org[2], lhrandom(-64, 64) + dir[0], lhrandom(-64, 64) + dir[1], lhrandom(0, 128) + dir[2], 512, 0, 0, 0, 1, 0);
463         }
464 }
465
466 void CL_PlasmaBurn (vec3_t org)
467 {
468         if (!cl_particles.integer) return;
469
470         R_Stain(org, 48, 96, 96, 96, 48, 128, 128, 128, 48);
471 }
472
473 void CL_BloodPuff (vec3_t org, vec3_t vel, int count)
474 {
475         // bloodcount is used to accumulate counts too small to cause a blood particle
476         static int bloodcount = 0;
477         if (!cl_particles.integer) return;
478         if (!cl_particles_blood.integer) return;
479
480         if (count > 100)
481                 count = 100;
482         bloodcount += count;
483         while(bloodcount >= 10)
484         {
485                 particle(pt_blood, PARTICLE_BILLBOARD, 0x300000, tex_smoke[rand()&7], true, false, 24, 24, 255, 9999, -1, org[0], org[1], org[2], vel[0] + lhrandom(-64, 64), vel[1] + lhrandom(-64, 64), vel[2] + lhrandom(-64, 64), 0, 0, 0, 0, 1, 0);
486                 bloodcount -= 10;
487         }
488 }
489
490 void CL_BloodShower (vec3_t mins, vec3_t maxs, float velspeed, int count)
491 {
492         vec3_t diff, center, velscale;
493         if (!cl_particles.integer) return;
494         if (!cl_particles_bloodshowers.integer) return;
495         if (!cl_particles_blood.integer) return;
496
497         VectorSubtract(maxs, mins, diff);
498         center[0] = (mins[0] + maxs[0]) * 0.5;
499         center[1] = (mins[1] + maxs[1]) * 0.5;
500         center[2] = (mins[2] + maxs[2]) * 0.5;
501         // FIXME: change velspeed back to 2.0x after fixing mod
502         velscale[0] = velspeed * 2.0 / diff[0];
503         velscale[1] = velspeed * 2.0 / diff[1];
504         velscale[2] = velspeed * 2.0 / diff[2];
505
506         while (count--)
507         {
508                 vec3_t org, vel;
509                 org[0] = lhrandom(mins[0], maxs[0]);
510                 org[1] = lhrandom(mins[1], maxs[1]);
511                 org[2] = lhrandom(mins[2], maxs[2]);
512                 vel[0] = (org[0] - center[0]) * velscale[0];
513                 vel[1] = (org[1] - center[1]) * velscale[1];
514                 vel[2] = (org[2] - center[2]) * velscale[2];
515                 particle(pt_blood, PARTICLE_BILLBOARD, 0x300000, tex_smoke[rand()&7], true, false, 24, 24, 255, 9999, -1, org[0], org[1], org[2], vel[0], vel[1], vel[2], 0, 0, 0, 0, 1, 0);
516         }
517 }
518
519 void CL_ParticleCube (vec3_t mins, vec3_t maxs, vec3_t dir, int count, int colorbase, int gravity, int randomvel)
520 {
521         float t;
522         if (!cl_particles.integer) return;
523         if (maxs[0] <= mins[0]) {t = mins[0];mins[0] = maxs[0];maxs[0] = t;}
524         if (maxs[1] <= mins[1]) {t = mins[1];mins[1] = maxs[1];maxs[1] = t;}
525         if (maxs[2] <= mins[2]) {t = mins[2];mins[2] = maxs[2];maxs[2] = t;}
526
527         while (count--)
528                 particle(gravity ? pt_grav : pt_static, PARTICLE_BILLBOARD, particlepalette[colorbase + (rand()&3)], tex_particle, false, false, 2, 2, 255, lhrandom(1, 2), 0, lhrandom(mins[0], maxs[0]), lhrandom(mins[1], maxs[1]), lhrandom(mins[2], maxs[2]), dir[0] + lhrandom(-randomvel, randomvel), dir[1] + lhrandom(-randomvel, randomvel), dir[2] + lhrandom(-randomvel, randomvel), 0, 0, 0, 0, 0, 0);
529 }
530
531 void CL_ParticleRain (vec3_t mins, vec3_t maxs, vec3_t dir, int count, int colorbase, int type)
532 {
533         vec3_t vel;
534         float t, z;
535         if (!cl_particles.integer) return;
536         if (maxs[0] <= mins[0]) {t = mins[0];mins[0] = maxs[0];maxs[0] = t;}
537         if (maxs[1] <= mins[1]) {t = mins[1];mins[1] = maxs[1];maxs[1] = t;}
538         if (maxs[2] <= mins[2]) {t = mins[2];mins[2] = maxs[2];maxs[2] = t;}
539         if (dir[2] < 0) // falling
540         {
541                 t = (maxs[2] - mins[2]) / -dir[2];
542                 z = maxs[2];
543         }
544         else // rising??
545         {
546                 t = (maxs[2] - mins[2]) / dir[2];
547                 z = mins[2];
548         }
549         if (t < 0 || t > 2) // sanity check
550                 t = 2;
551
552         switch(type)
553         {
554         case 0:
555                 count *= 4; // ick, this should be in the mod or maps?
556
557                 while(count--)
558                 {
559                         vel[0] = dir[0] + lhrandom(-16, 16);
560                         vel[1] = dir[1] + lhrandom(-16, 16);
561                         vel[2] = dir[2] + lhrandom(-32, 32);
562                         particle(pt_rain, PARTICLE_UPRIGHT_FACING, particlepalette[colorbase + (rand()&3)], tex_particle, true, true, 1, 64, 64, t, 0, lhrandom(mins[0], maxs[0]), lhrandom(mins[1], maxs[1]), z, vel[0], vel[1], vel[2], 0, vel[0], vel[1], vel[2], 0, 0);
563                 }
564                 break;
565         case 1:
566                 while(count--)
567                 {
568                         vel[0] = dir[0] + lhrandom(-16, 16);
569                         vel[1] = dir[1] + lhrandom(-16, 16);
570                         vel[2] = dir[2] + lhrandom(-32, 32);
571                         particle(pt_snow, PARTICLE_BILLBOARD, particlepalette[colorbase + (rand()&3)], tex_particle, false, true, 2, 2, 255, t, 0, lhrandom(mins[0], maxs[0]), lhrandom(mins[1], maxs[1]), z, vel[0], vel[1], vel[2], 0, vel[0], vel[1], vel[2], 0, 0);
572                 }
573                 break;
574         default:
575                 Host_Error("CL_ParticleRain: unknown type %i (0 = rain, 1 = snow)\n", type);
576         }
577 }
578
579 void CL_FlameCube (vec3_t mins, vec3_t maxs, int count)
580 {
581         float t;
582         if (!cl_particles.integer) return;
583         if (maxs[0] <= mins[0]) {t = mins[0];mins[0] = maxs[0];maxs[0] = t;}
584         if (maxs[1] <= mins[1]) {t = mins[1];mins[1] = maxs[1];maxs[1] = t;}
585         if (maxs[2] <= mins[2]) {t = mins[2];mins[2] = maxs[2];maxs[2] = t;}
586
587         while (count--)
588                 particle(pt_flame, PARTICLE_BILLBOARD, particlepalette[224 + (rand()&15)], tex_particle, false, true, 8, 8, 255, 9999, 1.1, lhrandom(mins[0], maxs[0]), lhrandom(mins[1], maxs[1]), lhrandom(mins[2], maxs[2]), lhrandom(-32, 32), lhrandom(-32, 32), lhrandom(-32, 64), 0, 0, 0, 0, 1, 0);
589 }
590
591 void CL_Flames (vec3_t org, vec3_t vel, int count)
592 {
593         if (!cl_particles.integer) return;
594
595         while (count--)
596                 particle(pt_flame, PARTICLE_BILLBOARD, particlepalette[224 + (rand()&15)], tex_particle, false, true, 8, 8, 255, 9999, 1.1, org[0], org[1], org[2], vel[0] + lhrandom(-128, 128), vel[1] + lhrandom(-128, 128), vel[2] + lhrandom(-128, 128), 0, 0, 0, 0, 1, 0);
597 }
598
599
600
601 /*
602 ===============
603 CL_LavaSplash
604
605 ===============
606 */
607 void CL_LavaSplash (vec3_t origin)
608 {
609         int                     i, j;
610         float           vel;
611         vec3_t          dir, org;
612         if (!cl_particles.integer) return;
613
614         for (i=-128 ; i<128 ; i+=16)
615         {
616                 for (j=-128 ; j<128 ; j+=16)
617                 {
618                         dir[0] = j + lhrandom(0, 8);
619                         dir[1] = i + lhrandom(0, 8);
620                         dir[2] = 256;
621                         org[0] = origin[0] + dir[0];
622                         org[1] = origin[1] + dir[1];
623                         org[2] = origin[2] + lhrandom(0, 64);
624                         vel = lhrandom(50, 120) / VectorLength(dir); // normalize and scale
625                         particle(pt_lavasplash, PARTICLE_BILLBOARD, particlepalette[224 + (rand()&7)], tex_particle, false, true, 7, 7, 255, 9999, 0, org[0], org[1], org[2], dir[0] * vel, dir[1] * vel, dir[2] * vel, 0, 0, 0, 0, 0, 0);
626                 }
627         }
628 }
629
630 /*
631 ===============
632 CL_TeleportSplash
633
634 ===============
635 */
636 void CL_TeleportSplash (vec3_t org)
637 {
638         int                     i, j, k;
639         if (!cl_particles.integer) return;
640
641         for (i=-16 ; i<16 ; i+=8)
642                 for (j=-16 ; j<16 ; j+=8)
643                         for (k=-24 ; k<32 ; k+=8)
644                                 //particle(pt_fade, PARTICLE_BILLBOARD, 0xFFFFFF, tex_particle, false, true, 1.5, 1.5, lhrandom(64, 128), 9999, 0, org[0] + i + lhrandom(0, 8), org[1] + j + lhrandom(0, 8), org[2] + k + lhrandom(0, 8), i*2 + lhrandom(-12.5, 12.5), j*2 + lhrandom(-12.5, 12.5), k*2 + lhrandom(27.5, 52.5), 0, 0, 0, 0, 1, 0);
645                                 particle(pt_spark, PARTICLE_BILLBOARD, 0xFFFFFF, tex_particle, false, true, 2, 2, lhrandom(64, 255), 9999, 0, org[0] + i + lhrandom(0, 8), org[1] + j + lhrandom(0, 8), org[2] + k + lhrandom(0, 8), lhrandom(-64, 64), lhrandom(-64, 64), lhrandom(0, 512), 512.0f, 0, 0, 0, 1, 0);
646 }
647
648 void CL_RocketTrail (vec3_t start, vec3_t end, int type, entity_t *ent)
649 {
650         vec3_t          vec, dir, vel, pos;
651         float           len, dec = 0, speed;
652         int                     contents, bubbles;
653         double          t;
654         if (!cl_particles.integer) return;
655
656         VectorSubtract(end, start, dir);
657         VectorNormalize(dir);
658
659         //if (type == 0 && host_frametime != 0) // rocket glow
660         //      particle(pt_oneframe, PARTICLE_BILLBOARD, 0xFFFFFF, tex_rocketglow, false, true, 24, 24, 255, 9999, 0, end[0] - 12 * dir[0], end[1] - 12 * dir[1], end[2] - 12 * dir[2], 0, 0, 0, 0, 0, 0, 0, 0, 0);
661
662         t = ent->persistent.trail_time;
663         if (t >= cl.time)
664                 return; // no particles to spawn this frame (sparse trail)
665
666         if (t < cl.oldtime)
667                 t = cl.oldtime;
668
669         VectorSubtract (end, start, vec);
670         len = VectorNormalizeLength (vec);
671         if (len <= 0.01f)
672         {
673                 // advance the trail time
674                 ent->persistent.trail_time = cl.time;
675                 return;
676         }
677         speed = len / (cl.time - cl.oldtime);
678         VectorScale(vec, speed, vel);
679
680         // advance into this frame to reach the first puff location
681         dec = t - cl.oldtime;
682         dec *= speed;
683         VectorMA(start, dec, vec, pos);
684
685         contents = Mod_PointInLeaf(pos, cl.worldmodel)->contents;
686         if (contents == CONTENTS_SKY || contents == CONTENTS_LAVA)
687         {
688                 // advance the trail time
689                 ent->persistent.trail_time = cl.time;
690                 return;
691         }
692
693         bubbles = (contents == CONTENTS_WATER || contents == CONTENTS_SLIME);
694
695         while (t < cl.time)
696         {
697                 switch (type)
698                 {
699                         case 0: // rocket trail
700                                 if (!cl_particles_smoke.integer)
701                                         dec = cl.time - t;
702                                 else if (bubbles && cl_particles_bubbles.integer)
703                                 {
704                                         dec = 0.005f;
705                                         particle(pt_bubble, PARTICLE_BILLBOARD, 0xFFFFFF, tex_bubble, false, true, 2, 2, 255, 9999, 1.5, pos[0], pos[1], pos[2], lhrandom(-16, 16), lhrandom(-16, 16), lhrandom(-16, 16), 0, 0, 0, 0, 0, 0);
706                                         particle(pt_bubble, PARTICLE_BILLBOARD, 0xFFFFFF, tex_bubble, false, true, 2, 2, 255, 9999, 1.5, pos[0], pos[1], pos[2], lhrandom(-16, 16), lhrandom(-16, 16), lhrandom(-16, 16), 0, 0, 0, 0, 0, 0);
707                                         particle(pt_smoke, PARTICLE_BILLBOARD, 0xFFFFFF, tex_smoke[rand()&7], false, false, 2, 2, 160, 9999, 0, pos[0], pos[1], pos[2], 0, 0, 0, 0, 0, 0, 0, 0, 0);
708                                 }
709                                 else
710                                 {
711                                         dec = 0.005f;
712                                         particle(pt_smoke, PARTICLE_BILLBOARD, 0xC0C0C0, tex_smoke[rand()&7], true, false, 2, 2, 160, 9999, 0, pos[0], pos[1], pos[2], 0, 0, 0, 0, 0, 0, 0, 0, 0);
713                                         //particle(pt_spark, PARTICLE_BILLBOARD, particlepalette[0x68 + (rand() & 7)], tex_particle, false, true, 1, 1, lhrandom(128, 255), 9999, 1.5, pos[0], pos[1], pos[2], lhrandom(-64, 64) - vel[0] * 0.0625, lhrandom(-64, 64) - vel[1] * 0.0625, lhrandom(-64, 64) - vel[2] * 0.0625, 512.0f, 0, 0, 0, 1, 0);
714                                         //particle(pt_spark, PARTICLE_BILLBOARD, particlepalette[0x68 + (rand() & 7)], tex_particle, false, true, 1, 1, lhrandom(128, 255), 9999, 1.5, pos[0], pos[1], pos[2], lhrandom(-64, 64) - vel[0] * 0.0625, lhrandom(-64, 64) - vel[1] * 0.0625, lhrandom(-64, 64) - vel[2] * 0.0625, 512.0f, 0, 0, 0, 1, 0);
715                                         //particle(pt_spark, PARTICLE_BILLBOARD, particlepalette[0x68 + (rand() & 7)], tex_particle, false, true, 1, 1, lhrandom(128, 255), 9999, 1.5, pos[0], pos[1], pos[2], lhrandom(-64, 64) - vel[0] * 0.0625, lhrandom(-64, 64) - vel[1] * 0.0625, lhrandom(-64, 64) - vel[2] * 0.0625, 512.0f, 0, 0, 0, 1, 0);
716                                         //particle(pt_spark, PARTICLE_BILLBOARD, particlepalette[0x68 + (rand() & 7)], tex_particle, false, true, 1, 1, lhrandom(128, 255), 9999, 1.5, pos[0], pos[1], pos[2], lhrandom(-64, 64) - vel[0] * 0.0625, lhrandom(-64, 64) - vel[1] * 0.0625, lhrandom(-64, 64) - vel[2] * 0.0625, 512.0f, 0, 0, 0, 1, 0);
717                                 }
718                                 break;
719
720                         case 1: // grenade trail
721                                 // FIXME: make it gradually stop smoking
722                                 if (!cl_particles_smoke.integer)
723                                         dec = cl.time - t;
724                                 else if (bubbles && cl_particles_bubbles.integer)
725                                 {
726                                         dec = 0.02f;
727                                         particle(pt_bubble, PARTICLE_BILLBOARD, 0xFFFFFF, tex_bubble, false, true, 2, 2, 255, 9999, 1.5, pos[0], pos[1], pos[2], lhrandom(-16, 16), lhrandom(-16, 16), lhrandom(-16, 16), 0, 0, 0, 0, 0, 0);
728                                         particle(pt_bubble, PARTICLE_BILLBOARD, 0xFFFFFF, tex_bubble, false, true, 2, 2, 255, 9999, 1.5, pos[0], pos[1], pos[2], lhrandom(-16, 16), lhrandom(-16, 16), lhrandom(-16, 16), 0, 0, 0, 0, 0, 0);
729                                         particle(pt_smoke, PARTICLE_BILLBOARD, 0xFFFFFF, tex_smoke[rand()&7], false, false, 2, 2, 160, 9999, 0, pos[0], pos[1], pos[2], 0, 0, 0, 0, 0, 0, 0, 0, 0);
730                                 }
731                                 else
732                                 {
733                                         dec = 0.02f;
734                                         particle(pt_smoke, PARTICLE_BILLBOARD, 0x808080, tex_smoke[rand()&7], true, false, 2, 2, 160, 9999, 0, pos[0], pos[1], pos[2], 0, 0, 0, 0, 0, 0, 0, 0, 0);
735                                 }
736                                 break;
737
738
739                         case 2: // blood
740                                 if (!cl_particles_blood.integer)
741                                         dec = cl.time - t;
742                                 else
743                                 {
744                                         dec = 0.1f;
745                                         particle(pt_blood, PARTICLE_BILLBOARD, 0x300000, tex_smoke[rand()&7], true, false, 24, 24, 255, 9999, -1, pos[0], pos[1], pos[2], vel[0] + lhrandom(-64, 64), vel[1] + lhrandom(-64, 64), vel[2] + lhrandom(-64, 64), 0, 0, 0, 0, 1, 0);
746                                 }
747                                 break;
748
749                         case 4: // slight blood
750                                 if (!cl_particles_blood.integer)
751                                         dec = cl.time - t;
752                                 else
753                                 {
754                                         dec = 0.15f;
755                                         particle(pt_blood, PARTICLE_BILLBOARD, 0x300000, tex_smoke[rand()&7], true, false, 24, 24, 255, 9999, -1, pos[0], pos[1], pos[2], vel[0] + lhrandom(-64, 64), vel[1] + lhrandom(-64, 64), vel[2] + lhrandom(-64, 64), 0, 0, 0, 0, 1, 0);
756                                 }
757                                 break;
758
759                         case 3: // green tracer
760                                 dec = 0.02f;
761                                 particle(pt_fade, PARTICLE_BILLBOARD, 0x373707, tex_smoke[rand()&7], false, false, 4, 4, 255, 9999, 0, pos[0], pos[1], pos[2], 0, 0, 0, 0, 0, 0, 0, 0, 0);
762                                 break;
763
764                         case 5: // flame tracer
765                                 dec = 0.02f;
766                                 particle(pt_fade, PARTICLE_BILLBOARD, 0xCF632B, tex_smoke[rand()&7], false, false, 4, 4, 255, 9999, 0, pos[0], pos[1], pos[2], 0, 0, 0, 0, 0, 0, 0, 0, 0);
767                                 break;
768
769                         case 6: // voor trail
770                                 dec = 0.05f; // sparse trail
771                                 particle(pt_fade, PARTICLE_BILLBOARD, 0x47232B, tex_smoke[rand()&7], false, false, 4, 4, 255, 9999, 0, pos[0], pos[1], pos[2], 0, 0, 0, 0, 0, 0, 0, 0, 0);
772                                 break;
773
774                         case 7: // Nehahra smoke tracer
775                                 if (!cl_particles_smoke.integer)
776                                         dec = cl.time - t;
777                                 else
778                                 {
779                                         dec = 0.14f;
780                                         particle(pt_smoke, PARTICLE_BILLBOARD, 0xC0C0C0, tex_smoke[rand()&7], true, false, 10, 10, 64, 9999, 0, pos[0], pos[1], pos[2], 0, 0, 0, 0, 0, 0, 0, 0, 0);
781                                 }
782                                 break;
783                 }
784
785                 // advance to next time and position
786                 t += dec;
787                 dec *= speed;
788                 VectorMA (pos, dec, vec, pos);
789         }
790         ent->persistent.trail_time = t;
791 }
792
793 void CL_RocketTrail2 (vec3_t start, vec3_t end, int color, entity_t *ent)
794 {
795         vec3_t          vec, pos;
796         int                     len;
797         if (!cl_particles.integer) return;
798         if (!cl_particles_smoke.integer) return;
799
800         VectorCopy(start, pos);
801         VectorSubtract (end, start, vec);
802         len = (int) (VectorNormalizeLength (vec) * (1.0f / 3.0f));
803         VectorScale(vec, 3, vec);
804         color = particlepalette[color];
805         while (len--)
806         {
807                 particle(pt_smoke, PARTICLE_BILLBOARD, color, tex_particle, false, false, 8, 8, 192, 9999, 0, pos[0], pos[1], pos[2], 0, 0, 0, 0, 0, 0, 0, 0, 0);
808                 VectorAdd (pos, vec, pos);
809         }
810 }
811
812
813 /*
814 ===============
815 CL_MoveParticles
816 ===============
817 */
818 void CL_MoveParticles (void)
819 {
820         particle_t *p;
821         renderparticle_t *r;
822         int i, activeparticles, maxparticle, j, a, pressureused = false, content;
823         float gravity, dvel, frametime, f, dist, normal[3], v[3], org[3];
824
825         // LordHavoc: early out condition
826         if (!cl_numparticles)
827         {
828                 r_refdef.numparticles = 0;
829                 return;
830         }
831
832         frametime = cl.time - cl.oldtime;
833         if (!frametime)
834                 return; // if absolutely still, don't update particles
835         gravity = frametime * sv_gravity.value;
836         dvel = 1+4*frametime;
837
838         activeparticles = 0;
839         maxparticle = -1;
840         j = 0;
841         for (i = 0, p = particles, r = r_refdef.particles;i < cl_numparticles;i++, p++)
842         {
843                 if (p->die < cl.time)
844                 {
845                         freeparticles[j++] = p;
846                         continue;
847                 }
848
849                 content = 0;
850                 VectorCopy(p->org, p->oldorg);
851                 VectorMA(p->org, frametime, p->vel, p->org);
852                 if (p->friction)
853                 {
854                         f = p->friction * frametime;
855                         if (!content)
856                                 content = Mod_PointInLeaf(p->org, cl.worldmodel)->contents;
857                         if (content != CONTENTS_EMPTY)
858                                 f *= 4;
859                         f = 1.0f - f;
860                         VectorScale(p->vel, f, p->vel);
861                 }
862                 VectorCopy(p->org, org);
863                 if (p->bounce)
864                 {
865                         if (TraceLine(p->oldorg, p->org, v, normal, 0, true) < 1)
866                         {
867                                 VectorCopy(v, p->org);
868                                 if (p->bounce < 0)
869                                 {
870                                         // assume it's blood (lame, but...)
871                                         R_Stain(v, 48, 64, 24, 24, 48, 192, 48, 48, 48);
872                                         p->die = -1;
873                                         freeparticles[j++] = p;
874                                         continue;
875                                 }
876                                 else
877                                 {
878                                         dist = DotProduct(p->vel, normal) * -p->bounce;
879                                         VectorMA(p->vel, dist, normal, p->vel);
880                                         if (DotProduct(p->vel, p->vel) < 0.03)
881                                                 VectorClear(p->vel);
882                                 }
883                         }
884                 }
885
886                 switch (p->type)
887                 {
888                 case pt_static:
889                         break;
890
891                         // LordHavoc: drop-through because of shared code
892                 case pt_blob:
893                         p->vel[2] *= dvel;
894                 case pt_blob2:
895                         p->vel[0] *= dvel;
896                         p->vel[1] *= dvel;
897                         p->alpha -= frametime * 256;
898                         if (p->alpha < 1)
899                                 p->die = -1;
900                         break;
901
902                 case pt_grav:
903                         p->vel[2] -= gravity;
904                         break;
905                 case pt_lavasplash:
906                         p->vel[2] -= gravity * 0.05;
907                         p->alpha -= frametime * 192;
908                         if (p->alpha < 1)
909                                 p->die = -1;
910                         break;
911                 case pt_snow:
912                         if (cl.time > p->time2)
913                         {
914                                 p->time2 = cl.time + (rand() & 3) * 0.1;
915                                 p->vel[0] = (rand()&63)-32 + p->vel2[0];
916                                 p->vel[1] = (rand()&63)-32 + p->vel2[1];
917                                 p->vel[2] = (rand()&63)-32 + p->vel2[2];
918                         }
919                         if (!content)
920                                 content = Mod_PointInLeaf(p->org, cl.worldmodel)->contents;
921                         a = content;
922                         if (a != CONTENTS_EMPTY && a != CONTENTS_SKY)
923                         {
924                                 p->die = -1;
925                                 /*
926                                 if (a == CONTENTS_SOLID && Mod_PointInLeaf(p->oldorg, cl.worldmodel)->contents == CONTENTS_SOLID)
927                                         break; // still in solid
928                                 p->die = cl.time + 1000;
929                                 p->vel[0] = p->vel[1] = p->vel[2] = 0;
930                                 switch (a)
931                                 {
932                                 case CONTENTS_LAVA:
933                                 case CONTENTS_SLIME:
934                                         p->tex = tex_smoke[rand()&7];
935                                         p->orientation = PARTICLE_BILLBOARD;
936                                         p->type = pt_steam;
937                                         p->alpha = 96;
938                                         p->scalex = 5;
939                                         p->scaley = 5;
940                                         p->vel[2] = 96;
941                                         break;
942                                 case CONTENTS_WATER:
943                                         p->tex = tex_smoke[rand()&7];
944                                         p->orientation = PARTICLE_BILLBOARD;
945                                         p->type = pt_splash;
946                                         p->alpha = 96;
947                                         p->scalex = 5;
948                                         p->scaley = 5;
949                                         p->vel[2] = 96;
950                                         break;
951                                 default: // CONTENTS_SOLID and any others
952                                         TraceLine(p->oldorg, p->org, v, normal, 0, true);
953                                         VectorCopy(v, p->org);
954                                         p->tex = tex_smoke[rand()&7];
955                                         p->orientation = PARTICLE_BILLBOARD;
956                                         p->type = pt_fade;
957                                         p->scalex = 5;
958                                         p->scaley = 5;
959                                         VectorClear(p->vel);
960                                         break;
961                                 }
962                                 */
963                         }
964                         break;
965                 case pt_blood:
966                         p->friction = 1;
967                         if (!content)
968                                 content = Mod_PointInLeaf(p->org, cl.worldmodel)->contents;
969                         a = content;
970                         if (a != CONTENTS_EMPTY)
971                         {
972                                 if (a == CONTENTS_WATER || a == CONTENTS_SLIME)
973                                 {
974                                         p->friction = 5;
975                                         p->scalex += frametime * 32.0f;
976                                         p->scaley += frametime * 32.0f;
977                                         p->alpha -= frametime * 128.0f;
978                                         p->vel[2] += gravity * 0.125f;
979                                         if (p->alpha < 1)
980                                                 p->die = -1;
981                                         break;
982                                 }
983                                 else
984                                 {
985                                         p->die = -1;
986                                         break;
987                                 }
988                         }
989                         p->vel[2] -= gravity * 0.5;
990                         break;
991                 case pt_spark:
992                         p->alpha -= frametime * p->time2;
993                         p->vel[2] -= gravity;
994                         if (p->alpha < 1)
995                                 p->die = -1;
996                         else
997                         {
998                                 if (!content)
999                                         content = Mod_PointInLeaf(p->org, cl.worldmodel)->contents;
1000                                 if (content != CONTENTS_EMPTY)
1001                                         p->die = -1;
1002                         }
1003                         break;
1004                 case pt_explosionsplash:
1005                         if (Mod_PointInLeaf(p->org, cl.worldmodel)->contents == CONTENTS_EMPTY)
1006                                 p->vel[2] -= gravity;
1007                         else
1008                                 p->alpha = 0;
1009                         p->scalex += frametime * 64.0f;
1010                         p->scaley += frametime * 64.0f;
1011                         p->alpha -= frametime * 1024.0f;
1012                         if (p->alpha < 1)
1013                                 p->die = -1;
1014                         break;
1015                 case pt_fade:
1016                         p->alpha -= frametime * 384;
1017                         if (p->alpha < 1)
1018                                 p->die = -1;
1019                         break;
1020                 case pt_bubble:
1021                         if (!content)
1022                                 content = Mod_PointInLeaf(p->org, cl.worldmodel)->contents;
1023                         if (content != CONTENTS_WATER && content != CONTENTS_SLIME)
1024                         {
1025                                 p->tex = tex_smoke[rand()&7];
1026                                 p->orientation = PARTICLE_BILLBOARD;
1027                                 p->type = pt_splashpuff;
1028                                 p->scalex = 4;
1029                                 p->scaley = 4;
1030                                 p->vel[0] = p->vel[1] = p->vel[2] = 0;
1031                                 break;
1032                         }
1033                         p->vel[0] *= (1 - (frametime * 0.0625));
1034                         p->vel[1] *= (1 - (frametime * 0.0625));
1035                         p->vel[2] = (p->vel[2] + gravity * 0.25) * (1 - (frametime * 0.0625));
1036                         if (cl.time > p->time2)
1037                         {
1038                                 p->time2 = cl.time + lhrandom(0, 0.5);
1039                                 p->vel[0] += lhrandom(-32,32);
1040                                 p->vel[1] += lhrandom(-32,32);
1041                                 p->vel[2] += lhrandom(-32,32);
1042                         }
1043                         p->alpha -= frametime * 256;
1044                         if (p->alpha < 1)
1045                                 p->die = -1;
1046                         break;
1047                 case pt_bulletsmoke:
1048                         p->scalex += frametime * 16;
1049                         p->scaley += frametime * 16;
1050                         p->alpha -= frametime * 1024;
1051                         p->vel[2] += gravity * 0.1;
1052                         if (p->alpha < 1)
1053                                 p->die = -1;
1054                         break;
1055                 case pt_smoke:
1056                         p->scalex += frametime * 24;
1057                         p->scaley += frametime * 24;
1058                         p->alpha -= frametime * 256;
1059                         p->vel[2] += gravity * 0.1;
1060                         if (p->alpha < 1)
1061                                 p->die = -1;
1062                         break;
1063                 case pt_steam:
1064                         p->scalex += frametime * 48;
1065                         p->scaley += frametime * 48;
1066                         p->alpha -= frametime * 512;
1067                         p->vel[2] += gravity * 0.05;
1068                         if (p->alpha < 1)
1069                                 p->die = -1;
1070                         break;
1071                 case pt_splashpuff:
1072                         p->alpha -= frametime * 1024;
1073                         if (p->alpha < 1)
1074                                 p->die = -1;
1075                         break;
1076                 case pt_rain:
1077                         if (!content)
1078                                 content = Mod_PointInLeaf(p->org, cl.worldmodel)->contents;
1079                         a = content;
1080                         if (a != CONTENTS_EMPTY && a != CONTENTS_SKY)
1081                                 p->die = -1;
1082                         /*
1083                         f = 0;
1084                         b = Mod_PointInLeaf(p->oldorg, cl.worldmodel)->contents;
1085                         VectorCopy(p->oldorg, o);
1086                         while (f < 1)
1087                         {
1088                                 a = b;
1089                                 f = TraceLine(o, p->org, v, normal, a, true);
1090                                 b = traceline_endcontents;
1091                                 if (f < 1 && b != CONTENTS_EMPTY && b != CONTENTS_SKY)
1092                                 {
1093                                         #if 1
1094                                         p->die = -1;
1095                                         #else
1096                                         p->die = cl.time + 1000;
1097                                         p->vel[0] = p->vel[1] = p->vel[2] = 0;
1098                                         VectorCopy(v, p->org);
1099                                         switch (b)
1100                                         {
1101                                         case CONTENTS_LAVA:
1102                                         case CONTENTS_SLIME:
1103                                                 p->tex = tex_smoke[rand()&7];
1104                                                 p->orientation = PARTICLE_BILLBOARD;
1105                                                 p->type = pt_steam;
1106                                                 p->scalex = 3;
1107                                                 p->scaley = 3;
1108                                                 p->vel[2] = 96;
1109                                                 break;
1110                                         default: // water, solid, and anything else
1111                                                 p->tex = tex_rainsplash[0];
1112                                                 p->orientation = PARTICLE_ORIENTED_DOUBLESIDED;
1113                                                 p->time2 = 0;
1114                                                 VectorCopy(normal, p->vel2);
1115                                         //      VectorAdd(p->org, normal, p->org);
1116                                                 p->type = pt_raindropsplash;
1117                                                 p->scalex = 8;
1118                                                 p->scaley = 8;
1119                                                 break;
1120                                         }
1121                                         #endif
1122                                         break;
1123                                 }
1124                         }
1125                         */
1126                         break;
1127                         /*
1128                 case pt_raindropsplash:
1129                         p->time2 += frametime * 64.0f;
1130                         if (p->time2 >= 16.0f)
1131                         {
1132                                 p->die = -1;
1133                                 break;
1134                         }
1135                         p->tex = tex_rainsplash[(int) p->time2];
1136                         p->orientation = PARTICLE_ORIENTED_DOUBLESIDED;
1137                         break;
1138                         */
1139                 case pt_flame:
1140                         p->alpha -= frametime * 512;
1141                         p->vel[2] += gravity;
1142                         if (p->alpha < 16)
1143                                 p->die = -1;
1144                         break;
1145                 case pt_oneframe:
1146                         if (p->time2)
1147                                 p->die = -1;
1148                         p->time2 = 1;
1149                         break;
1150                 default:
1151                         printf("unknown particle type %i\n", p->type);
1152                         p->die = -1;
1153                         break;
1154                 }
1155
1156                 // LordHavoc: immediate removal of unnecessary particles (must be done to ensure compactor below operates properly in all cases)
1157                 if (p->die < cl.time)
1158                         freeparticles[j++] = p;
1159                 else
1160                 {
1161                         maxparticle = i;
1162                         activeparticles++;
1163                         if (p->pressure)
1164                                 pressureused = true;
1165
1166                         // build renderparticle for renderer to use
1167                         r->orientation = p->orientation;
1168                         r->additive = p->additive;
1169                         r->dir[0] = p->vel2[0];
1170                         r->dir[1] = p->vel2[1];
1171                         r->dir[2] = p->vel2[2];
1172                         r->org[0] = p->org[0];
1173                         r->org[1] = p->org[1];
1174                         r->org[2] = p->org[2];
1175                         r->tex = p->tex;
1176                         r->scalex = p->scalex * 0.5f * cl_particles_size.value;
1177                         r->scaley = p->scaley * 0.5f * cl_particles_size.value;
1178                         r->dynlight = p->dynlight;
1179                         r->color[0] = p->color[0] * (1.0f / 255.0f);
1180                         r->color[1] = p->color[1] * (1.0f / 255.0f);
1181                         r->color[2] = p->color[2] * (1.0f / 255.0f);
1182                         r->color[3] = p->alpha * (1.0f / 255.0f);
1183                         r++;
1184                 }
1185         }
1186         r_refdef.numparticles = r - r_refdef.particles;
1187         // fill in gaps to compact the array
1188         i = 0;
1189         while (maxparticle >= activeparticles)
1190         {
1191                 *freeparticles[i++] = particles[maxparticle--];
1192                 while (maxparticle >= activeparticles && particles[maxparticle].die < cl.time)
1193                         maxparticle--;
1194         }
1195         cl_numparticles = activeparticles;
1196
1197         if (pressureused)
1198         {
1199                 activeparticles = 0;
1200                 for (i = 0, p = particles;i < cl_numparticles;i++, p++)
1201                         if (p->pressure)
1202                                 freeparticles[activeparticles++] = p;
1203
1204                 if (activeparticles)
1205                 {
1206                         for (i = 0, p = particles;i < cl_numparticles;i++, p++)
1207                         {
1208                                 for (j = 0;j < activeparticles;j++)
1209                                 {
1210                                         if (freeparticles[j] != p)
1211                                         {
1212                                                 float dist, diff[3];
1213                                                 VectorSubtract(p->org, freeparticles[j]->org, diff);
1214                                                 dist = DotProduct(diff, diff);
1215                                                 if (dist < 4096 && dist >= 1)
1216                                                 {
1217                                                         dist = freeparticles[j]->scalex * 4.0f * frametime / sqrt(dist);
1218                                                         VectorMA(p->vel, dist, diff, p->vel);
1219                                                         //dist = freeparticles[j]->scalex * 4.0f * frametime / dist;
1220                                                         //VectorMA(p->vel, dist, freeparticles[j]->vel, p->vel);
1221                                                 }
1222                                         }
1223                                 }
1224                         }
1225                 }
1226         }
1227 }