qf/quakeforge
0
0
Fork 0
mirror of https://git.code.sf.net/p/quake/quakeforge synced 2025-03-23 02:41:30 +00:00
Code Issues Projects Releases Packages Wiki Activity

- move alot of the builtins to libQFgamecode_builtins

Browse source 
- move the init into qw and nq
This commit is contained in:
Adam Olsen 2001-08-22 03:24:25 +00:00
parent 1314c89b6c
commit 17ba7ef92f
5 changed files with 58 additions and 2274 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
include/QF/progs.h
View file

@ -192,7 +192,7 @@ extern struct cvar_s *pr_debug;
// PR Cmds stuff
//
void PR_Cmds_Init (void);
void PR_Cmds_Init (progs_t *pr);
//============================================================================

1617
libs/gamecode/builtins/pr_cmds.c
View file

File diff suppressed because it is too large Load diff

1
libs/gamecode/engine/pr_edict.c
View file

@ -1380,7 +1380,6 @@ PR_Init (void)
{
PR_Opcode_Init ();
PR_Debug_Init ();
PR_Cmds_Init ();
}
#define PR_AUTOBUILTIN 120

298
nq/source/pr_cmds.c
View file

@ -54,21 +54,6 @@
BUILT-IN FUNCTIONS
*/
const char *
PF_VarString (progs_t *pr, int first)
{
int i;
int len;
char *out;
for (len = 0, i = first; i < pr->pr_argc; i++)
len += strlen (G_STRING (pr, (OFS_PARM0 + i * 3)));
out = Hunk_TempAlloc (len + 1);
for (i = first; i < pr->pr_argc; i++)
strcat (out, G_STRING (pr, (OFS_PARM0 + i * 3)));
return out;
}
/*
PF_error
@ -356,132 +341,6 @@ PF_centerprint (progs_t *pr)
}
/*
PF_normalize
vector normalize(vector)
*/
void
PF_normalize (progs_t *pr)
{
float *value1;
vec3_t newvalue;
float new;
value1 = G_VECTOR (pr, OFS_PARM0);
new = value1[0] * value1[0] + value1[1] * value1[1] + value1[2] * value1[2];
new = sqrt (new);
if (new == 0)
newvalue[0] = newvalue[1] = newvalue[2] = 0;
else {
new = 1 / new;
newvalue[0] = value1[0] * new;
newvalue[1] = value1[1] * new;
newvalue[2] = value1[2] * new;
}
VectorCopy (newvalue, G_VECTOR (pr, OFS_RETURN));
}
/*
PF_vlen
scalar vlen(vector)
*/
void
PF_vlen (progs_t *pr)
{
float *value1;
float new;
value1 = G_VECTOR (pr, OFS_PARM0);
new = value1[0] * value1[0] + value1[1] * value1[1] + value1[2] * value1[2];
new = sqrt (new);
G_FLOAT (pr, OFS_RETURN) = new;
}
/*
PF_vectoyaw
float vectoyaw(vector)
*/
void
PF_vectoyaw (progs_t *pr)
{
float *value1;
float yaw;
value1 = G_VECTOR (pr, OFS_PARM0);
if (value1[1] == 0 && value1[0] == 0)
yaw = 0;
else {
yaw = (int) (atan2 (value1[1], value1[0]) * 180 / M_PI);
if (yaw < 0)
yaw += 360;
}
G_FLOAT (pr, OFS_RETURN) = yaw;
}
/*
PF_vectoangles
vector vectoangles(vector)
*/
void
PF_vectoangles (progs_t *pr)
{
float *value1;
float forward;
float yaw, pitch;
value1 = G_VECTOR (pr, OFS_PARM0);
if (value1[1] == 0 && value1[0] == 0) {
yaw = 0;
if (value1[2] > 0)
pitch = 90;
else
pitch = 270;
} else {
yaw = (int) (atan2 (value1[1], value1[0]) * 180 / M_PI);
if (yaw < 0)
yaw += 360;
forward = sqrt (value1[0] * value1[0] + value1[1] * value1[1]);
pitch = (int) (atan2 (value1[2], forward) * 180 / M_PI);
if (pitch < 0)
pitch += 360;
}
G_FLOAT (pr, OFS_RETURN + 0) = pitch;
G_FLOAT (pr, OFS_RETURN + 1) = yaw;
G_FLOAT (pr, OFS_RETURN + 2) = 0;
}
/*
PF_Random
Returns a number from 0<= num < 1
random()
*/
void
PF_random (progs_t *pr)
{
float num;
num = (rand () & 0x7fff) / ((float) 0x7fff);
G_FLOAT (pr, OFS_RETURN) = num;
}
/*
PF_particle
@ -580,18 +439,6 @@ PF_sound (progs_t *pr)
SV_StartSound (entity, channel, sample, volume, attenuation);
}
/*
PF_break
break()
*/
void
PF_break (progs_t *pr)
{
Con_Printf ("break statement\n");
*(int *) -4 = 0; // dump to debugger
// PR_RunError ("break statement");
}
/*
PF_traceline
@ -905,50 +752,6 @@ PF_findradius (progs_t *pr)
}
/*
PF_dprint
*/
void
PF_dprint (progs_t *pr)
{
Con_DPrintf ("%s", PF_VarString (pr, 0));
}
char pr_string_temp[128];
void
PF_ftos (progs_t *pr)
{
float v;
v = G_FLOAT (pr, OFS_PARM0);
if (v == (int) v)
snprintf (pr_string_temp, sizeof (pr_string_temp), "%d", (int) v);
else
snprintf (pr_string_temp, sizeof (pr_string_temp), "%5.1f", v);
G_INT (pr, OFS_RETURN) = PR_SetString (pr, pr_string_temp);
}
void
PF_fabs (progs_t *pr)
{
float v;
v = G_FLOAT (pr, OFS_PARM0);
G_FLOAT (pr, OFS_RETURN) = fabs (v);
}
void
PF_vtos (progs_t *pr)
{
snprintf (pr_string_temp, sizeof (pr_string_temp),
"'%5.1f %5.1f %5.1f'", G_VECTOR (pr, OFS_PARM0)[0], G_VECTOR (pr,
OFS_PARM0)
[1], G_VECTOR (pr, OFS_PARM0)[2]);
G_INT (pr, OFS_RETURN) = PR_SetString (pr, pr_string_temp);
}
#ifdef QUAKE2
void
PF_etos (progs_t *pr)
@ -978,84 +781,6 @@ PF_Remove (progs_t *pr)
}
// entity (entity start, .string field, string match) find = #5;
void
PF_Find (progs_t *pr)
#ifdef QUAKE2
{
int e;
int f;
const char *s, *t;
edict_t *ed;
edict_t *first;
edict_t *second;
edict_t *last;
first = second = last = (edict_t *) sv.edicts;
e = G_EDICTNUM (pr, OFS_PARM0);
f = G_INT (pr, OFS_PARM1);
s = G_STRING (pr, OFS_PARM2);
if (!s)
PR_RunError (pr, "PF_Find: bad search string");
for (e++; e < sv.num_edicts; e++) {
ed = EDICT_NUM (pr, e);
if (ed->free)
continue;
t = E_STRING (pr, ed, f);
if (!t)
continue;
if (!strcmp (t, s)) {
if (first == (edict_t *) sv.edicts)
first = ed;
else if (second == (edict_t *) sv.edicts)
second = ed;
SVentity (ed, chain) = EDICT_TO_PROG (pr, last);
last = ed;
}
}
if (first != last) {
if (last != second)
SVentity (first, chain) = SVentity (last, chain);
else
SVentity (first, chain) = EDICT_TO_PROG (pr, last);
SVentity (last, chain) = EDICT_TO_PROG (pr, (edict_t *) sv.edicts);
if (second && second != last)
SVentity (second, chain) = EDICT_TO_PROG (pr, last);
}
RETURN_EDICT (pr, first);
}
#else
{
int e;
int f;
const char *s, *t;
edict_t *ed;
e = G_EDICTNUM (pr, OFS_PARM0);
f = G_INT (pr, OFS_PARM1);
s = G_STRING (pr, OFS_PARM2);
if (!s)
PR_RunError (pr, "PF_Find: bad search string");
for (e++; e < sv.num_edicts; e++) {
ed = EDICT_NUM (pr, e);
if (ed->free)
continue;
t = E_STRING (pr, ed, f);
if (!t)
continue;
if (!strcmp (t, s)) {
RETURN_EDICT (pr, ed);
return;
}
}
RETURN_EDICT (pr, sv.edicts);
}
#endif
void
PR_CheckEmptyString (progs_t *pr, const char *s)
{
@ -1828,57 +1553,39 @@ PF_checkextension (progs_t *pr)
void
SV_PR_Cmds_Init ()
{
PR_Cmds_Init (&sv_pr_state);
PR_AddBuiltin (&sv_pr_state, "makevectors", PF_makevectors, 1); // void(entity e) makevectors = #1
PR_AddBuiltin (&sv_pr_state, "setorigin", PF_setorigin, 2); // void(entity e, vector o) setorigin = #2
PR_AddBuiltin (&sv_pr_state, "setmodel", PF_setmodel, 3); // void(entity e, string m) setmodel = #3
PR_AddBuiltin (&sv_pr_state, "setsize", PF_setsize, 4); // void(entity e, vector min, vector max) setsize = #4
PR_AddBuiltin (&sv_pr_state, "fixme", PF_Fixme, 5); // void(entity e, vector min, vector max) setabssize = #5
PR_AddBuiltin (&sv_pr_state, "break", PF_break, 6); // void() break = #6
PR_AddBuiltin (&sv_pr_state, "random", PF_random, 7); // float() random = #7
PR_AddBuiltin (&sv_pr_state, "sound", PF_sound, 8); // void(entity e, float chan, string samp) sound = #8
PR_AddBuiltin (&sv_pr_state, "normalize", PF_normalize, 9); // vector(vector v) normalize = #9
PR_AddBuiltin (&sv_pr_state, "error", PF_error, 10); // void(string e) error = #10
PR_AddBuiltin (&sv_pr_state, "objerror", PF_objerror, 11); // void(string e) objerror = #11
PR_AddBuiltin (&sv_pr_state, "vlen", PF_vlen, 12); // float(vector v) vlen = #12
PR_AddBuiltin (&sv_pr_state, "vectoyaw", PF_vectoyaw, 13); // float(vector v) vectoyaw = #13
PR_AddBuiltin (&sv_pr_state, "spawn", PF_Spawn, 14); // entity() spawn = #14
PR_AddBuiltin (&sv_pr_state, "remove", PF_Remove, 15); // void(entity e) remove = #15
PR_AddBuiltin (&sv_pr_state, "traceline", PF_traceline, 16); // float(vector v1, vector v2, float tryents) traceline = #16
PR_AddBuiltin (&sv_pr_state, "checkclient", PF_checkclient, 17); // entity() clientlist = #17
PR_AddBuiltin (&sv_pr_state, "find", PF_Find, 18); // entity(entity start, .string fld, string match) find = #18
PR_AddBuiltin (&sv_pr_state, "precache_sound", PF_precache_sound, 19); // void(string s) precache_sound = #19
PR_AddBuiltin (&sv_pr_state, "precache_model", PF_precache_model, 20); // void(string s) precache_model = #20
PR_AddBuiltin (&sv_pr_state, "stuffcmd", PF_stuffcmd, 21); // void(entity client, string s) stuffcmd = #21
PR_AddBuiltin (&sv_pr_state, "findradius", PF_findradius, 22); // entity(vector org, float rad) findradius = #22
PR_AddBuiltin (&sv_pr_state, "bprint", PF_bprint, 23); // void(string s) bprint = #23
PR_AddBuiltin (&sv_pr_state, "sprint", PF_sprint, 24); // void(entity client, string s) sprint = #24
PR_AddBuiltin (&sv_pr_state, "dprint", PF_dprint, 25); // void(string s) dprint = #25
PR_AddBuiltin (&sv_pr_state, "ftos", PF_ftos, 26); // void(string s) ftos = #26
PR_AddBuiltin (&sv_pr_state, "vtos", PF_vtos, 27); // void(string s) vtos = #27
PR_AddBuiltin (&sv_pr_state, "coredump", PF_coredump, 28); // void() coredump = #28
PR_AddBuiltin (&sv_pr_state, "traceon", PF_traceon, 29); // void() traceon = #29
PR_AddBuiltin (&sv_pr_state, "traceoff", PF_traceoff, 30); // void() traceoff = #30
PR_AddBuiltin (&sv_pr_state, "eprint", PF_eprint, 31); // void(entity e) = #31 debug print an entire entity
PR_AddBuiltin (&sv_pr_state, "walkmove", PF_walkmove, 32); // float(float yaw, float dist) walkmove = #32
// 33
PR_AddBuiltin (&sv_pr_state, "droptofloor", PF_droptofloor, 34); // float() droptofloor = #34
PR_AddBuiltin (&sv_pr_state, "lightstyle", PF_lightstyle, 35); // void(float style, string value) lightstyle = #35
PR_AddBuiltin (&sv_pr_state, "rint", PF_rint, 36); // float(float v) rint = #36
PR_AddBuiltin (&sv_pr_state, "floor", PF_floor, 37); // float(float v) floor = #37
PR_AddBuiltin (&sv_pr_state, "ceil", PF_ceil, 38); // float(float v) ceil = #38
// 39
PR_AddBuiltin (&sv_pr_state, "checkbottom", PF_checkbottom, 40); // float(entity e) checkbottom = #40
PR_AddBuiltin (&sv_pr_state, "pointcontents", PF_pointcontents, 41); // float(vector v) pointcontents = #41
// 42
PR_AddBuiltin (&sv_pr_state, "fabs", PF_fabs, 43); // float(float f) fabs = #43
PR_AddBuiltin (&sv_pr_state, "aim", PF_aim, 44); // vector(entity e, float speed) aim = #44
PR_AddBuiltin (&sv_pr_state, "cvar", PF_cvar, 45); // float(string s) cvar = #45
PR_AddBuiltin (&sv_pr_state, "localcmd", PF_localcmd, 46); // void(string s) localcmd = #46
PR_AddBuiltin (&sv_pr_state, "nextent", PF_nextent, 47); // entity(entity e) nextent = #47
PR_AddBuiltin (&sv_pr_state, "particle", PF_particle, 48);
PR_AddBuiltin (&sv_pr_state, "changeyaw", PF_changeyaw, 49); // void() ChangeYaw = #49
// 50
PR_AddBuiltin (&sv_pr_state, "vectoangles", PF_vectoangles, 51); // vector(vector v) vectoangles = #51
PR_AddBuiltin (&sv_pr_state, "writebyte", PF_WriteByte, 52); // void(float to, float f) WriteByte = #52
PR_AddBuiltin (&sv_pr_state, "writechar", PF_WriteChar, 53); // void(float to, float f) WriteChar = #53
@ -1906,7 +1613,6 @@ SV_PR_Cmds_Init ()
PR_AddBuiltin (&sv_pr_state, "changelevel", PF_changelevel, 70); // void(string s) changelevel = #70
// 71
PR_AddBuiltin (&sv_pr_state, "cvar_set", PF_cvar_set, 72); // void(string var, string val) cvar_set = #72
PR_AddBuiltin (&sv_pr_state, "centerprint", PF_centerprint, 73); // void(...) centerprint = #73
PR_AddBuiltin (&sv_pr_state, "ambientsound", PF_ambientsound, 74); // void(vector pos, string samp, float vol, float atten) ambientsound = #74

414
qw/source/sv_pr_cmds.c
View file

@ -53,21 +53,6 @@
BUILT-IN FUNCTIONS
*/
const char *
PF_VarString (progs_t *pr, int first)
{
int i;
int len;
char *out;
for (len = 0, i = first; i < pr->pr_argc; i++)
len += strlen (G_STRING (pr, (OFS_PARM0 + i * 3)));
out = Hunk_TempAlloc (len + 1);
for (i = first; i < pr->pr_argc; i++)
strcat (out, G_STRING (pr, (OFS_PARM0 + i * 3)));
return out;
}
/*
PF_error
@ -292,133 +277,6 @@ PF_centerprint (progs_t *pr)
}
/*
PF_normalize
vector normalize(vector)
*/
void
PF_normalize (progs_t *pr)
{
float *value1;
vec3_t newvalue;
float new;
value1 = G_VECTOR (pr, OFS_PARM0);
new = value1[0] * value1[0] + value1[1] * value1[1] + value1[2] * value1[2];
new = sqrt (new);
if (new == 0)
newvalue[0] = newvalue[1] = newvalue[2] = 0;
else {
new = 1 / new;
newvalue[0] = value1[0] * new;
newvalue[1] = value1[1] * new;
newvalue[2] = value1[2] * new;
}
VectorCopy (newvalue, G_VECTOR (pr, OFS_RETURN));
}
/*
PF_vlen
scalar vlen(vector)
*/
void
PF_vlen (progs_t *pr)
{
float *value1;
float new;
value1 = G_VECTOR (pr, OFS_PARM0);
new = value1[0] * value1[0] + value1[1] * value1[1] + value1[2] * value1[2];
new = sqrt (new);
G_FLOAT (pr, OFS_RETURN) = new;
}
/*
PF_vectoyaw
float vectoyaw(vector)
*/
void
PF_vectoyaw (progs_t *pr)
{
float *value1;
float yaw;
value1 = G_VECTOR (pr, OFS_PARM0);
if (value1[1] == 0 && value1[0] == 0)
yaw = 0;
else {
yaw = (int) (atan2 (value1[1], value1[0]) * 180 / M_PI);
if (yaw < 0)
yaw += 360;
}
G_FLOAT (pr, OFS_RETURN) = yaw;
}
/*
PF_vectoangles
vector vectoangles(vector)
*/
void
PF_vectoangles (progs_t *pr)
{
float *value1;
float forward;
float yaw, pitch;
value1 = G_VECTOR (pr, OFS_PARM0);
if (value1[1] == 0 && value1[0] == 0) {
yaw = 0;
if (value1[2] > 0)
pitch = 90;
else
pitch = 270;
} else {
yaw = (int) (atan2 (value1[1], value1[0]) * 180 / M_PI);
if (yaw < 0)
yaw += 360;
forward = sqrt (value1[0] * value1[0] + value1[1] * value1[1]);
pitch = (int) (atan2 (value1[2], forward) * 180 / M_PI);
if (pitch < 0)
pitch += 360;
}
G_FLOAT (pr, OFS_RETURN + 0) = pitch;
G_FLOAT (pr, OFS_RETURN + 1) = yaw;
G_FLOAT (pr, OFS_RETURN + 2) = 0;
}
/*
PF_Random
Returns a number from 0<= num < 1
random()
*/
void
PF_random (progs_t *pr)
{
float num;
num = (rand () & 0x7fff) / ((float) 0x7fff);
G_FLOAT (pr, OFS_RETURN) = num;
}
/*
PF_ambientsound
*/
@ -488,18 +346,6 @@ PF_sound (progs_t *pr)
SV_StartSound (entity, channel, sample, volume, attenuation);
}
/*
PF_break
break()
*/
void
PF_break (progs_t *pr)
{
SV_Printf ("break statement\n");
*(int *) -4 = 0; // dump to debugger
// PR_RunError (pr, "break statement");
}
/*
PF_traceline
@ -845,59 +691,6 @@ PF_findradius (progs_t *pr)
}
/*
PF_dprint
*/
void
PF_dprint (progs_t *pr)
{
SV_Printf ("%s", PF_VarString (pr, 0));
}
char pr_string_temp[128];
void
PF_ftos (progs_t *pr)
{
float v;
int i; // 1999-07-25 FTOS fix by Maddes
v = G_FLOAT (pr, OFS_PARM0);
if (v == (int) v)
snprintf (pr_string_temp, sizeof (pr_string_temp), "%d", (int) v);
else
// 1999-07-25 FTOS fix by Maddes start
{
snprintf (pr_string_temp, sizeof (pr_string_temp), "%1f", v);
for (i = strlen (pr_string_temp) - 1;
i > 0 && pr_string_temp[i] == '0' && pr_string_temp[i - 1] != '.';
i--) {
pr_string_temp[i] = 0;
}
}
// 1999-07-25 FTOS fix by Maddes end
G_INT (pr, OFS_RETURN) = PR_SetString (pr, pr_string_temp);
}
void
PF_fabs (progs_t *pr)
{
float v;
v = G_FLOAT (pr, OFS_PARM0);
G_FLOAT (pr, OFS_RETURN) = fabs (v);
}
void
PF_vtos (progs_t *pr)
{
snprintf (pr_string_temp, sizeof (pr_string_temp), "'%5.1f %5.1f %5.1f'",
G_VECTOR (pr, OFS_PARM0)[0], G_VECTOR (pr, OFS_PARM0)[1],
G_VECTOR (pr, OFS_PARM0)[2]);
G_INT (pr, OFS_RETURN) = PR_SetString (pr, pr_string_temp);
}
void
PF_Spawn (progs_t *pr)
{
@ -917,37 +710,6 @@ PF_Remove (progs_t *pr)
}
// entity (entity start, .string field, string match) find = #5;
void
PF_Find (progs_t *pr)
{
int e;
int f;
const char *s, *t;
edict_t *ed;
e = G_EDICTNUM (pr, OFS_PARM0);
f = G_INT (pr, OFS_PARM1);
s = G_STRING (pr, OFS_PARM2);
if (!s)
PR_RunError (pr, "PF_Find: bad search string");
for (e++; e < sv.num_edicts; e++) {
ed = EDICT_NUM (pr, e);
if (ed->free)
continue;
t = E_STRING (pr, ed, f);
if (!t)
continue;
if (!strcmp (t, s)) {
RETURN_EDICT (pr, ed);
return;
}
}
RETURN_EDICT (pr, sv.edicts);
}
void
PR_CheckEmptyString (progs_t *pr, const char *s)
{
@ -1013,30 +775,6 @@ PF_precache_model (progs_t *pr)
}
void
PF_coredump (progs_t *pr)
{
ED_PrintEdicts (pr, "");
}
void
PF_traceon (progs_t *pr)
{
pr->pr_trace = true;
}
void
PF_traceoff (progs_t *pr)
{
pr->pr_trace = false;
}
void
PF_eprint (progs_t *pr)
{
ED_PrintNum (pr, G_EDICTNUM (pr, OFS_PARM0));
}
/*
PF_walkmove
@ -1140,31 +878,6 @@ PF_lightstyle (progs_t *pr)
}
}
void
PF_rint (progs_t *pr)
{
float f;
f = G_FLOAT (pr, OFS_PARM0);
if (f > 0)
G_FLOAT (pr, OFS_RETURN) = (int) (f + 0.5);
else
G_FLOAT (pr, OFS_RETURN) = (int) (f - 0.5);
}
void
PF_floor (progs_t *pr)
{
G_FLOAT (pr, OFS_RETURN) = floor (G_FLOAT (pr, OFS_PARM0));
}
void
PF_ceil (progs_t *pr)
{
G_FLOAT (pr, OFS_RETURN) = ceil (G_FLOAT (pr, OFS_PARM0));
}
/*
PF_checkbottom
*/
@ -1191,32 +904,6 @@ PF_pointcontents (progs_t *pr)
G_FLOAT (pr, OFS_RETURN) = SV_PointContents (v);
}
/*
PF_nextent
entity nextent(entity)
*/
void
PF_nextent (progs_t *pr)
{
int i;
edict_t *ent;
i = G_EDICTNUM (pr, OFS_PARM0);
while (1) {
i++;
if (i == sv.num_edicts) {
RETURN_EDICT (pr, sv.edicts);
return;
}
ent = EDICT_NUM (pr, i);
if (!ent->free) {
RETURN_EDICT (pr, ent);
return;
}
}
}
/*
PF_aim
@ -1645,22 +1332,6 @@ PF_infokey (progs_t *pr)
RETURN_STRING (pr, value);
}
/*
PF_stof
float(string s) stof
*/
void
PF_stof (progs_t *pr)
{
const char *s;
s = G_STRING (pr, OFS_PARM0);
G_FLOAT (pr, OFS_RETURN) = atof (s);
}
/*
PF_multicast
@ -1678,47 +1349,6 @@ PF_multicast (progs_t *pr)
SV_Multicast (o, to);
}
/*
PF_strlen
float(string s) strlen
*/
void
PF_strlen (progs_t *pr)
{
const char *s;
s = G_STRING (pr, OFS_PARM0);
G_FLOAT (pr, OFS_RETURN) = strlen(s);
}
/*
PF_charcount
float(string char, string s) charcount
*/
void
PF_charcount (progs_t *pr)
{
const char *s;
char goal;
int count;
goal = (G_STRING (pr, OFS_PARM0))[0];
if (goal == '\0')
G_FLOAT (pr, OFS_RETURN) = 0;
count = 0;
s = G_STRING (pr, OFS_PARM1);
while (*s) {
if (*s == goal)
count++;
s++;
}
G_FLOAT (pr, OFS_RETURN) = count;
}
/*
PF_cfopen
@ -2001,79 +1631,42 @@ PF_Checkextension (progs_t *pr)
G_FLOAT(pr, OFS_RETURN) = 0; //FIXME make this function actually useful :P
}
void
PF_checkbuiltin (progs_t *pr)
{
G_FUNCTION (pr, OFS_RETURN) = -PR_FindBuiltin (pr, G_STRING (pr, OFS_PARM0));
}
void
PF_getbuiltin (progs_t *pr)
{
int i;
const char *name;
name = G_STRING (pr, OFS_PARM0);
i = PR_FindBuiltin (pr, name);
if (!i)
PR_RunError (pr, "PF_getfunction: function '%s' not found!\n", name);
G_FUNCTION (pr, OFS_RETURN) = -i;
}
void
SV_PR_Cmds_Init ()
{
PR_Cmds_Init (&sv_pr_state);
PR_AddBuiltin (&sv_pr_state, "makevectors", PF_makevectors, 1); // void(entity e) makevectors = #1
PR_AddBuiltin (&sv_pr_state, "setorigin", PF_setorigin, 2); // void(entity e, vector o) setorigin = #2
PR_AddBuiltin (&sv_pr_state, "setmodel", PF_setmodel, 3); // void(entity e, string m) setmodel = #3
PR_AddBuiltin (&sv_pr_state, "setsize", PF_setsize, 4); // void(entity e, vector min, vector max) setsize = #4
PR_AddBuiltin (&sv_pr_state, "fixme", PF_Fixme, 5); // void(entity e, vector min, vector max) setabssize = #5
PR_AddBuiltin (&sv_pr_state, "break", PF_break, 6); // void() break = #6
PR_AddBuiltin (&sv_pr_state, "random", PF_random, 7); // float() random = #7
PR_AddBuiltin (&sv_pr_state, "sound", PF_sound, 8); // void(entity e, float chan, string samp) sound = #8
PR_AddBuiltin (&sv_pr_state, "normalize", PF_normalize, 9); // vector(vector v) normalize = #9
PR_AddBuiltin (&sv_pr_state, "error", PF_error, 10); // void(string e) error = #10
PR_AddBuiltin (&sv_pr_state, "objerror", PF_objerror, 11); // void(string e) objerror = #11
PR_AddBuiltin (&sv_pr_state, "vlen", PF_vlen, 12); // float(vector v) vlen = #12
PR_AddBuiltin (&sv_pr_state, "vectoyaw", PF_vectoyaw, 13); // float(vector v) vectoyaw = #13
PR_AddBuiltin (&sv_pr_state, "spawn", PF_Spawn, 14); // entity() spawn = #14
PR_AddBuiltin (&sv_pr_state, "remove", PF_Remove, 15); // void(entity e) remove = #15
PR_AddBuiltin (&sv_pr_state, "traceline", PF_traceline, 16); // float(vector v1, vector v2, float tryents) traceline = #16
PR_AddBuiltin (&sv_pr_state, "checkclient", PF_checkclient, 17); // entity() clientlist = #17
PR_AddBuiltin (&sv_pr_state, "find", PF_Find, 18); // entity(entity start, .string fld, string match) find = #18
PR_AddBuiltin (&sv_pr_state, "precache_sound", PF_precache_sound, 19); // void(string s) precache_sound = #19
PR_AddBuiltin (&sv_pr_state, "precache_model", PF_precache_model, 20); // void(string s) precache_model = #20
PR_AddBuiltin (&sv_pr_state, "stuffcmd", PF_stuffcmd, 21); // void(entity client, string s) stuffcmd = #21
PR_AddBuiltin (&sv_pr_state, "findradius", PF_findradius, 22); // entity(vector org, float rad) findradius = #22
PR_AddBuiltin (&sv_pr_state, "bprint", PF_bprint, 23); // void(string s) bprint = #23
PR_AddBuiltin (&sv_pr_state, "sprint", PF_sprint, 24); // void(entity client, string s) sprint = #24
PR_AddBuiltin (&sv_pr_state, "dprint", PF_dprint, 25); // void(string s) dprint = #25
PR_AddBuiltin (&sv_pr_state, "ftos", PF_ftos, 26); // void(string s) ftos = #26
PR_AddBuiltin (&sv_pr_state, "vtos", PF_vtos, 27); // void(string s) vtos = #27
PR_AddBuiltin (&sv_pr_state, "coredump", PF_coredump, 28); // void() coredump = #28
PR_AddBuiltin (&sv_pr_state, "traceon", PF_traceon, 29); // void() traceon = #29
PR_AddBuiltin (&sv_pr_state, "traceoff", PF_traceoff, 30); // void() traceoff = #30
PR_AddBuiltin (&sv_pr_state, "eprint", PF_eprint, 31); // void(entity e) = #31 debug print an entire entity
PR_AddBuiltin (&sv_pr_state, "walkmove", PF_walkmove, 32); // float(float yaw, float dist) walkmove = #32
// no 33
PR_AddBuiltin (&sv_pr_state, "droptofloor", PF_droptofloor, 34); // float() droptofloor = #34
PR_AddBuiltin (&sv_pr_state, "lightstyle", PF_lightstyle, 35); // void(float style, string value) lightstyle = #35
PR_AddBuiltin (&sv_pr_state, "rint", PF_rint, 36); // float(float v) rint = #36
PR_AddBuiltin (&sv_pr_state, "floor", PF_floor, 37); // float(float v) floor = #37
PR_AddBuiltin (&sv_pr_state, "ceil", PF_ceil, 38); // float(float v) ceil = #38
// no 39
PR_AddBuiltin (&sv_pr_state, "checkbottom", PF_checkbottom, 40); // float(entity e) checkbottom = #40
PR_AddBuiltin (&sv_pr_state, "pointcontents", PF_pointcontents, 41); // float(vector v) pointcontents = #41
// no 42
PR_AddBuiltin (&sv_pr_state, "fabs", PF_fabs, 43); // float(float f) fabs = #43
PR_AddBuiltin (&sv_pr_state, "aim", PF_aim, 44); // vector(entity e, float speed) aim = #44
PR_AddBuiltin (&sv_pr_state, "cvar", PF_cvar, 45); // float(string s) cvar = #45
PR_AddBuiltin (&sv_pr_state, "localcmd", PF_localcmd, 46); // void(string s) localcmd = #46
PR_AddBuiltin (&sv_pr_state, "nextent", PF_nextent, 47); // entity(entity e) nextent = #47
// no 48
PR_AddBuiltin (&sv_pr_state, "changeyaw", PF_changeyaw, 49); // void() ChangeYaw = #49
// no 50
PR_AddBuiltin (&sv_pr_state, "vectoangles", PF_vectoangles, 51); // vector(vector v) vectoangles = #51
PR_AddBuiltin (&sv_pr_state, "writebyte", PF_WriteByte, 52); // void(float to, float f) WriteByte = #52
PR_AddBuiltin (&sv_pr_state, "writechar", PF_WriteChar, 53); // void(float to, float f) WriteChar = #53
@ -2113,7 +1706,6 @@ SV_PR_Cmds_Init ()
PR_AddBuiltin (&sv_pr_state, "logfrag", PF_logfrag, 79); // void(entity killer, entity killee) logfrag = #79
PR_AddBuiltin (&sv_pr_state, "infokey", PF_infokey, 80); // string(entity e, string key) infokey = #80
PR_AddBuiltin (&sv_pr_state, "stof", PF_stof, 81); // float(string s) stof = #81
PR_AddBuiltin (&sv_pr_state, "multicast", PF_multicast, 82); // void(vector where, float set) multicast = #82
// 83
@ -2133,8 +1725,6 @@ SV_PR_Cmds_Init ()
PR_AddBuiltin (&sv_pr_state, "rotate_bbox", PF_rotate_bbox, 97); // void (integer hull, vector right, vector forward, vector up, vector mins, vector maxs) rotate_bbox = #97
PR_AddBuiltin (&sv_pr_state, "checkmove", PF_checkmove, 98); // void (vector start, vector mins, vector maxs, vector end, float type, entity passent) checkmove = #98
PR_AddBuiltin (&sv_pr_state, "checkextension", PF_Checkextension, 99); // = #99
PR_AddBuiltin (&sv_pr_state, "strlen", PF_strlen, 100); // = #100
PR_AddBuiltin (&sv_pr_state, "charcount", PF_charcount, 101); // = #101
PR_AddBuiltin (&sv_pr_state, "setinfokey", PF_setinfokey, 102); // void (entity ent, string key, string value) setinfokey = #102
PR_AddBuiltin (&sv_pr_state, "cfopen", PF_cfopen, 103); // float (string path, string mode) cfopen = #103
PR_AddBuiltin (&sv_pr_state, "cfclose", PF_cfclose, 104); // void (float desc) cfclose = #104