1 string GotoMap(string m);
4 // TODO make this algorithm work (no idea why it is failing), it would be much faster
5 float FullTraceFraction(vector a, vector mi, vector ma, vector b)
11 tracebox(a, mi, ma, b, MOVE_WORLDONLY, world);
14 // a leaves solid, then hits trace_endpos
15 // where does a leave solid?
17 tracebox(c, mi, ma, a, MOVE_WORLDONLY, world);
18 // a to trace_endpos is solid
19 // trace_endpos to c is not solid
20 d = trace_endpos_z - a_z;
21 return FullTraceFraction(c + '0 0 1', mi, ma, b) + d;
25 // a hits trace_endpos
26 return FullTraceFraction(trace_endpos + '0 0 1', mi, ma, b);
30 float RadarMapAtPoint(float x, float y, float w, float h)
34 ma = '1 0 0' * w + '0 1 0' * h;
35 a = '1 0 0' * x + '0 1 0' * y + '0 0 1' * world.mins_z;
36 b = '1 0 0' * x + '0 1 0' * y + '0 0 1' * world.maxs_z;
37 return floor(FullTraceFraction(a, mi, ma, b) / (world.maxs_z - world.mins_z) * 255);
40 float RadarMapAtPoint(float x, float y, float w, float h, float zmin, float zsize)
46 dz = (zsize / 256) * '0 0 1';
47 ma = '1 0 0' * w + '0 1 0' * h + dz;
48 o = '1 0 0' * x + '0 1 0' * y + '0 0 1' * zmin;
50 if(x < world.absmin_x - w)
52 if(y < world.absmin_y - h)
54 if(x > world.absmax_x)
56 if(y > world.absmax_y)
60 for(i = 0; i < 255; ++i)
62 tracebox(o + dz * i, mi, ma, o + dz * i, MOVE_WORLDONLY, world);
66 return r / 255.0; // 0 .. 1
70 string doublehex = "000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F202122232425262728292A2B2C2D2E2F303132333435363738393A3B3C3D3E3F404142434445464748494A4B4C4D4E4F505152535455565758595A5B5C5D5E5F606162636465666768696A6B6C6D6E6F707172737475767778797A7B7C7D7E7F808182838485868788898A8B8C8D8E8F909192939495969798999A9B9C9D9E9FA0A1A2A3A4A5A6A7A8A9AAABACADAEAFB0B1B2B3B4B5B6B7B8B9BABBBCBDBEBFC0C1C2C3C4C5C6C7C8C9CACBCCCDCECFD0D1D2D3D4D5D6D7D8D9DADBDCDDDEDFE0E1E2E3E4E5E6E7E8E9EAEBECEDEEEFF0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF";
72 float RADAR_WIDTH = 512;
73 float RADAR_HEIGHT = 512;
74 float sharpen_buffer[RADAR_WIDTH * 3];
76 void sharpen_set(float x, float v)
78 sharpen_buffer[x + 2 * RADAR_WIDTH] = v;
81 float sharpen_getpixel(float x, float y)
91 return sharpen_buffer[x + y * RADAR_WIDTH];
94 float sharpen_get(float x, float a)
97 sum = sharpen_getpixel(x, 1);
101 sum -= sharpen_getpixel(x - 1, 0);
102 sum -= sharpen_getpixel(x - 1, 1);
103 sum -= sharpen_getpixel(x - 1, 2);
104 sum -= sharpen_getpixel(x + 1, 0);
105 sum -= sharpen_getpixel(x + 1, 1);
106 sum -= sharpen_getpixel(x + 1, 2);
107 sum -= sharpen_getpixel(x, 0);
108 sum -= sharpen_getpixel(x, 2);
109 return bound(0, sum * a, 1);
115 for(i = 0; i < RADAR_WIDTH; ++i)
117 sharpen_buffer[i] = sharpen_buffer[i + RADAR_WIDTH];
118 sharpen_buffer[i + RADAR_WIDTH] = sharpen_buffer[i + 2 * RADAR_WIDTH];
119 sharpen_buffer[i + 2 * RADAR_WIDTH] = 0;
126 for(i = 0; i < 3 * RADAR_WIDTH; ++i)
127 sharpen_buffer[i] = 0;
133 // size: pixel width/height
134 // maxs: cell width/height
136 void RadarMap_Think()
144 get_mi_min_max_texcoords(1);
145 self.size_x = RADAR_WIDTH;
146 self.size_y = RADAR_HEIGHT;
147 self.mins = mi_picmin;
148 self.maxs_x = (mi_picmax_x - mi_picmin_x) / self.size_x;
149 self.maxs_y = (mi_picmax_y - mi_picmin_y) / self.size_y;
150 self.maxs_z = mi_max_z - mi_min_z;
151 print("Picture mins/maxs: ", ftos(self.maxs_x), " and ", ftos(self.maxs_y), " should match\n");
152 self.netname = strzone(strcat("gfx/", mi_shortname, "_radar.xpm"));
153 if(!(self.count & 1))
155 self.cnt = fopen(self.netname, FILE_READ);
158 print(self.netname, " already exists, aborting (you may want to specify --force)\n");
163 else if(self.count & 2)
166 localcmd(strcat("defer 1 \"sv_cmd radarmap --force --loop", ftos(self.ltime), "\"\n"));
168 localcmd(strcat("defer 1 \"sv_cmd radarmap --loop ", ftos(self.ltime), "\"\n"));
176 self.cnt = fopen(self.netname, FILE_WRITE);
179 print("Error writing ", self.netname, "\n");
184 print("Writing to ", self.netname, "...\n");
185 fputs(self.cnt, "/* XPM */\n");
186 fputs(self.cnt, "static char *RadarMap[] = {\n");
187 fputs(self.cnt, "/* columns rows colors chars-per-pixel */\n");
188 fputs(self.cnt, strcat("\"", ftos(self.size_x), " ", ftos(self.size_y), " 256 2\",\n"));
189 for(i = 0; i < 256; ++i)
191 si = substring(doublehex, i*2, 2);
192 fputs(self.cnt, strcat("\"", si, " c #", si, si, si, "\",\n"));
195 self.nextthink = time;
198 else if(self.frame <= self.size_y)
200 // fill the sharpen buffer with this line
202 for(x = 0; x < self.size_x; ++x)
204 l = RadarMapAtPoint(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);
208 // do we have enough lines?
211 // write a pixel line
212 fputs(self.cnt, "\"");
213 for(x = 0; x < self.size_x; ++x)
215 l = sharpen_get(x, self.ltime);
216 fputs(self.cnt, substring(doublehex, 2 * floor(l * 255.0 + 0.5), 2));
218 if(self.frame == self.size_y)
219 fputs(self.cnt, "\"\n");
222 fputs(self.cnt, "\",\n");
223 print(ftos(self.size_y - self.frame), " lines left\n");
227 // is this the last line? then write back the missing line
228 if(self.frame == self.size_y)
231 // write a pixel line
232 fputs(self.cnt, "\"");
233 for(x = 0; x < self.size_x; ++x)
235 l = sharpen_get(x, self.ltime);
236 fputs(self.cnt, substring(doublehex, 2 * floor(l * 255.0 + 0.5), 2));
238 if(self.frame == self.size_y)
239 fputs(self.cnt, "\"\n");
242 fputs(self.cnt, "\",\n");
243 print(ftos(self.size_y - self.frame), " lines left\n");
248 self.nextthink = time;
253 fputs(self.cnt, "};\n");
255 print("Finished. Please edit data/", self.netname, " with an image editing application and place it in the TGA format in the gfx folder.\n");
260 else if(self.count & 2)
263 localcmd(strcat("defer 1 \"sv_cmd radarmap --force --loop", ftos(self.ltime), "\"\n"));
265 localcmd(strcat("defer 1 \"sv_cmd radarmap --loop ", ftos(self.ltime), "\"\n"));
273 void RadarMap(float argc)
278 radarmapper = spawn();
279 radarmapper.classname = "radarmapper";
280 radarmapper.think = RadarMap_Think;
281 radarmapper.nextthink = time;
282 radarmapper.count = 0;
283 radarmapper.ltime = 1;
285 for(i = 1; i < argc; ++i)
287 if(argv(i) == "--force")
288 radarmapper.count |= 1;
289 else if(argv(i) == "--loop")
290 radarmapper.count |= 2;
291 else if(argv(i) == "--quit")
292 radarmapper.count |= 4;
294 radarmapper.ltime = stof(argv(i));
300 print("Original size: ", ftos(world.absmin_x), " ", ftos(world.absmin_y), " ", ftos(world.absmin_z));
301 print(" ", ftos(world.absmax_x), " ", ftos(world.absmax_y), " ", ftos(world.absmax_z), "\n");
302 print("Currently set size: ", ftos(world.mins_x), " ", ftos(world.mins_y), " ", ftos(world.mins_z));
303 print(" ", ftos(world.maxs_x), " ", ftos(world.maxs_y), " ", ftos(world.maxs_z), "\n");
304 print("Solid bounding box size:");
306 tracebox('1 0 0' * world.absmin_x,
307 '0 1 0' * world.absmin_y + '0 0 1' * world.absmin_z,
308 '0 1 0' * world.absmax_y + '0 0 1' * world.absmax_z,
309 '1 0 0' * world.absmax_x,
313 print(" ", ftos(world.absmin_x));
315 print(" ", ftos(trace_endpos_x));
317 tracebox('0 1 0' * world.absmin_y,
318 '1 0 0' * world.absmin_x + '0 0 1' * world.absmin_z,
319 '1 0 0' * world.absmax_x + '0 0 1' * world.absmax_z,
320 '0 1 0' * world.absmax_y,
324 print(" ", ftos(world.absmin_y));
326 print(" ", ftos(trace_endpos_y));
328 tracebox('0 0 1' * world.absmin_z,
329 '1 0 0' * world.absmin_x + '0 1 0' * world.absmin_y,
330 '1 0 0' * world.absmax_x + '0 1 0' * world.absmax_y,
331 '0 0 1' * world.absmax_z,
335 print(" ", ftos(world.absmin_z));
337 print(" ", ftos(trace_endpos_z));
339 tracebox('1 0 0' * world.absmax_x,
340 '0 1 0' * world.absmin_y + '0 0 1' * world.absmin_z,
341 '0 1 0' * world.absmax_y + '0 0 1' * world.absmax_z,
342 '1 0 0' * world.absmin_x,
346 print(" ", ftos(world.absmax_x));
348 print(" ", ftos(trace_endpos_x));
350 tracebox('0 1 0' * world.absmax_y,
351 '1 0 0' * world.absmin_x + '0 0 1' * world.absmin_z,
352 '1 0 0' * world.absmax_x + '0 0 1' * world.absmax_z,
353 '0 1 0' * world.absmin_y,
357 print(" ", ftos(world.absmax_y));
359 print(" ", ftos(trace_endpos_y));
361 tracebox('0 0 1' * world.absmax_z,
362 '1 0 0' * world.absmin_x + '0 1 0' * world.absmin_y,
363 '1 0 0' * world.absmax_x + '0 1 0' * world.absmax_y,
364 '0 0 1' * world.absmin_z,
368 print(" ", ftos(world.absmax_z));
370 print(" ", ftos(trace_endpos_z));
375 void EffectIndexDump()
383 print("begin of effects list\n");
384 db_put(d, "TE_GUNSHOT", "1"); print("effect TE_GUNSHOT is ", ftos(particleeffectnum("TE_GUNSHOT")), "\n");
385 db_put(d, "TE_GUNSHOTQUAD", "1"); print("effect TE_GUNSHOTQUAD is ", ftos(particleeffectnum("TE_GUNSHOTQUAD")), "\n");
386 db_put(d, "TE_SPIKE", "1"); print("effect TE_SPIKE is ", ftos(particleeffectnum("TE_SPIKE")), "\n");
387 db_put(d, "TE_SPIKEQUAD", "1"); print("effect TE_SPIKEQUAD is ", ftos(particleeffectnum("TE_SPIKEQUAD")), "\n");
388 db_put(d, "TE_SUPERSPIKE", "1"); print("effect TE_SUPERSPIKE is ", ftos(particleeffectnum("TE_SUPERSPIKE")), "\n");
389 db_put(d, "TE_SUPERSPIKEQUAD", "1"); print("effect TE_SUPERSPIKEQUAD is ", ftos(particleeffectnum("TE_SUPERSPIKEQUAD")), "\n");
390 db_put(d, "TE_WIZSPIKE", "1"); print("effect TE_WIZSPIKE is ", ftos(particleeffectnum("TE_WIZSPIKE")), "\n");
391 db_put(d, "TE_KNIGHTSPIKE", "1"); print("effect TE_KNIGHTSPIKE is ", ftos(particleeffectnum("TE_KNIGHTSPIKE")), "\n");
392 db_put(d, "TE_EXPLOSION", "1"); print("effect TE_EXPLOSION is ", ftos(particleeffectnum("TE_EXPLOSION")), "\n");
393 db_put(d, "TE_EXPLOSIONQUAD", "1"); print("effect TE_EXPLOSIONQUAD is ", ftos(particleeffectnum("TE_EXPLOSIONQUAD")), "\n");
394 db_put(d, "TE_TAREXPLOSION", "1"); print("effect TE_TAREXPLOSION is ", ftos(particleeffectnum("TE_TAREXPLOSION")), "\n");
395 db_put(d, "TE_TELEPORT", "1"); print("effect TE_TELEPORT is ", ftos(particleeffectnum("TE_TELEPORT")), "\n");
396 db_put(d, "TE_LAVASPLASH", "1"); print("effect TE_LAVASPLASH is ", ftos(particleeffectnum("TE_LAVASPLASH")), "\n");
397 db_put(d, "TE_SMALLFLASH", "1"); print("effect TE_SMALLFLASH is ", ftos(particleeffectnum("TE_SMALLFLASH")), "\n");
398 db_put(d, "TE_FLAMEJET", "1"); print("effect TE_FLAMEJET is ", ftos(particleeffectnum("TE_FLAMEJET")), "\n");
399 db_put(d, "EF_FLAME", "1"); print("effect EF_FLAME is ", ftos(particleeffectnum("EF_FLAME")), "\n");
400 db_put(d, "TE_BLOOD", "1"); print("effect TE_BLOOD is ", ftos(particleeffectnum("TE_BLOOD")), "\n");
401 db_put(d, "TE_SPARK", "1"); print("effect TE_SPARK is ", ftos(particleeffectnum("TE_SPARK")), "\n");
402 db_put(d, "TE_PLASMABURN", "1"); print("effect TE_PLASMABURN is ", ftos(particleeffectnum("TE_PLASMABURN")), "\n");
403 db_put(d, "TE_TEI_G3", "1"); print("effect TE_TEI_G3 is ", ftos(particleeffectnum("TE_TEI_G3")), "\n");
404 db_put(d, "TE_TEI_SMOKE", "1"); print("effect TE_TEI_SMOKE is ", ftos(particleeffectnum("TE_TEI_SMOKE")), "\n");
405 db_put(d, "TE_TEI_BIGEXPLOSION", "1"); print("effect TE_TEI_BIGEXPLOSION is ", ftos(particleeffectnum("TE_TEI_BIGEXPLOSION")), "\n");
406 db_put(d, "TE_TEI_PLASMAHIT", "1"); print("effect TE_TEI_PLASMAHIT is ", ftos(particleeffectnum("TE_TEI_PLASMAHIT")), "\n");
407 db_put(d, "EF_STARDUST", "1"); print("effect EF_STARDUST is ", ftos(particleeffectnum("EF_STARDUST")), "\n");
408 db_put(d, "TR_ROCKET", "1"); print("effect TR_ROCKET is ", ftos(particleeffectnum("TR_ROCKET")), "\n");
409 db_put(d, "TR_GRENADE", "1"); print("effect TR_GRENADE is ", ftos(particleeffectnum("TR_GRENADE")), "\n");
410 db_put(d, "TR_BLOOD", "1"); print("effect TR_BLOOD is ", ftos(particleeffectnum("TR_BLOOD")), "\n");
411 db_put(d, "TR_WIZSPIKE", "1"); print("effect TR_WIZSPIKE is ", ftos(particleeffectnum("TR_WIZSPIKE")), "\n");
412 db_put(d, "TR_SLIGHTBLOOD", "1"); print("effect TR_SLIGHTBLOOD is ", ftos(particleeffectnum("TR_SLIGHTBLOOD")), "\n");
413 db_put(d, "TR_KNIGHTSPIKE", "1"); print("effect TR_KNIGHTSPIKE is ", ftos(particleeffectnum("TR_KNIGHTSPIKE")), "\n");
414 db_put(d, "TR_VORESPIKE", "1"); print("effect TR_VORESPIKE is ", ftos(particleeffectnum("TR_VORESPIKE")), "\n");
415 db_put(d, "TR_NEHAHRASMOKE", "1"); print("effect TR_NEHAHRASMOKE is ", ftos(particleeffectnum("TR_NEHAHRASMOKE")), "\n");
416 db_put(d, "TR_NEXUIZPLASMA", "1"); print("effect TR_NEXUIZPLASMA is ", ftos(particleeffectnum("TR_NEXUIZPLASMA")), "\n");
417 db_put(d, "TR_GLOWTRAIL", "1"); print("effect TR_GLOWTRAIL is ", ftos(particleeffectnum("TR_GLOWTRAIL")), "\n");
418 db_put(d, "SVC_PARTICLE", "1"); print("effect SVC_PARTICLE is ", ftos(particleeffectnum("SVC_PARTICLE")), "\n");
420 fh = fopen("effectinfo.txt", FILE_READ);
421 while((s = fgets(fh)))
423 tokenize_insane(s); // tokenize_sane would hit the loop counter :(
424 if(argv(0) == "effect")
426 if(db_get(d, argv(1)) != "1")
428 if(particleeffectnum(argv(1)) >= 0)
429 print("effect ", argv(1), " is ", ftos(particleeffectnum(argv(1))), "\n");
430 db_put(d, argv(1), "1");
434 print("end of effects list\n");
439 void make_mapinfo_Think()
441 if(MapInfo_FilterGametype(MAPINFO_TYPE_ALL, 0, 0, 0, 1))
443 print("Done rebuiling mapinfos.\n");
444 MapInfo_FilterGametype(MapInfo_CurrentGametype(), MapInfo_CurrentFeatures(), 0, (g_maplist_allow_hidden ? MAPINFO_FLAG_HIDDEN : 0), 0);
449 self.think = make_mapinfo_Think;
450 self.nextthink = time;
454 void GameCommand(string command)
459 argc = tokenize_sane(command);
461 if(argv(0) == "help" || argc == 0)
463 print("Usage: sv_cmd COMMAND..., where possible commands are:\n");
464 print(" adminmsg clientnumber \"message\"\n");
465 print(" teamstatus\n");
466 print(" printstats\n");
467 print(" make_mapinfo\n");
468 print(" gametype dm|ctf|...\n");
469 print(" savedb filename\n");
470 print(" dumpdb filename\n");
471 print(" loaddb filename\n");
472 print(" allready\n");
473 print(" effectindexdump\n");
474 print(" radarmap [--force] [--quit | --loop] [sharpness]\n");
476 GameCommand_Vote("help", world);
477 GameCommand_Ban("help");
478 GameCommand_Generic("help");
482 if(GameCommand_Vote(command, world))
485 if(GameCommand_Ban(command))
488 if(GameCommand_Generic(command))
491 if(argv(0) == "printstats")
497 if(argv(0) == "make_mapinfo")
501 e.classname = "make_mapinfo";
502 e.think = make_mapinfo_Think;
508 if(argv(0) == "warp") if(argc == 2) if(cvar("g_campaign"))
510 CampaignLevelWarp(stof(argv(1)));
514 if(argv(0) == "gotomap") if(argc == 2)
516 print(GotoMap(argv(1)), "\n");
520 if(argv(0) == "gametype") if(argc == 2)
525 t = MapInfo_Type_FromString(s);
526 tsave = MapInfo_CurrentGametype();
529 MapInfo_SwitchGameType(t);
530 MapInfo_FilterGametype(MapInfo_CurrentGametype(), MapInfo_CurrentFeatures(), 0, MAPINFO_FLAG_HIDDEN, 0);
531 if(MapInfo_count > 0)
533 bprint("Game type successfully switched to ", s, "\n");
534 MapInfo_FilterGametype(MapInfo_CurrentGametype(), MapInfo_CurrentFeatures(), 0, (g_maplist_allow_hidden ? MAPINFO_FLAG_HIDDEN : 0), 0);
538 bprint("Cannot use this game type: no map for it found\n");
539 MapInfo_SwitchGameType(tsave);
540 MapInfo_FilterGametype(MapInfo_CurrentGametype(), MapInfo_CurrentFeatures(), 0, (g_maplist_allow_hidden ? MAPINFO_FLAG_HIDDEN : 0), 0);
544 bprint("Game type switch to ", s, " failed: this type does not exist!\n");
548 if(argv(0) == "adminmsg") if(argc == 3)
550 entno = stof(argv(1));
552 if(entno <= maxclients)
553 client = edict_num(entno);
554 if(client.flags & FL_CLIENT)
556 centerprint_atprio(client, CENTERPRIO_ADMIN, strcat("^3SERVER ADMIN:\n\n^7", argv(2)));
557 sprint(client, strcat("\{1}\{13}^3SERVER ADMIN^7: ", argv(2), "\n"));
558 print("Message sent to ", client.netname, "\n");
561 print("Client not found\n");
565 if(argv(0) == "savedb") if(argc == 2)
567 db_save(ServerProgsDB, argv(1));
568 print("DB saved.\n");
572 if(argv(0) == "dumpdb") if(argc == 2)
574 db_dump(ServerProgsDB, argv(1));
575 print("DB dumped.\n");
579 if(argv(0) == "loaddb") if(argc == 2)
581 db_close(ServerProgsDB);
582 ServerProgsDB = db_load(argv(1));
583 print("DB loaded.\n");
586 if (argv(0) == "nospectators")
590 FOR_EACH_CLIENT(plr) //give every spectator <g_maxplayers_spectator_blocktime> seconds time to become a player
592 if(plr.classname == "spectator" || plr.classname == "observer")
594 plr.spectatortime = time;
595 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"));
598 bprint(strcat("^7All spectators will be automatically kicked when not joining the game after ", ftos(cvar("g_maxplayers_spectator_blocktime")), " seconds!\n"));
601 if (argv(0) == "lockteams")
606 bprint("^1The teams are now locked.\n");
609 bprint("That command can only be used in a team-based gamemode.\n");
612 if (argv(0) == "unlockteams")
617 bprint("^1The teams are now unlocked.\n");
620 bprint("That command can only be used in a team-based gamemode.\n");
623 if (argv(0) == "movetoteam") if(argc == 3)
625 entno = stof(argv(1));
627 if(entno <= maxclients)
628 client = edict_num(entno);
629 if(client.flags & FL_CLIENT)
636 SV_ParseClientCommand(strcat("selectteam ", argv(2)));
641 print("Client not found\n");
644 if (argv(0) == "teamstatus")
646 Score_NicePrint(world);
649 if (argv(0) == "allready")
654 if (argv(0) == "effectindexdump")
659 if (argv(0) == "radarmap")
664 if (argv(0) == "bbox")
669 if (argv(0) == "cvar_changes")
675 print("Invalid command. For a list of supported commands, try sv_cmd help.\n");