X-Git-Url: http://de.git.xonotic.org/?p=xonotic%2Fdarkplaces.git;a=blobdiff_plain;f=pr_cmds.c;h=d2b39692b9ffe9ab25963654a9a91229b8df409e;hp=05b9a298477f3f2594ecfdb3e04cb1b0d35b4caa;hb=5fc362d5d72a0aecbd5a64520b105650f8f2d794;hpb=a980fc82080b0763e4bc338144fff3f42e4750e1

diff --git a/pr_cmds.c b/pr_cmds.c
index 05b9a298..d2b39692 100644
--- a/pr_cmds.c
+++ b/pr_cmds.c
@@ -25,11 +25,23 @@ cvar_t pr_zone_min_strings = {0, "pr_zone_min_strings", "64"};
 
 mempool_t *pr_strings_mempool;
 
-#define MAX_VARSTRING 4096
+// LordHavoc: added this to semi-fix the problem of using many ftos calls in a print
+#define STRINGTEMP_BUFFERS 16
+#define STRINGTEMP_LENGTH 4096
+static char pr_string_temp[STRINGTEMP_BUFFERS][STRINGTEMP_LENGTH];
+static int pr_string_tempindex = 0;
 
-char pr_varstring_temp[MAX_VARSTRING];
+static char *PR_GetTempString(void)
+{
+	char *s;
+	s = pr_string_temp[pr_string_tempindex];
+	pr_string_tempindex = (pr_string_tempindex + 1) % STRINGTEMP_BUFFERS;
+	return s;
+}
 
-#define	RETURN_EDICT(e) (((int *)pr_globals)[OFS_RETURN] = EDICT_TO_PROG(e))
+#define	RETURN_EDICT(e) (G_INT(OFS_RETURN) = EDICT_TO_PROG(e))
+#define PF_WARNING(s) do{Con_Printf(s);PR_PrintState();return;}while(0)
+#define PF_ERROR(s) do{Host_Error(s);return;}while(0)
 
 
 /*
@@ -41,55 +53,58 @@ char pr_varstring_temp[MAX_VARSTRING];
 */
 
 
-char *PF_VarString (int	first)
+void PF_VarString(int first, char *out, int outlength)
 {
-	int i, j, end;
-	char *s;
+	int i;
+	const char *s;
+	char *outend;
 
-	end = 0;
-	for (i = first;i < pr_argc;i++)
+	outend = out + outlength - 1;
+	for (i = first;i < pr_argc && out < outend;i++)
 	{
-		// LordHavoc: FIXME: this is just a strlcat inlined
 		s = G_STRING((OFS_PARM0+i*3));
-		j = strlen(s);
-		if (j > MAX_VARSTRING - 1 - end)
-			j = MAX_VARSTRING - 1 - end;
-		if (j > 0)
-		{
-			memcpy(pr_varstring_temp + end, s, j);
-			end += j;
-		}
+		while (out < outend && *s)
+			*out++ = *s++;
 	}
-	pr_varstring_temp[end] = 0;
-	return pr_varstring_temp;
+	*out++ = 0;
 }
 
 char *ENGINE_EXTENSIONS =
-"DP_EF_NODRAW "
+"DP_CL_LOADSKY "
 "DP_EF_ADDITIVE "
 "DP_EF_BLUE "
-"DP_EF_RED "
-"DP_EF_FULLBRIGHT "
 "DP_EF_FLAME "
+"DP_EF_FULLBRIGHT "
+"DP_EF_NODRAW "
+"DP_EF_RED "
 "DP_EF_STARDUST "
 "DP_ENT_ALPHA "
 "DP_ENT_CUSTOMCOLORMAP "
 "DP_ENT_EXTERIORMODELTOCLIENT "
-"DP_ENT_LOWPRECISION "
 "DP_ENT_GLOW "
+"DP_ENT_LOWPRECISION "
 "DP_ENT_SCALE "
 "DP_ENT_VIEWMODEL "
+"DP_GFX_EXTERNALTEXTURES "
 "DP_GFX_FOG "
+"DP_GFX_QUAKE3MODELTAGS "
+"DP_GFX_SKINFILES "
+"DP_GFX_SKYBOX "
 "DP_HALFLIFE_MAP "
+"DP_HALFLIFE_MAP_CVAR "
 "DP_INPUTBUTTONS "
+"DP_LITSUPPORT "
 "DP_MONSTERWALK "
+"DP_MOVETYPEBOUNCEMISSILE "
 "DP_MOVETYPEFOLLOW "
 "DP_QC_CHANGEPITCH "
 "DP_QC_COPYENTITY "
+"DP_QC_CVAR_STRING "
 "DP_QC_ETOS "
 "DP_QC_FINDCHAIN "
 "DP_QC_FINDCHAINFLOAT "
 "DP_QC_FINDFLOAT "
+"DP_QC_FS_SEARCH " // Black: same as in the menu qc
 "DP_QC_GETLIGHT "
 "DP_QC_GETSURFACE "
 "DP_QC_MINMAXBOUND "
@@ -97,6 +112,8 @@ char *ENGINE_EXTENSIONS =
 "DP_QC_SINCOSSQRTPOW "
 "DP_QC_TRACEBOX "
 "DP_QC_TRACETOSS "
+"DP_QC_TRACE_MOVETYPE_HITMODEL "
+"DP_QC_TRACE_MOVETYPE_WORLDONLY "
 "DP_QC_VECTORVECTORS "
 "DP_QUAKE2_MODEL "
 "DP_QUAKE3_MODEL "
@@ -112,15 +129,23 @@ char *ENGINE_EXTENSIONS =
 "DP_SV_SLOWMO "
 "DP_TE_BLOOD "
 "DP_TE_BLOODSHOWER "
+"DP_TE_CUSTOMFLASH "
 "DP_TE_EXPLOSIONRGB "
 "DP_TE_FLAMEJET "
 "DP_TE_PARTICLECUBE "
 "DP_TE_PARTICLERAIN "
 "DP_TE_PARTICLESNOW "
+"DP_TE_PLASMABURN "
+"DP_TE_QUADEFFECTS1 "
+"DP_TE_SMALLFLASH "
 "DP_TE_SPARK "
+"DP_TE_STANDARDEFFECTBUILTINS "
+"DP_VIEWZOOM "
 "FRIK_FILE "
+"KRIMZON_SV_PARSECLIENTCOMMAND "
 "NEH_CMD_PLAY2 "
 "NEH_RESTOREGAME "
+"TENEBRAE_GFX_DLIGHTS "
 "TW_SV_STEPCONTROL "
 ;
 
