]> de.git.xonotic.org Git - xonotic/darkplaces.git/blobdiff - pr_cmds.c
Cleaned up alot more memory leaks. (still get 720 leaks just running demo1.dem)
[xonotic/darkplaces.git] / pr_cmds.c
index dcb7cf73c3af4b3ef1132a85d311efa312759308..e7289720460ac58696c2fda7b01e841a41f342f2 100644 (file)
--- a/pr_cmds.c
+++ b/pr_cmds.c
@@ -70,6 +70,8 @@ void PF_VarString(int first, char *out, int outlength)
 }
 
 char *ENGINE_EXTENSIONS =
+"DP_BUTTONCHAT "
+"DP_BUTTONUSE "
 "DP_CL_LOADSKY "
 "DP_CON_SET "
 "DP_CON_SETA "
@@ -133,6 +135,7 @@ char *ENGINE_EXTENSIONS =
 "DP_SND_STEREOWAV "
 "DP_SOLIDCORPSE "
 "DP_SPRITE32 "
+"DP_SV_BOTCLIENT "
 "DP_SV_CLIENTCOLORS "
 "DP_SV_CLIENTNAME "
 "DP_SV_DRAWONLYTOCLIENT "
@@ -164,8 +167,11 @@ char *ENGINE_EXTENSIONS =
 "NEH_CMD_PLAY2 "
 "NEH_RESTOREGAME "
 "NXQ_GFX_LETTERBOX "
+"PRYDON_CLIENTCURSOR "
 "TENEBRAE_GFX_DLIGHTS "
 "TW_SV_STEPCONTROL "
+"NEXUIZ_PLAYERMODEL "
+"NEXUIZ_PLAYERSKIN "
 ;
 
 qboolean checkextension(char *name)
@@ -350,10 +356,10 @@ PF_setmodel
 setmodel(entity, model)
 =================
 */
+static vec3_t quakemins = {-16, -16, -16}, quakemaxs = {16, 16, 16};
 void PF_setmodel (void)
 {
        edict_t *e;
-       char    *m, **check;
        model_t *mod;
        int             i;
 
@@ -362,24 +368,19 @@ void PF_setmodel (void)
                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
-       for (i=0, check = sv.model_precache ; *check ; i++, check++)
-               if (!strcmp(*check, m))
-                       break;
-
-       if (!*check)
-               PF_WARNING(va("setmodel: no precache for model \"%s\"\n", m));
-
-
-       e->v->model = PR_SetString(*check);
+       i = SV_ModelIndex(G_STRING(OFS_PARM1), 1);
+       e->v->model = PR_SetString(sv.model_precache[i]);
        e->v->modelindex = i;
 
-       mod = sv.models[ (int)e->v->modelindex];
+       mod = sv.models[i];
 
        if (mod)
-               SetMinMaxSize (e, mod->normalmins, mod->normalmaxs, true);
+       {
+               if (mod->type != mod_alias || sv_gameplayfix_setmodelrealbox.integer)
+                       SetMinMaxSize (e, mod->normalmins, mod->normalmaxs, true);
+               else
+                       SetMinMaxSize (e, quakemins, quakemaxs, true);
+       }
        else
                SetMinMaxSize (e, vec3_origin, vec3_origin, true);
 }
@@ -424,8 +425,6 @@ void PF_sprint (void)
        }
 
        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);
@@ -456,8 +455,6 @@ void PF_centerprint (void)
        }
 
        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);
