X-Git-Url: http://git.xonotic.org/?a=blobdiff_plain;f=host.c;h=812a2cb63ac022ec015b0620f71fef30ed205fd1;hb=00d8da42f76d5e04a9d11e0deaac38391132808a;hp=da6cfc116c9377d89ac3eedf334113e87b71f250;hpb=3d19b4fbe87586e1a28e4af52f11d637ee389e18;p=xonotic%2Fdarkplaces.git

diff --git a/host.c b/host.c
index da6cfc11..812a2cb6 100644
--- a/host.c
+++ b/host.c
@@ -21,9 +21,11 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 
 #include <time.h>
 #include "quakedef.h"
+#include "libcurl.h"
 #include "cdaudio.h"
 #include "cl_video.h"
 #include "progsvm.h"
+#include "csprogs.h"
 
 /*
 
@@ -38,60 +40,42 @@ Memory is cleared / released when a server or client begins, not when they end.
 
 // how many frames have occurred
 // (checked by Host_Error and Host_SaveConfig_f)
-int host_framecount;
+int host_framecount = 0;
 // LordHavoc: set when quit is executed
 qboolean host_shuttingdown = false;
 
-double host_frametime;
-// LordHavoc: the real frametime, before slowmo and clamping are applied (used for console scrolling)
-double host_realframetime;
-// the real time, without any slowmo or clamping
+// the real time since application started, without any slowmo or clamping
 double realtime;
-// realtime from previous frame
-double oldrealtime;
-
-// used for -developer commandline parameter, hacky hacky
-int forcedeveloper;
 
 // current client
 client_t *host_client;
 
-jmp_buf host_abortserver;
+jmp_buf host_abortframe;
 
 // pretend frames take this amount of time (in seconds), 0 = realtime
-cvar_t host_framerate = {0, "host_framerate","0"};
+cvar_t host_framerate = {0, "host_framerate","0", "locks frame timing to this value in seconds, 0.05 is 20fps for example, note that this can easily run too fast, use cl_maxfps if you want to limit your framerate instead, or sys_ticrate to limit server speed"};
 // shows time used by certain subsystems
-cvar_t host_speeds = {0, "host_speeds","0"};
-// LordHavoc: framerate independent slowmo
-cvar_t slowmo = {0, "slowmo", "1.0"};
+cvar_t host_speeds = {0, "host_speeds","0", "reports how much time is used in server/graphics/sound"};
 // LordHavoc: framerate upper cap
-cvar_t cl_maxfps = {CVAR_SAVE, "cl_maxfps", "1000"};
-
-// print broadcast messages in dedicated mode
-cvar_t sv_echobprint = {CVAR_SAVE, "sv_echobprint", "1"};
-
-cvar_t sys_ticrate = {CVAR_SAVE, "sys_ticrate","0.05"};
-cvar_t serverprofile = {0, "serverprofile","0"};
-
-cvar_t fraglimit = {CVAR_NOTIFY, "fraglimit","0"};
-cvar_t timelimit = {CVAR_NOTIFY, "timelimit","0"};
-cvar_t teamplay = {CVAR_NOTIFY, "teamplay","0"};
+cvar_t cl_maxfps = {CVAR_SAVE, "cl_maxfps", "1000", "maximum fps cap, if game is running faster than this it will wait before running another frame (useful to make cpu time available to other programs)"};
 
-cvar_t samelevel = {0, "samelevel","0"};
-cvar_t noexit = {CVAR_NOTIFY, "noexit","0"};
+cvar_t developer = {0, "developer","0", "prints additional debugging messages and information (recommended for modders and level designers)"};
+cvar_t developer_entityparsing = {0, "developer_entityparsing", "0", "prints detailed network entities information each time a packet is received"};
 
-cvar_t developer = {0, "developer","0"};
+cvar_t timestamps = {CVAR_SAVE, "timestamps", "0", "prints timestamps on console messages"};
+cvar_t timeformat = {CVAR_SAVE, "timeformat", "[%Y-%m-%d %H:%M:%S] ", "time format to use on timestamped console messages"};
 
-cvar_t skill = {0, "skill","1"};
-cvar_t deathmatch = {0, "deathmatch","0"};
-cvar_t coop = {0, "coop","0"};
-
-cvar_t pausable = {0, "pausable","1"};
-
-cvar_t temp1 = {0, "temp1","0"};
+/*
+================
+Host_AbortCurrentFrame
 
-cvar_t timestamps = {CVAR_SAVE, "timestamps", "0"};
-cvar_t timeformat = {CVAR_SAVE, "timeformat", "[%b %e %X] "};
+aborts the current host frame and goes on with the next one
+================
+*/
+void Host_AbortCurrentFrame(void)
+{
+	longjmp (host_abortframe, 1);
+}
 
 /*
 ================
@@ -100,14 +84,16 @@ Host_Error
 This shuts down both the client and server
 ================
 */
-void PRVM_ProcessError(void);
-static char hosterrorstring1[4096];
-static char hosterrorstring2[4096];
-static qboolean hosterror = false;
 void Host_Error (const char *error, ...)
 {
+	static char hosterrorstring1[MAX_INPUTLINE];
+	static char hosterrorstring2[MAX_INPUTLINE];
+	static qboolean hosterror = false;
 	va_list argptr;
 
+	// turn off rcon redirect if it was active when the crash occurred
+	rcon_redirect = false;
+
 	va_start (argptr,error);
 	dpvsnprintf (hosterrorstring1,sizeof(hosterrorstring1),error,argptr);
 	va_end (argptr);
@@ -123,30 +109,29 @@ void Host_Error (const char *error, ...)
 		Sys_Error ("Host_Error: recursively entered (original error was: %s    new error is: %s)", hosterrorstring2, hosterrorstring1);
 	hosterror = true;
 
-	strcpy(hosterrorstring2, hosterrorstring1);
+	strlcpy(hosterrorstring2, hosterrorstring1, sizeof(hosterrorstring2));
 
 	CL_Parse_DumpPacket();
 
-	PR_Crash();
+	CL_Parse_ErrorCleanUp();
 
-	//PRVM_Crash(); // crash current prog
+	//PR_Crash();
 
-	// crash all prvm progs
-	PRVM_CrashAll();
+	// print out where the crash happened, if it was caused by QC (and do a cleanup)
+	PRVM_Crash();
 
-	PRVM_ProcessError();
 
-	Host_ShutdownServer (false);
+	Host_ShutdownServer ();
 
 	if (cls.state == ca_dedicated)
-		Sys_Error ("Host_Error: %s\n",hosterrorstring2);	// dedicated servers exit
+		Sys_Error ("Host_Error: %s",hosterrorstring2);	// dedicated servers exit
 
 	CL_Disconnect ();
 	cls.demonum = -1;
 
 	hosterror = false;
 
-	longjmp (host_abortserver, 1);
+	Host_AbortCurrentFrame();
 }
 
 void Host_ServerOptions (void)