@@ -171,15 +196,15 @@ error(value)
 */
 void PF_error (void)
 {
-	char	*s;
 	edict_t	*ed;
+	char string[STRINGTEMP_LENGTH];
 
-	s = PF_VarString(0);
-	Con_Printf ("======SERVER ERROR in %s:\n%s\n", PR_GetString(pr_xfunction->s_name), s);
+	PF_VarString(0, string, sizeof(string));
+	Con_Printf ("======SERVER ERROR in %s:\n%s\n", PR_GetString(pr_xfunction->s_name), string);
 	ed = PROG_TO_EDICT(pr_global_struct->self);
 	ED_Print (ed);
 
-	Host_Error ("Program error");
+	PF_ERROR("Program error");
 }
 
 /*
@@ -194,11 +219,11 @@ objerror(value)
 */
 void PF_objerror (void)
 {
-	char	*s;
 	edict_t	*ed;
+	char string[STRINGTEMP_LENGTH];
 
-	s = PF_VarString(0);
-	Con_Printf ("======OBJECT ERROR in %s:\n%s\n", PR_GetString(pr_xfunction->s_name), s);
+	PF_VarString(0, string, sizeof(string));
+	Con_Printf ("======OBJECT ERROR in %s:\n%s\n", PR_GetString(pr_xfunction->s_name), string);
 	ed = PROG_TO_EDICT(pr_global_struct->self);
 	ED_Print (ed);
 	ED_Free (ed);
@@ -247,6 +272,10 @@ void PF_setorigin (void)
 	float	*org;
 
 	e = G_EDICT(OFS_PARM0);
+	if (e == sv.edicts)
+		PF_WARNING("setorigin: can not modify world entity\n");
+	if (e->e->free)
+		PF_WARNING("setorigin: can not modify free entity\n");
 	org = G_VECTOR(OFS_PARM1);
 	VectorCopy (org, e->v->origin);
 	SV_LinkEdict (e, false);
@@ -259,7 +288,7 @@ void SetMinMaxSize (edict_t *e, float *min, float *max, qboolean rotate)
 
 	for (i=0 ; i<3 ; i++)
 		if (min[i] > max[i])
-			Host_Error ("backwards mins/maxs");
+			PF_ERROR("SetMinMaxSize: backwards mins/maxs\n");
 
 // set derived values
 	VectorCopy (min, e->v->mins);
@@ -285,6 +314,10 @@ void PF_setsize (void)
 	float	*min, *max;
 
 	e = G_EDICT(OFS_PARM0);
+	if (e == sv.edicts)
+		PF_WARNING("setsize: can not modify world entity\n");
+	if (e->e->free)
+		PF_WARNING("setsize: can not modify free entity\n");
 	min = G_VECTOR(OFS_PARM1);
 	max = G_VECTOR(OFS_PARM2);
 	SetMinMaxSize (e, min, max, false);
@@ -306,6 +339,10 @@ void PF_setmodel (void)
 	int		i;
 
 	e = G_EDICT(OFS_PARM0);
+	if (e == sv.edicts)
+		PF_WARNING("setmodel: can not modify world entity\n");
+	if (e->e->free)
+		PF_WARNING("setmodel: can not modify free entity\n");
 	m = G_STRING(OFS_PARM1);
 
 // check to see if model was properly precached
@@ -314,7 +351,7 @@ void PF_setmodel (void)
 			break;
 
 	if (!*check)
-		Host_Error ("no precache: %s\n", m);
+		PF_WARNING("setmodel: no precache\n");
 
 
 	e->v->model = PR_SetString(*check);
@@ -339,10 +376,9 @@ bprint(value)
 */
 void PF_bprint (void)
 {
-	char		*s;
-
-	s = PF_VarString(0);
-	SV_BroadcastPrintf ("%s", s);
+	char string[STRINGTEMP_LENGTH];
+	PF_VarString(0, string, sizeof(string));
+	SV_BroadcastPrintf("%s", string);
 }
 
 /*
@@ -356,23 +392,24 @@ sprint(clientent, value)
 */
 void PF_sprint (void)
 {
-	char		*s;
 	client_t	*client;
 	int			entnum;
+	char string[STRINGTEMP_LENGTH];
 
 	entnum = G_EDICTNUM(OFS_PARM0);
-	s = PF_VarString(1);
 
-	if (entnum < 1 || entnum > svs.maxclients)
+	if (entnum < 1 || entnum > svs.maxclients || !svs.clients[entnum-1].active)
 	{
 		Con_Printf ("tried to sprint to a non-client\n");
 		return;
 	}
 
-	client = &svs.clients[entnum-1];
-
-	MSG_WriteChar (&client->message,svc_print);
-	MSG_WriteString (&client->message, s );
+	client = svs.clients + entnum-1;
+	if (!client->netconnection)
+		return;
+	PF_VarString(1, string, sizeof(string));
+	MSG_WriteChar(&client->message,svc_print);
+	MSG_WriteString(&client->message, string);
 }
 
 
@@ -387,23 +424,24 @@ centerprint(clientent, value)
 */
 void PF_centerprint (void)
 {
-	char		*s;
 	client_t	*client;
 	int			entnum;
+	char string[STRINGTEMP_LENGTH];
 
 	entnum = G_EDICTNUM(OFS_PARM0);
-	s = PF_VarString(1);
 
-	if (entnum < 1 || entnum > svs.maxclients)
+	if (entnum < 1 || entnum > svs.maxclients || !svs.clients[entnum-1].active)
 	{
 		Con_Printf ("tried to sprint to a non-client\n");
 		return;
 	}
 
-	client = &svs.clients[entnum-1];
-
-	MSG_WriteChar (&client->message,svc_centerprint);
-	MSG_WriteString (&client->message, s );
+	client = svs.clients + entnum-1;
+	if (!client->netconnection)
+		return;
+	PF_VarString(1, string, sizeof(string));
+	MSG_WriteChar(&client->message,svc_centerprint);
+	MSG_WriteString(&client->message, string);
 }
 
 
@@ -656,13 +694,13 @@ void PF_sound (void)
 	attenuation = G_FLOAT(OFS_PARM4);
 
 	if (volume < 0 || volume > 255)
-		Host_Error ("SV_StartSound: volume = %i", volume);
+		PF_WARNING("SV_StartSound: volume must be in range 0-1\n");
 
 	if (attenuation < 0 || attenuation > 4)
-		Host_Error ("SV_StartSound: attenuation = %f", attenuation);
+		PF_WARNING("SV_StartSound: attenuation must be in range 0-4\n");
 
 	if (channel < 0 || channel > 7)
-		Host_Error ("SV_StartSound: channel = %i", channel);
+		PF_WARNING("SV_StartSound: channel must be in range 0-7\n");
 
 	SV_StartSound (entity, channel, sample, volume, attenuation);
 }