@@ -597,11 +594,7 @@ random()
 */
 void PF_random (void)
 {
-       float           num;
-
-       num = (rand ()&0x7fff) / ((float)0x7fff);
-
-       G_FLOAT(OFS_RETURN) = num;
+       G_FLOAT(OFS_RETURN) = lhrandom(0, 1);
 }
 
 /*
@@ -633,7 +626,6 @@ PF_ambientsound
 */
 void PF_ambientsound (void)
 {
-       char            **check;
        char            *samp;
        float           *pos;
        float           vol, attenuation;
@@ -645,15 +637,9 @@ void PF_ambientsound (void)
        attenuation = G_FLOAT(OFS_PARM3);
 
 // check to see if samp was properly precached
-       for (soundnum=0, check = sv.sound_precache ; *check ; check++, soundnum++)
-               if (!strcmp(*check,samp))
-                       break;
-
-       if (!*check)
-       {
-               Con_Printf("no precache: %s\n", samp);
+       soundnum = SV_SoundIndex(samp, 1);
+       if (!soundnum)
                return;
-       }
 
        large = false;
        if (soundnum >= 256)
@@ -985,8 +971,8 @@ void PF_stuffcmd (void)
        str = G_STRING(OFS_PARM1);
 
        old = host_client;
-       if ((host_client = svs.clients + entnum-1) && host_client->netconnection)
-               Host_ClientCommands ("%s", str);
+       host_client = svs.clients + entnum-1;
+       Host_ClientCommands ("%s", str);
        host_client = old;
 }
 
@@ -1363,59 +1349,17 @@ void PF_precache_file (void)
        G_INT(OFS_RETURN) = G_INT(OFS_PARM0);
 }
 
+
 void PF_precache_sound (void)
 {
-       char    *s;
-       int             i;
-       int             limit = (sv.protocol == PROTOCOL_QUAKE ? 256 : MAX_SOUNDS);
-
-       if (sv.state != ss_loading)
-               PF_ERROR("PF_Precache_*: Precache can only be done in spawn functions");
-
-       s = G_STRING(OFS_PARM0);
+       SV_SoundIndex(G_STRING(OFS_PARM0), 2);
        G_INT(OFS_RETURN) = G_INT(OFS_PARM0);
-       PR_CheckEmptyString (s);
-
-       for (i=0 ; i<limit ; i++)
-       {
-               if (!sv.sound_precache[i])
-               {
-                       sv.sound_precache[i] = s;
-                       return;
-               }
-               if (!strcmp(sv.sound_precache[i], s))
-                       return;
-       }
-       PF_ERROR("PF_precache_sound: overflow");
 }
 
 void PF_precache_model (void)
 {
-       char    *s;
-       int             i;
-       int             limit = (sv.protocol == PROTOCOL_QUAKE ? 256 : MAX_MODELS);
-
-       if (sv.state != ss_loading)
-               PF_ERROR("PF_Precache_*: Precache can only be done in spawn functions");
-
-       s = G_STRING(OFS_PARM0);
-       if (sv.worldmodel->brush.ishlbsp && ((!s) || (!s[0])))
-               return;
+       SV_ModelIndex(G_STRING(OFS_PARM0), 2);
        G_INT(OFS_RETURN) = G_INT(OFS_PARM0);
-       PR_CheckEmptyString (s);
-
-       for (i = 0;i < limit;i++)
-       {
-               if (!sv.model_precache[i])
-               {
-                       sv.model_precache[i] = s;
-                       sv.models[i] = Mod_ForName (s, true, false, false);
-                       return;
-               }
-               if (!strcmp(sv.model_precache[i], s))
-                       return;
-       }
-       PF_ERROR("PF_precache_model: overflow");
 }
 
 