@@ -158,55 +143,44 @@ void Host_ServerOptions (void)
 
 // COMMANDLINEOPTION: Server: -dedicated [playerlimit] starts a dedicated server (with a command console), default playerlimit is 8
 // COMMANDLINEOPTION: Server: -listen [playerlimit] starts a multiplayer server with graphical client, like singleplayer but other players can connect, default playerlimit is 8
-	if (cl_available)
+	// if no client is in the executable or -dedicated is specified on
+	// commandline, start a dedicated server
+	i = COM_CheckParm ("-dedicated");
+	if (i || !cl_available)
+	{
+		cls.state = ca_dedicated;
+		// check for -dedicated specifying how many players
+		if (i && i + 1 < com_argc && atoi (com_argv[i+1]) >= 1)
+			svs.maxclients = atoi (com_argv[i+1]);
+		if (COM_CheckParm ("-listen"))
+			Con_Printf ("Only one of -dedicated or -listen can be specified\n");
+		// default sv_public on for dedicated servers (often hosted by serious administrators), off for listen servers (often hosted by clueless users)
+		Cvar_SetValue("sv_public", 1);
+	}
+	else if (cl_available)
 	{
-		// client exists, check what mode the user wants
-		i = COM_CheckParm ("-dedicated");
+		// client exists and not dedicated, check if -listen is specified
+		cls.state = ca_disconnected;
+		i = COM_CheckParm ("-listen");
 		if (i)
 		{
-			cls.state = ca_dedicated;
 			// default players unless specified
 			if (i + 1 < com_argc && atoi (com_argv[i+1]) >= 1)
 				svs.maxclients = atoi (com_argv[i+1]);
-			if (COM_CheckParm ("-listen"))
-				Sys_Error ("Only one of -dedicated or -listen can be specified");
 		}
 		else
 		{
-			cls.state = ca_disconnected;
-			i = COM_CheckParm ("-listen");
-			if (i)
-			{
-				// default players unless specified
-				if (i + 1 < com_argc && atoi (com_argv[i+1]) >= 1)
-					svs.maxclients = atoi (com_argv[i+1]);
-			}
-			else
-			{
-				// default players in some games, singleplayer in most
-				if (gamemode != GAME_GOODVSBAD2 && gamemode != GAME_NEXUIZ && gamemode != GAME_BATTLEMECH)
-					svs.maxclients = 1;
-			}
+			// default players in some games, singleplayer in most
+			if (gamemode != GAME_GOODVSBAD2 && gamemode != GAME_NEXUIZ && gamemode != GAME_BATTLEMECH)
+				svs.maxclients = 1;
 		}
 	}
-	else
-	{
-		// no client in the executable, always start dedicated server
-		if (COM_CheckParm ("-listen"))
-			Sys_Error ("-listen not available in a dedicated server executable");
-		cls.state = ca_dedicated;
-		// check for -dedicated specifying how many players
-		i = COM_CheckParm ("-dedicated");
-		// default players unless specified
-		if (i && i + 1 < com_argc && atoi (com_argv[i+1]) >= 1)
-			svs.maxclients = atoi (com_argv[i+1]);
-	}
 
 	svs.maxclients = bound(1, svs.maxclients, MAX_SCOREBOARD);
 
-	svs.clients = Mem_Alloc(sv_mempool, sizeof(client_t) * svs.maxclients);
+	svs.clients = (client_t *)Mem_Alloc(sv_mempool, sizeof(client_t) * svs.maxclients);
 
-	if (svs.maxclients > 1 && !deathmatch.integer)
+	if (svs.maxclients > 1 && !deathmatch.integer && !coop.integer)
 		Cvar_SetValueQuick(&deathmatch, 1);
 }
 
@@ -216,35 +190,18 @@ Host_InitLocal
 ======================
 */
 void Host_SaveConfig_f(void);