@@ -676,7 +714,7 @@ break()
 */
 void PF_break (void)
 {
-	Host_Error ("break statement");
+	PF_ERROR("break: break statement\n");
 }
 
 /*
@@ -694,17 +732,17 @@ void PF_traceline (void)
 {
 	float	*v1, *v2;
 	trace_t	trace;
-	int		nomonsters;
+	int		move;
 	edict_t	*ent;
 
 	pr_xfunction->builtinsprofile += 30;
 
 	v1 = G_VECTOR(OFS_PARM0);
 	v2 = G_VECTOR(OFS_PARM1);
-	nomonsters = G_FLOAT(OFS_PARM2);
+	move = G_FLOAT(OFS_PARM2);
 	ent = G_EDICT(OFS_PARM3);
 
-	trace = SV_Move (v1, vec3_origin, vec3_origin, v2, nomonsters ? MOVE_NOMONSTERS : MOVE_NORMAL, ent);
+	trace = SV_Move (v1, vec3_origin, vec3_origin, v2, move, ent);
 
 	pr_global_struct->trace_allsolid = trace.allsolid;
 	pr_global_struct->trace_startsolid = trace.startsolid;
@@ -738,7 +776,7 @@ void PF_tracebox (void)
 {
 	float	*v1, *v2, *m1, *m2;
 	trace_t	trace;
-	int		nomonsters;
+	int		move;
 	edict_t	*ent;
 
 	pr_xfunction->builtinsprofile += 30;
@@ -747,10 +785,10 @@ void PF_tracebox (void)
 	m1 = G_VECTOR(OFS_PARM1);
 	m2 = G_VECTOR(OFS_PARM2);
 	v2 = G_VECTOR(OFS_PARM3);
-	nomonsters = G_FLOAT(OFS_PARM4);
+	move = G_FLOAT(OFS_PARM4);
 	ent = G_EDICT(OFS_PARM5);
 
-	trace = SV_Move (v1, m1, m2, v2, nomonsters ? MOVE_NOMONSTERS : MOVE_NORMAL, ent);
+	trace = SV_Move (v1, m1, m2, v2, move, ent);
 
 	pr_global_struct->trace_allsolid = trace.allsolid;
 	pr_global_struct->trace_startsolid = trace.startsolid;
@@ -776,6 +814,8 @@ void PF_TraceToss (void)
 	pr_xfunction->builtinsprofile += 600;
 
 	ent = G_EDICT(OFS_PARM0);
+	if (ent == sv.edicts)
+		PF_WARNING("tracetoss: can not use world entity\n");
 	ignore = G_EDICT(OFS_PARM1);
 
 	trace = SV_Trace_Toss (ent, ignore);
@@ -811,23 +851,18 @@ void PF_checkpos (void)
 
 //============================================================================
 
+int checkpvsbytes;
 qbyte checkpvs[MAX_MAP_LEAFS/8];
 
 int PF_newcheckclient (int check)
 {
 	int		i;
-	qbyte	*pvs;
 	edict_t	*ent;
-	mleaf_t	*leaf;
 	vec3_t	org;
 
 // cycle to the next one
 
-	if (check < 1)
-		check = 1;
-	if (check > svs.maxclients)
-		check = svs.maxclients;
-
+	check = bound(1, check, svs.maxclients);
 	if (check == svs.maxclients)
 		i = 1;
 	else
@@ -835,31 +870,25 @@ int PF_newcheckclient (int check)
 
 	for ( ;  ; i++)
 	{
+		// count the cost
 		pr_xfunction->builtinsprofile++;
+		// wrap around
 		if (i == svs.maxclients+1)
 			i = 1;
-
+		// look up the client's edict
 		ent = EDICT_NUM(i);
-
-		if (i == check)
-			break;	// didn't find anything else
-
-		if (ent->free)
-			continue;
-		if (ent->v->health <= 0)
+		// check if it is to be ignored, but never ignore the one we started on (prevent infinite loop)
+		if (i != check && (ent->e->free || ent->v->health <= 0 || ((int)ent->v->flags & FL_NOTARGET)))
 			continue;
-		if ((int)ent->v->flags & FL_NOTARGET)
-			continue;
-
-	// anything that is a client, or has a client as an enemy
+		// found a valid client (possibly the same one again)
 		break;
 	}
 
 // get the PVS for the entity
-	VectorAdd (ent->v->origin, ent->v->view_ofs, org);
-	leaf = Mod_PointInLeaf (org, sv.worldmodel);
-	pvs = Mod_LeafPVS (leaf, sv.worldmodel);
-	memcpy (checkpvs, pvs, (sv.worldmodel->numleafs+7)>>3 );
+	VectorAdd(ent->v->origin, ent->v->view_ofs, org);
+	checkpvsbytes = 0;
+	if (sv.worldmodel && sv.worldmodel->brush.FatPVS)
+		checkpvsbytes = sv.worldmodel->brush.FatPVS(sv.worldmodel, org, 0, checkpvs, sizeof(checkpvs));
 
 	return i;
 }
@@ -883,8 +912,6 @@ int c_invis, c_notvis;
 void PF_checkclient (void)
 {
 	edict_t	*ent, *self;
-	mleaf_t	*leaf;
-	int		l;
 	vec3_t	view;
 
 	// find a new check if on a new frame
@@ -896,7 +923,7 @@ void PF_checkclient (void)
 
 	// return check if it might be visible
 	ent = EDICT_NUM(sv.lastcheck);
-	if (ent->free || ent->v->health <= 0)
+	if (ent->e->free || ent->v->health <= 0)
 	{
 		RETURN_EDICT(sv.edicts);
 		return;
@@ -904,17 +931,12 @@ void PF_checkclient (void)
 
 	// if current entity can't possibly see the check entity, return 0
 	self = PROG_TO_EDICT(pr_global_struct->self);
-	VectorAdd (self->v->origin, self->v->view_ofs, view);
-	leaf = Mod_PointInLeaf (view, sv.worldmodel);
-	if (leaf)
+	VectorAdd(self->v->origin, self->v->view_ofs, view);
+	if (sv.worldmodel && checkpvsbytes && !sv.worldmodel->brush.BoxTouchingPVS(sv.worldmodel, checkpvs, view, view))
 	{
-		l = (leaf - sv.worldmodel->leafs) - 1;
-		if ( (l<0) || !(checkpvs[l>>3] & (1<<(l&7)) ) )
-		{
-			c_notvis++;
-			RETURN_EDICT(sv.edicts);
-			return;
-		}
+		c_notvis++;
+		RETURN_EDICT(sv.edicts);
+		return;
 	}
 
 	// might be able to see it
@@ -941,13 +963,16 @@ void PF_stuffcmd (void)
 	client_t	*old;
 
 	entnum = G_EDICTNUM(OFS_PARM0);
-	if (entnum < 1 || entnum > svs.maxclients)
-		Host_Error ("Parm 0 not a client");
+	if (entnum < 1 || entnum > svs.maxclients || !svs.clients[entnum-1].active)
+	{
+		Con_Printf("Can't stuffcmd to a non-client");
+		return;
+	}
 	str = G_STRING(OFS_PARM1);
 
 	old = host_client;
-	host_client = &svs.clients[entnum-1];
-	Host_ClientCommands ("%s", str);
+	if ((host_client = svs.clients + entnum-1) && host_client->netconnection)
+		Host_ClientCommands ("%s", str);
 	host_client = old;
 }
 
@@ -955,17 +980,14 @@ void PF_stuffcmd (void)
 =================
 PF_localcmd
 
-Sends text over to the client's execution buffer
+Sends text to server console
 
 localcmd (string)
 =================
 */
 void PF_localcmd (void)
 {
-	char	*str;
-
-	str = G_STRING(OFS_PARM0);
-	Cbuf_AddText (str);
+	Cbuf_AddText(G_STRING(OFS_PARM0));
 }
 
 /*
@@ -977,11 +999,7 @@ float cvar (string)
 */
 void PF_cvar (void)
 {
-	char	*str;
-
-	str = G_STRING(OFS_PARM0);
-
-	G_FLOAT(OFS_RETURN) = Cvar_VariableValue (str);
+	G_FLOAT(OFS_RETURN) = Cvar_VariableValue(G_STRING(OFS_PARM0));
 }
 
 /*
@@ -993,12 +1011,7 @@ float cvar (string)
 */
 void PF_cvar_set (void)
 {
-	char	*var, *val;
-
-	var = G_STRING(OFS_PARM0);
-	val = G_STRING(OFS_PARM1);
-
-	Cvar_Set (var, val);
+	Cvar_Set(G_STRING(OFS_PARM0), G_STRING(OFS_PARM1));
 }
 
 /*
@@ -1029,7 +1042,7 @@ void PF_findradius (void)
 	for (i=1 ; i<sv.num_edicts ; i++, ent = NEXT_EDICT(ent))
 	{
 		pr_xfunction->builtinsprofile++;
-		if (ent->free)
+		if (ent->e->free)
 			continue;
 		if (ent->v->solid == SOLID_NOT)
 			continue;
@@ -1057,21 +1070,12 @@ PF_dprint
 */
 void PF_dprint (void)
 {
-	Con_DPrintf ("%s",PF_VarString(0));
-}
-
-// LordHavoc: added this to semi-fix the problem of using many ftos calls in a print
-#define STRINGTEMP_BUFFERS 16
-#define STRINGTEMP_LENGTH 128
-static char pr_string_temp[STRINGTEMP_BUFFERS][STRINGTEMP_LENGTH];
-static int pr_string_tempindex = 0;
-
-static char *PR_GetTempString(void)
-{
-	char *s;
-	s = pr_string_temp[pr_string_tempindex];
-	pr_string_tempindex = (pr_string_tempindex + 1) % STRINGTEMP_BUFFERS;
-	return s;
+	char string[STRINGTEMP_LENGTH];
+	if (developer.integer)
+	{
+		PF_VarString(0, string, sizeof(string));
+		Con_Printf("%s",string);
+	}
 }
 
 void PF_ftos (void)