@@ -1551,7 +1495,7 @@ void PF_lightstyle (void)
 
        for (j = 0, client = svs.clients;j < svs.maxclients;j++, client++)
        {
-               if (client->netconnection)
+               if (client->active)
                {
                        MSG_WriteChar (&client->message, svc_lightstyle);
                        MSG_WriteChar (&client->message,style);
@@ -2257,8 +2201,8 @@ void PF_effect (void)
        if (!s || !s[0])
                PF_WARNING("effect: no model specified\n");
 
-       i = SV_ModelIndex(s);
-       if (i < 0)
+       i = SV_ModelIndex(s, 1);
+       if (!i)
                PF_WARNING("effect: model not precached\n");
        SV_StartEffect(G_VECTOR(OFS_PARM0), i, G_FLOAT(OFS_PARM2), G_FLOAT(OFS_PARM3), G_FLOAT(OFS_PARM4));
 }
@@ -2845,7 +2789,7 @@ void PF_stof(void)
 //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
 void PF_fopen(void)
 {
-       int filenum, mode, i;
+       int filenum, mode;
        char *modestring, *filename;
        for (filenum = 0;filenum < MAX_PRFILES;filenum++)
                if (pr_files[filenum] == NULL)
@@ -2874,21 +2818,7 @@ void PF_fopen(void)
                return;
        }
        filename = G_STRING(OFS_PARM0);
-       // control characters do not cause issues with any platforms I know of, but they are usually annoying to deal with
-       // ../ is parent directory on many platforms
-       // // is parent directory on Amiga
-       // / at the beginning of a path is root on unix, and parent directory on Amiga
-       // : is root of drive on Amiga (also used as a directory separator on Mac, but / works there too, so that's a bad idea)
-       // \ is a windows-ism (so it's naughty to use it, / works on all platforms)
-       for (i = 0;filename[i];i++)
-       {
-               if (filename[i] < ' ' || (filename[i] == '/' && filename[i+1] == '/') || (filename[i] == '.' && filename[i+1] == '.') || filename[i] == ':' || filename[i] == '\\' || filename[0] == '/')
-               {
-                       Con_Printf("PF_fopen: dangerous/confusing/annoying/non-portable filename \"%s\" not allowed. (contains control characters or // or .. or : or \\ or begins with /)\n", filename);
-                       G_FLOAT(OFS_RETURN) = -4;
-                       return;
-               }
-       }
+       // -4 failure (dangerous/non-portable filename) removed, FS_Open checks
        pr_files[filenum] = FS_Open(va("data/%s", filename), modestring, false);
 
        if (pr_files[filenum] == NULL && modestring == "rb")
@@ -3147,26 +3077,15 @@ void PF_setattachment (void)
 /////////////////////////////////////////
 // DP_MD3_TAGINFO extension coded by VorteX
 
-//float(entity ent, string tagname) gettagindex;
-void PF_gettagindex (void)
+int SV_GetTagIndex (edict_t *e, char *tagname)
 {
-       edict_t *e = G_EDICT(OFS_PARM0);
-       const char *tagname = G_STRING(OFS_PARM1);
-       int modelindex, tagindex, i;
+       int tagindex, i;
        model_t *model;
 
-       if (e == sv.edicts)
-               PF_WARNING("gettagindex: can't affect world entity\n");
-       if (e->e->free)
-               PF_WARNING("gettagindex: can't affect free entity\n");
-
-       modelindex = (int)e->v->modelindex;
-       if (modelindex <= 0 || modelindex > MAX_MODELS)
-       {
-               Con_DPrintf("gettagindex(entity #%i): null or non-precached model\n", NUM_FOR_EDICT(e));
-               return;
-       }
-       model = sv.models[modelindex];
+       i = e->v->modelindex;
+       if (i < 1 || i >= MAX_MODELS)
+               return -1;
+       model = sv.models[i];
 
        tagindex = -1;
        if (model->data_overridetagnamesforskin && (unsigned int)e->v->skin < (unsigned int)model->numskins && model->data_overridetagnamesforskin[(unsigned int)e->v->skin].num_overridetagnames)
@@ -3191,9 +3110,7 @@ void PF_gettagindex (void)
                        }
                }
        }
-       if (tagindex == -1)
-               Con_DPrintf("gettagindex(entity #%i): tag \"%s\" not found\n", NUM_FOR_EDICT(e), tagname);
-       G_FLOAT(OFS_RETURN) = tagindex + 1;
+       return tagindex + 1;
 };
 
 // Warnings/errors code:
@@ -3202,12 +3119,16 @@ void PF_gettagindex (void)
 // 2 - free entity
 // 3 - null or non-precached model
 // 4 - no tags with requested index