-void Host_InitLocal (void)
+void Host_LoadConfig_f(void);
+static void Host_InitLocal (void)
 {
-	Cmd_AddCommand("saveconfig", Host_SaveConfig_f);
+	Cmd_AddCommand("saveconfig", Host_SaveConfig_f, "save settings to config.cfg immediately (also automatic when quitting)");
+	Cmd_AddCommand("loadconfig", Host_LoadConfig_f, "reset everything and reload configs");
 
 	Cvar_RegisterVariable (&host_framerate);
 	Cvar_RegisterVariable (&host_speeds);
-	Cvar_RegisterVariable (&slowmo);
 	Cvar_RegisterVariable (&cl_maxfps);
 
-	Cvar_RegisterVariable (&sv_echobprint);
-
-	Cvar_RegisterVariable (&sys_ticrate);
-	Cvar_RegisterVariable (&serverprofile);
-
-	Cvar_RegisterVariable (&fraglimit);
-	Cvar_RegisterVariable (&timelimit);
-	Cvar_RegisterVariable (&teamplay);
-	Cvar_RegisterVariable (&samelevel);
-	Cvar_RegisterVariable (&noexit);
-	Cvar_RegisterVariable (&skill);
 	Cvar_RegisterVariable (&developer);
-	if (forcedeveloper) // make it real now that the cvar is registered
-		Cvar_SetValue("developer", 1);
-	Cvar_RegisterVariable (&deathmatch);
-	Cvar_RegisterVariable (&coop);
-
-	Cvar_RegisterVariable (&pausable);
-
-	Cvar_RegisterVariable (&temp1);
+	Cvar_RegisterVariable (&developer_entityparsing);
 
 	Cvar_RegisterVariable (&timestamps);
 	Cvar_RegisterVariable (&timeformat);
@@ -265,7 +222,7 @@ void Host_SaveConfig_f(void)
 // dedicated servers initialize the host but don't parse and set the
 // config.cfg cvars
 	// LordHavoc: don't save a config if it crashed in startup
-	if (host_framecount >= 3 && cls.state != ca_dedicated)
+	if (host_framecount >= 3 && cls.state != ca_dedicated && !COM_CheckParm("-benchmark") && !COM_CheckParm("-capturedemo"))
 	{
 		f = FS_Open ("config.cfg", "wb", false, false);
 		if (!f)
@@ -282,6 +239,21 @@ void Host_SaveConfig_f(void)
 }
 
 
+/*
+===============
+Host_LoadConfig_f
+
+Resets key bindings and cvars to defaults and then reloads scripts
+===============
+*/
+void Host_LoadConfig_f(void)
+{
+	// unlock the cvar default strings so they can be updated by the new default.cfg
+	Cvar_UnlockDefaults();
+	// reset cvars to their defaults, and then exec startup scripts again
+	Cbuf_InsertText("cvar_resettodefaults_all;exec quake.rc\n");
+}
+
 /*
 =================
 SV_ClientPrint
@@ -292,8 +264,11 @@ FIXME: make this just a stuffed echo?
 */
 void SV_ClientPrint(const char *msg)
 {
-	MSG_WriteByte(&host_client->message, svc_print);
-	MSG_WriteString(&host_client->message, msg);
+	if (host_client->netconnection)
+	{
+		MSG_WriteByte(&host_client->netconnection->message, svc_print);
+		MSG_WriteString(&host_client->netconnection->message, msg);
+	}
 }
 
 /*
@@ -307,7 +282,7 @@ FIXME: make this just a stuffed echo?
 void SV_ClientPrintf(const char *fmt, ...)
 {
 	va_list argptr;
-	char msg[4096];
+	char msg[MAX_INPUTLINE];
 
 	va_start(argptr,fmt);
 	dpvsnprintf(msg,sizeof(msg),fmt,argptr);
@@ -330,10 +305,10 @@ void SV_BroadcastPrint(const char *msg)
 
 	for (i = 0, client = svs.clients;i < svs.maxclients;i++, client++)
 	{
-		if (client->spawned)
+		if (client->active && client->netconnection)
 		{
-			MSG_WriteByte(&client->message, svc_print);
-			MSG_WriteString(&client->message, msg);
+			MSG_WriteByte(&client->netconnection->message, svc_print);
+			MSG_WriteString(&client->netconnection->message, msg);
 		}
 	}
 
@@ -351,7 +326,7 @@ Sends text to all active clients
 void SV_BroadcastPrintf(const char *fmt, ...)
 {
 	va_list argptr;
-	char msg[4096];
+	char msg[MAX_INPUTLINE];
 
 	va_start(argptr,fmt);
 	dpvsnprintf(msg,sizeof(msg),fmt,argptr);
@@ -370,14 +345,17 @@ Send text over to the client to be executed
 void Host_ClientCommands(const char *fmt, ...)
 {
 	va_list argptr;
-	char string[1024];
+	char string[MAX_INPUTLINE];
+
+	if (!host_client->netconnection)
+		return;
 
 	va_start(argptr,fmt);
 	dpvsnprintf(string, sizeof(string), fmt, argptr);
 	va_end(argptr);
 
-	MSG_WriteByte(&host_client->message, svc_stufftext);
-	MSG_WriteString(&host_client->message, string);
+	MSG_WriteByte(&host_client->netconnection->message, svc_stufftext);
+	MSG_WriteString(&host_client->netconnection->message, string);
 }
 
 /*
@@ -391,10 +369,10 @@ if (crash = true), don't bother sending signofs
 void SV_DropClient(qboolean crash)
 {
 	int i;
-	Con_Printf("Client \"%s\" dropped\n", host_client->name);
+	Con_Printf("Client \"%s^%i\" dropped\n", host_client->name, STRING_COLOR_DEFAULT);
 
 	// make sure edict is not corrupt (from a level change for example)
-	host_client->edict = EDICT_NUM(host_client - svs.clients + 1);
+	host_client->edict = PRVM_EDICT_NUM(host_client - svs.clients + 1);
 
 	if (host_client->netconnection)
 	{
@@ -402,10 +380,15 @@ void SV_DropClient(qboolean crash)
 		if (!crash)
 		{
 			// LordHavoc: no opportunity for resending, so use unreliable 3 times
-			MSG_WriteByte(&host_client->message, svc_disconnect);
-			NetConn_SendUnreliableMessage(host_client->netconnection, &host_client->message);
-			NetConn_SendUnreliableMessage(host_client->netconnection, &host_client->message);
-			NetConn_SendUnreliableMessage(host_client->netconnection, &host_client->message);
+			unsigned char bufdata[8];
+			sizebuf_t buf;
+			memset(&buf, 0, sizeof(buf));
+			buf.data = bufdata;
+			buf.maxsize = sizeof(bufdata);
+			MSG_WriteByte(&buf, svc_disconnect);
+			NetConn_SendUnreliableMessage(host_client->netconnection, &buf, sv.protocol, 10000);
+			NetConn_SendUnreliableMessage(host_client->netconnection, &buf, sv.protocol, 10000);
+			NetConn_SendUnreliableMessage(host_client->netconnection, &buf, sv.protocol, 10000);
 		}
 		// break the net connection
 		NetConn_Close(host_client->netconnection);
@@ -415,21 +398,29 @@ void SV_DropClient(qboolean crash)
 	// call qc ClientDisconnect function
 	// LordHavoc: don't call QC if server is dead (avoids recursive
 	// Host_Error in some mods when they run out of edicts)
-	if (host_client->active && sv.active && host_client->edict && host_client->spawned)
+	if (host_client->clientconnectcalled && sv.active && host_client->edict)
 	{
 		// call the prog function for removing a client
 		// this will set the body to a dead frame, among other things
-		int saveSelf = pr_global_struct->self;
-		pr_global_struct->self = EDICT_TO_PROG(host_client->edict);
-		PR_ExecuteProgram(pr_global_struct->ClientDisconnect, "QC function ClientDisconnect is missing");
-		pr_global_struct->self = saveSelf;
+		int saveSelf = prog->globals.server->self;
+		host_client->clientconnectcalled = false;
+		prog->globals.server->self = PRVM_EDICT_TO_PROG(host_client->edict);
+		PRVM_ExecuteProgram(prog->globals.server->ClientDisconnect, "QC function ClientDisconnect is missing");
+		prog->globals.server->self = saveSelf;
+	}
+
+	// if a download is active, close it
+	if (host_client->download_file)
+	{
+		Con_DPrintf("Download of %s aborted when %s dropped\n", host_client->download_name, host_client->name);
+		FS_Close(host_client->download_file);
+		host_client->download_file = NULL;
+		host_client->download_name[0] = 0;
+		host_client->download_expectedposition = 0;
+		host_client->download_started = false;
 	}
 
 	// remove leaving player from scoreboard
-	//host_client->edict->v->netname = PR_SetEngineString(host_client->name);
-	//if ((val = GETEDICTFIELDVALUE(host_client->edict, eval_clientcolors)))
-	//	val->_float = 0;
-	//host_client->edict->v->frags = 0;
 	host_client->name[0] = 0;
 	host_client->colors = 0;
 	host_client->frags = 0;
@@ -457,7 +448,7 @@ void SV_DropClient(qboolean crash)
 	if (sv.active)
 	{
 		// clear a fields that matter to DP_SV_CLIENTNAME and DP_SV_CLIENTCOLORS, and also frags
-		ED_ClearEdict(host_client->edict);
+		PRVM_ED_ClearEdict(host_client->edict);
 	}
 
 	// clear the client struct (this sets active to false)
@@ -475,40 +466,28 @@ Host_ShutdownServer
 This only happens at the end of a game, not between levels
 ==================
 */
-void Host_ShutdownServer(qboolean crash)
+void Host_ShutdownServer(void)
 {
-	int i, count;
-	sizebuf_t buf;
-	char message[4];
+	int i;
 
 	Con_DPrintf("Host_ShutdownServer\n");
 
 	if (!sv.active)
 		return;
 
-	// print out where the crash happened, if it was caused by QC
-	PR_Crash();
-
 	NetConn_Heartbeat(2);
 	NetConn_Heartbeat(2);
 
 // make sure all the clients know we're disconnecting
-	buf.data = message;
-	buf.maxsize = 4;
-	buf.cursize = 0;
-	MSG_WriteByte(&buf, svc_disconnect);
-	count = NetConn_SendToAll(&buf, 5);
-	if (count)
-		Con_Printf("Host_ShutdownServer: NetConn_SendToAll failed for %u clients\n", count);
-
+	SV_VM_Begin();
 	for (i = 0, host_client = svs.clients;i < svs.maxclients;i++, host_client++)
 		if (host_client->active)
-			SV_DropClient(crash); // server shutdown
+			SV_DropClient(false); // server shutdown
+	SV_VM_End();
 
 	NetConn_CloseServerPorts();
 
 	sv.active = false;
-
 //
 // clear structures
 //
@@ -517,120 +496,8 @@ void Host_ShutdownServer(qboolean crash)
 }
 
 
-/*
-================
-Host_ClearMemory
-
-This clears all the memory used by both the client and server, but does
-not reinitialize anything.
-================
-*/
-void Host_ClearMemory (void)
-{
-	Con_DPrint("Clearing memory\n");
-	Mod_ClearAll ();
-
-	cls.signon = 0;
-	memset (&sv, 0, sizeof(sv));
-	memset (&cl, 0, sizeof(cl));
-}
-
-
 //============================================================================
 
-/*
-===================
-Host_FilterTime
-
-Returns false if the time is too short to run a frame
-===================
-*/
-extern qboolean cl_capturevideo_active;
-extern double cl_capturevideo_framerate;
-extern qfile_t *cl_capturevideo_soundfile;
-qboolean Host_FilterTime (double time)
-{
-	double timecap, timeleft;
-	realtime += time;
-
-	if (sys_ticrate.value < 0.00999 || sys_ticrate.value > 0.10001)
-		Cvar_SetValue("sys_ticrate", bound(0.01, sys_ticrate.value, 0.1));
-	if (slowmo.value < 0)
-		Cvar_SetValue("slowmo", 0);
-	if (host_framerate.value < 0.00001 && host_framerate.value != 0)
-		Cvar_SetValue("host_framerate", 0);
-	if (cl_maxfps.value < 1)
-		Cvar_SetValue("cl_maxfps", 1);
-
-	if (cls.timedemo)
-	{
-		// disable time effects during timedemo
-		cl.frametime = host_realframetime = host_frametime = realtime - oldrealtime;
-		oldrealtime = realtime;
-		return true;
-	}
-
-	// check if framerate is too high
-	// default to sys_ticrate (server framerate - presumably low) unless we
-	// have a good reason to run faster
-	timecap = host_framerate.value;
-	if (!timecap)
-		timecap = sys_ticrate.value;
-	if (cls.state != ca_dedicated)
-	{
-		if (cl_capturevideo_active)
-			timecap = 1.0 / cl_capturevideo_framerate;
-		else if (vid_activewindow)
-			timecap = 1.0 / cl_maxfps.value;
-	}
-
-	timeleft = timecap - (realtime - oldrealtime);
-	if (timeleft > 0)
-	{
-		int msleft;
-		// don't totally hog the CPU
-		if (cls.state == ca_dedicated)
-		{
-			// if dedicated, try to use as little cpu as possible by waiting
-			// just a little longer than necessary
-			// (yes this means it doesn't quite keep up with the framerate)
-			msleft = (int)ceil(timeleft * 1000);
-		}
-		else
-		{
-			// if not dedicated, try to hit exactly a steady framerate by not
-			// sleeping the full amount
-			msleft = (int)floor(timeleft * 1000);
-		}
-		if (msleft > 0)
-			Sys_Sleep(msleft);
-		return false;
-	}
-
-	// LordHavoc: copy into host_realframetime as well
-	host_realframetime = host_frametime = realtime - oldrealtime;
-	oldrealtime = realtime;
-
-	if (cl_capturevideo_active && !cl_capturevideo_soundfile)
-		host_frametime = timecap;
-
-	// apply slowmo scaling
-	host_frametime *= slowmo.value;
-
-	// host_framerate overrides all else
-	if (host_framerate.value)
-		host_frametime = host_framerate.value;
-
-	// never run a frame longer than 1 second
-	if (host_frametime > 1)
-		host_frametime = 1;
-
-	cl.frametime = host_frametime;
-
-	return true;
-}
-
-
 /*
 ===================
 Host_GetConsoleCommands
@@ -651,206 +518,291 @@ void Host_GetConsoleCommands (void)
 	}
 }
 
-
 /*
 ==================
-Host_ServerFrame
+Host_Frame
 
+Runs all active servers
 ==================
 */
-void Host_ServerFrame (void)
+static void Host_Init(void);
+void Host_Main(void)
 {
-	// never run more than 5 frames at a time as a sanity limit
-	int framecount, framelimit = 5;
-	double advancetime;
-	if (!sv.active)
-	{
-		sv.timer = 0;
-		return;
-	}
-	sv.timer += host_realframetime;
-	// run the world state
-	// don't allow simulation to run too fast or too slow or logic glitches can occur
-	for (framecount = 0;framecount < framelimit && sv.timer > 0;framecount++)
+	double time1 = 0;
+	double time2 = 0;
+	double time3 = 0;
+	double cl_timer, sv_timer;
+	double clframetime, deltarealtime, oldrealtime;
+	double wait;
+	int pass1, pass2, pass3;
+
+	Host_Init();
+
+	cl_timer = 0;
+	sv_timer = 0;
+
+	realtime = Sys_DoubleTime();
+	for (;;)
 	{
-		if (cl.islocalgame)
-			advancetime = min(sv.timer, sys_ticrate.value);
-		else
-			advancetime = sys_ticrate.value;
-		sv.timer -= advancetime;
+		if (setjmp(host_abortframe))
+			continue;			// something bad happened, or the server disconnected
 
-		// only advance time if not paused
-		// the game also pauses in singleplayer when menu or console is used
-		sv.frametime = advancetime * slowmo.value;
-		if (host_framerate.value)
-			sv.frametime = host_framerate.value;
-		if (sv.paused || (cl.islocalgame && (key_dest != key_game || key_consoleactive)))
-			sv.frametime = 0;
+		oldrealtime = realtime;
+		realtime = Sys_DoubleTime();
 
-		pr_global_struct->frametime = sv.frametime;
+		deltarealtime = realtime - oldrealtime;
+		cl_timer += deltarealtime;
+		sv_timer += deltarealtime;
 
-		// set the time and clear the general datagram
-		SV_ClearDatagram();
+		if (slowmo.value < 0)
+			Cvar_SetValue("slowmo", 0);
+		if (host_framerate.value < 0.00001 && host_framerate.value != 0)
+			Cvar_SetValue("host_framerate", 0);
+		if (cl_maxfps.value < 1)
+			Cvar_SetValue("cl_maxfps", 1);
 
-		// check for network packets to the server each world step incase they
-		// come in midframe (particularly if host is running really slow)
-		NetConn_ServerFrame();
+		// keep the random time dependent, but not when playing demos/benchmarking
+		if(!*sv_random_seed.string && !cls.demoplayback)
+			rand();
 
-		// read client messages
-		SV_RunClients();
+		cl.islocalgame = NetConn_IsLocalGame();
 
-		// move things around and think unless paused
-		if (sv.frametime)
-			SV_Physics();
+		// get new key events
+		Sys_SendKeyEvents();
 
-		// send all messages to the clients
-		SV_SendClientMessages();
+		NetConn_UpdateSockets();
 
-		// send an heartbeat if enough time has passed since the last one
-		NetConn_Heartbeat(0);
-	}
-	// if we fell behind too many frames just don't worry about it
-	if (sv.timer > 0)
-		sv.timer = 0;
-}
+		// receive packets on each main loop iteration, as the main loop may
+		// be undersleeping due to select() detecting a new packet
+		if (sv.active)
+			NetConn_ServerFrame();
 
+		Curl_Run();
 
-/*
-==================
-Host_Frame
+		// check for commands typed to the host
+		Host_GetConsoleCommands();
 
-Runs all active servers
-==================
-*/
-void _Host_Frame (float time)
-{
-	static double time1 = 0;
-	static double time2 = 0;
-	static double time3 = 0;
-	int pass1, pass2, pass3;
+		// when a server is running we only execute console commands on server frames
+		// (this mainly allows frikbot .way config files to work properly by staying in sync with the server qc)
+		// otherwise we execute them on all frames
+		if (sv_timer > 0 || !sv.active)
+		{
+			// process console commands
+			Cbuf_Execute();
+		}
 
-	if (setjmp(host_abortserver))
-		return;			// something bad happened, or the server disconnected
+		//Con_Printf("%6.0f %6.0f\n", cl_timer * 1000000.0, sv_timer * 1000000.0);
 
-	// decide the simulation time
-	if (!Host_FilterTime(time))
-		return;
+		// if the accumulators haven't become positive yet, wait a while
+		if (cls.state == ca_dedicated)
+			wait = sv_timer * -1000000.0;
+		else if (!sv.active)
+			wait = cl_timer * -1000000.0;
+		else
+			wait = max(cl_timer, sv_timer) * -1000000.0;
+		if (wait > 100000)
+			wait = 100000;
+		if (!cls.timedemo && wait > 0)
+		{
+			if (sv_checkforpacketsduringsleep.integer)
+			{
+				if (wait >= 1)
+					NetConn_SleepMicroseconds((int)wait);
+			}
+			else
+			{
+				if (wait >= 1000)
+					Sys_Sleep((int)wait / 1000);
+			}
+			continue;
+		}
 
-	// keep the random time dependent
-	rand();
+	//-------------------
+	//
+	// server operations
+	//
+	//-------------------
 
-	cl.islocalgame = NetConn_IsLocalGame();
+		// limit the frametime steps to no more than 100ms each
+		if (cl_timer > 0.1)
+			cl_timer = 0.1;
+		if (sv_timer > 0.1)
+			sv_timer = 0.1;
 
-	// get new key events
-	Sys_SendKeyEvents();
+		if (sv.active && sv_timer > 0)
+		{
+			// execute one or more server frames, with an upper limit on how much
+			// execution time to spend on server frames to avoid freezing the game if
+			// the server is overloaded, this execution time limit means the game will
+			// slow down if the server is taking too long.
+			int framecount, framelimit = 1;
+			double advancetime, aborttime = 0;
+
+			// run the world state
+			// don't allow simulation to run too fast or too slow or logic glitches can occur
+
+			// stop running server frames if the wall time reaches this value
+			if (sys_ticrate.value <= 0)
+				advancetime = sv_timer;
+			else if (cl.islocalgame && !sv_fixedframeratesingleplayer.integer)
+			{
+				// synchronize to the client frametime, but no less than 10ms and no more than sys_ticrate
+				advancetime = bound(0.01, cl_timer, sys_ticrate.value);
+				framelimit = 10;
+				aborttime = realtime + 0.1;
+			}
+			else
+			{
+				advancetime = sys_ticrate.value;
+				// listen servers can run multiple server frames per client frame
+				if (cls.state == ca_connected)
+				{
+					framelimit = 10;
+					aborttime = realtime + 0.1;
+				}
+			}
+			advancetime = min(advancetime, 0.1);
 
-	// Collect input into cmd
-	CL_Move();
+			// only advance time if not paused
+			// the game also pauses in singleplayer when menu or console is used
+			sv.frametime = advancetime * slowmo.value;
+			if (host_framerate.value)
+				sv.frametime = host_framerate.value;
+			if (sv.paused || (cl.islocalgame && (key_dest != key_game || key_consoleactive)))
+				sv.frametime = 0;
 
-	// process console commands
-	Cbuf_Execute();
+			// setup the VM frame
+			SV_VM_Begin();
 
-	// if running the server locally, make intentions now
-	if (cls.state == ca_connected && sv.active)
-		CL_SendCmd();
+			for (framecount = 0;framecount < framelimit && sv_timer > 0;framecount++)
+			{
+				sv_timer -= advancetime;
 
-//-------------------
-//
-// server operations
-//
-//-------------------
+				// move things around and think unless paused
+				if (sv.frametime)
+					SV_Physics();
 
-	// check for commands typed to the host
-	Host_GetConsoleCommands();
+				// if this server frame took too long, break out of the loop
+				if (framelimit > 1 && Sys_DoubleTime() >= aborttime)
+					break;
+			}
 
-	if (sv.active)
-		Host_ServerFrame();
+			// send all messages to the clients
+			SV_SendClientMessages();
 
-//-------------------
-//
-// client operations
-//
-//-------------------
+			// end the server VM frame
+			SV_VM_End();
 
-	cl.oldtime = cl.time;
-	cl.time += cl.frametime;
+			// send an heartbeat if enough time has passed since the last one
+			NetConn_Heartbeat(0);
+		}
 
-	NetConn_ClientFrame();
+	//-------------------
+	//
+	// client operations
+	//
+	//-------------------
 
-	if (cls.state == ca_connected)
-	{
-		// if running the server remotely, send intentions now after
-		// the incoming messages have been read
-		if (!sv.active)
-			CL_SendCmd();
-		CL_ReadFromServer();
-	}
+		if (cls.state != ca_dedicated && (cl_timer > 0 || cls.timedemo))
+		{
+			// decide the simulation time
+			if (cls.capturevideo.active)
+			{
+				if (cls.capturevideo.realtime)
+					clframetime = cl.realframetime = max(cl_timer, 1.0 / cls.capturevideo.framerate);
+				else
+				{
+					clframetime = 1.0 / cls.capturevideo.framerate;
+					cl.realframetime = max(cl_timer, clframetime);
+				}
+			}
+			else if (vid_activewindow)
+				clframetime = cl.realframetime = max(cl_timer, 1.0 / cl_maxfps.value);
+			else
+				clframetime = cl.realframetime = 0.1;
 
-	//ui_update();
+			// apply slowmo scaling
+			clframetime *= cl.movevars_timescale;
+			// scale playback speed of demos by slowmo cvar
+			if (cls.demoplayback)
+			{
+				clframetime *= slowmo.value;
+				// if demo playback is paused, don't advance time at all
+				if (cls.demopaused)
+					clframetime = 0;
+			}
 
-	CL_VideoFrame();
+			// host_framerate overrides all else
+			if (host_framerate.value)
+				clframetime = host_framerate.value;
 
-	// update video
-	if (host_speeds.integer)
-		time1 = Sys_DoubleTime();
+			if (cls.timedemo)
+				clframetime = cl.realframetime = cl_timer;
 
-	CL_UpdateScreen();
+			// deduct the frame time from the accumulator
+			cl_timer -= cl.realframetime;
 
-	if (host_speeds.integer)
-		time2 = Sys_DoubleTime();
+			cl.oldtime = cl.time;
+			cl.time += clframetime;
 
-	// update audio
-	S_Update(&r_refdef.viewentitymatrix);
+			// Collect input into cmd
+			CL_Input();
 
-	CDAudio_Update();
+			// check for new packets
+			NetConn_ClientFrame();
 
-	if (host_speeds.integer)
-	{
-		pass1 = (time1 - time3)*1000000;
-		time3 = Sys_DoubleTime();
-		pass2 = (time2 - time1)*1000000;
-		pass3 = (time3 - time2)*1000000;
-		Con_Printf("%6ius total %6ius server %6ius gfx %6ius snd\n",
-					pass1+pass2+pass3, pass1, pass2, pass3);
-	}
+			// read a new frame from a demo if needed
+			CL_ReadDemoMessage();
 
-	host_framecount++;
-}
+			// now that packets have been read, send input to server
+			CL_SendMove();
 
-void Host_Frame (float time)
-{
-	double time1, time2;
-	static double timetotal;
-	static int timecount;
-	int i, c, m;
+			// update client world (interpolate entities, create trails, etc)
+			CL_UpdateWorld();
 
-	if (!serverprofile.integer)
-	{
-		_Host_Frame (time);
-		return;
-	}
+			// update video
+			if (host_speeds.integer)
+				time1 = Sys_DoubleTime();
 
-	time1 = Sys_DoubleTime ();
-	_Host_Frame (time);
-	time2 = Sys_DoubleTime ();
+			//ui_update();
 
-	timetotal += time2 - time1;
-	timecount++;
+			CL_VideoFrame();
 
-	if (timecount < 1000)
-		return;
+			CL_UpdateScreen();
 
-	m = timetotal*1000/timecount;
-	timecount = 0;
-	timetotal = 0;
-	c = 0;
-	for (i=0 ; i<svs.maxclients ; i++)
-	{
-		if (svs.clients[i].active)
-			c++;
-	}
+			if (host_speeds.integer)
+				time2 = Sys_DoubleTime();
+
+			// update audio
+			if(cl.csqc_usecsqclistener)
+			{
+				S_Update(&cl.csqc_listenermatrix);
+				cl.csqc_usecsqclistener = false;
+			}
+			else
+				S_Update(&r_view.matrix);
 
-	Con_Printf("serverprofile: %2i clients %2i msec\n",  c,  m);
+			CDAudio_Update();
+
+			if (host_speeds.integer)
+			{
+				pass1 = (int)((time1 - time3)*1000000);
+				time3 = Sys_DoubleTime();
+				pass2 = (int)((time2 - time1)*1000000);
+				pass3 = (int)((time3 - time2)*1000000);
+				Con_Printf("%6ius total %6ius server %6ius gfx %6ius snd\n",
+							pass1+pass2+pass3, pass1, pass2, pass3);
+			}
+		}
+
+		// if there is some time remaining from this frame, reset the timers
+		if (cl_timer >= 0)
+			cl_timer = 0;
+		if (sv_timer >= 0)
+			sv_timer = 0;
+
+		host_framecount++;
+	}
 }
 
 //============================================================================