@@ -1081,8 +1085,10 @@ void PF_ftos (void)
 	v = G_FLOAT(OFS_PARM0);
 
 	s = PR_GetTempString();
-	// LordHavoc: ftos improvement
-	sprintf (s, "%g", v);
+	if ((float)((int)v) == v)
+		sprintf(s, "%i", (int)v);
+	else
+		sprintf(s, "%f", v);
 	G_INT(OFS_RETURN) = PR_SetString(s);
 }
 
@@ -1124,9 +1130,12 @@ void PF_Remove (void)
 
 	ed = G_EDICT(OFS_PARM0);
 	if (ed == sv.edicts)
-		Host_Error("remove: tried to remove world\n");
+		PF_WARNING("remove: tried to remove world\n");
 	if (NUM_FOR_EDICT(ed) <= svs.maxclients)
-		Host_Error("remove: tried to remove a client\n");
+		PF_WARNING("remove: tried to remove a client\n");
+	// LordHavoc: not an error because id1 progs did this in some cases (killtarget removes entities, even if they are already removed in some cases...)
+	if (ed->e->free && developer.integer)
+		PF_WARNING("remove: tried to remove an entity that was already removed\n");
 	ED_Free (ed);
 }
 
@@ -1152,7 +1161,7 @@ void PF_Find (void)
 	{
 		pr_xfunction->builtinsprofile++;
 		ed = EDICT_NUM(e);
-		if (ed->free)
+		if (ed->e->free)
 			continue;
 		t = E_STRING(ed,f);
 		if (!t)
@@ -1183,7 +1192,7 @@ void PF_FindFloat (void)
 	{
 		pr_xfunction->builtinsprofile++;
 		ed = EDICT_NUM(e);
-		if (ed->free)
+		if (ed->e->free)
 			continue;
 		if (E_FLOAT(ed,f) == s)
 		{
@@ -1218,7 +1227,7 @@ void PF_findchain (void)
 	for (i = 1;i < sv.num_edicts;i++, ent = NEXT_EDICT(ent))
 	{
 		pr_xfunction->builtinsprofile++;
-		if (ent->free)
+		if (ent->e->free)
 			continue;
 		t = E_STRING(ent,f);
 		if (!t)
@@ -1251,7 +1260,7 @@ void PF_findchainfloat (void)
 	for (i = 1;i < sv.num_edicts;i++, ent = NEXT_EDICT(ent))
 	{
 		pr_xfunction->builtinsprofile++;
-		if (ent->free)
+		if (ent->e->free)
 			continue;
 		if (E_FLOAT(ent,f) != s)
 			continue;
@@ -1266,7 +1275,7 @@ void PF_findchainfloat (void)
 void PR_CheckEmptyString (char *s)
 {
 	if (s[0] <= ' ')
-		Host_Error ("Bad string");
+		PF_ERROR("Bad string");
 }
 
 void PF_precache_file (void)
@@ -1280,7 +1289,7 @@ void PF_precache_sound (void)
 	int		i;
 
 	if (sv.state != ss_loading)
-		Host_Error ("PF_Precache_*: Precache can only be done in spawn functions");
+		PF_ERROR("PF_Precache_*: Precache can only be done in spawn functions");
 
 	s = G_STRING(OFS_PARM0);
 	G_INT(OFS_RETURN) = G_INT(OFS_PARM0);
@@ -1296,7 +1305,7 @@ void PF_precache_sound (void)
 		if (!strcmp(sv.sound_precache[i], s))
 			return;
 	}
-	Host_Error ("PF_precache_sound: overflow");
+	PF_ERROR("PF_precache_sound: overflow");
 }
 
 void PF_precache_model (void)
@@ -1305,10 +1314,10 @@ void PF_precache_model (void)
 	int		i;
 
 	if (sv.state != ss_loading)
-		Host_Error ("PF_Precache_*: Precache can only be done in spawn functions");
+		PF_ERROR("PF_Precache_*: Precache can only be done in spawn functions");
 
 	s = G_STRING(OFS_PARM0);
-	if (sv.worldmodel->ishlbsp && ((!s) || (!s[0])))
+	if (sv.worldmodel->brush.ishlbsp && ((!s) || (!s[0])))
 		return;
 	G_INT(OFS_RETURN) = G_INT(OFS_PARM0);
 	PR_CheckEmptyString (s);
@@ -1324,7 +1333,7 @@ void PF_precache_model (void)
 		if (!strcmp(sv.model_precache[i], s))
 			return;
 	}
-	Host_Error ("PF_precache_model: overflow");
+	PF_ERROR("PF_precache_model: overflow");
 }
 
 
@@ -1363,15 +1372,19 @@ void PF_walkmove (void)
 	mfunction_t	*oldf;
 	int 	oldself;
 
+	// assume failure if it returns early
+	G_FLOAT(OFS_RETURN) = 0;
+	
 	ent = PROG_TO_EDICT(pr_global_struct->self);
+	if (ent == sv.edicts)
+		PF_WARNING("walkmove: can not modify world entity\n");
+	if (ent->e->free)
+		PF_WARNING("walkmove: can not modify free entity\n");
 	yaw = G_FLOAT(OFS_PARM0);
 	dist = G_FLOAT(OFS_PARM1);
 
 	if ( !( (int)ent->v->flags & (FL_ONGROUND|FL_FLY|FL_SWIM) ) )
-	{
-		G_FLOAT(OFS_RETURN) = 0;
 		return;
-	}
 
 	yaw = yaw*M_PI*2 / 360;
 
@@ -1404,16 +1417,21 @@ void PF_droptofloor (void)
 	vec3_t		end;
 	trace_t		trace;
 
+	// assume failure if it returns early
+	G_FLOAT(OFS_RETURN) = 0;
+
 	ent = PROG_TO_EDICT(pr_global_struct->self);
+	if (ent == sv.edicts)
+		PF_WARNING("droptofloor: can not modify world entity\n");
+	if (ent->e->free)
+		PF_WARNING("droptofloor: can not modify free entity\n");
 
 	VectorCopy (ent->v->origin, end);
 	end[2] -= 256;
 
 	trace = SV_Move (ent->v->origin, ent->v->mins, ent->v->maxs, end, MOVE_NORMAL, ent);
 
-	if (trace.fraction == 1)
-		G_FLOAT(OFS_RETURN) = 0;
-	else
+	if (trace.fraction != 1)
 	{
 		VectorCopy (trace.endpos, ent->v->origin);
 		SV_LinkEdict (ent, false);
@@ -1421,7 +1439,7 @@ void PF_droptofloor (void)
 		ent->v->groundentity = EDICT_TO_PROG(trace.ent);
 		G_FLOAT(OFS_RETURN) = 1;
 		// if support is destroyed, keep suspended (gross hack for floating items in various maps)
-		ent->suspendedinairflag = true;
+		ent->e->suspendedinairflag = true;
 	}
 }
 
