3 //============================================================================
6 char *vm_m_extensions =
9 "DP_MENU_EXTRESPONSEPACKET "
10 "DP_QC_ASINACOSATANATAN2TAN "
11 "DP_QC_STRINGCOLORFUNCTIONS "
12 "DP_QC_UNLIMITEDTEMPSTRINGS";
18 string precache_file(string)
21 void VM_M_precache_file (void)
22 { // precache_file is only used to copy files with qcc, it does nothing
23 VM_SAFEPARMCOUNT(1,VM_precache_file);
25 PRVM_G_INT(OFS_RETURN) = PRVM_G_INT(OFS_PARM0);
32 used instead of the other VM_precache_* functions in the builtin list
36 void VM_M_precache_error (void)
38 PRVM_ERROR ("PF_Precache_*: Precache can only be done in spawn functions");
45 string precache_sound (string sample)
48 void VM_M_precache_sound (void)
52 VM_SAFEPARMCOUNT(1, VM_precache_sound);
54 s = PRVM_G_STRING(OFS_PARM0);
55 PRVM_G_INT(OFS_RETURN) = PRVM_G_INT(OFS_PARM0);
56 VM_CheckEmptyString (s);
58 if(snd_initialized.integer && !S_PrecacheSound (s,true, true))
60 VM_Warning("VM_precache_sound: Failed to load %s for %s\n", s, PRVM_NAME);
69 setmousetarget(float target)
72 void VM_M_setmousetarget(void)
74 VM_SAFEPARMCOUNT(1, VM_M_setmousetarget);
76 switch((int)PRVM_G_FLOAT(OFS_PARM0))
79 in_client_mouse = false;
82 in_client_mouse = true;
85 PRVM_ERROR("VM_M_setmousetarget: wrong destination %f !",PRVM_G_FLOAT(OFS_PARM0));
96 void VM_M_getmousetarget(void)
98 VM_SAFEPARMCOUNT(0,VM_M_getmousetarget);
101 PRVM_G_FLOAT(OFS_RETURN) = 2;
103 PRVM_G_FLOAT(OFS_RETURN) = 1;
112 setkeydest(float dest)
115 void VM_M_setkeydest(void)
117 VM_SAFEPARMCOUNT(1,VM_M_setkeydest);
119 switch((int)PRVM_G_FLOAT(OFS_PARM0))
131 // key_dest = key_message
134 PRVM_ERROR("VM_M_setkeydest: wrong destination %f !", PRVM_G_FLOAT(OFS_PARM0));
145 void VM_M_getkeydest(void)
147 VM_SAFEPARMCOUNT(0,VM_M_getkeydest);
149 // key_game = 0, key_message = 1, key_menu = 2, unknown = 3
153 PRVM_G_FLOAT(OFS_RETURN) = 0;
156 PRVM_G_FLOAT(OFS_RETURN) = 2;
160 // PRVM_G_FLOAT(OFS_RETURN) = 1;
163 PRVM_G_FLOAT(OFS_RETURN) = 3;
171 callfunction(...,string function_name)
175 mfunction_t *PRVM_ED_FindFunction (const char *name);
176 void VM_M_callfunction(void)
182 PRVM_ERROR("VM_M_callfunction: 1 parameter is required !");
184 s = PRVM_G_STRING(OFS_PARM0 + (prog->argc - 1));
186 VM_CheckEmptyString(s);
188 func = PRVM_ED_FindFunction(s);
191 PRVM_ERROR("VM_M_callfunciton: function %s not found !", s);
192 else if (func->first_statement < 0)
194 // negative statements are built in functions
195 int builtinnumber = -func->first_statement;
196 prog->xfunction->builtinsprofile++;
197 if (builtinnumber < prog->numbuiltins && prog->builtins[builtinnumber])
198 prog->builtins[builtinnumber]();
200 PRVM_ERROR("No such builtin #%i in %s", builtinnumber, PRVM_NAME);
205 PRVM_ExecuteProgram(func - prog->functions,"");
214 float isfunction(string function_name)
217 mfunction_t *PRVM_ED_FindFunction (const char *name);
218 void VM_M_isfunction(void)
223 VM_SAFEPARMCOUNT(1, VM_M_isfunction);
225 s = PRVM_G_STRING(OFS_PARM0);
227 VM_CheckEmptyString(s);
229 func = PRVM_ED_FindFunction(s);
232 PRVM_G_FLOAT(OFS_RETURN) = false;
234 PRVM_G_FLOAT(OFS_RETURN) = true;
241 writetofile(float fhandle, entity ent)
244 void VM_M_writetofile(void)
249 VM_SAFEPARMCOUNT(2, VM_M_writetofile);
251 file = VM_GetFileHandle( (int)PRVM_G_FLOAT(OFS_PARM0) );
254 VM_Warning("VM_M_writetofile: invalid or closed file handle\n");
258 ent = PRVM_G_EDICT(OFS_PARM1);
259 if(ent->priv.required->free)
261 VM_Warning("VM_M_writetofile: %s: entity %i is free !\n", PRVM_NAME, PRVM_NUM_FOR_EDICT(ent));
265 PRVM_ED_Write (file, ent);
272 vector getresolution(float number)
275 extern unsigned short video_resolutions[][2];
276 void VM_M_getresolution(void)
279 VM_SAFEPARMCOUNT(1, VM_getresolution);
281 nr = (int)PRVM_G_FLOAT(OFS_PARM0);
284 PRVM_G_VECTOR(OFS_RETURN)[0] = video_resolutions[nr][0];
285 PRVM_G_VECTOR(OFS_RETURN)[1] = video_resolutions[nr][1];
286 PRVM_G_VECTOR(OFS_RETURN)[2] = 0;
291 VM_M_findkeysforcommand
293 string findkeysforcommand(string command)
295 the returned string is an altstring
298 #define NUMKEYS 5 // TODO: merge the constant in keys.c with this one somewhen
300 void M_FindKeysForCommand(const char *command, int *keys);
301 void VM_M_findkeysforcommand(void)
304 char ret[VM_STRINGTEMP_LENGTH];
308 VM_SAFEPARMCOUNT(1, VM_M_findkeysforcommand);
310 cmd = PRVM_G_STRING(OFS_PARM0);
312 VM_CheckEmptyString(cmd);
314 M_FindKeysForCommand(cmd, keys);
317 for(i = 0; i < NUMKEYS; i++)
318 strlcat(ret, va(" \'%i\'", keys[i]), sizeof(ret));
320 PRVM_G_INT(OFS_RETURN) = PRVM_SetTempString(ret);
325 VM_M_getserverliststat
327 float getserverliststat(float type)
332 0 serverlist_viewcount
333 1 serverlist_totalcount
341 void VM_M_getserverliststat( void )
344 VM_SAFEPARMCOUNT ( 1, VM_M_getserverliststat );
346 PRVM_G_FLOAT( OFS_RETURN ) = 0;
348 type = (int)PRVM_G_FLOAT( OFS_PARM0 );
352 PRVM_G_FLOAT ( OFS_RETURN ) = serverlist_viewcount;
355 PRVM_G_FLOAT ( OFS_RETURN ) = serverlist_cachecount;
357 PRVM_G_FLOAT ( OFS_RETURN ) = masterquerycount;
360 PRVM_G_FLOAT ( OFS_RETURN ) = masterreplycount;
363 PRVM_G_FLOAT ( OFS_RETURN ) = serverquerycount;
366 PRVM_G_FLOAT ( OFS_RETURN ) = serverreplycount;
369 PRVM_G_FLOAT ( OFS_RETURN ) = serverlist_sortbyfield;
372 PRVM_G_FLOAT ( OFS_RETURN ) = serverlist_sortdescending;
375 VM_Warning( "VM_M_getserverliststat: bad type %i!\n", type );
380 ========================
381 VM_M_resetserverlistmasks
383 resetserverlistmasks()
384 ========================
386 void VM_M_resetserverlistmasks( void )
388 ServerList_ResetMasks();
393 ========================
394 VM_M_setserverlistmaskstring
396 setserverlistmaskstring(float mask, float fld, string str, float op)
399 ========================
401 void VM_M_setserverlistmaskstring( void )
405 serverlist_mask_t *mask;
408 VM_SAFEPARMCOUNT( 4, VM_M_setserverlistmaskstring );
409 str = PRVM_G_STRING( OFS_PARM2 );
411 masknr = (int)PRVM_G_FLOAT( OFS_PARM0 );
412 if( masknr >= 0 && masknr <= SERVERLIST_ANDMASKCOUNT )
413 mask = &serverlist_andmasks[masknr];
414 else if( masknr >= 512 && masknr - 512 <= SERVERLIST_ORMASKCOUNT )
415 mask = &serverlist_ormasks[masknr - 512 ];
418 VM_Warning( "VM_M_setserverlistmaskstring: invalid mask number %i\n", masknr );
422 field = (int) PRVM_G_FLOAT( OFS_PARM1 );
426 strlcpy( mask->info.cname, PRVM_G_STRING( OFS_PARM2 ), sizeof(mask->info.cname) );
429 strlcpy( mask->info.name, PRVM_G_STRING( OFS_PARM2 ), sizeof(mask->info.name) );
432 strlcpy( mask->info.map, PRVM_G_STRING( OFS_PARM2 ), sizeof(mask->info.map) );
435 strlcpy( mask->info.mod, PRVM_G_STRING( OFS_PARM2 ), sizeof(mask->info.mod) );
438 strlcpy( mask->info.game, PRVM_G_STRING( OFS_PARM2 ), sizeof(mask->info.game) );
441 VM_Warning( "VM_M_setserverlistmaskstring: Bad field number %i passed!\n", field );
446 mask->tests[field] = (serverlist_maskop_t)((int)PRVM_G_FLOAT( OFS_PARM3 ));
450 ========================
451 VM_M_setserverlistmasknumber
453 setserverlistmasknumber(float mask, float fld, float num, float op)
457 ========================
459 void VM_M_setserverlistmasknumber( void )
462 serverlist_mask_t *mask;
465 VM_SAFEPARMCOUNT( 4, VM_M_setserverlistmasknumber );
467 masknr = (int)PRVM_G_FLOAT( OFS_PARM0 );
468 if( masknr >= 0 && masknr <= SERVERLIST_ANDMASKCOUNT )
469 mask = &serverlist_andmasks[masknr];
470 else if( masknr >= 512 && masknr - 512 <= SERVERLIST_ORMASKCOUNT )
471 mask = &serverlist_ormasks[masknr - 512 ];
474 VM_Warning( "VM_M_setserverlistmasknumber: invalid mask number %i\n", masknr );
478 number = (int)PRVM_G_FLOAT( OFS_PARM2 );
479 field = (int) PRVM_G_FLOAT( OFS_PARM1 );
482 case SLIF_MAXPLAYERS:
483 mask->info.maxplayers = number;
485 case SLIF_NUMPLAYERS:
486 mask->info.numplayers = number;
489 mask->info.ping = number;
492 mask->info.protocol = number;
495 VM_Warning( "VM_M_setserverlistmasknumber: Bad field number %i passed!\n", field );
500 mask->tests[field] = (serverlist_maskop_t)((int)PRVM_G_FLOAT( OFS_PARM3 ));
505 ========================
506 VM_M_resortserverlist
509 ========================
511 void VM_M_resortserverlist( void )
513 ServerList_RebuildViewList();
518 VM_M_getserverliststring
520 string getserverliststring(float field, float hostnr)
523 void VM_M_getserverliststring(void)
525 serverlist_entry_t *cache;
528 VM_SAFEPARMCOUNT(2, VM_M_getserverliststring);
530 PRVM_G_INT(OFS_RETURN) = OFS_NULL;
532 hostnr = (int)PRVM_G_FLOAT(OFS_PARM1);
534 if(hostnr < 0 || hostnr >= serverlist_viewcount)
536 Con_Print("VM_M_getserverliststring: bad hostnr passed!\n");
539 cache = serverlist_viewlist[hostnr];
540 switch( (int) PRVM_G_FLOAT(OFS_PARM0) ) {
542 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->info.cname );
545 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->info.name );
548 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->info.game );
551 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->info.mod );
554 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->info.map );
556 // TODO remove this again
558 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->line1 );
561 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->line2 );
564 Con_Print("VM_M_getserverliststring: bad field number passed!\n");
570 VM_M_getserverlistnumber
572 float getserverlistnumber(float field, float hostnr)
575 void VM_M_getserverlistnumber(void)
577 serverlist_entry_t *cache;
580 VM_SAFEPARMCOUNT(2, VM_M_getserverliststring);
582 PRVM_G_INT(OFS_RETURN) = OFS_NULL;
584 hostnr = (int)PRVM_G_FLOAT(OFS_PARM1);
586 if(hostnr < 0 || hostnr >= serverlist_viewcount)
588 Con_Print("VM_M_getserverliststring: bad hostnr passed!\n");
591 cache = serverlist_viewlist[hostnr];
592 switch( (int) PRVM_G_FLOAT(OFS_PARM0) ) {
593 case SLIF_MAXPLAYERS:
594 PRVM_G_FLOAT( OFS_RETURN ) = cache->info.maxplayers;
596 case SLIF_NUMPLAYERS:
597 PRVM_G_FLOAT( OFS_RETURN ) = cache->info.numplayers;
600 PRVM_G_FLOAT( OFS_RETURN ) = cache->info.ping;
603 PRVM_G_FLOAT( OFS_RETURN ) = cache->info.protocol;
606 Con_Print("VM_M_getserverlistnumber: bad field number passed!\n");
611 ========================
612 VM_M_setserverlistsort
614 setserverlistsort(float field, float descending)
615 ========================
617 void VM_M_setserverlistsort( void )
619 VM_SAFEPARMCOUNT( 2, VM_M_setserverlistsort );
621 serverlist_sortbyfield = (serverlist_infofield_t)((int)PRVM_G_FLOAT( OFS_PARM0 ));
622 serverlist_sortdescending = (qboolean) PRVM_G_FLOAT( OFS_PARM1 );
626 ========================
627 VM_M_refreshserverlist
630 ========================
632 void VM_M_refreshserverlist( void )
634 VM_SAFEPARMCOUNT( 0, VM_M_refreshserverlist );
635 ServerList_QueryList(true, false);
639 ========================
640 VM_M_getserverlistindexforkey
642 float getserverlistindexforkey(string key)
643 ========================
645 void VM_M_getserverlistindexforkey( void )
648 VM_SAFEPARMCOUNT( 1, VM_M_getserverlistindexforkey );
650 key = PRVM_G_STRING( OFS_PARM0 );
651 VM_CheckEmptyString( key );
653 if( !strcmp( key, "cname" ) )
654 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_CNAME;
655 else if( !strcmp( key, "ping" ) )
656 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_PING;
657 else if( !strcmp( key, "game" ) )
658 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_GAME;
659 else if( !strcmp( key, "mod" ) )
660 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_MOD;
661 else if( !strcmp( key, "map" ) )
662 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_MAP;
663 else if( !strcmp( key, "name" ) )
664 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_NAME;
665 else if( !strcmp( key, "maxplayers" ) )
666 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_MAXPLAYERS;
667 else if( !strcmp( key, "numplayers" ) )
668 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_NUMPLAYERS;
669 else if( !strcmp( key, "protocol" ) )
670 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_PROTOCOL;
672 PRVM_G_FLOAT( OFS_RETURN ) = -1;
676 ========================
677 VM_M_addwantedserverlistkey
679 addwantedserverlistkey(string key)
680 ========================
682 void VM_M_addwantedserverlistkey( void )
684 VM_SAFEPARMCOUNT( 1, VM_M_addwantedserverlistkey );
688 ===============================================================================
691 used only for client and menu
692 severs uses VM_SV_...
694 Write*(* data, float type, float to)
696 ===============================================================================
699 #define MSG_BROADCAST 0 // unreliable to all
700 #define MSG_ONE 1 // reliable to one (msg_entity)
701 #define MSG_ALL 2 // reliable to all
702 #define MSG_INIT 3 // write to the init string
704 sizebuf_t *VM_WriteDest (void)
710 PRVM_ERROR("VM_WriteDest: game is not server (%s)", PRVM_NAME);
712 dest = (int)PRVM_G_FLOAT(OFS_PARM1);
719 destclient = (int) PRVM_G_FLOAT(OFS_PARM2);
720 if (destclient < 0 || destclient >= svs.maxclients || !svs.clients[destclient].active || !svs.clients[destclient].netconnection)
721 PRVM_ERROR("VM_clientcommand: %s: invalid client !", PRVM_NAME);
723 return &svs.clients[destclient].netconnection->message;
726 return &sv.reliable_datagram;
732 PRVM_ERROR ("WriteDest: bad destination");
739 void VM_M_WriteByte (void)
741 MSG_WriteByte (VM_WriteDest(), (int)PRVM_G_FLOAT(OFS_PARM0));
744 void VM_M_WriteChar (void)
746 MSG_WriteChar (VM_WriteDest(), (int)PRVM_G_FLOAT(OFS_PARM0));
749 void VM_M_WriteShort (void)
751 MSG_WriteShort (VM_WriteDest(), (int)PRVM_G_FLOAT(OFS_PARM0));
754 void VM_M_WriteLong (void)
756 MSG_WriteLong (VM_WriteDest(), (int)PRVM_G_FLOAT(OFS_PARM0));
759 void VM_M_WriteAngle (void)
761 MSG_WriteAngle (VM_WriteDest(), PRVM_G_FLOAT(OFS_PARM0), sv.protocol);
764 void VM_M_WriteCoord (void)
766 MSG_WriteCoord (VM_WriteDest(), PRVM_G_FLOAT(OFS_PARM0), sv.protocol);
769 void VM_M_WriteString (void)
771 MSG_WriteString (VM_WriteDest(), PRVM_G_STRING(OFS_PARM0));
774 void VM_M_WriteEntity (void)
776 MSG_WriteShort (VM_WriteDest(), PRVM_G_EDICTNUM(OFS_PARM0));
779 //string(void) getextresponse = #624; // returns the next extResponse packet that was sent to this client
780 void VM_M_getextresponse (void)
782 VM_SAFEPARMCOUNT(0,VM_argv);
784 if (net_extresponse_count <= 0)
785 PRVM_G_INT(OFS_RETURN) = OFS_NULL;
789 --net_extresponse_count;
790 first = (net_extresponse_last + NET_EXTRESPONSE_MAX - net_extresponse_count) % NET_EXTRESPONSE_MAX;
791 PRVM_G_INT(OFS_RETURN) = PRVM_SetEngineString(net_extresponse[first]);
795 prvm_builtin_t vm_m_builtins[] = {
796 0, // to be consistent with the old vm
797 // common builtings (mostly)
874 VM_search_getfilename, // 77
886 VM_cvar_defstring, // 89
900 VM_M_WriteEntity, // 408
916 VM_drawresetcliparea,
917 VM_getimagesize,// 460
922 VM_cin_restart, // 465
925 VM_asin, // #471 float(float s) VM_asin (DP_QC_ASINACOSATANATAN2TAN)
926 VM_acos, // #472 float(float c) VM_acos (DP_QC_ASINACOSATANATAN2TAN)
927 VM_atan, // #473 float(float t) VM_atan (DP_QC_ASINACOSATANATAN2TAN)
928 VM_atan2, // #474 float(float c, float s) VM_atan2 (DP_QC_ASINACOSATANATAN2TAN)
929 VM_tan, // #475 float(float a) VM_tan (DP_QC_ASINACOSATANATAN2TAN)
930 VM_strlennocol, // #476 float(string s) : DRESK - String Length (not counting color codes) (DP_QC_STRINGCOLORFUNCTIONS)
931 VM_strdecolorize, // #477 string(string s) : DRESK - Decolorized String (DP_QC_STRINGCOLORFUNCTIONS)
946 VM_M_findkeysforcommand,// 610
947 VM_M_getserverliststat,
948 VM_M_getserverliststring,
951 VM_M_resetserverlistmasks,
952 VM_M_setserverlistmaskstring,
953 VM_M_setserverlistmasknumber,
954 VM_M_resortserverlist,
955 VM_M_setserverlistsort,
956 VM_M_refreshserverlist,
957 VM_M_getserverlistnumber,
958 VM_M_getserverlistindexforkey,
959 VM_M_addwantedserverlistkey, // 623
963 const int vm_m_numbuiltins = sizeof(vm_m_builtins) / sizeof(prvm_builtin_t);
965 void VM_M_Cmd_Init(void)
970 void VM_M_Cmd_Reset(void)