3 //============================================================================
6 char *vm_m_extensions =
9 "DP_MENU_EXTRESPONSEPACKET "
10 "DP_QC_ASINACOSATANATAN2TAN "
12 "DP_QC_STRINGCOLORFUNCTIONS "
13 "DP_QC_UNLIMITEDTEMPSTRINGS";
19 setmousetarget(float target)
22 void VM_M_setmousetarget(void)
24 VM_SAFEPARMCOUNT(1, VM_M_setmousetarget);
26 switch((int)PRVM_G_FLOAT(OFS_PARM0))
29 in_client_mouse = false;
32 in_client_mouse = true;
35 PRVM_ERROR("VM_M_setmousetarget: wrong destination %f !",PRVM_G_FLOAT(OFS_PARM0));
46 void VM_M_getmousetarget(void)
48 VM_SAFEPARMCOUNT(0,VM_M_getmousetarget);
51 PRVM_G_FLOAT(OFS_RETURN) = 2;
53 PRVM_G_FLOAT(OFS_RETURN) = 1;
62 setkeydest(float dest)
65 void VM_M_setkeydest(void)
67 VM_SAFEPARMCOUNT(1,VM_M_setkeydest);
69 switch((int)PRVM_G_FLOAT(OFS_PARM0))
81 // key_dest = key_message
84 PRVM_ERROR("VM_M_setkeydest: wrong destination %f !", PRVM_G_FLOAT(OFS_PARM0));
95 void VM_M_getkeydest(void)
97 VM_SAFEPARMCOUNT(0,VM_M_getkeydest);
99 // key_game = 0, key_message = 1, key_menu = 2, unknown = 3
103 PRVM_G_FLOAT(OFS_RETURN) = 0;
106 PRVM_G_FLOAT(OFS_RETURN) = 2;
110 // PRVM_G_FLOAT(OFS_RETURN) = 1;
113 PRVM_G_FLOAT(OFS_RETURN) = 3;
121 callfunction(...,string function_name)
125 mfunction_t *PRVM_ED_FindFunction (const char *name);
126 void VM_M_callfunction(void)
131 VM_SAFEPARMCOUNTRANGE(1, 8, VM_M_callfunction);
133 s = PRVM_G_STRING(OFS_PARM0 + (prog->argc - 1));
135 VM_CheckEmptyString(s);
137 func = PRVM_ED_FindFunction(s);
140 PRVM_ERROR("VM_M_callfunciton: function %s not found !", s);
141 else if (func->first_statement < 0)
143 // negative statements are built in functions
144 int builtinnumber = -func->first_statement;
145 prog->xfunction->builtinsprofile++;
146 if (builtinnumber < prog->numbuiltins && prog->builtins[builtinnumber])
147 prog->builtins[builtinnumber]();
149 PRVM_ERROR("No such builtin #%i in %s", builtinnumber, PRVM_NAME);
151 else if(func - prog->functions > 0)
154 PRVM_ExecuteProgram(func - prog->functions,"");
163 float isfunction(string function_name)
166 mfunction_t *PRVM_ED_FindFunction (const char *name);
167 void VM_M_isfunction(void)
172 VM_SAFEPARMCOUNT(1, VM_M_isfunction);
174 s = PRVM_G_STRING(OFS_PARM0);
176 VM_CheckEmptyString(s);
178 func = PRVM_ED_FindFunction(s);
181 PRVM_G_FLOAT(OFS_RETURN) = false;
183 PRVM_G_FLOAT(OFS_RETURN) = true;
190 vector getresolution(float number)
193 extern unsigned short video_resolutions[][2];
194 void VM_M_getresolution(void)
197 VM_SAFEPARMCOUNT(1, VM_getresolution);
199 nr = (int)PRVM_G_FLOAT(OFS_PARM0);
202 PRVM_G_VECTOR(OFS_RETURN)[0] = video_resolutions[nr][0];
203 PRVM_G_VECTOR(OFS_RETURN)[1] = video_resolutions[nr][1];
204 PRVM_G_VECTOR(OFS_RETURN)[2] = 0;
209 VM_M_findkeysforcommand
211 string findkeysforcommand(string command)
213 the returned string is an altstring
216 #define NUMKEYS 5 // TODO: merge the constant in keys.c with this one somewhen
218 void M_FindKeysForCommand(const char *command, int *keys);
219 void VM_M_findkeysforcommand(void)
222 char ret[VM_STRINGTEMP_LENGTH];
226 VM_SAFEPARMCOUNT(1, VM_M_findkeysforcommand);
228 cmd = PRVM_G_STRING(OFS_PARM0);
230 VM_CheckEmptyString(cmd);
232 M_FindKeysForCommand(cmd, keys);
235 for(i = 0; i < NUMKEYS; i++)
236 strlcat(ret, va(" \'%i\'", keys[i]), sizeof(ret));
238 PRVM_G_INT(OFS_RETURN) = PRVM_SetTempString(ret);
243 VM_M_getserverliststat
245 float getserverliststat(float type)
250 0 serverlist_viewcount
251 1 serverlist_totalcount
259 void VM_M_getserverliststat( void )
262 VM_SAFEPARMCOUNT ( 1, VM_M_getserverliststat );
264 PRVM_G_FLOAT( OFS_RETURN ) = 0;
266 type = (int)PRVM_G_FLOAT( OFS_PARM0 );
270 PRVM_G_FLOAT ( OFS_RETURN ) = serverlist_viewcount;
273 PRVM_G_FLOAT ( OFS_RETURN ) = serverlist_cachecount;
275 PRVM_G_FLOAT ( OFS_RETURN ) = masterquerycount;
278 PRVM_G_FLOAT ( OFS_RETURN ) = masterreplycount;
281 PRVM_G_FLOAT ( OFS_RETURN ) = serverquerycount;
284 PRVM_G_FLOAT ( OFS_RETURN ) = serverreplycount;
287 PRVM_G_FLOAT ( OFS_RETURN ) = serverlist_sortbyfield;
290 PRVM_G_FLOAT ( OFS_RETURN ) = serverlist_sortdescending;
293 VM_Warning( "VM_M_getserverliststat: bad type %i!\n", type );
298 ========================
299 VM_M_resetserverlistmasks
301 resetserverlistmasks()
302 ========================
304 void VM_M_resetserverlistmasks( void )
306 VM_SAFEPARMCOUNT(0, VM_M_resetserverlistmasks);
307 ServerList_ResetMasks();
312 ========================
313 VM_M_setserverlistmaskstring
315 setserverlistmaskstring(float mask, float fld, string str, float op)
318 ========================
320 void VM_M_setserverlistmaskstring( void )
324 serverlist_mask_t *mask;
327 VM_SAFEPARMCOUNT( 4, VM_M_setserverlistmaskstring );
328 str = PRVM_G_STRING( OFS_PARM2 );
330 masknr = (int)PRVM_G_FLOAT( OFS_PARM0 );
331 if( masknr >= 0 && masknr <= SERVERLIST_ANDMASKCOUNT )
332 mask = &serverlist_andmasks[masknr];
333 else if( masknr >= 512 && masknr - 512 <= SERVERLIST_ORMASKCOUNT )
334 mask = &serverlist_ormasks[masknr - 512 ];
337 VM_Warning( "VM_M_setserverlistmaskstring: invalid mask number %i\n", masknr );
341 field = (int) PRVM_G_FLOAT( OFS_PARM1 );
345 strlcpy( mask->info.cname, PRVM_G_STRING( OFS_PARM2 ), sizeof(mask->info.cname) );
348 strlcpy( mask->info.name, PRVM_G_STRING( OFS_PARM2 ), sizeof(mask->info.name) );
351 strlcpy( mask->info.map, PRVM_G_STRING( OFS_PARM2 ), sizeof(mask->info.map) );
354 strlcpy( mask->info.mod, PRVM_G_STRING( OFS_PARM2 ), sizeof(mask->info.mod) );
357 strlcpy( mask->info.game, PRVM_G_STRING( OFS_PARM2 ), sizeof(mask->info.game) );
360 VM_Warning( "VM_M_setserverlistmaskstring: Bad field number %i passed!\n", field );
365 mask->tests[field] = (serverlist_maskop_t)((int)PRVM_G_FLOAT( OFS_PARM3 ));
369 ========================
370 VM_M_setserverlistmasknumber
372 setserverlistmasknumber(float mask, float fld, float num, float op)
376 ========================
378 void VM_M_setserverlistmasknumber( void )
381 serverlist_mask_t *mask;
384 VM_SAFEPARMCOUNT( 4, VM_M_setserverlistmasknumber );
386 masknr = (int)PRVM_G_FLOAT( OFS_PARM0 );
387 if( masknr >= 0 && masknr <= SERVERLIST_ANDMASKCOUNT )
388 mask = &serverlist_andmasks[masknr];
389 else if( masknr >= 512 && masknr - 512 <= SERVERLIST_ORMASKCOUNT )
390 mask = &serverlist_ormasks[masknr - 512 ];
393 VM_Warning( "VM_M_setserverlistmasknumber: invalid mask number %i\n", masknr );
397 number = (int)PRVM_G_FLOAT( OFS_PARM2 );
398 field = (int) PRVM_G_FLOAT( OFS_PARM1 );
401 case SLIF_MAXPLAYERS:
402 mask->info.maxplayers = number;
404 case SLIF_NUMPLAYERS:
405 mask->info.numplayers = number;
408 mask->info.ping = number;
411 mask->info.protocol = number;
414 VM_Warning( "VM_M_setserverlistmasknumber: Bad field number %i passed!\n", field );
419 mask->tests[field] = (serverlist_maskop_t)((int)PRVM_G_FLOAT( OFS_PARM3 ));
424 ========================
425 VM_M_resortserverlist
428 ========================
430 void VM_M_resortserverlist( void )
432 VM_SAFEPARMCOUNT(0, VM_M_resortserverlist);
433 ServerList_RebuildViewList();
438 VM_M_getserverliststring
440 string getserverliststring(float field, float hostnr)
443 void VM_M_getserverliststring(void)
445 serverlist_entry_t *cache;
448 VM_SAFEPARMCOUNT(2, VM_M_getserverliststring);
450 PRVM_G_INT(OFS_RETURN) = OFS_NULL;
452 hostnr = (int)PRVM_G_FLOAT(OFS_PARM1);
454 if(hostnr < 0 || hostnr >= serverlist_viewcount)
456 Con_Print("VM_M_getserverliststring: bad hostnr passed!\n");
459 cache = serverlist_viewlist[hostnr];
460 switch( (int) PRVM_G_FLOAT(OFS_PARM0) ) {
462 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->info.cname );
465 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->info.name );
468 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->info.game );
471 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->info.mod );
474 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->info.map );
476 // TODO remove this again
478 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->line1 );
481 PRVM_G_INT( OFS_RETURN ) = PRVM_SetEngineString( cache->line2 );
484 Con_Print("VM_M_getserverliststring: bad field number passed!\n");
490 VM_M_getserverlistnumber
492 float getserverlistnumber(float field, float hostnr)
495 void VM_M_getserverlistnumber(void)
497 serverlist_entry_t *cache;
500 VM_SAFEPARMCOUNT(2, VM_M_getserverliststring);
502 PRVM_G_INT(OFS_RETURN) = OFS_NULL;
504 hostnr = (int)PRVM_G_FLOAT(OFS_PARM1);
506 if(hostnr < 0 || hostnr >= serverlist_viewcount)
508 Con_Print("VM_M_getserverliststring: bad hostnr passed!\n");
511 cache = serverlist_viewlist[hostnr];
512 switch( (int) PRVM_G_FLOAT(OFS_PARM0) ) {
513 case SLIF_MAXPLAYERS:
514 PRVM_G_FLOAT( OFS_RETURN ) = cache->info.maxplayers;
516 case SLIF_NUMPLAYERS:
517 PRVM_G_FLOAT( OFS_RETURN ) = cache->info.numplayers;
520 PRVM_G_FLOAT( OFS_RETURN ) = cache->info.ping;
523 PRVM_G_FLOAT( OFS_RETURN ) = cache->info.protocol;
526 Con_Print("VM_M_getserverlistnumber: bad field number passed!\n");
531 ========================
532 VM_M_setserverlistsort
534 setserverlistsort(float field, float descending)
535 ========================
537 void VM_M_setserverlistsort( void )
539 VM_SAFEPARMCOUNT( 2, VM_M_setserverlistsort );
541 serverlist_sortbyfield = (serverlist_infofield_t)((int)PRVM_G_FLOAT( OFS_PARM0 ));
542 serverlist_sortdescending = (qboolean) PRVM_G_FLOAT( OFS_PARM1 );
546 ========================
547 VM_M_refreshserverlist
550 ========================
552 void VM_M_refreshserverlist( void )
554 VM_SAFEPARMCOUNT( 0, VM_M_refreshserverlist );
555 ServerList_QueryList(true, false);
559 ========================
560 VM_M_getserverlistindexforkey
562 float getserverlistindexforkey(string key)
563 ========================
565 void VM_M_getserverlistindexforkey( void )
568 VM_SAFEPARMCOUNT( 1, VM_M_getserverlistindexforkey );
570 key = PRVM_G_STRING( OFS_PARM0 );
571 VM_CheckEmptyString( key );
573 if( !strcmp( key, "cname" ) )
574 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_CNAME;
575 else if( !strcmp( key, "ping" ) )
576 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_PING;
577 else if( !strcmp( key, "game" ) )
578 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_GAME;
579 else if( !strcmp( key, "mod" ) )
580 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_MOD;
581 else if( !strcmp( key, "map" ) )
582 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_MAP;
583 else if( !strcmp( key, "name" ) )
584 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_NAME;
585 else if( !strcmp( key, "maxplayers" ) )
586 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_MAXPLAYERS;
587 else if( !strcmp( key, "numplayers" ) )
588 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_NUMPLAYERS;
589 else if( !strcmp( key, "protocol" ) )
590 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_PROTOCOL;
592 PRVM_G_FLOAT( OFS_RETURN ) = -1;
596 ========================
597 VM_M_addwantedserverlistkey
599 addwantedserverlistkey(string key)
600 ========================
602 void VM_M_addwantedserverlistkey( void )
604 VM_SAFEPARMCOUNT( 1, VM_M_addwantedserverlistkey );
608 ===============================================================================
611 used only for client and menu
612 server uses VM_SV_...
614 Write*(* data, float type, float to)
616 ===============================================================================
619 #define MSG_BROADCAST 0 // unreliable to all
620 #define MSG_ONE 1 // reliable to one (msg_entity)
621 #define MSG_ALL 2 // reliable to all
622 #define MSG_INIT 3 // write to the init string
624 sizebuf_t *VM_M_WriteDest (void)
630 PRVM_ERROR("VM_M_WriteDest: game is not server (%s)", PRVM_NAME);
632 dest = (int)PRVM_G_FLOAT(OFS_PARM1);
639 destclient = (int) PRVM_G_FLOAT(OFS_PARM2);
640 if (destclient < 0 || destclient >= svs.maxclients || !svs.clients[destclient].active || !svs.clients[destclient].netconnection)
641 PRVM_ERROR("VM_clientcommand: %s: invalid client !", PRVM_NAME);
643 return &svs.clients[destclient].netconnection->message;
646 return &sv.reliable_datagram;
652 PRVM_ERROR ("WriteDest: bad destination");
659 void VM_M_WriteByte (void)
661 VM_SAFEPARMCOUNT(1, VM_M_WriteByte);
662 MSG_WriteByte (VM_M_WriteDest(), (int)PRVM_G_FLOAT(OFS_PARM0));
665 void VM_M_WriteChar (void)
667 VM_SAFEPARMCOUNT(1, VM_M_WriteChar);
668 MSG_WriteChar (VM_M_WriteDest(), (int)PRVM_G_FLOAT(OFS_PARM0));
671 void VM_M_WriteShort (void)
673 VM_SAFEPARMCOUNT(1, VM_M_WriteShort);
674 MSG_WriteShort (VM_M_WriteDest(), (int)PRVM_G_FLOAT(OFS_PARM0));
677 void VM_M_WriteLong (void)
679 VM_SAFEPARMCOUNT(1, VM_M_WriteLong);
680 MSG_WriteLong (VM_M_WriteDest(), (int)PRVM_G_FLOAT(OFS_PARM0));
683 void VM_M_WriteAngle (void)
685 VM_SAFEPARMCOUNT(1, VM_M_WriteAngle);
686 MSG_WriteAngle (VM_M_WriteDest(), PRVM_G_FLOAT(OFS_PARM0), sv.protocol);
689 void VM_M_WriteCoord (void)
691 VM_SAFEPARMCOUNT(1, VM_M_WriteCoord);
692 MSG_WriteCoord (VM_M_WriteDest(), PRVM_G_FLOAT(OFS_PARM0), sv.protocol);
695 void VM_M_WriteString (void)
697 VM_SAFEPARMCOUNT(1, VM_M_WriteString);
698 MSG_WriteString (VM_M_WriteDest(), PRVM_G_STRING(OFS_PARM0));
701 void VM_M_WriteEntity (void)
703 VM_SAFEPARMCOUNT(1, VM_M_WriteEntity);
704 MSG_WriteShort (VM_M_WriteDest(), PRVM_G_EDICTNUM(OFS_PARM0));
707 //string(void) getextresponse = #624; // returns the next extResponse packet that was sent to this client
708 void VM_M_getextresponse (void)
710 VM_SAFEPARMCOUNT(0,VM_argv);
712 if (net_extresponse_count <= 0)
713 PRVM_G_INT(OFS_RETURN) = OFS_NULL;
717 --net_extresponse_count;
718 first = (net_extresponse_last + NET_EXTRESPONSE_MAX - net_extresponse_count) % NET_EXTRESPONSE_MAX;
719 PRVM_G_INT(OFS_RETURN) = PRVM_SetEngineString(net_extresponse[first]);
727 copies data from one entity to another
729 copyentity(entity src, entity dst)
732 static void VM_M_copyentity (void)
734 prvm_edict_t *in, *out;
735 VM_SAFEPARMCOUNT(2,VM_M_copyentity);
736 in = PRVM_G_EDICT(OFS_PARM0);
737 out = PRVM_G_EDICT(OFS_PARM1);
738 memcpy(out->fields.vp, in->fields.vp, prog->progs->entityfields * 4);
741 prvm_builtin_t vm_m_builtins[] = {
742 NULL, // #0 NULL function (not callable)
743 VM_checkextension, // #1
749 VM_centerprint, // #7
753 VM_vectoangles, // #11
769 VM_findchainfloat, // #27
770 VM_precache_file, // #28
771 VM_precache_sound, // #29
784 VM_registercvar, // #42
789 VM_M_copyentity, // #47
803 VM_clientcount, // #61
804 VM_clientstate, // #62
806 VM_changelevel, // #64
807 VM_localsound, // #65
808 VM_getmousepos, // #66
810 VM_loadfromdata, // #68
811 VM_loadfromfile, // #69
813 VM_cvar_string, // #71
816 VM_search_begin, // #74
817 VM_search_end, // #75
818 VM_search_getsize, // #76
819 VM_search_getfilename, // #77
823 VM_itof, // #81 isString
824 VM_altstr_count, // #82
825 VM_altstr_prepare, // #83
826 VM_altstr_get, // #84
827 VM_altstr_set, // #85
828 VM_altstr_ins, // #86
830 VM_findchainflags, // #88
831 VM_cvar_defstring, // #89
1143 VM_M_WriteByte, // #401
1144 VM_M_WriteChar, // #402
1145 VM_M_WriteShort, // #403
1146 VM_M_WriteLong, // #404
1147 VM_M_WriteAngle, // #405
1148 VM_M_WriteCoord, // #406
1149 VM_M_WriteString, // #407
1150 VM_M_WriteEntity, // #408
1193 VM_iscachedpic, // #451 draw functions...
1194 VM_precache_pic, // #452
1196 VM_drawcharacter, // #454
1197 VM_drawstring, // #455
1199 VM_drawfill, // #457
1200 VM_drawsetcliparea, // #458
1201 VM_drawresetcliparea, // #459
1202 VM_getimagesize, // #460
1203 VM_cin_open, // #461
1204 VM_cin_close, // #462
1205 VM_cin_setstate, // #463
1206 VM_cin_getstate, // #464
1207 VM_cin_restart, // #465
1208 VM_drawline, // #466
1213 VM_asin, // #471 float(float s) VM_asin (DP_QC_ASINACOSATANATAN2TAN)
1214 VM_acos, // #472 float(float c) VM_acos (DP_QC_ASINACOSATANATAN2TAN)
1215 VM_atan, // #473 float(float t) VM_atan (DP_QC_ASINACOSATANATAN2TAN)
1216 VM_atan2, // #474 float(float c, float s) VM_atan2 (DP_QC_ASINACOSATANATAN2TAN)
1217 VM_tan, // #475 float(float a) VM_tan (DP_QC_ASINACOSATANATAN2TAN)
1218 VM_strlennocol, // #476 float(string s) : DRESK - String Length (not counting color codes) (DP_QC_STRINGCOLORFUNCTIONS)
1219 VM_strdecolorize, // #477 string(string s) : DRESK - Decolorized String (DP_QC_STRINGCOLORFUNCTIONS)
1220 VM_strftime, // #478 string(float uselocaltime, string format, ...) (DP_QC_STRFTIME)
1343 VM_M_setkeydest, // #601 menu functions...
1344 VM_M_getkeydest, // #602
1345 VM_M_setmousetarget, // #603
1346 VM_M_getmousetarget, // #604
1347 VM_M_callfunction, // #605
1348 VM_writetofile, // #606
1349 VM_M_isfunction, // #607
1350 VM_M_getresolution, // #608
1351 VM_keynumtostring, // #609
1352 VM_M_findkeysforcommand, // #610
1353 VM_M_getserverliststat, // #611
1354 VM_M_getserverliststring, // #612
1355 VM_parseentitydata, // #613
1356 VM_stringtokeynum, // #614
1357 VM_M_resetserverlistmasks, // #615
1358 VM_M_setserverlistmaskstring,// #616
1359 VM_M_setserverlistmasknumber,// #617
1360 VM_M_resortserverlist, // #618
1361 VM_M_setserverlistsort, // #619
1362 VM_M_refreshserverlist, // #620
1363 VM_M_getserverlistnumber, // #621
1364 VM_M_getserverlistindexforkey,// #622
1365 VM_M_addwantedserverlistkey,// #623
1366 VM_M_getextresponse // #624
1369 const int vm_m_numbuiltins = sizeof(vm_m_builtins) / sizeof(prvm_builtin_t);
1371 void VM_M_Cmd_Init(void)
1376 void VM_M_Cmd_Reset(void)