@@ -863,8 +815,6 @@ void Host_StartVideo(void)
 		vid_opened = true;
 		VID_Start();
 		CDAudio_Startup();
-		CL_InitTEnts();  // We must wait after sound startup to load tent sounds
-		MR_Init();
 	}
 }
 
@@ -879,7 +829,6 @@ extern void FS_Shutdown(void);
 extern void PR_Cmd_Init(void);
 extern void COM_Init_Commands(void);
 extern void FS_Init_Commands(void);
-extern void COM_CheckRegistered(void);
 extern qboolean host_stuffcmdsrun;
 
 /*
@@ -887,25 +836,57 @@ extern qboolean host_stuffcmdsrun;
 Host_Init
 ====================
 */
-void Host_Init (void)
+static void Host_Init (void)
 {
 	int i;
 	const char* os;
 
 	// LordHavoc: quake never seeded the random number generator before... heh
-	srand(time(NULL));
+	if (COM_CheckParm("-benchmark"))
+		srand(0); // predictable random sequence for -benchmark
+	else
+		srand(time(NULL));
+
+	// FIXME: this is evil, but possibly temporary
+// COMMANDLINEOPTION: Console: -developer enables warnings and other notices (RECOMMENDED for mod developers)
+	if (COM_CheckParm("-developer"))
+	{
+		developer.value = developer.integer = 100;
+		developer.string = "100";
+	}
+
+	if (COM_CheckParm("-developer2"))
+	{
+		developer.value = developer.integer = 100;
+		developer.string = "100";
+		developer_memory.value = developer_memory.integer = 100;
+		developer.string = "100";
+		developer_memorydebug.value = developer_memorydebug.integer = 100;
+		developer_memorydebug.string = "100";
+	}
+
+// COMMANDLINEOPTION: Console: -nostdout disables text output to the terminal the game was launched from
+	if (COM_CheckParm("-nostdout"))
+		sys_nostdout = 1;
 
 	// used by everything
 	Memory_Init();
 
-	// initialize console and logging
-	Con_Init();
-
 	// initialize console command/cvar/alias/command execution systems
 	Cmd_Init();
 
-	// parse commandline
-	COM_InitArgv();
+	// initialize memory subsystem cvars/commands
+	Memory_Init_Commands();
+
+	// initialize console and logging and its cvars/commands
+	Con_Init();
+
+	// initialize various cvars that could not be initialized earlier
+	Curl_Init_Commands();
+	Cmd_Init_Commands();
+	Sys_Init_Commands();
+	COM_Init_Commands();
+	FS_Init_Commands();
 
 	// initialize console window (only used by sys_win.c)
 	Sys_InitConsole();
@@ -926,46 +907,27 @@ void Host_Init (void)
 	os = "OpenBSD";
 #elif defined(MACOSX)
 	os = "Mac OS X";
+#elif defined(__MORPHOS__)
+	os = "MorphOS";
 #else
 	os = "Unknown";
 #endif
 	dpsnprintf (engineversion, sizeof (engineversion), "%s %s %s", gamename, os, buildstring);
-
-// COMMANDLINEOPTION: Console: -nostdout disables text output to the terminal the game was launched from
-	if (COM_CheckParm("-nostdout"))
-		sys_nostdout = 1;
-	else
-		Con_Printf("%s\n", engineversion);
-
-	// FIXME: this is evil, but possibly temporary
-// COMMANDLINEOPTION: Console: -developer enables warnings and other notices (RECOMMENDED for mod developers)
-	if (COM_CheckParm("-developer"))
-	{
-		forcedeveloper = true;
-		developer.integer = 1;
-		developer.value = 1;
-	}
-
-	// initialize filesystem (including fs_basedir, fs_gamedir, -path, -game, scr_screenshot_name)
-	FS_Init();
-
-	// initialize various cvars that could not be initialized earlier
-	Memory_Init_Commands();
-	Con_Init_Commands();
-	Cmd_Init_Commands();
-	Sys_Init_Commands();
-	COM_Init_Commands();
-	FS_Init_Commands();
-	COM_CheckRegistered();
+	Con_Printf("%s\n", engineversion);
 
 	// initialize ixtable
 	Mathlib_Init();
 
+	// initialize filesystem (including fs_basedir, fs_gamedir, -game, scr_screenshot_name)
+	FS_Init();
+
 	NetConn_Init();
-	PR_Init();
-	PR_Cmd_Init();
+	Curl_Init();
+	//PR_Init();
+	//PR_Cmd_Init();
 	PRVM_Init();
 	Mod_Init();
+	World_Init();
 	SV_Init();
 	Host_InitCommands();
 	Host_InitLocal();
@@ -994,8 +956,6 @@ void Host_Init (void)
 		Cbuf_AddText("alias startmap_sp \"map nehstart\"\nalias startmap_dm \"map nehstart\"\nexec quake.rc\n");
 	else if (gamemode == GAME_TRANSFUSION)
 		Cbuf_AddText("alias startmap_sp \"map e1m1\"\n""alias startmap_dm \"map bb1\"\nexec quake.rc\n");
-	else if (gamemode == GAME_NEXUIZ)
-		Cbuf_AddText("alias startmap_sp \"map nexdm01\"\nalias startmap_dm \"map nexdm01\"\nexec quake.rc\n");
 	else if (gamemode == GAME_TEU)
 		Cbuf_AddText("alias startmap_sp \"map start\"\nalias startmap_dm \"map start\"\nexec teu.rc\n");
 	else
@@ -1009,8 +969,21 @@ void Host_Init (void)
 		Cbuf_Execute();
 	}
 
