1 var void remove(entity e);
2 void objerror(string s);
4 .vector dropped_origin;
6 void traceline_antilag (entity source, vector v1, vector v2, float nomonst, entity forent, float lag);
7 void crosshair_trace(entity pl)
9 traceline_antilag(pl, pl.cursor_trace_start, pl.cursor_trace_start + normalize(pl.cursor_trace_endpos - pl.cursor_trace_start) * MAX_SHOT_DISTANCE, MOVE_NORMAL, pl, ANTILAG_LATENCY(pl));
11 void crosshair_trace_plusvisibletriggers(entity pl)
15 first = findchainfloat(solid, SOLID_TRIGGER);
17 for (e = first; e; e = e.chain)
23 for (e = first; e; e = e.chain)
24 e.solid = SOLID_TRIGGER;
26 void WarpZone_traceline_antilag (entity source, vector v1, vector v2, float nomonst, entity forent, float lag);
27 void WarpZone_crosshair_trace(entity pl)
29 WarpZone_traceline_antilag(pl, pl.cursor_trace_start, pl.cursor_trace_start + normalize(pl.cursor_trace_endpos - pl.cursor_trace_start) * MAX_SHOT_DISTANCE, MOVE_NORMAL, pl, ANTILAG_LATENCY(pl));
32 void() spawnfunc_info_player_deathmatch; // needed for the other spawnpoints
33 void() spawnpoint_use;
36 string admin_name(void)
38 if(autocvar_sv_adminnick != "")
39 return autocvar_sv_adminnick;
41 return "SERVER ADMIN";
44 float DistributeEvenly_amount;
45 float DistributeEvenly_totalweight;
46 void DistributeEvenly_Init(float amount, float totalweight)
48 if (DistributeEvenly_amount)
50 dprint("DistributeEvenly_Init: UNFINISHED DISTRIBUTION (", ftos(DistributeEvenly_amount), " for ");
51 dprint(ftos(DistributeEvenly_totalweight), " left!)\n");
54 DistributeEvenly_amount = 0;
56 DistributeEvenly_amount = amount;
57 DistributeEvenly_totalweight = totalweight;
59 float DistributeEvenly_Get(float weight)
64 f = floor(0.5 + DistributeEvenly_amount * weight / DistributeEvenly_totalweight);
65 DistributeEvenly_totalweight -= weight;
66 DistributeEvenly_amount -= f;
69 float DistributeEvenly_GetRandomized(float weight)
74 f = floor(random() + DistributeEvenly_amount * weight / DistributeEvenly_totalweight);
75 DistributeEvenly_totalweight -= weight;
76 DistributeEvenly_amount -= f;
80 #define move_out_of_solid(e) WarpZoneLib_MoveOutOfSolid(e)
82 string STR_PLAYER = "player";
83 string STR_SPECTATOR = "spectator";
84 string STR_OBSERVER = "observer";
86 #define IS_PLAYER(v) (v.classname == STR_PLAYER)
87 #define IS_SPEC(v) (v.classname == STR_SPECTATOR)
88 #define IS_OBSERVER(v) (v.classname == STR_OBSERVER)
89 #define IS_CLIENT(v) (v.flags & FL_CLIENT)
90 #define IS_BOT_CLIENT(v) (clienttype(v) == CLIENTTYPE_BOT)
91 #define IS_REAL_CLIENT(v) (clienttype(v) == CLIENTTYPE_REAL)
92 #define IS_NOT_A_CLIENT(v) (clienttype(v) == CLIENTTYPE_NOTACLIENT)
94 #define FOR_EACH_CLIENTSLOT(v) for(v = world; (v = nextent(v)) && (num_for_edict(v) <= maxclients); )
95 #define FOR_EACH_CLIENT(v) FOR_EACH_CLIENTSLOT(v) if(IS_CLIENT(v))
96 #define FOR_EACH_REALCLIENT(v) FOR_EACH_CLIENT(v) if(IS_REAL_CLIENT(v))
98 #define FOR_EACH_PLAYER(v) FOR_EACH_CLIENT(v) if(IS_PLAYER(v))
99 #define FOR_EACH_SPEC(v) FOR_EACH_CLIENT(v) if not(IS_PLAYER(v)) // Samual: shouldn't this be IS_SPEC(v)? and rather create a separate macro to include observers too
100 #define FOR_EACH_REALPLAYER(v) FOR_EACH_REALCLIENT(v) if(IS_PLAYER(v))
102 #define CENTER_OR_VIEWOFS(ent) (ent.origin + (IS_PLAYER(ent) ? ent.view_ofs : ((ent.mins + ent.maxs) * 0.5)))
104 // copies a string to a tempstring (so one can strunzone it)
105 string strcat1(string s) = #115; // FRIK_FILE
110 void GameLogEcho(string s)
115 if (autocvar_sv_eventlog_files)
120 matches = autocvar_sv_eventlog_files_counter + 1;
121 cvar_set("sv_eventlog_files_counter", ftos(matches));
124 fn = strcat(substring("00000000", 0, 8 - strlen(fn)), fn);
125 fn = strcat(autocvar_sv_eventlog_files_nameprefix, fn, autocvar_sv_eventlog_files_namesuffix);
126 logfile = fopen(fn, FILE_APPEND);
127 fputs(logfile, ":logversion:3\n");
131 if (autocvar_sv_eventlog_files_timestamps)
132 fputs(logfile, strcat(":time:", strftime(TRUE, "%Y-%m-%d %H:%M:%S", "\n", s, "\n")));
134 fputs(logfile, strcat(s, "\n"));
137 if (autocvar_sv_eventlog_console)
146 // will be opened later
151 if (logfile_open && logfile >= 0)
158 #define strstr strstrofs
160 // NOTE: DO NOT USE THIS FUNCTION TOO OFTEN.
161 // IT WILL MOST PROBABLY DESTROY _ALL_ OTHER TEMP
162 // STRINGS AND TAKE QUITE LONG. haystack and needle MUST
163 // BE CONSTANT OR strzoneD!
164 float strstr(string haystack, string needle, float offset)
168 len = strlen(needle);
169 endpos = strlen(haystack) - len;
170 while(offset <= endpos)
172 found = substring(haystack, offset, len);
181 float NUM_NEAREST_ENTITIES = 4;
182 entity nearest_entity[NUM_NEAREST_ENTITIES];
183 float nearest_length[NUM_NEAREST_ENTITIES];
184 entity findnearest(vector point, .string field, string value, vector axismod)
195 localhead = find(world, field, value);
198 if ((localhead.items == IT_KEY1 || localhead.items == IT_KEY2) && localhead.target == "###item###")
199 dist = localhead.oldorigin;
201 dist = localhead.origin;
203 dist = dist_x * axismod_x * '1 0 0' + dist_y * axismod_y * '0 1 0' + dist_z * axismod_z * '0 0 1';
206 for (i = 0; i < num_nearest; ++i)
208 if (len < nearest_length[i])
212 // now i tells us where to insert at
213 // INSERTION SORT! YOU'VE SEEN IT! RUN!
214 if (i < NUM_NEAREST_ENTITIES)
216 for (j = NUM_NEAREST_ENTITIES - 1; j >= i; --j)
218 nearest_length[j + 1] = nearest_length[j];
219 nearest_entity[j + 1] = nearest_entity[j];
221 nearest_length[i] = len;
222 nearest_entity[i] = localhead;
223 if (num_nearest < NUM_NEAREST_ENTITIES)
224 num_nearest = num_nearest + 1;
227 localhead = find(localhead, field, value);
230 // now use the first one from our list that we can see
231 for (i = 0; i < num_nearest; ++i)
233 traceline(point, nearest_entity[i].origin, TRUE, world);
234 if (trace_fraction == 1)
238 dprint("Nearest point (");
239 dprint(nearest_entity[0].netname);
240 dprint(") is not visible, using a visible one.\n");
242 return nearest_entity[i];
246 if (num_nearest == 0)
249 dprint("Not seeing any location point, using nearest as fallback.\n");
251 dprint("Candidates were: ");
252 for(j = 0; j < num_nearest; ++j)
256 dprint(nearest_entity[j].netname);
261 return nearest_entity[0];
264 void spawnfunc_target_location()
266 self.classname = "target_location";
267 // location name in netname
268 // eventually support: count, teamgame selectors, line of sight?
271 void spawnfunc_info_location()
273 self.classname = "target_location";
274 self.message = self.netname;
277 string NearestLocation(vector p)
282 loc = findnearest(p, classname, "target_location", '1 1 1');
289 loc = findnearest(p, target, "###item###", '1 1 4');
296 string formatmessage(string msg)
307 WarpZone_crosshair_trace(self);
308 cursor = trace_endpos;
309 cursor_ent = trace_ent;
313 break; // too many replacements
316 p1 = strstr(msg, "%", p); // NOTE: this destroys msg as it's a tempstring!
317 p2 = strstr(msg, "\\", p); // NOTE: this destroys msg as it's a tempstring!
330 replacement = substring(msg, p, 2);
331 escape = substring(msg, p + 1, 1);
335 else if (escape == "\\")
337 else if (escape == "n")
339 else if (escape == "a")
340 replacement = ftos(floor(self.armorvalue));
341 else if (escape == "h")
342 replacement = ftos(floor(self.health));
343 else if (escape == "l")
344 replacement = NearestLocation(self.origin);
345 else if (escape == "y")
346 replacement = NearestLocation(cursor);
347 else if (escape == "d")
348 replacement = NearestLocation(self.death_origin);
349 else if (escape == "w") {
353 wep = self.switchweapon;
356 replacement = W_Name(wep);
357 } else if (escape == "W") {
358 if (self.items & IT_SHELLS) replacement = "shells";
359 else if (self.items & IT_NAILS) replacement = "bullets";
360 else if (self.items & IT_ROCKETS) replacement = "rockets";
361 else if (self.items & IT_CELLS) replacement = "cells";
362 else replacement = "batteries"; // ;)
363 } else if (escape == "x") {
364 replacement = cursor_ent.netname;
365 if (replacement == "" || !cursor_ent)
366 replacement = "nothing";
367 } else if (escape == "s")
368 replacement = ftos(vlen(self.velocity - self.velocity_z * '0 0 1'));
369 else if (escape == "S")
370 replacement = ftos(vlen(self.velocity));
372 msg = strcat(substring(msg, 0, p), replacement, substring(msg, p+2, strlen(msg) - (p+2)));
373 p = p + strlen(replacement);
378 float boolean(float value) { // if value is 0 return FALSE (0), otherwise return TRUE (1)
379 return (value == 0) ? FALSE : TRUE;
388 >0: receives a cvar from name=argv(f) value=argv(f+1)
390 void GetCvars_handleString(string thisname, float f, .string field, string name)
395 strunzone(self.field);
396 self.field = string_null;
400 if (thisname == name)
403 strunzone(self.field);
404 self.field = strzone(argv(f + 1));
408 stuffcmd(self, strcat("cl_cmd sendcvar ", name, "\n"));
410 void GetCvars_handleString_Fixup(string thisname, float f, .string field, string name, string(string) func)
412 GetCvars_handleString(thisname, f, field, name);
413 if (f >= 0) // also initialize to the fitting value for "" when sending cvars out
414 if (thisname == name)
417 s = func(strcat1(self.field));
420 strunzone(self.field);
421 self.field = strzone(s);
425 void GetCvars_handleFloat(string thisname, float f, .float field, string name)
432 if (thisname == name)
433 self.field = stof(argv(f + 1));
436 stuffcmd(self, strcat("cl_cmd sendcvar ", name, "\n"));
438 void GetCvars_handleFloatOnce(string thisname, float f, .float field, string name)
445 if (thisname == name)
449 self.field = stof(argv(f + 1));
458 stuffcmd(self, strcat("cl_cmd sendcvar ", name, "\n"));
461 float w_getbestweapon(entity e);
462 string W_FixWeaponOrder_ForceComplete_AndBuildImpulseList(string wo)
465 o = W_FixWeaponOrder_ForceComplete(wo);
466 if(self.weaponorder_byimpulse)
468 strunzone(self.weaponorder_byimpulse);
469 self.weaponorder_byimpulse = string_null;
471 self.weaponorder_byimpulse = strzone(W_FixWeaponOrder_BuildImpulseList(o));
474 void GetCvars(float f)
476 string s = string_null;
479 s = strcat1(argv(f));
484 MUTATOR_CALLHOOK(GetCvars);
486 Notification_GetCvars();
488 GetCvars_handleFloat(s, f, autoswitch, "cl_autoswitch");
489 GetCvars_handleFloat(s, f, cvar_cl_autoscreenshot, "cl_autoscreenshot");
490 GetCvars_handleString(s, f, cvar_g_xonoticversion, "g_xonoticversion");
491 GetCvars_handleFloat(s, f, cvar_cl_handicap, "cl_handicap");
492 GetCvars_handleFloat(s, f, cvar_cl_clippedspectating, "cl_clippedspectating");
493 GetCvars_handleString_Fixup(s, f, cvar_cl_weaponpriority, "cl_weaponpriority", W_FixWeaponOrder_ForceComplete_AndBuildImpulseList);
494 GetCvars_handleString_Fixup(s, f, cvar_cl_weaponpriorities[0], "cl_weaponpriority0", W_FixWeaponOrder_AllowIncomplete);
495 GetCvars_handleString_Fixup(s, f, cvar_cl_weaponpriorities[1], "cl_weaponpriority1", W_FixWeaponOrder_AllowIncomplete);
496 GetCvars_handleString_Fixup(s, f, cvar_cl_weaponpriorities[2], "cl_weaponpriority2", W_FixWeaponOrder_AllowIncomplete);
497 GetCvars_handleString_Fixup(s, f, cvar_cl_weaponpriorities[3], "cl_weaponpriority3", W_FixWeaponOrder_AllowIncomplete);
498 GetCvars_handleString_Fixup(s, f, cvar_cl_weaponpriorities[4], "cl_weaponpriority4", W_FixWeaponOrder_AllowIncomplete);
499 GetCvars_handleString_Fixup(s, f, cvar_cl_weaponpriorities[5], "cl_weaponpriority5", W_FixWeaponOrder_AllowIncomplete);
500 GetCvars_handleString_Fixup(s, f, cvar_cl_weaponpriorities[6], "cl_weaponpriority6", W_FixWeaponOrder_AllowIncomplete);
501 GetCvars_handleString_Fixup(s, f, cvar_cl_weaponpriorities[7], "cl_weaponpriority7", W_FixWeaponOrder_AllowIncomplete);
502 GetCvars_handleString_Fixup(s, f, cvar_cl_weaponpriorities[8], "cl_weaponpriority8", W_FixWeaponOrder_AllowIncomplete);
503 GetCvars_handleString_Fixup(s, f, cvar_cl_weaponpriorities[9], "cl_weaponpriority9", W_FixWeaponOrder_AllowIncomplete);
504 GetCvars_handleFloat(s, f, cvar_cl_weaponimpulsemode, "cl_weaponimpulsemode");
505 GetCvars_handleFloat(s, f, cvar_cl_autotaunt, "cl_autotaunt");
506 GetCvars_handleFloat(s, f, cvar_cl_noantilag, "cl_noantilag");
507 GetCvars_handleFloat(s, f, cvar_cl_voice_directional, "cl_voice_directional");
508 GetCvars_handleFloat(s, f, cvar_cl_voice_directional_taunt_attenuation, "cl_voice_directional_taunt_attenuation");
509 GetCvars_handleFloat(s, f, cvar_cl_accuracy_data_share, "cl_accuracy_data_share");
510 GetCvars_handleFloat(s, f, cvar_cl_accuracy_data_receive, "cl_accuracy_data_receive");
512 self.cvar_cl_accuracy_data_share = boolean(self.cvar_cl_accuracy_data_share);
513 self.cvar_cl_accuracy_data_receive = boolean(self.cvar_cl_accuracy_data_receive);
515 GetCvars_handleFloatOnce(s, f, cvar_cl_gunalign, "cl_gunalign");
516 GetCvars_handleFloat(s, f, cvar_cl_allow_uid2name, "cl_allow_uid2name");
517 GetCvars_handleFloat(s, f, cvar_cl_allow_uidtracking, "cl_allow_uidtracking");
518 GetCvars_handleFloat(s, f, cvar_cl_movement_track_canjump, "cl_movement_track_canjump");
519 GetCvars_handleFloat(s, f, cvar_cl_newusekeysupported, "cl_newusekeysupported");
521 // fixup of switchweapon (needed for LMS or when spectating is disabled, as PutClientInServer comes too early)
524 if (s == "cl_weaponpriority")
525 self.switchweapon = w_getbestweapon(self);
526 if (s == "cl_allow_uidtracking")
527 PlayerStats_AddPlayer(self);
531 // decolorizes and team colors the player name when needed
532 string playername(entity p)
535 if (teamplay && !intermission_running && p.classname == "player")
537 t = Team_ColorCode(p.team);
538 return strcat(t, strdecolorize(p.netname));
544 vector randompos(vector m1, vector m2)
548 v_x = m2_x * random() + m1_x;
549 v_y = m2_y * random() + m1_y;
550 v_z = m2_z * random() + m1_z;
554 //#NO AUTOCVARS START
556 float g_pickup_shells;
557 float g_pickup_shells_max;
558 float g_pickup_nails;
559 float g_pickup_nails_max;
560 float g_pickup_rockets;
561 float g_pickup_rockets_max;
562 float g_pickup_cells;
563 float g_pickup_cells_max;
565 float g_pickup_fuel_jetpack;
566 float g_pickup_fuel_max;
567 float g_pickup_armorsmall;
568 float g_pickup_armorsmall_max;
569 float g_pickup_armorsmall_anyway;
570 float g_pickup_armormedium;
571 float g_pickup_armormedium_max;
572 float g_pickup_armormedium_anyway;
573 float g_pickup_armorbig;
574 float g_pickup_armorbig_max;
575 float g_pickup_armorbig_anyway;
576 float g_pickup_armorlarge;
577 float g_pickup_armorlarge_max;
578 float g_pickup_armorlarge_anyway;
579 float g_pickup_healthsmall;
580 float g_pickup_healthsmall_max;
581 float g_pickup_healthsmall_anyway;
582 float g_pickup_healthmedium;
583 float g_pickup_healthmedium_max;
584 float g_pickup_healthmedium_anyway;
585 float g_pickup_healthlarge;
586 float g_pickup_healthlarge_max;
587 float g_pickup_healthlarge_anyway;
588 float g_pickup_healthmega;
589 float g_pickup_healthmega_max;
590 float g_pickup_healthmega_anyway;
591 float g_pickup_ammo_anyway;
592 float g_pickup_weapons_anyway;
594 WEPSET_DECLARE_A(g_weaponarena_weapons);
595 float g_weaponarena_random;
596 float g_weaponarena_random_with_laser;
597 string g_weaponarena_list;
598 float g_weaponspeedfactor;
599 float g_weaponratefactor;
600 float g_weapondamagefactor;
601 float g_weaponforcefactor;
602 float g_weaponspreadfactor;
604 WEPSET_DECLARE_A(start_weapons);
605 WEPSET_DECLARE_A(start_weapons_default);
606 WEPSET_DECLARE_A(start_weapons_defaultmask);
608 float start_ammo_shells;
609 float start_ammo_nails;
610 float start_ammo_rockets;
611 float start_ammo_cells;
612 float start_ammo_fuel;
614 float start_armorvalue;
615 WEPSET_DECLARE_A(warmup_start_weapons);
616 WEPSET_DECLARE_A(warmup_start_weapons_default);
617 WEPSET_DECLARE_A(warmup_start_weapons_defaultmask);
618 float warmup_start_ammo_shells;
619 float warmup_start_ammo_nails;
620 float warmup_start_ammo_rockets;
621 float warmup_start_ammo_cells;
622 float warmup_start_ammo_fuel;
623 float warmup_start_health;
624 float warmup_start_armorvalue;
627 entity get_weaponinfo(float w);
629 float want_weapon(string cvarprefix, entity weaponinfo, float allguns)
631 var float i = weaponinfo.weapon;
637 if (g_lms || g_ca || allguns)
639 if(weaponinfo.spawnflags & WEP_FLAG_NORMAL)
645 d = (i == WEP_SHOTGUN);
647 d = 0; // weapon is set a few lines later
649 d = (i == WEP_LASER || i == WEP_SHOTGUN);
651 if(g_grappling_hook) // if possible, redirect off-hand hook to on-hand hook
652 d |= (i == WEP_HOOK);
653 if(weaponinfo.spawnflags & WEP_FLAG_MUTATORBLOCKED) // never default mutator blocked guns
656 var float t = cvar(strcat(cvarprefix, weaponinfo.netname));
658 //print(strcat("want_weapon: ", weaponinfo.netname, " - d: ", ftos(d), ", t: ", ftos(t), ". \n"));
663 // 4: is set by default?
672 void readplayerstartcvars()
678 // initialize starting values for players
679 WEPSET_CLEAR_A(start_weapons);
680 WEPSET_CLEAR_A(start_weapons_default);
681 WEPSET_CLEAR_A(start_weapons_defaultmask);
683 start_ammo_shells = 0;
684 start_ammo_nails = 0;
685 start_ammo_rockets = 0;
686 start_ammo_cells = 0;
687 start_health = cvar("g_balance_health_start");
688 start_armorvalue = cvar("g_balance_armor_start");
691 WEPSET_CLEAR_A(g_weaponarena_weapons);
693 s = cvar_string("g_weaponarena");
694 if (s == "0" || s == "")
700 if (s == "0" || s == "")
706 // forcibly turn off weaponarena
711 g_weaponarena_list = "All Weapons";
712 for (j = WEP_FIRST; j <= WEP_LAST; ++j)
714 e = get_weaponinfo(j);
715 if not(e.spawnflags & WEP_FLAG_MUTATORBLOCKED)
716 WEPSET_OR_AW(g_weaponarena_weapons, j);
719 else if (s == "most")
722 g_weaponarena_list = "Most Weapons";
723 for (j = WEP_FIRST; j <= WEP_LAST; ++j)
725 e = get_weaponinfo(j);
726 if not(e.spawnflags & WEP_FLAG_MUTATORBLOCKED)
727 if (e.spawnflags & WEP_FLAG_NORMAL)
728 WEPSET_OR_AW(g_weaponarena_weapons, j);
731 else if (s == "none")
734 g_weaponarena_list = "No Weapons";
739 t = tokenize_console(s);
740 g_weaponarena_list = "";
741 for (i = 0; i < t; ++i)
744 for (j = WEP_FIRST; j <= WEP_LAST; ++j)
746 e = get_weaponinfo(j);
749 WEPSET_OR_AW(g_weaponarena_weapons, j);
750 g_weaponarena_list = strcat(g_weaponarena_list, e.message, " & ");
756 print("The weapon mutator list contains an unknown weapon ", s, ". Skipped.\n");
759 g_weaponarena_list = strzone(substring(g_weaponarena_list, 0, strlen(g_weaponarena_list) - 3));
763 g_weaponarena_random = cvar("g_weaponarena_random");
765 g_weaponarena_random = 0;
766 g_weaponarena_random_with_laser = cvar("g_weaponarena_random_with_laser");
770 g_minstagib = 0; // incompatible
771 g_pinata = 0; // incompatible
772 g_weapon_stay = 0; // incompatible
773 WEPSET_COPY_AA(start_weapons, g_weaponarena_weapons);
775 start_items |= IT_UNLIMITED_AMMO;
777 else if (g_minstagib)
779 g_pinata = 0; // incompatible
780 g_weapon_stay = 0; // incompatible
781 g_bloodloss = 0; // incompatible
783 start_armorvalue = 0;
784 WEPSET_COPY_AW(start_weapons, WEP_MINSTANEX);
785 g_minstagib_invis_alpha = cvar("g_minstagib_invis_alpha");
786 start_items |= IT_UNLIMITED_SUPERWEAPONS;
788 if (g_minstagib_invis_alpha <= 0)
789 g_minstagib_invis_alpha = -1;
793 for (i = WEP_FIRST; i <= WEP_LAST; ++i)
795 e = get_weaponinfo(i);
796 float w = want_weapon("g_start_weapon_", e, FALSE);
798 WEPSET_OR_AW(start_weapons, i);
800 WEPSET_OR_AW(start_weapons_default, i);
802 WEPSET_OR_AW(start_weapons_defaultmask, i);
806 if(!cvar("g_use_ammunition"))
807 start_items |= IT_UNLIMITED_AMMO;
809 if(cvar("g_nexball"))
810 start_items |= IT_UNLIMITED_SUPERWEAPONS; // FIXME BAD BAD BAD BAD HACK, NEXBALL SHOULDN'T ABUSE PORTO'S WEAPON SLOT
814 start_ammo_cells = cvar("g_minstagib_ammo_start");
815 start_ammo_fuel = cvar("g_start_ammo_fuel");
817 else if(start_items & IT_UNLIMITED_WEAPON_AMMO)
819 start_ammo_rockets = 999;
820 start_ammo_shells = 999;
821 start_ammo_cells = 999;
822 start_ammo_nails = 999;
823 start_ammo_fuel = 999;
829 start_ammo_shells = cvar("g_lms_start_ammo_shells");
830 start_ammo_nails = cvar("g_lms_start_ammo_nails");
831 start_ammo_rockets = cvar("g_lms_start_ammo_rockets");
832 start_ammo_cells = cvar("g_lms_start_ammo_cells");
833 start_ammo_fuel = cvar("g_lms_start_ammo_fuel");
837 start_ammo_shells = cvar("g_start_ammo_shells");
838 start_ammo_nails = cvar("g_start_ammo_nails");
839 start_ammo_rockets = cvar("g_start_ammo_rockets");
840 start_ammo_cells = cvar("g_start_ammo_cells");
841 start_ammo_fuel = cvar("g_start_ammo_fuel");
847 start_health = cvar("g_lms_start_health");
848 start_armorvalue = cvar("g_lms_start_armor");
853 warmup_start_ammo_shells = start_ammo_shells;
854 warmup_start_ammo_nails = start_ammo_nails;
855 warmup_start_ammo_rockets = start_ammo_rockets;
856 warmup_start_ammo_cells = start_ammo_cells;
857 warmup_start_ammo_fuel = start_ammo_fuel;
858 warmup_start_health = start_health;
859 warmup_start_armorvalue = start_armorvalue;
860 WEPSET_COPY_AA(warmup_start_weapons, start_weapons);
861 WEPSET_COPY_AA(warmup_start_weapons_default, start_weapons_default);
862 WEPSET_COPY_AA(warmup_start_weapons_defaultmask, start_weapons_defaultmask);
864 if (!g_weaponarena && !g_minstagib && !g_ca)
866 warmup_start_ammo_shells = cvar("g_warmup_start_ammo_shells");
867 warmup_start_ammo_cells = cvar("g_warmup_start_ammo_cells");
868 warmup_start_ammo_nails = cvar("g_warmup_start_ammo_nails");
869 warmup_start_ammo_rockets = cvar("g_warmup_start_ammo_rockets");
870 warmup_start_ammo_fuel = cvar("g_warmup_start_ammo_fuel");
871 warmup_start_health = cvar("g_warmup_start_health");
872 warmup_start_armorvalue = cvar("g_warmup_start_armor");
873 WEPSET_CLEAR_A(warmup_start_weapons);
874 WEPSET_CLEAR_A(warmup_start_weapons_default);
875 WEPSET_CLEAR_A(warmup_start_weapons_defaultmask);
876 for (i = WEP_FIRST; i <= WEP_LAST; ++i)
878 e = get_weaponinfo(i);
879 float w = want_weapon("g_start_weapon_", e, cvar("g_warmup_allguns"));
881 WEPSET_OR_AW(warmup_start_weapons, i);
883 WEPSET_OR_AW(warmup_start_weapons_default, i);
885 WEPSET_OR_AW(warmup_start_weapons_defaultmask, i);
891 start_items |= IT_JETPACK;
893 MUTATOR_CALLHOOK(SetStartItems);
895 if ((start_items & IT_JETPACK) || (g_grappling_hook && WEPSET_CONTAINS_AW(start_weapons, WEP_HOOK)))
897 g_grappling_hook = 0; // these two can't coexist, as they use the same button
898 start_items |= IT_FUEL_REGEN;
899 start_ammo_fuel = max(start_ammo_fuel, cvar("g_balance_fuel_rotstable"));
900 warmup_start_ammo_fuel = max(warmup_start_ammo_fuel, cvar("g_balance_fuel_rotstable"));
903 for (i = WEP_FIRST; i <= WEP_LAST; ++i)
905 e = get_weaponinfo(i);
906 if(WEPSET_CONTAINS_AW(start_weapons, i) || WEPSET_CONTAINS_AW(warmup_start_weapons, i))
907 weapon_action(i, WR_PRECACHE);
910 start_ammo_shells = max(0, start_ammo_shells);
911 start_ammo_nails = max(0, start_ammo_nails);
912 start_ammo_cells = max(0, start_ammo_cells);
913 start_ammo_rockets = max(0, start_ammo_rockets);
914 start_ammo_fuel = max(0, start_ammo_fuel);
916 warmup_start_ammo_shells = max(0, warmup_start_ammo_shells);
917 warmup_start_ammo_nails = max(0, warmup_start_ammo_nails);
918 warmup_start_ammo_cells = max(0, warmup_start_ammo_cells);
919 warmup_start_ammo_rockets = max(0, warmup_start_ammo_rockets);
920 warmup_start_ammo_fuel = max(0, warmup_start_ammo_fuel);
924 float g_bugrigs_planar_movement;
925 float g_bugrigs_planar_movement_car_jumping;
926 float g_bugrigs_reverse_spinning;
927 float g_bugrigs_reverse_speeding;
928 float g_bugrigs_reverse_stopping;
929 float g_bugrigs_air_steering;
930 float g_bugrigs_angle_smoothing;
931 float g_bugrigs_friction_floor;
932 float g_bugrigs_friction_brake;
933 float g_bugrigs_friction_air;
934 float g_bugrigs_accel;
935 float g_bugrigs_speed_ref;
936 float g_bugrigs_speed_pow;
937 float g_bugrigs_steer;
942 string GetGametype(); // g_world.qc
943 void readlevelcvars(void)
945 g_minstagib = cvar("g_minstagib");
947 // load ALL the mutators
948 if(cvar("g_dodging"))
949 MUTATOR_ADD(mutator_dodging);
950 if(cvar("g_spawn_near_teammate"))
951 MUTATOR_ADD(mutator_spawn_near_teammate);
952 if(cvar("g_physical_items"))
953 MUTATOR_ADD(mutator_physical_items);
954 if(cvar("g_touchexplode"))
955 MUTATOR_ADD(mutator_touchexplode);
958 if(cvar("g_invincible_projectiles"))
959 MUTATOR_ADD(mutator_invincibleprojectiles);
960 if(cvar("g_new_toys"))
961 MUTATOR_ADD(mutator_new_toys);
963 MUTATOR_ADD(mutator_nix);
964 if(cvar("g_rocket_flying"))
965 MUTATOR_ADD(mutator_rocketflying);
966 if(cvar("g_vampire"))
967 MUTATOR_ADD(mutator_vampire);
968 if(cvar("g_superspectate"))
969 MUTATOR_ADD(mutator_superspec);
972 // is this a mutator? is this a mode?
973 if(cvar("g_sandbox"))
974 MUTATOR_ADD(sandbox);
976 if(cvar("sv_allow_fullbright"))
977 serverflags |= SERVERFLAG_ALLOW_FULLBRIGHT;
979 g_bugrigs = cvar("g_bugrigs");
980 g_bugrigs_planar_movement = cvar("g_bugrigs_planar_movement");
981 g_bugrigs_planar_movement_car_jumping = cvar("g_bugrigs_planar_movement_car_jumping");
982 g_bugrigs_reverse_spinning = cvar("g_bugrigs_reverse_spinning");
983 g_bugrigs_reverse_speeding = cvar("g_bugrigs_reverse_speeding");
984 g_bugrigs_reverse_stopping = cvar("g_bugrigs_reverse_stopping");
985 g_bugrigs_air_steering = cvar("g_bugrigs_air_steering");
986 g_bugrigs_angle_smoothing = cvar("g_bugrigs_angle_smoothing");
987 g_bugrigs_friction_floor = cvar("g_bugrigs_friction_floor");
988 g_bugrigs_friction_brake = cvar("g_bugrigs_friction_brake");
989 g_bugrigs_friction_air = cvar("g_bugrigs_friction_air");
990 g_bugrigs_accel = cvar("g_bugrigs_accel");
991 g_bugrigs_speed_ref = cvar("g_bugrigs_speed_ref");
992 g_bugrigs_speed_pow = cvar("g_bugrigs_speed_pow");
993 g_bugrigs_steer = cvar("g_bugrigs_steer");
995 sv_clones = cvar("sv_clones");
996 sv_foginterval = cvar("sv_foginterval");
997 g_cloaked = cvar("g_cloaked");
999 g_cloaked = 1; // always enable cloak in CTS
1000 g_jump_grunt = cvar("g_jump_grunt");
1001 g_footsteps = cvar("g_footsteps");
1002 g_grappling_hook = cvar("g_grappling_hook");
1003 g_jetpack = cvar("g_jetpack");
1004 g_midair = cvar("g_midair");
1005 g_norecoil = cvar("g_norecoil");
1006 g_bloodloss = cvar("g_bloodloss");
1007 sv_maxidle = cvar("sv_maxidle");
1008 sv_maxidle_spectatorsareidle = cvar("sv_maxidle_spectatorsareidle");
1009 sv_autotaunt = cvar("sv_autotaunt");
1010 sv_taunt = cvar("sv_taunt");
1012 inWarmupStage = cvar("g_warmup");
1013 g_warmup_limit = cvar("g_warmup_limit");
1014 g_warmup_allguns = cvar("g_warmup_allguns");
1015 g_warmup_allow_timeout = cvar("g_warmup_allow_timeout");
1017 if ((g_race && g_race_qualifying == 2) || g_arena || g_assault || cvar("g_campaign"))
1018 inWarmupStage = 0; // these modes cannot work together, sorry
1020 g_pickup_respawntime_weapon = cvar("g_pickup_respawntime_weapon");
1021 g_pickup_respawntime_superweapon = cvar("g_pickup_respawntime_superweapon");
1022 g_pickup_respawntime_ammo = cvar("g_pickup_respawntime_ammo");
1023 g_pickup_respawntime_short = cvar("g_pickup_respawntime_short");
1024 g_pickup_respawntime_medium = cvar("g_pickup_respawntime_medium");
1025 g_pickup_respawntime_long = cvar("g_pickup_respawntime_long");
1026 g_pickup_respawntime_powerup = cvar("g_pickup_respawntime_powerup");
1027 g_pickup_respawntimejitter_weapon = cvar("g_pickup_respawntimejitter_weapon");
1028 g_pickup_respawntimejitter_superweapon = cvar("g_pickup_respawntimejitter_superweapon");
1029 g_pickup_respawntimejitter_ammo = cvar("g_pickup_respawntimejitter_ammo");
1030 g_pickup_respawntimejitter_short = cvar("g_pickup_respawntimejitter_short");
1031 g_pickup_respawntimejitter_medium = cvar("g_pickup_respawntimejitter_medium");
1032 g_pickup_respawntimejitter_long = cvar("g_pickup_respawntimejitter_long");
1033 g_pickup_respawntimejitter_powerup = cvar("g_pickup_respawntimejitter_powerup");
1035 g_weaponspeedfactor = cvar("g_weaponspeedfactor");
1036 g_weaponratefactor = cvar("g_weaponratefactor");
1037 g_weapondamagefactor = cvar("g_weapondamagefactor");
1038 g_weaponforcefactor = cvar("g_weaponforcefactor");
1039 g_weaponspreadfactor = cvar("g_weaponspreadfactor");
1041 g_pickup_shells = cvar("g_pickup_shells");
1042 g_pickup_shells_max = cvar("g_pickup_shells_max");
1043 g_pickup_nails = cvar("g_pickup_nails");
1044 g_pickup_nails_max = cvar("g_pickup_nails_max");
1045 g_pickup_rockets = cvar("g_pickup_rockets");
1046 g_pickup_rockets_max = cvar("g_pickup_rockets_max");
1047 g_pickup_cells = cvar("g_pickup_cells");
1048 g_pickup_cells_max = cvar("g_pickup_cells_max");
1049 g_pickup_fuel = cvar("g_pickup_fuel");
1050 g_pickup_fuel_jetpack = cvar("g_pickup_fuel_jetpack");
1051 g_pickup_fuel_max = cvar("g_pickup_fuel_max");
1052 g_pickup_armorsmall = cvar("g_pickup_armorsmall");
1053 g_pickup_armorsmall_max = cvar("g_pickup_armorsmall_max");
1054 g_pickup_armorsmall_anyway = cvar("g_pickup_armorsmall_anyway");
1055 g_pickup_armormedium = cvar("g_pickup_armormedium");
1056 g_pickup_armormedium_max = cvar("g_pickup_armormedium_max");
1057 g_pickup_armormedium_anyway = cvar("g_pickup_armormedium_anyway");
1058 g_pickup_armorbig = cvar("g_pickup_armorbig");
1059 g_pickup_armorbig_max = cvar("g_pickup_armorbig_max");
1060 g_pickup_armorbig_anyway = cvar("g_pickup_armorbig_anyway");
1061 g_pickup_armorlarge = cvar("g_pickup_armorlarge");
1062 g_pickup_armorlarge_max = cvar("g_pickup_armorlarge_max");
1063 g_pickup_armorlarge_anyway = cvar("g_pickup_armorlarge_anyway");
1064 g_pickup_healthsmall = cvar("g_pickup_healthsmall");
1065 g_pickup_healthsmall_max = cvar("g_pickup_healthsmall_max");
1066 g_pickup_healthsmall_anyway = cvar("g_pickup_healthsmall_anyway");
1067 g_pickup_healthmedium = cvar("g_pickup_healthmedium");
1068 g_pickup_healthmedium_max = cvar("g_pickup_healthmedium_max");
1069 g_pickup_healthmedium_anyway = cvar("g_pickup_healthmedium_anyway");
1070 g_pickup_healthlarge = cvar("g_pickup_healthlarge");
1071 g_pickup_healthlarge_max = cvar("g_pickup_healthlarge_max");
1072 g_pickup_healthlarge_anyway = cvar("g_pickup_healthlarge_anyway");
1073 g_pickup_healthmega = cvar("g_pickup_healthmega");
1074 g_pickup_healthmega_max = cvar("g_pickup_healthmega_max");
1075 g_pickup_healthmega_anyway = cvar("g_pickup_healthmega_anyway");
1077 g_pickup_ammo_anyway = cvar("g_pickup_ammo_anyway");
1078 g_pickup_weapons_anyway = cvar("g_pickup_weapons_anyway");
1080 g_pinata = cvar("g_pinata");
1082 g_weapon_stay = cvar(strcat("g_", GetGametype(), "_weapon_stay"));
1084 g_weapon_stay = cvar("g_weapon_stay");
1086 if not(inWarmupStage && !g_ca)
1087 game_starttime = cvar("g_start_delay");
1089 readplayerstartcvars();
1095 string precache_sound (string s) = #19;
1096 float precache_sound_index (string s) = #19;
1098 #define SND_VOLUME 1
1099 #define SND_ATTENUATION 2
1100 #define SND_LARGEENTITY 8
1101 #define SND_LARGESOUND 16
1103 float sound_allowed(float dest, entity e)
1105 // sounds from world may always pass
1108 if (e.classname == "body")
1110 else if (e.realowner && e.realowner != e)
1112 else if (e.owner && e.owner != e)
1117 // sounds to self may always pass
1118 if (dest == MSG_ONE)
1119 if (e == msg_entity)
1121 // sounds by players can be removed
1122 if (autocvar_bot_sound_monopoly)
1123 if (clienttype(e) == CLIENTTYPE_REAL)
1125 // anything else may pass
1129 #ifdef COMPAT_XON010_CHANNELS
1130 void(entity e, float chan, string samp, float vol, float atten) builtin_sound = #8;
1131 void sound(entity e, float chan, string samp, float vol, float atten)
1133 if (!sound_allowed(MSG_BROADCAST, e))
1135 builtin_sound(e, chan, samp, vol, atten);
1139 void sound(entity e, float chan, string samp, float vol, float atten)
1141 if (!sound_allowed(MSG_BROADCAST, e))
1143 sound7(e, chan, samp, vol, atten, 0, 0);
1147 void soundtoat(float dest, entity e, vector o, float chan, string samp, float vol, float atten)
1151 if (!sound_allowed(dest, e))
1154 entno = num_for_edict(e);
1155 idx = precache_sound_index(samp);
1160 atten = floor(atten * 64);
1161 vol = floor(vol * 255);
1164 sflags |= SND_VOLUME;
1166 sflags |= SND_ATTENUATION;
1167 if (entno >= 8192 || chan < 0 || chan > 7)
1168 sflags |= SND_LARGEENTITY;
1170 sflags |= SND_LARGESOUND;
1172 WriteByte(dest, SVC_SOUND);
1173 WriteByte(dest, sflags);
1174 if (sflags & SND_VOLUME)
1175 WriteByte(dest, vol);
1176 if (sflags & SND_ATTENUATION)
1177 WriteByte(dest, atten);
1178 if (sflags & SND_LARGEENTITY)
1180 WriteShort(dest, entno);
1181 WriteByte(dest, chan);
1185 WriteShort(dest, entno * 8 + chan);
1187 if (sflags & SND_LARGESOUND)
1188 WriteShort(dest, idx);
1190 WriteByte(dest, idx);
1192 WriteCoord(dest, o_x);
1193 WriteCoord(dest, o_y);
1194 WriteCoord(dest, o_z);
1196 void soundto(float dest, entity e, float chan, string samp, float vol, float atten)
1200 if (!sound_allowed(dest, e))
1203 o = e.origin + 0.5 * (e.mins + e.maxs);
1204 soundtoat(dest, e, o, chan, samp, vol, atten);
1206 void soundat(entity e, vector o, float chan, string samp, float vol, float atten)
1208 soundtoat(((chan & 8) ? MSG_ALL : MSG_BROADCAST), e, o, chan, samp, vol, atten);
1210 void stopsoundto(float dest, entity e, float chan)
1214 if (!sound_allowed(dest, e))
1217 entno = num_for_edict(e);
1219 if (entno >= 8192 || chan < 0 || chan > 7)
1222 idx = precache_sound_index("misc/null.wav");
1223 sflags = SND_LARGEENTITY;
1225 sflags |= SND_LARGESOUND;
1226 WriteByte(dest, SVC_SOUND);
1227 WriteByte(dest, sflags);
1228 WriteShort(dest, entno);
1229 WriteByte(dest, chan);
1230 if (sflags & SND_LARGESOUND)
1231 WriteShort(dest, idx);
1233 WriteByte(dest, idx);
1234 WriteCoord(dest, e.origin_x);
1235 WriteCoord(dest, e.origin_y);
1236 WriteCoord(dest, e.origin_z);
1240 WriteByte(dest, SVC_STOPSOUND);
1241 WriteShort(dest, entno * 8 + chan);
1244 void stopsound(entity e, float chan)
1246 if (!sound_allowed(MSG_BROADCAST, e))
1249 stopsoundto(MSG_BROADCAST, e, chan); // unreliable, gets there fast
1250 stopsoundto(MSG_ALL, e, chan); // in case of packet loss
1253 void play2(entity e, string filename)
1255 //stuffcmd(e, strcat("play2 ", filename, "\n"));
1257 soundtoat(MSG_ONE, world, '0 0 0', CH_INFO, filename, VOL_BASE, ATTN_NONE);
1260 // use this one if you might be causing spam (e.g. from touch functions that might get called more than once per frame)
1262 float spamsound(entity e, float chan, string samp, float vol, float atten)
1264 if (!sound_allowed(MSG_BROADCAST, e))
1267 if (time > e.spamtime)
1270 sound(e, chan, samp, vol, atten);
1276 void play2team(float t, string filename)
1280 if (autocvar_bot_sound_monopoly)
1283 FOR_EACH_REALPLAYER(head)
1286 play2(head, filename);
1290 void play2all(string samp)
1292 if (autocvar_bot_sound_monopoly)
1295 sound(world, CH_INFO, samp, VOL_BASE, ATTN_NONE);
1298 void PrecachePlayerSounds(string f);
1299 void precache_playermodel(string m)
1301 float globhandle, i, n;
1304 if(substring(m, -9,5) == "_lod1")
1306 if(substring(m, -9,5) == "_lod2")
1309 f = strcat(substring(m, 0, -5), "_lod1", substring(m, -4, -1));
1312 f = strcat(substring(m, 0, -5), "_lod2", substring(m, -4, -1));
1316 globhandle = search_begin(strcat(m, "_*.sounds"), TRUE, FALSE);
1319 n = search_getsize(globhandle);
1320 for (i = 0; i < n; ++i)
1322 //print(search_getfilename(globhandle, i), "\n");
1323 f = search_getfilename(globhandle, i);
1324 PrecachePlayerSounds(f);
1326 search_end(globhandle);
1328 void precache_all_playermodels(string pattern)
1330 float globhandle, i, n;
1333 globhandle = search_begin(pattern, TRUE, FALSE);
1336 n = search_getsize(globhandle);
1337 for (i = 0; i < n; ++i)
1339 //print(search_getfilename(globhandle, i), "\n");
1340 f = search_getfilename(globhandle, i);
1341 precache_playermodel(f);
1343 search_end(globhandle);
1348 // gamemode related things
1349 precache_model ("models/misc/chatbubble.spr");
1351 #ifdef TTURRETS_ENABLED
1352 if (autocvar_g_turrets)
1356 // Precache all player models if desired
1357 if (autocvar_sv_precacheplayermodels)
1359 PrecachePlayerSounds("sound/player/default.sounds");
1360 precache_all_playermodels("models/player/*.zym");
1361 precache_all_playermodels("models/player/*.dpm");
1362 precache_all_playermodels("models/player/*.md3");
1363 precache_all_playermodels("models/player/*.psk");
1364 precache_all_playermodels("models/player/*.iqm");
1367 if (autocvar_sv_defaultcharacter)
1370 s = autocvar_sv_defaultplayermodel_red;
1372 precache_playermodel(s);
1373 s = autocvar_sv_defaultplayermodel_blue;
1375 precache_playermodel(s);
1376 s = autocvar_sv_defaultplayermodel_yellow;
1378 precache_playermodel(s);
1379 s = autocvar_sv_defaultplayermodel_pink;
1381 precache_playermodel(s);
1382 s = autocvar_sv_defaultplayermodel;
1384 precache_playermodel(s);
1389 PrecacheGlobalSound((globalsound_step = "misc/footstep0 6"));
1390 PrecacheGlobalSound((globalsound_metalstep = "misc/metalfootstep0 6"));
1393 // gore and miscellaneous sounds
1394 //precache_sound ("misc/h2ohit.wav");
1395 precache_model ("models/hook.md3");
1396 precache_sound ("misc/armorimpact.wav");
1397 precache_sound ("misc/bodyimpact1.wav");
1398 precache_sound ("misc/bodyimpact2.wav");
1399 precache_sound ("misc/gib.wav");
1400 precache_sound ("misc/gib_splat01.wav");
1401 precache_sound ("misc/gib_splat02.wav");
1402 precache_sound ("misc/gib_splat03.wav");
1403 precache_sound ("misc/gib_splat04.wav");
1404 PrecacheGlobalSound((globalsound_fall = "misc/hitground 4"));
1405 PrecacheGlobalSound((globalsound_metalfall = "misc/metalhitground 4"));
1406 precache_sound ("misc/null.wav");
1407 precache_sound ("misc/spawn.wav");
1408 precache_sound ("misc/talk.wav");
1409 precache_sound ("misc/teleport.wav");
1410 precache_sound ("misc/poweroff.wav");
1411 precache_sound ("player/lava.wav");
1412 precache_sound ("player/slime.wav");
1414 precache_model ("models/sprites/0.spr32");
1415 precache_model ("models/sprites/1.spr32");
1416 precache_model ("models/sprites/2.spr32");
1417 precache_model ("models/sprites/3.spr32");
1418 precache_model ("models/sprites/4.spr32");
1419 precache_model ("models/sprites/5.spr32");
1420 precache_model ("models/sprites/6.spr32");
1421 precache_model ("models/sprites/7.spr32");
1422 precache_model ("models/sprites/8.spr32");
1423 precache_model ("models/sprites/9.spr32");
1424 precache_model ("models/sprites/10.spr32");
1426 // common weapon precaches
1427 precache_sound ("weapons/reload.wav"); // until weapons have individual reload sounds, precache the reload sound here
1428 precache_sound ("weapons/weapon_switch.wav");
1429 precache_sound ("weapons/weaponpickup.wav");
1430 precache_sound ("weapons/unavailable.wav");
1431 precache_sound ("weapons/dryfire.wav");
1432 if (g_grappling_hook)
1434 precache_sound ("weapons/hook_fire.wav"); // hook
1435 precache_sound ("weapons/hook_impact.wav"); // hook
1438 if(autocvar_sv_precacheweapons)
1440 //precache weapon models/sounds
1443 while (wep <= WEP_LAST)
1445 weapon_action(wep, WR_PRECACHE);
1450 precache_model("models/elaser.mdl");
1451 precache_model("models/laser.mdl");
1452 precache_model("models/ebomb.mdl");
1455 // Disabled this code because it simply does not work (e.g. ignores bgmvolume, overlaps with "cd loop" controlled tracks).
1457 if (!self.noise && self.music) // quake 3 uses the music field
1458 self.noise = self.music;
1460 // plays music for the level if there is any
1463 precache_sound (self.noise);
1464 ambientsound ('0 0 0', self.noise, VOL_BASE, ATTN_NONE);
1469 // WARNING: this kills the trace globals
1470 #define EXACTTRIGGER_TOUCH if(WarpZoneLib_ExactTrigger_Touch()) return
1471 #define EXACTTRIGGER_INIT WarpZoneLib_ExactTrigger_Init()
1473 #define INITPRIO_FIRST 0
1474 #define INITPRIO_GAMETYPE 0
1475 #define INITPRIO_GAMETYPE_FALLBACK 1
1476 #define INITPRIO_FINDTARGET 10
1477 #define INITPRIO_DROPTOFLOOR 20
1478 #define INITPRIO_SETLOCATION 90
1479 #define INITPRIO_LINKDOORS 91
1480 #define INITPRIO_LAST 99
1482 .void(void) initialize_entity;
1483 .float initialize_entity_order;
1484 .entity initialize_entity_next;
1485 entity initialize_entity_first;
1487 void make_safe_for_remove(entity e)
1489 if (e.initialize_entity)
1491 entity ent, prev = world;
1492 for (ent = initialize_entity_first; ent; )
1494 if ((ent == e) || ((ent.classname == "initialize_entity") && (ent.enemy == e)))
1496 //print("make_safe_for_remove: getting rid of initializer ", etos(ent), "\n");
1497 // skip it in linked list
1500 prev.initialize_entity_next = ent.initialize_entity_next;
1501 ent = prev.initialize_entity_next;
1505 initialize_entity_first = ent.initialize_entity_next;
1506 ent = initialize_entity_first;
1512 ent = ent.initialize_entity_next;
1518 void objerror(string s)
1520 make_safe_for_remove(self);
1521 builtin_objerror(s);
1524 .float remove_except_protected_forbidden;
1525 void remove_except_protected(entity e)
1527 if(e.remove_except_protected_forbidden)
1528 error("not allowed to remove this at this point");
1532 void remove_unsafely(entity e)
1534 if(e.classname == "spike")
1535 error("Removing spikes is forbidden (crylink bug), please report");
1539 void remove_safely(entity e)
1541 make_safe_for_remove(e);
1545 void InitializeEntity(entity e, void(void) func, float order)
1549 if (!e || e.initialize_entity)
1551 // make a proxy initializer entity
1555 e.classname = "initialize_entity";
1559 e.initialize_entity = func;
1560 e.initialize_entity_order = order;
1562 cur = initialize_entity_first;
1566 if (!cur || cur.initialize_entity_order > order)
1568 // insert between prev and cur
1570 prev.initialize_entity_next = e;
1572 initialize_entity_first = e;
1573 e.initialize_entity_next = cur;
1577 cur = cur.initialize_entity_next;
1580 void InitializeEntitiesRun()
1583 startoflist = initialize_entity_first;
1584 initialize_entity_first = world;
1585 remove = remove_except_protected;
1586 for (self = startoflist; self; self = self.initialize_entity_next)
1588 self.remove_except_protected_forbidden = 1;
1590 for (self = startoflist; self; )
1593 var void(void) func;
1594 e = self.initialize_entity_next;
1595 func = self.initialize_entity;
1596 self.initialize_entity_order = 0;
1597 self.initialize_entity = func_null;
1598 self.initialize_entity_next = world;
1599 self.remove_except_protected_forbidden = 0;
1600 if (self.classname == "initialize_entity")
1604 builtin_remove(self);
1607 //dprint("Delayed initialization: ", self.classname, "\n");
1613 backtrace(strcat("Null function in: ", self.classname, "\n"));
1617 remove = remove_unsafely;
1620 .float uncustomizeentityforclient_set;
1621 .void(void) uncustomizeentityforclient;
1622 void UncustomizeEntitiesRun()
1626 for (self = world; (self = findfloat(self, uncustomizeentityforclient_set, 1)); )
1627 self.uncustomizeentityforclient();
1630 void SetCustomizer(entity e, float(void) customizer, void(void) uncustomizer)
1632 e.customizeentityforclient = customizer;
1633 e.uncustomizeentityforclient = uncustomizer;
1634 e.uncustomizeentityforclient_set = !!uncustomizer;
1638 #define IFTARGETED if(!self.nottargeted && self.targetname != "")
1641 void Net_LinkEntity(entity e, float docull, float dt, float(entity, float) sendfunc)
1645 if (e.classname == "")
1646 e.classname = "net_linked";
1648 if (e.model == "" || self.modelindex == 0)
1652 setmodel(e, "null");
1656 e.SendEntity = sendfunc;
1657 e.SendFlags = 0xFFFFFF;
1660 e.effects |= EF_NODEPTHTEST;
1664 e.nextthink = time + dt;
1665 e.think = SUB_Remove;
1669 void adaptor_think2touch()
1678 void adaptor_think2use()
1690 void adaptor_think2use_hittype_splash() // for timed projectile detonation
1692 if not(self.flags & FL_ONGROUND) // if onground, we ARE touching something, but HITTYPE_SPLASH is to be networked if the damage causing projectile is not touching ANYTHING
1693 self.projectiledeathtype |= HITTYPE_SPLASH;
1694 adaptor_think2use();
1697 // deferred dropping
1698 void DropToFloor_Handler()
1700 builtin_droptofloor();
1701 self.dropped_origin = self.origin;
1706 InitializeEntity(self, DropToFloor_Handler, INITPRIO_DROPTOFLOOR);
1711 float trace_hits_box_a0, trace_hits_box_a1;
1713 float trace_hits_box_1d(float end, float thmi, float thma)
1717 // just check if x is in range
1725 // do the trace with respect to x
1726 // 0 -> end has to stay in thmi -> thma
1727 trace_hits_box_a0 = max(trace_hits_box_a0, min(thmi / end, thma / end));
1728 trace_hits_box_a1 = min(trace_hits_box_a1, max(thmi / end, thma / end));
1729 if (trace_hits_box_a0 > trace_hits_box_a1)
1735 float trace_hits_box(vector start, vector end, vector thmi, vector thma)
1740 // now it is a trace from 0 to end
1742 trace_hits_box_a0 = 0;
1743 trace_hits_box_a1 = 1;
1745 if (!trace_hits_box_1d(end_x, thmi_x, thma_x))
1747 if (!trace_hits_box_1d(end_y, thmi_y, thma_y))
1749 if (!trace_hits_box_1d(end_z, thmi_z, thma_z))
1755 float tracebox_hits_box(vector start, vector mi, vector ma, vector end, vector thmi, vector thma)
1757 return trace_hits_box(start, end, thmi - ma, thma - mi);
1760 float SUB_NoImpactCheck()
1762 // zero hitcontents = this is not the real impact, but either the
1763 // mirror-impact of something hitting the projectile instead of the
1764 // projectile hitting the something, or a touchareagrid one. Neither of
1765 // these stop the projectile from moving, so...
1766 if(trace_dphitcontents == 0)
1768 //dprint("A hit happened with zero hit contents... DEBUG THIS, this should never happen for projectiles! Projectile will self-destruct.\n");
1769 dprint(sprintf(_("A hit from a projectile happened with no hit contents! DEBUG THIS, this should never happen for projectiles! Profectile will self-destruct. (edict: %d, classname: %s, origin: %s)\n"), num_for_edict(self), self.classname, vtos(self.origin)));
1772 if (trace_dphitq3surfaceflags & Q3SURFACEFLAG_NOIMPACT)
1774 if (other == world && self.size != '0 0 0')
1777 tic = self.velocity * sys_frametime;
1778 tic = tic + normalize(tic) * vlen(self.maxs - self.mins);
1779 traceline(self.origin - tic, self.origin + tic, MOVE_NORMAL, self);
1780 if (trace_fraction >= 1)
1782 dprint("Odd... did not hit...?\n");
1784 else if (trace_dphitq3surfaceflags & Q3SURFACEFLAG_NOIMPACT)
1786 dprint("Detected and prevented the sky-grapple bug.\n");
1794 #define SUB_OwnerCheck() (other && (other == self.owner))
1796 void RemoveGrapplingHook(entity pl);
1797 void W_Crylink_Dequeue(entity e);
1798 float WarpZone_Projectile_Touch_ImpactFilter_Callback()
1800 if(SUB_OwnerCheck())
1802 if(SUB_NoImpactCheck())
1804 if(self.classname == "grapplinghook")
1805 RemoveGrapplingHook(self.realowner);
1806 else if(self.classname == "spike")
1808 W_Crylink_Dequeue(self);
1815 if(trace_ent && trace_ent.solid > SOLID_TRIGGER)
1816 UpdateCSQCProjectile(self);
1819 #define PROJECTILE_TOUCH if(WarpZone_Projectile_Touch()) return
1821 #define ITEM_TOUCH_NEEDKILL() (((trace_dpstartcontents | trace_dphitcontents) & DPCONTENTS_NODROP) || (trace_dphitq3surfaceflags & Q3SURFACEFLAG_SKY))
1822 #define ITEM_DAMAGE_NEEDKILL(dt) (((dt) == DEATH_HURTTRIGGER) || ((dt) == DEATH_SLIME) || ((dt) == DEATH_LAVA) || ((dt) == DEATH_SWAMP))
1824 void URI_Get_Callback(float id, float status, string data)
1826 if(url_URI_Get_Callback(id, status, data))
1830 else if (id == URI_GET_DISCARD)
1834 else if (id >= URI_GET_CURL && id <= URI_GET_CURL_END)
1837 Curl_URI_Get_Callback(id, status, data);
1839 else if (id >= URI_GET_IPBAN && id <= URI_GET_IPBAN_END)
1842 OnlineBanList_URI_Get_Callback(id, status, data);
1846 print("Received HTTP request data for an invalid id ", ftos(id), ".\n");
1850 string uid2name(string myuid) {
1852 s = db_get(ServerProgsDB, strcat("/uid2name/", myuid));
1854 // FIXME remove this later after 0.6 release
1855 // convert old style broken records to correct style
1858 s = db_get(ServerProgsDB, strcat("uid2name", myuid));
1861 db_put(ServerProgsDB, strcat("/uid2name/", myuid), s);
1862 db_put(ServerProgsDB, strcat("uid2name", myuid), "");
1867 s = "^1Unregistered Player";
1871 float race_readTime(string map, float pos)
1879 return stof(db_get(ServerProgsDB, strcat(map, rr, "time", ftos(pos))));
1882 string race_readUID(string map, float pos)
1890 return db_get(ServerProgsDB, strcat(map, rr, "crypto_idfp", ftos(pos)));
1893 float race_readPos(string map, float t) {
1895 for (i = 1; i <= RANKINGS_CNT; ++i)
1896 if (race_readTime(map, i) == 0 || race_readTime(map, i) > t)
1899 return 0; // pos is zero if unranked
1902 void race_writeTime(string map, float t, string myuid)
1911 newpos = race_readPos(map, t);
1913 float i, prevpos = 0;
1914 for(i = 1; i <= RANKINGS_CNT; ++i)
1916 if(race_readUID(map, i) == myuid)
1919 if (prevpos) { // player improved his existing record, only have to iterate on ranks between new and old recs
1920 for (i = prevpos; i > newpos; --i) {
1921 db_put(ServerProgsDB, strcat(map, rr, "time", ftos(i)), ftos(race_readTime(map, i - 1)));
1922 db_put(ServerProgsDB, strcat(map, rr, "crypto_idfp", ftos(i)), race_readUID(map, i - 1));
1924 } else { // player has no ranked record yet
1925 for (i = RANKINGS_CNT; i > newpos; --i) {
1926 db_put(ServerProgsDB, strcat(map, rr, "time", ftos(i)), ftos(race_readTime(map, i - 1)));
1927 db_put(ServerProgsDB, strcat(map, rr, "crypto_idfp", ftos(i)), race_readUID(map, i - 1));
1931 // store new time itself
1932 db_put(ServerProgsDB, strcat(map, rr, "time", ftos(newpos)), ftos(t));
1933 db_put(ServerProgsDB, strcat(map, rr, "crypto_idfp", ftos(newpos)), myuid);
1936 string race_readName(string map, float pos)
1944 return uid2name(db_get(ServerProgsDB, strcat(map, rr, "crypto_idfp", ftos(pos))));
1947 float MoveToRandomMapLocation(entity e, float goodcontents, float badcontents, float badsurfaceflags, float attempts, float maxaboveground, float minviewdistance)
1950 vector start, org, delta, end, enddown, mstart;
1953 m = e.dphitcontentsmask;
1954 e.dphitcontentsmask = goodcontents | badcontents;
1957 delta = world.maxs - world.mins;
1961 for (i = 0; i < attempts; ++i)
1963 start_x = org_x + random() * delta_x;
1964 start_y = org_y + random() * delta_y;
1965 start_z = org_z + random() * delta_z;
1967 // rule 1: start inside world bounds, and outside
1968 // solid, and don't start from somewhere where you can
1969 // fall down to evil
1970 tracebox(start, e.mins, e.maxs, start - '0 0 1' * delta_z, MOVE_NORMAL, e);
1971 if (trace_fraction >= 1)
1973 if (trace_startsolid)
1975 if (trace_dphitcontents & badcontents)
1977 if (trace_dphitq3surfaceflags & badsurfaceflags)
1980 // rule 2: if we are too high, lower the point
1981 if (trace_fraction * delta_z > maxaboveground)
1982 start = trace_endpos + '0 0 1' * maxaboveground;
1983 enddown = trace_endpos;
1985 // rule 3: make sure we aren't outside the map. This only works
1986 // for somewhat well formed maps. A good rule of thumb is that
1987 // the map should have a convex outside hull.
1988 // these can be traceLINES as we already verified the starting box
1989 mstart = start + 0.5 * (e.mins + e.maxs);
1990 traceline(mstart, mstart + '1 0 0' * delta_x, MOVE_NORMAL, e);
1991 if (trace_fraction >= 1)
1993 traceline(mstart, mstart - '1 0 0' * delta_x, MOVE_NORMAL, e);
1994 if (trace_fraction >= 1)
1996 traceline(mstart, mstart + '0 1 0' * delta_y, MOVE_NORMAL, e);
1997 if (trace_fraction >= 1)
1999 traceline(mstart, mstart - '0 1 0' * delta_y, MOVE_NORMAL, e);
2000 if (trace_fraction >= 1)
2002 traceline(mstart, mstart + '0 0 1' * delta_z, MOVE_NORMAL, e);
2003 if (trace_fraction >= 1)
2006 // rule 4: we must "see" some spawnpoint
2007 for(sp = world; (sp = find(sp, classname, "info_player_deathmatch")); )
2008 if(checkpvs(mstart, sp))
2012 for(sp = world; (sp = findflags(sp, flags, FL_ITEM)); )
2013 if(checkpvs(mstart, sp))
2019 // find a random vector to "look at"
2020 end_x = org_x + random() * delta_x;
2021 end_y = org_y + random() * delta_y;
2022 end_z = org_z + random() * delta_z;
2023 end = start + normalize(end - start) * vlen(delta);
2025 // rule 4: start TO end must not be too short
2026 tracebox(start, e.mins, e.maxs, end, MOVE_NORMAL, e);
2027 if (trace_startsolid)
2029 if (trace_fraction < minviewdistance / vlen(delta))
2032 // rule 5: don't want to look at sky
2033 if (trace_dphitq3surfaceflags & Q3SURFACEFLAG_SKY)
2036 // rule 6: we must not end up in trigger_hurt
2037 if (tracebox_hits_trigger_hurt(start, e.mins, e.maxs, enddown))
2043 e.dphitcontentsmask = m;
2047 setorigin(e, start);
2048 e.angles = vectoangles(end - start);
2049 dprint("Needed ", ftos(i + 1), " attempts\n");
2056 float zcurveparticles_effectno;
2057 vector zcurveparticles_start;
2058 float zcurveparticles_spd;
2060 void endzcurveparticles()
2062 if(zcurveparticles_effectno)
2065 WriteShort(MSG_BROADCAST, zcurveparticles_spd | 0x8000);
2067 zcurveparticles_effectno = 0;
2070 void zcurveparticles(float effectno, vector start, vector end, float end_dz, float spd)
2072 spd = bound(0, floor(spd / 16), 32767);
2073 if(effectno != zcurveparticles_effectno || start != zcurveparticles_start)
2075 endzcurveparticles();
2076 WriteByte(MSG_BROADCAST, SVC_TEMPENTITY);
2077 WriteByte(MSG_BROADCAST, TE_CSQC_ZCURVEPARTICLES);
2078 WriteShort(MSG_BROADCAST, effectno);
2079 WriteCoord(MSG_BROADCAST, start_x);
2080 WriteCoord(MSG_BROADCAST, start_y);
2081 WriteCoord(MSG_BROADCAST, start_z);
2082 zcurveparticles_effectno = effectno;
2083 zcurveparticles_start = start;
2086 WriteShort(MSG_BROADCAST, zcurveparticles_spd);
2087 WriteCoord(MSG_BROADCAST, end_x);
2088 WriteCoord(MSG_BROADCAST, end_y);
2089 WriteCoord(MSG_BROADCAST, end_z);
2090 WriteCoord(MSG_BROADCAST, end_dz);
2091 zcurveparticles_spd = spd;
2094 void zcurveparticles_from_tracetoss(float effectno, vector start, vector end, vector vel)
2097 vector vecxy, velxy;
2099 vecxy = end - start;
2104 if (vlen(velxy) < 0.000001 * fabs(vel_z))
2106 endzcurveparticles();
2107 trailparticles(world, effectno, start, end);
2111 end_dz = vlen(vecxy) / vlen(velxy) * vel_z - (end_z - start_z);
2112 zcurveparticles(effectno, start, end, end_dz, vlen(vel));
2115 void write_recordmarker(entity pl, float tstart, float dt)
2117 GameLogEcho(strcat(":recordset:", ftos(pl.playerid), ":", ftos(dt)));
2119 // also write a marker into demo files for demotc-race-record-extractor to find
2122 strcat("//", strconv(2, 0, 0, GetGametype()), " RECORD SET ", TIME_ENCODED_TOSTRING(TIME_ENCODE(dt))),
2123 " ", ftos(tstart), " ", ftos(dt), "\n"));
2126 vector shotorg_adjustfromclient(vector vecs, float y_is_right, float allowcenter, float algn)
2139 if(allowcenter) // 2: allow center handedness
2152 if(allowcenter) // 2: allow center handedness
2168 vector shotorg_adjust_values(vector vecs, float y_is_right, float visual, float algn)
2173 if (autocvar_g_shootfromeye)
2177 if (autocvar_g_shootfromclient) { vecs = shotorg_adjustfromclient(vecs, y_is_right, (autocvar_g_shootfromclient >= 2), algn); }
2178 else { vecs_y = 0; vecs_z -= 2; }
2186 else if (autocvar_g_shootfromcenter)
2191 else if ((s = autocvar_g_shootfromfixedorigin) != "")
2201 else if (autocvar_g_shootfromclient)
2203 vecs = shotorg_adjustfromclient(vecs, y_is_right, (autocvar_g_shootfromclient >= 2), algn);
2208 vector shotorg_adjust(vector vecs, float y_is_right, float visual)
2210 return shotorg_adjust_values(vecs, y_is_right, visual, self.owner.cvar_cl_gunalign);
2214 void attach_sameorigin(entity e, entity to, string tag)
2216 vector org, t_forward, t_left, t_up, e_forward, e_up;
2219 org = e.origin - gettaginfo(to, gettagindex(to, tag));
2220 tagscale = pow(vlen(v_forward), -2); // undo a scale on the tag
2221 t_forward = v_forward * tagscale;
2222 t_left = v_right * -tagscale;
2223 t_up = v_up * tagscale;
2225 e.origin_x = org * t_forward;
2226 e.origin_y = org * t_left;
2227 e.origin_z = org * t_up;
2229 // current forward and up directions
2230 if (substring(e.model, 0, 1) == "*") // bmodels have their own rules
2231 e.angles = AnglesTransform_FromVAngles(e.angles);
2233 e.angles = AnglesTransform_FromAngles(e.angles);
2234 fixedmakevectors(e.angles);
2236 // untransform forward, up!
2237 e_forward_x = v_forward * t_forward;
2238 e_forward_y = v_forward * t_left;
2239 e_forward_z = v_forward * t_up;
2240 e_up_x = v_up * t_forward;
2241 e_up_y = v_up * t_left;
2242 e_up_z = v_up * t_up;
2244 e.angles = fixedvectoangles2(e_forward, e_up);
2245 if (substring(e.model, 0, 1) == "*") // bmodels have their own rules
2246 e.angles = AnglesTransform_ToVAngles(e.angles);
2248 e.angles = AnglesTransform_ToAngles(e.angles);
2250 setattachment(e, to, tag);
2251 setorigin(e, e.origin);
2254 void detach_sameorigin(entity e)
2257 org = gettaginfo(e, 0);
2258 e.angles = fixedvectoangles2(v_forward, v_up);
2259 if (substring(e.model, 0, 1) == "*") // bmodels have their own rules
2260 e.angles = AnglesTransform_ToVAngles(e.angles);
2262 e.angles = AnglesTransform_ToAngles(e.angles);
2264 setattachment(e, world, "");
2265 setorigin(e, e.origin);
2268 void follow_sameorigin(entity e, entity to)
2270 e.movetype = MOVETYPE_FOLLOW; // make the hole follow
2271 e.aiment = to; // make the hole follow bmodel
2272 e.punchangle = to.angles; // the original angles of bmodel
2273 e.view_ofs = e.origin - to.origin; // relative origin
2274 e.v_angle = e.angles - to.angles; // relative angles
2277 void unfollow_sameorigin(entity e)
2279 e.movetype = MOVETYPE_NONE;
2282 entity gettaginfo_relative_ent;
2283 vector gettaginfo_relative(entity e, float tag)
2285 if (!gettaginfo_relative_ent)
2287 gettaginfo_relative_ent = spawn();
2288 gettaginfo_relative_ent.effects = EF_NODRAW;
2290 gettaginfo_relative_ent.model = e.model;
2291 gettaginfo_relative_ent.modelindex = e.modelindex;
2292 gettaginfo_relative_ent.frame = e.frame;
2293 return gettaginfo(gettaginfo_relative_ent, tag);
2298 float modeleffect_SendEntity(entity to, float sf)
2301 WriteByte(MSG_ENTITY, ENT_CLIENT_MODELEFFECT);
2304 if(self.velocity != '0 0 0')
2306 if(self.angles != '0 0 0')
2308 if(self.avelocity != '0 0 0')
2311 WriteByte(MSG_ENTITY, f);
2312 WriteShort(MSG_ENTITY, self.modelindex);
2313 WriteByte(MSG_ENTITY, self.skin);
2314 WriteByte(MSG_ENTITY, self.frame);
2315 WriteCoord(MSG_ENTITY, self.origin_x);
2316 WriteCoord(MSG_ENTITY, self.origin_y);
2317 WriteCoord(MSG_ENTITY, self.origin_z);
2320 WriteCoord(MSG_ENTITY, self.velocity_x);
2321 WriteCoord(MSG_ENTITY, self.velocity_y);
2322 WriteCoord(MSG_ENTITY, self.velocity_z);
2326 WriteCoord(MSG_ENTITY, self.angles_x);
2327 WriteCoord(MSG_ENTITY, self.angles_y);
2328 WriteCoord(MSG_ENTITY, self.angles_z);
2332 WriteCoord(MSG_ENTITY, self.avelocity_x);
2333 WriteCoord(MSG_ENTITY, self.avelocity_y);
2334 WriteCoord(MSG_ENTITY, self.avelocity_z);
2336 WriteShort(MSG_ENTITY, self.scale * 256.0);
2337 WriteShort(MSG_ENTITY, self.scale2 * 256.0);
2338 WriteByte(MSG_ENTITY, self.teleport_time * 100.0);
2339 WriteByte(MSG_ENTITY, self.fade_time * 100.0);
2340 WriteByte(MSG_ENTITY, self.alpha * 255.0);
2345 void modeleffect_spawn(string m, float s, float f, vector o, vector v, vector ang, vector angv, float s0, float s2, float a, float t1, float t2)
2350 e.classname = "modeleffect";
2358 e.teleport_time = t1;
2362 e.scale = s0 / max6(-e.mins_x, -e.mins_y, -e.mins_z, e.maxs_x, e.maxs_y, e.maxs_z);
2366 e.scale2 = s2 / max6(-e.mins_x, -e.mins_y, -e.mins_z, e.maxs_x, e.maxs_y, e.maxs_z);
2369 sz = max(e.scale, e.scale2);
2370 setsize(e, e.mins * sz, e.maxs * sz);
2371 Net_LinkEntity(e, FALSE, 0.1, modeleffect_SendEntity);
2374 void shockwave_spawn(string m, vector org, float sz, float t1, float t2)
2376 return modeleffect_spawn(m, 0, 0, org, '0 0 0', '0 0 0', '0 0 0', 0, sz, 1, t1, t2);
2379 float randombit(float bits)
2381 if not(bits & (bits-1)) // this ONLY holds for powers of two!
2390 for(f = 1; f <= bits; f *= 2)
2399 r = (r - 1) / (n - 1);
2406 float randombits(float bits, float k, float error_return)
2410 while(k > 0 && bits != r)
2412 r += randombit(bits - r);
2421 void randombit_test(float bits, float iter)
2425 print(ftos(randombit(bits)), "\n");
2430 float ExponentialFalloff(float mindist, float maxdist, float halflifedist, float d)
2432 if(halflifedist > 0)
2433 return pow(0.5, (bound(mindist, d, maxdist) - mindist) / halflifedist);
2434 else if(halflifedist < 0)
2435 return pow(0.5, (bound(mindist, d, maxdist) - maxdist) / halflifedist);
2444 #define cvar_string_normal builtin_cvar_string
2445 #define cvar_normal builtin_cvar
2447 string cvar_string_normal(string n)
2449 if not(cvar_type(n) & 1)
2450 backtrace(strcat("Attempt to access undefined cvar: ", n));
2451 return builtin_cvar_string(n);
2454 float cvar_normal(string n)
2456 return stof(cvar_string_normal(n));
2459 #define cvar_set_normal builtin_cvar_set
2467 oself.think = SUB_Remove;
2468 oself.nextthink = time;
2474 Execute func() after time + fdelay.
2475 self when func is executed = self when defer is called
2477 void defer(float fdelay, void() func)
2484 e.think = defer_think;
2485 e.nextthink = time + fdelay;
2488 .string aiment_classname;
2489 .float aiment_deadflag;
2490 void SetMovetypeFollow(entity ent, entity e)
2492 // FIXME this may not be warpzone aware
2493 ent.movetype = MOVETYPE_FOLLOW; // make the hole follow
2494 ent.solid = SOLID_NOT; // MOVETYPE_FOLLOW is always non-solid - this means this cannot be teleported by warpzones any more! Instead, we must notice when our owner gets teleported.
2495 ent.aiment = e; // make the hole follow bmodel
2496 ent.punchangle = e.angles; // the original angles of bmodel
2497 ent.view_ofs = ent.origin - e.origin; // relative origin
2498 ent.v_angle = ent.angles - e.angles; // relative angles
2499 ent.aiment_classname = strzone(e.classname);
2500 ent.aiment_deadflag = e.deadflag;
2502 void UnsetMovetypeFollow(entity ent)
2504 ent.movetype = MOVETYPE_FLY;
2505 PROJECTILE_MAKETRIGGER(ent);
2508 float LostMovetypeFollow(entity ent)
2511 if(ent.movetype != MOVETYPE_FOLLOW)
2517 if(ent.aiment.classname != ent.aiment_classname)
2519 if(ent.aiment.deadflag != ent.aiment_deadflag)
2525 float isPushable(entity e)
2534 case "droppedweapon":
2535 case "keepawayball":
2536 case "nexball_basketball":
2537 case "nexball_football":
2539 case "bullet": // antilagged bullets can't hit this either
2542 if (e.projectiledeathtype)