"DP_TE_STANDARDEFFECTBUILTINS "
"DP_VIEWZOOM "
"FRIK_FILE "
+"KRIMZON_SV_PARSECLIENTCOMMAND "
"NEH_CMD_PLAY2 "
"NEH_RESTOREGAME "
"TW_SV_STEPCONTROL "
//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;
mfunction_t *SV_PlayerPhysicsQC;
mfunction_t *EndFrameQC;
+//KrimZon - SERVER COMMANDS IN QUAKEC
+mfunction_t *SV_ParseClientCommandQC;
int FindFieldOffset(const char *field)
{
SV_PlayerPhysicsQC = ED_FindFunction ("SV_PlayerPhysics");
// LordHavoc: support for endframe
EndFrameQC = ED_FindFunction ("EndFrame");
+ //KrimZon - SERVER COMMANDS IN QUAKEC
+ SV_ParseClientCommandQC = ED_FindFunction ("SV_ParseClientCommand");
}
/*
extern mfunction_t *SV_PlayerPhysicsQC;
extern mfunction_t *EndFrameQC;
+//KrimZon - SERVER COMMANDS IN QUAKEC
+extern mfunction_t *SV_ParseClientCommandQC;
//============================================================================
int cmd;
char *s;
- do
+ for (;;)
{
nextmsg:
ret = NET_GetMessage (host_client->netconnection);
MSG_BeginReading ();
- while (1)
+ for(;;)
{
if (!host_client->active)
// a command caused an error
case clc_stringcmd:
s = MSG_ReadString ();
- ret = 0;
- if (strncasecmp(s, "status", 6) == 0
+ if (strncasecmp(s, "spawn", 5) == 0
+ || strncasecmp(s, "begin", 5) == 0
+ || strncasecmp(s, "prespawn", 8) == 0)
+ Cmd_ExecuteString (s, src_client);
+ else if (SV_ParseClientCommandQC)
+ {
+ G_INT(OFS_PARM0) = PR_SetString(s);
+ pr_global_struct->self = EDICT_TO_PROG(host_client->edict);
+ PR_ExecuteProgram ((func_t)(SV_ParseClientCommandQC - pr_functions), "");
+ }
+ else if (strncasecmp(s, "status", 6) == 0
|| strncasecmp(s, "name", 4) == 0
|| strncasecmp(s, "say", 3) == 0
|| strncasecmp(s, "say_team", 8) == 0
|| strncasecmp(s, "color", 5) == 0
|| strncasecmp(s, "kill", 4) == 0
|| strncasecmp(s, "pause", 5) == 0
- || strncasecmp(s, "spawn", 5) == 0
- || strncasecmp(s, "begin", 5) == 0
- || strncasecmp(s, "prespawn", 8) == 0
|| strncasecmp(s, "kick", 4) == 0
|| strncasecmp(s, "ping", 4) == 0
|| strncasecmp(s, "ban", 3) == 0
|| strncasecmp(s, "pmodel", 6) == 0
|| (gamemode == GAME_NEHAHRA && (strncasecmp(s, "max", 3) == 0 || strncasecmp(s, "monster", 7) == 0 || strncasecmp(s, "scrag", 5) == 0 || strncasecmp(s, "gimme", 5) == 0 || strncasecmp(s, "wraith", 6) == 0))
|| (gamemode != GAME_NEHAHRA && (strncasecmp(s, "god", 3) == 0 || strncasecmp(s, "notarget", 8) == 0 || strncasecmp(s, "fly", 3) == 0 || strncasecmp(s, "give", 4) == 0 || strncasecmp(s, "noclip", 6) == 0)))
- {
- ret = 1;
Cmd_ExecuteString (s, src_client);
- }
else
Con_Printf("%s tried to %s\n", host_client->name, s);
break;
}
}
}
- while (ret == 1);
-
return true;
}