+// 5 - runaway loop at attachment chain
+extern cvar_t cl_bob;
+extern cvar_t cl_bobcycle;
+extern cvar_t cl_bobup;
 int SV_GetTagMatrix (matrix4x4_t *out, edict_t *ent, int tagindex)
 {
        eval_t *val;
-       float scale;
-       int modelindex, tagsnum, reqframe;
-       matrix4x4_t entitymatrix, tagmatrix;
+       int modelindex, reqtag, reqframe, attachloop;
+       matrix4x4_t entitymatrix, tagmatrix, attachmatrix;
+       edict_t *attachent;
        model_t *model;
 
        Matrix4x4_CreateIdentity(out); // warnings and errors return identical matrix
@@ -3222,71 +3143,153 @@ int SV_GetTagMatrix (matrix4x4_t *out, edict_t *ent, int tagindex)
                return 3;
 
        model = sv.models[modelindex];
-       tagsnum = model->alias.aliasnum_tags;
+       reqtag = model->alias.aliasnum_tags;
 
-       if (tagindex <= 0 || tagindex > tagsnum)
+       if (tagindex <= 0 || tagindex > reqtag)
        {
-               if (tagsnum && tagindex) // Only appear if model has no tags or not-null tag requested
+               if (reqtag && tagindex) // Only appear if model has no tags or not-null tag requested
                        return 4;
                return 0;
        }
 
        if (ent->v->frame < 0 || ent->v->frame > model->alias.aliasnum_tagframes)
-               reqframe = 0; // if model has wrong frame, engine automatically switches to model first frame
+               reqframe = model->numframes - 1; // if model has wrong frame, engine automatically switches to model last frame
        else
                reqframe = ent->v->frame;
 
-       // just reusing a temp
-       modelindex = (tagindex - 1) + ent->v->frame*tagsnum;
+       // get initial tag matrix
+       if (tagindex)
+       {
+               reqtag = (tagindex - 1) + ent->v->frame*model->alias.aliasnum_tags;
+               Matrix4x4_Copy(&tagmatrix, &model->alias.aliasdata_tags[reqtag].matrix);
+       }
+       else
+               Matrix4x4_CreateIdentity(&tagmatrix);
+
+       if ((val = GETEDICTFIELDVALUE(ent, eval_tag_entity)) && val->edict) 
+       { // DP_GFX_QUAKE3MODELTAGS, scan all chain and stop on unattached entity
+               attachloop = 0;
+               do
+               {
+                       attachent = EDICT_NUM(val->edict); // to this it entity our entity is attached
+                       val = GETEDICTFIELDVALUE(ent, eval_tag_index);
+                       Matrix4x4_CreateIdentity(&attachmatrix);
+                       if (val->_float >= 1 && attachent->v->modelindex >= 1 && attachent->v->modelindex < MAX_MODELS)
+                       {
+                               model = sv.models[(int)attachent->v->modelindex];
+                               if (val->_float < model->alias.aliasnum_tags)
+                               {
+                                       // got tagname on parent entity attachment tag via tag_index (and got it's matrix)
+                                       model = sv.models[(int)attachent->v->modelindex];
+                                       reqtag = (val->_float - 1) + attachent->v->frame*model->alias.aliasnum_tags;
+                                       Matrix4x4_Copy(&attachmatrix, &model->alias.aliasdata_tags[reqtag].matrix);
+                               }
+                       }
 
-       // transform tag by its own entity matrix
-       Matrix4x4_Copy(&tagmatrix, &model->alias.aliasdata_tags[modelindex].matrix);
-       // FIXME: add scale parameter
-       scale = 1;
+                       // apply transformation by child entity matrix
+                       val = GETEDICTFIELDVALUE(ent, eval_scale);
+                       if (val->_float == 0)
+                               val->_float = 1;
+                       Matrix4x4_CreateFromQuakeEntity(&entitymatrix, ent->v->origin[0], ent->v->origin[1], ent->v->origin[2], -ent->v->angles[0], ent->v->angles[1], ent->v->angles[2], val->_float);
+                       Matrix4x4_Concat(out, &entitymatrix, &tagmatrix);
+                       out->m[0][3] = entitymatrix.m[0][3] + val->_float*(entitymatrix.m[0][0]*tagmatrix.m[0][3] + entitymatrix.m[0][1]*tagmatrix.m[1][3] + entitymatrix.m[0][2]*tagmatrix.m[2][3]);
+                       out->m[1][3] = entitymatrix.m[1][3] + val->_float*(entitymatrix.m[1][0]*tagmatrix.m[0][3] + entitymatrix.m[1][1]*tagmatrix.m[1][3] + entitymatrix.m[1][2]*tagmatrix.m[2][3]);
+                       out->m[2][3] = entitymatrix.m[2][3] + val->_float*(entitymatrix.m[2][0]*tagmatrix.m[0][3] + entitymatrix.m[2][1]*tagmatrix.m[1][3] + entitymatrix.m[2][2]*tagmatrix.m[2][3]);           
+                       Matrix4x4_Copy(&tagmatrix, out);
+
+                       // finally transformate by matrix of tag on parent entity
+                       Matrix4x4_Concat(out, &attachmatrix, &tagmatrix);
+                       out->m[0][3] = attachmatrix.m[0][3] + attachmatrix.m[0][0]*tagmatrix.m[0][3] + attachmatrix.m[0][1]*tagmatrix.m[1][3] + attachmatrix.m[0][2]*tagmatrix.m[2][3];
+                       out->m[1][3] = attachmatrix.m[1][3] + attachmatrix.m[1][0]*tagmatrix.m[0][3] + attachmatrix.m[1][1]*tagmatrix.m[1][3] + attachmatrix.m[1][2]*tagmatrix.m[2][3];
+                       out->m[2][3] = attachmatrix.m[2][3] + attachmatrix.m[2][0]*tagmatrix.m[0][3] + attachmatrix.m[2][1]*tagmatrix.m[1][3] + attachmatrix.m[2][2]*tagmatrix.m[2][3];         
+                       Matrix4x4_Copy(&tagmatrix, out);
+
+                       ent = attachent;
+                       attachloop += 1;
+                       if (attachloop > 255) // prevent runaway looping
+                               return 5;
+               }
+               while ((val = GETEDICTFIELDVALUE(ent, eval_tag_entity)) && val->edict);
+       }
+
+       // normal or RENDER_VIEWMODEL entity (or main parent entity on attach chain)
+       val = GETEDICTFIELDVALUE(ent, eval_scale);
+       if (val->_float == 0)
+               val->_float = 1;
        // Alias models have inverse pitch, bmodels can't have tags, so don't check for modeltype...
-       Matrix4x4_CreateFromQuakeEntity(&entitymatrix, ent->v->origin[0], ent->v->origin[1], ent->v->origin[2], -ent->v->angles[0], ent->v->angles[1], ent->v->angles[2], scale);
+       Matrix4x4_CreateFromQuakeEntity(&entitymatrix, ent->v->origin[0], ent->v->origin[1], ent->v->origin[2], -ent->v->angles[0], ent->v->angles[1], ent->v->angles[2], val->_float);
        Matrix4x4_Concat(out, &entitymatrix, &tagmatrix);
-       // True origin for rotation (Matrix4x4_Concat creates wrong), this is done using all rotation matrix
-       out->m[0][3] = entitymatrix.m[0][3] + entitymatrix.m[0][0]*tagmatrix.m[0][3] + entitymatrix.m[0][1]*tagmatrix.m[1][3] + entitymatrix.m[0][2]*tagmatrix.m[2][3];
-       out->m[1][3] = entitymatrix.m[1][3] + entitymatrix.m[1][0]*tagmatrix.m[0][3] + entitymatrix.m[1][1]*tagmatrix.m[1][3] + entitymatrix.m[1][2]*tagmatrix.m[2][3];
-       out->m[2][3] = entitymatrix.m[2][3] + entitymatrix.m[2][0]*tagmatrix.m[0][3] + entitymatrix.m[2][1]*tagmatrix.m[1][3] + entitymatrix.m[2][2]*tagmatrix.m[2][3];         
+       out->m[0][3] = entitymatrix.m[0][3] + val->_float*(entitymatrix.m[0][0]*tagmatrix.m[0][3] + entitymatrix.m[0][1]*tagmatrix.m[1][3] + entitymatrix.m[0][2]*tagmatrix.m[2][3]);
+       out->m[1][3] = entitymatrix.m[1][3] + val->_float*(entitymatrix.m[1][0]*tagmatrix.m[0][3] + entitymatrix.m[1][1]*tagmatrix.m[1][3] + entitymatrix.m[1][2]*tagmatrix.m[2][3]);
+       out->m[2][3] = entitymatrix.m[2][3] + val->_float*(entitymatrix.m[2][0]*tagmatrix.m[0][3] + entitymatrix.m[2][1]*tagmatrix.m[1][3] + entitymatrix.m[2][2]*tagmatrix.m[2][3]);           
 
-       // additional actions for render-view entities
        if ((val = GETEDICTFIELDVALUE(ent, eval_viewmodelforclient)) && val->edict)
-       {// RENDER_VIEWMODEL
+       {// RENDER_VIEWMODEL magic
                Matrix4x4_Copy(&tagmatrix, out);
                ent = EDICT_NUM(val->edict);
-               // FIXME: add bobbing (cl_bob), add scale parameter
-               scale = 1;
-               Matrix4x4_CreateFromQuakeEntity(&entitymatrix, ent->v->origin[0], ent->v->origin[1], ent->v->origin[2] + ent->v->view_ofs[2], ent->v->v_angle[0], ent->v->v_angle[1], ent->v->v_angle[2], scale);
+
+               val = GETEDICTFIELDVALUE(ent, eval_scale);
+               if (val->_float == 0)
+                       val->_float = 1;
+
+               Matrix4x4_CreateFromQuakeEntity(&entitymatrix, ent->v->origin[0], ent->v->origin[1], ent->v->origin[2] + ent->v->view_ofs[2], ent->v->v_angle[0], ent->v->v_angle[1], ent->v->v_angle[2], val->_float);
                Matrix4x4_Concat(out, &entitymatrix, &tagmatrix);
-               out->m[0][3] = entitymatrix.m[0][3] + entitymatrix.m[0][0]*tagmatrix.m[0][3] + entitymatrix.m[0][1]*tagmatrix.m[1][3] + entitymatrix.m[0][2]*tagmatrix.m[2][3];
-               out->m[1][3] = entitymatrix.m[1][3] + entitymatrix.m[1][0]*tagmatrix.m[0][3] + entitymatrix.m[1][1]*tagmatrix.m[1][3] + entitymatrix.m[1][2]*tagmatrix.m[2][3];
-               out->m[2][3] = entitymatrix.m[2][3] + entitymatrix.m[2][0]*tagmatrix.m[0][3] + entitymatrix.m[2][1]*tagmatrix.m[1][3] + entitymatrix.m[2][2]*tagmatrix.m[2][3];         
-               Con_DPrintf("SV_GetTagMatrix: returned origin is %f %f %f\n", out->m[0][3], out->m[1][3], out->m[2][3]);
-               return 0;
-       }
-       // RENDER_VIEWMODEL can't be attached by tag, right?
-       val = GETEDICTFIELDVALUE(ent, eval_tag_entity);
-       if (val->edict)
-       {// DP_GFX_QUAKE3MODELTAGS
-               do
+               out->m[0][3] = entitymatrix.m[0][3] + val->_float*(entitymatrix.m[0][0]*tagmatrix.m[0][3] + entitymatrix.m[0][1]*tagmatrix.m[1][3] + entitymatrix.m[0][2]*tagmatrix.m[2][3]);
+               out->m[1][3] = entitymatrix.m[1][3] + val->_float*(entitymatrix.m[1][0]*tagmatrix.m[0][3] + entitymatrix.m[1][1]*tagmatrix.m[1][3] + entitymatrix.m[1][2]*tagmatrix.m[2][3]);
+               out->m[2][3] = entitymatrix.m[2][3] + val->_float*(entitymatrix.m[2][0]*tagmatrix.m[0][3] + entitymatrix.m[2][1]*tagmatrix.m[1][3] + entitymatrix.m[2][2]*tagmatrix.m[2][3]);           
+
+               /*
+               // Cl_bob, ported from rendering code
+               if (ent->v->health > 0 && cl_bob.value && cl_bobcycle.value)
                {
-                       ent = EDICT_NUM(val->edict);
-                       // FIXME: add scale parameter
-                       Matrix4x4_CreateFromQuakeEntity(&entitymatrix, ent->v->origin[0], ent->v->origin[1], ent->v->origin[2], -ent->v->angles[0], ent->v->angles[1], ent->v->angles[2], scale);
-                       Matrix4x4_Concat(out, &entitymatrix, &tagmatrix);
-                       // True origin for rotation (Matrix4x4_Concat creates wrong), this is done using all rotation matrix
-                       out->m[0][3] = entitymatrix.m[0][3] + entitymatrix.m[0][0]*tagmatrix.m[0][3] + entitymatrix.m[0][1]*tagmatrix.m[1][3] + entitymatrix.m[0][2]*tagmatrix.m[2][3];
-                       out->m[1][3] = entitymatrix.m[1][3] + entitymatrix.m[1][0]*tagmatrix.m[0][3] + entitymatrix.m[1][1]*tagmatrix.m[1][3] + entitymatrix.m[1][2]*tagmatrix.m[2][3];
-                       out->m[2][3] = entitymatrix.m[2][3] + entitymatrix.m[2][0]*tagmatrix.m[0][3] + entitymatrix.m[2][1]*tagmatrix.m[1][3] + entitymatrix.m[2][2]*tagmatrix.m[2][3];         
-               
+                       double bob, cycle;
+                       // LordHavoc: this code is *weird*, but not replacable (I think it
+                       // should be done in QC on the server, but oh well, quake is quake)
+                       // LordHavoc: figured out bobup: the time at which the sin is at 180
+                       // degrees (which allows lengthening or squishing the peak or valley)
+                       cycle = sv.time/cl_bobcycle.value;
+                       cycle -= (int)cycle;
+                       if (cycle < cl_bobup.value)
+                               cycle = sin(M_PI * cycle / cl_bobup.value);
+                       else
+                               cycle = sin(M_PI + M_PI * (cycle-cl_bobup.value)/(1.0 - cl_bobup.value));
+                       // bob is proportional to velocity in the xy plane
+                       // (don't count Z, or jumping messes it up)
+                       bob = sqrt(ent->v->velocity[0]*ent->v->velocity[0] + ent->v->velocity[1]*ent->v->velocity[1])*cl_bob.value;
+                       bob = bob*0.3 + bob*0.7*cycle;
+                       out->m[2][3] += bound(-7, bob, 4);
                }
-               while ((val = GETEDICTFIELDVALUE(ent, eval_tag_entity)) && val->edict);
+               */
        }
        return 0;
 }
 
+//float(entity ent, string tagname) gettagindex;
+
+void PF_gettagindex (void)
+{
+       edict_t *ent = G_EDICT(OFS_PARM0);
+       char *tag_name = G_STRING(OFS_PARM1);
+       int modelindex, tag_index;
+
+       if (ent == sv.edicts)
+               PF_WARNING("gettagindex: can't affect world entity\n");
+       if (ent->e->free)
+               PF_WARNING("gettagindex: can't affect free entity\n");
+
+       modelindex = (int)ent->v->modelindex;
+       tag_index = 0;
+       if (modelindex <= 0 || modelindex > MAX_MODELS)
+               Con_DPrintf("gettagindex(entity #%i): null or non-precached model\n", NUM_FOR_EDICT(ent));
+       else
+       {
+               tag_index = SV_GetTagIndex(ent, tag_name);
+               if (tag_index == 0)
+                       Con_DPrintf("gettagindex(entity #%i): tag \"%s\" not found\n", NUM_FOR_EDICT(ent), tag_name);
+       }
+       G_FLOAT(OFS_RETURN) = tag_index;
+};
+
 //vector(entity ent, float tagindex) gettaginfo;
 void PF_gettaginfo (void)
 {
@@ -3312,6 +3315,9 @@ void PF_gettaginfo (void)
                case 4:
                        Con_DPrintf("SV_GetTagMatrix(entity #%i): model has no tag with requested index %i\n", NUM_FOR_EDICT(e), tagindex);
                        break;
+               case 5:
+                       Con_DPrintf("SV_GetTagMatrix(entity #%i): runaway loop at attachment chain\n", NUM_FOR_EDICT(e));
+                       break;
        }
 }
 
