#include "main.qh"
-#include "anticheat.qh"
-#include "hook.qh"
-#include "damage.qh"
-#include "world.qh"
-#include "spawnpoints.qh"
+#include <common/command/generic.qh>
+#include <common/constants.qh>
+#include <common/deathtypes/all.qh>
+#include <common/debug.qh>
+#include <common/mapinfo.qh>
+#include <common/mapobjects/_mod.qh>
+#include <common/monsters/sv_monsters.qh>
+#include <common/util.qh>
+#include <common/vehicles/all.qh>
+#include <common/weapons/_all.qh>
+#include <lib/csqcmodel/sv_model.qh>
+#include <lib/warpzone/common.qh>
+#include <lib/warpzone/server.qh>
+#include <server/anticheat.qh>
+#include <server/bot/api.qh>
+#include <server/command/common.qh>
+#include <server/compat/quake3.qh>
+#include <server/damage.qh>
#include <server/gamelog.qh>
-
-#include "bot/api.qh"
-
-#include "command/common.qh"
-
+#include <server/hook.qh>
+#include <server/ipban.qh>
#include <server/mutators/_mod.qh>
-#include "weapons/csqcprojectile.qh"
+#include <server/spawnpoints.qh>
#include <server/weapons/common.qh>
-#include <server/compat/quake3.qh>
-
-#include "../common/constants.qh"
-#include "../common/deathtypes/all.qh"
-#include "../common/debug.qh"
-#include "../common/mapinfo.qh"
-#include "../common/util.qh"
+#include <server/weapons/csqcprojectile.qh>
+#include <server/world.qh>
-#include "../common/vehicles/all.qh"
-#include <common/monsters/sv_monsters.qh>
-#include <common/weapons/_all.qh>
-
-#include "../lib/csqcmodel/sv_model.qh"
+void dropclient_do(entity this)
+{
+ if (this.owner)
+ dropclient(this.owner);
+ delete(this);
+}
-#include "../lib/warpzone/common.qh"
-#include "../lib/warpzone/server.qh"
+/**
+ * Schedules dropclient for a player and returns true;
+ * if dropclient is already scheduled (for that player) it does nothing and returns false.
+ *
+ * NOTE: this function exists only to allow sending a message to the kicked player with
+ * Send_Notification, which doesn't work if called together with dropclient
+ */
+bool dropclient_schedule(entity this)
+{
+ bool scheduled = false;
+ FOREACH_ENTITY_CLASS("dropclient_handler", true,
+ {
+ if(it.owner == this)
+ {
+ scheduled = true;
+ break; // can't use return here, compiler shows a warning
+ }
+ });
+ if (scheduled)
+ return false;
+
+ entity e = new_pure(dropclient_handler);
+ setthink(e, dropclient_do);
+ e.owner = this;
+ e.nextthink = time + 0.1;
+ return true;
+}
void CreatureFrame_hotliquids(entity this)
{
bool have_hook = false;
for(int slot = 0; slot < MAX_WEAPONSLOTS; ++slot)
{
- .entity weaponentity = weaponentities[slot];
- if(this.(weaponentity).hook && this.(weaponentity).hook.state)
- {
- have_hook = true;
- break;
- }
+ .entity weaponentity = weaponentities[slot];
+ if(this.(weaponentity).hook && this.(weaponentity).hook.state)
+ {
+ have_hook = true;
+ break;
+ }
}
if(!have_hook)
{
});
}
-void Pause_TryPause(bool ispaused)
+// called shortly after map change in dedicated
+void Pause_TryPause_Dedicated(entity this)
{
- int n = 0;
- FOREACH_CLIENT(IS_PLAYER(it) && IS_REAL_CLIENT(it), {
- if (PHYS_INPUT_BUTTON_CHAT(it) != ispaused) return;
+ if (player_count == 0 && !intermission_running && !autocvar__endmatch)
+ setpause(1);
+}
+
+// called every normal frame in singleplayer/listen
+void Pause_TryPause()
+{
+ int n = 0, p = 0;
+ FOREACH_CLIENT(IS_REAL_CLIENT(it), {
+ if (PHYS_INPUT_BUTTON_CHAT(it)) ++p;
++n;
});
if (!n) return;
- setpause(ispaused);
+ if (n == p)
+ setpause(1);
+ else
+ setpause(0);
}
+// called every paused frame by DP
void SV_PausedTic(float elapsedtime)
{
- if (!server_is_dedicated) Pause_TryPause(false);
+ if (autocvar__endmatch) // `endmatch` while paused
+ setpause(0); // proceed to intermission
+ else if (!server_is_dedicated)
+ {
+ if (autocvar_sv_autopause)
+ Pause_TryPause();
+ else
+ setpause(0);
+ }
}
void dedicated_print(string input)
if (server_is_dedicated) print(input);
}
+void make_safe_for_remove(entity e)
+{
+ if (e.initialize_entity)
+ {
+ entity ent, prev = NULL;
+ for (ent = initialize_entity_first; ent; )
+ {
+ if ((ent == e) || ((ent.classname == "initialize_entity") && (ent.enemy == e)))
+ {
+ //print("make_safe_for_remove: getting rid of initializer ", etos(ent), "\n");
+ // skip it in linked list
+ if (prev)
+ {
+ prev.initialize_entity_next = ent.initialize_entity_next;
+ ent = prev.initialize_entity_next;
+ }
+ else
+ {
+ initialize_entity_first = ent.initialize_entity_next;
+ ent = initialize_entity_first;
+ }
+ }
+ else
+ {
+ prev = ent;
+ ent = ent.initialize_entity_next;
+ }
+ }
+ }
+}
+
+void remove_except_protected(entity e)
+{
+ if(e.remove_except_protected_forbidden)
+ error("not allowed to remove this at this point");
+ builtin_remove(e);
+}
+
+void remove_unsafely(entity e)
+{
+ if(e.classname == "spike")
+ error("Removing spikes is forbidden (crylink bug), please report");
+ builtin_remove(e);
+}
+
+void remove_safely(entity e)
+{
+ make_safe_for_remove(e);
+ builtin_remove(e);
+}
+
/*
=============
StartFrame
bool game_delay_last;
-bool autocvar_sv_autopause = false;
void systems_update();
void sys_phys_update(entity this, float dt);
void StartFrame()
{
- // TODO: if move is more than 50ms, split it into two moves (this matches QWSV behavior and the client prediction)
- IL_EACH(g_players, IS_FAKE_CLIENT(it), sys_phys_update(it, frametime));
- IL_EACH(g_players, IS_FAKE_CLIENT(it), PlayerPreThink(it));
+ FOREACH_CLIENT(IS_FAKE_CLIENT(it),
+ {
+ // DP calls these for real clients only
+ sys_phys_update(it, frametime); // called by SV_PlayerPhysics for players
+ PlayerPreThink(it);
+ });
execute_next_frame();
- if (autocvar_sv_autopause && !server_is_dedicated) Pause_TryPause(true);
delete_fn = remove_unsafely; // not during spawning!
serverprevtime = servertime;
++c_seen;
});
LOG_INFO(
- "CEFC time: ", ftos(t * 1000), "ms; ",
- "CEFC calls per second: ", ftos(c_seeing * (c_seen - 1) / t), "; ",
- "CEFC 100% load at: ", ftos(solve_quadratic(t, -t, -1) * '0 1 0')
- );
+ "CEFC time: ", ftos(t * 1000), "ms; ",
+ "CEFC calls per second: ", ftos(c_seeing * (c_seen - 1) / t), "; ",
+ "CEFC 100% load at: ", ftos(solve_quadratic(t, -t, -1) * '0 1 0')
+ );
client_cefc_accumulatortime = time;
client_cefc_accumulator = 0;
}
CreatureFrame_All();
CheckRules_World();
- if (warmup_stage && !game_stopped && warmup_limit > 0 && time >= warmup_limit) {
- ReadyRestart();
+ // after CheckRules_World() as it may set intermission_running, and after RedirectionThink() in case listen server is closing
+ if (autocvar_sv_autopause && !server_is_dedicated && !intermission_running)
+ Pause_TryPause();
+
+ if (warmup_stage && !game_stopped && warmup_limit > 0 && time - game_starttime >= warmup_limit) {
+ ReadyRestart(true);
return;
}
MUTATOR_CALLHOOK(SV_StartFrame);
GlobalStats_updateglobal();
- FOREACH_CLIENT(true, GlobalStats_update(it));
- IL_EACH(g_players, IS_FAKE_CLIENT(it), PlayerPostThink(it));
+ FOREACH_CLIENT(true,
+ {
+ GlobalStats_update(it);
+ if (IS_FAKE_CLIENT(it))
+ PlayerPostThink(it); // DP calls this for real clients only
+ PlayerFrame(it);
+ });
}
.vector originjitter;
.string gametypefilter;
.string cvarfilter;
-/**
- * Evaluate an expression of the form: [+ | -]? [var[op]val | [op]var | val | var] ...
- * +: all must match. this is the default
- * -: one must NOT match
- *
- * var>x
- * var<x
- * var>=x
- * var<=x
- * var==x
- * var!=x
- * var===x
- * var!==x
- */
-bool expr_evaluate(string s)
-{
- bool ret = false;
- if (str2chr(s, 0) == '+') {
- s = substring(s, 1, -1);
- } else if (str2chr(s, 0) == '-') {
- ret = true;
- s = substring(s, 1, -1);
- }
- bool expr_fail = false;
- for (int i = 0, n = tokenize_console(s); i < n; ++i) {
- int o;
- string k, v;
- s = argv(i);
- #define X(expr) \
- if (expr) \
- continue; \
- expr_fail = true; \
- break;
-
- #define BINOP(op, len, expr) \
- if ((o = strstrofs(s, op, 0)) >= 0) { \
- k = substring(s, 0, o); \
- v = substring(s, o + len, -1); \
- X(expr); \
- }
- BINOP(">=", 2, cvar(k) >= stof(v));
- BINOP("<=", 2, cvar(k) <= stof(v));
- BINOP(">", 1, cvar(k) > stof(v));
- BINOP("<", 1, cvar(k) < stof(v));
- BINOP("==", 2, cvar(k) == stof(v));
- BINOP("!=", 2, cvar(k) != stof(v));
- BINOP("===", 3, cvar_string(k) == v);
- BINOP("!==", 3, cvar_string(k) != v);
- {
- k = s;
- bool b = true;
- if (str2chr(k, 0) == '!') {
- k = substring(s, 1, -1);
- b = false;
- }
- float f = stof(k);
- bool isnum = ftos(f) == k;
- X(boolean(isnum ? f : cvar(k)) == b);
- }
- #undef BINOP
- #undef X
- }
- if (!expr_fail) {
- ret = !ret;
- }
- // now ret is true if we want to keep the item, and false if we want to get rid of it
- return ret;
-}
-
void SV_OnEntityPreSpawnFunction(entity this)
{
if (this)
return;
}
- if (DoesQ3ARemoveThisEntity(this)) {
+ if (q3compat && DoesQ3ARemoveThisEntity(this)) {
delete(this);
return;
}
if (this.monster_attack) {
IL_PUSH(g_monster_targets, this);
- }
+ }
// support special -1 and -2 angle from radiant
if (this.angles == '0 -1 0') {
this.angles = '-90 0 0';
} else if (this.angles == '0 -2 0') {
this.angles = '+90 0 0';
- }
+ }
- #define X(out, in) MACRO_BEGIN \
- if (in != 0) { out = out + (random() * 2 - 1) * in; } \
- MACRO_END
- X(this.origin.x, this.originjitter.x); X(this.origin.y, this.originjitter.y); X(this.origin.z, this.originjitter.z);
- X(this.angles.x, this.anglesjitter.x); X(this.angles.y, this.anglesjitter.y); X(this.angles.z, this.anglesjitter.z);
- X(this.angles.y, this.anglejitter);
- #undef X
+ #define X(out, in) MACRO_BEGIN \
+ if (in != 0) { out = out + (random() * 2 - 1) * in; } \
+ MACRO_END
+ X(this.origin.x, this.originjitter.x); X(this.origin.y, this.originjitter.y); X(this.origin.z, this.originjitter.z);
+ X(this.angles.x, this.anglesjitter.x); X(this.angles.y, this.anglesjitter.y); X(this.angles.z, this.anglesjitter.z);
+ X(this.angles.y, this.anglejitter);
+ #undef X
if (MUTATOR_CALLHOOK(OnEntityPreSpawn, this)) {
delete(this);
}
}
+string GetField_fullspawndata(entity e, string f, ...)
+/* Retrieves the value of a map entity field from fullspawndata
+ * This bypasses field value changes made by the engine,
+ * eg string-to-float and escape sequence substitution.
+ *
+ * Avoids the need to declare fields just to read them once :)
+ *
+ * Returns the last instance of the field to match DarkPlaces behaviour.
+ * Path support: converts \ to / and tests the file if a third (bool, true) arg is passed.
+ * Returns string_null if the entity does not have the field, or the file is not in the VFS.
+ *
+ * FIXME: entities with //comments are not supported.
+ */
+{
+ string v = string_null;
+
+ if (!e.fullspawndata)
+ {
+ //LOG_WARNF("^1EDICT %s (classname %s) has no fullspawndata, engine lacks support?", ftos(num_for_edict(e)), e.classname);
+ return v;
+ }
+
+ if (strstrofs(e.fullspawndata, "//", 0) >= 0)
+ {
+ // tokenize and tokenize_console return early if "//" is reached,
+ // which can leave an odd number of tokens and break key:value pairing.
+ LOG_WARNF("^1EDICT %s fullspawndata contains unsupported //comment^7%s", ftos(num_for_edict(e)), e.fullspawndata);
+ return v;
+ }
+
+ //print(sprintf("%s(EDICT %s, FIELD %s)\n", __FUNC__, ftos(num_for_edict(e)), f));
+ //print(strcat("FULLSPAWNDATA:", e.fullspawndata, "\n"));
+
+ // tokenize treats \ as an escape, but tokenize_console returns the required literal
+ for (int t = tokenize_console(e.fullspawndata) - 3; t > 0; t -= 2)
+ {
+ //print(sprintf("\tTOKEN %s:%s\t%s:%s\n", ftos(t), ftos(t + 1), argv(t), argv(t + 1)));
+ if (argv(t) == f)
+ {
+ v = argv(t + 1);
+ break;
+ }
+ }
+
+ //print(strcat("RESULT: ", v, "\n\n"));
+
+ if (v && ...(0, bool) == true)
+ {
+ v = strreplace("\\", "/", v);
+ if (whichpack(v) == "")
+ return string_null;
+ }
+
+ return v;
+}
+
+/*
+=============
+FindFileInMapPack
+
+Returns the first matching VFS file path that exists in the current map's pack.
+Returns string_null if no files match or the map isn't packaged.
+=============
+*/
+string FindFileInMapPack(string pattern)
+{
+ if (!checkextension("DP_QC_FS_SEARCH_PACKFILE"))
+ return string_null;
+
+ string base_pack = whichpack(strcat("maps/", mapname, ".bsp"));
+ if (base_pack == "" || !base_pack) // this map isn't packaged or there was an error
+ return string_null;
+
+ int glob = search_packfile_begin(pattern, true, true, base_pack);
+ if (glob < 0)
+ return string_null;
+
+ string file = search_getfilename(glob, 0);
+ search_end(glob);
+ return file;
+}
+
void WarpZone_PostInitialize_Callback()
{
// create waypoint links for warpzones
delete(tracetest_ent);
}
+/** engine callback */
+void URI_Get_Callback(float id, float status, string data)
+{
+ if(url_URI_Get_Callback(id, status, data))
+ {
+ // handled
+ }
+ else if (id == URI_GET_DISCARD)
+ {
+ // discard
+ }
+ else if (id >= URI_GET_CURL && id <= URI_GET_CURL_END)
+ {
+ // sv_cmd curl
+ Curl_URI_Get_Callback(id, status, data);
+ }
+ else if (id >= URI_GET_IPBAN && id <= URI_GET_IPBAN_END)
+ {
+ // online ban list
+ OnlineBanList_URI_Get_Callback(id, status, data);
+ }
+ else if (MUTATOR_CALLHOOK(URI_GetCallback, id, status, data))
+ {
+ // handled by a mutator
+ }
+ else
+ {
+ LOG_INFO("Received HTTP request data for an invalid id ", ftos(id), ".");
+ }
+}
+
/*
==================
main