+cl_locnode_t *CL_Locs_FindNearest(const vec3_t point)
+{
+ int i;
+ cl_locnode_t *loc;
+ cl_locnode_t *best;
+ vec3_t nearestpoint;
+ vec_t dist, bestdist;
+ best = NULL;
+ bestdist = 0;
+ for (loc = cl.locnodes;loc;loc = loc->next)
+ {
+ for (i = 0;i < 3;i++)
+ nearestpoint[i] = bound(loc->mins[i], point[i], loc->maxs[i]);
+ dist = VectorDistance2(nearestpoint, point);
+ if (bestdist > dist || !best)
+ {
+ bestdist = dist;
+ best = loc;
+ if (bestdist < 1)
+ break;
+ }
+ }
+ return best;
+}
+
+void CL_Locs_FindLocationName(char *buffer, size_t buffersize, vec3_t point)
+{
+ cl_locnode_t *loc;
+ loc = CL_Locs_FindNearest(point);
+ if (loc)
+ strlcpy(buffer, loc->name, buffersize);
+ else
+ dpsnprintf(buffer, buffersize, "LOC=%.0f:%.0f:%.0f", point[0], point[1], point[2]);
+}
+
+void CL_Locs_FreeNode(cl_locnode_t *node)
+{
+ cl_locnode_t **pointer, **next;
+ for (pointer = &cl.locnodes;*pointer;pointer = next)
+ {
+ next = &(*pointer)->next;
+ if (*pointer == node)
+ {
+ *pointer = node->next;
+ Mem_Free(node);
+ }
+ }
+ Con_Printf("CL_Locs_FreeNode: no such node! (%p)\n", node);
+}
+
+void CL_Locs_AddNode(vec3_t mins, vec3_t maxs, const char *name)
+{
+ cl_locnode_t *node, **pointer;
+ int namelen;
+ if (!name)
+ name = "";
+ namelen = strlen(name);
+ node = Mem_Alloc(cls.levelmempool, sizeof(cl_locnode_t) + namelen + 1);
+ VectorSet(node->mins, min(mins[0], maxs[0]), min(mins[1], maxs[1]), min(mins[2], maxs[2]));
+ VectorSet(node->maxs, max(mins[0], maxs[0]), max(mins[1], maxs[1]), max(mins[2], maxs[2]));
+ node->name = (char *)(node + 1);
+ memcpy(node->name, name, namelen);
+ node->name[namelen] = 0;
+ // link it into the tail of the list to preserve the order
+ for (pointer = &cl.locnodes;*pointer;pointer = &(*pointer)->next)
+ ;
+ *pointer = node;
+}
+
+void CL_Locs_Add_f(void)
+{
+ vec3_t mins, maxs;
+ if (Cmd_Argc() != 5 && Cmd_Argc() != 8)
+ {
+ Con_Printf("usage: %s x y z[ x y z] name\n", Cmd_Argv(0));
+ return;
+ }
+ mins[0] = atof(Cmd_Argv(1));
+ mins[1] = atof(Cmd_Argv(2));
+ mins[2] = atof(Cmd_Argv(3));
+ if (Cmd_Argc() == 8)
+ {
+ maxs[0] = atof(Cmd_Argv(4));
+ maxs[1] = atof(Cmd_Argv(5));
+ maxs[2] = atof(Cmd_Argv(6));
+ CL_Locs_AddNode(mins, maxs, Cmd_Argv(7));
+ }
+ else
+ CL_Locs_AddNode(mins, mins, Cmd_Argv(4));
+}
+
+void CL_Locs_RemoveNearest_f(void)
+{
+ cl_locnode_t *loc;
+ loc = CL_Locs_FindNearest(r_refdef.view.origin);
+ if (loc)
+ CL_Locs_FreeNode(loc);
+ else
+ Con_Printf("no loc point or box found for your location\n");
+}
+
+void CL_Locs_Clear_f(void)
+{
+ while (cl.locnodes)
+ CL_Locs_FreeNode(cl.locnodes);
+}
+
+void CL_Locs_Save_f(void)
+{
+ cl_locnode_t *loc;
+ qfile_t *outfile;
+ char locfilename[MAX_QPATH];
+ if (!cl.locnodes)
+ {
+ Con_Printf("No loc points/boxes exist!\n");
+ return;
+ }
+ if (cls.state != ca_connected || !cl.worldmodel)
+ {
+ Con_Printf("No level loaded!\n");
+ return;
+ }
+ FS_StripExtension(cl.worldmodel->name, locfilename, sizeof(locfilename));
+ strlcat(locfilename, ".loc", sizeof(locfilename));
+
+ outfile = FS_Open(locfilename, "w", false, false);
+ if (!outfile)
+ return;
+ // if any boxes are used then this is a proquake-format loc file, which
+ // allows comments, so add some relevant information at the start
+ for (loc = cl.locnodes;loc;loc = loc->next)
+ if (!VectorCompare(loc->mins, loc->maxs))
+ break;
+ if (loc)
+ {
+ FS_Printf(outfile, "// %s %s saved by %s\n// x,y,z,x,y,z,\"name\"\n\n", locfilename, Sys_TimeString("%Y-%m-%d"), engineversion);
+ for (loc = cl.locnodes;loc;loc = loc->next)
+ if (VectorCompare(loc->mins, loc->maxs))
+ break;
+ if (loc)
+ Con_Printf("Warning: writing loc file containing a mixture of qizmo-style points and proquake-style boxes may not work in qizmo or proquake!\n");
+ }
+ for (loc = cl.locnodes;loc;loc = loc->next)
+ {
+ if (VectorCompare(loc->mins, loc->maxs))
+ {
+ int len;
+ const char *s;
+ const char *in = loc->name;
+ char name[MAX_INPUTLINE];
+ for (len = 0;len < (int)sizeof(name) - 1 && *in;)
+ {
+ if (*in == ' ') {s = "$loc_name_separator";in++;}
+ else if (!strncmp(in, "SSG", 3)) {s = "$loc_name_ssg";in += 3;}
+ else if (!strncmp(in, "NG", 2)) {s = "$loc_name_ng";in += 2;}
+ else if (!strncmp(in, "SNG", 3)) {s = "$loc_name_sng";in += 3;}
+ else if (!strncmp(in, "GL", 2)) {s = "$loc_name_gl";in += 2;}
+ else if (!strncmp(in, "RL", 2)) {s = "$loc_name_rl";in += 2;}
+ else if (!strncmp(in, "LG", 2)) {s = "$loc_name_lg";in += 2;}
+ else if (!strncmp(in, "GA", 2)) {s = "$loc_name_ga";in += 2;}
+ else if (!strncmp(in, "YA", 2)) {s = "$loc_name_ya";in += 2;}
+ else if (!strncmp(in, "RA", 2)) {s = "$loc_name_ra";in += 2;}
+ else if (!strncmp(in, "MEGA", 4)) {s = "$loc_name_mh";in += 4;}
+ else s = NULL;
+ if (s)
+ {
+ while (len < (int)sizeof(name) - 1 && *s)
+ name[len++] = *s++;
+ continue;
+ }
+ name[len++] = *in++;
+ }
+ name[len] = 0;
+ FS_Printf(outfile, "%.0f %.0f %.0f %s\n", loc->mins[0]*8, loc->mins[1]*8, loc->mins[2]*8, name);
+ }
+ else
+ FS_Printf(outfile, "%.1f,%.1f,%.1f,%.1f,%.1f,%.1f,\"%s\"\n", loc->mins[0], loc->mins[1], loc->mins[2], loc->maxs[0], loc->maxs[1], loc->maxs[2], loc->name);
+ }
+ FS_Close(outfile);
+}
+
+void CL_Locs_Reload_f(void)
+{
+ int i, linenumber, limit, len;
+ const char *s;
+ char *filedata, *text, *textend, *linestart, *linetext, *lineend;
+ fs_offset_t filesize;
+ vec3_t mins, maxs;
+ char locfilename[MAX_QPATH];
+ char name[MAX_INPUTLINE];
+
+ if (cls.state != ca_connected || !cl.worldmodel)
+ {
+ Con_Printf("No level loaded!\n");
+ return;
+ }
+
+ CL_Locs_Clear_f();
+
+ // try maps/something.loc first (LordHavoc: where I think they should be)
+ FS_StripExtension(cl.worldmodel->name, locfilename, sizeof(locfilename));
+ strlcat(locfilename, ".loc", sizeof(locfilename));
+ filedata = (char *)FS_LoadFile(locfilename, cls.levelmempool, false, &filesize);
+ if (!filedata)
+ {
+ // try proquake name as well (LordHavoc: I hate path mangling)
+ FS_StripExtension(va("locs/%s", FS_FileWithoutPath(cl.worldmodel->name)), locfilename, sizeof(locfilename));
+ strlcat(locfilename, ".loc", sizeof(locfilename));
+ filedata = (char *)FS_LoadFile(locfilename, cls.levelmempool, false, &filesize);
+ if (!filedata)
+ return;
+ }
+ text = filedata;
+ textend = filedata + filesize;
+ for (linenumber = 1;text < textend;linenumber++)
+ {
+ linestart = text;
+ for (;text < textend && *text != '\r' && *text != '\n';text++)
+ ;
+ lineend = text;
+ if (text + 1 < textend && *text == '\r' && text[1] == '\n')
+ text++;
+ if (text < textend)
+ text++;
+ // trim trailing whitespace
+ while (lineend > linestart && lineend[-1] <= ' ')
+ lineend--;
+ // trim leading whitespace
+ while (linestart < lineend && *linestart <= ' ')
+ linestart++;
+ // check if this is a comment
+ if (linestart + 2 <= lineend && !strncmp(linestart, "//", 2))
+ continue;
+ linetext = linestart;
+ limit = 3;
+ for (i = 0;i < limit;i++)
+ {
+ if (linetext >= lineend)
+ break;
+ // note: a missing number is interpreted as 0
+ if (i < 3)
+ mins[i] = atof(linetext);
+ else
+ maxs[i - 3] = atof(linetext);
+ // now advance past the number
+ while (linetext < lineend && *linetext > ' ' && *linetext != ',')
+ linetext++;
+ // advance through whitespace
+ if (linetext < lineend)
+ {
+ if (*linetext == ',')
+ {
+ linetext++;
+ limit = 6;
+ // note: comma can be followed by whitespace
+ }
+ if (*linetext <= ' ')
+ {
+ // skip whitespace
+ while (linetext < lineend && *linetext <= ' ')
+ linetext++;
+ }
+ }
+ }
+ // if this is a quoted name, remove the quotes
+ if (i == 6)
+ {
+ if (linetext >= lineend || *linetext != '"')
+ continue; // proquake location names are always quoted
+ lineend--;
+ linetext++;
+ len = min(lineend - linetext, (int)sizeof(name) - 1);
+ memcpy(name, linetext, len);
+ name[len] = 0;
+ // add the box to the list
+ CL_Locs_AddNode(mins, maxs, name);
+ }
+ // if a point was parsed, it needs to be scaled down by 8 (since
+ // point-based loc files were invented by a proxy which dealt
+ // directly with quake protocol coordinates, which are *8), turn
+ // it into a box
+ else if (i == 3)
+ {
+ // interpret silly fuhquake macros
+ for (len = 0;len < (int)sizeof(name) - 1 && linetext < lineend;)
+ {
+ if (*linetext == '$')
+ {
+ if (linetext + 18 <= lineend && !strncmp(linetext, "$loc_name_separator", 19)) {s = " ";linetext += 19;}
+ else if (linetext + 13 <= lineend && !strncmp(linetext, "$loc_name_ssg", 13)) {s = "SSG";linetext += 13;}
+ else if (linetext + 12 <= lineend && !strncmp(linetext, "$loc_name_ng", 12)) {s = "NG";linetext += 12;}
+ else if (linetext + 13 <= lineend && !strncmp(linetext, "$loc_name_sng", 13)) {s = "SNG";linetext += 13;}
+ else if (linetext + 12 <= lineend && !strncmp(linetext, "$loc_name_gl", 12)) {s = "GL";linetext += 12;}
+ else if (linetext + 12 <= lineend && !strncmp(linetext, "$loc_name_rl", 12)) {s = "RL";linetext += 12;}
+ else if (linetext + 12 <= lineend && !strncmp(linetext, "$loc_name_lg", 12)) {s = "LG";linetext += 12;}
+ else if (linetext + 12 <= lineend && !strncmp(linetext, "$loc_name_ga", 12)) {s = "GA";linetext += 12;}
+ else if (linetext + 12 <= lineend && !strncmp(linetext, "$loc_name_ya", 12)) {s = "YA";linetext += 12;}
+ else if (linetext + 12 <= lineend && !strncmp(linetext, "$loc_name_ra", 12)) {s = "RA";linetext += 12;}
+ else if (linetext + 12 <= lineend && !strncmp(linetext, "$loc_name_mh", 12)) {s = "MEGA";linetext += 12;}
+ else s = NULL;
+ if (s)
+ {
+ while (len < (int)sizeof(name) - 1 && *s)
+ name[len++] = *s++;
+ continue;
+ }
+ }
+ name[len++] = *linetext++;
+ }
+ name[len] = 0;
+ // add the point to the list
+ VectorScale(mins, (1.0 / 8.0), mins);
+ CL_Locs_AddNode(mins, mins, name);
+ }
+ else
+ continue;
+ }
+}
+