1 string W_Name(float weaponid);
2 float(float index) weapon_translateindextoflag;
7 void(string s, float check_dangerous) ServerConsoleEcho =
15 ch = substring(s, 0, 1);
16 if(ch != "\"" && ch != "\r" && ch != "\n")
18 s = substring(s, 1, strlen(s) - 1);
28 void(string s, float check_dangerous) GameLogEcho =
33 if(cvar("sv_eventlog_files"))
38 matches = cvar("sv_eventlog_files_counter") + 1;
39 cvar_set("sv_eventlog_files_counter", ftos(matches));
42 fn = strcat(substring("00000000", 0, 8 - strlen(fn)), fn);
43 fn = strcat(cvar_string("sv_eventlog_files_nameprefix"), fn, cvar_string("sv_eventlog_files_namesuffix"));
44 logfile = fopen(fn, FILE_APPEND);
47 fputs(logfile, strcat(s, "\n"));
49 if(cvar("sv_eventlog_console"))
51 ServerConsoleEcho(s, check_dangerous);
58 // will be opened later
63 if(logfile_open && logfile >= 0)
70 float math_mod(float a, float b)
72 return a - (floor(a / b) * b);
75 string linewrap(string s, float l)
82 t = strcat(t, substring(s, 0, l), "\n");
83 s = substring(s, l+1, strlen(s));
88 vector find_floor(vector org)
90 traceline(org + '0 0 5', org - '0 0 255', TRUE, self);
91 if (trace_fraction < 1)
97 void relocate_spawnpoint()
102 setorigin(self, find_floor(self.origin) + '0 0 30');
105 // NOTE: DO NOT USE THIS FUNCTION TOO OFTEN.
106 // IT WILL MOST PROBABLY DESTROY _ALL_ OTHER TEMP
107 // STRINGS AND TAKE QUITE LONG. haystack and needle MUST
108 // BE CONSTANT OR strzoneD!
109 float(string haystack, string needle, float offset) strstr =
113 len = strlen(needle);
114 endpos = strlen(haystack) - len;
115 while(offset < endpos)
117 found = substring(haystack, offset, len);
125 float NUM_NEAREST_ENTITIES = 4;
126 entity nearest_entity[NUM_NEAREST_ENTITIES];
127 float nearest_length[NUM_NEAREST_ENTITIES];
128 entity(vector point, .string field, string value, vector axismod) findnearest =
139 localhead = find(world, field, value);
142 if((localhead.items == IT_KEY1 || localhead.items == IT_KEY2) && localhead.target == "###item###")
143 dist = localhead.oldorigin;
145 dist = localhead.origin;
147 dist = dist_x * axismod_x * '1 0 0' + dist_y * axismod_y * '0 1 0' + dist_z * axismod_z * '0 0 1';
150 for(i = 0; i < num_nearest; ++i)
152 if(len < nearest_length[i])
156 // now i tells us where to insert at
157 // INSERTION SORT! YOU'VE SEEN IT! RUN!
158 if(i < NUM_NEAREST_ENTITIES)
160 for(j = NUM_NEAREST_ENTITIES - 1; j >= i; --j)
162 nearest_length[j + 1] = nearest_length[j];
163 nearest_entity[j + 1] = nearest_entity[j];
165 nearest_length[i] = len;
166 nearest_entity[i] = localhead;
167 if(num_nearest < NUM_NEAREST_ENTITIES)
168 num_nearest = num_nearest + 1;
171 localhead = find(localhead, field, value);
174 // now use the first one from our list that we can see
175 for(i = 0; i < num_nearest; ++i)
177 traceline(point, nearest_entity[i].origin, TRUE, world);
178 if(trace_fraction == 1)
182 dprint("Nearest point (");
183 dprint(nearest_entity[0].netname);
184 dprint(") is not visible, using a visible one.\n");
186 return nearest_entity[i];
193 dprint("Not seeing any location point, using nearest as fallback.\n");
195 dprint("Candidates were: ");
196 for(j = 0; j < num_nearest; ++j)
200 dprint(nearest_entity[j].netname);
205 return nearest_entity[0];
208 void() target_location =
210 self.classname = "target_location";
211 // location name in netname
212 // eventually support: count, teamgame selectors, line of sight?
215 void() info_location =
217 self.classname = "target_location";
218 self.message = self.netname;
221 string NearestLocation(vector p)
226 loc = findnearest(p, classname, "target_location", '1 1 1');
233 loc = findnearest(p, target, "###item###", '1 1 4');
240 string(string msg) formatmessage =
247 msg_save = strzone(msg);
253 break; // too many replacements
255 p = strstr(msg_save, "%", p); // NOTE: this destroys msg as it's a tempstring!
258 replacement = substring(msg_save, p, 2);
259 escape = substring(msg_save, p + 1, 1);
262 else if(escape == "a")
263 replacement = ftos(floor(self.armorvalue));
264 else if(escape == "h")
265 replacement = ftos(floor(self.health));
266 else if(escape == "l")
267 replacement = NearestLocation(self.origin);
268 else if(escape == "y")
269 replacement = NearestLocation(self.cursor_trace_endpos);
270 else if(escape == "d")
271 replacement = NearestLocation(self.death_origin);
272 else if(escape == "w")
277 wep = self.switchweapon;
280 replacement = W_Name(wep);
282 else if(escape == "W")
284 if(self.items & IT_SHELLS) replacement = "shells";
285 else if(self.items & IT_NAILS) replacement = "bullets";
286 else if(self.items & IT_ROCKETS) replacement = "rockets";
287 else if(self.items & IT_CELLS) replacement = "cells";
288 else replacement = "batteries"; // ;)
290 else if(escape == "x")
292 if(self.cursor_trace_ent)
293 replacement = self.cursor_trace_ent.netname;
295 replacement = "nothing";
297 msg = strcat(substring(msg_save, 0, p), replacement);
298 msg = strcat(msg, substring(msg_save, p+2, strlen(msg_save) - (p+2)));
300 msg_save = strzone(msg);
303 msg = strcat(msg_save);