@@ -1449,13 +1467,15 @@ void PF_lightstyle (void)
 	if (sv.state != ss_active)
 		return;
 
-	for (j=0, client = svs.clients ; j<svs.maxclients ; j++, client++)
-		if (client->active || client->spawned)
+	for (j = 0, client = svs.clients;j < svs.maxclients;j++, client++)
+	{
+		if (client->netconnection)
 		{
 			MSG_WriteChar (&client->message, svc_lightstyle);
 			MSG_WriteChar (&client->message,style);
 			MSG_WriteString (&client->message, val);
 		}
+	}
 }
 
 void PF_rint (void)
@@ -1494,7 +1514,7 @@ PF_pointcontents
 */
 void PF_pointcontents (void)
 {
-	G_FLOAT(OFS_RETURN) = Mod_PointContents(G_VECTOR(OFS_PARM0), sv.worldmodel);
+	G_FLOAT(OFS_RETURN) = SV_PointQ1Contents(G_VECTOR(OFS_PARM0));
 }
 
 /*
@@ -1520,7 +1540,7 @@ void PF_nextent (void)
 			return;
 		}
 		ent = EDICT_NUM(i);
-		if (!ent->free)
+		if (!ent->e->free)
 		{
 			RETURN_EDICT(ent);
 			return;
@@ -1545,7 +1565,14 @@ void PF_aim (void)
 	float	dist, bestdist;
 	float	speed;
 
+	// assume failure if it returns early
+	VectorClear(G_VECTOR(OFS_RETURN));
+
 	ent = G_EDICT(OFS_PARM0);
+	if (ent == sv.edicts)
+		PF_WARNING("aim: can not use world entity\n");
+	if (ent->e->free)
+		PF_WARNING("aim: can not use free entity\n");
 	speed = G_FLOAT(OFS_PARM1);
 
 	VectorCopy (ent->v->origin, start);
@@ -1622,6 +1649,10 @@ void PF_changeyaw (void)
 	float		ideal, current, move, speed;
 
 	ent = PROG_TO_EDICT(pr_global_struct->self);
+	if (ent == sv.edicts)
+		PF_WARNING("changeyaw: can not modify world entity\n");
+	if (ent->e->free)
+		PF_WARNING("changeyaw: can not modify free entity\n");
 	current = ANGLEMOD(ent->v->angles[1]);
 	ideal = ent->v->ideal_yaw;
 	speed = ent->v->yaw_speed;
@@ -1665,19 +1696,23 @@ void PF_changepitch (void)
 	eval_t		*val;
 
 	ent = G_EDICT(OFS_PARM0);
+	if (ent == sv.edicts)
+		PF_WARNING("changepitch: can not modify world entity\n");
+	if (ent->e->free)
+		PF_WARNING("changepitch: can not modify free entity\n");
 	current = ANGLEMOD( ent->v->angles[0] );
 	if ((val = GETEDICTFIELDVALUE(ent, eval_idealpitch)))
 		ideal = val->_float;
 	else
 	{
-		Host_Error ("PF_changepitch: .float idealpitch and .float pitch_speed must be defined to use changepitch");
+		PF_WARNING("PF_changepitch: .float idealpitch and .float pitch_speed must be defined to use changepitch\n");
 		return;
 	}
 	if ((val = GETEDICTFIELDVALUE(ent, eval_pitch_speed)))
 		speed = val->_float;
 	else
 	{
-		Host_Error ("PF_changepitch: .float idealpitch and .float pitch_speed must be defined to use changepitch");
+		PF_WARNING("PF_changepitch: .float idealpitch and .float pitch_speed must be defined to use changepitch\n");
 		return;
 	}
 
@@ -1736,8 +1771,8 @@ sizebuf_t *WriteDest (void)
 	case MSG_ONE:
 		ent = PROG_TO_EDICT(pr_global_struct->msg_entity);
 		entnum = NUM_FOR_EDICT(ent);
-		if (entnum < 1 || entnum > svs.maxclients)
-			Host_Error ("WriteDest: not a client");
+		if (entnum < 1 || entnum > svs.maxclients || !svs.clients[entnum-1].active)
+			Host_Error("WriteDest: tried to write to non-client\n");
 		return &svs.clients[entnum-1].message;
 
 	case MSG_ALL:
@@ -1747,7 +1782,7 @@ sizebuf_t *WriteDest (void)
 		return &sv.signon;
 
 	default:
-		Host_Error ("WriteDest: bad destination");
+		Host_Error("WriteDest: bad destination");
 		break;
 	}
 
@@ -1803,6 +1838,10 @@ void PF_makestatic (void)
 	int i, large;
 
 	ent = G_EDICT(OFS_PARM0);
+	if (ent == sv.edicts)
+		PF_WARNING("makestatic: can not modify world entity\n");
+	if (ent->e->free)
+		PF_WARNING("makestatic: can not modify free entity\n");
 
 	large = false;
 	if (ent->v->modelindex >= 256 || ent->v->frame >= 256)
@@ -1848,12 +1887,14 @@ void PF_setspawnparms (void)
 
 	ent = G_EDICT(OFS_PARM0);
 	i = NUM_FOR_EDICT(ent);
-	if (i < 1 || i > svs.maxclients)
-		Host_Error ("Entity is not a client");
+	if (i < 1 || i > svs.maxclients || !svs.clients[i-1].active)
+	{
+		Con_Printf("tried to setspawnparms on a non-client\n");
+		return;
+	}
 
 	// copy spawn parms out of the client_t
-	client = svs.clients + (i-1);
-
+	client = svs.clients + i-1;
 	for (i=0 ; i< NUM_SPAWN_PARMS ; i++)
 		(&pr_global_struct->parm1)[i] = client->spawn_parms[i];
 }
@@ -1913,7 +1954,6 @@ void PF_randomvec (void)
 	VectorCopy (temp, G_VECTOR(OFS_RETURN));
 }
 
-void SV_LightPoint (vec3_t color, vec3_t p);
 /*
 =================
 PF_GetLight
@@ -1928,11 +1968,15 @@ getlight(vector)
 */
 void PF_GetLight (void)
 {
-	vec3_t		color;
-	vec_t*		p;
+	vec3_t ambientcolor, diffusecolor, diffusenormal;
+	vec_t *p;
 	p = G_VECTOR(OFS_PARM0);
-	SV_LightPoint (color, p);
-	VectorCopy (color, G_VECTOR(OFS_RETURN));
+	VectorClear(ambientcolor);
+	VectorClear(diffusecolor);
+	VectorClear(diffusenormal);
+	if (sv.worldmodel && sv.worldmodel->brush.LightPoint)
+		sv.worldmodel->brush.LightPoint(sv.worldmodel, p, ambientcolor, diffusecolor, diffusenormal);
+	VectorMA(ambientcolor, 0.5, diffusecolor, G_VECTOR(OFS_RETURN));
 }
 
 #define MAX_QC_CVARS 128
@@ -1958,7 +2002,7 @@ void PF_registercvar (void)
 	}
 
 	if (currentqc_cvar >= MAX_QC_CVARS)
-		Host_Error ("PF_registercvar: ran out of cvar slots (%i)\n", MAX_QC_CVARS);
+		PF_ERROR("PF_registercvar: ran out of cvar slots\n");
 
 // copy the name and value
 	variable = &qc_cvar[currentqc_cvar++];
