3 //============================================================================
6 char *vm_m_extensions =
8 "DP_QC_ASINACOSATANATAN2TAN";
14 string precache_file(string)
17 void VM_M_precache_file (void)
18 { // precache_file is only used to copy files with qcc, it does nothing
19 VM_SAFEPARMCOUNT(1,VM_precache_file);
21 PRVM_G_INT(OFS_RETURN) = PRVM_G_INT(OFS_PARM0);
28 used instead of the other VM_precache_* functions in the builtin list
32 void VM_M_precache_error (void)
34 PRVM_ERROR ("PF_Precache_*: Precache can only be done in spawn functions");
41 string precache_sound (string sample)
44 void VM_M_precache_sound (void)
48 VM_SAFEPARMCOUNT(1, VM_precache_sound);
50 s = PRVM_G_STRING(OFS_PARM0);
51 PRVM_G_INT(OFS_RETURN) = PRVM_G_INT(OFS_PARM0);
52 VM_CheckEmptyString (s);
54 if(snd_initialized.integer && !S_PrecacheSound (s,true, true))
56 VM_Warning("VM_precache_sound: Failed to load %s for %s\n", s, PRVM_NAME);
65 setmousetarget(float target)
68 void VM_M_setmousetarget(void)
70 VM_SAFEPARMCOUNT(1, VM_M_setmousetarget);
72 switch((int)PRVM_G_FLOAT(OFS_PARM0))
75 in_client_mouse = false;
78 in_client_mouse = true;
81 PRVM_ERROR("VM_M_setmousetarget: wrong destination %f !",PRVM_G_FLOAT(OFS_PARM0));
92 void VM_M_getmousetarget(void)
94 VM_SAFEPARMCOUNT(0,VM_M_getmousetarget);
97 PRVM_G_FLOAT(OFS_RETURN) = 2;
99 PRVM_G_FLOAT(OFS_RETURN) = 1;
108 setkeydest(float dest)
111 void VM_M_setkeydest(void)
113 VM_SAFEPARMCOUNT(1,VM_M_setkeydest);
115 switch((int)PRVM_G_FLOAT(OFS_PARM0))
127 // key_dest = key_message
130 PRVM_ERROR("VM_M_setkeydest: wrong destination %f !", PRVM_G_FLOAT(OFS_PARM0));
141 void VM_M_getkeydest(void)
143 VM_SAFEPARMCOUNT(0,VM_M_getkeydest);
145 // key_game = 0, key_message = 1, key_menu = 2, unknown = 3
149 PRVM_G_FLOAT(OFS_RETURN) = 0;
152 PRVM_G_FLOAT(OFS_RETURN) = 2;
156 // PRVM_G_FLOAT(OFS_RETURN) = 1;
159 PRVM_G_FLOAT(OFS_RETURN) = 3;
167 callfunction(...,string function_name)
171 mfunction_t *PRVM_ED_FindFunction (const char *name);
172 void VM_M_callfunction(void)
178 PRVM_ERROR("VM_M_callfunction: 1 parameter is required !");
180 s = PRVM_G_STRING(OFS_PARM0 + (prog->argc - 1));
183 PRVM_ERROR("VM_M_callfunction: null string !");
185 VM_CheckEmptyString(s);
187 func = PRVM_ED_FindFunction(s);
190 PRVM_ERROR("VM_M_callfunciton: function %s not found !", s);
191 else if (func->first_statement < 0)
193 // negative statements are built in functions
194 int builtinnumber = -func->first_statement;
195 prog->xfunction->builtinsprofile++;
196 if (builtinnumber < prog->numbuiltins && prog->builtins[builtinnumber])
197 prog->builtins[builtinnumber]();
199 PRVM_ERROR("No such builtin #%i in %s", builtinnumber, PRVM_NAME);
204 PRVM_ExecuteProgram(func - prog->functions,"");
213 float isfunction(string function_name)
216 mfunction_t *PRVM_ED_FindFunction (const char *name);
217 void VM_M_isfunction(void)
222 VM_SAFEPARMCOUNT(1, VM_M_isfunction);
224 s = PRVM_G_STRING(OFS_PARM0);
227 PRVM_ERROR("VM_M_isfunction: null string !");
229 VM_CheckEmptyString(s);
231 func = PRVM_ED_FindFunction(s);
234 PRVM_G_FLOAT(OFS_RETURN) = false;
236 PRVM_G_FLOAT(OFS_RETURN) = true;
243 writetofile(float fhandle, entity ent)
246 void VM_M_writetofile(void)
251 VM_SAFEPARMCOUNT(2, VM_M_writetofile);
253 file = VM_GetFileHandle( (int)PRVM_G_FLOAT(OFS_PARM0) );
256 VM_Warning("VM_M_writetofile: invalid or closed file handle\n");
260 ent = PRVM_G_EDICT(OFS_PARM1);
261 if(ent->priv.required->free)
263 VM_Warning("VM_M_writetofile: %s: entity %i is free !\n", PRVM_NAME, PRVM_EDICT_NUM(OFS_PARM1));
267 PRVM_ED_Write (file, ent);
274 vector getresolution(float number)
277 extern unsigned short video_resolutions[][2];
278 void VM_M_getresolution(void)
281 VM_SAFEPARMCOUNT(1, VM_getresolution);
283 nr = (int)PRVM_G_FLOAT(OFS_PARM0);
286 PRVM_G_VECTOR(OFS_RETURN)[0] = video_resolutions[nr][0];
287 PRVM_G_VECTOR(OFS_RETURN)[1] = video_resolutions[nr][1];
288 PRVM_G_VECTOR(OFS_RETURN)[2] = 0;
293 VM_M_findkeysforcommand
295 string findkeysforcommand(string command)
297 the returned string is an altstring
300 #define NUMKEYS 5 // TODO: merge the constant in keys.c with this one somewhen
302 void M_FindKeysForCommand(const char *command, int *keys);
303 void VM_M_findkeysforcommand(void)
310 VM_SAFEPARMCOUNT(1, VM_M_findkeysforcommand);
312 cmd = PRVM_G_STRING(OFS_PARM0);
314 VM_CheckEmptyString(cmd);
316 (ret = VM_GetTempString())[0] = 0;
318 M_FindKeysForCommand(cmd, keys);
320 for(i = 0; i < NUMKEYS; i++)
321 strlcat(ret, va(" \'%i\'", keys[i]), VM_STRINGTEMP_LENGTH);
323 PRVM_G_INT(OFS_RETURN) = PRVM_SetEngineString(ret);
328 VM_M_getserverliststat
330 float getserverliststat(float type)
335 0 serverlist_viewcount
336 1 serverlist_totalcount
344 void VM_M_getserverliststat( void )
347 VM_SAFEPARMCOUNT ( 1, VM_M_getserverliststat );
349 PRVM_G_FLOAT( OFS_RETURN ) = 0;
351 type = (int)PRVM_G_FLOAT( OFS_PARM0 );
355 PRVM_G_FLOAT ( OFS_RETURN ) = serverlist_viewcount;
358 PRVM_G_FLOAT ( OFS_RETURN ) = serverlist_cachecount;
360 PRVM_G_FLOAT ( OFS_RETURN ) = masterquerycount;
363 PRVM_G_FLOAT ( OFS_RETURN ) = masterreplycount;
366 PRVM_G_FLOAT ( OFS_RETURN ) = serverquerycount;
369 PRVM_G_FLOAT ( OFS_RETURN ) = serverreplycount;
372 PRVM_G_FLOAT ( OFS_RETURN ) = serverlist_sortbyfield;
375 PRVM_G_FLOAT ( OFS_RETURN ) = serverlist_sortdescending;
378 VM_Warning( "VM_M_getserverliststat: bad type %i!\n", type );
383 ========================
384 VM_M_resetserverlistmasks
386 resetserverlistmasks()
387 ========================
389 void VM_M_resetserverlistmasks( void )
391 ServerList_ResetMasks();
396 ========================
397 VM_M_setserverlistmaskstring
399 setserverlistmaskstring(float mask, float fld, string str, float op)
402 ========================
404 void VM_M_setserverlistmaskstring( void )
408 serverlist_mask_t *mask;
411 VM_SAFEPARMCOUNT( 4, VM_M_setserverlistmaskstring );
412 str = PRVM_G_STRING( OFS_PARM2 );
414 PRVM_ERROR( "VM_M_setserverlistmaskstring: null string passed!" );
416 masknr = (int)PRVM_G_FLOAT( OFS_PARM0 );
417 if( masknr >= 0 && masknr <= SERVERLIST_ANDMASKCOUNT )
418 mask = &serverlist_andmasks[masknr];
419 else if( masknr >= 512 && masknr - 512 <= SERVERLIST_ORMASKCOUNT )
420 mask = &serverlist_ormasks[masknr - 512 ];
423 VM_Warning( "VM_M_setserverlistmaskstring: invalid mask number %i\n", masknr );
427 field = (int) PRVM_G_FLOAT( OFS_PARM1 );
431 strlcpy( mask->info.cname, PRVM_G_STRING( OFS_PARM2 ), sizeof(mask->info.cname) );
434 strlcpy( mask->info.name, PRVM_G_STRING( OFS_PARM2 ), sizeof(mask->info.name) );
437 strlcpy( mask->info.map, PRVM_G_STRING( OFS_PARM2 ), sizeof(mask->info.map) );
440 strlcpy( mask->info.mod, PRVM_G_STRING( OFS_PARM2 ), sizeof(mask->info.mod) );
443 strlcpy( mask->info.game, PRVM_G_STRING( OFS_PARM2 ), sizeof(mask->info.game) );
446 VM_Warning( "VM_M_setserverlistmaskstring: Bad field number %i passed!\n", field );
451 mask->tests[field] = (serverlist_maskop_t)((int)PRVM_G_FLOAT( OFS_PARM3 ));
455 ========================
456 VM_M_setserverlistmasknumber
458 setserverlistmasknumber(float mask, float fld, float num, float op)
462 ========================
464 void VM_M_setserverlistmasknumber( void )
467 serverlist_mask_t *mask;
470 VM_SAFEPARMCOUNT( 4, VM_M_setserverlistmasknumber );
472 masknr = (int)PRVM_G_FLOAT( OFS_PARM0 );
473 if( masknr >= 0 && masknr <= SERVERLIST_ANDMASKCOUNT )
474 mask = &serverlist_andmasks[masknr];
475 else if( masknr >= 512 && masknr - 512 <= SERVERLIST_ORMASKCOUNT )
476 mask = &serverlist_ormasks[masknr - 512 ];
479 VM_Warning( "VM_M_setserverlistmasknumber: invalid mask number %i\n", masknr );
483 number = (int)PRVM_G_FLOAT( OFS_PARM2 );
484 field = (int) PRVM_G_FLOAT( OFS_PARM1 );
487 case SLIF_MAXPLAYERS:
488 mask->info.maxplayers = number;
490 case SLIF_NUMPLAYERS:
491 mask->info.numplayers = number;
494 mask->info.ping = number;
497 mask->info.protocol = number;
500 VM_Warning( "VM_M_setserverlistmasknumber: Bad field number %i passed!\n", field );
505 mask->tests[field] = (serverlist_maskop_t)((int)PRVM_G_FLOAT( OFS_PARM3 ));
510 ========================
511 VM_M_resortserverlist
514 ========================
516 void VM_M_resortserverlist( void )
518 ServerList_RebuildViewList();
523 VM_M_getserverliststring
525 string getserverliststring(float field, float hostnr)
528 void VM_M_getserverliststring(void)
530 serverlist_entry_t *cache;
533 VM_SAFEPARMCOUNT(2, VM_M_getserverliststring);
535 PRVM_G_INT(OFS_RETURN) = 0;
537 hostnr = (int)PRVM_G_FLOAT(OFS_PARM1);
539 if(hostnr < 0 || hostnr >= serverlist_viewcount)
541 Con_Print("VM_M_getserverliststring: bad hostnr passed!\n");
544 cache = serverlist_viewlist[hostnr];
545 switch( (int) PRVM_G_FLOAT(OFS_PARM0) ) {
547 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->info.cname );
550 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->info.name );
553 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->info.game );
556 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->info.mod );
559 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->info.map );
561 // TODO remove this again
563 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->line1 );
566 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->line2 );
569 Con_Print("VM_M_getserverliststring: bad field number passed!\n");
575 VM_M_getserverlistnumber
577 float getserverlistnumber(float field, float hostnr)
580 void VM_M_getserverlistnumber(void)
582 serverlist_entry_t *cache;
585 VM_SAFEPARMCOUNT(2, VM_M_getserverliststring);
587 PRVM_G_INT(OFS_RETURN) = 0;
589 hostnr = (int)PRVM_G_FLOAT(OFS_PARM1);
591 if(hostnr < 0 || hostnr >= serverlist_viewcount)
593 Con_Print("VM_M_getserverliststring: bad hostnr passed!\n");
596 cache = serverlist_viewlist[hostnr];
597 switch( (int) PRVM_G_FLOAT(OFS_PARM0) ) {
598 case SLIF_MAXPLAYERS:
599 PRVM_G_FLOAT( OFS_RETURN ) = cache->info.maxplayers;
601 case SLIF_NUMPLAYERS:
602 PRVM_G_FLOAT( OFS_RETURN ) = cache->info.numplayers;
605 PRVM_G_FLOAT( OFS_RETURN ) = cache->info.ping;
608 PRVM_G_FLOAT( OFS_RETURN ) = cache->info.protocol;
611 Con_Print("VM_M_getserverlistnumber: bad field number passed!\n");
616 ========================
617 VM_M_setserverlistsort
619 setserverlistsort(float field, float descending)
620 ========================
622 void VM_M_setserverlistsort( void )
624 VM_SAFEPARMCOUNT( 2, VM_M_setserverlistsort );
626 serverlist_sortbyfield = (serverlist_infofield_t)((int)PRVM_G_FLOAT( OFS_PARM0 ));
627 serverlist_sortdescending = (qboolean) PRVM_G_FLOAT( OFS_PARM1 );
631 ========================
632 VM_M_refreshserverlist
635 ========================
637 void VM_M_refreshserverlist( void )
639 VM_SAFEPARMCOUNT( 0, VM_M_refreshserverlist );
640 ServerList_QueryList(true, false);
644 ========================
645 VM_M_getserverlistindexforkey
647 float getserverlistindexforkey(string key)
648 ========================
650 void VM_M_getserverlistindexforkey( void )
653 VM_SAFEPARMCOUNT( 1, VM_M_getserverlistindexforkey );
655 key = PRVM_G_STRING( OFS_PARM0 );
656 VM_CheckEmptyString( key );
658 if( !strcmp( key, "cname" ) )
659 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_CNAME;
660 else if( !strcmp( key, "ping" ) )
661 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_PING;
662 else if( !strcmp( key, "game" ) )
663 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_GAME;
664 else if( !strcmp( key, "mod" ) )
665 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_MOD;
666 else if( !strcmp( key, "map" ) )
667 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_MAP;
668 else if( !strcmp( key, "name" ) )
669 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_NAME;
670 else if( !strcmp( key, "maxplayers" ) )
671 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_MAXPLAYERS;
672 else if( !strcmp( key, "numplayers" ) )
673 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_NUMPLAYERS;
674 else if( !strcmp( key, "protocol" ) )
675 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_PROTOCOL;
677 PRVM_G_FLOAT( OFS_RETURN ) = -1;
681 ========================
682 VM_M_addwantedserverlistkey
684 addwantedserverlistkey(string key)
685 ========================
687 void VM_M_addwantedserverlistkey( void )
689 VM_SAFEPARMCOUNT( 1, VM_M_addwantedserverlistkey );
693 ===============================================================================
696 used only for client and menu
697 severs uses VM_SV_...
699 Write*(* data, float type, float to)
701 ===============================================================================
704 #define MSG_BROADCAST 0 // unreliable to all
705 #define MSG_ONE 1 // reliable to one (msg_entity)
706 #define MSG_ALL 2 // reliable to all
707 #define MSG_INIT 3 // write to the init string
709 sizebuf_t *VM_WriteDest (void)
715 PRVM_ERROR("VM_WriteDest: game is not server (%s)", PRVM_NAME);
717 dest = (int)PRVM_G_FLOAT(OFS_PARM1);
724 destclient = (int) PRVM_G_FLOAT(OFS_PARM2);
725 if (destclient < 0 || destclient >= svs.maxclients || !svs.clients[destclient].active || !svs.clients[destclient].netconnection)
726 PRVM_ERROR("VM_clientcommand: %s: invalid client !", PRVM_NAME);
728 return &svs.clients[destclient].netconnection->message;
731 return &sv.reliable_datagram;
737 PRVM_ERROR ("WriteDest: bad destination");
744 void VM_M_WriteByte (void)
746 MSG_WriteByte (VM_WriteDest(), (int)PRVM_G_FLOAT(OFS_PARM0));
749 void VM_M_WriteChar (void)
751 MSG_WriteChar (VM_WriteDest(), (int)PRVM_G_FLOAT(OFS_PARM0));
754 void VM_M_WriteShort (void)
756 MSG_WriteShort (VM_WriteDest(), (int)PRVM_G_FLOAT(OFS_PARM0));
759 void VM_M_WriteLong (void)
761 MSG_WriteLong (VM_WriteDest(), (int)PRVM_G_FLOAT(OFS_PARM0));
764 void VM_M_WriteAngle (void)
766 MSG_WriteAngle (VM_WriteDest(), PRVM_G_FLOAT(OFS_PARM0), sv.protocol);
769 void VM_M_WriteCoord (void)
771 MSG_WriteCoord (VM_WriteDest(), PRVM_G_FLOAT(OFS_PARM0), sv.protocol);
774 void VM_M_WriteString (void)
776 MSG_WriteString (VM_WriteDest(), PRVM_G_STRING(OFS_PARM0));
779 void VM_M_WriteEntity (void)
781 MSG_WriteShort (VM_WriteDest(), PRVM_G_EDICTNUM(OFS_PARM0));
784 prvm_builtin_t vm_m_builtins[] = {
785 0, // to be consistent with the old vm
786 // common builtings (mostly)
863 VM_search_getfilename, // 77
875 VM_cvar_defstring, // 89
889 VM_M_WriteEntity, // 408
905 VM_drawresetcliparea,
906 VM_getimagesize,// 460
911 VM_cin_restart, // 465
914 VM_asin, // #471 float(float s) VM_asin (DP_QC_ASINACOSATANATAN2TAN)
915 VM_acos, // #472 float(float c) VM_acos (DP_QC_ASINACOSATANATAN2TAN)
916 VM_atan, // #473 float(float t) VM_atan (DP_QC_ASINACOSATANATAN2TAN)
917 VM_atan2, // #474 float(float c, float s) VM_atan2 (DP_QC_ASINACOSATANATAN2TAN)
918 VM_tan, // #475 float(float a) VM_tan (DP_QC_ASINACOSATANATAN2TAN)
933 VM_M_findkeysforcommand,// 610
934 VM_M_getserverliststat,
935 VM_M_getserverliststring,
938 VM_M_resetserverlistmasks,
939 VM_M_setserverlistmaskstring,
940 VM_M_setserverlistmasknumber,
941 VM_M_resortserverlist,
942 VM_M_setserverlistsort,
943 VM_M_refreshserverlist,
944 VM_M_getserverlistnumber,
945 VM_M_getserverlistindexforkey,
946 VM_M_addwantedserverlistkey // 623
949 const int vm_m_numbuiltins = sizeof(vm_m_builtins) / sizeof(prvm_builtin_t);
951 void VM_M_Cmd_Init(void)
956 void VM_M_Cmd_Reset(void)