3 //============================================================================
6 char *vm_m_extensions =
8 "DP_MENU_EXTRESPONSEPACKET "
9 "DP_QC_ASINACOSATANATAN2TAN "
10 "DP_QC_STRINGCOLORFUNCTIONS "
11 "DP_QC_UNLIMITEDTEMPSTRINGS";
17 string precache_file(string)
20 void VM_M_precache_file (void)
21 { // precache_file is only used to copy files with qcc, it does nothing
22 VM_SAFEPARMCOUNT(1,VM_precache_file);
24 PRVM_G_INT(OFS_RETURN) = PRVM_G_INT(OFS_PARM0);
31 used instead of the other VM_precache_* functions in the builtin list
35 void VM_M_precache_error (void)
37 PRVM_ERROR ("PF_Precache_*: Precache can only be done in spawn functions");
44 string precache_sound (string sample)
47 void VM_M_precache_sound (void)
51 VM_SAFEPARMCOUNT(1, VM_precache_sound);
53 s = PRVM_G_STRING(OFS_PARM0);
54 PRVM_G_INT(OFS_RETURN) = PRVM_G_INT(OFS_PARM0);
55 VM_CheckEmptyString (s);
57 if(snd_initialized.integer && !S_PrecacheSound (s,true, true))
59 VM_Warning("VM_precache_sound: Failed to load %s for %s\n", s, PRVM_NAME);
68 setmousetarget(float target)
71 void VM_M_setmousetarget(void)
73 VM_SAFEPARMCOUNT(1, VM_M_setmousetarget);
75 switch((int)PRVM_G_FLOAT(OFS_PARM0))
78 in_client_mouse = false;
81 in_client_mouse = true;
84 PRVM_ERROR("VM_M_setmousetarget: wrong destination %f !",PRVM_G_FLOAT(OFS_PARM0));
95 void VM_M_getmousetarget(void)
97 VM_SAFEPARMCOUNT(0,VM_M_getmousetarget);
100 PRVM_G_FLOAT(OFS_RETURN) = 2;
102 PRVM_G_FLOAT(OFS_RETURN) = 1;
111 setkeydest(float dest)
114 void VM_M_setkeydest(void)
116 VM_SAFEPARMCOUNT(1,VM_M_setkeydest);
118 switch((int)PRVM_G_FLOAT(OFS_PARM0))
130 // key_dest = key_message
133 PRVM_ERROR("VM_M_setkeydest: wrong destination %f !", PRVM_G_FLOAT(OFS_PARM0));
144 void VM_M_getkeydest(void)
146 VM_SAFEPARMCOUNT(0,VM_M_getkeydest);
148 // key_game = 0, key_message = 1, key_menu = 2, unknown = 3
152 PRVM_G_FLOAT(OFS_RETURN) = 0;
155 PRVM_G_FLOAT(OFS_RETURN) = 2;
159 // PRVM_G_FLOAT(OFS_RETURN) = 1;
162 PRVM_G_FLOAT(OFS_RETURN) = 3;
170 callfunction(...,string function_name)
174 mfunction_t *PRVM_ED_FindFunction (const char *name);
175 void VM_M_callfunction(void)
181 PRVM_ERROR("VM_M_callfunction: 1 parameter is required !");
183 s = PRVM_G_STRING(OFS_PARM0 + (prog->argc - 1));
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);
226 VM_CheckEmptyString(s);
228 func = PRVM_ED_FindFunction(s);
231 PRVM_G_FLOAT(OFS_RETURN) = false;
233 PRVM_G_FLOAT(OFS_RETURN) = true;
240 writetofile(float fhandle, entity ent)
243 void VM_M_writetofile(void)
248 VM_SAFEPARMCOUNT(2, VM_M_writetofile);
250 file = VM_GetFileHandle( (int)PRVM_G_FLOAT(OFS_PARM0) );
253 VM_Warning("VM_M_writetofile: invalid or closed file handle\n");
257 ent = PRVM_G_EDICT(OFS_PARM1);
258 if(ent->priv.required->free)
260 VM_Warning("VM_M_writetofile: %s: entity %i is free !\n", PRVM_NAME, PRVM_NUM_FOR_EDICT(ent));
264 PRVM_ED_Write (file, ent);
271 vector getresolution(float number)
274 extern unsigned short video_resolutions[][2];
275 void VM_M_getresolution(void)
278 VM_SAFEPARMCOUNT(1, VM_getresolution);
280 nr = (int)PRVM_G_FLOAT(OFS_PARM0);
283 PRVM_G_VECTOR(OFS_RETURN)[0] = video_resolutions[nr][0];
284 PRVM_G_VECTOR(OFS_RETURN)[1] = video_resolutions[nr][1];
285 PRVM_G_VECTOR(OFS_RETURN)[2] = 0;
290 VM_M_findkeysforcommand
292 string findkeysforcommand(string command)
294 the returned string is an altstring
297 #define NUMKEYS 5 // TODO: merge the constant in keys.c with this one somewhen
299 void M_FindKeysForCommand(const char *command, int *keys);
300 void VM_M_findkeysforcommand(void)
303 char ret[VM_STRINGTEMP_LENGTH];
307 VM_SAFEPARMCOUNT(1, VM_M_findkeysforcommand);
309 cmd = PRVM_G_STRING(OFS_PARM0);
311 VM_CheckEmptyString(cmd);
313 M_FindKeysForCommand(cmd, keys);
316 for(i = 0; i < NUMKEYS; i++)
317 strlcat(ret, va(" \'%i\'", keys[i]), sizeof(ret));
319 PRVM_G_INT(OFS_RETURN) = PRVM_SetTempString(ret);
324 VM_M_getserverliststat
326 float getserverliststat(float type)
331 0 serverlist_viewcount
332 1 serverlist_totalcount
340 void VM_M_getserverliststat( void )
343 VM_SAFEPARMCOUNT ( 1, VM_M_getserverliststat );
345 PRVM_G_FLOAT( OFS_RETURN ) = 0;
347 type = (int)PRVM_G_FLOAT( OFS_PARM0 );
351 PRVM_G_FLOAT ( OFS_RETURN ) = serverlist_viewcount;
354 PRVM_G_FLOAT ( OFS_RETURN ) = serverlist_cachecount;
356 PRVM_G_FLOAT ( OFS_RETURN ) = masterquerycount;
359 PRVM_G_FLOAT ( OFS_RETURN ) = masterreplycount;
362 PRVM_G_FLOAT ( OFS_RETURN ) = serverquerycount;
365 PRVM_G_FLOAT ( OFS_RETURN ) = serverreplycount;
368 PRVM_G_FLOAT ( OFS_RETURN ) = serverlist_sortbyfield;
371 PRVM_G_FLOAT ( OFS_RETURN ) = serverlist_sortdescending;
374 VM_Warning( "VM_M_getserverliststat: bad type %i!\n", type );
379 ========================
380 VM_M_resetserverlistmasks
382 resetserverlistmasks()
383 ========================
385 void VM_M_resetserverlistmasks( void )
387 ServerList_ResetMasks();
392 ========================
393 VM_M_setserverlistmaskstring
395 setserverlistmaskstring(float mask, float fld, string str, float op)
398 ========================
400 void VM_M_setserverlistmaskstring( void )
404 serverlist_mask_t *mask;
407 VM_SAFEPARMCOUNT( 4, VM_M_setserverlistmaskstring );
408 str = PRVM_G_STRING( OFS_PARM2 );
410 masknr = (int)PRVM_G_FLOAT( OFS_PARM0 );
411 if( masknr >= 0 && masknr <= SERVERLIST_ANDMASKCOUNT )
412 mask = &serverlist_andmasks[masknr];
413 else if( masknr >= 512 && masknr - 512 <= SERVERLIST_ORMASKCOUNT )
414 mask = &serverlist_ormasks[masknr - 512 ];
417 VM_Warning( "VM_M_setserverlistmaskstring: invalid mask number %i\n", masknr );
421 field = (int) PRVM_G_FLOAT( OFS_PARM1 );
425 strlcpy( mask->info.cname, PRVM_G_STRING( OFS_PARM2 ), sizeof(mask->info.cname) );
428 strlcpy( mask->info.name, PRVM_G_STRING( OFS_PARM2 ), sizeof(mask->info.name) );
431 strlcpy( mask->info.map, PRVM_G_STRING( OFS_PARM2 ), sizeof(mask->info.map) );
434 strlcpy( mask->info.mod, PRVM_G_STRING( OFS_PARM2 ), sizeof(mask->info.mod) );
437 strlcpy( mask->info.game, PRVM_G_STRING( OFS_PARM2 ), sizeof(mask->info.game) );
440 VM_Warning( "VM_M_setserverlistmaskstring: Bad field number %i passed!\n", field );
445 mask->tests[field] = (serverlist_maskop_t)((int)PRVM_G_FLOAT( OFS_PARM3 ));
449 ========================
450 VM_M_setserverlistmasknumber
452 setserverlistmasknumber(float mask, float fld, float num, float op)
456 ========================
458 void VM_M_setserverlistmasknumber( void )
461 serverlist_mask_t *mask;
464 VM_SAFEPARMCOUNT( 4, VM_M_setserverlistmasknumber );
466 masknr = (int)PRVM_G_FLOAT( OFS_PARM0 );
467 if( masknr >= 0 && masknr <= SERVERLIST_ANDMASKCOUNT )
468 mask = &serverlist_andmasks[masknr];
469 else if( masknr >= 512 && masknr - 512 <= SERVERLIST_ORMASKCOUNT )
470 mask = &serverlist_ormasks[masknr - 512 ];
473 VM_Warning( "VM_M_setserverlistmasknumber: invalid mask number %i\n", masknr );
477 number = (int)PRVM_G_FLOAT( OFS_PARM2 );
478 field = (int) PRVM_G_FLOAT( OFS_PARM1 );
481 case SLIF_MAXPLAYERS:
482 mask->info.maxplayers = number;
484 case SLIF_NUMPLAYERS:
485 mask->info.numplayers = number;
488 mask->info.ping = number;
491 mask->info.protocol = number;
494 VM_Warning( "VM_M_setserverlistmasknumber: Bad field number %i passed!\n", field );
499 mask->tests[field] = (serverlist_maskop_t)((int)PRVM_G_FLOAT( OFS_PARM3 ));
504 ========================
505 VM_M_resortserverlist
508 ========================
510 void VM_M_resortserverlist( void )
512 ServerList_RebuildViewList();
517 VM_M_getserverliststring
519 string getserverliststring(float field, float hostnr)
522 void VM_M_getserverliststring(void)
524 serverlist_entry_t *cache;
527 VM_SAFEPARMCOUNT(2, VM_M_getserverliststring);
529 PRVM_G_INT(OFS_RETURN) = OFS_NULL;
531 hostnr = (int)PRVM_G_FLOAT(OFS_PARM1);
533 if(hostnr < 0 || hostnr >= serverlist_viewcount)
535 Con_Print("VM_M_getserverliststring: bad hostnr passed!\n");
538 cache = serverlist_viewlist[hostnr];
539 switch( (int) PRVM_G_FLOAT(OFS_PARM0) ) {
541 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->info.cname );
544 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->info.name );
547 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->info.game );
550 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->info.mod );
553 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->info.map );
555 // TODO remove this again
557 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->line1 );
560 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->line2 );
563 Con_Print("VM_M_getserverliststring: bad field number passed!\n");
569 VM_M_getserverlistnumber
571 float getserverlistnumber(float field, float hostnr)
574 void VM_M_getserverlistnumber(void)
576 serverlist_entry_t *cache;
579 VM_SAFEPARMCOUNT(2, VM_M_getserverliststring);
581 PRVM_G_INT(OFS_RETURN) = OFS_NULL;
583 hostnr = (int)PRVM_G_FLOAT(OFS_PARM1);
585 if(hostnr < 0 || hostnr >= serverlist_viewcount)
587 Con_Print("VM_M_getserverliststring: bad hostnr passed!\n");
590 cache = serverlist_viewlist[hostnr];
591 switch( (int) PRVM_G_FLOAT(OFS_PARM0) ) {
592 case SLIF_MAXPLAYERS:
593 PRVM_G_FLOAT( OFS_RETURN ) = cache->info.maxplayers;
595 case SLIF_NUMPLAYERS:
596 PRVM_G_FLOAT( OFS_RETURN ) = cache->info.numplayers;
599 PRVM_G_FLOAT( OFS_RETURN ) = cache->info.ping;
602 PRVM_G_FLOAT( OFS_RETURN ) = cache->info.protocol;
605 Con_Print("VM_M_getserverlistnumber: bad field number passed!\n");
610 ========================
611 VM_M_setserverlistsort
613 setserverlistsort(float field, float descending)
614 ========================
616 void VM_M_setserverlistsort( void )
618 VM_SAFEPARMCOUNT( 2, VM_M_setserverlistsort );
620 serverlist_sortbyfield = (serverlist_infofield_t)((int)PRVM_G_FLOAT( OFS_PARM0 ));
621 serverlist_sortdescending = (qboolean) PRVM_G_FLOAT( OFS_PARM1 );
625 ========================
626 VM_M_refreshserverlist
629 ========================
631 void VM_M_refreshserverlist( void )
633 VM_SAFEPARMCOUNT( 0, VM_M_refreshserverlist );
634 ServerList_QueryList(true, false);
638 ========================
639 VM_M_getserverlistindexforkey
641 float getserverlistindexforkey(string key)
642 ========================
644 void VM_M_getserverlistindexforkey( void )
647 VM_SAFEPARMCOUNT( 1, VM_M_getserverlistindexforkey );
649 key = PRVM_G_STRING( OFS_PARM0 );
650 VM_CheckEmptyString( key );
652 if( !strcmp( key, "cname" ) )
653 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_CNAME;
654 else if( !strcmp( key, "ping" ) )
655 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_PING;
656 else if( !strcmp( key, "game" ) )
657 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_GAME;
658 else if( !strcmp( key, "mod" ) )
659 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_MOD;
660 else if( !strcmp( key, "map" ) )
661 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_MAP;
662 else if( !strcmp( key, "name" ) )
663 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_NAME;
664 else if( !strcmp( key, "maxplayers" ) )
665 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_MAXPLAYERS;
666 else if( !strcmp( key, "numplayers" ) )
667 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_NUMPLAYERS;
668 else if( !strcmp( key, "protocol" ) )
669 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_PROTOCOL;
671 PRVM_G_FLOAT( OFS_RETURN ) = -1;
675 ========================
676 VM_M_addwantedserverlistkey
678 addwantedserverlistkey(string key)
679 ========================
681 void VM_M_addwantedserverlistkey( void )
683 VM_SAFEPARMCOUNT( 1, VM_M_addwantedserverlistkey );
687 ===============================================================================
690 used only for client and menu
691 severs uses VM_SV_...
693 Write*(* data, float type, float to)
695 ===============================================================================
698 #define MSG_BROADCAST 0 // unreliable to all
699 #define MSG_ONE 1 // reliable to one (msg_entity)
700 #define MSG_ALL 2 // reliable to all
701 #define MSG_INIT 3 // write to the init string
703 sizebuf_t *VM_WriteDest (void)
709 PRVM_ERROR("VM_WriteDest: game is not server (%s)", PRVM_NAME);
711 dest = (int)PRVM_G_FLOAT(OFS_PARM1);
718 destclient = (int) PRVM_G_FLOAT(OFS_PARM2);
719 if (destclient < 0 || destclient >= svs.maxclients || !svs.clients[destclient].active || !svs.clients[destclient].netconnection)
720 PRVM_ERROR("VM_clientcommand: %s: invalid client !", PRVM_NAME);
722 return &svs.clients[destclient].netconnection->message;
725 return &sv.reliable_datagram;
731 PRVM_ERROR ("WriteDest: bad destination");
738 void VM_M_WriteByte (void)
740 MSG_WriteByte (VM_WriteDest(), (int)PRVM_G_FLOAT(OFS_PARM0));
743 void VM_M_WriteChar (void)
745 MSG_WriteChar (VM_WriteDest(), (int)PRVM_G_FLOAT(OFS_PARM0));
748 void VM_M_WriteShort (void)
750 MSG_WriteShort (VM_WriteDest(), (int)PRVM_G_FLOAT(OFS_PARM0));
753 void VM_M_WriteLong (void)
755 MSG_WriteLong (VM_WriteDest(), (int)PRVM_G_FLOAT(OFS_PARM0));
758 void VM_M_WriteAngle (void)
760 MSG_WriteAngle (VM_WriteDest(), PRVM_G_FLOAT(OFS_PARM0), sv.protocol);
763 void VM_M_WriteCoord (void)
765 MSG_WriteCoord (VM_WriteDest(), PRVM_G_FLOAT(OFS_PARM0), sv.protocol);
768 void VM_M_WriteString (void)
770 MSG_WriteString (VM_WriteDest(), PRVM_G_STRING(OFS_PARM0));
773 void VM_M_WriteEntity (void)
775 MSG_WriteShort (VM_WriteDest(), PRVM_G_EDICTNUM(OFS_PARM0));
778 //string(void) getextresponse = #624; // returns the next extResponse packet that was sent to this client
779 void VM_M_getextresponse (void)
781 VM_SAFEPARMCOUNT(0,VM_argv);
783 if (net_extresponse_count <= 0)
784 PRVM_G_INT(OFS_RETURN) = OFS_NULL;
788 --net_extresponse_count;
789 first = (net_extresponse_last + NET_EXTRESPONSE_MAX - net_extresponse_count) % NET_EXTRESPONSE_MAX;
790 PRVM_G_INT(OFS_RETURN) = PRVM_SetEngineString(net_extresponse[first]);
794 prvm_builtin_t vm_m_builtins[] = {
795 0, // to be consistent with the old vm
796 // common builtings (mostly)
873 VM_search_getfilename, // 77
885 VM_cvar_defstring, // 89
899 VM_M_WriteEntity, // 408
915 VM_drawresetcliparea,
916 VM_getimagesize,// 460
921 VM_cin_restart, // 465
924 VM_asin, // #471 float(float s) VM_asin (DP_QC_ASINACOSATANATAN2TAN)
925 VM_acos, // #472 float(float c) VM_acos (DP_QC_ASINACOSATANATAN2TAN)
926 VM_atan, // #473 float(float t) VM_atan (DP_QC_ASINACOSATANATAN2TAN)
927 VM_atan2, // #474 float(float c, float s) VM_atan2 (DP_QC_ASINACOSATANATAN2TAN)
928 VM_tan, // #475 float(float a) VM_tan (DP_QC_ASINACOSATANATAN2TAN)
929 VM_strlennocol, // #476 float(string s) : DRESK - String Length (not counting color codes) (DP_QC_STRINGCOLORFUNCTIONS)
930 VM_strdecolorize, // #477 string(string s) : DRESK - Decolorized String (DP_QC_STRINGCOLORFUNCTIONS)
945 VM_M_findkeysforcommand,// 610
946 VM_M_getserverliststat,
947 VM_M_getserverliststring,
950 VM_M_resetserverlistmasks,
951 VM_M_setserverlistmaskstring,
952 VM_M_setserverlistmasknumber,
953 VM_M_resortserverlist,
954 VM_M_setserverlistsort,
955 VM_M_refreshserverlist,
956 VM_M_getserverlistnumber,
957 VM_M_getserverlistindexforkey,
958 VM_M_addwantedserverlistkey, // 623
962 const int vm_m_numbuiltins = sizeof(vm_m_builtins) / sizeof(prvm_builtin_t);
964 void VM_M_Cmd_Init(void)
969 void VM_M_Cmd_Reset(void)