@@ -1996,7 +2040,10 @@ void PF_min (void)
 		G_FLOAT(OFS_RETURN) = f;
 	}
 	else
-		Host_Error("min: must supply at least 2 floats\n");
+	{
+		G_FLOAT(OFS_RETURN) = 0;
+		PF_WARNING("min: must supply at least 2 floats\n");
+	}
 }
 
 /*
@@ -2023,7 +2070,10 @@ void PF_max (void)
 		G_FLOAT(OFS_RETURN) = f;
 	}
 	else
-		Host_Error("max: must supply at least 2 floats\n");
+	{
+		G_FLOAT(OFS_RETURN) = 0;
+		PF_WARNING("max: must supply at least 2 floats\n");
+	}
 }
 
 /*
@@ -2067,7 +2117,15 @@ void PF_copyentity (void)
 {
 	edict_t *in, *out;
 	in = G_EDICT(OFS_PARM0);
+	if (in == sv.edicts)
+		PF_WARNING("copyentity: can not read world entity\n");
+	if (in->e->free)
+		PF_WARNING("copyentity: can not read free entity\n");
 	out = G_EDICT(OFS_PARM1);
+	if (out == sv.edicts)
+		PF_WARNING("copyentity: can not modify world entity\n");
+	if (out->e->free)
+		PF_WARNING("copyentity: can not modify free entity\n");
 	memcpy(out->v, in->v, progs->entityfields * 4);
 }
 
@@ -2082,20 +2140,24 @@ setcolor(clientent, value)
 */
 void PF_setcolor (void)
 {
-	client_t	*client;
-	int			entnum, i;
+	client_t *client;
+	int entnum, i;
+	eval_t *val;
 
 	entnum = G_EDICTNUM(OFS_PARM0);
 	i = G_FLOAT(OFS_PARM1);
 
-	if (entnum < 1 || entnum > svs.maxclients)
+	if (entnum < 1 || entnum > svs.maxclients || !svs.clients[entnum-1].active)
 	{
 		Con_Printf ("tried to setcolor a non-client\n");
 		return;
 	}
 
-	client = &svs.clients[entnum-1];
+	client = svs.clients + entnum-1;
+	if ((val = GETEDICTFIELDVALUE(client->edict, eval_clientcolors)))
+		val->_float = i;
 	client->colors = i;
+	client->old_colors = i;
 	client->edict->v->team = (i & 15) + 1;
 
 	MSG_WriteByte (&sv.reliable_datagram, svc_updatecolors);
@@ -2115,7 +2177,7 @@ void PF_effect (void)
 	char *s;
 	s = G_STRING(OFS_PARM1);
 	if (!s || !s[0])
-		Host_Error("effect: no model specified\n");
+		PF_WARNING("effect: no model specified\n");
 
 	SV_StartEffect(G_VECTOR(OFS_PARM0), SV_ModelIndex(s), G_FLOAT(OFS_PARM2), G_FLOAT(OFS_PARM3), G_FLOAT(OFS_PARM4));
 }
@@ -2540,17 +2602,15 @@ static msurface_t *getsurface(edict_t *ed, int surfnum)
 {
 	int modelindex;
 	model_t *model;
-	if (!ed || ed->free)
+	if (!ed || ed->e->free)
 		return NULL;
 	modelindex = ed->v->modelindex;
 	if (modelindex < 1 || modelindex >= MAX_MODELS)
 		return NULL;
 	model = sv.models[modelindex];
-	if (model->type != mod_brush)
+	if (surfnum < 0 || surfnum >= model->brushq1.nummodelsurfaces)
 		return NULL;
-	if (surfnum < 0 || surfnum >= model->nummodelsurfaces)
-		return NULL;
-	return model->surfaces + surfnum + model->firstmodelsurface;
+	return model->brushq1.surfaces + surfnum + model->brushq1.firstmodelsurface;
 }
 
 
@@ -2575,7 +2635,7 @@ void PF_getsurfacepoint(void)
 	int pointnum;
 	VectorClear(G_VECTOR(OFS_RETURN));
 	ed = G_EDICT(OFS_PARM0);
-	if (!ed || ed->free)
+	if (!ed || ed->e->free)
 		return;
 	if (!(surf = getsurface(ed, G_FLOAT(OFS_PARM1))))
 		return;
@@ -2621,22 +2681,22 @@ void PF_getsurfacenearpoint(void)
 	ed = G_EDICT(OFS_PARM0);
 	point = G_VECTOR(OFS_PARM1);
 
-	if (!ed || ed->free)
+	if (!ed || ed->e->free)
 		return;
 	modelindex = ed->v->modelindex;
 	if (modelindex < 1 || modelindex >= MAX_MODELS)
 		return;
 	model = sv.models[modelindex];
-	if (model->type != mod_brush)
+	if (!model->brushq1.numsurfaces)
 		return;
 
 	// FIXME: implement rotation/scaling
 	VectorSubtract(point, ed->v->origin, p);
 	best = -1;
 	bestdist = 1000000000;
