8 // TODO check which strings really should be engine strings
10 //============================================================================
13 const char *vm_m_extensions[] = {
20 "DP_GFX_FONTS_FREETYPE",
22 "DP_FONT_VARIABLEWIDTH",
23 "DP_MENU_EXTRESPONSEPACKET",
24 "DP_QC_ASINACOSATANATAN2TAN",
29 "DP_QC_CVAR_DESCRIPTION",
31 "DP_QC_DIGEST_SHA256",
32 "DP_QC_FINDCHAIN_TOFIELD",
38 "DP_QC_STRINGBUFFERS",
39 "DP_QC_STRINGBUFFERS_CVARLIST",
40 "DP_QC_STRINGBUFFERS_EXT_WIP",
41 "DP_QC_STRINGCOLORFUNCTIONS",
42 "DP_QC_STRING_CASE_FUNCTIONS",
44 "DP_QC_TOKENIZEBYSEPARATOR",
45 "DP_QC_TOKENIZE_CONSOLE",
46 "DP_QC_UNLIMITEDTEMPSTRINGS",
52 "DP_QC_FS_SEARCH_PACKFILE",
56 qbool MP_ConsoleCommand(const char *text)
58 prvm_prog_t *prog = MVM_prog;
59 return PRVM_ConsoleCommand(prog, text, &prog->funcoffsets.GameCommand, false, -1, 0, prog->loaded, "QC function GameCommand is missing");
66 setmousetarget(float target)
69 static void VM_M_setmousetarget(prvm_prog_t *prog)
71 VM_SAFEPARMCOUNT(1, VM_M_setmousetarget);
73 switch((int)PRVM_G_FLOAT(OFS_PARM0))
76 in_client_mouse = false;
79 in_client_mouse = true;
82 prog->error_cmd("VM_M_setmousetarget: wrong destination %f !",PRVM_G_FLOAT(OFS_PARM0));
93 static void VM_M_getmousetarget(prvm_prog_t *prog)
95 VM_SAFEPARMCOUNT(0,VM_M_getmousetarget);
98 PRVM_G_FLOAT(OFS_RETURN) = 2;
100 PRVM_G_FLOAT(OFS_RETURN) = 1;
109 setkeydest(float dest)
112 static void VM_M_setkeydest(prvm_prog_t *prog)
114 VM_SAFEPARMCOUNT(1,VM_M_setkeydest);
116 switch((int)PRVM_G_FLOAT(OFS_PARM0))
128 key_dest = key_menu_grabbed;
132 // key_dest = key_message
135 prog->error_cmd("VM_M_setkeydest: wrong destination %f !", PRVM_G_FLOAT(OFS_PARM0));
146 static void VM_M_getkeydest(prvm_prog_t *prog)
148 VM_SAFEPARMCOUNT(0,VM_M_getkeydest);
150 // key_game = 0, key_message = 1, key_menu = 2, key_menu_grabbed = 3, unknown = -1
154 PRVM_G_FLOAT(OFS_RETURN) = 0;
157 PRVM_G_FLOAT(OFS_RETURN) = 2;
159 case key_menu_grabbed:
160 PRVM_G_FLOAT(OFS_RETURN) = 3;
164 // PRVM_G_FLOAT(OFS_RETURN) = 1;
167 PRVM_G_FLOAT(OFS_RETURN) = -1;
176 vector getresolution(float number)
179 static void VM_M_getresolution(prvm_prog_t *prog)
182 VM_SAFEPARMCOUNTRANGE(1, 2, VM_M_getresolution);
184 nr = (int)PRVM_G_FLOAT(OFS_PARM0);
186 fs = ((prog->argc <= 1) || ((int)PRVM_G_FLOAT(OFS_PARM1)));
188 if(nr < -1 || nr >= (fs ? video_resolutions_count : video_resolutions_hardcoded_count))
190 PRVM_G_VECTOR(OFS_RETURN)[0] = 0;
191 PRVM_G_VECTOR(OFS_RETURN)[1] = 0;
192 PRVM_G_VECTOR(OFS_RETURN)[2] = 0;
196 vid_mode_t *m = VID_GetDesktopMode();
199 PRVM_G_VECTOR(OFS_RETURN)[0] = m->width;
200 PRVM_G_VECTOR(OFS_RETURN)[1] = m->height;
201 PRVM_G_VECTOR(OFS_RETURN)[2] = m->pixelheight_num / (prvm_vec_t) m->pixelheight_denom;
205 PRVM_G_VECTOR(OFS_RETURN)[0] = 0;
206 PRVM_G_VECTOR(OFS_RETURN)[1] = 0;
207 PRVM_G_VECTOR(OFS_RETURN)[2] = 0;
212 video_resolution_t *r = &((fs ? video_resolutions : video_resolutions_hardcoded)[nr]);
213 PRVM_G_VECTOR(OFS_RETURN)[0] = r->width;
214 PRVM_G_VECTOR(OFS_RETURN)[1] = r->height;
215 PRVM_G_VECTOR(OFS_RETURN)[2] = r->pixelheight;
219 static void VM_M_getgamedirinfo(prvm_prog_t *prog)
222 VM_SAFEPARMCOUNT(2, VM_getgamedirinfo);
224 nr = (int)PRVM_G_FLOAT(OFS_PARM0);
225 item = (int)PRVM_G_FLOAT(OFS_PARM1);
227 PRVM_G_INT( OFS_RETURN ) = OFS_NULL;
229 if(nr >= 0 && nr < fs_all_gamedirs_count)
232 PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString( prog, fs_all_gamedirs[nr].name );
234 PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString( prog, fs_all_gamedirs[nr].description );
240 VM_M_getserverliststat
242 float getserverliststat(float type)
247 0 serverlist_viewcount
248 1 serverlist_totalcount
256 static void VM_M_getserverliststat(prvm_prog_t *prog)
259 VM_SAFEPARMCOUNT ( 1, VM_M_getserverliststat );
261 PRVM_G_FLOAT( OFS_RETURN ) = 0;
263 type = (int)PRVM_G_FLOAT( OFS_PARM0 );
267 PRVM_G_FLOAT ( OFS_RETURN ) = serverlist_viewcount;
270 PRVM_G_FLOAT ( OFS_RETURN ) = serverlist_cachecount;
273 PRVM_G_FLOAT ( OFS_RETURN ) = masterquerycount;
276 PRVM_G_FLOAT ( OFS_RETURN ) = masterreplycount;
279 PRVM_G_FLOAT ( OFS_RETURN ) = serverquerycount;
282 PRVM_G_FLOAT ( OFS_RETURN ) = serverreplycount;
285 PRVM_G_FLOAT ( OFS_RETURN ) = serverlist_sortbyfield;
288 PRVM_G_FLOAT ( OFS_RETURN ) = serverlist_sortflags;
291 VM_Warning(prog, "VM_M_getserverliststat: bad type %i!\n", type );
296 ========================
297 VM_M_resetserverlistmasks
299 resetserverlistmasks()
300 ========================
302 static void VM_M_resetserverlistmasks(prvm_prog_t *prog)
304 VM_SAFEPARMCOUNT(0, VM_M_resetserverlistmasks);
305 ServerList_ResetMasks();
310 ========================
311 VM_M_setserverlistmaskstring
313 setserverlistmaskstring(float mask, float fld, string str, float op)
316 ========================
318 static void VM_M_setserverlistmaskstring(prvm_prog_t *prog)
322 serverlist_mask_t *mask;
325 VM_SAFEPARMCOUNT( 4, VM_M_setserverlistmaskstring );
326 str = PRVM_G_STRING( OFS_PARM2 );
328 masknr = (int)PRVM_G_FLOAT( OFS_PARM0 );
329 if( masknr >= 0 && masknr < SERVERLIST_ANDMASKCOUNT )
330 mask = &serverlist_andmasks[masknr];
331 else if( masknr >= 512 && masknr - 512 < SERVERLIST_ORMASKCOUNT )
332 mask = &serverlist_ormasks[masknr - 512 ];
335 VM_Warning(prog, "VM_M_setserverlistmaskstring: invalid mask number %i\n", masknr );
339 field = (int) PRVM_G_FLOAT( OFS_PARM1 );
343 strlcpy( mask->info.cname, str, sizeof(mask->info.cname) );
346 strlcpy( mask->info.name, str, sizeof(mask->info.name) );
349 strlcpy( mask->info.qcstatus, str, sizeof(mask->info.qcstatus) );
352 strlcpy( mask->info.players, str, sizeof(mask->info.players) );
355 strlcpy( mask->info.map, str, sizeof(mask->info.map) );
358 strlcpy( mask->info.mod, str, sizeof(mask->info.mod) );
361 strlcpy( mask->info.game, str, sizeof(mask->info.game) );
364 VM_Warning(prog, "VM_M_setserverlistmaskstring: Bad field number %i passed!\n", field );
369 mask->tests[field] = (serverlist_maskop_t)((int)PRVM_G_FLOAT( OFS_PARM3 ));
373 ========================
374 VM_M_setserverlistmasknumber
376 setserverlistmasknumber(float mask, float fld, float num, float op)
380 ========================
382 static void VM_M_setserverlistmasknumber(prvm_prog_t *prog)
385 serverlist_mask_t *mask;
388 VM_SAFEPARMCOUNT( 4, VM_M_setserverlistmasknumber );
390 masknr = (int)PRVM_G_FLOAT( OFS_PARM0 );
391 if( masknr >= 0 && masknr < SERVERLIST_ANDMASKCOUNT )
392 mask = &serverlist_andmasks[masknr];
393 else if( masknr >= 512 && masknr - 512 < SERVERLIST_ORMASKCOUNT )
394 mask = &serverlist_ormasks[masknr - 512 ];
397 VM_Warning(prog, "VM_M_setserverlistmasknumber: invalid mask number %i\n", masknr );
401 number = (int)PRVM_G_FLOAT( OFS_PARM2 );
402 field = (int) PRVM_G_FLOAT( OFS_PARM1 );
405 case SLIF_MAXPLAYERS:
406 mask->info.maxplayers = number;
408 case SLIF_NUMPLAYERS:
409 mask->info.numplayers = number;
412 mask->info.numbots = number;
415 mask->info.numhumans = number;
418 mask->info.ping = number;
421 mask->info.protocol = number;
424 mask->info.freeslots = number;
427 mask->info.category = number;
429 case SLIF_ISFAVORITE:
430 mask->info.isfavorite = number != 0;
433 VM_Warning(prog, "VM_M_setserverlistmasknumber: Bad field number %i passed!\n", field );
438 mask->tests[field] = (serverlist_maskop_t)((int)PRVM_G_FLOAT( OFS_PARM3 ));
443 ========================
444 VM_M_resortserverlist
447 ========================
449 static void VM_M_resortserverlist(prvm_prog_t *prog)
451 VM_SAFEPARMCOUNT(0, VM_M_resortserverlist);
452 ServerList_RebuildViewList();
457 VM_M_getserverliststring
459 string getserverliststring(float field, float hostnr)
462 static void VM_M_getserverliststring(prvm_prog_t *prog)
464 const serverlist_entry_t *cache;
467 VM_SAFEPARMCOUNT(2, VM_M_getserverliststring);
469 PRVM_G_INT(OFS_RETURN) = OFS_NULL;
471 hostnr = (int)PRVM_G_FLOAT(OFS_PARM1);
473 if(hostnr == -1 && serverlist_callbackentry)
475 cache = serverlist_callbackentry;
479 if(hostnr < 0 || hostnr >= serverlist_viewcount)
481 Con_Print("VM_M_getserverliststring: bad hostnr passed!\n");
484 cache = ServerList_GetViewEntry(hostnr);
486 switch( (int) PRVM_G_FLOAT(OFS_PARM0) ) {
488 PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString( prog, cache->info.cname );
491 PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString( prog, cache->info.name );
494 PRVM_G_INT (OFS_RETURN ) = PRVM_SetTempString( prog, cache->info.qcstatus );
497 PRVM_G_INT (OFS_RETURN ) = PRVM_SetTempString( prog, cache->info.players );
500 PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString( prog, cache->info.game );
503 PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString( prog, cache->info.mod );
506 PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString( prog, cache->info.map );
508 // TODO remove this again
510 PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString( prog, cache->line1 );
513 PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString( prog, cache->line2 );
516 Con_Print("VM_M_getserverliststring: bad field number passed!\n");
522 VM_M_getserverlistnumber
524 float getserverlistnumber(float field, float hostnr)
527 static void VM_M_getserverlistnumber(prvm_prog_t *prog)
529 const serverlist_entry_t *cache;
532 VM_SAFEPARMCOUNT(2, VM_M_getserverlistnumber);
534 PRVM_G_INT(OFS_RETURN) = OFS_NULL;
536 hostnr = (int)PRVM_G_FLOAT(OFS_PARM1);
538 if(hostnr == -1 && serverlist_callbackentry)
540 cache = serverlist_callbackentry;
544 if(hostnr < 0 || hostnr >= serverlist_viewcount)
546 Con_Print("VM_M_getserverliststring: bad hostnr passed!\n");
549 cache = ServerList_GetViewEntry(hostnr);
551 switch( (int) PRVM_G_FLOAT(OFS_PARM0) ) {
552 case SLIF_MAXPLAYERS:
553 PRVM_G_FLOAT( OFS_RETURN ) = cache->info.maxplayers;
555 case SLIF_NUMPLAYERS:
556 PRVM_G_FLOAT( OFS_RETURN ) = cache->info.numplayers;
559 PRVM_G_FLOAT( OFS_RETURN ) = cache->info.numbots;
562 PRVM_G_FLOAT( OFS_RETURN ) = cache->info.numhumans;
565 PRVM_G_FLOAT( OFS_RETURN ) = cache->info.freeslots;
568 PRVM_G_FLOAT( OFS_RETURN ) = cache->info.ping;
571 PRVM_G_FLOAT( OFS_RETURN ) = cache->info.protocol;
574 PRVM_G_FLOAT( OFS_RETURN ) = cache->info.category;
576 case SLIF_ISFAVORITE:
577 PRVM_G_FLOAT( OFS_RETURN ) = cache->info.isfavorite;
580 Con_Print("VM_M_getserverlistnumber: bad field number passed!\n");
585 ========================
586 VM_M_setserverlistsort
588 setserverlistsort(float field, float flags)
589 ========================
591 static void VM_M_setserverlistsort(prvm_prog_t *prog)
593 VM_SAFEPARMCOUNT( 2, VM_M_setserverlistsort );
595 serverlist_sortbyfield = (serverlist_infofield_t)((int)PRVM_G_FLOAT( OFS_PARM0 ));
596 serverlist_sortflags = (int) PRVM_G_FLOAT( OFS_PARM1 );
600 ========================
601 VM_M_refreshserverlist
604 ========================
606 static void VM_M_refreshserverlist(prvm_prog_t *prog)
608 qbool do_reset = false;
609 VM_SAFEPARMCOUNTRANGE( 0, 1, VM_M_refreshserverlist );
610 if (prog->argc >= 1 && PRVM_G_FLOAT(OFS_PARM0))
612 ServerList_QueryList(do_reset, true, false, false);
616 ========================
617 VM_M_getserverlistindexforkey
619 float getserverlistindexforkey(string key)
620 ========================
622 static void VM_M_getserverlistindexforkey(prvm_prog_t *prog)
625 VM_SAFEPARMCOUNT( 1, VM_M_getserverlistindexforkey );
627 key = PRVM_G_STRING( OFS_PARM0 );
628 VM_CheckEmptyString( prog, key );
630 if( !strcmp( key, "cname" ) )
631 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_CNAME;
632 else if( !strcmp( key, "ping" ) )
633 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_PING;
634 else if( !strcmp( key, "game" ) )
635 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_GAME;
636 else if( !strcmp( key, "mod" ) )
637 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_MOD;
638 else if( !strcmp( key, "map" ) )
639 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_MAP;
640 else if( !strcmp( key, "name" ) )
641 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_NAME;
642 else if( !strcmp( key, "qcstatus" ) )
643 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_QCSTATUS;
644 else if( !strcmp( key, "players" ) )
645 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_PLAYERS;
646 else if( !strcmp( key, "maxplayers" ) )
647 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_MAXPLAYERS;
648 else if( !strcmp( key, "numplayers" ) )
649 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_NUMPLAYERS;
650 else if( !strcmp( key, "numbots" ) )
651 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_NUMBOTS;
652 else if( !strcmp( key, "numhumans" ) )
653 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_NUMHUMANS;
654 else if( !strcmp( key, "freeslots" ) )
655 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_FREESLOTS;
656 else if( !strcmp( key, "protocol" ) )
657 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_PROTOCOL;
658 else if( !strcmp( key, "category" ) )
659 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_CATEGORY;
660 else if( !strcmp( key, "isfavorite" ) )
661 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_ISFAVORITE;
663 PRVM_G_FLOAT( OFS_RETURN ) = -1;
667 ========================
668 VM_M_addwantedserverlistkey
670 addwantedserverlistkey(string key)
671 ========================
673 static void VM_M_addwantedserverlistkey(prvm_prog_t *prog)
675 VM_SAFEPARMCOUNT( 1, VM_M_addwantedserverlistkey );
679 ===============================================================================
682 used only for client and menu
683 server uses VM_SV_...
685 Write*(* data, float type, float to)
687 ===============================================================================
690 #define MSG_BROADCAST 0 // unreliable to all
691 #define MSG_ONE 1 // reliable to one (msg_entity)
692 #define MSG_ALL 2 // reliable to all
693 #define MSG_INIT 3 // write to the init string
695 static sizebuf_t *VM_M_WriteDest (prvm_prog_t *prog)
701 prog->error_cmd("VM_M_WriteDest: game is not server (%s)", prog->name);
703 dest = (int)PRVM_G_FLOAT(OFS_PARM1);
710 destclient = (int) PRVM_G_FLOAT(OFS_PARM2);
711 if (destclient < 0 || destclient >= svs.maxclients || !svs.clients[destclient].active || !svs.clients[destclient].netconnection)
712 prog->error_cmd("VM_clientcommand: %s: invalid client !", prog->name);
714 return &svs.clients[destclient].netconnection->message;
717 return &sv.reliable_datagram;
723 prog->error_cmd("WriteDest: bad destination");
730 static void VM_M_WriteByte (prvm_prog_t *prog)
732 VM_SAFEPARMCOUNT(1, VM_M_WriteByte);
733 MSG_WriteByte (VM_M_WriteDest(prog), (int)PRVM_G_FLOAT(OFS_PARM0));
736 static void VM_M_WriteChar (prvm_prog_t *prog)
738 VM_SAFEPARMCOUNT(1, VM_M_WriteChar);
739 MSG_WriteChar (VM_M_WriteDest(prog), (int)PRVM_G_FLOAT(OFS_PARM0));
742 static void VM_M_WriteShort (prvm_prog_t *prog)
744 VM_SAFEPARMCOUNT(1, VM_M_WriteShort);
745 MSG_WriteShort (VM_M_WriteDest(prog), (int)PRVM_G_FLOAT(OFS_PARM0));
748 static void VM_M_WriteLong (prvm_prog_t *prog)
750 VM_SAFEPARMCOUNT(1, VM_M_WriteLong);
751 MSG_WriteLong (VM_M_WriteDest(prog), (int)PRVM_G_FLOAT(OFS_PARM0));
754 static void VM_M_WriteAngle (prvm_prog_t *prog)
756 VM_SAFEPARMCOUNT(1, VM_M_WriteAngle);
757 MSG_WriteAngle (VM_M_WriteDest(prog), PRVM_G_FLOAT(OFS_PARM0), sv.protocol);
760 static void VM_M_WriteCoord (prvm_prog_t *prog)
762 VM_SAFEPARMCOUNT(1, VM_M_WriteCoord);
763 MSG_WriteCoord (VM_M_WriteDest(prog), PRVM_G_FLOAT(OFS_PARM0), sv.protocol);
766 static void VM_M_WriteString (prvm_prog_t *prog)
768 VM_SAFEPARMCOUNT(1, VM_M_WriteString);
769 MSG_WriteString (VM_M_WriteDest(prog), PRVM_G_STRING(OFS_PARM0));
772 static void VM_M_WriteEntity (prvm_prog_t *prog)
774 VM_SAFEPARMCOUNT(1, VM_M_WriteEntity);
775 MSG_WriteShort (VM_M_WriteDest(prog), PRVM_G_EDICTNUM(OFS_PARM0));
782 copies data from one entity to another
784 copyentity(entity src, entity dst)
787 static void VM_M_copyentity (prvm_prog_t *prog)
789 prvm_edict_t *in, *out;
790 VM_SAFEPARMCOUNT(2,VM_M_copyentity);
791 in = PRVM_G_EDICT(OFS_PARM0);
792 out = PRVM_G_EDICT(OFS_PARM1);
793 memcpy(out->fields.fp, in->fields.fp, prog->entityfields * sizeof(prvm_vec_t));
796 //#66 vector() getmousepos (EXT_CSQC)
797 static void VM_M_getmousepos(prvm_prog_t *prog)
799 VM_SAFEPARMCOUNT(0,VM_M_getmousepos);
801 if (key_consoleactive || (key_dest != key_menu && key_dest != key_menu_grabbed))
802 VectorSet(PRVM_G_VECTOR(OFS_RETURN), 0, 0, 0);
803 else if (in_client_mouse)
804 VectorSet(PRVM_G_VECTOR(OFS_RETURN), in_windowmouse_x * vid_conwidth.integer / vid.width, in_windowmouse_y * vid_conheight.integer / vid.height, 0);
806 VectorSet(PRVM_G_VECTOR(OFS_RETURN), in_mouse_x * vid_conwidth.integer / vid.width, in_mouse_y * vid_conheight.integer / vid.height, 0);
809 static void VM_M_crypto_getkeyfp(prvm_prog_t *prog)
813 char keyfp[FP64_SIZE + 1];
815 VM_SAFEPARMCOUNT(1,VM_M_crypto_getkeyfp);
817 s = PRVM_G_STRING( OFS_PARM0 );
818 VM_CheckEmptyString( prog, s );
820 if(LHNETADDRESS_FromString(&addr, s, 26000) && Crypto_RetrieveHostKey(&addr, NULL, keyfp, sizeof(keyfp), NULL, 0, NULL, NULL))
821 PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString( prog, keyfp );
823 PRVM_G_INT( OFS_RETURN ) = OFS_NULL;
825 static void VM_M_crypto_getidfp(prvm_prog_t *prog)
829 char idfp[FP64_SIZE + 1];
831 VM_SAFEPARMCOUNT(1,VM_M_crypto_getidfp);
833 s = PRVM_G_STRING( OFS_PARM0 );
834 VM_CheckEmptyString( prog, s );
836 if(LHNETADDRESS_FromString(&addr, s, 26000) && Crypto_RetrieveHostKey(&addr, NULL, NULL, 0, idfp, sizeof(idfp), NULL, NULL))
837 PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString( prog, idfp );
839 PRVM_G_INT( OFS_RETURN ) = OFS_NULL;
841 static void VM_M_crypto_getidstatus(prvm_prog_t *prog)
847 VM_SAFEPARMCOUNT(1,VM_M_crypto_getidstatus);
849 s = PRVM_G_STRING( OFS_PARM0 );
850 VM_CheckEmptyString( prog, s );
852 if(LHNETADDRESS_FromString(&addr, s, 26000) && Crypto_RetrieveHostKey(&addr, NULL, NULL, 0, NULL, 0, NULL, &issigned))
853 PRVM_G_FLOAT( OFS_RETURN ) = issigned ? 2 : 1;
855 PRVM_G_FLOAT( OFS_RETURN ) = 0;
857 static void VM_M_crypto_getencryptlevel(prvm_prog_t *prog)
864 VM_SAFEPARMCOUNT(1,VM_M_crypto_getencryptlevel);
866 s = PRVM_G_STRING( OFS_PARM0 );
867 VM_CheckEmptyString( prog, s );
869 if(LHNETADDRESS_FromString(&addr, s, 26000) && Crypto_RetrieveHostKey(&addr, NULL, NULL, 0, NULL, 0, &aeslevel, NULL))
870 PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString(prog, aeslevel ? va(vabuf, sizeof(vabuf), "%d AES128", aeslevel) : "0");
872 PRVM_G_INT( OFS_RETURN ) = OFS_NULL;
874 static void VM_M_crypto_getmykeyfp(prvm_prog_t *prog)
877 char keyfp[FP64_SIZE + 1];
879 VM_SAFEPARMCOUNT(1, VM_M_crypto_getmykeyfp);
881 i = PRVM_G_FLOAT( OFS_PARM0 );
882 switch(Crypto_RetrieveLocalKey(i, keyfp, sizeof(keyfp), NULL, 0, NULL))
885 PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString(prog, "");
888 PRVM_G_INT( OFS_RETURN ) = OFS_NULL;
892 PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString(prog, keyfp);
896 static void VM_M_crypto_getmyidfp(prvm_prog_t *prog)
899 char idfp[FP64_SIZE + 1];
901 VM_SAFEPARMCOUNT(1, VM_M_crypto_getmyidfp);
903 i = PRVM_G_FLOAT( OFS_PARM0 );
904 switch(Crypto_RetrieveLocalKey(i, NULL, 0, idfp, sizeof(idfp), NULL))
907 PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString(prog, "");
910 PRVM_G_INT( OFS_RETURN ) = OFS_NULL;
914 PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString(prog, idfp);
918 static void VM_M_crypto_getmyidstatus(prvm_prog_t *prog)
923 VM_SAFEPARMCOUNT(1, VM_M_crypto_getmyidstatus);
925 i = PRVM_G_FLOAT( OFS_PARM0 );
926 switch(Crypto_RetrieveLocalKey(i, NULL, 0, NULL, 0, &issigned))
929 PRVM_G_FLOAT( OFS_RETURN ) = 0; // have no ID there
932 PRVM_G_FLOAT( OFS_RETURN ) = -1; // out of range
936 PRVM_G_FLOAT( OFS_RETURN ) = issigned ? 2 : 1;
941 // CL_Video interface functions
944 ========================
947 float cin_open(string file, string name)
948 ========================
950 void VM_cin_open(prvm_prog_t *prog)
955 VM_SAFEPARMCOUNT( 2, VM_cin_open );
957 file = PRVM_G_STRING( OFS_PARM0 );
958 name = PRVM_G_STRING( OFS_PARM1 );
960 VM_CheckEmptyString(prog, file );
961 VM_CheckEmptyString(prog, name );
963 if( CL_OpenVideo( file, name, MENUOWNER, "" ) )
964 PRVM_G_FLOAT( OFS_RETURN ) = 1;
966 PRVM_G_FLOAT( OFS_RETURN ) = 0;
970 ========================
973 void cin_close(string name)
974 ========================
976 void VM_cin_close(prvm_prog_t *prog)
980 VM_SAFEPARMCOUNT( 1, VM_cin_close );
982 name = PRVM_G_STRING( OFS_PARM0 );
983 VM_CheckEmptyString(prog, name );
985 CL_CloseVideo( CL_GetVideoByName( name ) );
989 ========================
991 void cin_setstate(string name, float type)
992 ========================
994 void VM_cin_setstate(prvm_prog_t *prog)
997 clvideostate_t state;
1000 VM_SAFEPARMCOUNT( 2, VM_cin_setstate );
1002 name = PRVM_G_STRING( OFS_PARM0 );
1003 VM_CheckEmptyString(prog, name );
1005 state = (clvideostate_t)((int)PRVM_G_FLOAT( OFS_PARM1 ));
1007 video = CL_GetVideoByName( name );
1008 if( video && state > CLVIDEO_UNUSED && state < CLVIDEO_STATECOUNT )
1009 CL_SetVideoState( video, state );
1013 ========================
1016 float cin_getstate(string name)
1017 ========================
1019 void VM_cin_getstate(prvm_prog_t *prog)
1024 VM_SAFEPARMCOUNT( 1, VM_cin_getstate );
1026 name = PRVM_G_STRING( OFS_PARM0 );
1027 VM_CheckEmptyString(prog, name );
1029 video = CL_GetVideoByName( name );
1031 PRVM_G_FLOAT( OFS_RETURN ) = (int)video->state;
1033 PRVM_G_FLOAT( OFS_RETURN ) = 0;
1037 ========================
1040 void cin_restart(string name)
1041 ========================
1043 void VM_cin_restart(prvm_prog_t *prog)
1048 VM_SAFEPARMCOUNT( 1, VM_cin_restart );
1050 name = PRVM_G_STRING( OFS_PARM0 );
1051 VM_CheckEmptyString(prog, name );
1053 video = CL_GetVideoByName( name );
1055 CL_RestartVideo( video );
1058 static void VM_M_registercommand(prvm_prog_t *prog)
1060 VM_SAFEPARMCOUNT(1, VM_M_registercommand);
1061 if(!Cmd_Exists(cmd_local, PRVM_G_STRING(OFS_PARM0)))
1062 Cmd_AddCommand(CF_CLIENT, PRVM_G_STRING(OFS_PARM0), NULL, "console command created by QuakeC");
1065 prvm_builtin_t vm_m_builtins[] = {
1066 NULL, // #0 NULL function (not callable)
1067 VM_checkextension, // #1
1073 VM_centerprint, // #7
1077 VM_vectoangles, // #11
1079 VM_localcmd_local, // #13
1091 VM_findfloat, // #25
1092 VM_findchain, // #26
1093 VM_findchainfloat, // #27
1094 VM_precache_file, // #28
1095 VM_precache_sound, // #29
1107 VM_randomvec, // #41
1108 VM_registercvar, // #42
1113 VM_M_copyentity, // #47
1120 VM_substring, // #54
1123 VM_strunzone, // #57
1127 VM_clientcount, // #61
1128 VM_clientstate, // #62
1130 VM_changelevel, // #64
1131 VM_localsound, // #65
1132 VM_M_getmousepos, // #66
1134 VM_loadfromdata, // #68
1135 VM_loadfromfile, // #69
1137 VM_cvar_string, // #71
1139 VM_stackdump, // #73
1140 VM_search_begin, // #74
1141 VM_search_end, // #75
1142 VM_search_getsize, // #76
1143 VM_search_getfilename, // #77
1147 VM_itof, // #81 isString
1148 VM_altstr_count, // #82
1149 VM_altstr_prepare, // #83
1150 VM_altstr_get, // #84
1151 VM_altstr_set, // #85
1152 VM_altstr_ins, // #86
1153 VM_findflags, // #87
1154 VM_findchainflags, // #88
1155 VM_cvar_defstring, // #89
1156 // deactivate support for model rendering in the menu until someone has time to do it right [3/2/2008 Andreas]
1158 VM_CL_setmodel, // #90 void(entity e, string m) setmodel (QUAKE)
1159 VM_CL_precache_model, // #91 void(string s) precache_model (QUAKE)
1160 VM_CL_setorigin, // #92 void(entity e, vector o) setorigin (QUAKE)
1294 VM_strstrofs, // #221 float(string str, string sub[, float startpos]) strstrofs (FTE_STRINGS)
1295 VM_str2chr, // #222 float(string str, float ofs) str2chr (FTE_STRINGS)
1296 VM_chr2str, // #223 string(float c, ...) chr2str (FTE_STRINGS)
1297 VM_strconv, // #224 string(float ccase, float calpha, float cnum, string s, ...) strconv (FTE_STRINGS)
1298 VM_strpad, // #225 string(float chars, string s, ...) strpad (FTE_STRINGS)
1299 VM_infoadd, // #226 string(string info, string key, string value, ...) infoadd (FTE_STRINGS)
1300 VM_infoget, // #227 string(string info, string key) infoget (FTE_STRINGS)
1301 VM_strncmp, // #228 float(string s1, string s2, float len) strncmp (FTE_STRINGS)
1302 VM_strncasecmp, // #229 float(string s1, string s2) strcasecmp (FTE_STRINGS)
1303 VM_strncasecmp, // #230 float(string s1, string s2, float len) strncasecmp (FTE_STRINGS)
1373 // deactivate support for model rendering in the menu until someone has time to do it right [3/2/2008 Andreas]
1375 // CSQC range #300-#399
1376 VM_CL_R_ClearScene, // #300 void() clearscene (DP_QC_RENDER_SCENE)
1377 VM_CL_R_AddEntities, // #301 void(float mask) addentities (DP_QC_RENDER_SCENE)
1378 VM_CL_R_AddEntity, // #302 void(entity ent) addentity (DP_QC_RENDER_SCENE)
1379 VM_CL_R_SetView, // #303 float(float property, ...) setproperty (DP_QC_RENDER_SCENE)
1380 VM_CL_R_RenderScene, // #304 void() renderscene (DP_QC_RENDER_SCENE)
1381 VM_CL_R_AddDynamicLight, // #305 void(vector org, float radius, vector lightcolours) adddynamiclight (DP_QC_RENDER_SCENE)
1382 VM_CL_R_PolygonBegin, // #306 void(string texturename, float flag[, float is2d, float lines]) R_BeginPolygon (DP_QC_RENDER_SCENE)
1383 VM_CL_R_PolygonVertex, // #307 void(vector org, vector texcoords, vector rgb, float alpha) R_PolygonVertex (DP_QC_RENDER_SCENE)
1384 VM_CL_R_PolygonEnd, // #308 void() R_EndPolygon
1385 NULL/*VM_CL_R_LoadWorldModel*/, // #309 void(string modelname) R_LoadWorldModel
1386 // TODO: rearrange and merge all builtin lists and share as many extensions as possible between all VM instances [1/27/2008 Andreas]
1387 VM_CL_setattachment, // #310 void(entity e, entity tagentity, string tagname) setattachment (DP_GFX_QUAKE3MODELTAGS) (DP_QC_RENDER_SCENE)
1388 VM_CL_gettagindex, // #311 float(entity ent, string tagname) gettagindex (DP_QC_GETTAGINFO) (DP_QC_RENDER_SCENE)
1389 VM_CL_gettaginfo, // #312 vector(entity ent, float tagindex) gettaginfo (DP_QC_GETTAGINFO) (DP_QC_RENDER_SCENE)
1391 // CSQC range #300-#399
1433 VM_keynumtostring, // #340 string keynumtostring(float keynum)
1434 VM_stringtokeynum, // #341 float stringtokeynum(string key)
1435 VM_getkeybind, // #342 string(float keynum[, float bindmap]) getkeybind (EXT_CSQC)
1442 VM_CL_isdemo, // #349
1445 VM_M_registercommand, // #352 void(string cmdname)
1446 VM_wasfreed, // #353 float(entity ent) wasfreed
1448 VM_CL_videoplaying, // #355
1449 VM_findfont, // #356 float(string fontname) loadfont (DP_GFX_FONTS)
1450 VM_loadfont, // #357 float(string fontname, string fontmaps, string sizes, float slot) loadfont (DP_GFX_FONTS)
1494 VM_M_WriteByte, // #401
1495 VM_M_WriteChar, // #402
1496 VM_M_WriteShort, // #403
1497 VM_M_WriteLong, // #404
1498 VM_M_WriteAngle, // #405
1499 VM_M_WriteCoord, // #406
1500 VM_M_WriteString, // #407
1501 VM_M_WriteEntity, // #408
1533 VM_buf_create, // #440 float() buf_create (DP_QC_STRINGBUFFERS)
1534 VM_buf_del, // #441 void(float bufhandle) buf_del (DP_QC_STRINGBUFFERS)
1535 VM_buf_getsize, // #442 float(float bufhandle) buf_getsize (DP_QC_STRINGBUFFERS)
1536 VM_buf_copy, // #443 void(float bufhandle_from, float bufhandle_to) buf_copy (DP_QC_STRINGBUFFERS)
1537 VM_buf_sort, // #444 void(float bufhandle, float sortpower, float backward) buf_sort (DP_QC_STRINGBUFFERS)
1538 VM_buf_implode, // #445 string(float bufhandle, string glue) buf_implode (DP_QC_STRINGBUFFERS)
1539 VM_bufstr_get, // #446 string(float bufhandle, float string_index) bufstr_get (DP_QC_STRINGBUFFERS)
1540 VM_bufstr_set, // #447 void(float bufhandle, float string_index, string str) bufstr_set (DP_QC_STRINGBUFFERS)
1541 VM_bufstr_add, // #448 float(float bufhandle, string str, float order) bufstr_add (DP_QC_STRINGBUFFERS)
1542 VM_bufstr_free, // #449 void(float bufhandle, float string_index) bufstr_free (DP_QC_STRINGBUFFERS)
1544 VM_iscachedpic, // #451 draw functions...
1545 VM_precache_pic, // #452
1547 VM_drawcharacter, // #454
1548 VM_drawstring, // #455
1550 VM_drawfill, // #457
1551 VM_drawsetcliparea, // #458
1552 VM_drawresetcliparea, // #459
1553 VM_getimagesize, // #460
1554 VM_cin_open, // #461
1555 VM_cin_close, // #462
1556 VM_cin_setstate, // #463
1557 VM_cin_getstate, // #464
1558 VM_cin_restart, // #465
1559 VM_drawline, // #466
1560 VM_drawcolorcodedstring, // #467
1561 VM_stringwidth, // #468
1562 VM_drawsubpic, // #469
1563 VM_drawrotpic, // #470
1564 VM_asin, // #471 float(float s) VM_asin (DP_QC_ASINACOSATANATAN2TAN)
1565 VM_acos, // #472 float(float c) VM_acos (DP_QC_ASINACOSATANATAN2TAN)
1566 VM_atan, // #473 float(float t) VM_atan (DP_QC_ASINACOSATANATAN2TAN)
1567 VM_atan2, // #474 float(float c, float s) VM_atan2 (DP_QC_ASINACOSATANATAN2TAN)
1568 VM_tan, // #475 float(float a) VM_tan (DP_QC_ASINACOSATANATAN2TAN)
1569 VM_strlennocol, // #476 float(string s) : DRESK - String Length (not counting color codes) (DP_QC_STRINGCOLORFUNCTIONS)
1570 VM_strdecolorize, // #477 string(string s) : DRESK - Decolorized String (DP_QC_STRINGCOLORFUNCTIONS)
1571 VM_strftime, // #478 string(float uselocaltime, string format, ...) (DP_QC_STRFTIME)
1572 VM_tokenizebyseparator, // #479 float(string s) tokenizebyseparator (DP_QC_TOKENIZEBYSEPARATOR)
1573 VM_strtolower, // #480 string(string s) VM_strtolower : DRESK - Return string as lowercase
1574 VM_strtoupper, // #481 string(string s) VM_strtoupper : DRESK - Return string as uppercase
1577 VM_strreplace, // #484 string(string search, string replace, string subject) strreplace (DP_QC_STRREPLACE)
1578 VM_strireplace, // #485 string(string search, string replace, string subject) strireplace (DP_QC_STRREPLACE)
1580 VM_gecko_create, // #487 float gecko_create( string name )
1581 VM_gecko_destroy, // #488 void gecko_destroy( string name )
1582 VM_gecko_navigate, // #489 void gecko_navigate( string name, string URI )
1583 VM_gecko_keyevent, // #490 float gecko_keyevent( string name, float key, float eventtype )
1584 VM_gecko_movemouse, // #491 void gecko_mousemove( string name, float x, float y )
1585 VM_gecko_resize, // #492 void gecko_resize( string name, float w, float h )
1586 VM_gecko_get_texture_extent, // #493 vector gecko_get_texture_extent( string name )
1587 VM_crc16, // #494 float(float caseinsensitive, string s, ...) crc16 = #494 (DP_QC_CRC16)
1588 VM_cvar_type, // #495 float(string name) cvar_type = #495; (DP_QC_CVAR_TYPE)
1589 VM_numentityfields, // #496 float() numentityfields = #496; (QP_QC_ENTITYDATA)
1590 VM_entityfieldname, // #497 string(float fieldnum) entityfieldname = #497; (DP_QC_ENTITYDATA)
1591 VM_entityfieldtype, // #498 float(float fieldnum) entityfieldtype = #498; (DP_QC_ENTITYDATA)
1592 VM_getentityfieldstring, // #499 string(float fieldnum, entity ent) getentityfieldstring = #499; (DP_QC_ENTITYDATA)
1593 VM_putentityfieldstring, // #500 float(float fieldnum, entity ent, string s) putentityfieldstring = #500; (DP_QC_ENTITYDATA)
1596 VM_whichpack, // #503 string(string) whichpack = #503;
1603 VM_uri_escape, // #510 string(string in) uri_escape = #510;
1604 VM_uri_unescape, // #511 string(string in) uri_unescape = #511;
1605 VM_etof, // #512 float(entity ent) num_for_edict = #512 (DP_QC_NUM_FOR_EDICT)
1606 VM_uri_get, // #513 float(string uri, float id, [string post_contenttype, string post_delim, [float buf]]) uri_get = #513; (DP_QC_URI_GET, DP_QC_URI_POST)
1607 VM_tokenize_console, // #514 float(string str) tokenize_console = #514; (DP_QC_TOKENIZE_CONSOLE)
1608 VM_argv_start_index, // #515 float(float idx) argv_start_index = #515; (DP_QC_TOKENIZE_CONSOLE)
1609 VM_argv_end_index, // #516 float(float idx) argv_end_index = #516; (DP_QC_TOKENIZE_CONSOLE)
1610 VM_buf_cvarlist, // #517 void(float buf, string prefix, string antiprefix) buf_cvarlist = #517; (DP_QC_STRINGBUFFERS_CVARLIST)
1611 VM_cvar_description, // #518 float(string name) cvar_description = #518; (DP_QC_CVAR_DESCRIPTION)
1626 VM_getsoundtime, // #533 float(entity e, float channel) getsoundtime = #533; (DP_SND_GETSOUNDTIME)
1627 VM_soundlength, // #534 float(string sample) soundlength = #534; (DP_SND_GETSOUNDTIME)
1628 VM_buf_loadfile, // #535 float(string filename, float bufhandle) buf_loadfile (DP_QC_STRINGBUFFERS_EXT_WIP)
1629 VM_buf_writefile, // #536 float(float filehandle, float bufhandle, float startpos, float numstrings) buf_writefile (DP_QC_STRINGBUFFERS_EXT_WIP)
1630 VM_bufstr_find, // #537 float(float bufhandle, string match, float matchrule, float startpos) bufstr_find (DP_QC_STRINGBUFFERS_EXT_WIP)
1631 VM_matchpattern, // #538 float(string s, string pattern, float matchrule) matchpattern (DP_QC_STRINGBUFFERS_EXT_WIP)
1694 VM_M_setkeydest, // #601 void setkeydest(float dest)
1695 VM_M_getkeydest, // #602 float getkeydest(void)
1696 VM_M_setmousetarget, // #603 void setmousetarget(float trg)
1697 VM_M_getmousetarget, // #604 float getmousetarget(void)
1698 VM_callfunction, // #605 void callfunction(...)
1699 VM_writetofile, // #606 void writetofile(float fhandle, entity ent)
1700 VM_isfunction, // #607 float isfunction(string function_name)
1701 VM_M_getresolution, // #608 vector getresolution(float number, [float forfullscreen])
1702 VM_keynumtostring, // #609 string keynumtostring(float keynum)
1703 VM_findkeysforcommand, // #610 string findkeysforcommand(string command[, float bindmap])
1704 VM_M_getserverliststat, // #611 float gethostcachevalue(float type)
1705 VM_M_getserverliststring, // #612 string gethostcachestring(float type, float hostnr)
1706 VM_parseentitydata, // #613 void parseentitydata(entity ent, string data)
1707 VM_stringtokeynum, // #614 float stringtokeynum(string key)
1708 VM_M_resetserverlistmasks, // #615 void resethostcachemasks(void)
1709 VM_M_setserverlistmaskstring, // #616 void sethostcachemaskstring(float mask, float fld, string str, float op)
1710 VM_M_setserverlistmasknumber, // #617 void sethostcachemasknumber(float mask, float fld, float num, float op)
1711 VM_M_resortserverlist, // #618 void resorthostcache(void)
1712 VM_M_setserverlistsort, // #619 void sethostcachesort(float fld, float descending)
1713 VM_M_refreshserverlist, // #620 void refreshhostcache(void)
1714 VM_M_getserverlistnumber, // #621 float gethostcachenumber(float fld, float hostnr)
1715 VM_M_getserverlistindexforkey,// #622 float gethostcacheindexforkey(string key)
1716 VM_M_addwantedserverlistkey, // #623 void addwantedhostcachekey(string key)
1717 VM_CL_getextresponse, // #624 string getextresponse(void)
1718 VM_netaddress_resolve, // #625 string netaddress_resolve(string, float)
1719 VM_M_getgamedirinfo, // #626 string getgamedirinfo(float n, float prop)
1720 VM_sprintf, // #627 string sprintf(string format, ...)
1723 VM_setkeybind, // #630 float(float key, string bind[, float bindmap]) setkeybind
1724 VM_getbindmaps, // #631 vector(void) getbindmap
1725 VM_setbindmaps, // #632 float(vector bm) setbindmap
1726 VM_M_crypto_getkeyfp, // #633 string(string addr) crypto_getkeyfp
1727 VM_M_crypto_getidfp, // #634 string(string addr) crypto_getidfp
1728 VM_M_crypto_getencryptlevel, // #635 string(string addr) crypto_getencryptlevel
1729 VM_M_crypto_getmykeyfp, // #636 string(float addr) crypto_getmykeyfp
1730 VM_M_crypto_getmyidfp, // #637 string(float addr) crypto_getmyidfp
1732 VM_digest_hex, // #639
1734 VM_M_crypto_getmyidstatus, // #641 float(float i) crypto_getmyidstatus
1735 VM_coverage, // #642
1736 VM_M_crypto_getidstatus, // #643 float(string addr) crypto_getidstatus
1740 const int vm_m_numbuiltins = sizeof(vm_m_builtins) / sizeof(prvm_builtin_t);
1742 void MVM_init_cmd(prvm_prog_t *prog)
1744 r_refdef_scene_t *scene;
1747 prog->polygonbegin_model = NULL;
1748 prog->polygonbegin_guess2d = 0;
1750 scene = R_GetScenePointer( RST_MENU );
1752 memset (scene, 0, sizeof (*scene));
1754 scene->maxtempentities = 128;
1755 scene->tempentities = (entity_render_t*) Mem_Alloc(prog->progs_mempool, sizeof(entity_render_t) * scene->maxtempentities);
1757 scene->maxentities = MAX_EDICTS + 256 + 512;
1758 scene->entities = (entity_render_t **)Mem_Alloc(prog->progs_mempool, sizeof(entity_render_t *) * scene->maxentities);
1760 // LadyHavoc: what is this for?
1761 scene->ambientintensity = 32.0f;
1764 void MVM_reset_cmd(prvm_prog_t *prog)
1766 // note: the menu's render entities are automatically freed when the prog's pool is freed
1770 prog->polygonbegin_model = NULL;
1771 prog->polygonbegin_guess2d = 0;