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