3 //============================================================================
6 char *vm_m_extensions =
13 setmousetarget(float target)
16 void VM_M_setmousetarget(void)
18 VM_SAFEPARMCOUNT(1, VM_M_setmousetarget);
20 switch((int)PRVM_G_FLOAT(OFS_PARM0))
23 in_client_mouse = false;
26 in_client_mouse = true;
29 PRVM_ERROR("VM_M_setmousetarget: wrong destination %i !\n",PRVM_G_FLOAT(OFS_PARM0));
40 void VM_M_getmousetarget(void)
42 VM_SAFEPARMCOUNT(0,VM_M_getmousetarget);
45 PRVM_G_FLOAT(OFS_RETURN) = 2;
47 PRVM_G_FLOAT(OFS_RETURN) = 1;
56 setkeydest(float dest)
59 void VM_M_setkeydest(void)
61 VM_SAFEPARMCOUNT(1,VM_M_setkeydest);
63 switch((int)PRVM_G_FLOAT(OFS_PARM0))
75 // key_dest = key_message
78 PRVM_ERROR("VM_M_setkeydest: wrong destination %i !\n",prog->globals[OFS_PARM0]);
89 void VM_M_getkeydest(void)
91 VM_SAFEPARMCOUNT(0,VM_M_getkeydest);
93 // key_game = 0, key_message = 1, key_menu = 2, unknown = 3
97 PRVM_G_FLOAT(OFS_RETURN) = 0;
100 PRVM_G_FLOAT(OFS_RETURN) = 2;
104 // PRVM_G_FLOAT(OFS_RETURN) = 1;
107 PRVM_G_FLOAT(OFS_RETURN) = 3;
115 callfunction(...,string function_name)
119 mfunction_t *PRVM_ED_FindFunction (const char *name);
120 void VM_M_callfunction(void)
126 PRVM_ERROR("VM_M_callfunction: 1 parameter is required !\n");
128 s = PRVM_G_STRING(OFS_PARM0 + (prog->argc - 1));
131 PRVM_ERROR("VM_M_callfunction: null string !\n");
133 VM_CheckEmptyString(s);
135 func = PRVM_ED_FindFunction(s);
138 PRVM_ERROR("VM_M_callfunciton: function %s not found !\n", s);
139 else if (func->first_statement < 0)
141 // negative statements are built in functions
142 int builtinnumber = -func->first_statement;
143 prog->xfunction->builtinsprofile++;
144 if (builtinnumber < prog->numbuiltins && prog->builtins[builtinnumber])
145 prog->builtins[builtinnumber]();
147 PRVM_ERROR("No such builtin #%i in %s", builtinnumber, PRVM_NAME);
152 PRVM_ExecuteProgram(func - prog->functions,"");
161 float isfunction(string function_name)
164 mfunction_t *PRVM_ED_FindFunction (const char *name);
165 void VM_M_isfunction(void)
170 VM_SAFEPARMCOUNT(1, VM_M_isfunction);
172 s = PRVM_G_STRING(OFS_PARM0);
175 PRVM_ERROR("VM_M_isfunction: null string !\n");
177 VM_CheckEmptyString(s);
179 func = PRVM_ED_FindFunction(s);
182 PRVM_G_FLOAT(OFS_RETURN) = false;
184 PRVM_G_FLOAT(OFS_RETURN) = true;
191 writetofile(float fhandle, entity ent)
194 void VM_M_writetofile(void)
199 VM_SAFEPARMCOUNT(2, VM_M_writetofile);
201 file = VM_GetFileHandle( PRVM_G_FLOAT(OFS_PARM0) );
206 ent = PRVM_G_EDICT(OFS_PARM1);
207 if(ent->priv.required->free)
209 Con_Printf("VM_M_writetofile: %s: entity %i is free !\n", PRVM_NAME, PRVM_EDICT_NUM(OFS_PARM1));
213 PRVM_ED_Write (file, ent);
220 vector getresolution(float number)
223 extern unsigned short video_resolutions[][2];
224 void VM_M_getresolution(void)
227 VM_SAFEPARMCOUNT(1, VM_getresolution);
229 nr = PRVM_G_FLOAT(OFS_PARM0);
232 PRVM_G_VECTOR(OFS_RETURN)[0] = video_resolutions[nr][0];
233 PRVM_G_VECTOR(OFS_RETURN)[1] = video_resolutions[nr][1];
234 PRVM_G_VECTOR(OFS_RETURN)[2] = 0;
241 string keynumtostring(float keynum)
244 void VM_M_keynumtostring(void)
248 VM_SAFEPARMCOUNT(1, VM_M_keynumtostring);
250 keynum = PRVM_G_FLOAT(OFS_PARM0);
252 tmp = VM_GetTempString();
254 strcpy(tmp, Key_KeynumToString(keynum));
256 PRVM_G_INT(OFS_RETURN) = PRVM_SetEngineString(tmp);
263 float stringtokeynum(string key)
266 void VM_M_stringtokeynum( void )
269 VM_SAFEPARMCOUNT( 1, VM_M_keynumtostring );
271 str = PRVM_G_STRING( OFS_PARM0 );
273 PRVM_G_INT(OFS_RETURN) = Key_StringToKeynum( str );
278 VM_M_findkeysforcommand
280 string findkeysforcommand(string command)
282 the returned string is an altstring
285 #define NUMKEYS 5 // TODO: merge the constant in keys.c with this one somewhen
287 void M_FindKeysForCommand(const char *command, int *keys);
288 void VM_M_findkeysforcommand(void)
295 VM_SAFEPARMCOUNT(1, VM_M_findkeysforcommand);
297 cmd = PRVM_G_STRING(OFS_PARM0);
299 VM_CheckEmptyString(cmd);
301 (ret = VM_GetTempString())[0] = 0;
303 M_FindKeysForCommand(cmd, keys);
305 for(i = 0; i < NUMKEYS; i++)
306 ret = strcat(ret, va(" \'%i\'", keys[i]));
308 PRVM_G_INT(OFS_RETURN) = PRVM_SetEngineString(ret);
313 VM_M_getserverliststat
315 float getserverliststat(float type)
320 0 serverlist_viewcount
321 1 serverlist_totalcount
329 void VM_M_getserverliststat( void )
332 VM_SAFEPARMCOUNT ( 1, VM_M_getserverliststat );
334 PRVM_G_FLOAT( OFS_RETURN ) = 0;
336 type = PRVM_G_FLOAT( OFS_PARM0 );
340 PRVM_G_FLOAT ( OFS_RETURN ) = serverlist_viewcount;
343 PRVM_G_FLOAT ( OFS_RETURN ) = serverlist_cachecount;
345 PRVM_G_FLOAT ( OFS_RETURN ) = masterquerycount;
348 PRVM_G_FLOAT ( OFS_RETURN ) = masterreplycount;
351 PRVM_G_FLOAT ( OFS_RETURN ) = serverquerycount;
354 PRVM_G_FLOAT ( OFS_RETURN ) = serverreplycount;
357 PRVM_G_FLOAT ( OFS_RETURN ) = serverlist_sortbyfield;
360 PRVM_G_FLOAT ( OFS_RETURN ) = serverlist_sortdescending;
363 Con_Printf( "VM_M_getserverliststat: bad type %i!\n", type );
368 ========================
369 VM_M_resetserverlistmasks
371 resetserverlistmasks()
372 ========================
374 void VM_M_resetserverlistmasks( void )
376 ServerList_ResetMasks();
381 ========================
382 VM_M_setserverlistmaskstring
384 setserverlistmaskstring(float mask, float fld, string str, float op)
387 ========================
389 void VM_M_setserverlistmaskstring( void )
393 serverlist_mask_t *mask;
396 VM_SAFEPARMCOUNT( 4, VM_M_setserverlistmaskstring );
397 str = PRVM_G_STRING( OFS_PARM1 );
399 PRVM_ERROR( "VM_M_setserverlistmaskstring: null string passed!" );
401 masknr = PRVM_G_FLOAT( OFS_PARM0 );
402 if( masknr >= 0 && masknr <= SERVERLIST_ANDMASKCOUNT )
403 mask = &serverlist_andmasks[masknr];
404 else if( masknr >= 512 && masknr - 512 <= SERVERLIST_ORMASKCOUNT )
405 mask = &serverlist_ormasks[masknr - 512 ];
407 Con_Printf( "VM_M_setserverlistmaskstring: invalid mask number %i\n", masknr );
411 field = (int) PRVM_G_FLOAT( OFS_PARM1 );
415 strncpy( mask->info.cname, PRVM_G_STRING( OFS_PARM2 ), sizeof(mask->info.cname) );
418 strncpy( mask->info.name, PRVM_G_STRING( OFS_PARM2 ), sizeof(mask->info.name) );
421 strncpy( mask->info.map, PRVM_G_STRING( OFS_PARM2 ), sizeof(mask->info.map) );
424 strncpy( mask->info.mod, PRVM_G_STRING( OFS_PARM2 ), sizeof(mask->info.mod) );
427 strncpy( mask->info.game, PRVM_G_STRING( OFS_PARM2 ), sizeof(mask->info.game) );
430 Con_Printf( "VM_M_setserverlistmaskstring: Bad field number %i passed!\n", field );
435 mask->tests[field] = (int) PRVM_G_FLOAT( OFS_PARM3 );
439 ========================
440 VM_M_setserverlistmasknumber
442 setserverlistmasknumber(float mask, float fld, float num, float op)
446 ========================
448 void VM_M_setserverlistmasknumber( void )
451 serverlist_mask_t *mask;
454 VM_SAFEPARMCOUNT( 4, VM_M_setserverlistmasknumber );
456 masknr = PRVM_G_FLOAT( OFS_PARM0 );
457 if( masknr >= 0 && masknr <= SERVERLIST_ANDMASKCOUNT )
458 mask = &serverlist_andmasks[masknr];
459 else if( masknr >= 512 && masknr - 512 <= SERVERLIST_ORMASKCOUNT )
460 mask = &serverlist_ormasks[masknr - 512 ];
462 Con_Printf( "VM_M_setserverlistmasknumber: invalid mask number %i\n", masknr );
466 number = PRVM_G_FLOAT( OFS_PARM2 );
467 field = (int) PRVM_G_FLOAT( OFS_PARM1 );
470 case SLIF_MAXPLAYERS:
471 mask->info.maxplayers = number;
473 case SLIF_NUMPLAYERS:
474 mask->info.numplayers = number;
477 mask->info.ping = number;
480 mask->info.protocol = number;
483 Con_Printf( "VM_M_setserverlistmasknumber: Bad field number %i passed!\n", field );
488 mask->tests[field] = (int) PRVM_G_FLOAT( OFS_PARM3 );
493 ========================
494 VM_M_resortserverlist
497 ========================
499 void VM_M_resortserverlist( void )
501 ServerList_RebuildViewList();
506 VM_M_getserverliststring
508 string getserverliststring(float field, float hostnr)
511 void VM_M_getserverliststring(void)
513 serverlist_entry_t *cache;
516 VM_SAFEPARMCOUNT(2, VM_M_getserverliststring);
518 PRVM_G_INT(OFS_RETURN) = 0;
520 hostnr = PRVM_G_FLOAT(OFS_PARM1);
522 if(hostnr < 0 || hostnr >= serverlist_viewcount)
524 Con_Print("VM_M_getserverliststring: bad hostnr passed!\n");
527 cache = serverlist_viewlist[hostnr];
528 switch( (int) PRVM_G_FLOAT(OFS_PARM0) ) {
530 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->info.cname );
533 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->info.name );
536 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->info.game );
539 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->info.mod );
542 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->info.map );
544 // TODO remove this again
546 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->line1 );
549 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->line2 );
552 Con_Print("VM_M_getserverliststring: bad field number passed!\n");
558 VM_M_getserverlistnumber
560 float getserverlistnumber(float field, float hostnr)
563 void VM_M_getserverlistnumber(void)
565 serverlist_entry_t *cache;
568 VM_SAFEPARMCOUNT(2, VM_M_getserverliststring);
570 PRVM_G_INT(OFS_RETURN) = 0;
572 hostnr = PRVM_G_FLOAT(OFS_PARM1);
574 if(hostnr < 0 || hostnr >= serverlist_viewcount)
576 Con_Print("VM_M_getserverliststring: bad hostnr passed!\n");
579 cache = serverlist_viewlist[hostnr];
580 switch( (int) PRVM_G_FLOAT(OFS_PARM0) ) {
581 case SLIF_MAXPLAYERS:
582 PRVM_G_FLOAT( OFS_RETURN ) = cache->info.maxplayers;
584 case SLIF_NUMPLAYERS:
585 PRVM_G_FLOAT( OFS_RETURN ) = cache->info.numplayers;
588 PRVM_G_FLOAT( OFS_RETURN ) = cache->info.ping;
591 PRVM_G_FLOAT( OFS_RETURN ) = cache->info.protocol;
594 Con_Print("VM_M_getserverlistnumber: bad field number passed!\n");
599 ========================
600 VM_M_setserverlistsort
602 setserverlistsort(float field, float descending)
603 ========================
605 void VM_M_setserverlistsort( void )
607 VM_SAFEPARMCOUNT( 2, VM_M_setserverlistsort );
609 serverlist_sortbyfield = (int) PRVM_G_FLOAT( OFS_PARM0 );
610 serverlist_sortdescending = (qboolean) PRVM_G_FLOAT( OFS_PARM1 );
614 ========================
615 VM_M_refreshserverlist
618 ========================
620 void VM_M_refreshserverlist( void )
622 VM_SAFEPARMCOUNT( 0, VM_M_refreshserverlist );
623 ServerList_QueryList();
627 ========================
628 VM_M_getserverlistindexforkey
630 float getserverlistindexforkey(string key)
631 ========================
633 void VM_M_getserverlistindexforkey( void )
636 VM_SAFEPARMCOUNT( 1, VM_M_getserverlistindexforkey );
638 key = PRVM_G_STRING( OFS_PARM0 );
639 VM_CheckEmptyString( key );
641 if( !strcmp( key, "cname" ) )
642 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_CNAME;
643 else if( !strcmp( key, "ping" ) )
644 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_PING;
645 else if( !strcmp( key, "game" ) )
646 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_GAME;
647 else if( !strcmp( key, "mod" ) )
648 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_MOD;
649 else if( !strcmp( key, "map" ) )
650 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_MAP;
651 else if( !strcmp( key, "name" ) )
652 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_NAME;
653 else if( !strcmp( key, "maxplayers" ) )
654 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_MAXPLAYERS;
655 else if( !strcmp( key, "numplayers" ) )
656 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_NUMPLAYERS;
657 else if( !strcmp( key, "protocol" ) )
658 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_PROTOCOL;
660 PRVM_G_FLOAT( OFS_RETURN ) = -1;
664 ========================
665 VM_M_addwantedserverlistkey
667 addwantedserverlistkey(string key)
668 ========================
670 void VM_M_addwantedserverlistkey( void )
672 VM_SAFEPARMCOUNT( 1, VM_M_addwantedserverlistkey );
675 prvm_builtin_t vm_m_builtins[] = {
676 0, // to be consistent with the old vm
677 // common builtings (mostly)
754 VM_search_getfilename, // 77
777 VM_WriteEntity, // 408
793 VM_drawresetcliparea,
794 VM_getimagesize,// 460
799 VM_cin_restart, // 465
815 VM_M_findkeysforcommand,// 610
816 VM_M_getserverliststat,
817 VM_M_getserverliststring,
820 VM_M_resetserverlistmasks,
821 VM_M_setserverlistmaskstring,
822 VM_M_setserverlistmasknumber,
823 VM_M_resortserverlist,
824 VM_M_setserverlistsort,
825 VM_M_refreshserverlist,
826 VM_M_getserverlistnumber,
827 VM_M_getserverlistindexforkey,
828 VM_M_addwantedserverlistkey // 623
831 const int vm_m_numbuiltins = sizeof(vm_m_builtins) / sizeof(prvm_builtin_t);
833 void VM_M_Cmd_Init(void)
838 void VM_M_Cmd_Reset(void)