}
char *ENGINE_EXTENSIONS =
+"DP_CL_LOADSKY "
"DP_EF_NODRAW "
"DP_EF_ADDITIVE "
"DP_EF_BLUE "
"DP_ENT_SCALE "
"DP_ENT_VIEWMODEL "
"DP_GFX_FOG "
+"DP_GFX_SKYBOX "
"DP_HALFLIFE_MAP "
"DP_INPUTBUTTONS "
"DP_MONSTERWALK "
"DP_TE_STANDARDEFFECTBUILTINS "
"DP_VIEWZOOM "
"FRIK_FILE "
+"KRIMZON_SV_PARSECLIENTCOMMAND "
"NEH_CMD_PLAY2 "
"NEH_RESTOREGAME "
"TW_SV_STEPCONTROL "
int PF_newcheckclient (int check)
{
int i;
- qbyte *pvs;
edict_t *ent;
- mleaf_t *leaf;
vec3_t org;
// cycle to the next one
if (i == check)
break; // didn't find anything else
- if (ent->free)
+ if (ent->e->free)
continue;
if (ent->v->health <= 0)
continue;
// 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 );
+ memcpy (checkpvs, sv.worldmodel->LeafPVS(sv.worldmodel, sv.worldmodel->PointInLeaf(sv.worldmodel, org)), (sv.worldmodel->numleafs+7)>>3 );
return i;
}
// 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;
// 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);
+ leaf = sv.worldmodel->PointInLeaf(sv.worldmodel, view);
if (leaf)
{
l = (leaf - sv.worldmodel->leafs) - 1;
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;
{
pr_xfunction->builtinsprofile++;
ed = EDICT_NUM(e);
- if (ed->free)
+ if (ed->e->free)
continue;
t = E_STRING(ed,f);
if (!t)
{
pr_xfunction->builtinsprofile++;
ed = EDICT_NUM(e);
- if (ed->free)
+ if (ed->e->free)
continue;
if (E_FLOAT(ed,f) == s)
{
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)
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;
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;
}
}
*/
void PF_pointcontents (void)
{
- G_FLOAT(OFS_RETURN) = Mod_PointContents(G_VECTOR(OFS_PARM0), sv.worldmodel);
+ G_FLOAT(OFS_RETURN) = sv.worldmodel->PointContents(sv.worldmodel, G_VECTOR(OFS_PARM0));
}
/*
return;
}
ent = EDICT_NUM(i);
- if (!ent->free)
+ if (!ent->e->free)
{
RETURN_EDICT(ent);
return;
*/
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);
}
client = &svs.clients[entnum-1];
+ if ((val = GETEDICTFIELDVALUE(client->edict, eval_clientcolors)))
+ val->_float = i;
client->colors = i;
- EDICT_NUM(client->edictnumber)->v->team = (i & 15) + 1;
+ client->old_colors = i;
+ client->edict->v->team = (i & 15) + 1;
MSG_WriteByte (&sv.reliable_datagram, svc_updatecolors);
MSG_WriteByte (&sv.reliable_datagram, entnum - 1);
{
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)
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;
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)
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;
//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, end;
+ char *s, string[MAX_VARSTRING];
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;
+ end = G_FLOAT(OFS_PARM2) + start;
+ if (!s)
+ s = "";
+ for (i = 0;i < start && *s;i++, s++);
+ for (i = 0;i < MAX_VARSTRING - 1 && *s && i < end;i++, s++)
+ string[i] = *s;
+ string[i] = 0;
G_INT(OFS_RETURN) = PR_SetString(string);
}
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)
+ Host_Error("PF_clientcommand: entity is not a client");
+
+ 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
+char **tokens = NULL;
+int max_tokens, num_tokens = 0;
+void PF_tokenize (void)
+{
+ const char *p;
+ char *str;
+ str = G_STRING(OFS_PARM0);
+
+ if (tokens != NULL)
+ {
+ int i;
+ for (i=0;i<num_tokens;i++)
+ Z_Free(tokens[i]);
+ Z_Free(tokens);
+ num_tokens = 0;
+ }
+
+ tokens = Z_Malloc(strlen(str) * sizeof(char *));
+ max_tokens = strlen(str);
+
+ for (p = str;COM_ParseToken(&p) && num_tokens < max_tokens;num_tokens++)
+ {
+ tokens[num_tokens] = Z_Malloc(strlen(com_token) + 1);
+ strcpy(tokens[num_tokens], com_token);
+ }
+
+ 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("");
+}
+
+
builtin_t pr_builtin[] =
{
NULL, // #0
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)
+NULL, // #443
+NULL, // #444
+NULL, // #445
+NULL, // #446
+NULL, // #447
+NULL, // #448
+NULL, // #449
+a a a a a // #450-499 (LordHavoc)
};
builtin_t *pr_builtins = pr_builtin;