-	for (surfnum = 0;surfnum < model->nummodelsurfaces;surfnum++)
+	for (surfnum = 0;surfnum < model->brushq1.nummodelsurfaces;surfnum++)
 	{
-		surf = model->surfaces + surfnum + model->firstmodelsurface;
+		surf = model->brushq1.surfaces + surfnum + model->brushq1.firstmodelsurface;
 		dist = PlaneDiff(p, surf->plane);
 		dist = dist * dist;
 		if (dist < bestdist)
@@ -2661,7 +2721,7 @@ void PF_getsurfaceclippedpoint(void)
 	vec3_t p, out;
 	VectorClear(G_VECTOR(OFS_RETURN));
 	ed = G_EDICT(OFS_PARM0);
-	if (!ed || ed->free)
+	if (!ed || ed->e->free)
 		return;
 	if (!(surf = getsurface(ed, G_FLOAT(OFS_PARM1))))
 		return;
@@ -2695,8 +2755,9 @@ void PR_Files_CloseAll(void)
 //float(string s) stof = #81; // get numerical value from a string
 void PF_stof(void)
 {
-	char *s = PF_VarString(0);
-	G_FLOAT(OFS_RETURN) = atof(s);
+	char string[STRINGTEMP_LENGTH];
+	PF_VarString(0, string, sizeof(string));
+	G_FLOAT(OFS_RETURN) = atof(string);
 }
 
 //float(string filename, float mode) fopen = #110; // opens a file inside quake/gamedir/data/ (mode is FILE_READ, FILE_APPEND, or FILE_WRITE), returns fhandle >= 0 if successful, or fhandle < 0 if unable to open file for any reason
@@ -2770,7 +2831,7 @@ void PF_fclose(void)
 void PF_fgets(void)
 {
 	int c, end;
-	static char string[MAX_VARSTRING];
+	static char string[STRINGTEMP_LENGTH];
 	int filenum = G_FLOAT(OFS_PARM0);
 	if (filenum < 0 || filenum >= MAX_PRFILES)
 	{
@@ -2788,7 +2849,7 @@ void PF_fgets(void)
 		c = FS_Getc(pr_files[filenum]);
 		if (c == '\r' || c == '\n' || c < 0)
 			break;
-		if (end < MAX_VARSTRING - 1)
+		if (end < STRINGTEMP_LENGTH - 1)
 			string[end++] = c;
 	}
 	string[end] = 0;
@@ -2807,7 +2868,7 @@ void PF_fgets(void)
 void PF_fputs(void)
 {
 	int stringlength;
-	char *s = PF_VarString(1);
+	char string[STRINGTEMP_LENGTH];
 	int filenum = G_FLOAT(OFS_PARM0);
 	if (filenum < 0 || filenum >= MAX_PRFILES)
 	{
@@ -2819,10 +2880,11 @@ void PF_fputs(void)
 		Con_Printf("PF_fputs: no such file handle %i (or file has been closed)\n", filenum);
 		return;
 	}
-	if ((stringlength = strlen(s)))
-		FS_Write(pr_files[filenum], s, stringlength);
+	PF_VarString(1, string, sizeof(string));
+	if ((stringlength = strlen(string)))
+		FS_Write(pr_files[filenum], string, stringlength);
 	if (developer.integer)
-		Con_Printf("fputs: %s\n", s);
+		Con_Printf("fputs: %s\n", string);
 }
 
 //float(string s) strlen = #114; // returns how many characters are in a string
@@ -2839,43 +2901,34 @@ void PF_strlen(void)
 //string(string s1, string s2) strcat = #115; // concatenates two strings (for example "abc", "def" would return "abcdef") and returns as a tempstring
 void PF_strcat(void)
 {
-	char *s = PF_VarString(0);
+	char *s = PR_GetTempString();
+	PF_VarString(0, s, STRINGTEMP_LENGTH);
 	G_INT(OFS_RETURN) = PR_SetString(s);
 }
 
 //string(string s, float start, float length) substring = #116; // returns a section of a string as a tempstring
 void PF_substring(void)
 {
-	int end, start, length, slen;
-	char *s;
-	char string[MAX_VARSTRING];
+	int i, start, length;
+	char *s, *string = PR_GetTempString();
 	s = G_STRING(OFS_PARM0);
 	start = G_FLOAT(OFS_PARM1);
 	length = G_FLOAT(OFS_PARM2);
-	if (s)
-		slen = strlen(s);
-	else
-		slen = 0;
-	if (start < 0)
-		start = 0;
-	if (length > slen - start)
-		length = slen - start;
-	if (length > MAX_VARSTRING - 1)
-		length = MAX_VARSTRING - 1;
-	end = 0;
-	if (length > 0)
-	{
-		memcpy(string, s + start, length);
-		end = length;
-	}
-	string[end] = 0;
+	if (!s)
+		s = "";
+	for (i = 0;i < start && *s;i++, s++);
+	for (i = 0;i < STRINGTEMP_LENGTH - 1 && *s && i < length;i++, s++)
+		string[i] = *s;
+	string[i] = 0;
 	G_INT(OFS_RETURN) = PR_SetString(string);
 }
 
 //vector(string s) stov = #117; // returns vector value from a string
 void PF_stov(void)
 {
-	Math_atov(PF_VarString(0), G_VECTOR(OFS_RETURN));
+	char string[STRINGTEMP_LENGTH];
+	PF_VarString(0, string, sizeof(string));
+	Math_atov(string, G_VECTOR(OFS_RETURN));
 }
 
 //string(string s) strzone = #118; // makes a copy of a string into the string zone and returns it, this is often used to keep around a tempstring for longer periods of time (tempstrings are replaced often)
@@ -2894,6 +2947,281 @@ void PF_strunzone(void)
 	Mem_Free(G_STRING(OFS_PARM0));
 }
 
+//void(entity e, string s) clientcommand = #440; // executes a command string as if it came from the specified client
+//this function originally written by KrimZon, made shorter by LordHavoc
+void PF_clientcommand (void)
+{
+	client_t *temp_client;
+	int i;
+
+	//find client for this entity
+	i = (NUM_FOR_EDICT(G_EDICT(OFS_PARM0)) - 1);
+	if (i < 0 || i >= svs.maxclients || !svs.clients[i].active)
+	{
+		Con_Printf("PF_clientcommand: entity is not a client");
+		return;
+	}
+
+	temp_client = host_client;
+	host_client = svs.clients + i;
+	Cmd_ExecuteString (G_STRING(OFS_PARM1), src_client);
+	host_client = temp_client;
+}
+
+//float(string s) tokenize = #441; // takes apart a string into individal words (access them with argv), returns how many
+//this function originally written by KrimZon, made shorter by LordHavoc
+//20040203: rewritten by LordHavoc (no longer uses allocations)
+int num_tokens = 0;
+char *tokens[256], tokenbuf[4096];
+void PF_tokenize (void)
+{
+	int pos;
+	const char *p;
+	p = G_STRING(OFS_PARM0);
+
+	num_tokens = 0;
+	pos = 0;
+	while(COM_ParseToken(&p, false))
+	{
+		if (num_tokens >= (int)(sizeof(tokens)/sizeof(tokens[0])))
+			break;
+		if (pos + strlen(com_token) + 1 > sizeof(tokenbuf))
+			break;
+		tokens[num_tokens++] = tokenbuf + pos;
+		strcpy(tokenbuf + pos, com_token);
+		pos += strlen(com_token) + 1;
+	}
+
+	G_FLOAT(OFS_RETURN) = num_tokens;
+}
+
+//string(float n) argv = #442; // returns a word from the tokenized string (returns nothing for an invalid index)
+//this function originally written by KrimZon, made shorter by LordHavoc
+void PF_argv (void)
+{
+	int token_num = G_FLOAT(OFS_PARM0);
+	if (token_num >= 0 && token_num < num_tokens)
+		G_INT(OFS_RETURN) = PR_SetString(tokens[token_num]);
+	else
+		G_INT(OFS_RETURN) = PR_SetString("");
+}
+
+//void(entity e, entity tagentity, string tagname) setattachment = #443; // attachs e to a tag on tagentity (note: use "" to attach to entity origin/angles instead of a tag)
+void PF_setattachment (void)
+{
+	edict_t *e = G_EDICT(OFS_PARM0);
+	edict_t *tagentity = G_EDICT(OFS_PARM1);
+	char *tagname = G_STRING(OFS_PARM2);
+	eval_t *v;
+	int i, modelindex;
+	model_t *model;
+
+	if (e == sv.edicts)
+		PF_WARNING("setattachment: can not modify world entity\n");
+	if (e->e->free)
+		PF_WARNING("setattachment: can not modify free entity\n");
+
+	if (tagentity == NULL)
+		tagentity = sv.edicts;
+
+	v = GETEDICTFIELDVALUE(e, eval_tag_entity);
+	if (v)
+		v->edict = EDICT_TO_PROG(tagentity);
+
+	v = GETEDICTFIELDVALUE(e, eval_tag_index);
+	if (v)
+		v->_float = 0;
+	if (tagentity != NULL && tagentity != sv.edicts && tagname && tagname[0])
+	{
+		modelindex = (int)tagentity->v->modelindex;
+		if (modelindex >= 0 && modelindex < MAX_MODELS && (model = sv.models[modelindex]))
+		{
+			if (model->data_overridetagnamesforskin && (unsigned int)tagentity->v->skin < (unsigned int)model->numskins && model->data_overridetagnamesforskin[(unsigned int)tagentity->v->skin].num_overridetagnames)
+				for (i = 0;i < model->data_overridetagnamesforskin[(unsigned int)tagentity->v->skin].num_overridetagnames;i++)
+					if (!strcmp(tagname, model->data_overridetagnamesforskin[(unsigned int)tagentity->v->skin].data_overridetagnames[i].name))
+						v->_float = i + 1;
+			if (v->_float == 0 && model->alias.aliasnum_tags)
+				for (i = 0;i < model->alias.aliasnum_tags;i++)
+					if (!strcmp(tagname, model->alias.aliasdata_tags[i].name))
+						v->_float = i + 1;
+			if (v->_float == 0)
+				Con_DPrintf("setattachment(edict %i, edict %i, string \"%s\"): tried to find tag named \"%s\" on entity %i (model \"%s\") but could not find it\n", NUM_FOR_EDICT(e), NUM_FOR_EDICT(tagentity), tagname, tagname, NUM_FOR_EDICT(tagentity), model->name);
+		}
+		else
+			Con_DPrintf("setattachment(edict %i, edict %i, string \"%s\"): tried to find tag named \"%s\" on entity %i but it has no model\n", NUM_FOR_EDICT(e), NUM_FOR_EDICT(tagentity), tagname, tagname, NUM_FOR_EDICT(tagentity));
+	}
+}
+
+
+/////////////////////////////////////////
+// DP_QC_FS_SEARCH extension
+
+// qc fs search handling
+#define MAX_SEARCHES 128
+
+fssearch_t *pr_fssearchlist[MAX_SEARCHES];
+
+void PR_Search_Init(void)
+{
+	memset(pr_fssearchlist,0,sizeof(pr_fssearchlist));
+}
+
+void PR_Search_Reset(void)
+{
+	int i;
+	// reset the fssearch list
+	for(i = 0; i < MAX_SEARCHES; i++)
+		if(pr_fssearchlist[i])
+			FS_FreeSearch(pr_fssearchlist[i]);
+	memset(pr_fssearchlist,0,sizeof(pr_fssearchlist));
+}
+
+/*
+=========
+PF_search_begin
+
+float search_begin(string pattern, float caseinsensitive, float quiet)
+=========
+*/
+void PF_search_begin(void)
+{
+	int handle;
+	char *pattern;
+	int caseinsens, quiet;
+
+	pattern = G_STRING(OFS_PARM0);
+
+	PR_CheckEmptyString(pattern);
+
+	caseinsens = G_FLOAT(OFS_PARM1);
+	quiet = G_FLOAT(OFS_PARM2);
+	
+	for(handle = 0; handle < MAX_SEARCHES; handle++)
+		if(!pr_fssearchlist[handle])
+			break;
+
+	if(handle >= MAX_SEARCHES)
+	{
+		Con_Printf("PR_search_begin: ran out of search handles (%i)\n", MAX_SEARCHES);
+		G_FLOAT(OFS_RETURN) = -2;
+		return;
+	}
+
+	if(!(pr_fssearchlist[handle] = FS_Search(pattern,caseinsens, quiet)))
+		G_FLOAT(OFS_RETURN) = -1;
+	else
+		G_FLOAT(OFS_RETURN) = handle;
+}
+
+/*
+=========
+VM_search_end
+
+void	search_end(float handle)
+=========
+*/
+void PF_search_end(void)
+{
+	int handle;
+
+	handle = G_FLOAT(OFS_PARM0);
+	
+	if(handle < 0 || handle >= MAX_SEARCHES)
+	{
+		Con_Printf("PF_search_end: invalid handle %i\n", handle);
+		return;
+	}
+	if(pr_fssearchlist[handle] == NULL)
+	{
+		Con_Printf("PF_search_end: no such handle %i\n", handle);
+		return;
+	}
+
+	FS_FreeSearch(pr_fssearchlist[handle]);
+	pr_fssearchlist[handle] = NULL;
+}
+
+/*
+=========
+VM_search_getsize
+
+float	search_getsize(float handle)
+=========
+*/
+void PF_search_getsize(void)
+{
+	int handle;
+
+	handle = G_FLOAT(OFS_PARM0);
+
+	if(handle < 0 || handle >= MAX_SEARCHES)
+	{
+		Con_Printf("PF_search_getsize: invalid handle %i\n", handle);
+		return;
+	}
+	if(pr_fssearchlist[handle] == NULL)
+	{
+		Con_Printf("PF_search_getsize: no such handle %i\n", handle);
+		return;
+	}
+	
+	G_FLOAT(OFS_RETURN) = pr_fssearchlist[handle]->numfilenames;
+}
+
+/*
+=========
+VM_search_getfilename
+
+string	search_getfilename(float handle, float num)
+=========
+*/
+void PF_search_getfilename(void)
+{
+	int handle, filenum;
+	char *tmp;
+
+	handle = G_FLOAT(OFS_PARM0);
+	filenum = G_FLOAT(OFS_PARM1);
+
+	if(handle < 0 || handle >= MAX_SEARCHES)
+	{
+		Con_Printf("PF_search_getfilename: invalid handle %i\n", handle);
+		return;
+	}
+	if(pr_fssearchlist[handle] == NULL)
+	{
+		Con_Printf("PF_search_getfilename: no such handle %i\n", handle);
+		return;
+	}
+	if(filenum < 0 || filenum >= pr_fssearchlist[handle]->numfilenames)
+	{
+		Con_Printf("PF_search_getfilename: invalid filenum %i\n", filenum);
+		return;
+	}
+	
+	tmp = PR_GetTempString();
+	strcpy(tmp, pr_fssearchlist[handle]->filenames[filenum]);
+
+	G_INT(OFS_RETURN) = PR_SetString(tmp);
+}
+
+void PF_cvar_string (void)
+{
+	char *str;
+	cvar_t *var;
+	char *tmp;
+
+	str = G_STRING(OFS_PARM0);
+	var = Cvar_FindVar (str);
+
+	tmp = PR_GetTempString();
+	strcpy(tmp, var->string);
+
+	G_INT(OFS_RETURN) = PR_SetString(tmp);
+}
+
+
+
 builtin_t pr_builtin[] =
 {
 NULL,						// #0
@@ -3060,7 +3388,17 @@ PF_getsurfacenormal,		// #436 vector(entity e, float s) getsurfacenormal (DP_QC_
 PF_getsurfacetexture,		// #437 string(entity e, float s) getsurfacetexture (DP_QC_GETSURFACE)
 PF_getsurfacenearpoint,		// #438 float(entity e, vector p) getsurfacenearpoint (DP_QC_GETSURFACE)
 PF_getsurfaceclippedpoint,	// #439 vector(entity e, float s, vector p) getsurfaceclippedpoint (DP_QC_GETSURFACE)
-a a a a a a					// #440-499 (LordHavoc)
+PF_clientcommand,			// #440 void(entity e, string s) clientcommand (KRIMZON_SV_PARSECLIENTCOMMAND)
+PF_tokenize,				// #441 float(string s) tokenize (KRIMZON_SV_PARSECLIENTCOMMAND)
+PF_argv,					// #442 string(float n) argv (KRIMZON_SV_PARSECLIENTCOMMAND)
+PF_setattachment,			// #443 void(entity e, entity tagentity, string tagname) setattachment (DP_GFX_QUAKE3MODELTAGS)
+PF_search_begin,			// #444
+PF_search_end,				// #445
+PF_search_getsize,			// #446
+PF_search_getfilename,		// #447
+PF_cvar_string,				// #448 string(string s) cvar_string (DP_QC_CVAR_STRING)
+NULL,						// #449
+a a a a a					// #450-499 (LordHavoc)
 };
 
 builtin_t *pr_builtins = pr_builtin;
@@ -3070,11 +3408,13 @@ void PR_Cmd_Init(void)
 {
 	pr_strings_mempool = Mem_AllocPool("pr_stringszone");
 	PR_Files_Init();
+	PR_Search_Init();
 }
 
 void PR_Cmd_Reset(void)
 {
 	Mem_EmptyPool(pr_strings_mempool);
+	PR_Search_Reset();
 	PR_Files_CloseAll();
 }