@@ -3502,6 +3508,40 @@ void PF_dropclient (void)
        host_client = oldhostclient;
 }
 
+//entity() spawnclient (DP_SV_BOTCLIENT)
+void PF_spawnclient (void)
+{
+       int i;
+       edict_t *ed;
+       pr_xfunction->builtinsprofile += 2;
+       ed = sv.edicts;
+       for (i = 0;i < svs.maxclients;i++)
+       {
+               if (!svs.clients[i].active)
+               {
+                       pr_xfunction->builtinsprofile += 100;
+                       SV_ConnectClient (i, NULL);
+                       ed = EDICT_NUM(i + 1);
+                       break;
+               }
+       }
+       RETURN_EDICT(ed);
+}
+
+//float(entity clent) clienttype (DP_SV_BOTCLIENT)
+void PF_clienttype (void)
+{
+       int clientnum;
+       clientnum = G_EDICTNUM(OFS_PARM0) - 1;
+       if (clientnum < 0 || clientnum >= svs.maxclients)
+               G_FLOAT(OFS_RETURN) = 3;
+       else if (!svs.clients[clientnum].active)
+               G_FLOAT(OFS_RETURN) = 0;
+       else if (svs.clients[clientnum].netconnection)
+               G_FLOAT(OFS_RETURN) = 1;
+       else
+               G_FLOAT(OFS_RETURN) = 2;
+}
 
 builtin_t pr_builtin[] =
 {
@@ -3546,7 +3586,7 @@ PF_floor,                                 // #37 float(float v) floor
 PF_ceil,                                       // #38 float(float v) ceil
 NULL,                                          // #39
 PF_checkbottom,                                // #40 float(entity e) checkbottom
-PF_pointcontents               ,       // #41 float(vector v) pointcontents
+PF_pointcontents,                      // #41 float(vector v) pointcontents
 NULL,                                          // #42
 PF_fabs,                                       // #43 float(float f) fabs
 PF_aim,                                                // #44 vector(entity e, float speed) aim
@@ -3683,8 +3723,8 @@ PF_findchainflags,                        // #450 entity(.float fld, float match) findchainflags (DP_
 PF_gettagindex,                                // #451 float(entity ent, string tagname) gettagindex (DP_QC_GETTAGINFO)
 PF_gettaginfo,                         // #452 vector(entity ent, float tagindex) gettaginfo (DP_QC_GETTAGINFO)
 PF_dropclient,                         // #453 void(entity clent) dropclient (DP_SV_DROPCLIENT)
-NULL,                                          // #454
-NULL,                                          // #455
+PF_spawnclient,                                // #454 entity() spawnclient (DP_SV_BOTCLIENT)
+PF_clienttype,                         // #455 float(entity clent) clienttype (DP_SV_BOTCLIENT)
 NULL,                                          // #456
 NULL,                                          // #457
 NULL,                                          // #458
@@ -3702,6 +3742,11 @@ void PR_Cmd_Init(void)
        PR_Search_Init();
 }
 
+void PR_Cmd_Shutdown(void)
+{
+       Mem_FreePool (&pr_strings_mempool);
+}
+
 void PR_Cmd_Reset(void)
 {
        Mem_EmptyPool(pr_strings_mempool);