Merge remote branch 'refs/remotes/origin/fruitiex/racefixes'
[xonotic/xonotic-data.pk3dir.git] / qcsrc / server / gamecommand.qc
1 string GotoMap(string m);
2 void race_deleteTime(string map, float pos);
3
4 float FullTraceFraction(vector a, vector mi, vector ma, vector b)
5 {
6         vector c;
7         float white, black;
8
9         white = 0.001;
10         black = 0.001;
11
12         c = a;
13
14         float n, m;
15         n = m = 0;
16
17         while(vlen(c - b) > 1)
18         {
19                 ++m;
20
21                 tracebox(c, mi, ma, b, MOVE_WORLDONLY, world);
22                 ++n;
23
24                 if(!trace_startsolid)
25                 {
26                         black += vlen(trace_endpos - c);
27                         c = trace_endpos;
28                 }
29
30                 n += tracebox_inverted(c, mi, ma, b, MOVE_WORLDONLY, world);
31
32                 white += vlen(trace_endpos - c);
33                 c = trace_endpos;
34         }
35
36         if(n > 200)
37                 dprint("HOLY SHIT! FullTraceFraction: ", ftos(n), " total traces, ", ftos(m), " iterations\n");
38
39         return white / (black + white);
40 }
41
42 float RadarMapAtPoint_Trace(float x, float y, float w, float h, float zmin, float zsize, float q)
43 {
44         vector a, b, mi, ma;
45
46         mi = '0 0 0';
47         ma = '1 0 0' * w + '0 1 0' * h;
48         a = '1 0 0' * x + '0 1 0' * y + '0 0 1' * zmin;
49         b = '1 0 0' * x + '0 1 0' * y + '0 0 1' * (zsize + zmin);
50
51         return FullTraceFraction(a, mi, ma, b);
52 }
53 float RadarMapAtPoint_LineBlock(float x, float y, float w, float h, float zmin, float zsize, float q)
54 {
55         vector o, mi, ma;
56         float i, r;
57         vector dz;
58
59         q = 256 * q - 1;
60         // 256q-1 is the ideal sample count to map equal amount of sample values to one pixel value
61
62         mi = '0 0 0';
63         dz = (zsize / q) * '0 0 1';
64         ma = '1 0 0' * w + '0 1 0' * h + dz;
65         o = '1 0 0' * x + '0 1 0' * y + '0 0 1' * zmin;
66
67         if(x < world.absmin_x - w)
68                 return 0;
69         if(y < world.absmin_y - h)
70                 return 0;
71         if(x > world.absmax_x)
72                 return 0;
73         if(y > world.absmax_y)
74                 return 0;
75
76         r = 0;
77         for(i = 0; i < q; ++i)
78         {
79                 vector v1, v2;
80                 v1 = v2 = o + dz * i + mi;
81                 v1_x += random() * (ma_x - mi_x);
82                 v1_y += random() * (ma_y - mi_y);
83                 v1_z += random() * (ma_z - mi_z);
84                 v2_x += random() * (ma_x - mi_x);
85                 v2_y += random() * (ma_y - mi_y);
86                 v2_z += random() * (ma_z - mi_z);
87                 traceline(v1, v2, MOVE_WORLDONLY, world);
88                 if(trace_startsolid || trace_fraction < 1)
89                         ++r;
90         }
91         return r / q;
92 }
93 float RadarMapAtPoint_Block(float x, float y, float w, float h, float zmin, float zsize, float q)
94 {
95         vector o, mi, ma;
96         float i, r;
97         vector dz;
98
99         q = 256 * q - 1;
100         // 256q-1 is the ideal sample count to map equal amount of sample values to one pixel value
101
102         mi = '0 0 0';
103         dz = (zsize / q) * '0 0 1';
104         ma = '1 0 0' * w + '0 1 0' * h + dz;
105         o = '1 0 0' * x + '0 1 0' * y + '0 0 1' * zmin;
106
107         if(x < world.absmin_x - w)
108                 return 0;
109         if(y < world.absmin_y - h)
110                 return 0;
111         if(x > world.absmax_x)
112                 return 0;
113         if(y > world.absmax_y)
114                 return 0;
115
116         r = 0;
117         for(i = 0; i < q; ++i)
118         {
119                 tracebox(o + dz * i, mi, ma, o + dz * i, MOVE_WORLDONLY, world);
120                 if(trace_startsolid)
121                         ++r;
122         }
123         return r / q;
124 }
125 float RadarMapAtPoint_Sample(float x, float y, float w, float h, float zmin, float zsize, float q)
126 {
127         vector a, b, mi, ma;
128
129         q *= 4; // choose q so it matches the regular algorithm in speed
130
131         q = 256 * q - 1;
132         // 256q-1 is the ideal sample count to map equal amount of sample values to one pixel value
133
134         mi = '0 0 0';
135         ma = '1 0 0' * w + '0 1 0' * h;
136         a = '1 0 0' * x + '0 1 0' * y + '0 0 1' * zmin;
137         b = '1 0 0' * w + '0 1 0' * h + '0 0 1' * zsize;
138
139         float c, i;
140         c = 0;
141
142         for(i = 0; i < q; ++i)
143         {
144                 vector v;
145                 v_x = a_x + random() * b_x;
146                 v_y = a_y + random() * b_y;
147                 v_z = a_z + random() * b_z;
148                 traceline(v, v, MOVE_WORLDONLY, world);
149                 if(trace_startsolid)
150                         ++c;
151         }
152
153         return c / q;
154 }
155
156 // FF is contained twice, to map 256 to FF too
157 // removes the need to bound()
158 string doublehex = "000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F202122232425262728292A2B2C2D2E2F303132333435363738393A3B3C3D3E3F404142434445464748494A4B4C4D4E4F505152535455565758595A5B5C5D5E5F606162636465666768696A6B6C6D6E6F707172737475767778797A7B7C7D7E7F808182838485868788898A8B8C8D8E8F909192939495969798999A9B9C9D9E9FA0A1A2A3A4A5A6A7A8A9AAABACADAEAFB0B1B2B3B4B5B6B7B8B9BABBBCBDBEBFC0C1C2C3C4C5C6C7C8C9CACBCCCDCECFD0D1D2D3D4D5D6D7D8D9DADBDCDDDEDFE0E1E2E3E4E5E6E7E8E9EAEBECEDEEEFF0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFFFF";
159
160 float RADAR_WIDTH_MAX = 2048;
161 float RADAR_HEIGHT_MAX = 2048;
162 float sharpen_buffer[RADAR_WIDTH_MAX * 3];
163
164 void sharpen_set(float x, float v)
165 {
166         sharpen_buffer[x + 2 * RADAR_WIDTH_MAX] = v;
167 }
168
169 float sharpen_getpixel(float x, float y)
170 {
171         if(x < 0)
172                 return 0;
173         if(x >= RADAR_WIDTH_MAX)
174                 return 0;
175         if(y < 0)
176                 return 0;
177         if(y > 2)
178                 return 0;
179         return sharpen_buffer[x + y * RADAR_WIDTH_MAX];
180 }
181
182 float sharpen_get(float x, float a)
183 {
184         float sum;
185         sum = sharpen_getpixel(x, 1);
186         if(a == 0)
187                 return sum;
188         sum *= (8 + 1/a);
189         sum -= sharpen_getpixel(x - 1, 0);
190         sum -= sharpen_getpixel(x - 1, 1);
191         sum -= sharpen_getpixel(x - 1, 2);
192         sum -= sharpen_getpixel(x + 1, 0);
193         sum -= sharpen_getpixel(x + 1, 1);
194         sum -= sharpen_getpixel(x + 1, 2);
195         sum -= sharpen_getpixel(x, 0);
196         sum -= sharpen_getpixel(x, 2);
197         return bound(0, sum * a, 1);
198 }
199
200 void sharpen_shift(float w)
201 {
202         float i;
203         for(i = 0; i < w; ++i)
204         {
205                 sharpen_buffer[i] = sharpen_buffer[i + RADAR_WIDTH_MAX];
206                 sharpen_buffer[i + RADAR_WIDTH_MAX] = sharpen_buffer[i + 2 * RADAR_WIDTH_MAX];
207                 sharpen_buffer[i + 2 * RADAR_WIDTH_MAX] = 0;
208         }
209 }
210
211 void sharpen_init(float w)
212 {
213         float i;
214         for(i = 0; i < w; ++i)
215         {
216                 sharpen_buffer[i] = 0;
217                 sharpen_buffer[i + RADAR_WIDTH_MAX] = 0;
218                 sharpen_buffer[i + 2 * RADAR_WIDTH_MAX] = 0;
219         }
220 }
221
222 entity radarmapper;
223 void RadarMap_Next()
224 {
225         if(radarmapper.count & 4)
226         {
227                 localcmd("quit\n");
228         }
229         else if(radarmapper.count & 2)
230         {
231                 localcmd(strcat("defer 1 \"sv_cmd radarmap --flags ", ftos(radarmapper.count), strcat(" --res ", ftos(radarmapper.size_x), " ", ftos(radarmapper.size_y), " --sharpen ", ftos(radarmapper.ltime), " --qual ", ftos(radarmapper.size_z)), "\"\n"));
232                 GotoNextMap();
233         }
234         remove(radarmapper);
235         radarmapper = world;
236 }
237
238 // rough map entity
239 //   cnt: current line
240 //   size: pixel width/height
241 //   maxs: cell width/height
242 //   frame: counter
243 void RadarMap_Think()
244 {
245         float i, x, l;
246         string si;
247
248         if(self.frame == 0)
249         {
250                 // initialize
251                 get_mi_min_max_texcoords(1);
252                 self.mins = mi_picmin;
253                 self.maxs_x = (mi_picmax_x - mi_picmin_x) / self.size_x;
254                 self.maxs_y = (mi_picmax_y - mi_picmin_y) / self.size_y;
255                 self.maxs_z = mi_max_z - mi_min_z;
256                 print("Picture mins/maxs: ", ftos(self.maxs_x), " and ", ftos(self.maxs_y), " should match\n");
257                 self.netname = strzone(strcat("gfx/", mi_shortname, "_radar.xpm"));
258                 if(!(self.count & 1))
259                 {
260                         self.cnt = fopen(self.netname, FILE_READ);
261                         if(self.cnt < 0)
262                                 self.cnt = fopen(strcat("gfx/", mi_shortname, "_radar.tga"), FILE_READ);
263                         if(self.cnt < 0)
264                                 self.cnt = fopen(strcat("gfx/", mi_shortname, "_radar.png"), FILE_READ);
265                         if(self.cnt < 0)
266                                 self.cnt = fopen(strcat("gfx/", mi_shortname, "_radar.jpg"), FILE_READ);
267                         if(self.cnt < 0)
268                                 self.cnt = fopen(strcat("gfx/", mi_shortname, "_mini.tga"), FILE_READ);
269                         if(self.cnt < 0)
270                                 self.cnt = fopen(strcat("gfx/", mi_shortname, "_mini.png"), FILE_READ);
271                         if(self.cnt < 0)
272                                 self.cnt = fopen(strcat("gfx/", mi_shortname, "_mini.jpg"), FILE_READ);
273                         if(self.cnt >= 0)
274                         {
275                                 fclose(self.cnt);
276
277                                 print(self.netname, " already exists, aborting (you may want to specify --force)\n");
278                                 RadarMap_Next();
279                                 return;
280                         }
281                 }
282                 self.cnt = fopen(self.netname, FILE_WRITE);
283                 if(self.cnt < 0)
284                 {
285                         print("Error writing ", self.netname, "\n");
286                         remove(self);
287                         radarmapper = world;
288                         return;
289                 }
290                 print("Writing to ", self.netname, "...\n");
291                 fputs(self.cnt, "/* XPM */\n");
292                 fputs(self.cnt, "static char *RadarMap[] = {\n");
293                 fputs(self.cnt, "/* columns rows colors chars-per-pixel */\n");
294                 fputs(self.cnt, strcat("\"", ftos(self.size_x), " ", ftos(self.size_y), " 256 2\",\n"));
295                 for(i = 0; i < 256; ++i)
296                 {
297                         si = substring(doublehex, i*2, 2);
298                         fputs(self.cnt, strcat("\"", si, " c #", si, si, si, "\",\n"));
299                 }
300                 self.frame += 1;
301                 self.nextthink = time;
302                 sharpen_init(self.size_x);
303         }
304         else if(self.frame <= self.size_y)
305         {
306                 // fill the sharpen buffer with this line
307                 sharpen_shift(self.size_x);
308                 i = self.count & 24;
309
310                 switch(i)
311                 {
312                         case 0:
313                         default:
314                                 for(x = 0; x < self.size_x; ++x)
315                                 {
316                                         l = RadarMapAtPoint_Block(self.mins_x + x * self.maxs_x, self.mins_y + (self.size_y - self.frame) * self.maxs_y, self.maxs_x, self.maxs_y, self.mins_z, self.maxs_z, self.size_z);
317                                         sharpen_set(x, l);
318                                 }
319                                 break;
320                         case 8:
321                                 for(x = 0; x < self.size_x; ++x)
322                                 {
323                                         l = RadarMapAtPoint_Trace(self.mins_x + x * self.maxs_x, self.mins_y + (self.size_y - self.frame) * self.maxs_y, self.maxs_x, self.maxs_y, self.mins_z, self.maxs_z, self.size_z);
324                                         sharpen_set(x, l);
325                                 }
326                                 break;
327                         case 16:
328                                 for(x = 0; x < self.size_x; ++x)
329                                 {
330                                         l = RadarMapAtPoint_Sample(self.mins_x + x * self.maxs_x, self.mins_y + (self.size_y - self.frame) * self.maxs_y, self.maxs_x, self.maxs_y, self.mins_z, self.maxs_z, self.size_z);
331                                         sharpen_set(x, l);
332                                 }
333                                 break;
334                         case 24:
335                                 for(x = 0; x < self.size_x; ++x)
336                                 {
337                                         l = RadarMapAtPoint_LineBlock(self.mins_x + x * self.maxs_x, self.mins_y + (self.size_y - self.frame) * self.maxs_y, self.maxs_x, self.maxs_y, self.mins_z, self.maxs_z, self.size_z);
338                                         sharpen_set(x, l);
339                                 }
340                                 break;
341                 }
342
343                 // do we have enough lines?
344                 if(self.frame >= 2)
345                 {
346                         // write a pixel line
347                         fputs(self.cnt, "\"");
348                         for(x = 0; x < self.size_x; ++x)
349                         {
350                                 l = sharpen_get(x, self.ltime);
351                                 fputs(self.cnt, substring(doublehex, 2 * floor(l * 256.0), 2));
352                         }
353                         if(self.frame == self.size_y)
354                                 fputs(self.cnt, "\"\n");
355                         else
356                         {
357                                 fputs(self.cnt, "\",\n");
358                                 print(ftos(self.size_y - self.frame), " lines left\n");
359                         }
360                 }
361
362                 // is this the last line? then write back the missing line
363                 if(self.frame == self.size_y)
364                 {
365                         sharpen_shift(self.size_x);
366                         // write a pixel line
367                         fputs(self.cnt, "\"");
368                         for(x = 0; x < self.size_x; ++x)
369                         {
370                                 l = sharpen_get(x, self.ltime);
371                                 fputs(self.cnt, substring(doublehex, 2 * floor(l * 256.0), 2));
372                         }
373                         if(self.frame == self.size_y)
374                                 fputs(self.cnt, "\"\n");
375                         else
376                         {
377                                 fputs(self.cnt, "\",\n");
378                                 print(ftos(self.size_y - self.frame), " lines left\n");
379                         }
380                 }
381
382                 self.frame += 1;
383                 self.nextthink = time;
384         }
385         else
386         {
387                 // close the file
388                 fputs(self.cnt, "};\n");
389                 fclose(self.cnt);
390                 print("Finished. Please edit data/", self.netname, " with an image editing application and place it in the TGA format in the gfx folder.\n");
391                 RadarMap_Next();
392         }
393 }
394
395 void RadarMap(float argc)
396 {
397         if(radarmapper)
398                 return;
399         float i;
400         radarmapper = spawn();
401         radarmapper.classname = "radarmapper";
402         radarmapper.think = RadarMap_Think;
403         radarmapper.nextthink = time;
404         radarmapper.count = 8; // default to the --trace method, as it is faster now
405         radarmapper.ltime = 1;
406         radarmapper.size_x = 512;
407         radarmapper.size_y = 512;
408         radarmapper.size_z = 1;
409
410         for(i = 1; i < argc; ++i)
411         {
412                 if(argv(i) == "--force")
413                         radarmapper.count |= 1;
414                 else if(argv(i) == "--loop")
415                         radarmapper.count |= 2;
416                 else if(argv(i) == "--quit")
417                         radarmapper.count |= 4;
418                 else if(argv(i) == "--block")
419                 {
420                         radarmapper.count &~= 24;
421                 }
422                 else if(argv(i) == "--trace")
423                 {
424                         radarmapper.count &~= 24;
425                         radarmapper.count |= 8;
426                 }
427                 else if(argv(i) == "--sample")
428                 {
429                         radarmapper.count &~= 24;
430                         radarmapper.count |= 16;
431                 }
432                 else if(argv(i) == "--lineblock")
433                 {
434                         radarmapper.count |= 24;
435                 }
436                 else if(argv(i) == "--flags") // for the recursive call
437                 {
438                         ++i;
439                         radarmapper.count = stof(argv(i));
440                 }
441                 else if(argv(i) == "--sharpen") // for the recursive call
442                 {
443                         ++i;
444                         radarmapper.ltime = stof(argv(i));
445                 }
446                 else if(argv(i) == "--res") // resolution
447                 {
448                         ++i;
449                         radarmapper.size_x = stof(argv(i));
450                         ++i;
451                         radarmapper.size_y = stof(argv(i));
452                 }
453                 else if(argv(i) == "--qual") // quality multiplier
454                 {
455                         ++i;
456                         radarmapper.size_z = stof(argv(i));
457                 }
458                 else
459                 {
460                         remove(radarmapper);
461                         radarmapper = world;
462                         print("Usage: sv_cmd radarmap [--force] [--loop] [--quit] [--block | --trace | --sample | --lineblock] [--sharpen N] [--res W H] [--qual Q]\n");
463                         print("The quality factor Q is roughly proportional to the time taken.\n");
464                         print("--trace supports no quality factor; its result should look like --block with infinite quality factor.\n");
465                         print("--block \n");
466                         return;
467                 }
468         }
469
470         print("Radarmap entity spawned.\n");
471 }
472
473 void BBox()
474 {
475         print("Original size: ", ftos(world.absmin_x), " ", ftos(world.absmin_y), " ", ftos(world.absmin_z));
476         print(" ", ftos(world.absmax_x), " ", ftos(world.absmax_y), " ", ftos(world.absmax_z), "\n");
477         print("Currently set size: ", ftos(world.mins_x), " ", ftos(world.mins_y), " ", ftos(world.mins_z));
478         print(" ", ftos(world.maxs_x), " ", ftos(world.maxs_y), " ", ftos(world.maxs_z), "\n");
479         print("Solid bounding box size:");
480
481         tracebox('1 0 0' * world.absmin_x,
482                  '0 1 0' * world.absmin_y + '0 0 1' * world.absmin_z,
483                  '0 1 0' * world.absmax_y + '0 0 1' * world.absmax_z,
484                  '1 0 0' * world.absmax_x,
485                          MOVE_WORLDONLY,
486                          world);
487         if(trace_startsolid)
488                 print(" ", ftos(world.absmin_x));
489         else
490                 print(" ", ftos(trace_endpos_x));
491
492         tracebox('0 1 0' * world.absmin_y,
493                  '1 0 0' * world.absmin_x + '0 0 1' * world.absmin_z,
494                  '1 0 0' * world.absmax_x + '0 0 1' * world.absmax_z,
495                  '0 1 0' * world.absmax_y,
496                          MOVE_WORLDONLY,
497                          world);
498         if(trace_startsolid)
499                 print(" ", ftos(world.absmin_y));
500         else
501                 print(" ", ftos(trace_endpos_y));
502
503         tracebox('0 0 1' * world.absmin_z,
504                  '1 0 0' * world.absmin_x + '0 1 0' * world.absmin_y,
505                  '1 0 0' * world.absmax_x + '0 1 0' * world.absmax_y,
506                  '0 0 1' * world.absmax_z,
507                          MOVE_WORLDONLY,
508                          world);
509         if(trace_startsolid)
510                 print(" ", ftos(world.absmin_z));
511         else
512                 print(" ", ftos(trace_endpos_z));
513
514         tracebox('1 0 0' * world.absmax_x,
515                  '0 1 0' * world.absmin_y + '0 0 1' * world.absmin_z,
516                  '0 1 0' * world.absmax_y + '0 0 1' * world.absmax_z,
517                  '1 0 0' * world.absmin_x,
518                          MOVE_WORLDONLY,
519                          world);
520         if(trace_startsolid)
521                 print(" ", ftos(world.absmax_x));
522         else
523                 print(" ", ftos(trace_endpos_x));
524
525         tracebox('0 1 0' * world.absmax_y,
526                  '1 0 0' * world.absmin_x + '0 0 1' * world.absmin_z,
527                  '1 0 0' * world.absmax_x + '0 0 1' * world.absmax_z,
528                  '0 1 0' * world.absmin_y,
529                          MOVE_WORLDONLY,
530                          world);
531         if(trace_startsolid)
532                 print(" ", ftos(world.absmax_y));
533         else
534                 print(" ", ftos(trace_endpos_y));
535
536         tracebox('0 0 1' * world.absmax_z,
537                  '1 0 0' * world.absmin_x + '0 1 0' * world.absmin_y,
538                  '1 0 0' * world.absmax_x + '0 1 0' * world.absmax_y,
539                  '0 0 1' * world.absmin_z,
540                          MOVE_WORLDONLY,
541                          world);
542         if(trace_startsolid)
543                 print(" ", ftos(world.absmax_z));
544         else
545                 print(" ", ftos(trace_endpos_z));
546
547         print("\n");
548 }
549
550 void EffectIndexDump()
551 {
552         float d;
553         float fh;
554         string s;
555
556         d = db_create();
557
558         print("begin of effects list\n");
559         db_put(d, "TE_GUNSHOT", "1"); print("effect TE_GUNSHOT is ", ftos(particleeffectnum("TE_GUNSHOT")), "\n");
560         db_put(d, "TE_GUNSHOTQUAD", "1"); print("effect TE_GUNSHOTQUAD is ", ftos(particleeffectnum("TE_GUNSHOTQUAD")), "\n");
561         db_put(d, "TE_SPIKE", "1"); print("effect TE_SPIKE is ", ftos(particleeffectnum("TE_SPIKE")), "\n");
562         db_put(d, "TE_SPIKEQUAD", "1"); print("effect TE_SPIKEQUAD is ", ftos(particleeffectnum("TE_SPIKEQUAD")), "\n");
563         db_put(d, "TE_SUPERSPIKE", "1"); print("effect TE_SUPERSPIKE is ", ftos(particleeffectnum("TE_SUPERSPIKE")), "\n");
564         db_put(d, "TE_SUPERSPIKEQUAD", "1"); print("effect TE_SUPERSPIKEQUAD is ", ftos(particleeffectnum("TE_SUPERSPIKEQUAD")), "\n");
565         db_put(d, "TE_WIZSPIKE", "1"); print("effect TE_WIZSPIKE is ", ftos(particleeffectnum("TE_WIZSPIKE")), "\n");
566         db_put(d, "TE_KNIGHTSPIKE", "1"); print("effect TE_KNIGHTSPIKE is ", ftos(particleeffectnum("TE_KNIGHTSPIKE")), "\n");
567         db_put(d, "TE_EXPLOSION", "1"); print("effect TE_EXPLOSION is ", ftos(particleeffectnum("TE_EXPLOSION")), "\n");
568         db_put(d, "TE_EXPLOSIONQUAD", "1"); print("effect TE_EXPLOSIONQUAD is ", ftos(particleeffectnum("TE_EXPLOSIONQUAD")), "\n");
569         db_put(d, "TE_TAREXPLOSION", "1"); print("effect TE_TAREXPLOSION is ", ftos(particleeffectnum("TE_TAREXPLOSION")), "\n");
570         db_put(d, "TE_TELEPORT", "1"); print("effect TE_TELEPORT is ", ftos(particleeffectnum("TE_TELEPORT")), "\n");
571         db_put(d, "TE_LAVASPLASH", "1"); print("effect TE_LAVASPLASH is ", ftos(particleeffectnum("TE_LAVASPLASH")), "\n");
572         db_put(d, "TE_SMALLFLASH", "1"); print("effect TE_SMALLFLASH is ", ftos(particleeffectnum("TE_SMALLFLASH")), "\n");
573         db_put(d, "TE_FLAMEJET", "1"); print("effect TE_FLAMEJET is ", ftos(particleeffectnum("TE_FLAMEJET")), "\n");
574         db_put(d, "EF_FLAME", "1"); print("effect EF_FLAME is ", ftos(particleeffectnum("EF_FLAME")), "\n");
575         db_put(d, "TE_BLOOD", "1"); print("effect TE_BLOOD is ", ftos(particleeffectnum("TE_BLOOD")), "\n");
576         db_put(d, "TE_SPARK", "1"); print("effect TE_SPARK is ", ftos(particleeffectnum("TE_SPARK")), "\n");
577         db_put(d, "TE_PLASMABURN", "1"); print("effect TE_PLASMABURN is ", ftos(particleeffectnum("TE_PLASMABURN")), "\n");
578         db_put(d, "TE_TEI_G3", "1"); print("effect TE_TEI_G3 is ", ftos(particleeffectnum("TE_TEI_G3")), "\n");
579         db_put(d, "TE_TEI_SMOKE", "1"); print("effect TE_TEI_SMOKE is ", ftos(particleeffectnum("TE_TEI_SMOKE")), "\n");
580         db_put(d, "TE_TEI_BIGEXPLOSION", "1"); print("effect TE_TEI_BIGEXPLOSION is ", ftos(particleeffectnum("TE_TEI_BIGEXPLOSION")), "\n");
581         db_put(d, "TE_TEI_PLASMAHIT", "1"); print("effect TE_TEI_PLASMAHIT is ", ftos(particleeffectnum("TE_TEI_PLASMAHIT")), "\n");
582         db_put(d, "EF_STARDUST", "1"); print("effect EF_STARDUST is ", ftos(particleeffectnum("EF_STARDUST")), "\n");
583         db_put(d, "TR_ROCKET", "1"); print("effect TR_ROCKET is ", ftos(particleeffectnum("TR_ROCKET")), "\n");
584         db_put(d, "TR_GRENADE", "1"); print("effect TR_GRENADE is ", ftos(particleeffectnum("TR_GRENADE")), "\n");
585         db_put(d, "TR_BLOOD", "1"); print("effect TR_BLOOD is ", ftos(particleeffectnum("TR_BLOOD")), "\n");
586         db_put(d, "TR_WIZSPIKE", "1"); print("effect TR_WIZSPIKE is ", ftos(particleeffectnum("TR_WIZSPIKE")), "\n");
587         db_put(d, "TR_SLIGHTBLOOD", "1"); print("effect TR_SLIGHTBLOOD is ", ftos(particleeffectnum("TR_SLIGHTBLOOD")), "\n");
588         db_put(d, "TR_KNIGHTSPIKE", "1"); print("effect TR_KNIGHTSPIKE is ", ftos(particleeffectnum("TR_KNIGHTSPIKE")), "\n");
589         db_put(d, "TR_VORESPIKE", "1"); print("effect TR_VORESPIKE is ", ftos(particleeffectnum("TR_VORESPIKE")), "\n");
590         db_put(d, "TR_NEHAHRASMOKE", "1"); print("effect TR_NEHAHRASMOKE is ", ftos(particleeffectnum("TR_NEHAHRASMOKE")), "\n");
591         db_put(d, "TR_NEXUIZPLASMA", "1"); print("effect TR_NEXUIZPLASMA is ", ftos(particleeffectnum("TR_NEXUIZPLASMA")), "\n");
592         db_put(d, "TR_GLOWTRAIL", "1"); print("effect TR_GLOWTRAIL is ", ftos(particleeffectnum("TR_GLOWTRAIL")), "\n");
593         db_put(d, "SVC_PARTICLE", "1"); print("effect SVC_PARTICLE is ", ftos(particleeffectnum("SVC_PARTICLE")), "\n");
594
595         fh = fopen("effectinfo.txt", FILE_READ);
596         while((s = fgets(fh)))
597         {
598                 tokenize(s); // tokenize_console would hit the loop counter :(
599                 if(argv(0) == "effect")
600                 {
601                         if(db_get(d, argv(1)) != "1")
602                         {
603                                 if(particleeffectnum(argv(1)) >= 0)
604                                         print("effect ", argv(1), " is ", ftos(particleeffectnum(argv(1))), "\n");
605                                 db_put(d, argv(1), "1");
606                         }
607                 }
608         }
609         print("end of effects list\n");
610
611         db_close(d);
612 }
613
614 void make_mapinfo_Think()
615 {
616         if(MapInfo_FilterGametype(MAPINFO_TYPE_ALL, 0, 0, 0, 1))
617         {
618                 print("Done rebuiling mapinfos.\n");
619                 MapInfo_FilterGametype(MapInfo_CurrentGametype(), MapInfo_CurrentFeatures(), MapInfo_RequiredFlags(), MapInfo_ForbiddenFlags(), 0);
620                 remove(self);
621         }
622         else
623         {
624                 self.think = make_mapinfo_Think;
625                 self.nextthink = time;
626         }
627 }
628
629 void GameCommand(string command)
630 {
631         float argc;
632         entity client, e;
633         vector v;
634         float entno, i, n;
635         string s;
636         argc = tokenize_console(command);
637
638         if(argv(0) == "help" || argc == 0)
639         {
640                 print("Usage: sv_cmd COMMAND..., where possible commands are:\n");
641                 print("  adminmsg clientnumber \"message\"\n");
642                 print("  teamstatus\n");
643                 print("  printstats\n");
644                 print("  make_mapinfo\n");
645                 print("  gametype dm|ctf|...\n");
646                 print("  savedb filename\n");
647                 print("  dumpdb filename\n");
648                 print("  loaddb filename\n");
649                 print("  allready\n");
650                 print("  effectindexdump\n");
651                 print("  radarmap [--force] [--quit | --loop] [sharpness]\n");
652                 print("  bbox\n");
653                 print("  cvar_changes\n");
654                 print("  cvar_purechanges\n");
655                 print("  find classname\n");
656                 GameCommand_Vote("help", world);
657                 GameCommand_Ban("help");
658                 GameCommand_Generic("help");
659                 return;
660         }
661
662         if(GameCommand_Vote(command, world))
663                 return;
664
665         if(GameCommand_Ban(command))
666                 return;
667
668         if(GameCommand_Generic(command))
669                 return;
670
671         if(argv(0) == "printstats")
672         {
673                 DumpStats(FALSE);
674                 return;
675         }
676
677         if(argv(0) == "make_mapinfo")
678         {
679                 e = spawn();
680                 e.classname = "make_mapinfo";
681                 e.think = make_mapinfo_Think;
682                 e.nextthink = time;
683                 MapInfo_Enumerate();
684                 return;
685         }
686
687         if(argv(0) == "gotomap") if(argc == 2)
688         {
689                 print(GotoMap(argv(1)), "\n");
690                 return;
691         }
692
693         if(argv(0) == "gametype") if(argc == 2)
694         {
695                 float t, tsave;
696                 s = argv(1);
697                 t = MapInfo_Type_FromString(s);
698                 tsave = MapInfo_CurrentGametype();
699                 if(t)
700                 {
701                         MapInfo_SwitchGameType(t);
702                         MapInfo_FilterGametype(MapInfo_CurrentGametype(), MapInfo_CurrentFeatures(), MapInfo_RequiredFlags(), MapInfo_ForbiddenFlags(), 0);
703                         if(MapInfo_count > 0)
704                         {
705                                 bprint("Game type successfully switched to ", s, "\n");
706                         }
707                         else
708                         {
709                                 bprint("Cannot use this game type: no map for it found\n");
710                                 MapInfo_SwitchGameType(tsave);
711                                 MapInfo_FilterGametype(MapInfo_CurrentGametype(), MapInfo_CurrentFeatures(), MapInfo_RequiredFlags(), MapInfo_ForbiddenFlags(), 0);
712                         }
713                 }
714                 else
715                         bprint("Game type switch to ", s, " failed: this type does not exist!\n");
716                 return;
717         }
718
719         if(argv(0) == "adminmsg")
720         if(argc == 3)
721         {
722                 entno = stof(argv(1));
723
724                 if((entno < 1) | (entno > maxclients)) {
725                         print("Player ", argv(1), " doesn't exist\n");
726                         return;
727                 }
728
729                 client = edict_num(entno);
730
731                 if(client.flags & FL_CLIENT)
732                 {
733                         centerprint_atprio(client, CENTERPRIO_ADMIN, strcat("^3", admin_name(), ":\n\n^7", argv(2)));
734                         sprint(client, strcat("\{1}\{13}^3", admin_name(), "^7: ", argv(2), "\n"));
735                         print("Message sent to ", client.netname, "\n");
736                 }
737                 else
738                         print("Client not found\n");
739
740                 return;
741         }
742
743         if(argv(0) == "savedb") if(argc == 2)
744         {
745                 db_save(ServerProgsDB, argv(1));
746                 print("DB saved.\n");
747                 return;
748         }
749
750         if(argv(0) == "dumpdb") if(argc == 2)
751         {
752                 db_dump(ServerProgsDB, argv(1));
753                 print("DB dumped.\n");
754                 return;
755         }
756
757         if(argv(0) == "loaddb") if(argc == 2)
758         {
759                 db_close(ServerProgsDB);
760                 ServerProgsDB = db_load(argv(1));
761                 print("DB loaded.\n");
762                 return;
763         }
764
765         if (argv(0) == "nospectators")
766         {
767                 blockSpectators = 1;
768                 local entity plr;
769                 FOR_EACH_CLIENT(plr) //give every spectator <g_maxplayers_spectator_blocktime> seconds time to become a player
770                 {
771                         if(plr.classname == "spectator" || plr.classname == "observer")
772                         {
773                                 plr.spectatortime = time;
774                                 sprint(plr, strcat("^7You have to become a player within the next ", ftos(cvar("g_maxplayers_spectator_blocktime")), " seconds, otherwise you will be kicked, because spectators aren't allowed at this time!\n"));
775                         }
776                 }
777                 bprint(strcat("^7All spectators will be automatically kicked when not joining the game after ", ftos(cvar("g_maxplayers_spectator_blocktime")), " seconds!\n"));
778                 return;
779         }
780
781         if (argv(0) == "lockteams")
782         {
783                 if(teams_matter)
784                 {
785                         lockteams = 1;
786                         bprint("^1The teams are now locked.\n");
787                 }
788                 else
789                         bprint("That command can only be used in a team-based gamemode.\n");
790                 return;
791         }
792
793         if (argv(0) == "unlockteams")
794         {
795                 if(teams_matter)
796                 {
797                         lockteams = 0;
798                         bprint("^1The teams are now unlocked.\n");
799                 }
800                 else
801                         bprint("That command can only be used in a team-based gamemode.\n");
802                 return;
803         }
804         if(argv(0) == "movetoteam")
805         if(argc == 3 || argc == 4) {
806 //      sv_cmd movetoteam  player_id  team_colour
807 //      sv_cmd movetoteam  player_id  team_colour  type_of_move
808
809 //      type of move
810 //      0 (00) automove centerprint, admin message
811 //      1 (01) automove centerprint, no admin message
812 //      2 (10) no centerprint, admin message
813 //      3 (11) no centerprint, no admin message
814
815                 if(!teams_matter) {  // death match
816                         print("Currently not playing a team game\n");
817                         return;
818                 }
819
820                 entno = stof(argv(1));
821
822                 // player_id is out of range
823                 if((entno < 1) | (entno > maxclients)) {
824                         print("Player ", argv(1), " doesn't exist\n");
825                         return;
826                 }
827
828                         client = edict_num(entno);
829
830                 // player entity is not a client
831                 if not(client.flags & FL_CLIENT) {
832                         print("Player ", argv(1), " doesn't exist\n");
833                         return;
834                 }
835
836                 // find the team to move the player to
837                 float team_colour;
838
839                 team_colour = ColourToNumber(argv(2));
840
841                 if(team_colour == client.team) {  // player already on the team
842                         print("Player ", argv(1), " (", client.netname, ") is already on the ", ColoredTeamName(client.team), "\n");
843                         return;
844                 } else if(team_colour == 0)  // auto team
845                         team_colour = NumberToTeamNumber(FindSmallestTeam(client, FALSE));
846
847                 switch(team_colour) {
848                         case COLOR_TEAM1:
849                                 if(c1 == -1) {
850                                         print("Sorry, there isn't a red team\n");
851                                         return;
852                 }
853                         break;
854
855                         case COLOR_TEAM2:
856                                 if(c2 == -1) {
857                                         print("Sorry, there isn't a blue team\n");
858                 return;
859         }
860                         break;
861
862                         case COLOR_TEAM3:
863                                 if(c3 == -1) {
864                                         print("Sorry, there isn't a yellow team\n");
865                                         return;
866                                 }
867                         break;
868
869                         case COLOR_TEAM4:
870                                 if(c4 == -1) {
871                                         print("Sorry, there isn't a pink team\n");
872                                         return;
873                                 }
874                         break;
875
876                         default:
877                                 print("Sorry, team ", argv(2), " doesn't exist\n");
878                                 return;
879                 }
880                 print("Player ", argv(1), " (", client.netname, ") has been moved to the ", ColoredTeamName(team_colour), "\n");
881
882                 MoveToTeam(client, team_colour, 6, stof(argv(3)));
883
884                 return;
885         }
886         if (argv(0) == "teamstatus")
887         {
888                 Score_NicePrint(world);
889                 return;
890         }
891         if (argv(0) == "allready")
892         {
893                 ReadyRestart();
894                 return;
895         }
896         if (argv(0) == "effectindexdump")
897         {
898                 EffectIndexDump();
899                 return;
900         }
901         if (argv(0) == "radarmap")
902         {
903                 RadarMap(argc);
904                 return;
905         }
906         if (argv(0) == "bbox")
907         {
908                 BBox();
909                 return;
910         }
911         if (argv(0) == "cvar_changes")
912         {
913                 print(cvar_changes);
914                 return;
915         }
916         if (argv(0) == "cvar_purechanges")
917         {
918                 print(cvar_purechanges);
919                 return;
920         }
921         if (argv(0) == "find") if(argc == 2)
922         {
923                 for(client = world; (client = find(client, classname, argv(1))); )
924                         print(etos(client), "\n");
925                 return;
926         }
927         if (argv(0) == "records")
928         {
929                 for (i = 0; i < 10; ++i)
930                         print(records_reply[i]);
931                 return;
932         }
933         if (argv(0) == "ladder")
934         {
935                 print(ladder_reply);
936                 return;
937         }
938         if (argv(0) == "rankings")
939         {
940                 strunzone(rankings_reply);
941                 rankings_reply = strzone(getrankings());
942                 print(rankings_reply);
943                 return;
944         }
945
946         if(argv(0) == "cointoss")
947         {
948                 bprint("^3Throwing coin... Result: ");
949                 if (random() > 0.5)
950                         bprint("^1heads ^3!\n");
951                 else
952                         bprint("^1tails ^3!\n");
953                 return;
954         }
955
956         if(argv(0) == "__FORCE_READY_RESTART")
957         {
958                 reset_map(FALSE);
959                 return;
960         }
961
962         if(argv(0) == "debug_shotorg")
963         {
964                 debug_shotorg = stov(argv(1));
965                 debug_shotorg_y = -debug_shotorg_y;
966                 return;
967         }
968
969         if(argv(0) == "gettaginfo") if(argc >= 4)
970         {
971                 e = spawn();
972                 if(argv(1) == "w")
973                         setmodel(e, (nextent(world)).weaponentity.model);
974                 else
975                 {
976                         precache_model(argv(1));
977                         setmodel(e, argv(1));
978                 }
979                 e.frame = stof(argv(2));
980                 if(substring(argv(3), 0, 1) == "#")
981                         i = stof(substring(argv(3), 1, -1));
982                 else
983                         i = gettagindex(e, argv(3));
984                 if(i)
985                 {
986                         v = gettaginfo(e, i);
987                         print("model ", e.model, " frame ", ftos(e.frame), " tag ", gettaginfo_name);
988                         print(" index ", ftos(i), " parent ", ftos(gettaginfo_parent), "\n");
989                         print(" vector = ", ftos(v_x), " ", ftos(v_y), " ", ftos(v_z), "\n");
990                         print(" offset = ", ftos(gettaginfo_offset_x), " ", ftos(gettaginfo_offset_y), " ", ftos(gettaginfo_offset_z), "\n");
991                         print(" forward = ", ftos(gettaginfo_forward_x), " ", ftos(gettaginfo_forward_y), " ", ftos(gettaginfo_forward_z), "\n");
992                         print(" right = ", ftos(gettaginfo_right_x), " ", ftos(gettaginfo_right_y), " ", ftos(gettaginfo_right_z), "\n");
993                         print(" up = ", ftos(gettaginfo_up_x), " ", ftos(gettaginfo_up_y), " ", ftos(gettaginfo_up_z), "\n");
994                         if(argc >= 6)
995                         {
996                                 v_y = -v_y;
997                                 localcmd(strcat(argv(4), vtos(v), argv(5), "\n"));
998                         }
999                 }
1000                 else
1001                         print("bone not found\n");
1002                 remove(e);
1003                 return;
1004         }
1005
1006         if(argv(0) == "time")
1007         {
1008                 print("time = ", ftos(time), "\n");
1009                 print("frame start = ", ftos(gettime(GETTIME_FRAMESTART)), "\n");
1010                 print("realtime = ", ftos(gettime(GETTIME_REALTIME)), "\n");
1011                 print("hires = ", ftos(gettime(GETTIME_HIRES)), "\n");
1012                 print("uptime = ", ftos(gettime(GETTIME_UPTIME)), "\n");
1013                 print("localtime = ", strftime(TRUE, "%a %b %e %H:%M:%S %Z %Y"), "\n");
1014                 print("gmtime = ", strftime(FALSE, "%a %b %e %H:%M:%S %Z %Y"), "\n");
1015                 return;
1016         }
1017
1018         if(argv(0) == "tracebug")
1019         {
1020                 print("TEST CASE. If this returns the runaway loop counter error, possibly everything is oaky.\n");
1021                 for(;;)
1022                 {
1023                         vector org, delta, start, end, p, q, q0, pos;
1024                         float safe, unsafe, dq, dqf;
1025
1026                         org = world.mins;
1027                         delta = world.maxs - world.mins;
1028
1029                         start_x = org_x + random() * delta_x;
1030                         start_y = org_y + random() * delta_y;
1031                         start_z = org_z + random() * delta_z;
1032
1033                         end_x = org_x + random() * delta_x;
1034                         end_y = org_y + random() * delta_y;
1035                         end_z = org_z + random() * delta_z;
1036
1037                         start = stov(vtos(start));
1038                         end = stov(vtos(end));
1039
1040                         tracebox(start, PL_MIN, PL_MAX, end, MOVE_NOMONSTERS, world);
1041                         if(!trace_startsolid)
1042                         {
1043                                 p = trace_endpos;
1044                                 tracebox(p, PL_MIN, PL_MAX, p, MOVE_NOMONSTERS, world);
1045                                 if(trace_startsolid || trace_fraction == 1)
1046                                 {
1047                                         rint(42); // do an engine breakpoint on VM_rint so you can get the trace that errnoeously returns startsolid
1048                                         tracebox(start, PL_MIN, PL_MAX, end, MOVE_NOMONSTERS, world);
1049                                         tracebox(p, PL_MIN, PL_MAX, q, MOVE_NOMONSTERS, world);
1050
1051                                         if(trace_startsolid)
1052                                         {
1053                                                 // how much do we need to back off?
1054                                                 safe = 1;
1055                                                 unsafe = 0;
1056                                                 for(;;)
1057                                                 {
1058                                                         pos = p * (1 - (safe + unsafe) * 0.5) + start * ((safe + unsafe) * 0.5);
1059                                                         tracebox(pos, PL_MIN, PL_MAX, pos, MOVE_NOMONSTERS, world);
1060                                                         if(trace_startsolid)
1061                                                         {
1062                                                                 if((safe + unsafe) * 0.5 == unsafe)
1063                                                                         break;
1064                                                                 unsafe = (safe + unsafe) * 0.5;
1065                                                         }
1066                                                         else
1067                                                         {
1068                                                                 if((safe + unsafe) * 0.5 == safe)
1069                                                                         break;
1070                                                                 safe = (safe + unsafe) * 0.5;
1071                                                         }
1072                                                 }
1073
1074                                                 print("safe distance to back off: ", ftos(safe * vlen(p - start)), "qu\n");
1075                                                 print("unsafe distance to back off: ", ftos(unsafe * vlen(p - start)), "qu\n");
1076
1077                                                 tracebox(p, PL_MIN + '0.1 0.1 0.1', PL_MAX - '0.1 0.1 0.1', p, MOVE_NOMONSTERS, world);
1078                                                 if(trace_startsolid)
1079                                                         print("trace_endpos much in solid when tracing from ", vtos(start), " to ", vtos(end), " endpos ", vtos(p), "\n");
1080                                                 else
1081                                                         print("trace_endpos just in solid when tracing from ", vtos(start), " to ", vtos(end), " endpos ", vtos(p), "\n");
1082                                                 break;
1083                                         }
1084
1085                                         q0 = p;
1086                                         dq = 0;
1087                                         dqf = 1;
1088                                         for(;;)
1089                                         {
1090                                                 q = p + normalize(end - p) * (dq + dqf);
1091                                                 if(q == q0)
1092                                                         break;
1093                                                 tracebox(p, PL_MIN, PL_MAX, q, MOVE_NOMONSTERS, world);
1094                                                 if(trace_startsolid)
1095                                                         error("THIS ONE cannot happen");
1096                                                 if(trace_fraction > 0)
1097                                                         dq += dqf * trace_fraction;
1098                                                 dqf *= 0.5;
1099                                                 q0 = q;
1100                                         }
1101                                         if(dq > 0)
1102                                         {
1103                                                 print("trace_endpos still before solid when tracing from ", vtos(start), " to ", vtos(end), " endpos ", vtos(p), "\n");
1104                                                 print("could go ", ftos(dq), " units further to ", vtos(q), "\n");
1105                                                 break;
1106                                         }
1107                                 }
1108                         }
1109                 }
1110         }
1111
1112         if(argv(0) == "tracebug2")
1113         {
1114                 e = nextent(world);
1115                 float f;
1116                 vector vv, dv;
1117                 tracebox(e.origin + '0 0 32', e.mins, e.maxs, e.origin + '0 0 -1024', MOVE_NORMAL, e);
1118                 vv = trace_endpos;
1119                 if(trace_fraction == 1)
1120                 {
1121                         print("not above ground, aborting\n");
1122                         return;
1123                 }
1124                 f = 0;
1125                 for(i = 0; i < 100000; ++i)
1126                 {
1127                         dv = randomvec();
1128                         if(dv_z > 0)
1129                                 dv = -1 * dv;
1130                         tracebox(vv, e.mins, e.maxs, vv + dv, MOVE_NORMAL, e);
1131                         if(trace_startsolid)
1132                                 print("bug 1\n");
1133                         if(trace_fraction == 1)
1134                         if(dv_z < f)
1135                         {
1136                                 print("bug 2: ", ftos(dv_x), " ", ftos(dv_y), " ", ftos(dv_z));
1137                                 print(" (", ftos(asin(dv_z / vlen(dv)) * 180 / M_PI), " degrees)\n");
1138                                 f = dv_z;
1139                         }
1140                 }
1141                 print("highest possible dist: ", ftos(f), "\n");
1142                 return;
1143         }
1144
1145         if(argv(0) == "tracewalk")
1146         {
1147                 e = nextent(world);
1148                 if(tracewalk(e, stov(argv(1)), e.mins, e.maxs, stov(argv(2)), MOVE_NORMAL))
1149                         print("can walk\n");
1150                 else
1151                         print("cannot walk\n");
1152                 return;
1153         }
1154
1155         if(argv(0) == "onslaught_updatelinks")
1156         {
1157                 onslaught_updatelinks();
1158                 print("ONS links updated\n");
1159                 return;
1160         }
1161
1162         if(argv(0) == "bot_cmd")
1163         {
1164                 local entity bot;
1165
1166                 if(argv(1) == "help")
1167                 {
1168                         if(argc==2)
1169                         {
1170                                 bot_list_commands();
1171                                 print("\nsv_cmd bot_cmd reset          #Clear the cmd queues of all bots\n");
1172                                 print("sv_cmd bot_cmd load <file>    #Load script file\n");
1173                                 print("\nUse sv_cmd bot_cmd help <command> for more\n\n");
1174                                 return;
1175                         }
1176
1177                         bot_cmdhelp(argv(2));
1178                         return;
1179                 }
1180
1181                 // Clear all bot queues
1182                 if(argv(1) == "reset")
1183                 {
1184                         bot_resetqueues();
1185                         return;
1186                 }
1187
1188                 // Load cmds from file
1189                 if(argv(1) == "load" && argc == 3)
1190                 {
1191                         float fh;
1192                         fh = fopen(argv(2), FILE_READ);
1193                         if(fh < 0)
1194                         {
1195                                 print("cannot open the file\n");
1196                                 return;
1197                         }
1198
1199                         i = 0;
1200                         while((s = fgets(fh)))
1201                         {
1202                                 argc = tokenize_console(s);
1203
1204                                 if(argc >= 3 && argv(0) == "sv_cmd" && argv(1) == "bot_cmd")
1205                                 {
1206                                         // let's start at token 2 so we can skip sv_cmd bot_cmd
1207                                         bot = find_bot_by_number(stof(argv(2)));
1208                                         if(bot == world)
1209                                                 bot = find_bot_by_name(argv(2));
1210                                         if(bot)
1211                                                 bot_queuecommand(bot, strcat(argv(3), " ", argv(4)));
1212                                 }
1213                                 else
1214                                         localcmd(strcat(s, "\n"));
1215
1216                                 ++i;
1217                         }
1218
1219                         print(ftos(i), " commands read\n");
1220
1221                         fclose(fh);
1222
1223                         return;
1224                 }
1225
1226                 if(argc < 3)
1227                 {
1228                         print("Usage: sv_cmd bot_cmd <bot name or number> <command> [argument]\n");
1229                         print("Examples: bot_cmd <id> cc \"say something\"\n");
1230                         print("          bot_cmd <id> presskey jump\n");
1231                         print("          .. or sv_cmd bot_cmd help <command> for more\n");
1232                         return;
1233                 }
1234
1235                 bot = find_bot_by_number(stof(argv(1)));
1236                 if(bot == world)
1237                         bot = find_bot_by_name(argv(1));
1238
1239                 if(bot)
1240                         bot_queuecommand(bot, strcat(argv(2), " ", argv(3)));
1241                 else
1242                         print(strcat("Error: Unable to find a bot with the name or number '",argv(1),"'\n"));
1243
1244                 return;
1245         }
1246
1247         if(argv(0) == "playerdemo")
1248         {
1249                 if(argv(1) == "read")
1250                 {
1251                         entno = stof(argv(2));
1252                         if((entno < 1) | (entno > maxclients)) {
1253                                 print("Player ", argv(2), " doesn't exist\n");
1254                                 return;
1255                         }
1256                         client = edict_num(entno);
1257                         if(clienttype(client) != CLIENTTYPE_BOT) {
1258                                 print("Player ", client.netname, " is not a bot\n");
1259                                 return;
1260                         }
1261                         self = client;
1262                         playerdemo_open_read(argv(3));
1263                         return;
1264                 }
1265                 else if(argv(1) == "write")
1266                 {
1267                         entno = stof(argv(2));
1268                         if((entno < 1) | (entno > maxclients)) {
1269                                 print("Player ", argv(2), " doesn't exist\n");
1270                                 return;
1271                         }
1272                         client = edict_num(entno);
1273                         self = client;
1274                         playerdemo_open_write(argv(3));
1275                         return;
1276                 }
1277                 else if(argv(1) == "auto_read_and_write")
1278                 {
1279                         s = argv(2);
1280                         n = stof(argv(3));
1281                         cvar_set("bot_number", ftos(n));
1282                         localcmd("wait; wait; wait\n");
1283                         for(i = 0; i < n; ++i)
1284                                 localcmd("sv_cmd playerdemo read ", ftos(i+2), " ", s, ftos(i+1), "\n");
1285                         localcmd("sv_cmd playerdemo write 1 ", ftos(n+1), "\n");
1286                         return;
1287                 }
1288                 else if(argv(1) == "auto_read")
1289                 {
1290                         s = argv(2);
1291                         n = stof(argv(3));
1292                         cvar_set("bot_number", ftos(n));
1293                         localcmd("wait; wait; wait\n");
1294                         for(i = 0; i < n; ++i)
1295                                 localcmd("sv_cmd playerdemo read ", ftos(i+2), " ", s, ftos(i+1), "\n");
1296                         return;
1297                 }
1298         }
1299
1300         if(argv(0) == "anticheat")
1301         {
1302                 entno = stof(argv(1));
1303                 if((entno < 1) | (entno > maxclients)) {
1304                         print("Player ", argv(1), " doesn't exist\n");
1305                         return;
1306                 }
1307                 client = edict_num(entno);
1308                 if(clienttype(client) != CLIENTTYPE_REAL && clienttype(client) != CLIENTTYPE_BOT) {
1309                         print("Player ", client.netname, " is not active\n");
1310                         return;
1311                 }
1312                 self = client;
1313                 anticheat_report();
1314                 return;
1315         }
1316
1317         if(argv(0) == "defer_clear")
1318         if(argc == 2)
1319         {
1320                 entno = stof(argv(1));
1321
1322                 // player_id is out of range
1323                 if((entno < 1) | (entno > maxclients)) {
1324                         print("Player ", argv(1), " doesn't exist\n");
1325                         return;
1326                 }
1327
1328                 client = edict_num(entno);
1329
1330                 if not(client.flags & FL_CLIENT) {
1331                         print("Player ", argv(1), " doesn't exist\n");
1332                         return;
1333                 }
1334
1335                 if(clienttype(client) == CLIENTTYPE_BOT) {
1336                         print("Player ", argv(1), " (", client.netname, ") is a bot\n");
1337                         return;
1338                 }
1339
1340                 stuffcmd(client, "defer clear\n");
1341                 print("defer clear stuffed to ", argv(1), " (", client.netname, ")\n");
1342                 return;
1343         }
1344
1345         if(argv(0) == "defer_clear_all")
1346         {
1347                 FOR_EACH_CLIENTSLOT(client)
1348                         GameCommand(strcat("defer_clear ", ftos(num_for_edict(client))));       
1349
1350                 return;
1351         }
1352         if(argv(0) == "delrec")
1353         {
1354                 if(argv(2) != "")
1355                         race_deleteTime(argv(2), stof(argv(1)));
1356                 else
1357                         race_deleteTime(GetMapname(), stof(argv(1)));
1358
1359                 return;
1360         }
1361
1362         if(argv(0) == "showtraceline")
1363         {
1364                 vector src, dst;
1365                 src = stov(argv(1));
1366                 dst = stov(argv(2));
1367                 traceline(src, dst, MOVE_NORMAL, world);
1368                 trailparticles(world, particleeffectnum("TR_NEXUIZPLASMA"), src, trace_endpos);
1369                 trailparticles(world, particleeffectnum("TR_CRYLINKPLASMA"), trace_endpos, dst);
1370                 return;
1371         }
1372
1373         print("Invalid command. For a list of supported commands, try sv_cmd help.\n");
1374 }
1375