globally rename model_t to dp_model_t for OpenSolaris. Sorry, guys who now have svn...
[divverent/darkplaces.git] / sv_main.c
1 /*
2 Copyright (C) 1996-1997 Id Software, Inc.
3
4 This program is free software; you can redistribute it and/or
5 modify it under the terms of the GNU General Public License
6 as published by the Free Software Foundation; either version 2
7 of the License, or (at your option) any later version.
8
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
12
13 See the GNU General Public License for more details.
14
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software
17 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
18
19 */
20 // sv_main.c -- server main program
21
22 #include "quakedef.h"
23 #include "sv_demo.h"
24 #include "libcurl.h"
25
26 static void SV_SaveEntFile_f(void);
27 static void SV_StartDownload_f(void);
28 static void SV_Download_f(void);
29 static void SV_VM_Setup();
30
31 void VM_CustomStats_Clear (void);
32 void VM_SV_UpdateCustomStats (client_t *client, prvm_edict_t *ent, sizebuf_t *msg, int *stats);
33 void EntityFrameCSQC_WriteFrame (sizebuf_t *msg, int numstates, const entity_state_t *states);
34
35 cvar_t coop = {0, "coop","0", "coop mode, 0 = no coop, 1 = coop mode, multiple players playing through the singleplayer game (coop mode also shuts off deathmatch)"};
36 cvar_t deathmatch = {0, "deathmatch","0", "deathmatch mode, values depend on mod but typically 0 = no deathmatch, 1 = normal deathmatch with respawning weapons, 2 = weapons stay (players can only pick up new weapons)"};
37 cvar_t fraglimit = {CVAR_NOTIFY, "fraglimit","0", "ends level if this many frags is reached by any player"};
38 cvar_t gamecfg = {0, "gamecfg", "0", "unused cvar in quake, can be used by mods"};
39 cvar_t noexit = {CVAR_NOTIFY, "noexit","0", "kills anyone attempting to use an exit"};
40 cvar_t nomonsters = {0, "nomonsters", "0", "unused cvar in quake, can be used by mods"};
41 cvar_t pausable = {0, "pausable","1", "allow players to pause or not"};
42 cvar_t pr_checkextension = {CVAR_READONLY, "pr_checkextension", "1", "indicates to QuakeC that the standard quakec extensions system is available (if 0, quakec should not attempt to use extensions)"};
43 cvar_t samelevel = {CVAR_NOTIFY, "samelevel","0", "repeats same level if level ends (due to timelimit or someone hitting an exit)"};
44 cvar_t skill = {0, "skill","1", "difficulty level of game, affects monster layouts in levels, 0 = easy, 1 = normal, 2 = hard, 3 = nightmare (same layout as hard but monsters fire twice)"};
45 cvar_t slowmo = {0, "slowmo", "1.0", "controls game speed, 0.5 is half speed, 2 is double speed"};
46
47 cvar_t sv_accelerate = {0, "sv_accelerate", "10", "rate at which a player accelerates to sv_maxspeed"};
48 cvar_t sv_aim = {CVAR_SAVE, "sv_aim", "2", "maximum cosine angle for quake's vertical autoaim, a value above 1 completely disables the autoaim, quake used 0.93"};
49 cvar_t sv_airaccel_qw = {0, "sv_airaccel_qw", "1", "ratio of QW-style air control as opposed to simple acceleration"};
50 cvar_t sv_airaccel_sideways_friction = {0, "sv_airaccel_sideways_friction", "", "anti-sideways movement stabilization (reduces speed gain when zigzagging)"};
51 cvar_t sv_airaccelerate = {0, "sv_airaccelerate", "-1", "rate at which a player accelerates to sv_maxairspeed while in the air, if less than 0 the sv_accelerate variable is used instead"};
52 cvar_t sv_allowdownloads = {0, "sv_allowdownloads", "1", "whether to allow clients to download files from the server (does not affect http downloads)"};
53 cvar_t sv_allowdownloads_archive = {0, "sv_allowdownloads_archive", "0", "whether to allow downloads of archives (pak/pk3)"};
54 cvar_t sv_allowdownloads_config = {0, "sv_allowdownloads_config", "0", "whether to allow downloads of config files (cfg)"};
55 cvar_t sv_allowdownloads_dlcache = {0, "sv_allowdownloads_dlcache", "0", "whether to allow downloads of dlcache files (dlcache/)"};
56 cvar_t sv_allowdownloads_inarchive = {0, "sv_allowdownloads_inarchive", "0", "whether to allow downloads from archives (pak/pk3)"};
57 cvar_t sv_areagrid_mingridsize = {CVAR_NOTIFY, "sv_areagrid_mingridsize", "64", "minimum areagrid cell size, smaller values work better for lots of small objects, higher values for large objects"};
58 cvar_t sv_checkforpacketsduringsleep = {0, "sv_checkforpacketsduringsleep", "0", "uses select() function to wait between frames which can be interrupted by packets being received, instead of Sleep()/usleep()/SDL_Sleep() functions which do not check for packets"};
59 cvar_t sv_clmovement_enable = {0, "sv_clmovement_enable", "1", "whether to allow clients to use cl_movement prediction, which can cause choppy movement on the server which may annoy other players"};
60 cvar_t sv_clmovement_minping = {0, "sv_clmovement_minping", "0", "if client ping is below this time in milliseconds, then their ability to use cl_movement prediction is disabled for a while (as they don't need it)"};
61 cvar_t sv_clmovement_minping_disabletime = {0, "sv_clmovement_minping_disabletime", "1000", "when client falls below minping, disable their prediction for this many milliseconds (should be at least 1000 or else their prediction may turn on/off frequently)"};
62 cvar_t sv_clmovement_waitforinput = {0, "sv_clmovement_waitforinput", "4", "when a client does not send input for this many frames, force them to move anyway (unlike QuakeWorld)"};
63 cvar_t sv_cullentities_nevercullbmodels = {0, "sv_cullentities_nevercullbmodels", "0", "if enabled the clients are always notified of moving doors and lifts and other submodels of world (warning: eats a lot of network bandwidth on some levels!)"};
64 cvar_t sv_cullentities_pvs = {0, "sv_cullentities_pvs", "1", "fast but loose culling of hidden entities"};
65 cvar_t sv_cullentities_stats = {0, "sv_cullentities_stats", "0", "displays stats on network entities culled by various methods for each client"};
66 cvar_t sv_cullentities_trace = {0, "sv_cullentities_trace", "0", "somewhat slow but very tight culling of hidden entities, minimizes network traffic and makes wallhack cheats useless"};
67 cvar_t sv_cullentities_trace_delay = {0, "sv_cullentities_trace_delay", "1", "number of seconds until the entity gets actually culled"};
68 cvar_t sv_cullentities_trace_enlarge = {0, "sv_cullentities_trace_enlarge", "0", "box enlargement for entity culling"};
69 cvar_t sv_cullentities_trace_prediction = {0, "sv_cullentities_trace_prediction", "1", "also trace from the predicted player position"};
70 cvar_t sv_cullentities_trace_samples = {0, "sv_cullentities_trace_samples", "1", "number of samples to test for entity culling"};
71 cvar_t sv_cullentities_trace_samples_extra = {0, "sv_cullentities_trace_samples_extra", "2", "number of samples to test for entity culling when the entity affects its surroundings by e.g. dlight"};
72 cvar_t sv_debugmove = {CVAR_NOTIFY, "sv_debugmove", "0", "disables collision detection optimizations for debugging purposes"};
73 cvar_t sv_echobprint = {CVAR_SAVE, "sv_echobprint", "1", "prints gamecode bprint() calls to server console"};
74 cvar_t sv_edgefriction = {0, "edgefriction", "2", "how much you slow down when nearing a ledge you might fall off"};
75 cvar_t sv_entpatch = {0, "sv_entpatch", "1", "enables loading of .ent files to override entities in the bsp (for example Threewave CTF server pack contains .ent patch files enabling play of CTF on id1 maps)"};
76 cvar_t sv_fixedframeratesingleplayer = {0, "sv_fixedframeratesingleplayer", "1", "allows you to use server-style timing system in singleplayer (don't run faster than sys_ticrate)"};
77 cvar_t sv_freezenonclients = {CVAR_NOTIFY, "sv_freezenonclients", "0", "freezes time, except for players, allowing you to walk around and take screenshots of explosions"};
78 cvar_t sv_friction = {CVAR_NOTIFY, "sv_friction","4", "how fast you slow down"};
79 cvar_t sv_gameplayfix_blowupfallenzombies = {0, "sv_gameplayfix_blowupfallenzombies", "1", "causes findradius to detect SOLID_NOT entities such as zombies and corpses on the floor, allowing splash damage to apply to them"};
80 cvar_t sv_gameplayfix_delayprojectiles = {0, "sv_gameplayfix_delayprojectiles", "1", "causes entities to not move on the same frame they are spawned, meaning that projectiles wait until the next frame to perform their first move, giving proper interpolation and rocket trails, but making weapons harder to use at low framerates"};
81 cvar_t sv_gameplayfix_droptofloorstartsolid = {0, "sv_gameplayfix_droptofloorstartsolid", "1", "prevents items and monsters that start in a solid area from falling out of the level (makes droptofloor treat trace_startsolid as an acceptable outcome)"};
82 cvar_t sv_gameplayfix_droptofloorstartsolid_nudgetocorrect = {0, "sv_gameplayfix_droptofloorstartsolid_nudgetocorrect", "1", "tries to nudge stuck items and monsters out of walls before droptofloor is performed"};
83 cvar_t sv_gameplayfix_easierwaterjump = {0, "sv_gameplayfix_easierwaterjump", "1", "changes water jumping to make it easier to get out of water (exactly like in QuakeWorld)"};
84 cvar_t sv_gameplayfix_findradiusdistancetobox = {0, "sv_gameplayfix_findradiusdistancetobox", "1", "causes findradius to check the distance to the corner of a box rather than the center of the box, makes findradius detect bmodels such as very large doors that would otherwise be unaffected by splash damage"};
85 cvar_t sv_gameplayfix_grenadebouncedownslopes = {0, "sv_gameplayfix_grenadebouncedownslopes", "1", "prevents MOVETYPE_BOUNCE (grenades) from getting stuck when fired down a downward sloping surface"};
86 cvar_t sv_gameplayfix_multiplethinksperframe = {0, "sv_gameplayfix_multiplethinksperframe", "1", "allows entities to think more often than the server framerate, primarily useful for very high fire rate weapons"};
87 cvar_t sv_gameplayfix_noairborncorpse = {0, "sv_gameplayfix_noairborncorpse", "1", "causes entities (corpses) sitting ontop of moving entities (players) to fall when the moving entity (player) is no longer supporting them"};
88 cvar_t sv_gameplayfix_setmodelrealbox = {0, "sv_gameplayfix_setmodelrealbox", "1", "fixes a bug in Quake that made setmodel always set the entity box to ('-16 -16 -16', '16 16 16') rather than properly checking the model box, breaks some poorly coded mods"};
89 cvar_t sv_gameplayfix_stepdown = {0, "sv_gameplayfix_stepdown", "0", "attempts to step down stairs, not just up them (prevents the familiar thud..thud..thud.. when running down stairs and slopes)"};
90 cvar_t sv_gameplayfix_stepwhilejumping = {0, "sv_gameplayfix_stepwhilejumping", "1", "applies step-up onto a ledge even while airborn, useful if you would otherwise just-miss the floor when running across small areas with gaps (for instance running across the moving platforms in dm2, or jumping to the megahealth and red armor in dm2 rather than using the bridge)"};
91 cvar_t sv_gameplayfix_swiminbmodels = {0, "sv_gameplayfix_swiminbmodels", "1", "causes pointcontents (used to determine if you are in a liquid) to check bmodel entities as well as the world model, so you can swim around in (possibly moving) water bmodel entities"};
92 cvar_t sv_gameplayfix_upwardvelocityclearsongroundflag = {0, "sv_gameplayfix_upwardvelocityclearsongroundflag", "1", "prevents monsters, items, and most other objects from being stuck to the floor when pushed around by damage, and other situations in mods"};
93 cvar_t sv_gravity = {CVAR_NOTIFY, "sv_gravity","800", "how fast you fall (512 = roughly earth gravity)"};
94 cvar_t sv_idealpitchscale = {0, "sv_idealpitchscale","0.8", "how much to look up/down slopes and stairs when not using freelook"};
95 cvar_t sv_jumpstep = {CVAR_NOTIFY, "sv_jumpstep", "0", "whether you can step up while jumping (sv_gameplayfix_stepwhilejumping must also be 1)"};
96 cvar_t sv_jumpvelocity = {0, "sv_jumpvelocity", "270", "cvar that can be used by QuakeC code for jump velocity"};
97 cvar_t sv_maxairspeed = {0, "sv_maxairspeed", "30", "maximum speed a player can accelerate to when airborn (note that it is possible to completely stop by moving the opposite direction)"};
98 cvar_t sv_maxrate = {CVAR_SAVE | CVAR_NOTIFY, "sv_maxrate", "1000000", "upper limit on client rate cvar, should reflect your network connection quality"};
99 cvar_t sv_maxspeed = {CVAR_NOTIFY, "sv_maxspeed", "320", "maximum speed a player can accelerate to when on ground (can be exceeded by tricks)"};
100 cvar_t sv_maxvelocity = {CVAR_NOTIFY, "sv_maxvelocity","2000", "universal speed limit on all entities"};
101 cvar_t sv_newflymove = {CVAR_NOTIFY, "sv_newflymove", "0", "enables simpler/buggier player physics (not recommended)"};
102 cvar_t sv_nostep = {CVAR_NOTIFY, "sv_nostep","0", "prevents MOVETYPE_STEP entities (monsters) from moving"};
103 cvar_t sv_playerphysicsqc = {CVAR_NOTIFY, "sv_playerphysicsqc", "1", "enables QuakeC function to override player physics"};
104 cvar_t sv_progs = {0, "sv_progs", "progs.dat", "selects which quakec progs.dat file to run" };
105 cvar_t sv_protocolname = {0, "sv_protocolname", "DP7", "selects network protocol to host for (values include QUAKE, QUAKEDP, NEHAHRAMOVIE, DP1 and up)"};
106 cvar_t sv_random_seed = {0, "sv_random_seed", "", "random seed; when set, on every map start this random seed is used to initialize the random number generator. Don't touch it unless for benchmarking or debugging"};
107 cvar_t sv_ratelimitlocalplayer = {0, "sv_ratelimitlocalplayer", "0", "whether to apply rate limiting to the local player in a listen server (only useful for testing)"};
108 cvar_t sv_sound_land = {0, "sv_sound_land", "demon/dland2.wav", "sound to play when MOVETYPE_STEP entity hits the ground at high speed (empty cvar disables the sound)"};
109 cvar_t sv_sound_watersplash = {0, "sv_sound_watersplash", "misc/h2ohit1.wav", "sound to play when MOVETYPE_FLY/TOSS/BOUNCE/STEP entity enters or leaves water (empty cvar disables the sound)"};
110 cvar_t sv_stepheight = {CVAR_NOTIFY, "sv_stepheight", "18", "how high you can step up (TW_SV_STEPCONTROL extension)"};
111 cvar_t sv_stopspeed = {CVAR_NOTIFY, "sv_stopspeed","100", "how fast you come to a complete stop"};
112 cvar_t sv_wallfriction = {CVAR_NOTIFY, "sv_wallfriction", "1", "how much you slow down when sliding along a wall"};
113 cvar_t sv_wateraccelerate = {0, "sv_wateraccelerate", "-1", "rate at which a player accelerates to sv_maxspeed while in the air, if less than 0 the sv_accelerate variable is used instead"};
114 cvar_t sv_waterfriction = {CVAR_NOTIFY, "sv_waterfriction","-1", "how fast you slow down, if less than 0 the sv_friction variable is used instead"};
115 cvar_t sys_ticrate = {CVAR_SAVE, "sys_ticrate","0.0138889", "how long a server frame is in seconds, 0.05 is 20fps server rate, 0.1 is 10fps (can not be set higher than 0.1), 0 runs as many server frames as possible (makes games against bots a little smoother, overwhelms network players), 0.0138889 matches QuakeWorld physics"};
116 cvar_t teamplay = {CVAR_NOTIFY, "teamplay","0", "teamplay mode, values depend on mod but typically 0 = no teams, 1 = no team damage no self damage, 2 = team damage and self damage, some mods support 3 = no team damage but can damage self"};
117 cvar_t timelimit = {CVAR_NOTIFY, "timelimit","0", "ends level at this time (in minutes)"};
118
119 cvar_t saved1 = {CVAR_SAVE, "saved1", "0", "unused cvar in quake that is saved to config.cfg on exit, can be used by mods"};
120 cvar_t saved2 = {CVAR_SAVE, "saved2", "0", "unused cvar in quake that is saved to config.cfg on exit, can be used by mods"};
121 cvar_t saved3 = {CVAR_SAVE, "saved3", "0", "unused cvar in quake that is saved to config.cfg on exit, can be used by mods"};
122 cvar_t saved4 = {CVAR_SAVE, "saved4", "0", "unused cvar in quake that is saved to config.cfg on exit, can be used by mods"};
123 cvar_t savedgamecfg = {CVAR_SAVE, "savedgamecfg", "0", "unused cvar in quake that is saved to config.cfg on exit, can be used by mods"};
124 cvar_t scratch1 = {0, "scratch1", "0", "unused cvar in quake, can be used by mods"};
125 cvar_t scratch2 = {0,"scratch2", "0", "unused cvar in quake, can be used by mods"};
126 cvar_t scratch3 = {0, "scratch3", "0", "unused cvar in quake, can be used by mods"};
127 cvar_t scratch4 = {0, "scratch4", "0", "unused cvar in quake, can be used by mods"};
128 cvar_t temp1 = {0, "temp1","0", "general cvar for mods to use, in stock id1 this selects which death animation to use on players (0 = random death, other values select specific death scenes)"};
129
130 cvar_t nehx00 = {0, "nehx00", "0", "nehahra data storage cvar (used in singleplayer)"};
131 cvar_t nehx01 = {0, "nehx01", "0", "nehahra data storage cvar (used in singleplayer)"};
132 cvar_t nehx02 = {0, "nehx02", "0", "nehahra data storage cvar (used in singleplayer)"};
133 cvar_t nehx03 = {0, "nehx03", "0", "nehahra data storage cvar (used in singleplayer)"};
134 cvar_t nehx04 = {0, "nehx04", "0", "nehahra data storage cvar (used in singleplayer)"};
135 cvar_t nehx05 = {0, "nehx05", "0", "nehahra data storage cvar (used in singleplayer)"};
136 cvar_t nehx06 = {0, "nehx06", "0", "nehahra data storage cvar (used in singleplayer)"};
137 cvar_t nehx07 = {0, "nehx07", "0", "nehahra data storage cvar (used in singleplayer)"};
138 cvar_t nehx08 = {0, "nehx08", "0", "nehahra data storage cvar (used in singleplayer)"};
139 cvar_t nehx09 = {0, "nehx09", "0", "nehahra data storage cvar (used in singleplayer)"};
140 cvar_t nehx10 = {0, "nehx10", "0", "nehahra data storage cvar (used in singleplayer)"};
141 cvar_t nehx11 = {0, "nehx11", "0", "nehahra data storage cvar (used in singleplayer)"};
142 cvar_t nehx12 = {0, "nehx12", "0", "nehahra data storage cvar (used in singleplayer)"};
143 cvar_t nehx13 = {0, "nehx13", "0", "nehahra data storage cvar (used in singleplayer)"};
144 cvar_t nehx14 = {0, "nehx14", "0", "nehahra data storage cvar (used in singleplayer)"};
145 cvar_t nehx15 = {0, "nehx15", "0", "nehahra data storage cvar (used in singleplayer)"};
146 cvar_t nehx16 = {0, "nehx16", "0", "nehahra data storage cvar (used in singleplayer)"};
147 cvar_t nehx17 = {0, "nehx17", "0", "nehahra data storage cvar (used in singleplayer)"};
148 cvar_t nehx18 = {0, "nehx18", "0", "nehahra data storage cvar (used in singleplayer)"};
149 cvar_t nehx19 = {0, "nehx19", "0", "nehahra data storage cvar (used in singleplayer)"};
150 cvar_t cutscene = {0, "cutscene", "1", "enables cutscenes in nehahra, can be used by other mods"};
151
152 cvar_t sv_autodemo_perclient = {CVAR_SAVE, "sv_autodemo_perclient", "0", "set to 1 to enable autorecorded per-client demos (they'll start to record at the beginning of a match); set it to 2 to also record client->server packets (for debugging)"};
153 cvar_t sv_autodemo_perclient_nameformat = {CVAR_SAVE, "sv_autodemo_perclient_nameformat", "sv_autodemos/%Y-%m-%d_%H-%M", "The format of the sv_autodemo_perclient filename, followed by the map name, the client number and the IP address + port number, separated by underscores" };
154
155
156 server_t sv;
157 server_static_t svs;
158
159 mempool_t *sv_mempool = NULL;
160
161 extern cvar_t slowmo;
162 extern float            scr_centertime_off;
163
164 // MUST match effectnameindex_t in client.h
165 static const char *standardeffectnames[EFFECT_TOTAL] =
166 {
167         "",
168         "TE_GUNSHOT",
169         "TE_GUNSHOTQUAD",
170         "TE_SPIKE",
171         "TE_SPIKEQUAD",
172         "TE_SUPERSPIKE",
173         "TE_SUPERSPIKEQUAD",
174         "TE_WIZSPIKE",
175         "TE_KNIGHTSPIKE",
176         "TE_EXPLOSION",
177         "TE_EXPLOSIONQUAD",
178         "TE_TAREXPLOSION",
179         "TE_TELEPORT",
180         "TE_LAVASPLASH",
181         "TE_SMALLFLASH",
182         "TE_FLAMEJET",
183         "EF_FLAME",
184         "TE_BLOOD",
185         "TE_SPARK",
186         "TE_PLASMABURN",
187         "TE_TEI_G3",
188         "TE_TEI_SMOKE",
189         "TE_TEI_BIGEXPLOSION",
190         "TE_TEI_PLASMAHIT",
191         "EF_STARDUST",
192         "TR_ROCKET",
193         "TR_GRENADE",
194         "TR_BLOOD",
195         "TR_WIZSPIKE",
196         "TR_SLIGHTBLOOD",
197         "TR_KNIGHTSPIKE",
198         "TR_VORESPIKE",
199         "TR_NEHAHRASMOKE",
200         "TR_NEXUIZPLASMA",
201         "TR_GLOWTRAIL",
202         "SVC_PARTICLE"
203 };
204
205 #define REQFIELDS (sizeof(reqfields) / sizeof(prvm_required_field_t))
206
207 prvm_required_field_t reqfields[] =
208 {
209         {ev_entity, "cursor_trace_ent"},
210         {ev_entity, "drawonlytoclient"},
211         {ev_entity, "exteriormodeltoclient"},
212         {ev_entity, "nodrawtoclient"},
213         {ev_entity, "tag_entity"},
214         {ev_entity, "viewmodelforclient"},
215         {ev_float, "Version"},
216         {ev_float, "alpha"},
217         {ev_float, "ammo_cells1"},
218         {ev_float, "ammo_lava_nails"},
219         {ev_float, "ammo_multi_rockets"},
220         {ev_float, "ammo_nails1"},
221         {ev_float, "ammo_plasma"},
222         {ev_float, "ammo_rockets1"},
223         {ev_float, "ammo_shells1"},
224         {ev_float, "button3"},
225         {ev_float, "button4"},
226         {ev_float, "button5"},
227         {ev_float, "button6"},
228         {ev_float, "button7"},
229         {ev_float, "button8"},
230         {ev_float, "button9"},
231         {ev_float, "button10"},
232         {ev_float, "button11"},
233         {ev_float, "button12"},
234         {ev_float, "button13"},
235         {ev_float, "button14"},
236         {ev_float, "button15"},
237         {ev_float, "button16"},
238         {ev_float, "buttonchat"},
239         {ev_float, "buttonuse"},
240         {ev_float, "clientcolors"},
241         {ev_float, "cursor_active"},
242         {ev_float, "disableclientprediction"},
243         {ev_float, "fullbright"},
244         {ev_float, "glow_color"},
245         {ev_float, "glow_size"},
246         {ev_float, "glow_trail"},
247         {ev_float, "gravity"},
248         {ev_float, "idealpitch"},
249         {ev_float, "items2"},
250         {ev_float, "light_lev"},
251         {ev_float, "modelflags"},
252         {ev_float, "pflags"},
253         {ev_float, "ping"},
254         {ev_float, "pitch_speed"},
255         {ev_float, "pmodel"},
256         {ev_float, "renderamt"}, // HalfLife support
257         {ev_float, "rendermode"}, // HalfLife support
258         {ev_float, "scale"},
259         {ev_float, "style"},
260         {ev_float, "tag_index"},
261         {ev_float, "viewzoom"},
262         {ev_function, "SendEntity"},
263         {ev_function, "contentstransition"}, // DRESK - Support for Entity Contents Transition Event
264         {ev_function, "customizeentityforclient"},
265         {ev_function, "movetypesteplandevent"}, // DRESK - Support for MOVETYPE_STEP Entity Land Event
266         {ev_string, "netaddress"},
267         {ev_string, "playermodel"},
268         {ev_string, "playerskin"},
269         {ev_vector, "color"},
270         {ev_vector, "colormod"},
271         {ev_vector, "cursor_screen"},
272         {ev_vector, "cursor_trace_endpos"},
273         {ev_vector, "cursor_trace_start"},
274         {ev_vector, "movement"},
275         {ev_vector, "punchvector"},
276 };
277
278
279
280 //============================================================================
281
282 void SV_AreaStats_f(void)
283 {
284         World_PrintAreaStats(&sv.world, "server");
285 }
286
287 /*
288 ===============
289 SV_Init
290 ===============
291 */
292 void SV_Init (void)
293 {
294         // init the csqc progs cvars, since they are updated/used by the server code
295         // TODO: fix this since this is a quick hack to make some of [515]'s broken code run ;) [9/13/2006 Black]
296         extern cvar_t csqc_progname;    //[515]: csqc crc check and right csprogs name according to progs.dat
297         extern cvar_t csqc_progcrc;
298         extern cvar_t csqc_progsize;
299         Cvar_RegisterVariable (&csqc_progname);
300         Cvar_RegisterVariable (&csqc_progcrc);
301         Cvar_RegisterVariable (&csqc_progsize);
302
303         Cmd_AddCommand("sv_saveentfile", SV_SaveEntFile_f, "save map entities to .ent file (to allow external editing)");
304         Cmd_AddCommand("sv_areastats", SV_AreaStats_f, "prints statistics on entity culling during collision traces");
305         Cmd_AddCommand_WithClientCommand("sv_startdownload", NULL, SV_StartDownload_f, "begins sending a file to the client (network protocol use only)");
306         Cmd_AddCommand_WithClientCommand("download", NULL, SV_Download_f, "downloads a specified file from the server");
307
308         Cvar_RegisterVariable (&coop);
309         Cvar_RegisterVariable (&deathmatch);
310         Cvar_RegisterVariable (&fraglimit);
311         Cvar_RegisterVariable (&gamecfg);
312         Cvar_RegisterVariable (&noexit);
313         Cvar_RegisterVariable (&nomonsters);
314         Cvar_RegisterVariable (&pausable);
315         Cvar_RegisterVariable (&pr_checkextension);
316         Cvar_RegisterVariable (&samelevel);
317         Cvar_RegisterVariable (&skill);
318         Cvar_RegisterVariable (&slowmo);
319         Cvar_RegisterVariable (&sv_accelerate);
320         Cvar_RegisterVariable (&sv_aim);
321         Cvar_RegisterVariable (&sv_airaccel_qw);
322         Cvar_RegisterVariable (&sv_airaccel_sideways_friction);
323         Cvar_RegisterVariable (&sv_airaccelerate);
324         Cvar_RegisterVariable (&sv_allowdownloads);
325         Cvar_RegisterVariable (&sv_allowdownloads_archive);
326         Cvar_RegisterVariable (&sv_allowdownloads_config);
327         Cvar_RegisterVariable (&sv_allowdownloads_dlcache);
328         Cvar_RegisterVariable (&sv_allowdownloads_inarchive);
329         Cvar_RegisterVariable (&sv_areagrid_mingridsize);
330         Cvar_RegisterVariable (&sv_checkforpacketsduringsleep);
331         Cvar_RegisterVariable (&sv_clmovement_enable);
332         Cvar_RegisterVariable (&sv_clmovement_minping);
333         Cvar_RegisterVariable (&sv_clmovement_minping_disabletime);
334         Cvar_RegisterVariable (&sv_clmovement_waitforinput);
335         Cvar_RegisterVariable (&sv_cullentities_nevercullbmodels);
336         Cvar_RegisterVariable (&sv_cullentities_pvs);
337         Cvar_RegisterVariable (&sv_cullentities_stats);
338         Cvar_RegisterVariable (&sv_cullentities_trace);
339         Cvar_RegisterVariable (&sv_cullentities_trace_delay);
340         Cvar_RegisterVariable (&sv_cullentities_trace_enlarge);
341         Cvar_RegisterVariable (&sv_cullentities_trace_prediction);
342         Cvar_RegisterVariable (&sv_cullentities_trace_samples);
343         Cvar_RegisterVariable (&sv_cullentities_trace_samples_extra);
344         Cvar_RegisterVariable (&sv_debugmove);
345         Cvar_RegisterVariable (&sv_echobprint);
346         Cvar_RegisterVariable (&sv_edgefriction);
347         Cvar_RegisterVariable (&sv_entpatch);
348         Cvar_RegisterVariable (&sv_fixedframeratesingleplayer);
349         Cvar_RegisterVariable (&sv_freezenonclients);
350         Cvar_RegisterVariable (&sv_friction);
351         Cvar_RegisterVariable (&sv_gameplayfix_blowupfallenzombies);
352         Cvar_RegisterVariable (&sv_gameplayfix_delayprojectiles);
353         Cvar_RegisterVariable (&sv_gameplayfix_droptofloorstartsolid);
354         Cvar_RegisterVariable (&sv_gameplayfix_droptofloorstartsolid_nudgetocorrect);
355         Cvar_RegisterVariable (&sv_gameplayfix_easierwaterjump);
356         Cvar_RegisterVariable (&sv_gameplayfix_findradiusdistancetobox);
357         Cvar_RegisterVariable (&sv_gameplayfix_grenadebouncedownslopes);
358         Cvar_RegisterVariable (&sv_gameplayfix_multiplethinksperframe);
359         Cvar_RegisterVariable (&sv_gameplayfix_noairborncorpse);
360         Cvar_RegisterVariable (&sv_gameplayfix_setmodelrealbox);
361         Cvar_RegisterVariable (&sv_gameplayfix_stepdown);
362         Cvar_RegisterVariable (&sv_gameplayfix_stepwhilejumping);
363         Cvar_RegisterVariable (&sv_gameplayfix_swiminbmodels);
364         Cvar_RegisterVariable (&sv_gameplayfix_upwardvelocityclearsongroundflag);
365         Cvar_RegisterVariable (&sv_gravity);
366         Cvar_RegisterVariable (&sv_idealpitchscale);
367         Cvar_RegisterVariable (&sv_jumpstep);
368         Cvar_RegisterVariable (&sv_jumpvelocity);
369         Cvar_RegisterVariable (&sv_maxairspeed);
370         Cvar_RegisterVariable (&sv_maxrate);
371         Cvar_RegisterVariable (&sv_maxspeed);
372         Cvar_RegisterVariable (&sv_maxvelocity);
373         Cvar_RegisterVariable (&sv_newflymove);
374         Cvar_RegisterVariable (&sv_nostep);
375         Cvar_RegisterVariable (&sv_playerphysicsqc);
376         Cvar_RegisterVariable (&sv_progs);
377         Cvar_RegisterVariable (&sv_protocolname);
378         Cvar_RegisterVariable (&sv_random_seed);
379         Cvar_RegisterVariable (&sv_ratelimitlocalplayer);
380         Cvar_RegisterVariable (&sv_sound_land);
381         Cvar_RegisterVariable (&sv_sound_watersplash);
382         Cvar_RegisterVariable (&sv_stepheight);
383         Cvar_RegisterVariable (&sv_stopspeed);
384         Cvar_RegisterVariable (&sv_wallfriction);
385         Cvar_RegisterVariable (&sv_wateraccelerate);
386         Cvar_RegisterVariable (&sv_waterfriction);
387         Cvar_RegisterVariable (&sys_ticrate);
388         Cvar_RegisterVariable (&teamplay);
389         Cvar_RegisterVariable (&timelimit);
390
391         Cvar_RegisterVariable (&saved1);
392         Cvar_RegisterVariable (&saved2);
393         Cvar_RegisterVariable (&saved3);
394         Cvar_RegisterVariable (&saved4);
395         Cvar_RegisterVariable (&savedgamecfg);
396         Cvar_RegisterVariable (&scratch1);
397         Cvar_RegisterVariable (&scratch2);
398         Cvar_RegisterVariable (&scratch3);
399         Cvar_RegisterVariable (&scratch4);
400         Cvar_RegisterVariable (&temp1);
401
402         // LordHavoc: Nehahra uses these to pass data around cutscene demos
403         if (gamemode == GAME_NEHAHRA)
404         {
405                 Cvar_RegisterVariable (&nehx00);
406                 Cvar_RegisterVariable (&nehx01);
407                 Cvar_RegisterVariable (&nehx02);
408                 Cvar_RegisterVariable (&nehx03);
409                 Cvar_RegisterVariable (&nehx04);
410                 Cvar_RegisterVariable (&nehx05);
411                 Cvar_RegisterVariable (&nehx06);
412                 Cvar_RegisterVariable (&nehx07);
413                 Cvar_RegisterVariable (&nehx08);
414                 Cvar_RegisterVariable (&nehx09);
415                 Cvar_RegisterVariable (&nehx10);
416                 Cvar_RegisterVariable (&nehx11);
417                 Cvar_RegisterVariable (&nehx12);
418                 Cvar_RegisterVariable (&nehx13);
419                 Cvar_RegisterVariable (&nehx14);
420                 Cvar_RegisterVariable (&nehx15);
421                 Cvar_RegisterVariable (&nehx16);
422                 Cvar_RegisterVariable (&nehx17);
423                 Cvar_RegisterVariable (&nehx18);
424                 Cvar_RegisterVariable (&nehx19);
425         }
426         Cvar_RegisterVariable (&cutscene); // for Nehahra but useful to other mods as well
427
428         Cvar_RegisterVariable (&sv_autodemo_perclient);
429         Cvar_RegisterVariable (&sv_autodemo_perclient_nameformat);
430
431         // any special defaults for gamemodes go here
432         if (gamemode == GAME_HIPNOTIC)
433         {
434                 // hipnotic mission pack has issues in their 'friendly monster' ai, which seem to attempt to attack themselves for some reason when findradius() returns non-solid entities.
435                 Cvar_SetValueQuick (&sv_gameplayfix_blowupfallenzombies, 0);
436                 // hipnotic mission pack has issues with bobbing water entities 'jittering' between different heights on alternate frames at the default 0.0138889 ticrate, 0.02 avoids this issue
437                 Cvar_SetValueQuick (&sys_ticrate, 0.02);
438         }
439         if (gamemode == GAME_ROGUE)
440         {
441                 // rogue mission pack has a guardian boss that does not wake up if findradius returns one of the entities around its spawn area
442                 Cvar_SetValueQuick (&sv_gameplayfix_findradiusdistancetobox, 0);
443         }
444
445         sv_mempool = Mem_AllocPool("server", 0, NULL);
446 }
447
448 static void SV_SaveEntFile_f(void)
449 {
450         char basename[MAX_QPATH];
451         if (!sv.active || !sv.worldmodel)
452         {
453                 Con_Print("Not running a server\n");
454                 return;
455         }
456         FS_StripExtension(sv.worldmodel->name, basename, sizeof(basename));
457         FS_WriteFile(va("%s.ent", basename), sv.worldmodel->brush.entities, (fs_offset_t)strlen(sv.worldmodel->brush.entities));
458 }
459
460
461 /*
462 =============================================================================
463
464 EVENT MESSAGES
465
466 =============================================================================
467 */
468
469 /*
470 ==================
471 SV_StartParticle
472
473 Make sure the event gets sent to all clients
474 ==================
475 */
476 void SV_StartParticle (vec3_t org, vec3_t dir, int color, int count)
477 {
478         int i;
479
480         if (sv.datagram.cursize > MAX_PACKETFRAGMENT-18)
481                 return;
482         MSG_WriteByte (&sv.datagram, svc_particle);
483         MSG_WriteCoord (&sv.datagram, org[0], sv.protocol);
484         MSG_WriteCoord (&sv.datagram, org[1], sv.protocol);
485         MSG_WriteCoord (&sv.datagram, org[2], sv.protocol);
486         for (i=0 ; i<3 ; i++)
487                 MSG_WriteChar (&sv.datagram, (int)bound(-128, dir[i]*16, 127));
488         MSG_WriteByte (&sv.datagram, count);
489         MSG_WriteByte (&sv.datagram, color);
490         SV_FlushBroadcastMessages();
491 }
492
493 /*
494 ==================
495 SV_StartEffect
496
497 Make sure the event gets sent to all clients
498 ==================
499 */
500 void SV_StartEffect (vec3_t org, int modelindex, int startframe, int framecount, int framerate)
501 {
502         if (modelindex >= 256 || startframe >= 256)
503         {
504                 if (sv.datagram.cursize > MAX_PACKETFRAGMENT-19)
505                         return;
506                 MSG_WriteByte (&sv.datagram, svc_effect2);
507                 MSG_WriteCoord (&sv.datagram, org[0], sv.protocol);
508                 MSG_WriteCoord (&sv.datagram, org[1], sv.protocol);
509                 MSG_WriteCoord (&sv.datagram, org[2], sv.protocol);
510                 MSG_WriteShort (&sv.datagram, modelindex);
511                 MSG_WriteShort (&sv.datagram, startframe);
512                 MSG_WriteByte (&sv.datagram, framecount);
513                 MSG_WriteByte (&sv.datagram, framerate);
514         }
515         else
516         {
517                 if (sv.datagram.cursize > MAX_PACKETFRAGMENT-17)
518                         return;
519                 MSG_WriteByte (&sv.datagram, svc_effect);
520                 MSG_WriteCoord (&sv.datagram, org[0], sv.protocol);
521                 MSG_WriteCoord (&sv.datagram, org[1], sv.protocol);
522                 MSG_WriteCoord (&sv.datagram, org[2], sv.protocol);
523                 MSG_WriteByte (&sv.datagram, modelindex);
524                 MSG_WriteByte (&sv.datagram, startframe);
525                 MSG_WriteByte (&sv.datagram, framecount);
526                 MSG_WriteByte (&sv.datagram, framerate);
527         }
528         SV_FlushBroadcastMessages();
529 }
530
531 /*
532 ==================
533 SV_StartSound
534
535 Each entity can have eight independant sound sources, like voice,
536 weapon, feet, etc.
537
538 Channel 0 is an auto-allocate channel, the others override anything
539 already running on that entity/channel pair.
540
541 An attenuation of 0 will play full volume everywhere in the level.
542 Larger attenuations will drop off.  (max 4 attenuation)
543
544 ==================
545 */
546 void SV_StartSound (prvm_edict_t *entity, int channel, const char *sample, int volume, float attenuation)
547 {
548         int sound_num, field_mask, i, ent;
549
550         if (volume < 0 || volume > 255)
551         {
552                 Con_Printf ("SV_StartSound: volume = %i\n", volume);
553                 return;
554         }
555
556         if (attenuation < 0 || attenuation > 4)
557         {
558                 Con_Printf ("SV_StartSound: attenuation = %f\n", attenuation);
559                 return;
560         }
561
562         if (channel < 0 || channel > 7)
563         {
564                 Con_Printf ("SV_StartSound: channel = %i\n", channel);
565                 return;
566         }
567
568         if (sv.datagram.cursize > MAX_PACKETFRAGMENT-21)
569                 return;
570
571 // find precache number for sound
572         sound_num = SV_SoundIndex(sample, 1);
573         if (!sound_num)
574                 return;
575
576         ent = PRVM_NUM_FOR_EDICT(entity);
577
578         field_mask = 0;
579         if (volume != DEFAULT_SOUND_PACKET_VOLUME)
580                 field_mask |= SND_VOLUME;
581         if (attenuation != DEFAULT_SOUND_PACKET_ATTENUATION)
582                 field_mask |= SND_ATTENUATION;
583         if (ent >= 8192)
584                 field_mask |= SND_LARGEENTITY;
585         if (sound_num >= 256 || channel >= 8)
586                 field_mask |= SND_LARGESOUND;
587
588 // directed messages go only to the entity they are targeted on
589         MSG_WriteByte (&sv.datagram, svc_sound);
590         MSG_WriteByte (&sv.datagram, field_mask);
591         if (field_mask & SND_VOLUME)
592                 MSG_WriteByte (&sv.datagram, volume);
593         if (field_mask & SND_ATTENUATION)
594                 MSG_WriteByte (&sv.datagram, (int)(attenuation*64));
595         if (field_mask & SND_LARGEENTITY)
596         {
597                 MSG_WriteShort (&sv.datagram, ent);
598                 MSG_WriteByte (&sv.datagram, channel);
599         }
600         else
601                 MSG_WriteShort (&sv.datagram, (ent<<3) | channel);
602         if ((field_mask & SND_LARGESOUND) || sv.protocol == PROTOCOL_NEHAHRABJP2)
603                 MSG_WriteShort (&sv.datagram, sound_num);
604         else
605                 MSG_WriteByte (&sv.datagram, sound_num);
606         for (i = 0;i < 3;i++)
607                 MSG_WriteCoord (&sv.datagram, entity->fields.server->origin[i]+0.5*(entity->fields.server->mins[i]+entity->fields.server->maxs[i]), sv.protocol);
608         SV_FlushBroadcastMessages();
609 }
610
611 /*
612 ==================
613 SV_StartPointSound
614
615 Nearly the same logic as SV_StartSound, except an origin
616 instead of an entity is provided and channel is omitted.
617
618 The entity sent to the client is 0 (world) and the channel
619 is 0 (CHAN_AUTO).  SND_LARGEENTITY will never occur in this
620 function, therefore the check for it is omitted.
621
622 ==================
623 */
624 void SV_StartPointSound (vec3_t origin, const char *sample, int volume, float attenuation)
625 {
626         int sound_num, field_mask, i;
627
628         if (volume < 0 || volume > 255)
629         {
630                 Con_Printf ("SV_StartPointSound: volume = %i\n", volume);
631                 return;
632         }
633
634         if (attenuation < 0 || attenuation > 4)
635         {
636                 Con_Printf ("SV_StartPointSound: attenuation = %f\n", attenuation);
637                 return;
638         }
639
640         if (sv.datagram.cursize > MAX_PACKETFRAGMENT-21)
641                 return;
642
643         // find precache number for sound
644         sound_num = SV_SoundIndex(sample, 1);
645         if (!sound_num)
646                 return;
647
648         field_mask = 0;
649         if (volume != DEFAULT_SOUND_PACKET_VOLUME)
650                 field_mask |= SND_VOLUME;
651         if (attenuation != DEFAULT_SOUND_PACKET_ATTENUATION)
652                 field_mask |= SND_ATTENUATION;
653         if (sound_num >= 256)
654                 field_mask |= SND_LARGESOUND;
655
656 // directed messages go only to the entity they are targeted on
657         MSG_WriteByte (&sv.datagram, svc_sound);
658         MSG_WriteByte (&sv.datagram, field_mask);
659         if (field_mask & SND_VOLUME)
660                 MSG_WriteByte (&sv.datagram, volume);
661         if (field_mask & SND_ATTENUATION)
662                 MSG_WriteByte (&sv.datagram, (int)(attenuation*64));
663         // Always write entnum 0 for the world entity
664         MSG_WriteShort (&sv.datagram, (0<<3) | 0);
665         if (field_mask & SND_LARGESOUND)
666                 MSG_WriteShort (&sv.datagram, sound_num);
667         else
668                 MSG_WriteByte (&sv.datagram, sound_num);
669         for (i = 0;i < 3;i++)
670                 MSG_WriteCoord (&sv.datagram, origin[i], sv.protocol);
671         SV_FlushBroadcastMessages();
672 }
673
674 /*
675 ==============================================================================
676
677 CLIENT SPAWNING
678
679 ==============================================================================
680 */
681
682 /*
683 ================
684 SV_SendServerinfo
685
686 Sends the first message from the server to a connected client.
687 This will be sent on the initial connection and upon each server load.
688 ================
689 */
690 void SV_SendServerinfo (client_t *client)
691 {
692         int i;
693         char message[128];
694
695         // we know that this client has a netconnection and thus is not a bot
696
697         // edicts get reallocated on level changes, so we need to update it here
698         client->edict = PRVM_EDICT_NUM((client - svs.clients) + 1);
699
700         // clear cached stuff that depends on the level
701         client->weaponmodel[0] = 0;
702         client->weaponmodelindex = 0;
703
704         // LordHavoc: clear entityframe tracking
705         client->latestframenum = 0;
706
707         // initialize the movetime, so a speedhack can't make use of the time before this client joined
708         client->cmd.time = sv.time;
709
710         if (client->entitydatabase)
711                 EntityFrame_FreeDatabase(client->entitydatabase);
712         if (client->entitydatabase4)
713                 EntityFrame4_FreeDatabase(client->entitydatabase4);
714         if (client->entitydatabase5)
715                 EntityFrame5_FreeDatabase(client->entitydatabase5);
716
717         memset(client->stats, 0, sizeof(client->stats));
718         memset(client->statsdeltabits, 0, sizeof(client->statsdeltabits));
719
720         if (sv.protocol != PROTOCOL_QUAKE && sv.protocol != PROTOCOL_QUAKEDP && sv.protocol != PROTOCOL_NEHAHRAMOVIE && sv.protocol != PROTOCOL_NEHAHRABJP && sv.protocol != PROTOCOL_NEHAHRABJP2 && sv.protocol != PROTOCOL_NEHAHRABJP3)
721         {
722                 if (sv.protocol == PROTOCOL_DARKPLACES1 || sv.protocol == PROTOCOL_DARKPLACES2 || sv.protocol == PROTOCOL_DARKPLACES3)
723                         client->entitydatabase = EntityFrame_AllocDatabase(sv_mempool);
724                 else if (sv.protocol == PROTOCOL_DARKPLACES4)
725                         client->entitydatabase4 = EntityFrame4_AllocDatabase(sv_mempool);
726                 else
727                         client->entitydatabase5 = EntityFrame5_AllocDatabase(sv_mempool);
728         }
729
730         // reset csqc entity versions
731         memset(client->csqcentityversion, 0, sizeof(client->csqcentityversion));
732
733         SZ_Clear (&client->netconnection->message);
734         MSG_WriteByte (&client->netconnection->message, svc_print);
735         dpsnprintf (message, sizeof (message), "\nServer: %s build %s (progs %i crc)", gamename, buildstring, prog->filecrc);
736         MSG_WriteString (&client->netconnection->message,message);
737
738         //[515]: init csprogs according to version of svprogs, check the crc, etc.
739         if (sv.csqc_progname[0])
740         {
741                 prvm_eval_t *val;
742                 Con_DPrintf("sending csqc info to client (\"%s\" with size %i and crc %i)\n", sv.csqc_progname, sv.csqc_progsize, sv.csqc_progcrc);
743                 MSG_WriteByte (&client->netconnection->message, svc_stufftext);
744                 MSG_WriteString (&client->netconnection->message, va("csqc_progname %s\n", sv.csqc_progname));
745                 MSG_WriteByte (&client->netconnection->message, svc_stufftext);
746                 MSG_WriteString (&client->netconnection->message, va("csqc_progsize %i\n", sv.csqc_progsize));
747                 MSG_WriteByte (&client->netconnection->message, svc_stufftext);
748                 MSG_WriteString (&client->netconnection->message, va("csqc_progcrc %i\n", sv.csqc_progcrc));
749                 //[515]: init stufftext string (it is sent before svc_serverinfo)
750                 val = PRVM_GLOBALFIELDVALUE(prog->globaloffsets.SV_InitCmd);
751                 if (val)
752                 {
753                         MSG_WriteByte (&client->netconnection->message, svc_stufftext);
754                         MSG_WriteString (&client->netconnection->message, va("%s\n", PRVM_GetString(val->string)));
755                 }
756         }
757
758         if (sv_allowdownloads.integer)
759         {
760                 MSG_WriteByte (&client->netconnection->message, svc_stufftext);
761                 MSG_WriteString (&client->netconnection->message, "cl_serverextension_download 1\n");
762         }
763
764         // send at this time so it's guaranteed to get executed at the right time
765         {
766                 client_t *save;
767                 save = host_client;
768                 host_client = client;
769                 Curl_SendRequirements();
770                 host_client = save;
771         }
772
773         MSG_WriteByte (&client->netconnection->message, svc_serverinfo);
774         MSG_WriteLong (&client->netconnection->message, Protocol_NumberForEnum(sv.protocol));
775         MSG_WriteByte (&client->netconnection->message, svs.maxclients);
776
777         if (!coop.integer && deathmatch.integer)
778                 MSG_WriteByte (&client->netconnection->message, GAME_DEATHMATCH);
779         else
780                 MSG_WriteByte (&client->netconnection->message, GAME_COOP);
781
782         MSG_WriteString (&client->netconnection->message,PRVM_GetString(prog->edicts->fields.server->message));
783
784         for (i = 1;i < MAX_MODELS && sv.model_precache[i][0];i++)
785                 MSG_WriteString (&client->netconnection->message, sv.model_precache[i]);
786         MSG_WriteByte (&client->netconnection->message, 0);
787
788         for (i = 1;i < MAX_SOUNDS && sv.sound_precache[i][0];i++)
789                 MSG_WriteString (&client->netconnection->message, sv.sound_precache[i]);
790         MSG_WriteByte (&client->netconnection->message, 0);
791
792 // send music
793         MSG_WriteByte (&client->netconnection->message, svc_cdtrack);
794         MSG_WriteByte (&client->netconnection->message, (int)prog->edicts->fields.server->sounds);
795         MSG_WriteByte (&client->netconnection->message, (int)prog->edicts->fields.server->sounds);
796
797 // set view
798 // store this in clientcamera, too
799         client->clientcamera = PRVM_NUM_FOR_EDICT(client->edict);
800         MSG_WriteByte (&client->netconnection->message, svc_setview);
801         MSG_WriteShort (&client->netconnection->message, client->clientcamera);
802
803         MSG_WriteByte (&client->netconnection->message, svc_signonnum);
804         MSG_WriteByte (&client->netconnection->message, 1);
805
806         client->spawned = false;                // need prespawn, spawn, etc
807         client->sendsignon = 1;                 // send this message, and increment to 2, 2 will be set to 0 by the prespawn command
808
809         // clear movement info until client enters the new level properly
810         memset(&client->cmd, 0, sizeof(client->cmd));
811         client->movesequence = 0;
812 #ifdef NUM_PING_TIMES
813         for (i = 0;i < NUM_PING_TIMES;i++)
814                 client->ping_times[i] = 0;
815         client->num_pings = 0;
816 #endif
817         client->ping = 0;
818
819         SV_StopDemoRecording(client); // to split up demos into different files
820         if(sv_autodemo_perclient.integer && client->netconnection)
821         {
822                 char demofile[MAX_OSPATH];
823                 char levelname[MAX_QPATH];
824                 char ipaddress[MAX_QPATH];
825                 size_t i;
826
827                 // start a new demo file
828                 strlcpy(levelname, FS_FileWithoutPath(sv.worldmodel->name), sizeof(levelname));
829                 if (strrchr(levelname, '.'))
830                         *(strrchr(levelname, '.')) = 0;
831
832                 LHNETADDRESS_ToString(&(client->netconnection->peeraddress), ipaddress, sizeof(ipaddress), true);
833                 for(i = 0; ipaddress[i]; ++i)
834                         if(!isalnum(ipaddress[i]))
835                                 ipaddress[i] = '-';
836                 dpsnprintf (demofile, sizeof(demofile), "%s_%s_%d_%s.dem", Sys_TimeString (sv_autodemo_perclient_nameformat.string), levelname, PRVM_NUM_FOR_EDICT(client->edict), ipaddress);
837
838                 SV_StartDemoRecording(client, demofile, -1);
839         }
840 }
841
842 /*
843 ================
844 SV_ConnectClient
845
846 Initializes a client_t for a new net connection.  This will only be called
847 once for a player each game, not once for each level change.
848 ================
849 */
850 void SV_ConnectClient (int clientnum, netconn_t *netconnection)
851 {
852         client_t                *client;
853         int                             i;
854         float                   spawn_parms[NUM_SPAWN_PARMS];
855
856         client = svs.clients + clientnum;
857
858 // set up the client_t
859         if (sv.loadgame)
860                 memcpy (spawn_parms, client->spawn_parms, sizeof(spawn_parms));
861         memset (client, 0, sizeof(*client));
862         client->active = true;
863         client->netconnection = netconnection;
864
865         Con_DPrintf("Client %s connected\n", client->netconnection ? client->netconnection->address : "botclient");
866
867         strlcpy(client->name, "unconnected", sizeof(client->name));
868         strlcpy(client->old_name, "unconnected", sizeof(client->old_name));
869         client->spawned = false;
870         client->edict = PRVM_EDICT_NUM(clientnum+1);
871         if (client->netconnection)
872                 client->netconnection->message.allowoverflow = true;            // we can catch it
873         // prepare the unreliable message buffer
874         client->unreliablemsg.data = client->unreliablemsg_data;
875         client->unreliablemsg.maxsize = sizeof(client->unreliablemsg_data);
876         // updated by receiving "rate" command from client, this is also the default if not using a DP client
877         client->rate = 1000000000;
878         // no limits for local player
879         if (client->netconnection && LHNETADDRESS_GetAddressType(&client->netconnection->peeraddress) == LHNETADDRESSTYPE_LOOP)
880                 client->rate = 1000000000;
881         client->connecttime = realtime;
882
883         if (sv.loadgame)
884                 memcpy (client->spawn_parms, spawn_parms, sizeof(spawn_parms));
885         else
886         {
887                 // call the progs to get default spawn parms for the new client
888                 // set self to world to intentionally cause errors with broken SetNewParms code in some mods
889                 prog->globals.server->self = 0;
890                 PRVM_ExecuteProgram (prog->globals.server->SetNewParms, "QC function SetNewParms is missing");
891                 for (i=0 ; i<NUM_SPAWN_PARMS ; i++)
892                         client->spawn_parms[i] = (&prog->globals.server->parm1)[i];
893
894                 // set up the entity for this client (including .colormap, .team, etc)
895                 PRVM_ED_ClearEdict(client->edict);
896         }
897
898         // don't call SendServerinfo for a fresh botclient because its fields have
899         // not been set up by the qc yet
900         if (client->netconnection)
901                 SV_SendServerinfo (client);
902         else
903                 client->spawned = true;
904 }
905
906
907 /*
908 ===============================================================================
909
910 FRAME UPDATES
911
912 ===============================================================================
913 */
914
915 /*
916 =============================================================================
917
918 The PVS must include a small area around the client to allow head bobbing
919 or other small motion on the client side.  Otherwise, a bob might cause an
920 entity that should be visible to not show up, especially when the bob
921 crosses a waterline.
922
923 =============================================================================
924 */
925
926 static qboolean SV_PrepareEntityForSending (prvm_edict_t *ent, entity_state_t *cs, int enumber)
927 {
928         int i;
929         unsigned int modelindex, effects, flags, glowsize, lightstyle, lightpflags, light[4], specialvisibilityradius;
930         unsigned int customizeentityforclient;
931         float f;
932         vec3_t cullmins, cullmaxs;
933         dp_model_t *model;
934         prvm_eval_t *val;
935
936         // this 2 billion unit check is actually to detect NAN origins
937         // (we really don't want to send those)
938         if (!(VectorLength2(ent->fields.server->origin) < 2000000000.0*2000000000.0))
939                 return false;
940
941         // EF_NODRAW prevents sending for any reason except for your own
942         // client, so we must keep all clients in this superset
943         effects = (unsigned)ent->fields.server->effects;
944
945         // we can omit invisible entities with no effects that are not clients
946         // LordHavoc: this could kill tags attached to an invisible entity, I
947         // just hope we never have to support that case
948         i = (int)ent->fields.server->modelindex;
949         modelindex = (i >= 1 && i < MAX_MODELS && ent->fields.server->model && *PRVM_GetString(ent->fields.server->model)) ? i : 0;
950
951         flags = 0;
952         i = (int)(PRVM_EDICTFIELDVALUE(ent, prog->fieldoffsets.glow_size)->_float * 0.25f);
953         glowsize = (unsigned char)bound(0, i, 255);
954         if (PRVM_EDICTFIELDVALUE(ent, prog->fieldoffsets.glow_trail)->_float)
955                 flags |= RENDER_GLOWTRAIL;
956         if (PRVM_EDICTFIELDVALUE(ent, prog->fieldoffsets.viewmodelforclient)->edict)
957                 flags |= RENDER_VIEWMODEL;
958
959         f = PRVM_EDICTFIELDVALUE(ent, prog->fieldoffsets.color)->vector[0]*256;
960         light[0] = (unsigned short)bound(0, f, 65535);
961         f = PRVM_EDICTFIELDVALUE(ent, prog->fieldoffsets.color)->vector[1]*256;
962         light[1] = (unsigned short)bound(0, f, 65535);
963         f = PRVM_EDICTFIELDVALUE(ent, prog->fieldoffsets.color)->vector[2]*256;
964         light[2] = (unsigned short)bound(0, f, 65535);
965         f = PRVM_EDICTFIELDVALUE(ent, prog->fieldoffsets.light_lev)->_float;
966         light[3] = (unsigned short)bound(0, f, 65535);
967         lightstyle = (unsigned char)PRVM_EDICTFIELDVALUE(ent, prog->fieldoffsets.style)->_float;
968         lightpflags = (unsigned char)PRVM_EDICTFIELDVALUE(ent, prog->fieldoffsets.pflags)->_float;
969
970         if (gamemode == GAME_TENEBRAE)
971         {
972                 // tenebrae's EF_FULLDYNAMIC conflicts with Q2's EF_NODRAW
973                 if (effects & 16)
974                 {
975                         effects &= ~16;
976                         lightpflags |= PFLAGS_FULLDYNAMIC;
977                 }
978                 // tenebrae's EF_GREEN conflicts with DP's EF_ADDITIVE
979                 if (effects & 32)
980                 {
981                         effects &= ~32;
982                         light[0] = (int)(0.2*256);
983                         light[1] = (int)(1.0*256);
984                         light[2] = (int)(0.2*256);
985                         light[3] = 200;
986                         lightpflags |= PFLAGS_FULLDYNAMIC;
987                 }
988         }
989
990         specialvisibilityradius = 0;
991         if (lightpflags & PFLAGS_FULLDYNAMIC)
992                 specialvisibilityradius = max(specialvisibilityradius, light[3]);
993         if (glowsize)
994                 specialvisibilityradius = max(specialvisibilityradius, glowsize * 4);
995         if (flags & RENDER_GLOWTRAIL)
996                 specialvisibilityradius = max(specialvisibilityradius, 100);
997         if (effects & (EF_BRIGHTFIELD | EF_MUZZLEFLASH | EF_BRIGHTLIGHT | EF_DIMLIGHT | EF_RED | EF_BLUE | EF_FLAME | EF_STARDUST))
998         {
999                 if (effects & EF_BRIGHTFIELD)
1000                         specialvisibilityradius = max(specialvisibilityradius, 80);
1001                 if (effects & EF_MUZZLEFLASH)
1002                         specialvisibilityradius = max(specialvisibilityradius, 100);
1003                 if (effects & EF_BRIGHTLIGHT)
1004                         specialvisibilityradius = max(specialvisibilityradius, 400);
1005                 if (effects & EF_DIMLIGHT)
1006                         specialvisibilityradius = max(specialvisibilityradius, 200);
1007                 if (effects & EF_RED)
1008                         specialvisibilityradius = max(specialvisibilityradius, 200);
1009                 if (effects & EF_BLUE)
1010                         specialvisibilityradius = max(specialvisibilityradius, 200);
1011                 if (effects & EF_FLAME)
1012                         specialvisibilityradius = max(specialvisibilityradius, 250);
1013                 if (effects & EF_STARDUST)
1014                         specialvisibilityradius = max(specialvisibilityradius, 100);
1015         }
1016
1017         // early culling checks
1018         // (final culling is done by SV_MarkWriteEntityStateToClient)
1019         customizeentityforclient = PRVM_EDICTFIELDVALUE(ent, prog->fieldoffsets.customizeentityforclient)->function;
1020         if (!customizeentityforclient && enumber > svs.maxclients && (!modelindex && !specialvisibilityradius))
1021                 return false;
1022
1023         *cs = defaultstate;
1024         cs->active = true;
1025         cs->number = enumber;
1026         VectorCopy(ent->fields.server->origin, cs->origin);
1027         VectorCopy(ent->fields.server->angles, cs->angles);
1028         cs->flags = flags;
1029         cs->effects = effects;
1030         cs->colormap = (unsigned)ent->fields.server->colormap;
1031         cs->modelindex = modelindex;
1032         cs->skin = (unsigned)ent->fields.server->skin;
1033         cs->frame = (unsigned)ent->fields.server->frame;
1034         cs->viewmodelforclient = PRVM_EDICTFIELDVALUE(ent, prog->fieldoffsets.viewmodelforclient)->edict;
1035         cs->exteriormodelforclient = PRVM_EDICTFIELDVALUE(ent, prog->fieldoffsets.exteriormodeltoclient)->edict;
1036         cs->nodrawtoclient = PRVM_EDICTFIELDVALUE(ent, prog->fieldoffsets.nodrawtoclient)->edict;
1037         cs->drawonlytoclient = PRVM_EDICTFIELDVALUE(ent, prog->fieldoffsets.drawonlytoclient)->edict;
1038         cs->customizeentityforclient = customizeentityforclient;
1039         cs->tagentity = PRVM_EDICTFIELDVALUE(ent, prog->fieldoffsets.tag_entity)->edict;
1040         cs->tagindex = (unsigned char)PRVM_EDICTFIELDVALUE(ent, prog->fieldoffsets.tag_index)->_float;
1041         cs->glowsize = glowsize;
1042
1043         // don't need to init cs->colormod because the defaultstate did that for us
1044         //cs->colormod[0] = cs->colormod[1] = cs->colormod[2] = 32;
1045         val = PRVM_EDICTFIELDVALUE(ent, prog->fieldoffsets.colormod);
1046         if (val->vector[0] || val->vector[1] || val->vector[2])
1047         {
1048                 i = (int)(val->vector[0] * 32.0f);cs->colormod[0] = bound(0, i, 255);
1049                 i = (int)(val->vector[1] * 32.0f);cs->colormod[1] = bound(0, i, 255);
1050                 i = (int)(val->vector[2] * 32.0f);cs->colormod[2] = bound(0, i, 255);
1051         }
1052
1053         cs->modelindex = modelindex;
1054
1055         cs->alpha = 255;
1056         f = (PRVM_EDICTFIELDVALUE(ent, prog->fieldoffsets.alpha)->_float * 255.0f);
1057         if (f)
1058         {
1059                 i = (int)f;
1060                 cs->alpha = (unsigned char)bound(0, i, 255);
1061         }
1062         // halflife
1063         f = (PRVM_EDICTFIELDVALUE(ent, prog->fieldoffsets.renderamt)->_float);
1064         if (f)
1065         {
1066                 i = (int)f;
1067                 cs->alpha = (unsigned char)bound(0, i, 255);
1068         }
1069
1070         cs->scale = 16;
1071         f = (PRVM_EDICTFIELDVALUE(ent, prog->fieldoffsets.scale)->_float * 16.0f);
1072         if (f)
1073         {
1074                 i = (int)f;
1075                 cs->scale = (unsigned char)bound(0, i, 255);
1076         }
1077
1078         cs->glowcolor = 254;
1079         f = (PRVM_EDICTFIELDVALUE(ent, prog->fieldoffsets.glow_color)->_float);
1080         if (f)
1081                 cs->glowcolor = (int)f;
1082
1083         if (PRVM_EDICTFIELDVALUE(ent, prog->fieldoffsets.fullbright)->_float)
1084                 cs->effects |= EF_FULLBRIGHT;
1085
1086         val = PRVM_EDICTFIELDVALUE(ent, prog->fieldoffsets.modelflags);
1087         if (val && val->_float)
1088                 cs->effects |= ((unsigned int)val->_float & 0xff) << 24;
1089
1090         if (ent->fields.server->movetype == MOVETYPE_STEP)
1091                 cs->flags |= RENDER_STEP;
1092         if (cs->number != sv.writeentitiestoclient_cliententitynumber && (cs->effects & EF_LOWPRECISION) && cs->origin[0] >= -32768 && cs->origin[1] >= -32768 && cs->origin[2] >= -32768 && cs->origin[0] <= 32767 && cs->origin[1] <= 32767 && cs->origin[2] <= 32767)
1093                 cs->flags |= RENDER_LOWPRECISION;
1094         if (ent->fields.server->colormap >= 1024)
1095                 cs->flags |= RENDER_COLORMAPPED;
1096         if (cs->viewmodelforclient)
1097                 cs->flags |= RENDER_VIEWMODEL; // show relative to the view
1098
1099         cs->light[0] = light[0];
1100         cs->light[1] = light[1];
1101         cs->light[2] = light[2];
1102         cs->light[3] = light[3];
1103         cs->lightstyle = lightstyle;
1104         cs->lightpflags = lightpflags;
1105
1106         cs->specialvisibilityradius = specialvisibilityradius;
1107
1108         // calculate the visible box of this entity (don't use the physics box
1109         // as that is often smaller than a model, and would not count
1110         // specialvisibilityradius)
1111         if ((model = sv.models[modelindex]))
1112         {
1113                 float scale = cs->scale * (1.0f / 16.0f);
1114                 if (cs->angles[0] || cs->angles[2]) // pitch and roll
1115                 {
1116                         VectorMA(cs->origin, scale, model->rotatedmins, cullmins);
1117                         VectorMA(cs->origin, scale, model->rotatedmaxs, cullmaxs);
1118                 }
1119                 else if (cs->angles[1])
1120                 {
1121                         VectorMA(cs->origin, scale, model->yawmins, cullmins);
1122                         VectorMA(cs->origin, scale, model->yawmaxs, cullmaxs);
1123                 }
1124                 else
1125                 {
1126                         VectorMA(cs->origin, scale, model->normalmins, cullmins);
1127                         VectorMA(cs->origin, scale, model->normalmaxs, cullmaxs);
1128                 }
1129         }
1130         else
1131         {
1132                 // if there is no model (or it could not be loaded), use the physics box
1133                 VectorAdd(cs->origin, ent->fields.server->mins, cullmins);
1134                 VectorAdd(cs->origin, ent->fields.server->maxs, cullmaxs);
1135         }
1136         if (specialvisibilityradius)
1137         {
1138                 cullmins[0] = min(cullmins[0], cs->origin[0] - specialvisibilityradius);
1139                 cullmins[1] = min(cullmins[1], cs->origin[1] - specialvisibilityradius);
1140                 cullmins[2] = min(cullmins[2], cs->origin[2] - specialvisibilityradius);
1141                 cullmaxs[0] = max(cullmaxs[0], cs->origin[0] + specialvisibilityradius);
1142                 cullmaxs[1] = max(cullmaxs[1], cs->origin[1] + specialvisibilityradius);
1143                 cullmaxs[2] = max(cullmaxs[2], cs->origin[2] + specialvisibilityradius);
1144         }
1145
1146         // calculate center of bbox for network prioritization purposes
1147         VectorMAM(0.5f, cullmins, 0.5f, cullmaxs, cs->netcenter);
1148
1149         // if culling box has moved, update pvs cluster links
1150         if (!VectorCompare(cullmins, ent->priv.server->cullmins) || !VectorCompare(cullmaxs, ent->priv.server->cullmaxs))
1151         {
1152                 VectorCopy(cullmins, ent->priv.server->cullmins);
1153                 VectorCopy(cullmaxs, ent->priv.server->cullmaxs);
1154                 // a value of -1 for pvs_numclusters indicates that the links are not
1155                 // cached, and should be re-tested each time, this is the case if the
1156                 // culling box touches too many pvs clusters to store, or if the world
1157                 // model does not support FindBoxClusters
1158                 ent->priv.server->pvs_numclusters = -1;
1159                 if (sv.worldmodel && sv.worldmodel->brush.FindBoxClusters)
1160                 {
1161                         i = sv.worldmodel->brush.FindBoxClusters(sv.worldmodel, cullmins, cullmaxs, MAX_ENTITYCLUSTERS, ent->priv.server->pvs_clusterlist);
1162                         if (i <= MAX_ENTITYCLUSTERS)
1163                                 ent->priv.server->pvs_numclusters = i;
1164                 }
1165         }
1166
1167         return true;
1168 }
1169
1170 void SV_PrepareEntitiesForSending(void)
1171 {
1172         int e;
1173         prvm_edict_t *ent;
1174         // send all entities that touch the pvs
1175         sv.numsendentities = 0;
1176         sv.sendentitiesindex[0] = NULL;
1177         memset(sv.sendentitiesindex, 0, prog->num_edicts * sizeof(*sv.sendentitiesindex));
1178         for (e = 1, ent = PRVM_NEXT_EDICT(prog->edicts);e < prog->num_edicts;e++, ent = PRVM_NEXT_EDICT(ent))
1179         {
1180                 if (!ent->priv.server->free && SV_PrepareEntityForSending(ent, sv.sendentities + sv.numsendentities, e))
1181                 {
1182                         sv.sendentitiesindex[e] = sv.sendentities + sv.numsendentities;
1183                         sv.numsendentities++;
1184                 }
1185         }
1186 }
1187
1188 void SV_MarkWriteEntityStateToClient(entity_state_t *s)
1189 {
1190         int isbmodel;
1191         dp_model_t *model;
1192         prvm_edict_t *ed;
1193         if (sv.sententitiesconsideration[s->number] == sv.sententitiesmark)
1194                 return;
1195         sv.sententitiesconsideration[s->number] = sv.sententitiesmark;
1196         sv.writeentitiestoclient_stats_totalentities++;
1197
1198         if (s->customizeentityforclient)
1199         {
1200                 prog->globals.server->self = s->number;
1201                 prog->globals.server->other = sv.writeentitiestoclient_cliententitynumber;
1202                 PRVM_ExecuteProgram(s->customizeentityforclient, "customizeentityforclient: NULL function");
1203                 if(!PRVM_G_FLOAT(OFS_RETURN) || !SV_PrepareEntityForSending(PRVM_EDICT_NUM(s->number), s, s->number))
1204                         return;
1205         }
1206
1207         // never reject player
1208         if (s->number != sv.writeentitiestoclient_cliententitynumber)
1209         {
1210                 // check various rejection conditions
1211                 if (s->nodrawtoclient == sv.writeentitiestoclient_cliententitynumber)
1212                         return;
1213                 if (s->drawonlytoclient && s->drawonlytoclient != sv.writeentitiestoclient_cliententitynumber)
1214                         return;
1215                 if (s->effects & EF_NODRAW)
1216                         return;
1217                 // LordHavoc: only send entities with a model or important effects
1218                 if (!s->modelindex && s->specialvisibilityradius == 0)
1219                         return;
1220
1221                 isbmodel = (model = sv.models[s->modelindex]) != NULL && model->name[0] == '*';
1222                 // viewmodels don't have visibility checking
1223                 if (s->viewmodelforclient)
1224                 {
1225                         if (s->viewmodelforclient != sv.writeentitiestoclient_cliententitynumber)
1226                                 return;
1227                 }
1228                 else if (s->tagentity)
1229                 {
1230                         // tag attached entities simply check their parent
1231                         if (!sv.sendentitiesindex[s->tagentity])
1232                                 return;
1233                         SV_MarkWriteEntityStateToClient(sv.sendentitiesindex[s->tagentity]);
1234                         if (sv.sententities[s->tagentity] != sv.sententitiesmark)
1235                                 return;
1236                 }
1237                 // always send world submodels in newer protocols because they don't
1238                 // generate much traffic (in old protocols they hog bandwidth)
1239                 // but only if sv_cullentities_nevercullbmodels is off
1240                 else if (!(s->effects & EF_NODEPTHTEST) && (!isbmodel || !sv_cullentities_nevercullbmodels.integer || sv.protocol == PROTOCOL_QUAKE || sv.protocol == PROTOCOL_QUAKEDP || sv.protocol == PROTOCOL_NEHAHRAMOVIE))
1241                 {
1242                         // entity has survived every check so far, check if visible
1243                         ed = PRVM_EDICT_NUM(s->number);
1244
1245                         // if not touching a visible leaf
1246                         if (sv_cullentities_pvs.integer && sv.writeentitiestoclient_pvsbytes)
1247                         {
1248                                 if (ed->priv.server->pvs_numclusters < 0)
1249                                 {
1250                                         // entity too big for clusters list
1251                                         if (sv.worldmodel && sv.worldmodel->brush.BoxTouchingPVS && !sv.worldmodel->brush.BoxTouchingPVS(sv.worldmodel, sv.writeentitiestoclient_pvs, ed->priv.server->cullmins, ed->priv.server->cullmaxs))
1252                                         {
1253                                                 sv.writeentitiestoclient_stats_culled_pvs++;
1254                                                 return;
1255                                         }
1256                                 }
1257                                 else
1258                                 {
1259                                         int i;
1260                                         // check cached clusters list
1261                                         for (i = 0;i < ed->priv.server->pvs_numclusters;i++)
1262                                                 if (CHECKPVSBIT(sv.writeentitiestoclient_pvs, ed->priv.server->pvs_clusterlist[i]))
1263                                                         break;
1264                                         if (i == ed->priv.server->pvs_numclusters)
1265                                         {
1266                                                 sv.writeentitiestoclient_stats_culled_pvs++;
1267                                                 return;
1268                                         }
1269                                 }
1270                         }
1271
1272                         // or not seen by random tracelines
1273                         if (sv_cullentities_trace.integer && !isbmodel && sv.worldmodel->brush.TraceLineOfSight)
1274                         {
1275                                 int samples = s->specialvisibilityradius ? sv_cullentities_trace_samples_extra.integer : sv_cullentities_trace_samples.integer;
1276                                 float enlarge = sv_cullentities_trace_enlarge.value;
1277
1278                                 qboolean visible = TRUE;
1279
1280                                 do
1281                                 {
1282                                         if(Mod_CanSeeBox_Trace(samples, enlarge, sv.worldmodel, sv.writeentitiestoclient_testeye, ed->priv.server->cullmins, ed->priv.server->cullmaxs))
1283                                                 break; // directly visible from the server's view
1284
1285                                         if(sv_cullentities_trace_prediction.integer)
1286                                         {
1287                                                 vec3_t predeye;
1288
1289                                                 // get player velocity
1290                                                 float predtime = bound(0, host_client->ping, 0.2); // / 2
1291                                                         // sorry, no wallhacking by high ping please, and at 200ms
1292                                                         // ping a FPS is annoying to play anyway and a player is
1293                                                         // likely to have changed his direction
1294                                                 VectorMA(sv.writeentitiestoclient_testeye, predtime, host_client->edict->fields.server->velocity, predeye);
1295                                                 if(sv.worldmodel->brush.TraceLineOfSight(sv.worldmodel, sv.writeentitiestoclient_testeye, predeye)) // must be able to go there...
1296                                                 {
1297                                                         if(Mod_CanSeeBox_Trace(samples, enlarge, sv.worldmodel, predeye, ed->priv.server->cullmins, ed->priv.server->cullmaxs))
1298                                                                 break; // directly visible from the predicted view
1299                                                 }
1300                                                 else
1301                                                 {
1302                                                         //Con_DPrintf("Trying to walk into solid in a pingtime... not predicting for culling\n");
1303                                                 }
1304                                         }
1305
1306                                         // when we get here, we can't see the entity
1307                                         visible = false;
1308                                 }
1309                                 while(0);
1310
1311                                 if(visible)
1312                                         svs.clients[sv.writeentitiestoclient_clientnumber].visibletime[s->number] = realtime + sv_cullentities_trace_delay.value;
1313                                 else if (realtime > svs.clients[sv.writeentitiestoclient_clientnumber].visibletime[s->number])
1314                                 {
1315                                         sv.writeentitiestoclient_stats_culled_trace++;
1316                                         return;
1317                                 }
1318                         }
1319                 }
1320         }
1321
1322         // this just marks it for sending
1323         // FIXME: it would be more efficient to send here, but the entity
1324         // compressor isn't that flexible
1325         sv.writeentitiestoclient_stats_visibleentities++;
1326         sv.sententities[s->number] = sv.sententitiesmark;
1327 }
1328
1329 void SV_WriteEntitiesToClient(client_t *client, prvm_edict_t *clent, sizebuf_t *msg)
1330 {
1331         int i, numsendstates;
1332         entity_state_t *s;
1333         prvm_edict_t *camera;
1334
1335         // if there isn't enough space to accomplish anything, skip it
1336         if (msg->cursize + 25 > msg->maxsize)
1337                 return;
1338
1339         sv.writeentitiestoclient_msg = msg;
1340         sv.writeentitiestoclient_clientnumber = client - svs.clients;
1341
1342         sv.writeentitiestoclient_stats_culled_pvs = 0;
1343         sv.writeentitiestoclient_stats_culled_trace = 0;
1344         sv.writeentitiestoclient_stats_visibleentities = 0;
1345         sv.writeentitiestoclient_stats_totalentities = 0;
1346
1347 // find the client's PVS
1348         // the real place being tested from
1349         camera = PRVM_EDICT_NUM( client->clientcamera );
1350         VectorAdd(camera->fields.server->origin, clent->fields.server->view_ofs, sv.writeentitiestoclient_testeye);
1351         sv.writeentitiestoclient_pvsbytes = 0;
1352         if (sv.worldmodel && sv.worldmodel->brush.FatPVS)
1353                 sv.writeentitiestoclient_pvsbytes = sv.worldmodel->brush.FatPVS(sv.worldmodel, sv.writeentitiestoclient_testeye, 8, sv.writeentitiestoclient_pvs, sizeof(sv.writeentitiestoclient_pvs), false);
1354
1355         sv.writeentitiestoclient_cliententitynumber = PRVM_EDICT_TO_PROG(clent); // LordHavoc: for comparison purposes
1356
1357         sv.sententitiesmark++;
1358
1359         for (i = 0;i < sv.numsendentities;i++)
1360                 SV_MarkWriteEntityStateToClient(sv.sendentities + i);
1361
1362         numsendstates = 0;
1363         for (i = 0;i < sv.numsendentities;i++)
1364         {
1365                 if (sv.sententities[sv.sendentities[i].number] == sv.sententitiesmark)
1366                 {
1367                         s = &sv.writeentitiestoclient_sendstates[numsendstates++];
1368                         *s = sv.sendentities[i];
1369                         if (s->exteriormodelforclient && s->exteriormodelforclient == sv.writeentitiestoclient_cliententitynumber)
1370                                 s->flags |= RENDER_EXTERIORMODEL;
1371                 }
1372         }
1373
1374         if (sv_cullentities_stats.integer)
1375                 Con_Printf("client \"%s\" entities: %d total, %d visible, %d culled by: %d pvs %d trace\n", client->name, sv.writeentitiestoclient_stats_totalentities, sv.writeentitiestoclient_stats_visibleentities, sv.writeentitiestoclient_stats_culled_pvs + sv.writeentitiestoclient_stats_culled_trace, sv.writeentitiestoclient_stats_culled_pvs, sv.writeentitiestoclient_stats_culled_trace);
1376
1377         EntityFrameCSQC_WriteFrame(msg, numsendstates, sv.writeentitiestoclient_sendstates);
1378
1379         if (client->entitydatabase5)
1380                 EntityFrame5_WriteFrame(msg, client->entitydatabase5, numsendstates, sv.writeentitiestoclient_sendstates, client - svs.clients + 1, client->movesequence);
1381         else if (client->entitydatabase4)
1382         {
1383                 EntityFrame4_WriteFrame(msg, client->entitydatabase4, numsendstates, sv.writeentitiestoclient_sendstates);
1384                 Protocol_WriteStatsReliable();
1385         }
1386         else if (client->entitydatabase)
1387         {
1388                 EntityFrame_WriteFrame(msg, client->entitydatabase, numsendstates, sv.writeentitiestoclient_sendstates, client - svs.clients + 1);
1389                 Protocol_WriteStatsReliable();
1390         }
1391         else
1392         {
1393                 EntityFrameQuake_WriteFrame(msg, numsendstates, sv.writeentitiestoclient_sendstates);
1394                 Protocol_WriteStatsReliable();
1395         }
1396 }
1397
1398 /*
1399 =============
1400 SV_CleanupEnts
1401
1402 =============
1403 */
1404 static void SV_CleanupEnts (void)
1405 {
1406         int             e;
1407         prvm_edict_t    *ent;
1408
1409         ent = PRVM_NEXT_EDICT(prog->edicts);
1410         for (e=1 ; e<prog->num_edicts ; e++, ent = PRVM_NEXT_EDICT(ent))
1411                 ent->fields.server->effects = (int)ent->fields.server->effects & ~EF_MUZZLEFLASH;
1412 }
1413
1414 /*
1415 ==================
1416 SV_WriteClientdataToMessage
1417
1418 ==================
1419 */
1420 void SV_WriteClientdataToMessage (client_t *client, prvm_edict_t *ent, sizebuf_t *msg, int *stats)
1421 {
1422         int             bits;
1423         int             i;
1424         prvm_edict_t    *other;
1425         int             items;
1426         prvm_eval_t     *val;
1427         vec3_t  punchvector;
1428         int             viewzoom;
1429         const char *s;
1430         float   *statsf = (float *)stats;
1431
1432 //
1433 // send a damage message
1434 //
1435         if (ent->fields.server->dmg_take || ent->fields.server->dmg_save)
1436         {
1437                 other = PRVM_PROG_TO_EDICT(ent->fields.server->dmg_inflictor);
1438                 MSG_WriteByte (msg, svc_damage);
1439                 MSG_WriteByte (msg, (int)ent->fields.server->dmg_save);
1440                 MSG_WriteByte (msg, (int)ent->fields.server->dmg_take);
1441                 for (i=0 ; i<3 ; i++)
1442                         MSG_WriteCoord (msg, other->fields.server->origin[i] + 0.5*(other->fields.server->mins[i] + other->fields.server->maxs[i]), sv.protocol);
1443
1444                 ent->fields.server->dmg_take = 0;
1445                 ent->fields.server->dmg_save = 0;
1446         }
1447
1448 //
1449 // send the current viewpos offset from the view entity
1450 //
1451         SV_SetIdealPitch ();            // how much to look up / down ideally
1452
1453 // a fixangle might get lost in a dropped packet.  Oh well.
1454         if(ent->fields.server->fixangle)
1455         {
1456                 // angle fixing was requested by global thinking code...
1457                 // so store the current angles for later use
1458                 memcpy(host_client->fixangle_angles, ent->fields.server->angles, sizeof(host_client->fixangle_angles));
1459                 host_client->fixangle_angles_set = TRUE;
1460
1461                 // and clear fixangle for the next frame
1462                 ent->fields.server->fixangle = 0;
1463         }
1464
1465         if (host_client->fixangle_angles_set)
1466         {
1467                 MSG_WriteByte (msg, svc_setangle);
1468                 for (i=0 ; i < 3 ; i++)
1469                         MSG_WriteAngle (msg, host_client->fixangle_angles[i], sv.protocol);
1470                 host_client->fixangle_angles_set = FALSE;
1471         }
1472
1473         // stuff the sigil bits into the high bits of items for sbar, or else
1474         // mix in items2
1475         val = PRVM_EDICTFIELDVALUE(ent, prog->fieldoffsets.items2);
1476         if (gamemode == GAME_HIPNOTIC || gamemode == GAME_ROGUE)
1477                 items = (int)ent->fields.server->items | ((int)val->_float << 23);
1478         else
1479                 items = (int)ent->fields.server->items | ((int)prog->globals.server->serverflags << 28);
1480
1481         VectorClear(punchvector);
1482         if ((val = PRVM_EDICTFIELDVALUE(ent, prog->fieldoffsets.punchvector)))
1483                 VectorCopy(val->vector, punchvector);
1484
1485         // cache weapon model name and index in client struct to save time
1486         // (this search can be almost 1% of cpu time!)
1487         s = PRVM_GetString(ent->fields.server->weaponmodel);
1488         if (strcmp(s, client->weaponmodel))
1489         {
1490                 strlcpy(client->weaponmodel, s, sizeof(client->weaponmodel));
1491                 client->weaponmodelindex = SV_ModelIndex(s, 1);
1492         }
1493
1494         viewzoom = 255;
1495         if ((val = PRVM_EDICTFIELDVALUE(ent, prog->fieldoffsets.viewzoom)))
1496                 viewzoom = (int)(val->_float * 255.0f);
1497         if (viewzoom == 0)
1498                 viewzoom = 255;
1499
1500         bits = 0;
1501
1502         if ((int)ent->fields.server->flags & FL_ONGROUND)
1503                 bits |= SU_ONGROUND;
1504         if (ent->fields.server->waterlevel >= 2)
1505                 bits |= SU_INWATER;
1506         if (ent->fields.server->idealpitch)
1507                 bits |= SU_IDEALPITCH;
1508
1509         for (i=0 ; i<3 ; i++)
1510         {
1511                 if (ent->fields.server->punchangle[i])
1512                         bits |= (SU_PUNCH1<<i);
1513                 if (sv.protocol != PROTOCOL_QUAKE && sv.protocol != PROTOCOL_QUAKEDP && sv.protocol != PROTOCOL_NEHAHRAMOVIE && sv.protocol != PROTOCOL_NEHAHRABJP && sv.protocol != PROTOCOL_NEHAHRABJP2 && sv.protocol != PROTOCOL_NEHAHRABJP3)
1514                         if (punchvector[i])
1515                                 bits |= (SU_PUNCHVEC1<<i);
1516                 if (ent->fields.server->velocity[i])
1517                         bits |= (SU_VELOCITY1<<i);
1518         }
1519
1520         memset(stats, 0, sizeof(int[MAX_CL_STATS]));
1521         stats[STAT_VIEWHEIGHT] = (int)ent->fields.server->view_ofs[2];
1522         stats[STAT_ITEMS] = items;
1523         stats[STAT_WEAPONFRAME] = (int)ent->fields.server->weaponframe;
1524         stats[STAT_ARMOR] = (int)ent->fields.server->armorvalue;
1525         stats[STAT_WEAPON] = client->weaponmodelindex;
1526         stats[STAT_HEALTH] = (int)ent->fields.server->health;
1527         stats[STAT_AMMO] = (int)ent->fields.server->currentammo;
1528         stats[STAT_SHELLS] = (int)ent->fields.server->ammo_shells;
1529         stats[STAT_NAILS] = (int)ent->fields.server->ammo_nails;
1530         stats[STAT_ROCKETS] = (int)ent->fields.server->ammo_rockets;
1531         stats[STAT_CELLS] = (int)ent->fields.server->ammo_cells;
1532         stats[STAT_ACTIVEWEAPON] = (int)ent->fields.server->weapon;
1533         stats[STAT_VIEWZOOM] = viewzoom;
1534         stats[STAT_TOTALSECRETS] = prog->globals.server->total_secrets;
1535         stats[STAT_TOTALMONSTERS] = prog->globals.server->total_monsters;
1536         // the QC bumps these itself by sending svc_'s, so we have to keep them
1537         // zero or they'll be corrected by the engine
1538         //stats[STAT_SECRETS] = prog->globals.server->found_secrets;
1539         //stats[STAT_MONSTERS] = prog->globals.server->killed_monsters;
1540
1541         // movement settings for prediction
1542         // note: these are not sent in protocols with lower MAX_CL_STATS limits
1543         statsf[STAT_MOVEVARS_TICRATE] = sys_ticrate.value;
1544         statsf[STAT_MOVEVARS_TIMESCALE] = slowmo.value;
1545         statsf[STAT_MOVEVARS_GRAVITY] = sv_gravity.value;
1546         statsf[STAT_MOVEVARS_STOPSPEED] = sv_stopspeed.value;
1547         statsf[STAT_MOVEVARS_MAXSPEED] = sv_maxspeed.value;
1548         statsf[STAT_MOVEVARS_SPECTATORMAXSPEED] = sv_maxspeed.value; // FIXME: QW has a separate cvar for this
1549         statsf[STAT_MOVEVARS_ACCELERATE] = sv_accelerate.value;
1550         statsf[STAT_MOVEVARS_AIRACCELERATE] = sv_airaccelerate.value >= 0 ? sv_airaccelerate.value : sv_accelerate.value;
1551         statsf[STAT_MOVEVARS_WATERACCELERATE] = sv_wateraccelerate.value >= 0 ? sv_wateraccelerate.value : sv_accelerate.value;
1552         val = PRVM_EDICTFIELDVALUE(ent, prog->fieldoffsets.gravity);
1553         statsf[STAT_MOVEVARS_ENTGRAVITY] = (val && val->_float != 0) ? val->_float : 1.0f;
1554         statsf[STAT_MOVEVARS_JUMPVELOCITY] = sv_jumpvelocity.value;
1555         statsf[STAT_MOVEVARS_EDGEFRICTION] = sv_edgefriction.value;
1556         statsf[STAT_MOVEVARS_MAXAIRSPEED] = sv_maxairspeed.value;
1557         statsf[STAT_MOVEVARS_STEPHEIGHT] = sv_stepheight.value;
1558         statsf[STAT_MOVEVARS_AIRACCEL_QW] = sv_airaccel_qw.value;
1559         statsf[STAT_MOVEVARS_AIRACCEL_SIDEWAYS_FRICTION] = sv_airaccel_sideways_friction.value;
1560         statsf[STAT_MOVEVARS_FRICTION] = sv_friction.value;
1561         statsf[STAT_MOVEVARS_WATERFRICTION] = sv_waterfriction.value >= 0 ? sv_waterfriction.value : sv_friction.value;
1562         statsf[STAT_FRAGLIMIT] = fraglimit.value;
1563         statsf[STAT_TIMELIMIT] = timelimit.value;
1564
1565         if (sv.protocol == PROTOCOL_QUAKE || sv.protocol == PROTOCOL_QUAKEDP || sv.protocol == PROTOCOL_NEHAHRAMOVIE || sv.protocol == PROTOCOL_NEHAHRABJP || sv.protocol == PROTOCOL_NEHAHRABJP2 || sv.protocol == PROTOCOL_NEHAHRABJP3 || sv.protocol == PROTOCOL_DARKPLACES1 || sv.protocol == PROTOCOL_DARKPLACES2 || sv.protocol == PROTOCOL_DARKPLACES3 || sv.protocol == PROTOCOL_DARKPLACES4 || sv.protocol == PROTOCOL_DARKPLACES5)
1566         {
1567                 if (stats[STAT_VIEWHEIGHT] != DEFAULT_VIEWHEIGHT) bits |= SU_VIEWHEIGHT;
1568                 bits |= SU_ITEMS;
1569                 if (stats[STAT_WEAPONFRAME]) bits |= SU_WEAPONFRAME;
1570                 if (stats[STAT_ARMOR]) bits |= SU_ARMOR;
1571                 bits |= SU_WEAPON;
1572                 // FIXME: which protocols support this?  does PROTOCOL_DARKPLACES3 support viewzoom?
1573                 if (sv.protocol == PROTOCOL_DARKPLACES2 || sv.protocol == PROTOCOL_DARKPLACES3 || sv.protocol == PROTOCOL_DARKPLACES4 || sv.protocol == PROTOCOL_DARKPLACES5)
1574                         if (viewzoom != 255)
1575                                 bits |= SU_VIEWZOOM;
1576         }
1577
1578         if (bits >= 65536)
1579                 bits |= SU_EXTEND1;
1580         if (bits >= 16777216)
1581                 bits |= SU_EXTEND2;
1582
1583         // send the data
1584         MSG_WriteByte (msg, svc_clientdata);
1585         MSG_WriteShort (msg, bits);
1586         if (bits & SU_EXTEND1)
1587                 MSG_WriteByte(msg, bits >> 16);
1588         if (bits & SU_EXTEND2)
1589                 MSG_WriteByte(msg, bits >> 24);
1590
1591         if (bits & SU_VIEWHEIGHT)
1592                 MSG_WriteChar (msg, stats[STAT_VIEWHEIGHT]);
1593
1594         if (bits & SU_IDEALPITCH)
1595                 MSG_WriteChar (msg, (int)ent->fields.server->idealpitch);
1596
1597         for (i=0 ; i<3 ; i++)
1598         {
1599                 if (bits & (SU_PUNCH1<<i))
1600                 {
1601                         if (sv.protocol == PROTOCOL_QUAKE || sv.protocol == PROTOCOL_QUAKEDP || sv.protocol == PROTOCOL_NEHAHRAMOVIE || sv.protocol == PROTOCOL_NEHAHRABJP || sv.protocol == PROTOCOL_NEHAHRABJP2 || sv.protocol == PROTOCOL_NEHAHRABJP3)
1602                                 MSG_WriteChar(msg, (int)ent->fields.server->punchangle[i]);
1603                         else
1604                                 MSG_WriteAngle16i(msg, ent->fields.server->punchangle[i]);
1605                 }
1606                 if (bits & (SU_PUNCHVEC1<<i))
1607                 {
1608                         if (sv.protocol == PROTOCOL_DARKPLACES1 || sv.protocol == PROTOCOL_DARKPLACES2 || sv.protocol == PROTOCOL_DARKPLACES3 || sv.protocol == PROTOCOL_DARKPLACES4)
1609                                 MSG_WriteCoord16i(msg, punchvector[i]);
1610                         else
1611                                 MSG_WriteCoord32f(msg, punchvector[i]);
1612                 }
1613                 if (bits & (SU_VELOCITY1<<i))
1614                 {
1615                         if (sv.protocol == PROTOCOL_QUAKE || sv.protocol == PROTOCOL_QUAKEDP || sv.protocol == PROTOCOL_NEHAHRAMOVIE || sv.protocol == PROTOCOL_NEHAHRABJP || sv.protocol == PROTOCOL_NEHAHRABJP2 || sv.protocol == PROTOCOL_NEHAHRABJP3 || sv.protocol == PROTOCOL_DARKPLACES1 || sv.protocol == PROTOCOL_DARKPLACES2 || sv.protocol == PROTOCOL_DARKPLACES3 || sv.protocol == PROTOCOL_DARKPLACES4)
1616                                 MSG_WriteChar(msg, (int)(ent->fields.server->velocity[i] * (1.0f / 16.0f)));
1617                         else
1618                                 MSG_WriteCoord32f(msg, ent->fields.server->velocity[i]);
1619                 }
1620         }
1621
1622         if (bits & SU_ITEMS)
1623                 MSG_WriteLong (msg, stats[STAT_ITEMS]);
1624
1625         if (sv.protocol == PROTOCOL_DARKPLACES5)
1626         {
1627                 if (bits & SU_WEAPONFRAME)
1628                         MSG_WriteShort (msg, stats[STAT_WEAPONFRAME]);
1629                 if (bits & SU_ARMOR)
1630                         MSG_WriteShort (msg, stats[STAT_ARMOR]);
1631                 if (bits & SU_WEAPON)
1632                         MSG_WriteShort (msg, stats[STAT_WEAPON]);
1633                 MSG_WriteShort (msg, stats[STAT_HEALTH]);
1634                 MSG_WriteShort (msg, stats[STAT_AMMO]);
1635                 MSG_WriteShort (msg, stats[STAT_SHELLS]);
1636                 MSG_WriteShort (msg, stats[STAT_NAILS]);
1637                 MSG_WriteShort (msg, stats[STAT_ROCKETS]);
1638                 MSG_WriteShort (msg, stats[STAT_CELLS]);
1639                 MSG_WriteShort (msg, stats[STAT_ACTIVEWEAPON]);
1640                 if (bits & SU_VIEWZOOM)
1641                         MSG_WriteShort (msg, bound(0, stats[STAT_VIEWZOOM], 65535));
1642         }
1643         else if (sv.protocol == PROTOCOL_QUAKE || sv.protocol == PROTOCOL_QUAKEDP || sv.protocol == PROTOCOL_NEHAHRAMOVIE || sv.protocol == PROTOCOL_NEHAHRABJP || sv.protocol == PROTOCOL_NEHAHRABJP2 || sv.protocol == PROTOCOL_NEHAHRABJP3 || sv.protocol == PROTOCOL_DARKPLACES1 || sv.protocol == PROTOCOL_DARKPLACES2 || sv.protocol == PROTOCOL_DARKPLACES3 || sv.protocol == PROTOCOL_DARKPLACES4)
1644         {
1645                 if (bits & SU_WEAPONFRAME)
1646                         MSG_WriteByte (msg, stats[STAT_WEAPONFRAME]);
1647                 if (bits & SU_ARMOR)
1648                         MSG_WriteByte (msg, stats[STAT_ARMOR]);
1649                 if (bits & SU_WEAPON)
1650                 {
1651                         if (sv.protocol == PROTOCOL_NEHAHRABJP || sv.protocol == PROTOCOL_NEHAHRABJP2 || sv.protocol == PROTOCOL_NEHAHRABJP3)
1652                                 MSG_WriteShort (msg, stats[STAT_WEAPON]);
1653                         else
1654                                 MSG_WriteByte (msg, stats[STAT_WEAPON]);
1655                 }
1656                 MSG_WriteShort (msg, stats[STAT_HEALTH]);
1657                 MSG_WriteByte (msg, stats[STAT_AMMO]);
1658                 MSG_WriteByte (msg, stats[STAT_SHELLS]);
1659                 MSG_WriteByte (msg, stats[STAT_NAILS]);
1660                 MSG_WriteByte (msg, stats[STAT_ROCKETS]);
1661                 MSG_WriteByte (msg, stats[STAT_CELLS]);
1662                 if (gamemode == GAME_HIPNOTIC || gamemode == GAME_ROGUE || gamemode == GAME_NEXUIZ)
1663                 {
1664                         for (i = 0;i < 32;i++)
1665                                 if (stats[STAT_ACTIVEWEAPON] & (1<<i))
1666                                         break;
1667                         MSG_WriteByte (msg, i);
1668                 }
1669                 else
1670                         MSG_WriteByte (msg, stats[STAT_ACTIVEWEAPON]);
1671                 if (bits & SU_VIEWZOOM)
1672                 {
1673                         if (sv.protocol == PROTOCOL_DARKPLACES2 || sv.protocol == PROTOCOL_DARKPLACES3 || sv.protocol == PROTOCOL_DARKPLACES4)
1674                                 MSG_WriteByte (msg, bound(0, stats[STAT_VIEWZOOM], 255));
1675                         else
1676                                 MSG_WriteShort (msg, bound(0, stats[STAT_VIEWZOOM], 65535));
1677                 }
1678         }
1679 }
1680
1681 void SV_FlushBroadcastMessages(void)
1682 {
1683         int i;
1684         client_t *client;
1685         if (sv.datagram.cursize <= 0)
1686                 return;
1687         for (i = 0, client = svs.clients;i < svs.maxclients;i++, client++)
1688         {
1689                 if (!client->spawned || !client->netconnection || client->unreliablemsg.cursize + sv.datagram.cursize > client->unreliablemsg.maxsize || client->unreliablemsg_splitpoints >= (int)(sizeof(client->unreliablemsg_splitpoint)/sizeof(client->unreliablemsg_splitpoint[0])))
1690                         continue;
1691                 SZ_Write(&client->unreliablemsg, sv.datagram.data, sv.datagram.cursize);
1692                 client->unreliablemsg_splitpoint[client->unreliablemsg_splitpoints++] = client->unreliablemsg.cursize;
1693         }
1694         SZ_Clear(&sv.datagram);
1695 }
1696
1697 static void SV_WriteUnreliableMessages(client_t *client, sizebuf_t *msg)
1698 {
1699         // scan the splitpoints to find out how many we can fit in
1700         int numsegments, j, split;
1701         if (!client->unreliablemsg_splitpoints)
1702                 return;
1703         // always accept the first one if it's within 1400 bytes, this ensures
1704         // that very big datagrams which are over the rate limit still get
1705         // through, just to keep it working
1706         if (msg->cursize + client->unreliablemsg_splitpoint[0] > msg->maxsize && msg->maxsize < 1400)
1707         {
1708                 numsegments = 1;
1709                 msg->maxsize = 1400;
1710         }
1711         else
1712                 for (numsegments = 0;numsegments < client->unreliablemsg_splitpoints;numsegments++)
1713                         if (msg->cursize + client->unreliablemsg_splitpoint[numsegments] > msg->maxsize)
1714                                 break;
1715         if (numsegments > 0)
1716         {
1717                 // some will fit, so add the ones that will fit
1718                 split = client->unreliablemsg_splitpoint[numsegments-1];
1719                 // note this discards ones that were accepted by the segments scan but
1720                 // can not fit, such as a really huge first one that will never ever
1721                 // fit in a packet...
1722                 if (msg->cursize + split <= msg->maxsize)
1723                         SZ_Write(msg, client->unreliablemsg.data, split);
1724                 // remove the part we sent, keeping any remaining data
1725                 client->unreliablemsg.cursize -= split;
1726                 if (client->unreliablemsg.cursize > 0)
1727                         memmove(client->unreliablemsg.data, client->unreliablemsg.data + split, client->unreliablemsg.cursize);
1728                 // adjust remaining splitpoints
1729                 client->unreliablemsg_splitpoints -= numsegments;
1730                 for (j = 0;j < client->unreliablemsg_splitpoints;j++)
1731                         client->unreliablemsg_splitpoint[j] = client->unreliablemsg_splitpoint[numsegments + j] - split;
1732         }
1733 }
1734
1735 /*
1736 =======================
1737 SV_SendClientDatagram
1738 =======================
1739 */
1740 static void SV_SendClientDatagram (client_t *client)
1741 {
1742         int clientrate, maxrate, maxsize, maxsize2, downloadsize;
1743         sizebuf_t msg;
1744         int stats[MAX_CL_STATS];
1745         unsigned char sv_sendclientdatagram_buf[NET_MAXMESSAGE];
1746
1747         // PROTOCOL_DARKPLACES5 and later support packet size limiting of updates
1748         maxrate = max(NET_MINRATE, sv_maxrate.integer);
1749         if (sv_maxrate.integer != maxrate)
1750                 Cvar_SetValueQuick(&sv_maxrate, maxrate);
1751         // clientrate determines the 'cleartime' of a packet
1752         // (how long to wait before sending another, based on this packet's size)
1753         clientrate = bound(NET_MINRATE, client->rate, maxrate);
1754
1755         if (LHNETADDRESS_GetAddressType(&host_client->netconnection->peeraddress) == LHNETADDRESSTYPE_LOOP && !sv_ratelimitlocalplayer.integer)
1756         {
1757                 // for good singleplayer, send huge packets
1758                 maxsize = sizeof(sv_sendclientdatagram_buf);
1759                 maxsize2 = sizeof(sv_sendclientdatagram_buf);
1760                 // never limit frequency in singleplayer
1761                 clientrate = 1000000000;
1762         }
1763         else if (sv.protocol == PROTOCOL_QUAKE || sv.protocol == PROTOCOL_QUAKEDP || sv.protocol == PROTOCOL_NEHAHRAMOVIE || sv.protocol == PROTOCOL_NEHAHRABJP || sv.protocol == PROTOCOL_NEHAHRABJP2 || sv.protocol == PROTOCOL_NEHAHRABJP3 || sv.protocol == PROTOCOL_QUAKEWORLD)
1764         {
1765                 // no packet size limit support on Quake protocols because it just
1766                 // causes missing entities/effects
1767                 // packets are simply sent less often to obey the rate limit
1768                 maxsize = 1024;
1769                 maxsize2 = 1024;
1770         }
1771         else if (sv.protocol == PROTOCOL_DARKPLACES1 || sv.protocol == PROTOCOL_DARKPLACES2 || sv.protocol == PROTOCOL_DARKPLACES3 || sv.protocol == PROTOCOL_DARKPLACES4)
1772         {
1773                 // no packet size limit support on DP1-4 protocols because they kick
1774                 // the client off if they overflow, and miss effects
1775                 // packets are simply sent less often to obey the rate limit
1776                 maxsize = sizeof(sv_sendclientdatagram_buf);
1777                 maxsize2 = sizeof(sv_sendclientdatagram_buf);
1778         }
1779         else
1780         {
1781                 // DP5 and later protocols support packet size limiting which is a
1782                 // better method than limiting packet frequency as QW does
1783                 //
1784                 // at very low rates (or very small sys_ticrate) the packet size is
1785                 // not reduced below 128, but packets may be sent less often
1786                 maxsize = (int)(clientrate * sys_ticrate.value);
1787                 maxsize = bound(128, maxsize, 1400);
1788                 maxsize2 = 1400;
1789                 // csqc entities can easily exceed 128 bytes, so disable throttling in
1790                 // mods that use csqc (they are likely to use less bandwidth anyway)
1791                 if (sv.csqc_progsize > 0)
1792                         maxsize = maxsize2;
1793         }
1794
1795         // obey rate limit by limiting packet frequency if the packet size
1796         // limiting fails
1797         // (usually this is caused by reliable messages)
1798         if (!NetConn_CanSend(client->netconnection))
1799                 return;
1800
1801         // while downloading, limit entity updates to half the packet
1802         // (any leftover space will be used for downloading)
1803         if (host_client->download_file)
1804                 maxsize /= 2;
1805
1806         msg.data = sv_sendclientdatagram_buf;
1807         msg.maxsize = maxsize;
1808         msg.cursize = 0;
1809         msg.allowoverflow = false;
1810
1811         if (host_client->spawned)
1812         {
1813                 // the player is in the game
1814                 MSG_WriteByte (&msg, svc_time);
1815                 MSG_WriteFloat (&msg, sv.time);
1816
1817                 // add the client specific data to the datagram
1818                 SV_WriteClientdataToMessage (client, client->edict, &msg, stats);
1819                 // now update the stats[] array using any registered custom fields
1820                 VM_SV_UpdateCustomStats (client, client->edict, &msg, stats);
1821                 // set host_client->statsdeltabits
1822                 Protocol_UpdateClientStats (stats);
1823
1824                 // add as many queued unreliable messages (effects) as we can fit
1825                 // limit effects to half of the remaining space
1826                 msg.maxsize -= (msg.maxsize - msg.cursize) / 2;
1827                 if (client->unreliablemsg.cursize)
1828                         SV_WriteUnreliableMessages (client, &msg);
1829
1830                 msg.maxsize = maxsize;
1831
1832                 // now write as many entities as we can fit, and also sends stats
1833                 SV_WriteEntitiesToClient (client, client->edict, &msg);
1834         }
1835         else if (realtime > client->keepalivetime)
1836         {
1837                 // the player isn't totally in the game yet
1838                 // send small keepalive messages if too much time has passed
1839                 // (may also be sending downloads)
1840                 msg.maxsize = maxsize2;
1841                 client->keepalivetime = realtime + 5;
1842                 MSG_WriteChar (&msg, svc_nop);
1843         }
1844
1845         msg.maxsize = maxsize2;
1846
1847         // if a download is active, see if there is room to fit some download data
1848         // in this packet
1849         downloadsize = maxsize * 2 - msg.cursize - 7;
1850         if (host_client->download_file && host_client->download_started && downloadsize > 0)
1851         {
1852                 fs_offset_t downloadstart;
1853                 unsigned char data[1400];
1854                 downloadstart = FS_Tell(host_client->download_file);
1855                 downloadsize = min(downloadsize, (int)sizeof(data));
1856                 downloadsize = FS_Read(host_client->download_file, data, downloadsize);
1857                 // note this sends empty messages if at the end of the file, which is
1858                 // necessary to keep the packet loss logic working
1859                 // (the last blocks may be lost and need to be re-sent, and that will
1860                 //  only occur if the client acks the empty end messages, revealing
1861                 //  a gap in the download progress, causing the last blocks to be
1862                 //  sent again)
1863                 MSG_WriteChar (&msg, svc_downloaddata);
1864                 MSG_WriteLong (&msg, downloadstart);
1865                 MSG_WriteShort (&msg, downloadsize);
1866                 if (downloadsize > 0)
1867                         SZ_Write (&msg, data, downloadsize);
1868         }
1869
1870         // reliable only if none is in progress
1871         if(client->sendsignon != 2 && !client->netconnection->sendMessageLength)
1872                 SV_WriteDemoMessage(client, &(client->netconnection->message), false);
1873         // unreliable
1874         SV_WriteDemoMessage(client, &msg, false);
1875
1876 // send the datagram
1877         NetConn_SendUnreliableMessage (client->netconnection, &msg, sv.protocol, clientrate, client->sendsignon == 2);
1878         if (client->sendsignon == 1 && !client->netconnection->message.cursize)
1879                 client->sendsignon = 2; // prevent reliable until client sends prespawn (this is the keepalive phase)
1880 }
1881
1882 /*
1883 =======================
1884 SV_UpdateToReliableMessages
1885 =======================
1886 */
1887 static void SV_UpdateToReliableMessages (void)
1888 {
1889         int i, j;
1890         client_t *client;
1891         prvm_eval_t *val;
1892         const char *name;
1893         const char *model;
1894         const char *skin;
1895
1896 // check for changes to be sent over the reliable streams
1897         for (i = 0, host_client = svs.clients;i < svs.maxclients;i++, host_client++)
1898         {
1899                 // update the host_client fields we care about according to the entity fields
1900                 host_client->edict = PRVM_EDICT_NUM(i+1);
1901
1902                 // DP_SV_CLIENTNAME
1903                 name = PRVM_GetString(host_client->edict->fields.server->netname);
1904                 if (name == NULL)
1905                         name = "";
1906                 // always point the string back at host_client->name to keep it safe
1907                 strlcpy (host_client->name, name, sizeof (host_client->name));
1908                 host_client->edict->fields.server->netname = PRVM_SetEngineString(host_client->name);
1909                 if (strcmp(host_client->old_name, host_client->name))
1910                 {
1911                         if (host_client->spawned)
1912                                 SV_BroadcastPrintf("%s changed name to %s\n", host_client->old_name, host_client->name);
1913                         strlcpy(host_client->old_name, host_client->name, sizeof(host_client->old_name));
1914                         // send notification to all clients
1915                         MSG_WriteByte (&sv.reliable_datagram, svc_updatename);
1916                         MSG_WriteByte (&sv.reliable_datagram, i);
1917                         MSG_WriteString (&sv.reliable_datagram, host_client->name);
1918                         SV_WriteNetnameIntoDemo(host_client);
1919                 }
1920
1921                 // DP_SV_CLIENTCOLORS
1922                 // this is always found (since it's added by the progs loader)
1923                 if ((val = PRVM_EDICTFIELDVALUE(host_client->edict, prog->fieldoffsets.clientcolors)))
1924                         host_client->colors = (int)val->_float;
1925                 if (host_client->old_colors != host_client->colors)
1926                 {
1927                         host_client->old_colors = host_client->colors;
1928                         // send notification to all clients
1929                         MSG_WriteByte (&sv.reliable_datagram, svc_updatecolors);
1930                         MSG_WriteByte (&sv.reliable_datagram, i);
1931                         MSG_WriteByte (&sv.reliable_datagram, host_client->colors);
1932                 }
1933
1934                 // NEXUIZ_PLAYERMODEL
1935                 if( prog->fieldoffsets.playermodel >= 0 ) {
1936                         model = PRVM_GetString(PRVM_EDICTFIELDVALUE(host_client->edict, prog->fieldoffsets.playermodel)->string);
1937                         if (model == NULL)
1938                                 model = "";
1939                         // always point the string back at host_client->name to keep it safe
1940                         strlcpy (host_client->playermodel, model, sizeof (host_client->playermodel));
1941                         PRVM_EDICTFIELDVALUE(host_client->edict, prog->fieldoffsets.playermodel)->string = PRVM_SetEngineString(host_client->playermodel);
1942                 }
1943
1944                 // NEXUIZ_PLAYERSKIN
1945                 if( prog->fieldoffsets.playerskin >= 0 ) {
1946                         skin = PRVM_GetString(PRVM_EDICTFIELDVALUE(host_client->edict, prog->fieldoffsets.playerskin)->string);
1947                         if (skin == NULL)
1948                                 skin = "";
1949                         // always point the string back at host_client->name to keep it safe
1950                         strlcpy (host_client->playerskin, skin, sizeof (host_client->playerskin));
1951                         PRVM_EDICTFIELDVALUE(host_client->edict, prog->fieldoffsets.playerskin)->string = PRVM_SetEngineString(host_client->playerskin);
1952                 }
1953
1954                 // TODO: add an extension name for this [1/17/2008 Black]
1955                 if ((val = PRVM_EDICTFIELDVALUE(host_client->edict, prog->fieldoffsets.clientcamera)) && val->edict > 0 ) {
1956                         int oldclientcamera = host_client->clientcamera;
1957                         if( val->edict >= prog->max_edicts || PRVM_EDICT_NUM( val->edict )->priv.required->free ) {
1958                                 val->edict = host_client->clientcamera = PRVM_NUM_FOR_EDICT( host_client->edict );
1959                         } else {
1960                                 host_client->clientcamera = val->edict;
1961                         }
1962
1963                         if( oldclientcamera != host_client->clientcamera ) {
1964                                 MSG_WriteByte (&sv.reliable_datagram, svc_setview );
1965                                 MSG_WriteShort (&host_client->netconnection->message, host_client->clientcamera);
1966                         }
1967                 }
1968
1969                 // frags
1970                 host_client->frags = (int)host_client->edict->fields.server->frags;
1971                 if(gamemode == GAME_NEXUIZ)
1972                         if(!host_client->spawned && host_client->netconnection)
1973                                 host_client->frags = -666;
1974                 if (host_client->old_frags != host_client->frags)
1975                 {
1976                         host_client->old_frags = host_client->frags;
1977                         // send notification to all clients
1978                         MSG_WriteByte (&sv.reliable_datagram, svc_updatefrags);
1979                         MSG_WriteByte (&sv.reliable_datagram, i);
1980                         MSG_WriteShort (&sv.reliable_datagram, host_client->frags);
1981                 }
1982         }
1983
1984         for (j = 0, client = svs.clients;j < svs.maxclients;j++, client++)
1985                 if (client->netconnection)
1986                         SZ_Write (&client->netconnection->message, sv.reliable_datagram.data, sv.reliable_datagram.cursize);
1987
1988         SZ_Clear (&sv.reliable_datagram);
1989 }
1990
1991
1992 /*
1993 =======================
1994 SV_SendClientMessages
1995 =======================
1996 */
1997 void SV_SendClientMessages (void)
1998 {
1999         int i, prepared = false;
2000
2001         if (sv.protocol == PROTOCOL_QUAKEWORLD)
2002                 Sys_Error("SV_SendClientMessages: no quakeworld support\n");
2003
2004         SV_FlushBroadcastMessages();
2005
2006 // update frags, names, etc
2007         SV_UpdateToReliableMessages();
2008
2009 // build individual updates
2010         for (i = 0, host_client = svs.clients;i < svs.maxclients;i++, host_client++)
2011         {
2012                 if (!host_client->active)
2013                         continue;
2014                 if (!host_client->netconnection)
2015                         continue;
2016
2017                 if (host_client->netconnection->message.overflowed)
2018                 {
2019                         SV_DropClient (true);   // if the message couldn't send, kick off
2020                         continue;
2021                 }
2022
2023                 if (!prepared)
2024                 {
2025                         prepared = true;
2026                         // only prepare entities once per frame
2027                         SV_PrepareEntitiesForSending();
2028                 }
2029                 SV_SendClientDatagram (host_client);
2030         }
2031
2032 // clear muzzle flashes
2033         SV_CleanupEnts();
2034 }
2035
2036 static void SV_StartDownload_f(void)
2037 {
2038         if (host_client->download_file)
2039                 host_client->download_started = true;
2040 }
2041
2042 static void SV_Download_f(void)
2043 {
2044         const char *whichpack, *whichpack2, *extension;
2045
2046         if (Cmd_Argc() != 2)
2047         {
2048                 SV_ClientPrintf("usage: download <filename>\n");
2049                 return;
2050         }
2051
2052         if (FS_CheckNastyPath(Cmd_Argv(1), false))
2053         {
2054                 SV_ClientPrintf("Download rejected: nasty filename \"%s\"\n", Cmd_Argv(1));
2055                 return;
2056         }
2057
2058         if (host_client->download_file)
2059         {
2060                 // at this point we'll assume the previous download should be aborted
2061                 Con_DPrintf("Download of %s aborted by %s starting a new download\n", host_client->download_name, host_client->name);
2062                 Host_ClientCommands("\nstopdownload\n");
2063
2064                 // close the file and reset variables
2065                 FS_Close(host_client->download_file);
2066                 host_client->download_file = NULL;
2067                 host_client->download_name[0] = 0;
2068                 host_client->download_expectedposition = 0;
2069                 host_client->download_started = false;
2070         }
2071
2072         if (!sv_allowdownloads.integer)
2073         {
2074                 SV_ClientPrintf("Downloads are disabled on this server\n");
2075                 Host_ClientCommands("\nstopdownload\n");
2076                 return;
2077         }
2078
2079         strlcpy(host_client->download_name, Cmd_Argv(1), sizeof(host_client->download_name));
2080         extension = FS_FileExtension(host_client->download_name);
2081
2082         // host_client is asking to download a specified file
2083         if (developer.integer >= 100)
2084                 Con_Printf("Download request for %s by %s\n", host_client->download_name, host_client->name);
2085
2086         if (!FS_FileExists(host_client->download_name))
2087         {
2088                 SV_ClientPrintf("Download rejected: server does not have the file \"%s\"\nYou may need to separately download or purchase the data archives for this game/mod to get this file\n", host_client->download_name);
2089                 Host_ClientCommands("\nstopdownload\n");
2090                 return;
2091         }
2092
2093         // check if the user is trying to download part of registered Quake(r)
2094         whichpack = FS_WhichPack(host_client->download_name);
2095         whichpack2 = FS_WhichPack("gfx/pop.lmp");
2096         if ((whichpack && whichpack2 && !strcasecmp(whichpack, whichpack2)) || FS_IsRegisteredQuakePack(host_client->download_name))
2097         {
2098                 SV_ClientPrintf("Download rejected: file \"%s\" is part of registered Quake(r)\nYou must purchase Quake(r) from id Software or a retailer to get this file\nPlease go to http://www.idsoftware.com/games/quake/quake/index.php?game_section=buy\n", host_client->download_name);
2099                 Host_ClientCommands("\nstopdownload\n");
2100                 return;
2101         }
2102
2103         // check if the server has forbidden archive downloads entirely
2104         if (!sv_allowdownloads_inarchive.integer)
2105         {
2106                 whichpack = FS_WhichPack(host_client->download_name);
2107                 if (whichpack)
2108                 {
2109                         SV_ClientPrintf("Download rejected: file \"%s\" is in an archive (\"%s\")\nYou must separately download or purchase the data archives for this game/mod to get this file\n", host_client->download_name, whichpack);
2110                         Host_ClientCommands("\nstopdownload\n");
2111                         return;
2112                 }
2113         }
2114
2115         if (!sv_allowdownloads_config.integer)
2116         {
2117                 if (!strcasecmp(extension, "cfg"))
2118                 {
2119                         SV_ClientPrintf("Download rejected: file \"%s\" is a .cfg file which is forbidden for security reasons\nYou must separately download or purchase the data archives for this game/mod to get this file\n", host_client->download_name);
2120                         Host_ClientCommands("\nstopdownload\n");
2121                         return;
2122                 }
2123         }
2124
2125         if (!sv_allowdownloads_dlcache.integer)
2126         {
2127                 if (!strncasecmp(host_client->download_name, "dlcache/", 8))
2128                 {
2129                         SV_ClientPrintf("Download rejected: file \"%s\" is in the dlcache/ directory which is forbidden for security reasons\nYou must separately download or purchase the data archives for this game/mod to get this file\n", host_client->download_name);
2130                         Host_ClientCommands("\nstopdownload\n");
2131                         return;
2132                 }
2133         }
2134
2135         if (!sv_allowdownloads_archive.integer)
2136         {
2137                 if (!strcasecmp(extension, "pak") || !strcasecmp(extension, "pk3"))
2138                 {
2139                         SV_ClientPrintf("Download rejected: file \"%s\" is an archive\nYou must separately download or purchase the data archives for this game/mod to get this file\n", host_client->download_name);
2140                         Host_ClientCommands("\nstopdownload\n");
2141                         return;
2142                 }
2143         }
2144
2145         host_client->download_file = FS_Open(host_client->download_name, "rb", true, false);
2146         if (!host_client->download_file)
2147         {
2148                 SV_ClientPrintf("Download rejected: server could not open the file \"%s\"\n", host_client->download_name);
2149                 Host_ClientCommands("\nstopdownload\n");
2150                 return;
2151         }
2152
2153         if (FS_FileSize(host_client->download_file) > 1<<30)
2154         {
2155                 SV_ClientPrintf("Download rejected: file \"%s\" is very large\n", host_client->download_name);
2156                 Host_ClientCommands("\nstopdownload\n");
2157                 FS_Close(host_client->download_file);
2158                 host_client->download_file = NULL;
2159                 return;
2160         }
2161
2162         Con_DPrintf("Downloading %s to %s\n", host_client->download_name, host_client->name);
2163
2164         Host_ClientCommands("\ncl_downloadbegin %i %s\n", (int)FS_FileSize(host_client->download_file), host_client->download_name);
2165
2166         host_client->download_expectedposition = 0;
2167         host_client->download_started = false;
2168         host_client->sendsignon = true; // make sure this message is sent
2169
2170         // the rest of the download process is handled in SV_SendClientDatagram
2171         // and other code dealing with svc_downloaddata and clc_ackdownloaddata
2172         //
2173         // no svc_downloaddata messages will be sent until sv_startdownload is
2174         // sent by the client
2175 }
2176
2177 /*
2178 ==============================================================================
2179
2180 SERVER SPAWNING
2181
2182 ==============================================================================
2183 */
2184
2185 /*
2186 ================
2187 SV_ModelIndex
2188
2189 ================
2190 */
2191 int SV_ModelIndex(const char *s, int precachemode)
2192 {
2193         int i, limit = ((sv.protocol == PROTOCOL_QUAKE || sv.protocol == PROTOCOL_QUAKEDP || sv.protocol == PROTOCOL_NEHAHRAMOVIE || sv.protocol == PROTOCOL_NEHAHRABJP || sv.protocol == PROTOCOL_NEHAHRABJP2 || sv.protocol == PROTOCOL_NEHAHRABJP3) ? 256 : MAX_MODELS);
2194         char filename[MAX_QPATH];
2195         if (!s || !*s)
2196                 return 0;
2197         // testing
2198         //if (precachemode == 2)
2199         //      return 0;
2200         strlcpy(filename, s, sizeof(filename));
2201         for (i = 2;i < limit;i++)
2202         {
2203                 if (!sv.model_precache[i][0])
2204                 {
2205                         if (precachemode)
2206                         {
2207                                 if (sv.state != ss_loading && (sv.protocol == PROTOCOL_QUAKE || sv.protocol == PROTOCOL_QUAKEDP || sv.protocol == PROTOCOL_NEHAHRAMOVIE || sv.protocol == PROTOCOL_NEHAHRABJP || sv.protocol == PROTOCOL_NEHAHRABJP2 || sv.protocol == PROTOCOL_NEHAHRABJP3 || sv.protocol == PROTOCOL_DARKPLACES1 || sv.protocol == PROTOCOL_DARKPLACES2 || sv.protocol == PROTOCOL_DARKPLACES3 || sv.protocol == PROTOCOL_DARKPLACES4 || sv.protocol == PROTOCOL_DARKPLACES5))
2208                                 {
2209                                         Con_Printf("SV_ModelIndex(\"%s\"): precache_model can only be done in spawn functions\n", filename);
2210                                         return 0;
2211                                 }
2212                                 if (precachemode == 1)
2213                                         Con_Printf("SV_ModelIndex(\"%s\"): not precached (fix your code), precaching anyway\n", filename);
2214                                 strlcpy(sv.model_precache[i], filename, sizeof(sv.model_precache[i]));
2215                                 sv.models[i] = Mod_ForName (sv.model_precache[i], true, false, false);
2216                                 if (sv.state != ss_loading)
2217                                 {
2218                                         MSG_WriteByte(&sv.reliable_datagram, svc_precache);
2219                                         MSG_WriteShort(&sv.reliable_datagram, i);
2220                                         MSG_WriteString(&sv.reliable_datagram, filename);
2221                                 }
2222                                 return i;
2223                         }
2224                         Con_Printf("SV_ModelIndex(\"%s\"): not precached\n", filename);
2225                         return 0;
2226                 }
2227                 if (!strcmp(sv.model_precache[i], filename))
2228                         return i;
2229         }
2230         Con_Printf("SV_ModelIndex(\"%s\"): i (%i) == MAX_MODELS (%i)\n", filename, i, MAX_MODELS);
2231         return 0;
2232 }
2233
2234 /*
2235 ================
2236 SV_SoundIndex
2237
2238 ================
2239 */
2240 int SV_SoundIndex(const char *s, int precachemode)
2241 {
2242         int i, limit = ((sv.protocol == PROTOCOL_QUAKE || sv.protocol == PROTOCOL_QUAKEDP || sv.protocol == PROTOCOL_NEHAHRAMOVIE || sv.protocol == PROTOCOL_NEHAHRABJP || sv.protocol == PROTOCOL_NEHAHRABJP2 || sv.protocol == PROTOCOL_NEHAHRABJP3) ? 256 : MAX_SOUNDS);
2243         char filename[MAX_QPATH];
2244         if (!s || !*s)
2245                 return 0;
2246         // testing
2247         //if (precachemode == 2)
2248         //      return 0;
2249         strlcpy(filename, s, sizeof(filename));
2250         for (i = 1;i < limit;i++)
2251         {
2252                 if (!sv.sound_precache[i][0])
2253                 {
2254                         if (precachemode)
2255                         {
2256                                 if (sv.state != ss_loading && (sv.protocol == PROTOCOL_QUAKE || sv.protocol == PROTOCOL_QUAKEDP || sv.protocol == PROTOCOL_NEHAHRAMOVIE || sv.protocol == PROTOCOL_NEHAHRABJP || sv.protocol == PROTOCOL_NEHAHRABJP2 || sv.protocol == PROTOCOL_NEHAHRABJP3 || sv.protocol == PROTOCOL_DARKPLACES1 || sv.protocol == PROTOCOL_DARKPLACES2 || sv.protocol == PROTOCOL_DARKPLACES3 || sv.protocol == PROTOCOL_DARKPLACES4 || sv.protocol == PROTOCOL_DARKPLACES5))
2257                                 {
2258                                         Con_Printf("SV_SoundIndex(\"%s\"): precache_sound can only be done in spawn functions\n", filename);
2259                                         return 0;
2260                                 }
2261                                 if (precachemode == 1)
2262                                         Con_Printf("SV_SoundIndex(\"%s\"): not precached (fix your code), precaching anyway\n", filename);
2263                                 strlcpy(sv.sound_precache[i], filename, sizeof(sv.sound_precache[i]));
2264                                 if (sv.state != ss_loading)
2265                                 {
2266                                         MSG_WriteByte(&sv.reliable_datagram, svc_precache);
2267                                         MSG_WriteShort(&sv.reliable_datagram, i + 32768);
2268                                         MSG_WriteString(&sv.reliable_datagram, filename);
2269                                 }
2270                                 return i;
2271                         }
2272                         Con_Printf("SV_SoundIndex(\"%s\"): not precached\n", filename);
2273                         return 0;
2274                 }
2275                 if (!strcmp(sv.sound_precache[i], filename))
2276                         return i;
2277         }
2278         Con_Printf("SV_SoundIndex(\"%s\"): i (%i) == MAX_SOUNDS (%i)\n", filename, i, MAX_SOUNDS);
2279         return 0;
2280 }
2281
2282 /*
2283 ================
2284 SV_ParticleEffectIndex
2285
2286 ================
2287 */
2288 int SV_ParticleEffectIndex(const char *name)
2289 {
2290         int i, argc, linenumber, effectnameindex;
2291         fs_offset_t filesize;
2292         unsigned char *filedata;
2293         const char *text, *textstart, *textend;
2294         char argv[16][1024];
2295         if (!sv.particleeffectnamesloaded)
2296         {
2297                 sv.particleeffectnamesloaded = true;
2298                 memset(sv.particleeffectname, 0, sizeof(sv.particleeffectname));
2299                 for (i = 0;i < EFFECT_TOTAL;i++)
2300                         strlcpy(sv.particleeffectname[i], standardeffectnames[i], sizeof(sv.particleeffectname[i]));
2301                 filedata = FS_LoadFile("effectinfo.txt", tempmempool, true, &filesize);
2302                 if (filedata)
2303                 {
2304                         textstart = (const char *)filedata;
2305                         textend = (const char *)filedata + filesize;
2306                         text = textstart;
2307                         for (linenumber = 1;;linenumber++)
2308                         {
2309                                 argc = 0;
2310                                 for (;;)
2311                                 {
2312                                         if (!COM_ParseToken_Simple(&text, true, false) || !strcmp(com_token, "\n"))
2313                                                 break;
2314                                         if (argc < 16)
2315                                         {
2316                                                 strlcpy(argv[argc], com_token, sizeof(argv[argc]));
2317                                                 argc++;
2318                                         }
2319                                 }
2320                                 if (com_token[0] == 0)
2321                                         break; // if the loop exited and it's not a \n, it's EOF
2322                                 if (argc < 1)
2323                                         continue;
2324                                 if (!strcmp(argv[0], "effect"))
2325                                 {
2326                                         if (argc == 2)
2327                                         {
2328                                                 for (effectnameindex = 1;effectnameindex < SV_MAX_PARTICLEEFFECTNAME;effectnameindex++)
2329                                                 {
2330                                                         if (sv.particleeffectname[effectnameindex][0])
2331                                                         {
2332                                                                 if (!strcmp(sv.particleeffectname[effectnameindex], argv[1]))
2333                                                                         break;
2334                                                         }
2335                                                         else
2336                                                         {
2337                                                                 strlcpy(sv.particleeffectname[effectnameindex], argv[1], sizeof(sv.particleeffectname[effectnameindex]));
2338                                                                 break;
2339                                                         }
2340                                                 }
2341                                                 // if we run out of names, abort
2342                                                 if (effectnameindex == SV_MAX_PARTICLEEFFECTNAME)
2343                                                 {
2344                                                         Con_Printf("effectinfo.txt:%i: too many effects!\n", linenumber);
2345                                                         break;
2346                                                 }
2347                                         }
2348                                 }
2349                         }
2350                         Mem_Free(filedata);
2351                 }
2352         }
2353         // search for the name
2354         for (effectnameindex = 1;effectnameindex < SV_MAX_PARTICLEEFFECTNAME && sv.particleeffectname[effectnameindex][0];effectnameindex++)
2355                 if (!strcmp(sv.particleeffectname[effectnameindex], name))
2356                         return effectnameindex;
2357         // return 0 if we couldn't find it
2358         return 0;
2359 }
2360
2361 /*
2362 ================
2363 SV_CreateBaseline
2364
2365 ================
2366 */
2367 static void SV_CreateBaseline (void)
2368 {
2369         int i, entnum, large;
2370         prvm_edict_t *svent;
2371
2372         // LordHavoc: clear *all* states (note just active ones)
2373         for (entnum = 0;entnum < prog->max_edicts;entnum++)
2374         {
2375                 // get the current server version
2376                 svent = PRVM_EDICT_NUM(entnum);
2377
2378                 // LordHavoc: always clear state values, whether the entity is in use or not
2379                 svent->priv.server->baseline = defaultstate;
2380
2381                 if (svent->priv.server->free)
2382                         continue;
2383                 if (entnum > svs.maxclients && !svent->fields.server->modelindex)
2384                         continue;
2385
2386                 // create entity baseline
2387                 VectorCopy (svent->fields.server->origin, svent->priv.server->baseline.origin);
2388                 VectorCopy (svent->fields.server->angles, svent->priv.server->baseline.angles);
2389                 svent->priv.server->baseline.frame = (int)svent->fields.server->frame;
2390                 svent->priv.server->baseline.skin = (int)svent->fields.server->skin;
2391                 if (entnum > 0 && entnum <= svs.maxclients)
2392                 {
2393                         svent->priv.server->baseline.colormap = entnum;
2394                         svent->priv.server->baseline.modelindex = SV_ModelIndex("progs/player.mdl", 1);
2395                 }
2396                 else
2397                 {
2398                         svent->priv.server->baseline.colormap = 0;
2399                         svent->priv.server->baseline.modelindex = (int)svent->fields.server->modelindex;
2400                 }
2401
2402                 large = false;
2403                 if (svent->priv.server->baseline.modelindex & 0xFF00 || svent->priv.server->baseline.frame & 0xFF00)
2404                 {
2405                         large = true;
2406                         if (sv.protocol == PROTOCOL_NEHAHRABJP || sv.protocol == PROTOCOL_NEHAHRABJP2 || sv.protocol == PROTOCOL_NEHAHRABJP3)
2407                                 large = false;
2408                 }
2409
2410                 // add to the message
2411                 if (large)
2412                         MSG_WriteByte (&sv.signon, svc_spawnbaseline2);
2413                 else
2414                         MSG_WriteByte (&sv.signon, svc_spawnbaseline);
2415                 MSG_WriteShort (&sv.signon, entnum);
2416
2417                 if (large)
2418                 {
2419                         MSG_WriteShort (&sv.signon, svent->priv.server->baseline.modelindex);
2420                         MSG_WriteShort (&sv.signon, svent->priv.server->baseline.frame);
2421                 }
2422                 else if (sv.protocol == PROTOCOL_NEHAHRABJP || sv.protocol == PROTOCOL_NEHAHRABJP2 || sv.protocol == PROTOCOL_NEHAHRABJP3)
2423                 {
2424                         MSG_WriteShort (&sv.signon, svent->priv.server->baseline.modelindex);
2425                         MSG_WriteByte (&sv.signon, svent->priv.server->baseline.frame);
2426                 }
2427                 else
2428                 {
2429                         MSG_WriteByte (&sv.signon, svent->priv.server->baseline.modelindex);
2430                         MSG_WriteByte (&sv.signon, svent->priv.server->baseline.frame);
2431                 }
2432                 MSG_WriteByte (&sv.signon, svent->priv.server->baseline.colormap);
2433                 MSG_WriteByte (&sv.signon, svent->priv.server->baseline.skin);
2434                 for (i=0 ; i<3 ; i++)
2435                 {
2436                         MSG_WriteCoord(&sv.signon, svent->priv.server->baseline.origin[i], sv.protocol);
2437                         MSG_WriteAngle(&sv.signon, svent->priv.server->baseline.angles[i], sv.protocol);
2438                 }
2439         }
2440 }
2441
2442
2443 /*
2444 ================
2445 SV_SaveSpawnparms
2446
2447 Grabs the current state of each client for saving across the
2448 transition to another level
2449 ================
2450 */
2451 void SV_SaveSpawnparms (void)
2452 {
2453         int             i, j;
2454
2455         svs.serverflags = (int)prog->globals.server->serverflags;
2456
2457         for (i = 0, host_client = svs.clients;i < svs.maxclients;i++, host_client++)
2458         {
2459                 if (!host_client->active)
2460                         continue;
2461
2462         // call the progs to get default spawn parms for the new client
2463                 prog->globals.server->self = PRVM_EDICT_TO_PROG(host_client->edict);
2464                 PRVM_ExecuteProgram (prog->globals.server->SetChangeParms, "QC function SetChangeParms is missing");
2465                 for (j=0 ; j<NUM_SPAWN_PARMS ; j++)
2466                         host_client->spawn_parms[j] = (&prog->globals.server->parm1)[j];
2467         }
2468 }
2469
2470 /*
2471 ================
2472 SV_SpawnServer
2473
2474 This is called at the start of each level
2475 ================
2476 */
2477
2478 void SV_SpawnServer (const char *server)
2479 {
2480         prvm_edict_t *ent;
2481         int i;
2482         char *entities;
2483         dp_model_t *worldmodel;
2484         char modelname[sizeof(sv.modelname)];
2485
2486         Con_DPrintf("SpawnServer: %s\n", server);
2487
2488         dpsnprintf (modelname, sizeof(modelname), "maps/%s.bsp", server);
2489
2490         if (!FS_FileExists(modelname))
2491         {
2492                 Con_Printf("SpawnServer: no map file named %s\n", modelname);
2493                 return;
2494         }
2495
2496         if (cls.state != ca_dedicated)
2497         {
2498                 SCR_BeginLoadingPlaque();
2499                 S_StopAllSounds();
2500         }
2501
2502         if(sv.active)
2503         {
2504                 SV_VM_Begin();
2505                 if(prog->funcoffsets.SV_Shutdown)
2506                 {
2507                         func_t s = prog->funcoffsets.SV_Shutdown;
2508                         prog->funcoffsets.SV_Shutdown = 0; // prevent it from getting called again
2509                         PRVM_ExecuteProgram(s,"SV_Shutdown() required");
2510                 }
2511                 SV_VM_End();
2512         }
2513
2514         worldmodel = Mod_ForName(modelname, false, true, true);
2515         if (!worldmodel || !worldmodel->TraceBox)
2516         {
2517                 Con_Printf("Couldn't load map %s\n", modelname);
2518                 return;
2519         }
2520
2521         // let's not have any servers with no name
2522         if (hostname.string[0] == 0)
2523                 Cvar_Set ("hostname", "UNNAMED");
2524         scr_centertime_off = 0;
2525
2526         svs.changelevel_issued = false;         // now safe to issue another
2527
2528         // make the map a required file for clients
2529         Curl_ClearRequirements();
2530         Curl_RequireFile(modelname);
2531
2532 //
2533 // tell all connected clients that we are going to a new level
2534 //
2535         if (sv.active)
2536         {
2537                 client_t *client;
2538                 for (i = 0, client = svs.clients;i < svs.maxclients;i++, client++)
2539                 {
2540                         if (client->netconnection)
2541                         {
2542                                 MSG_WriteByte(&client->netconnection->message, svc_stufftext);
2543                                 MSG_WriteString(&client->netconnection->message, "reconnect\n");
2544                         }
2545                 }
2546         }
2547         else
2548         {
2549                 // open server port
2550                 NetConn_OpenServerPorts(true);
2551         }
2552
2553 //
2554 // make cvars consistant
2555 //
2556         if (coop.integer)
2557                 Cvar_SetValue ("deathmatch", 0);
2558         // LordHavoc: it can be useful to have skills outside the range 0-3...
2559         //current_skill = bound(0, (int)(skill.value + 0.5), 3);
2560         //Cvar_SetValue ("skill", (float)current_skill);
2561         current_skill = (int)(skill.value + 0.5);
2562
2563 //
2564 // set up the new server
2565 //
2566         memset (&sv, 0, sizeof(sv));
2567         // if running a local client, make sure it doesn't try to access the last
2568         // level's data which is no longer valiud
2569         cls.signon = 0;
2570
2571         if(*sv_random_seed.string)
2572         {
2573                 srand(sv_random_seed.integer);
2574                 Con_Printf("NOTE: random seed is %d; use for debugging/benchmarking only!\nUnset sv_random_seed to get real random numbers again.\n", sv_random_seed.integer);
2575         }
2576
2577         SV_VM_Setup();
2578
2579         sv.active = true;
2580
2581         strlcpy (sv.name, server, sizeof (sv.name));
2582
2583         sv.protocol = Protocol_EnumForName(sv_protocolname.string);
2584         if (sv.protocol == PROTOCOL_UNKNOWN)
2585         {
2586                 char buffer[1024];
2587                 Protocol_Names(buffer, sizeof(buffer));
2588                 Con_Printf("Unknown sv_protocolname \"%s\", valid values are:\n%s\n", sv_protocolname.string, buffer);
2589                 sv.protocol = PROTOCOL_QUAKE;
2590         }
2591
2592         SV_VM_Begin();
2593
2594 // load progs to get entity field count
2595         //PR_LoadProgs ( sv_progs.string );
2596
2597         sv.datagram.maxsize = sizeof(sv.datagram_buf);
2598         sv.datagram.cursize = 0;
2599         sv.datagram.data = sv.datagram_buf;
2600
2601         sv.reliable_datagram.maxsize = sizeof(sv.reliable_datagram_buf);
2602         sv.reliable_datagram.cursize = 0;
2603         sv.reliable_datagram.data = sv.reliable_datagram_buf;
2604
2605         sv.signon.maxsize = sizeof(sv.signon_buf);
2606         sv.signon.cursize = 0;
2607         sv.signon.data = sv.signon_buf;
2608
2609 // leave slots at start for clients only
2610         //prog->num_edicts = svs.maxclients+1;
2611
2612         sv.state = ss_loading;
2613         prog->allowworldwrites = true;
2614         sv.paused = false;
2615
2616         prog->globals.server->time = sv.time = 1.0;
2617
2618         Mod_ClearUsed();
2619         worldmodel->used = true;
2620
2621         strlcpy (sv.name, server, sizeof (sv.name));
2622         strlcpy(sv.modelname, modelname, sizeof(sv.modelname));
2623         sv.worldmodel = worldmodel;
2624         sv.models[1] = sv.worldmodel;
2625
2626 //
2627 // clear world interaction links
2628 //
2629         World_SetSize(&sv.world, sv.worldmodel->name, sv.worldmodel->normalmins, sv.worldmodel->normalmaxs);
2630
2631         strlcpy(sv.sound_precache[0], "", sizeof(sv.sound_precache[0]));
2632
2633         strlcpy(sv.model_precache[0], "", sizeof(sv.model_precache[0]));
2634         strlcpy(sv.model_precache[1], sv.modelname, sizeof(sv.model_precache[1]));
2635         for (i = 1;i < sv.worldmodel->brush.numsubmodels;i++)
2636         {
2637                 dpsnprintf(sv.model_precache[i+1], sizeof(sv.model_precache[i+1]), "*%i", i);
2638                 sv.models[i+1] = Mod_ForName (sv.model_precache[i+1], false, false, false);
2639         }
2640
2641 //
2642 // load the rest of the entities
2643 //
2644         // AK possible hack since num_edicts is still 0
2645         ent = PRVM_EDICT_NUM(0);
2646         memset (ent->fields.server, 0, prog->progs->entityfields * 4);
2647         ent->priv.server->free = false;
2648         ent->fields.server->model = PRVM_SetEngineString(sv.modelname);
2649         ent->fields.server->modelindex = 1;             // world model
2650         ent->fields.server->solid = SOLID_BSP;
2651         ent->fields.server->movetype = MOVETYPE_PUSH;
2652         VectorCopy(sv.world.mins, ent->fields.server->mins);
2653         VectorCopy(sv.world.maxs, ent->fields.server->maxs);
2654         VectorCopy(sv.world.mins, ent->fields.server->absmin);
2655         VectorCopy(sv.world.maxs, ent->fields.server->absmax);
2656
2657         if (coop.value)
2658                 prog->globals.server->coop = coop.integer;
2659         else
2660                 prog->globals.server->deathmatch = deathmatch.integer;
2661
2662         prog->globals.server->mapname = PRVM_SetEngineString(sv.name);
2663
2664 // serverflags are for cross level information (sigils)
2665         prog->globals.server->serverflags = svs.serverflags;
2666
2667         // we need to reset the spawned flag on all connected clients here so that
2668         // their thinks don't run during startup (before PutClientInServer)
2669         // we also need to set up the client entities now
2670         // and we need to set the ->edict pointers to point into the progs edicts
2671         for (i = 0, host_client = svs.clients;i < svs.maxclients;i++, host_client++)
2672         {
2673                 host_client->spawned = false;
2674                 host_client->edict = PRVM_EDICT_NUM(i + 1);
2675                 PRVM_ED_ClearEdict(host_client->edict);
2676         }
2677
2678         // load replacement entity file if found
2679         if (sv_entpatch.integer && (entities = (char *)FS_LoadFile(va("maps/%s.ent", sv.name), tempmempool, true, NULL)))
2680         {
2681                 Con_Printf("Loaded maps/%s.ent\n", sv.name);
2682                 PRVM_ED_LoadFromFile (entities);
2683                 Mem_Free(entities);
2684         }
2685         else
2686                 PRVM_ED_LoadFromFile (sv.worldmodel->brush.entities);
2687
2688
2689         // LordHavoc: clear world angles (to fix e3m3.bsp)
2690         VectorClear(prog->edicts->fields.server->angles);
2691
2692 // all setup is completed, any further precache statements are errors
2693         sv.state = ss_active;
2694         prog->allowworldwrites = false;
2695
2696 // run two frames to allow everything to settle
2697         for (i = 0;i < 2;i++)
2698         {
2699                 sv.frametime = 0.1;
2700                 SV_Physics ();
2701         }
2702
2703         Mod_PurgeUnused();
2704
2705 // create a baseline for more efficient communications
2706         if (sv.protocol == PROTOCOL_QUAKE || sv.protocol == PROTOCOL_QUAKEDP || sv.protocol == PROTOCOL_NEHAHRAMOVIE || sv.protocol == PROTOCOL_NEHAHRABJP || sv.protocol == PROTOCOL_NEHAHRABJP2 || sv.protocol == PROTOCOL_NEHAHRABJP3)
2707                 SV_CreateBaseline ();
2708
2709 // send serverinfo to all connected clients, and set up botclients coming back from a level change
2710         for (i = 0, host_client = svs.clients;i < svs.maxclients;i++, host_client++)
2711         {
2712                 if (!host_client->active)
2713                         continue;
2714                 if (host_client->netconnection)
2715                         SV_SendServerinfo(host_client);
2716                 else
2717                 {
2718                         int j;
2719                         // if client is a botclient coming from a level change, we need to
2720                         // set up client info that normally requires networking
2721
2722                         // copy spawn parms out of the client_t
2723                         for (j=0 ; j< NUM_SPAWN_PARMS ; j++)
2724                                 (&prog->globals.server->parm1)[j] = host_client->spawn_parms[j];
2725
2726                         // call the spawn function
2727                         host_client->clientconnectcalled = true;
2728                         prog->globals.server->time = sv.time;
2729                         prog->globals.server->self = PRVM_EDICT_TO_PROG(host_client->edict);
2730                         PRVM_ExecuteProgram (prog->globals.server->ClientConnect, "QC function ClientConnect is missing");
2731                         PRVM_ExecuteProgram (prog->globals.server->PutClientInServer, "QC function PutClientInServer is missing");
2732                         host_client->spawned = true;
2733                 }
2734         }
2735
2736         Con_DPrint("Server spawned.\n");
2737         NetConn_Heartbeat (2);
2738
2739         SV_VM_End();
2740 }
2741
2742 /////////////////////////////////////////////////////
2743 // SV VM stuff
2744
2745 static void SV_VM_CB_BeginIncreaseEdicts(void)
2746 {
2747         // links don't survive the transition, so unlink everything
2748         World_UnlinkAll(&sv.world);
2749 }
2750
2751 static void SV_VM_CB_EndIncreaseEdicts(void)
2752 {
2753         int i;
2754         prvm_edict_t *ent;
2755
2756         // link every entity except world
2757         for (i = 1, ent = prog->edicts;i < prog->max_edicts;i++, ent++)
2758                 if (!ent->priv.server->free)
2759                         SV_LinkEdict(ent, false);
2760 }
2761
2762 static void SV_VM_CB_InitEdict(prvm_edict_t *e)
2763 {
2764         // LordHavoc: for consistency set these here
2765         int num = PRVM_NUM_FOR_EDICT(e) - 1;
2766
2767         e->priv.server->move = false; // don't move on first frame
2768
2769         if (num >= 0 && num < svs.maxclients)
2770         {
2771                 prvm_eval_t *val;
2772                 // set colormap and team on newly created player entity
2773                 e->fields.server->colormap = num + 1;
2774                 e->fields.server->team = (svs.clients[num].colors & 15) + 1;
2775                 // set netname/clientcolors back to client values so that
2776                 // DP_SV_CLIENTNAME and DP_SV_CLIENTCOLORS will not immediately
2777                 // reset them
2778                 e->fields.server->netname = PRVM_SetEngineString(svs.clients[num].name);
2779                 if ((val = PRVM_EDICTFIELDVALUE(e, prog->fieldoffsets.clientcolors)))
2780                         val->_float = svs.clients[num].colors;
2781                 // NEXUIZ_PLAYERMODEL and NEXUIZ_PLAYERSKIN
2782                 if( prog->fieldoffsets.playermodel >= 0 )
2783                         PRVM_EDICTFIELDVALUE(e, prog->fieldoffsets.playermodel)->string = PRVM_SetEngineString(svs.clients[num].playermodel);
2784                 if( prog->fieldoffsets.playerskin >= 0 )
2785                         PRVM_EDICTFIELDVALUE(e, prog->fieldoffsets.playerskin)->string = PRVM_SetEngineString(svs.clients[num].playerskin);
2786                 // Assign netaddress (IP Address, etc)
2787                 if(prog->fieldoffsets.netaddress >= 0)
2788                 { // Valid Field; Process
2789                         if(svs.clients[num].netconnection != NULL)
2790                         {// Valid Address; Assign
2791                                 // Acquire Readable Address
2792                                 LHNETADDRESS_ToString(&svs.clients[num].netconnection->peeraddress, svs.clients[num].netaddress, sizeof(svs.clients[num].netaddress), false);
2793                                 PRVM_EDICTFIELDVALUE(e, prog->fieldoffsets.netaddress)->string = PRVM_SetEngineString(svs.clients[num].netaddress);
2794                         }
2795                         else
2796                                 // Invalid / Bot
2797                                 PRVM_EDICTFIELDVALUE(e, prog->fieldoffsets.netaddress)->string = PRVM_SetEngineString("null/botclient");
2798                 }
2799         }
2800 }
2801
2802 static void SV_VM_CB_FreeEdict(prvm_edict_t *ed)
2803 {
2804         World_UnlinkEdict(ed);          // unlink from world bsp
2805
2806         ed->fields.server->model = 0;
2807         ed->fields.server->takedamage = 0;
2808         ed->fields.server->modelindex = 0;
2809         ed->fields.server->colormap = 0;
2810         ed->fields.server->skin = 0;
2811         ed->fields.server->frame = 0;
2812         VectorClear(ed->fields.server->origin);
2813         VectorClear(ed->fields.server->angles);
2814         ed->fields.server->nextthink = -1;
2815         ed->fields.server->solid = 0;
2816 }
2817
2818 static void SV_VM_CB_CountEdicts(void)
2819 {
2820         int             i;
2821         prvm_edict_t    *ent;
2822         int             active, models, solid, step;
2823
2824         active = models = solid = step = 0;
2825         for (i=0 ; i<prog->num_edicts ; i++)
2826         {
2827                 ent = PRVM_EDICT_NUM(i);
2828                 if (ent->priv.server->free)
2829                         continue;
2830                 active++;
2831                 if (ent->fields.server->solid)
2832                         solid++;
2833                 if (ent->fields.server->model)
2834                         models++;
2835                 if (ent->fields.server->movetype == MOVETYPE_STEP)
2836                         step++;
2837         }
2838
2839         Con_Printf("num_edicts:%3i\n", prog->num_edicts);
2840         Con_Printf("active    :%3i\n", active);
2841         Con_Printf("view      :%3i\n", models);
2842         Con_Printf("touch     :%3i\n", solid);
2843         Con_Printf("step      :%3i\n", step);
2844 }
2845
2846 static qboolean SV_VM_CB_LoadEdict(prvm_edict_t *ent)
2847 {
2848         // remove things from different skill levels or deathmatch
2849         if (gamemode != GAME_TRANSFUSION) //Transfusion does this in QC
2850         {
2851                 if (deathmatch.integer)
2852                 {
2853                         if (((int)ent->fields.server->spawnflags & SPAWNFLAG_NOT_DEATHMATCH))
2854                         {
2855                                 return false;
2856                         }
2857                 }
2858                 else if ((current_skill <= 0 && ((int)ent->fields.server->spawnflags & SPAWNFLAG_NOT_EASY  ))
2859                         || (current_skill == 1 && ((int)ent->fields.server->spawnflags & SPAWNFLAG_NOT_MEDIUM))
2860                         || (current_skill >= 2 && ((int)ent->fields.server->spawnflags & SPAWNFLAG_NOT_HARD  )))
2861                 {
2862                         return false;
2863                 }
2864         }
2865         return true;
2866 }
2867
2868 static void SV_VM_Setup(void)
2869 {
2870         extern cvar_t csqc_progname;    //[515]: csqc crc check and right csprogs name according to progs.dat
2871         extern cvar_t csqc_progcrc;
2872         extern cvar_t csqc_progsize;
2873         size_t csprogsdatasize;
2874         PRVM_Begin;
2875         PRVM_InitProg( PRVM_SERVERPROG );
2876
2877         // allocate the mempools
2878         // TODO: move the magic numbers/constants into #defines [9/13/2006 Black]
2879         prog->progs_mempool = Mem_AllocPool("Server Progs", 0, NULL);
2880         prog->builtins = vm_sv_builtins;
2881         prog->numbuiltins = vm_sv_numbuiltins;
2882         prog->headercrc = PROGHEADER_CRC;
2883         prog->headercrc2 = PROGHEADER_CRC_TENEBRAE;
2884         prog->max_edicts = 512;
2885         if (sv.protocol == PROTOCOL_QUAKE)
2886                 prog->limit_edicts = 640; // before quake mission pack 1 this was 512
2887         else if (sv.protocol == PROTOCOL_QUAKEDP)
2888                 prog->limit_edicts = 2048; // guessing
2889         else if (sv.protocol == PROTOCOL_NEHAHRAMOVIE)
2890                 prog->limit_edicts = 2048; // guessing!
2891         else if (sv.protocol == PROTOCOL_NEHAHRABJP || sv.protocol == PROTOCOL_NEHAHRABJP2 || sv.protocol == PROTOCOL_NEHAHRABJP3)
2892                 prog->limit_edicts = 4096; // guessing!
2893         else
2894                 prog->limit_edicts = MAX_EDICTS;
2895         prog->reserved_edicts = svs.maxclients;
2896         prog->edictprivate_size = sizeof(edict_engineprivate_t);
2897         prog->name = "server";
2898         prog->extensionstring = vm_sv_extensions;
2899         prog->loadintoworld = true;
2900
2901         prog->begin_increase_edicts = SV_VM_CB_BeginIncreaseEdicts;
2902         prog->end_increase_edicts = SV_VM_CB_EndIncreaseEdicts;
2903         prog->init_edict = SV_VM_CB_InitEdict;
2904         prog->free_edict = SV_VM_CB_FreeEdict;
2905         prog->count_edicts = SV_VM_CB_CountEdicts;
2906         prog->load_edict = SV_VM_CB_LoadEdict;
2907         prog->init_cmd = VM_SV_Cmd_Init;
2908         prog->reset_cmd = VM_SV_Cmd_Reset;
2909         prog->error_cmd = Host_Error;
2910
2911         // TODO: add a requiredfuncs list (ask LH if this is necessary at all)
2912         PRVM_LoadProgs( sv_progs.string, 0, NULL, REQFIELDS, reqfields, 0, NULL );
2913
2914         // some mods compiled with scrambling compilers lack certain critical
2915         // global names and field names such as "self" and "time" and "nextthink"
2916         // so we have to set these offsets manually, matching the entvars_t
2917         PRVM_ED_FindFieldOffset_FromStruct(entvars_t, angles);
2918         PRVM_ED_FindFieldOffset_FromStruct(entvars_t, chain);
2919         PRVM_ED_FindFieldOffset_FromStruct(entvars_t, classname);
2920         PRVM_ED_FindFieldOffset_FromStruct(entvars_t, frame);
2921         PRVM_ED_FindFieldOffset_FromStruct(entvars_t, groundentity);
2922         PRVM_ED_FindFieldOffset_FromStruct(entvars_t, ideal_yaw);
2923         PRVM_ED_FindFieldOffset_FromStruct(entvars_t, nextthink);
2924         PRVM_ED_FindFieldOffset_FromStruct(entvars_t, think);
2925         PRVM_ED_FindFieldOffset_FromStruct(entvars_t, yaw_speed);
2926         PRVM_ED_FindGlobalOffset_FromStruct(globalvars_t, self);
2927         PRVM_ED_FindGlobalOffset_FromStruct(globalvars_t, time);
2928         PRVM_ED_FindGlobalOffset_FromStruct(globalvars_t, v_forward);
2929         PRVM_ED_FindGlobalOffset_FromStruct(globalvars_t, v_right);
2930         PRVM_ED_FindGlobalOffset_FromStruct(globalvars_t, v_up);
2931         PRVM_ED_FindGlobalOffset_FromStruct(globalvars_t, trace_allsolid);
2932         PRVM_ED_FindGlobalOffset_FromStruct(globalvars_t, trace_startsolid);
2933         PRVM_ED_FindGlobalOffset_FromStruct(globalvars_t, trace_fraction);
2934         PRVM_ED_FindGlobalOffset_FromStruct(globalvars_t, trace_inwater);
2935         PRVM_ED_FindGlobalOffset_FromStruct(globalvars_t, trace_inopen);
2936         PRVM_ED_FindGlobalOffset_FromStruct(globalvars_t, trace_endpos);
2937         PRVM_ED_FindGlobalOffset_FromStruct(globalvars_t, trace_plane_normal);
2938         PRVM_ED_FindGlobalOffset_FromStruct(globalvars_t, trace_plane_dist);
2939         PRVM_ED_FindGlobalOffset_FromStruct(globalvars_t, trace_ent);
2940         // OP_STATE is always supported on server (due to entvars_t)
2941         prog->flag |= PRVM_OP_STATE;
2942
2943         VM_CustomStats_Clear();//[515]: csqc
2944
2945         PRVM_End;
2946
2947         // see if there is a csprogs.dat installed, and if so, set the csqc_progcrc accordingly, this will be sent to connecting clients to tell them to only load a matching csprogs.dat file
2948         sv.csqc_progname[0] = 0;
2949         sv.csqc_progcrc = FS_CRCFile(csqc_progname.string, &csprogsdatasize);
2950         sv.csqc_progsize = csprogsdatasize;
2951         if (sv.csqc_progsize > 0)
2952         {
2953                 strlcpy(sv.csqc_progname, csqc_progname.string, sizeof(sv.csqc_progname));
2954                 Con_DPrintf("server detected csqc progs file \"%s\" with size %i and crc %i\n", sv.csqc_progname, sv.csqc_progsize, sv.csqc_progcrc);
2955         }
2956 }
2957
2958 void SV_VM_Begin(void)
2959 {
2960         PRVM_Begin;
2961         PRVM_SetProg( PRVM_SERVERPROG );
2962
2963         prog->globals.server->time = (float) sv.time;
2964 }
2965
2966 void SV_VM_End(void)
2967 {
2968         PRVM_End;
2969 }