-	// save console log up to this point to log_file if it was set by configs
-	Log_Start();
+	// put up the loading image so the user doesn't stare at a black screen...
+	SCR_BeginLoadingPlaque();
+
+	// FIXME: put this into some neat design, but the menu should be allowed to crash
+	// without crashing the whole game, so this should just be a short-time solution
+
+	// here comes the not so critical stuff
+	if (setjmp(host_abortframe)) {
+		return;
+	}
+
+	if (cls.state != ca_dedicated)
+	{
+		MR_Init();
+	}
 
 	// check for special benchmark mode
 // COMMANDLINEOPTION: Client: -benchmark <demoname> runs a timedemo and quits, results of any timedemo can be found in gamedir/benchmark.log (for example id1/benchmark.log)
@@ -1022,6 +995,25 @@ void Host_Init (void)
 		Cbuf_Execute();
 	}
 
+	// check for special demo mode
+// COMMANDLINEOPTION: Client: -demo <demoname> runs a playdemo and quits
+	i = COM_CheckParm("-demo");
+	if (i && i + 1 < com_argc)
+	if (!sv.active && !cls.demoplayback && !cls.connect_trying)
+	{
+		Cbuf_AddText(va("playdemo %s\n", com_argv[i + 1]));
+		Cbuf_Execute();
+	}
+
+// COMMANDLINEOPTION: Client: -capturedemo <demoname> captures a playdemo and quits
+	i = COM_CheckParm("-capturedemo");
+	if (i && i + 1 < com_argc)
+	if (!sv.active && !cls.demoplayback && !cls.connect_trying)
+	{
+		Cbuf_AddText(va("playdemo %s\ncl_capturevideo 1\n", com_argv[i + 1]));
+		Cbuf_Execute();
+	}
+
 	if (cls.state == ca_dedicated || COM_CheckParm("-listen"))
 	if (!sv.active && !cls.demoplayback && !cls.connect_trying)
 	{
@@ -1040,7 +1032,7 @@ void Host_Init (void)
 
 	Con_DPrint("========Initialized=========\n");
 
-	Host_StartVideo();
+	//Host_StartVideo();
 }
 
 
@@ -1061,6 +1053,11 @@ void Host_Shutdown(void)
 		Con_Print("recursive shutdown\n");
 		return;
 	}
+	if (setjmp(host_abortframe))
+	{
+		Con_Print("aborted the quitting frame?!?\n");
+		return;
+	}
 	isdown = true;
 
 	// be quiet while shutting down
@@ -1070,7 +1067,7 @@ void Host_Shutdown(void)
 	CL_Disconnect();
 
 	// shut down local server if active
-	Host_ShutdownServer (false);
+	Host_ShutdownServer ();
 
 	// Shutdown menu
 	if(MR_Shutdown)
@@ -1085,8 +1082,9 @@ void Host_Shutdown(void)
 
 	CDAudio_Shutdown ();
 	S_Terminate ();
+	Curl_Shutdown ();
 	NetConn_Shutdown ();
-	PR_Shutdown ();
+	//PR_Shutdown ();
 
 	if (cls.state != ca_dedicated)
 	{