]> git.xonotic.org Git - xonotic/darkplaces.git/blob - mvm_cmds.c
Comply with ISO C11. Engine will now compile with -pedantic, w/o extra warnings
[xonotic/darkplaces.git] / mvm_cmds.c
1 #include "quakedef.h"
2
3 #include "prvm_cmds.h"
4 #include "clvm_cmds.h"
5 #include "menu.h"
6 #include "csprogs.h"
7
8 // TODO check which strings really should be engine strings
9
10 //============================================================================
11 // Menu
12
13 const char *vm_m_extensions[] = {
14 "BX_WAL_SUPPORT",
15 "DP_CINEMATIC_DPV",
16 "DP_COVERAGE",
17 "DP_CRYPTO",
18 "DP_CSQC_BINDMAPS",
19 "DP_GFX_FONTS",
20 "DP_GFX_FONTS_FREETYPE",
21 "DP_UTF8",
22 "DP_FONT_VARIABLEWIDTH",
23 "DP_MENU_EXTRESPONSEPACKET",
24 "DP_QC_ASINACOSATANATAN2TAN",
25 "DP_QC_AUTOCVARS",
26 "DP_QC_CMD",
27 "DP_QC_CRC16",
28 "DP_QC_CVAR_TYPE",
29 "DP_QC_CVAR_DESCRIPTION",
30 "DP_QC_DIGEST",
31 "DP_QC_DIGEST_SHA256",
32 "DP_QC_FINDCHAIN_TOFIELD",
33 "DP_QC_I18N",
34 "DP_QC_LOG",
35 "DP_QC_RENDER_SCENE",
36 "DP_QC_SPRINTF",
37 "DP_QC_STRFTIME",
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",
43 "DP_QC_STRREPLACE",
44 "DP_QC_TOKENIZEBYSEPARATOR",
45 "DP_QC_TOKENIZE_CONSOLE",
46 "DP_QC_UNLIMITEDTEMPSTRINGS",
47 "DP_QC_URI_ESCAPE",
48 "DP_QC_URI_GET",
49 "DP_QC_URI_POST",
50 "DP_QC_WHICHPACK",
51 "FTE_STRINGS",
52 NULL
53 };
54
55 /*
56 =========
57 VM_M_setmousetarget
58
59 setmousetarget(float target)
60 =========
61 */
62 static void VM_M_setmousetarget(prvm_prog_t *prog)
63 {
64         VM_SAFEPARMCOUNT(1, VM_M_setmousetarget);
65
66         switch((int)PRVM_G_FLOAT(OFS_PARM0))
67         {
68         case 1:
69                 in_client_mouse = false;
70                 break;
71         case 2:
72                 in_client_mouse = true;
73                 break;
74         default:
75                 prog->error_cmd("VM_M_setmousetarget: wrong destination %f !",PRVM_G_FLOAT(OFS_PARM0));
76         }
77 }
78
79 /*
80 =========
81 VM_M_getmousetarget
82
83 float   getmousetarget
84 =========
85 */
86 static void VM_M_getmousetarget(prvm_prog_t *prog)
87 {
88         VM_SAFEPARMCOUNT(0,VM_M_getmousetarget);
89
90         if(in_client_mouse)
91                 PRVM_G_FLOAT(OFS_RETURN) = 2;
92         else
93                 PRVM_G_FLOAT(OFS_RETURN) = 1;
94 }
95
96
97
98 /*
99 =========
100 VM_M_setkeydest
101
102 setkeydest(float dest)
103 =========
104 */
105 static void VM_M_setkeydest(prvm_prog_t *prog)
106 {
107         VM_SAFEPARMCOUNT(1,VM_M_setkeydest);
108
109         switch((int)PRVM_G_FLOAT(OFS_PARM0))
110         {
111         case 0:
112                 // key_game
113                 key_dest = key_game;
114                 break;
115         case 2:
116                 // key_menu
117                 key_dest = key_menu;
118                 break;
119         case 3:
120                 // key_menu_grabbed
121                 key_dest = key_menu_grabbed;
122                 break;
123         case 1:
124                 // key_message
125                 // key_dest = key_message
126                 // break;
127         default:
128                 prog->error_cmd("VM_M_setkeydest: wrong destination %f !", PRVM_G_FLOAT(OFS_PARM0));
129         }
130 }
131
132 /*
133 =========
134 VM_M_getkeydest
135
136 float   getkeydest
137 =========
138 */
139 static void VM_M_getkeydest(prvm_prog_t *prog)
140 {
141         VM_SAFEPARMCOUNT(0,VM_M_getkeydest);
142
143         // key_game = 0, key_message = 1, key_menu = 2, key_menu_grabbed = 3, unknown = -1
144         switch(key_dest)
145         {
146         case key_game:
147                 PRVM_G_FLOAT(OFS_RETURN) = 0;
148                 break;
149         case key_menu:
150                 PRVM_G_FLOAT(OFS_RETURN) = 2;
151                 break;
152         case key_menu_grabbed:
153                 PRVM_G_FLOAT(OFS_RETURN) = 3;
154                 break;
155         case key_message:
156                 // not supported
157                 // PRVM_G_FLOAT(OFS_RETURN) = 1;
158                 // break;
159         default:
160                 PRVM_G_FLOAT(OFS_RETURN) = -1;
161         }
162 }
163
164
165 /*
166 =========
167 VM_M_getresolution
168
169 vector  getresolution(float number)
170 =========
171 */
172 static void VM_M_getresolution(prvm_prog_t *prog)
173 {
174         int nr, fs;
175         VM_SAFEPARMCOUNTRANGE(1, 2, VM_M_getresolution);
176
177         nr = (int)PRVM_G_FLOAT(OFS_PARM0);
178
179         fs = ((prog->argc <= 1) || ((int)PRVM_G_FLOAT(OFS_PARM1)));
180
181         if(nr < -1 || nr >= (fs ? video_resolutions_count : video_resolutions_hardcoded_count))
182         {
183                 PRVM_G_VECTOR(OFS_RETURN)[0] = 0;
184                 PRVM_G_VECTOR(OFS_RETURN)[1] = 0;
185                 PRVM_G_VECTOR(OFS_RETURN)[2] = 0;
186         }
187         else if(nr == -1)
188         {
189                 vid_mode_t *m = VID_GetDesktopMode();
190                 if (m)
191                 {
192                         PRVM_G_VECTOR(OFS_RETURN)[0] = m->width;
193                         PRVM_G_VECTOR(OFS_RETURN)[1] = m->height;
194                         PRVM_G_VECTOR(OFS_RETURN)[2] = m->pixelheight_num / (prvm_vec_t) m->pixelheight_denom;
195                 }
196                 else
197                 {
198                         PRVM_G_VECTOR(OFS_RETURN)[0] = 0;
199                         PRVM_G_VECTOR(OFS_RETURN)[1] = 0;
200                         PRVM_G_VECTOR(OFS_RETURN)[2] = 0;
201                 }
202         }
203         else
204         {
205                 video_resolution_t *r = &((fs ? video_resolutions : video_resolutions_hardcoded)[nr]);
206                 PRVM_G_VECTOR(OFS_RETURN)[0] = r->width;
207                 PRVM_G_VECTOR(OFS_RETURN)[1] = r->height;
208                 PRVM_G_VECTOR(OFS_RETURN)[2] = r->pixelheight;
209         }
210 }
211
212 static void VM_M_getgamedirinfo(prvm_prog_t *prog)
213 {
214         int nr, item;
215         VM_SAFEPARMCOUNT(2, VM_getgamedirinfo);
216
217         nr = (int)PRVM_G_FLOAT(OFS_PARM0);
218         item = (int)PRVM_G_FLOAT(OFS_PARM1);
219
220         PRVM_G_INT( OFS_RETURN ) = OFS_NULL;
221
222         if(nr >= 0 && nr < fs_all_gamedirs_count)
223         {
224                 if(item == 0)
225                         PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString( prog, fs_all_gamedirs[nr].name );
226                 else if(item == 1)
227                         PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString( prog, fs_all_gamedirs[nr].description );
228         }
229 }
230
231 /*
232 =========
233 VM_M_getserverliststat
234
235 float   getserverliststat(float type)
236 =========
237 */
238 /*
239         type:
240 0       serverlist_viewcount
241 1   serverlist_totalcount
242 2       masterquerycount
243 3       masterreplycount
244 4       serverquerycount
245 5       serverreplycount
246 6       sortfield
247 7       sortflags
248 */
249 static void VM_M_getserverliststat(prvm_prog_t *prog)
250 {
251         int type;
252         VM_SAFEPARMCOUNT ( 1, VM_M_getserverliststat );
253
254         PRVM_G_FLOAT( OFS_RETURN ) = 0;
255
256         type = (int)PRVM_G_FLOAT( OFS_PARM0 );
257         switch(type)
258         {
259         case 0:
260                 PRVM_G_FLOAT ( OFS_RETURN ) = serverlist_viewcount;
261                 return;
262         case 1:
263                 PRVM_G_FLOAT ( OFS_RETURN ) = serverlist_cachecount;
264                 return;
265         case 2:
266                 PRVM_G_FLOAT ( OFS_RETURN ) = masterquerycount;
267                 return;
268         case 3:
269                 PRVM_G_FLOAT ( OFS_RETURN ) = masterreplycount;
270                 return;
271         case 4:
272                 PRVM_G_FLOAT ( OFS_RETURN ) = serverquerycount;
273                 return;
274         case 5:
275                 PRVM_G_FLOAT ( OFS_RETURN ) = serverreplycount;
276                 return;
277         case 6:
278                 PRVM_G_FLOAT ( OFS_RETURN ) = serverlist_sortbyfield;
279                 return;
280         case 7:
281                 PRVM_G_FLOAT ( OFS_RETURN ) = serverlist_sortflags;
282                 return;
283         default:
284                 VM_Warning(prog, "VM_M_getserverliststat: bad type %i!\n", type );
285         }
286 }
287
288 /*
289 ========================
290 VM_M_resetserverlistmasks
291
292 resetserverlistmasks()
293 ========================
294 */
295 static void VM_M_resetserverlistmasks(prvm_prog_t *prog)
296 {
297         VM_SAFEPARMCOUNT(0, VM_M_resetserverlistmasks);
298         ServerList_ResetMasks();
299 }
300
301
302 /*
303 ========================
304 VM_M_setserverlistmaskstring
305
306 setserverlistmaskstring(float mask, float fld, string str, float op)
307 0-511           and
308 512 - 1024      or
309 ========================
310 */
311 static void VM_M_setserverlistmaskstring(prvm_prog_t *prog)
312 {
313         const char *str;
314         int masknr;
315         serverlist_mask_t *mask;
316         int field;
317
318         VM_SAFEPARMCOUNT( 4, VM_M_setserverlistmaskstring );
319         str = PRVM_G_STRING( OFS_PARM2 );
320
321         masknr = (int)PRVM_G_FLOAT( OFS_PARM0 );
322         if( masknr >= 0 && masknr < SERVERLIST_ANDMASKCOUNT )
323                 mask = &serverlist_andmasks[masknr];
324         else if( masknr >= 512 && masknr - 512 < SERVERLIST_ORMASKCOUNT )
325                 mask = &serverlist_ormasks[masknr - 512 ];
326         else
327         {
328                 VM_Warning(prog, "VM_M_setserverlistmaskstring: invalid mask number %i\n", masknr );
329                 return;
330         }
331
332         field = (int) PRVM_G_FLOAT( OFS_PARM1 );
333
334         switch( field ) {
335                 case SLIF_CNAME:
336                         strlcpy( mask->info.cname, str, sizeof(mask->info.cname) );
337                         break;
338                 case SLIF_NAME:
339                         strlcpy( mask->info.name, str, sizeof(mask->info.name)  );
340                         break;
341                 case SLIF_QCSTATUS:
342                         strlcpy( mask->info.qcstatus, str, sizeof(mask->info.qcstatus)  );
343                         break;
344                 case SLIF_PLAYERS:
345                         strlcpy( mask->info.players, str, sizeof(mask->info.players)  );
346                         break;
347                 case SLIF_MAP:
348                         strlcpy( mask->info.map, str, sizeof(mask->info.map)  );
349                         break;
350                 case SLIF_MOD:
351                         strlcpy( mask->info.mod, str, sizeof(mask->info.mod)  );
352                         break;
353                 case SLIF_GAME:
354                         strlcpy( mask->info.game, str, sizeof(mask->info.game)  );
355                         break;
356                 default:
357                         VM_Warning(prog, "VM_M_setserverlistmaskstring: Bad field number %i passed!\n", field );
358                         return;
359         }
360
361         mask->active = true;
362         mask->tests[field] = (serverlist_maskop_t)((int)PRVM_G_FLOAT( OFS_PARM3 ));
363 }
364
365 /*
366 ========================
367 VM_M_setserverlistmasknumber
368
369 setserverlistmasknumber(float mask, float fld, float num, float op)
370
371 0-511           and
372 512 - 1024      or
373 ========================
374 */
375 static void VM_M_setserverlistmasknumber(prvm_prog_t *prog)
376 {
377         int number;
378         serverlist_mask_t *mask;
379         int     masknr;
380         int field;
381         VM_SAFEPARMCOUNT( 4, VM_M_setserverlistmasknumber );
382
383         masknr = (int)PRVM_G_FLOAT( OFS_PARM0 );
384         if( masknr >= 0 && masknr < SERVERLIST_ANDMASKCOUNT )
385                 mask = &serverlist_andmasks[masknr];
386         else if( masknr >= 512 && masknr - 512 < SERVERLIST_ORMASKCOUNT )
387                 mask = &serverlist_ormasks[masknr - 512 ];
388         else
389         {
390                 VM_Warning(prog, "VM_M_setserverlistmasknumber: invalid mask number %i\n", masknr );
391                 return;
392         }
393
394         number = (int)PRVM_G_FLOAT( OFS_PARM2 );
395         field = (int) PRVM_G_FLOAT( OFS_PARM1 );
396
397         switch( field ) {
398                 case SLIF_MAXPLAYERS:
399                         mask->info.maxplayers = number;
400                         break;
401                 case SLIF_NUMPLAYERS:
402                         mask->info.numplayers = number;
403                         break;
404                 case SLIF_NUMBOTS:
405                         mask->info.numbots = number;
406                         break;
407                 case SLIF_NUMHUMANS:
408                         mask->info.numhumans = number;
409                         break;
410                 case SLIF_PING:
411                         mask->info.ping = number;
412                         break;
413                 case SLIF_PROTOCOL:
414                         mask->info.protocol = number;
415                         break;
416                 case SLIF_FREESLOTS:
417                         mask->info.freeslots = number;
418                         break;
419                 case SLIF_CATEGORY:
420                         mask->info.category = number;
421                         break;
422                 case SLIF_ISFAVORITE:
423                         mask->info.isfavorite = number != 0;
424                         break;
425                 default:
426                         VM_Warning(prog, "VM_M_setserverlistmasknumber: Bad field number %i passed!\n", field );
427                         return;
428         }
429
430         mask->active = true;
431         mask->tests[field] = (serverlist_maskop_t)((int)PRVM_G_FLOAT( OFS_PARM3 ));
432 }
433
434
435 /*
436 ========================
437 VM_M_resortserverlist
438
439 resortserverlist
440 ========================
441 */
442 static void VM_M_resortserverlist(prvm_prog_t *prog)
443 {
444         VM_SAFEPARMCOUNT(0, VM_M_resortserverlist);
445         ServerList_RebuildViewList();
446 }
447
448 /*
449 =========
450 VM_M_getserverliststring
451
452 string  getserverliststring(float field, float hostnr)
453 =========
454 */
455 static void VM_M_getserverliststring(prvm_prog_t *prog)
456 {
457         const serverlist_entry_t *cache;
458         int hostnr;
459
460         VM_SAFEPARMCOUNT(2, VM_M_getserverliststring);
461
462         PRVM_G_INT(OFS_RETURN) = OFS_NULL;
463
464         hostnr = (int)PRVM_G_FLOAT(OFS_PARM1);
465
466         if(hostnr == -1 && serverlist_callbackentry)
467         {
468                 cache = serverlist_callbackentry;
469         }
470         else
471         {
472                 if(hostnr < 0 || hostnr >= serverlist_viewcount)
473                 {
474                         Con_Print("VM_M_getserverliststring: bad hostnr passed!\n");
475                         return;
476                 }
477                 cache = ServerList_GetViewEntry(hostnr);
478         }
479         switch( (int) PRVM_G_FLOAT(OFS_PARM0) ) {
480                 case SLIF_CNAME:
481                         PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString( prog, cache->info.cname );
482                         break;
483                 case SLIF_NAME:
484                         PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString( prog, cache->info.name );
485                         break;
486                 case SLIF_QCSTATUS:
487                         PRVM_G_INT (OFS_RETURN ) = PRVM_SetTempString( prog, cache->info.qcstatus );
488                         break;
489                 case SLIF_PLAYERS:
490                         PRVM_G_INT (OFS_RETURN ) = PRVM_SetTempString( prog, cache->info.players );
491                         break;
492                 case SLIF_GAME:
493                         PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString( prog, cache->info.game );
494                         break;
495                 case SLIF_MOD:
496                         PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString( prog, cache->info.mod );
497                         break;
498                 case SLIF_MAP:
499                         PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString( prog, cache->info.map );
500                         break;
501                 // TODO remove this again
502                 case 1024:
503                         PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString( prog, cache->line1 );
504                         break;
505                 case 1025:
506                         PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString( prog, cache->line2 );
507                         break;
508                 default:
509                         Con_Print("VM_M_getserverliststring: bad field number passed!\n");
510         }
511 }
512
513 /*
514 =========
515 VM_M_getserverlistnumber
516
517 float   getserverlistnumber(float field, float hostnr)
518 =========
519 */
520 static void VM_M_getserverlistnumber(prvm_prog_t *prog)
521 {
522         const serverlist_entry_t *cache;
523         int hostnr;
524
525         VM_SAFEPARMCOUNT(2, VM_M_getserverlistnumber);
526
527         PRVM_G_INT(OFS_RETURN) = OFS_NULL;
528
529         hostnr = (int)PRVM_G_FLOAT(OFS_PARM1);
530
531         if(hostnr == -1 && serverlist_callbackentry)
532         {
533                 cache = serverlist_callbackentry;
534         }
535         else
536         {
537                 if(hostnr < 0 || hostnr >= serverlist_viewcount)
538                 {
539                         Con_Print("VM_M_getserverliststring: bad hostnr passed!\n");
540                         return;
541                 }
542                 cache = ServerList_GetViewEntry(hostnr);
543         }
544         switch( (int) PRVM_G_FLOAT(OFS_PARM0) ) {
545                 case SLIF_MAXPLAYERS:
546                         PRVM_G_FLOAT( OFS_RETURN ) = cache->info.maxplayers;
547                         break;
548                 case SLIF_NUMPLAYERS:
549                         PRVM_G_FLOAT( OFS_RETURN ) = cache->info.numplayers;
550                         break;
551                 case SLIF_NUMBOTS:
552                         PRVM_G_FLOAT( OFS_RETURN ) = cache->info.numbots;
553                         break;
554                 case SLIF_NUMHUMANS:
555                         PRVM_G_FLOAT( OFS_RETURN ) = cache->info.numhumans;
556                         break;
557                 case SLIF_FREESLOTS:
558                         PRVM_G_FLOAT( OFS_RETURN ) = cache->info.freeslots;
559                         break;
560                 case SLIF_PING:
561                         PRVM_G_FLOAT( OFS_RETURN ) = cache->info.ping;
562                         break;
563                 case SLIF_PROTOCOL:
564                         PRVM_G_FLOAT( OFS_RETURN ) = cache->info.protocol;
565                         break;
566                 case SLIF_CATEGORY:
567                         PRVM_G_FLOAT( OFS_RETURN ) = cache->info.category;
568                         break;
569                 case SLIF_ISFAVORITE:
570                         PRVM_G_FLOAT( OFS_RETURN ) = cache->info.isfavorite;
571                         break;
572                 default:
573                         Con_Print("VM_M_getserverlistnumber: bad field number passed!\n");
574         }
575 }
576
577 /*
578 ========================
579 VM_M_setserverlistsort
580
581 setserverlistsort(float field, float flags)
582 ========================
583 */
584 static void VM_M_setserverlistsort(prvm_prog_t *prog)
585 {
586         VM_SAFEPARMCOUNT( 2, VM_M_setserverlistsort );
587
588         serverlist_sortbyfield = (serverlist_infofield_t)((int)PRVM_G_FLOAT( OFS_PARM0 ));
589         serverlist_sortflags = (int) PRVM_G_FLOAT( OFS_PARM1 );
590 }
591
592 /*
593 ========================
594 VM_M_refreshserverlist
595
596 refreshserverlist()
597 ========================
598 */
599 static void VM_M_refreshserverlist(prvm_prog_t *prog)
600 {
601         qboolean do_reset = false;
602         VM_SAFEPARMCOUNTRANGE( 0, 1, VM_M_refreshserverlist );
603         if (prog->argc >= 1 && PRVM_G_FLOAT(OFS_PARM0))
604                 do_reset = true;
605         ServerList_QueryList(do_reset, true, false, false);
606 }
607
608 /*
609 ========================
610 VM_M_getserverlistindexforkey
611
612 float getserverlistindexforkey(string key)
613 ========================
614 */
615 static void VM_M_getserverlistindexforkey(prvm_prog_t *prog)
616 {
617         const char *key;
618         VM_SAFEPARMCOUNT( 1, VM_M_getserverlistindexforkey );
619
620         key = PRVM_G_STRING( OFS_PARM0 );
621         VM_CheckEmptyString( prog, key );
622
623         if( !strcmp( key, "cname" ) )
624                 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_CNAME;
625         else if( !strcmp( key, "ping" ) )
626                 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_PING;
627         else if( !strcmp( key, "game" ) )
628                 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_GAME;
629         else if( !strcmp( key, "mod" ) )
630                 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_MOD;
631         else if( !strcmp( key, "map" ) )
632                 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_MAP;
633         else if( !strcmp( key, "name" ) )
634                 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_NAME;
635         else if( !strcmp( key, "qcstatus" ) )
636                 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_QCSTATUS;
637         else if( !strcmp( key, "players" ) )
638                 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_PLAYERS;
639         else if( !strcmp( key, "maxplayers" ) )
640                 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_MAXPLAYERS;
641         else if( !strcmp( key, "numplayers" ) )
642                 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_NUMPLAYERS;
643         else if( !strcmp( key, "numbots" ) )
644                 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_NUMBOTS;
645         else if( !strcmp( key, "numhumans" ) )
646                 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_NUMHUMANS;
647         else if( !strcmp( key, "freeslots" ) )
648                 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_FREESLOTS;
649         else if( !strcmp( key, "protocol" ) )
650                 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_PROTOCOL;
651         else if( !strcmp( key, "category" ) )
652                 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_CATEGORY;
653         else if( !strcmp( key, "isfavorite" ) )
654                 PRVM_G_FLOAT( OFS_RETURN ) = SLIF_ISFAVORITE;
655         else
656                 PRVM_G_FLOAT( OFS_RETURN ) = -1;
657 }
658
659 /*
660 ========================
661 VM_M_addwantedserverlistkey
662
663 addwantedserverlistkey(string key)
664 ========================
665 */
666 static void VM_M_addwantedserverlistkey(prvm_prog_t *prog)
667 {
668         VM_SAFEPARMCOUNT( 1, VM_M_addwantedserverlistkey );
669 }
670
671 /*
672 ===============================================================================
673 MESSAGE WRITING
674
675 used only for client and menu
676 server uses VM_SV_...
677
678 Write*(* data, float type, float to)
679
680 ===============================================================================
681 */
682
683 #define MSG_BROADCAST   0               // unreliable to all
684 #define MSG_ONE                 1               // reliable to one (msg_entity)
685 #define MSG_ALL                 2               // reliable to all
686 #define MSG_INIT                3               // write to the init string
687
688 static sizebuf_t *VM_M_WriteDest (prvm_prog_t *prog)
689 {
690         int             dest;
691         int             destclient;
692
693         if(!sv.active)
694                 prog->error_cmd("VM_M_WriteDest: game is not server (%s)", prog->name);
695
696         dest = (int)PRVM_G_FLOAT(OFS_PARM1);
697         switch (dest)
698         {
699         case MSG_BROADCAST:
700                 return &sv.datagram;
701
702         case MSG_ONE:
703                 destclient = (int) PRVM_G_FLOAT(OFS_PARM2);
704                 if (destclient < 0 || destclient >= svs.maxclients || !svs.clients[destclient].active || !svs.clients[destclient].netconnection)
705                         prog->error_cmd("VM_clientcommand: %s: invalid client !", prog->name);
706
707                 return &svs.clients[destclient].netconnection->message;
708
709         case MSG_ALL:
710                 return &sv.reliable_datagram;
711
712         case MSG_INIT:
713                 return &sv.signon;
714
715         default:
716                 prog->error_cmd("WriteDest: bad destination");
717                 break;
718         }
719
720         return NULL;
721 }
722
723 static void VM_M_WriteByte (prvm_prog_t *prog)
724 {
725         VM_SAFEPARMCOUNT(1, VM_M_WriteByte);
726         MSG_WriteByte (VM_M_WriteDest(prog), (int)PRVM_G_FLOAT(OFS_PARM0));
727 }
728
729 static void VM_M_WriteChar (prvm_prog_t *prog)
730 {
731         VM_SAFEPARMCOUNT(1, VM_M_WriteChar);
732         MSG_WriteChar (VM_M_WriteDest(prog), (int)PRVM_G_FLOAT(OFS_PARM0));
733 }
734
735 static void VM_M_WriteShort (prvm_prog_t *prog)
736 {
737         VM_SAFEPARMCOUNT(1, VM_M_WriteShort);
738         MSG_WriteShort (VM_M_WriteDest(prog), (int)PRVM_G_FLOAT(OFS_PARM0));
739 }
740
741 static void VM_M_WriteLong (prvm_prog_t *prog)
742 {
743         VM_SAFEPARMCOUNT(1, VM_M_WriteLong);
744         MSG_WriteLong (VM_M_WriteDest(prog), (int)PRVM_G_FLOAT(OFS_PARM0));
745 }
746
747 static void VM_M_WriteAngle (prvm_prog_t *prog)
748 {
749         VM_SAFEPARMCOUNT(1, VM_M_WriteAngle);
750         MSG_WriteAngle (VM_M_WriteDest(prog), PRVM_G_FLOAT(OFS_PARM0), sv.protocol);
751 }
752
753 static void VM_M_WriteCoord (prvm_prog_t *prog)
754 {
755         VM_SAFEPARMCOUNT(1, VM_M_WriteCoord);
756         MSG_WriteCoord (VM_M_WriteDest(prog), PRVM_G_FLOAT(OFS_PARM0), sv.protocol);
757 }
758
759 static void VM_M_WriteString (prvm_prog_t *prog)
760 {
761         VM_SAFEPARMCOUNT(1, VM_M_WriteString);
762         MSG_WriteString (VM_M_WriteDest(prog), PRVM_G_STRING(OFS_PARM0));
763 }
764
765 static void VM_M_WriteEntity (prvm_prog_t *prog)
766 {
767         VM_SAFEPARMCOUNT(1, VM_M_WriteEntity);
768         MSG_WriteShort (VM_M_WriteDest(prog), PRVM_G_EDICTNUM(OFS_PARM0));
769 }
770
771 /*
772 =================
773 VM_M_copyentity
774
775 copies data from one entity to another
776
777 copyentity(entity src, entity dst)
778 =================
779 */
780 static void VM_M_copyentity (prvm_prog_t *prog)
781 {
782         prvm_edict_t *in, *out;
783         VM_SAFEPARMCOUNT(2,VM_M_copyentity);
784         in = PRVM_G_EDICT(OFS_PARM0);
785         out = PRVM_G_EDICT(OFS_PARM1);
786         memcpy(out->fields.fp, in->fields.fp, prog->entityfields * sizeof(prvm_vec_t));
787 }
788
789 //#66 vector() getmousepos (EXT_CSQC)
790 static void VM_M_getmousepos(prvm_prog_t *prog)
791 {
792         VM_SAFEPARMCOUNT(0,VM_M_getmousepos);
793
794         if (key_consoleactive || (key_dest != key_menu && key_dest != key_menu_grabbed))
795                 VectorSet(PRVM_G_VECTOR(OFS_RETURN), 0, 0, 0);
796         else if (in_client_mouse)
797                 VectorSet(PRVM_G_VECTOR(OFS_RETURN), in_windowmouse_x * vid_conwidth.integer / vid.width, in_windowmouse_y * vid_conheight.integer / vid.height, 0);
798         else
799                 VectorSet(PRVM_G_VECTOR(OFS_RETURN), in_mouse_x * vid_conwidth.integer / vid.width, in_mouse_y * vid_conheight.integer / vid.height, 0);
800 }
801
802 static void VM_M_crypto_getkeyfp(prvm_prog_t *prog)
803 {
804         lhnetaddress_t addr;
805         const char *s;
806         char keyfp[FP64_SIZE + 1];
807
808         VM_SAFEPARMCOUNT(1,VM_M_crypto_getkeyfp);
809
810         s = PRVM_G_STRING( OFS_PARM0 );
811         VM_CheckEmptyString( prog, s );
812
813         if(LHNETADDRESS_FromString(&addr, s, 26000) && Crypto_RetrieveHostKey(&addr, NULL, keyfp, sizeof(keyfp), NULL, 0, NULL, NULL))
814                 PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString( prog, keyfp );
815         else
816                 PRVM_G_INT( OFS_RETURN ) = OFS_NULL;
817 }
818 static void VM_M_crypto_getidfp(prvm_prog_t *prog)
819 {
820         lhnetaddress_t addr;
821         const char *s;
822         char idfp[FP64_SIZE + 1];
823
824         VM_SAFEPARMCOUNT(1,VM_M_crypto_getidfp);
825
826         s = PRVM_G_STRING( OFS_PARM0 );
827         VM_CheckEmptyString( prog, s );
828
829         if(LHNETADDRESS_FromString(&addr, s, 26000) && Crypto_RetrieveHostKey(&addr, NULL, NULL, 0, idfp, sizeof(idfp), NULL, NULL))
830                 PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString( prog, idfp );
831         else
832                 PRVM_G_INT( OFS_RETURN ) = OFS_NULL;
833 }
834 static void VM_M_crypto_getidstatus(prvm_prog_t *prog)
835 {
836         lhnetaddress_t addr;
837         const char *s;
838         qboolean issigned;
839
840         VM_SAFEPARMCOUNT(1,VM_M_crypto_getidstatus);
841
842         s = PRVM_G_STRING( OFS_PARM0 );
843         VM_CheckEmptyString( prog, s );
844
845         if(LHNETADDRESS_FromString(&addr, s, 26000) && Crypto_RetrieveHostKey(&addr, NULL, NULL, 0, NULL, 0, NULL, &issigned))
846                 PRVM_G_FLOAT( OFS_RETURN ) = issigned ? 2 : 1;
847         else
848                 PRVM_G_FLOAT( OFS_RETURN ) = 0;
849 }
850 static void VM_M_crypto_getencryptlevel(prvm_prog_t *prog)
851 {
852         lhnetaddress_t addr;
853         const char *s;
854         int aeslevel;
855         char vabuf[1024];
856
857         VM_SAFEPARMCOUNT(1,VM_M_crypto_getencryptlevel);
858
859         s = PRVM_G_STRING( OFS_PARM0 );
860         VM_CheckEmptyString( prog, s );
861
862         if(LHNETADDRESS_FromString(&addr, s, 26000) && Crypto_RetrieveHostKey(&addr, NULL, NULL, 0, NULL, 0, &aeslevel, NULL))
863                 PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString(prog, aeslevel ? va(vabuf, sizeof(vabuf), "%d AES128", aeslevel) : "0");
864         else
865                 PRVM_G_INT( OFS_RETURN ) = OFS_NULL;
866 }
867 static void VM_M_crypto_getmykeyfp(prvm_prog_t *prog)
868 {
869         int i;
870         char keyfp[FP64_SIZE + 1];
871
872         VM_SAFEPARMCOUNT(1, VM_M_crypto_getmykeyfp);
873
874         i = PRVM_G_FLOAT( OFS_PARM0 );
875         switch(Crypto_RetrieveLocalKey(i, keyfp, sizeof(keyfp), NULL, 0, NULL))
876         {
877                 case -1:
878                         PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString(prog, "");
879                         break;
880                 case 0:
881                         PRVM_G_INT( OFS_RETURN ) = OFS_NULL;
882                         break;
883                 default:
884                 case 1:
885                         PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString(prog, keyfp);
886                         break;
887         }
888 }
889 static void VM_M_crypto_getmyidfp(prvm_prog_t *prog)
890 {
891         int i;
892         char idfp[FP64_SIZE + 1];
893
894         VM_SAFEPARMCOUNT(1, VM_M_crypto_getmyidfp);
895
896         i = PRVM_G_FLOAT( OFS_PARM0 );
897         switch(Crypto_RetrieveLocalKey(i, NULL, 0, idfp, sizeof(idfp), NULL))
898         {
899                 case -1:
900                         PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString(prog, "");
901                         break;
902                 case 0:
903                         PRVM_G_INT( OFS_RETURN ) = OFS_NULL;
904                         break;
905                 default:
906                 case 1:
907                         PRVM_G_INT( OFS_RETURN ) = PRVM_SetTempString(prog, idfp);
908                         break;
909         }
910 }
911 static void VM_M_crypto_getmyidstatus(prvm_prog_t *prog)
912 {
913         int i;
914         qboolean issigned;
915
916         VM_SAFEPARMCOUNT(1, VM_M_crypto_getmyidstatus);
917
918         i = PRVM_G_FLOAT( OFS_PARM0 );
919         switch(Crypto_RetrieveLocalKey(i, NULL, 0, NULL, 0, &issigned))
920         {
921                 case -1:
922                         PRVM_G_FLOAT( OFS_RETURN ) = 0; // have no ID there
923                         break;
924                 case 0:
925                         PRVM_G_FLOAT( OFS_RETURN ) = -1; // out of range
926                         break;
927                 default:
928                 case 1:
929                         PRVM_G_FLOAT( OFS_RETURN ) = issigned ? 2 : 1;
930                         break;
931         }
932 }
933
934 prvm_builtin_t vm_m_builtins[] = {
935 NULL,                                                                   //   #0 NULL function (not callable)
936 VM_checkextension,                              //   #1
937 VM_error,                                                       //   #2
938 VM_objerror,                                            //   #3
939 VM_print,                                                       //   #4
940 VM_bprint,                                                      //   #5
941 VM_sprint,                                                      //   #6
942 VM_centerprint,                                 //   #7
943 VM_normalize,                                           //   #8
944 VM_vlen,                                                                //   #9
945 VM_vectoyaw,                                            //  #10
946 VM_vectoangles,                                 //  #11
947 VM_random,                                                      //  #12
948 VM_localcmd_client,                                             //  #13
949 VM_cvar,                                                                //  #14
950 VM_cvar_set,                                            //  #15
951 VM_dprint,                                                      //  #16
952 VM_ftos,                                                                //  #17
953 VM_fabs,                                                                //  #18
954 VM_vtos,                                                                //  #19
955 VM_etos,                                                                //  #20
956 VM_stof,                                                                //  #21
957 VM_spawn,                                                       //  #22
958 VM_remove,                                                      //  #23
959 VM_find,                                                                //  #24
960 VM_findfloat,                                           //  #25
961 VM_findchain,                                           //  #26
962 VM_findchainfloat,                              //  #27
963 VM_precache_file,                                       //  #28
964 VM_precache_sound,                              //  #29
965 VM_coredump,                                            //  #30
966 VM_traceon,                                                     //  #31
967 VM_traceoff,                                            //  #32
968 VM_eprint,                                                      //  #33
969 VM_rint,                                                                //  #34
970 VM_floor,                                                       //  #35
971 VM_ceil,                                                                //  #36
972 VM_nextent,                                                     //  #37
973 VM_sin,                                                         //  #38
974 VM_cos,                                                         //  #39
975 VM_sqrt,                                                                //  #40
976 VM_randomvec,                                           //  #41
977 VM_registercvar,                                        //  #42
978 VM_min,                                                         //  #43
979 VM_max,                                                         //  #44
980 VM_bound,                                                       //  #45
981 VM_pow,                                                         //  #46
982 VM_M_copyentity,                                        //  #47
983 VM_fopen,                                                       //  #48
984 VM_fclose,                                                      //  #49
985 VM_fgets,                                                       //  #50
986 VM_fputs,                                                       //  #51
987 VM_strlen,                                                      //  #52
988 VM_strcat,                                                      //  #53
989 VM_substring,                                           //  #54
990 VM_stov,                                                                //  #55
991 VM_strzone,                                                     //  #56
992 VM_strunzone,                                           //  #57
993 VM_tokenize,                                            //  #58
994 VM_argv,                                                                //  #59
995 VM_isserver,                                            //  #60
996 VM_clientcount,                                 //  #61
997 VM_clientstate,                                 //  #62
998 VM_clcommand,                                           //  #63
999 VM_changelevel,                                 //  #64
1000 VM_localsound,                                          //  #65
1001 VM_M_getmousepos,                                       //  #66
1002 VM_gettime,                                                     //  #67
1003 VM_loadfromdata,                                        //  #68
1004 VM_loadfromfile,                                        //  #69
1005 VM_modulo,                                                      //  #70
1006 VM_cvar_string,                                 //  #71
1007 VM_crash,                                                       //  #72
1008 VM_stackdump,                                           //  #73
1009 VM_search_begin,                                        //  #74
1010 VM_search_end,                                          //  #75
1011 VM_search_getsize,                              //  #76
1012 VM_search_getfilename,                  //  #77
1013 VM_chr,                                                         //  #78
1014 VM_itof,                                                                //  #79
1015 VM_ftoe,                                                                //  #80
1016 VM_itof,                                                                //  #81 isString
1017 VM_altstr_count,                                        //  #82
1018 VM_altstr_prepare,                              //  #83
1019 VM_altstr_get,                                          //  #84
1020 VM_altstr_set,                                          //  #85
1021 VM_altstr_ins,                                          //  #86
1022 VM_findflags,                                           //  #87
1023 VM_findchainflags,                              //  #88
1024 VM_cvar_defstring,                              //  #89
1025 // deactivate support for model rendering in the menu until someone has time to do it right [3/2/2008 Andreas]
1026 #if 0
1027 VM_CL_setmodel,                                 // #90 void(entity e, string m) setmodel (QUAKE)
1028 VM_CL_precache_model,                   // #91 void(string s) precache_model (QUAKE)
1029 VM_CL_setorigin,                                // #92 void(entity e, vector o) setorigin (QUAKE)
1030 #else
1031 NULL,
1032 NULL,
1033 NULL,
1034 #endif
1035 NULL,                                                                   //  #93
1036 NULL,                                                                   //  #94
1037 NULL,                                                                   //  #95
1038 NULL,                                                                   //  #96
1039 NULL,                                                                   //  #97
1040 NULL,                                                                   //  #98
1041 NULL,                                                                   //  #99
1042 NULL,                                                                   // #100
1043 NULL,                                                                   // #101
1044 NULL,                                                                   // #102
1045 NULL,                                                                   // #103
1046 NULL,                                                                   // #104
1047 NULL,                                                                   // #105
1048 NULL,                                                                   // #106
1049 NULL,                                                                   // #107
1050 NULL,                                                                   // #108
1051 NULL,                                                                   // #109
1052 NULL,                                                                   // #110
1053 NULL,                                                                   // #111
1054 NULL,                                                                   // #112
1055 NULL,                                                                   // #113
1056 NULL,                                                                   // #114
1057 NULL,                                                                   // #115
1058 NULL,                                                                   // #116
1059 NULL,                                                                   // #117
1060 NULL,                                                                   // #118
1061 NULL,                                                                   // #119
1062 NULL,                                                                   // #120
1063 NULL,                                                                   // #121
1064 NULL,                                                                   // #122
1065 NULL,                                                                   // #123
1066 NULL,                                                                   // #124
1067 NULL,                                                                   // #125
1068 NULL,                                                                   // #126
1069 NULL,                                                                   // #127
1070 NULL,                                                                   // #128
1071 NULL,                                                                   // #129
1072 NULL,                                                                   // #130
1073 NULL,                                                                   // #131
1074 NULL,                                                                   // #132
1075 NULL,                                                                   // #133
1076 NULL,                                                                   // #134
1077 NULL,                                                                   // #135
1078 NULL,                                                                   // #136
1079 NULL,                                                                   // #137
1080 NULL,                                                                   // #138
1081 NULL,                                                                   // #139
1082 NULL,                                                                   // #140
1083 NULL,                                                                   // #141
1084 NULL,                                                                   // #142
1085 NULL,                                                                   // #143
1086 NULL,                                                                   // #144
1087 NULL,                                                                   // #145
1088 NULL,                                                                   // #146
1089 NULL,                                                                   // #147
1090 NULL,                                                                   // #148
1091 NULL,                                                                   // #149
1092 NULL,                                                                   // #150
1093 NULL,                                                                   // #151
1094 NULL,                                                                   // #152
1095 NULL,                                                                   // #153
1096 NULL,                                                                   // #154
1097 NULL,                                                                   // #155
1098 NULL,                                                                   // #156
1099 NULL,                                                                   // #157
1100 NULL,                                                                   // #158
1101 NULL,                                                                   // #159
1102 NULL,                                                                   // #160
1103 NULL,                                                                   // #161
1104 NULL,                                                                   // #162
1105 NULL,                                                                   // #163
1106 NULL,                                                                   // #164
1107 NULL,                                                                   // #165
1108 NULL,                                                                   // #166
1109 NULL,                                                                   // #167
1110 NULL,                                                                   // #168
1111 NULL,                                                                   // #169
1112 NULL,                                                                   // #170
1113 NULL,                                                                   // #171
1114 NULL,                                                                   // #172
1115 NULL,                                                                   // #173
1116 NULL,                                                                   // #174
1117 NULL,                                                                   // #175
1118 NULL,                                                                   // #176
1119 NULL,                                                                   // #177
1120 NULL,                                                                   // #178
1121 NULL,                                                                   // #179
1122 NULL,                                                                   // #180
1123 NULL,                                                                   // #181
1124 NULL,                                                                   // #182
1125 NULL,                                                                   // #183
1126 NULL,                                                                   // #184
1127 NULL,                                                                   // #185
1128 NULL,                                                                   // #186
1129 NULL,                                                                   // #187
1130 NULL,                                                                   // #188
1131 NULL,                                                                   // #189
1132 NULL,                                                                   // #190
1133 NULL,                                                                   // #191
1134 NULL,                                                                   // #192
1135 NULL,                                                                   // #193
1136 NULL,                                                                   // #194
1137 NULL,                                                                   // #195
1138 NULL,                                                                   // #196
1139 NULL,                                                                   // #197
1140 NULL,                                                                   // #198
1141 NULL,                                                                   // #199
1142 NULL,                                                                   // #200
1143 NULL,                                                                   // #201
1144 NULL,                                                                   // #202
1145 NULL,                                                                   // #203
1146 NULL,                                                                   // #204
1147 NULL,                                                                   // #205
1148 NULL,                                                                   // #206
1149 NULL,                                                                   // #207
1150 NULL,                                                                   // #208
1151 NULL,                                                                   // #209
1152 NULL,                                                                   // #210
1153 NULL,                                                                   // #211
1154 NULL,                                                                   // #212
1155 NULL,                                                                   // #213
1156 NULL,                                                                   // #214
1157 NULL,                                                                   // #215
1158 NULL,                                                                   // #216
1159 NULL,                                                                   // #217
1160 NULL,                                                                   // #218
1161 NULL,                                                                   // #219
1162 NULL,                                                                   // #220
1163 VM_strstrofs,                                           // #221 float(string str, string sub[, float startpos]) strstrofs (FTE_STRINGS)
1164 VM_str2chr,                                             // #222 float(string str, float ofs) str2chr (FTE_STRINGS)
1165 VM_chr2str,                                             // #223 string(float c, ...) chr2str (FTE_STRINGS)
1166 VM_strconv,                                             // #224 string(float ccase, float calpha, float cnum, string s, ...) strconv (FTE_STRINGS)
1167 VM_strpad,                                              // #225 string(float chars, string s, ...) strpad (FTE_STRINGS)
1168 VM_infoadd,                                             // #226 string(string info, string key, string value, ...) infoadd (FTE_STRINGS)
1169 VM_infoget,                                             // #227 string(string info, string key) infoget (FTE_STRINGS)
1170 VM_strncmp,                                                     // #228 float(string s1, string s2, float len) strncmp (FTE_STRINGS)
1171 VM_strncasecmp,                                 // #229 float(string s1, string s2) strcasecmp (FTE_STRINGS)
1172 VM_strncasecmp,                                 // #230 float(string s1, string s2, float len) strncasecmp (FTE_STRINGS)
1173 NULL,                                                                   // #231
1174 NULL,                                                                   // #232
1175 NULL,                                                                   // #233
1176 NULL,                                                                   // #234
1177 NULL,                                                                   // #235
1178 NULL,                                                                   // #236
1179 NULL,                                                                   // #237
1180 NULL,                                                                   // #238
1181 NULL,                                                                   // #239
1182 NULL,                                                                   // #240
1183 NULL,                                                                   // #241
1184 NULL,                                                                   // #242
1185 NULL,                                                                   // #243
1186 NULL,                                                                   // #244
1187 NULL,                                                                   // #245
1188 NULL,                                                                   // #246
1189 NULL,                                                                   // #247
1190 NULL,                                                                   // #248
1191 NULL,                                                                   // #249
1192 NULL,                                                                   // #250
1193 NULL,                                                                   // #251
1194 NULL,                                                                   // #252
1195 NULL,                                                                   // #253
1196 NULL,                                                                   // #254
1197 NULL,                                                                   // #255
1198 NULL,                                                                   // #256
1199 NULL,                                                                   // #257
1200 NULL,                                                                   // #258
1201 NULL,                                                                   // #259
1202 NULL,                                                                   // #260
1203 NULL,                                                                   // #261
1204 NULL,                                                                   // #262
1205 NULL,                                                                   // #263
1206 NULL,                                                                   // #264
1207 NULL,                                                                   // #265
1208 NULL,                                                                   // #266
1209 NULL,                                                                   // #267
1210 NULL,                                                                   // #268
1211 NULL,                                                                   // #269
1212 NULL,                                                                   // #270
1213 NULL,                                                                   // #271
1214 NULL,                                                                   // #272
1215 NULL,                                                                   // #273
1216 NULL,                                                                   // #274
1217 NULL,                                                                   // #275
1218 NULL,                                                                   // #276
1219 NULL,                                                                   // #277
1220 NULL,                                                                   // #278
1221 NULL,                                                                   // #279
1222 NULL,                                                                   // #280
1223 NULL,                                                                   // #281
1224 NULL,                                                                   // #282
1225 NULL,                                                                   // #283
1226 NULL,                                                                   // #284
1227 NULL,                                                                   // #285
1228 NULL,                                                                   // #286
1229 NULL,                                                                   // #287
1230 NULL,                                                                   // #288
1231 NULL,                                                                   // #289
1232 NULL,                                                                   // #290
1233 NULL,                                                                   // #291
1234 NULL,                                                                   // #292
1235 NULL,                                                                   // #293
1236 NULL,                                                                   // #294
1237 NULL,                                                                   // #295
1238 NULL,                                                                   // #296
1239 NULL,                                                                   // #297
1240 NULL,                                                                   // #298
1241 NULL,                                                                   // #299
1242 // deactivate support for model rendering in the menu until someone has time to do it right [3/2/2008 Andreas]
1243 #if 0
1244 // CSQC range #300-#399
1245 VM_CL_R_ClearScene,                             // #300 void() clearscene (DP_QC_RENDER_SCENE)
1246 VM_CL_R_AddEntities,                    // #301 void(float mask) addentities (DP_QC_RENDER_SCENE)
1247 VM_CL_R_AddEntity,                              // #302 void(entity ent) addentity (DP_QC_RENDER_SCENE)
1248 VM_CL_R_SetView,                                // #303 float(float property, ...) setproperty (DP_QC_RENDER_SCENE)
1249 VM_CL_R_RenderScene,                    // #304 void() renderscene (DP_QC_RENDER_SCENE)
1250 VM_CL_R_AddDynamicLight,                // #305 void(vector org, float radius, vector lightcolours) adddynamiclight (DP_QC_RENDER_SCENE)
1251 VM_CL_R_PolygonBegin,                   // #306 void(string texturename, float flag[, float is2d, float lines]) R_BeginPolygon (DP_QC_RENDER_SCENE)
1252 VM_CL_R_PolygonVertex,                  // #307 void(vector org, vector texcoords, vector rgb, float alpha) R_PolygonVertex (DP_QC_RENDER_SCENE)
1253 VM_CL_R_PolygonEnd,                             // #308 void() R_EndPolygon
1254 NULL/*VM_CL_R_LoadWorldModel*/,                         // #309 void(string modelname) R_LoadWorldModel
1255 // TODO: rearrange and merge all builtin lists and share as many extensions as possible between all VM instances [1/27/2008 Andreas]
1256 VM_CL_setattachment,                            // #310 void(entity e, entity tagentity, string tagname) setattachment (DP_GFX_QUAKE3MODELTAGS) (DP_QC_RENDER_SCENE)
1257 VM_CL_gettagindex,                              // #311 float(entity ent, string tagname) gettagindex (DP_QC_GETTAGINFO) (DP_QC_RENDER_SCENE)
1258 VM_CL_gettaginfo,                                       // #312 vector(entity ent, float tagindex) gettaginfo (DP_QC_GETTAGINFO) (DP_QC_RENDER_SCENE)
1259 #else
1260 // CSQC range #300-#399
1261 NULL,           
1262 NULL,           
1263 NULL,           
1264 NULL,           
1265 NULL,           
1266 NULL,           
1267 NULL,           
1268 NULL,   
1269 NULL,   
1270 NULL,
1271 NULL,   
1272 NULL,   
1273 NULL,   
1274 #endif
1275 NULL,                                                                   // #313
1276 NULL,                                                                   // #314
1277 NULL,                                                                   // #315
1278 NULL,                                                                   // #316
1279 NULL,                                                                   // #317
1280 NULL,                                                                   // #318
1281 NULL,                                                                   // #319
1282 NULL,                                                                   // #320
1283 NULL,                                                                   // #321
1284 NULL,                                                                   // #322
1285 NULL,                                                                   // #323
1286 NULL,                                                                   // #324
1287 NULL,                                                                   // #325
1288 NULL,                                                                   // #326
1289 NULL,                                                                   // #327
1290 NULL,                                                                   // #328
1291 NULL,                                                                   // #329
1292 NULL,                                                                   // #330
1293 NULL,                                                                   // #331
1294 NULL,                                                                   // #332
1295 NULL,                                                                   // #333
1296 NULL,                                                                   // #334
1297 NULL,                                                                   // #335
1298 NULL,                                                                   // #336
1299 NULL,                                                                   // #337
1300 NULL,                                                                   // #338
1301 NULL,                                                                   // #339
1302 VM_keynumtostring,                              // #340 string keynumtostring(float keynum)
1303 VM_stringtokeynum,                              // #341 float stringtokeynum(string key)
1304 VM_getkeybind,                                                  // #342 string(float keynum[, float bindmap]) getkeybind (EXT_CSQC)
1305 NULL,                                                                   // #343
1306 NULL,                                                                   // #344
1307 NULL,                                                                   // #345
1308 NULL,                                                                   // #346
1309 NULL,                                                                   // #347
1310 NULL,                                                                   // #348
1311 VM_CL_isdemo,                                                   // #349
1312 NULL,                                                                   // #350
1313 NULL,                                                                   // #351
1314 NULL,                                                                   // #352
1315 VM_wasfreed,                                                    // #353 float(entity ent) wasfreed
1316 NULL,                                                                   // #354
1317 VM_CL_videoplaying,                                             // #355
1318 VM_findfont,                                                    // #356 float(string fontname) loadfont (DP_GFX_FONTS)
1319 VM_loadfont,                                                    // #357 float(string fontname, string fontmaps, string sizes, float slot) loadfont (DP_GFX_FONTS)
1320 NULL,                                                                   // #358
1321 NULL,                                                                   // #359
1322 NULL,                                                                   // #360
1323 NULL,                                                                   // #361
1324 NULL,                                                                   // #362
1325 NULL,                                                                   // #363
1326 NULL,                                                                   // #364
1327 NULL,                                                                   // #365
1328 NULL,                                                                   // #366
1329 NULL,                                                                   // #367
1330 NULL,                                                                   // #368
1331 NULL,                                                                   // #369
1332 NULL,                                                                   // #370
1333 NULL,                                                                   // #371
1334 NULL,                                                                   // #372
1335 NULL,                                                                   // #373
1336 NULL,                                                                   // #374
1337 NULL,                                                                   // #375
1338 NULL,                                                                   // #376
1339 NULL,                                                                   // #377
1340 NULL,                                                                   // #378
1341 NULL,                                                                   // #379
1342 NULL,                                                                   // #380
1343 NULL,                                                                   // #381
1344 NULL,                                                                   // #382
1345 NULL,                                                                   // #383
1346 NULL,                                                                   // #384
1347 NULL,                                                                   // #385
1348 NULL,                                                                   // #386
1349 NULL,                                                                   // #387
1350 NULL,                                                                   // #388
1351 NULL,                                                                   // #389
1352 NULL,                                                                   // #390
1353 NULL,                                                                   // #391
1354 NULL,                                                                   // #392
1355 NULL,                                                                   // #393
1356 NULL,                                                                   // #394
1357 NULL,                                                                   // #395
1358 NULL,                                                                   // #396
1359 NULL,                                                                   // #397
1360 NULL,                                                                   // #398
1361 NULL,                                                                   // #399
1362 NULL,                                                                   // #400
1363 VM_M_WriteByte,                                 // #401
1364 VM_M_WriteChar,                                 // #402
1365 VM_M_WriteShort,                                        // #403
1366 VM_M_WriteLong,                                 // #404
1367 VM_M_WriteAngle,                                        // #405
1368 VM_M_WriteCoord,                                        // #406
1369 VM_M_WriteString,                                       // #407
1370 VM_M_WriteEntity,                                       // #408
1371 NULL,                                                                   // #409
1372 NULL,                                                                   // #410
1373 NULL,                                                                   // #411
1374 NULL,                                                                   // #412
1375 NULL,                                                                   // #413
1376 NULL,                                                                   // #414
1377 NULL,                                                                   // #415
1378 NULL,                                                                   // #416
1379 NULL,                                                                   // #417
1380 NULL,                                                                   // #418
1381 NULL,                                                                   // #419
1382 NULL,                                                                   // #420
1383 NULL,                                                                   // #421
1384 NULL,                                                                   // #422
1385 NULL,                                                                   // #423
1386 NULL,                                                                   // #424
1387 NULL,                                                                   // #425
1388 NULL,                                                                   // #426
1389 NULL,                                                                   // #427
1390 NULL,                                                                   // #428
1391 NULL,                                                                   // #429
1392 NULL,                                                                   // #430
1393 NULL,                                                                   // #431
1394 NULL,                                                                   // #432
1395 NULL,                                                                   // #433
1396 NULL,                                                                   // #434
1397 NULL,                                                                   // #435
1398 NULL,                                                                   // #436
1399 NULL,                                                                   // #437
1400 NULL,                                                                   // #438
1401 NULL,                                                                   // #439
1402 VM_buf_create,                                  // #440 float() buf_create (DP_QC_STRINGBUFFERS)
1403 VM_buf_del,                                             // #441 void(float bufhandle) buf_del (DP_QC_STRINGBUFFERS)
1404 VM_buf_getsize,                                 // #442 float(float bufhandle) buf_getsize (DP_QC_STRINGBUFFERS)
1405 VM_buf_copy,                                    // #443 void(float bufhandle_from, float bufhandle_to) buf_copy (DP_QC_STRINGBUFFERS)
1406 VM_buf_sort,                                    // #444 void(float bufhandle, float sortpower, float backward) buf_sort (DP_QC_STRINGBUFFERS)
1407 VM_buf_implode,                                 // #445 string(float bufhandle, string glue) buf_implode (DP_QC_STRINGBUFFERS)
1408 VM_bufstr_get,                                  // #446 string(float bufhandle, float string_index) bufstr_get (DP_QC_STRINGBUFFERS)
1409 VM_bufstr_set,                                  // #447 void(float bufhandle, float string_index, string str) bufstr_set (DP_QC_STRINGBUFFERS)
1410 VM_bufstr_add,                                  // #448 float(float bufhandle, string str, float order) bufstr_add (DP_QC_STRINGBUFFERS)
1411 VM_bufstr_free,                                 // #449 void(float bufhandle, float string_index) bufstr_free (DP_QC_STRINGBUFFERS)
1412 NULL,                                                                   // #450
1413 VM_iscachedpic,                                 // #451 draw functions...
1414 VM_precache_pic,                                        // #452
1415 VM_freepic,                                                     // #453
1416 VM_drawcharacter,                                       // #454
1417 VM_drawstring,                                          // #455
1418 VM_drawpic,                                                     // #456
1419 VM_drawfill,                                            // #457
1420 VM_drawsetcliparea,                             // #458
1421 VM_drawresetcliparea,                   // #459
1422 VM_getimagesize,                                        // #460
1423 VM_cin_open,                                            // #461
1424 VM_cin_close,                                           // #462
1425 VM_cin_setstate,                                        // #463
1426 VM_cin_getstate,                                        // #464
1427 VM_cin_restart,                                         // #465
1428 VM_drawline,                                            // #466
1429 VM_drawcolorcodedstring,                // #467
1430 VM_stringwidth,                                 // #468
1431 VM_drawsubpic,                                          // #469
1432 VM_drawrotpic,                                          // #470
1433 VM_asin,                                                                // #471 float(float s) VM_asin (DP_QC_ASINACOSATANATAN2TAN)
1434 VM_acos,                                                                // #472 float(float c) VM_acos (DP_QC_ASINACOSATANATAN2TAN)
1435 VM_atan,                                                                // #473 float(float t) VM_atan (DP_QC_ASINACOSATANATAN2TAN)
1436 VM_atan2,                                                       // #474 float(float c, float s) VM_atan2 (DP_QC_ASINACOSATANATAN2TAN)
1437 VM_tan,                                                         // #475 float(float a) VM_tan (DP_QC_ASINACOSATANATAN2TAN)
1438 VM_strlennocol,                                 // #476 float(string s) : DRESK - String Length (not counting color codes) (DP_QC_STRINGCOLORFUNCTIONS)
1439 VM_strdecolorize,                                       // #477 string(string s) : DRESK - Decolorized String (DP_QC_STRINGCOLORFUNCTIONS)
1440 VM_strftime,                                            // #478 string(float uselocaltime, string format, ...) (DP_QC_STRFTIME)
1441 VM_tokenizebyseparator,                 // #479 float(string s) tokenizebyseparator (DP_QC_TOKENIZEBYSEPARATOR)
1442 VM_strtolower,                                          // #480 string(string s) VM_strtolower : DRESK - Return string as lowercase
1443 VM_strtoupper,                                          // #481 string(string s) VM_strtoupper : DRESK - Return string as uppercase
1444 NULL,                                                                   // #482
1445 NULL,                                                                   // #483
1446 VM_strreplace,                                          // #484 string(string search, string replace, string subject) strreplace (DP_QC_STRREPLACE)
1447 VM_strireplace,                                 // #485 string(string search, string replace, string subject) strireplace (DP_QC_STRREPLACE)
1448 NULL,                                                                   // #486
1449 VM_gecko_create,                                        // #487 float gecko_create( string name )
1450 VM_gecko_destroy,                                       // #488 void gecko_destroy( string name )
1451 VM_gecko_navigate,                              // #489 void gecko_navigate( string name, string URI )
1452 VM_gecko_keyevent,                              // #490 float gecko_keyevent( string name, float key, float eventtype )
1453 VM_gecko_movemouse,                             // #491 void gecko_mousemove( string name, float x, float y )
1454 VM_gecko_resize,                                        // #492 void gecko_resize( string name, float w, float h )
1455 VM_gecko_get_texture_extent,    // #493 vector gecko_get_texture_extent( string name )
1456 VM_crc16,                                               // #494 float(float caseinsensitive, string s, ...) crc16 = #494 (DP_QC_CRC16)
1457 VM_cvar_type,                                   // #495 float(string name) cvar_type = #495; (DP_QC_CVAR_TYPE)
1458 VM_numentityfields,                             // #496 float() numentityfields = #496; (QP_QC_ENTITYDATA)
1459 VM_entityfieldname,                             // #497 string(float fieldnum) entityfieldname = #497; (DP_QC_ENTITYDATA)
1460 VM_entityfieldtype,                             // #498 float(float fieldnum) entityfieldtype = #498; (DP_QC_ENTITYDATA)
1461 VM_getentityfieldstring,                // #499 string(float fieldnum, entity ent) getentityfieldstring = #499; (DP_QC_ENTITYDATA)
1462 VM_putentityfieldstring,                // #500 float(float fieldnum, entity ent, string s) putentityfieldstring = #500; (DP_QC_ENTITYDATA)
1463 NULL,                                                                   // #501
1464 NULL,                                                                   // #502
1465 VM_whichpack,                                   // #503 string(string) whichpack = #503;
1466 NULL,                                                                   // #504
1467 NULL,                                                                   // #505
1468 NULL,                                                                   // #506
1469 NULL,                                                                   // #507
1470 NULL,                                                                   // #508
1471 NULL,                                                                   // #509
1472 VM_uri_escape,                                  // #510 string(string in) uri_escape = #510;
1473 VM_uri_unescape,                                // #511 string(string in) uri_unescape = #511;
1474 VM_etof,                                        // #512 float(entity ent) num_for_edict = #512 (DP_QC_NUM_FOR_EDICT)
1475 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)
1476 VM_tokenize_console,                                    // #514 float(string str) tokenize_console = #514; (DP_QC_TOKENIZE_CONSOLE)
1477 VM_argv_start_index,                                    // #515 float(float idx) argv_start_index = #515; (DP_QC_TOKENIZE_CONSOLE)
1478 VM_argv_end_index,                                              // #516 float(float idx) argv_end_index = #516; (DP_QC_TOKENIZE_CONSOLE)
1479 VM_buf_cvarlist,                                                // #517 void(float buf, string prefix, string antiprefix) buf_cvarlist = #517; (DP_QC_STRINGBUFFERS_CVARLIST)
1480 VM_cvar_description,                                    // #518 float(string name) cvar_description = #518; (DP_QC_CVAR_DESCRIPTION)
1481 NULL,                                                                   // #519
1482 NULL,                                                                   // #520
1483 NULL,                                                                   // #521
1484 NULL,                                                                   // #522
1485 NULL,                                                                   // #523
1486 NULL,                                                                   // #524
1487 NULL,                                                                   // #525
1488 NULL,                                                                   // #526
1489 NULL,                                                                   // #527
1490 NULL,                                                                   // #528
1491 NULL,                                                                   // #529
1492 NULL,                                                                   // #530
1493 NULL,                                                                   // #531
1494 VM_log,                                                                 // #532
1495 VM_getsoundtime,                                                // #533 float(entity e, float channel) getsoundtime = #533; (DP_SND_GETSOUNDTIME)
1496 VM_soundlength,                                                 // #534 float(string sample) soundlength = #534; (DP_SND_GETSOUNDTIME)
1497 VM_buf_loadfile,                        // #535 float(string filename, float bufhandle) buf_loadfile (DP_QC_STRINGBUFFERS_EXT_WIP)
1498 VM_buf_writefile,                       // #536 float(float filehandle, float bufhandle, float startpos, float numstrings) buf_writefile (DP_QC_STRINGBUFFERS_EXT_WIP)
1499 VM_bufstr_find,                         // #537 float(float bufhandle, string match, float matchrule, float startpos) bufstr_find (DP_QC_STRINGBUFFERS_EXT_WIP)
1500 VM_matchpattern,                        // #538 float(string s, string pattern, float matchrule) matchpattern (DP_QC_STRINGBUFFERS_EXT_WIP)
1501 NULL,                                                                   // #539
1502 NULL,                                                                   // #540
1503 NULL,                                                                   // #541
1504 NULL,                                                                   // #542
1505 NULL,                                                                   // #543
1506 NULL,                                                                   // #544
1507 NULL,                                                                   // #545
1508 NULL,                                                                   // #546
1509 NULL,                                                                   // #547
1510 NULL,                                                                   // #548
1511 NULL,                                                                   // #549
1512 NULL,                                                                   // #550
1513 NULL,                                                                   // #551
1514 NULL,                                                                   // #552
1515 NULL,                                                                   // #553
1516 NULL,                                                                   // #554
1517 NULL,                                                                   // #555
1518 NULL,                                                                   // #556
1519 NULL,                                                                   // #557
1520 NULL,                                                                   // #558
1521 NULL,                                                                   // #559
1522 NULL,                                                                   // #560
1523 NULL,                                                                   // #561
1524 NULL,                                                                   // #562
1525 NULL,                                                                   // #563
1526 NULL,                                                                   // #564
1527 NULL,                                                                   // #565
1528 NULL,                                                                   // #566
1529 NULL,                                                                   // #567
1530 NULL,                                                                   // #568
1531 NULL,                                                                   // #569
1532 NULL,                                                                   // #570
1533 NULL,                                                                   // #571
1534 NULL,                                                                   // #572
1535 NULL,                                                                   // #573
1536 NULL,                                                                   // #574
1537 NULL,                                                                   // #575
1538 NULL,                                                                   // #576
1539 NULL,                                                                   // #577
1540 NULL,                                                                   // #578
1541 NULL,                                                                   // #579
1542 NULL,                                                                   // #580
1543 NULL,                                                                   // #581
1544 NULL,                                                                   // #582
1545 NULL,                                                                   // #583
1546 NULL,                                                                   // #584
1547 NULL,                                                                   // #585
1548 NULL,                                                                   // #586
1549 NULL,                                                                   // #587
1550 NULL,                                                                   // #588
1551 NULL,                                                                   // #589
1552 NULL,                                                                   // #590
1553 NULL,                                                                   // #591
1554 NULL,                                                                   // #592
1555 NULL,                                                                   // #593
1556 NULL,                                                                   // #594
1557 NULL,                                                                   // #595
1558 NULL,                                                                   // #596
1559 NULL,                                                                   // #597
1560 NULL,                                                                   // #598
1561 NULL,                                                                   // #599
1562 NULL,                                                                   // #600
1563 VM_M_setkeydest,                                        // #601 void setkeydest(float dest)
1564 VM_M_getkeydest,                                        // #602 float getkeydest(void)
1565 VM_M_setmousetarget,                            // #603 void setmousetarget(float trg)
1566 VM_M_getmousetarget,                            // #604 float getmousetarget(void)
1567 VM_callfunction,                                // #605 void callfunction(...)
1568 VM_writetofile,                                 // #606 void writetofile(float fhandle, entity ent)
1569 VM_isfunction,                                  // #607 float isfunction(string function_name)
1570 VM_M_getresolution,                             // #608 vector getresolution(float number, [float forfullscreen])
1571 VM_keynumtostring,                              // #609 string keynumtostring(float keynum)
1572 VM_findkeysforcommand,          // #610 string findkeysforcommand(string command[, float bindmap])
1573 VM_M_getserverliststat,                 // #611 float gethostcachevalue(float type)
1574 VM_M_getserverliststring,               // #612 string gethostcachestring(float type, float hostnr)
1575 VM_parseentitydata,                             // #613 void parseentitydata(entity ent, string data)
1576 VM_stringtokeynum,                              // #614 float stringtokeynum(string key)
1577 VM_M_resetserverlistmasks,              // #615 void resethostcachemasks(void)
1578 VM_M_setserverlistmaskstring,   // #616 void sethostcachemaskstring(float mask, float fld, string str, float op)
1579 VM_M_setserverlistmasknumber,   // #617 void sethostcachemasknumber(float mask, float fld, float num, float op)
1580 VM_M_resortserverlist,                  // #618 void resorthostcache(void)
1581 VM_M_setserverlistsort,                 // #619 void sethostcachesort(float fld, float descending)
1582 VM_M_refreshserverlist,                 // #620 void refreshhostcache(void)
1583 VM_M_getserverlistnumber,               // #621 float gethostcachenumber(float fld, float hostnr)
1584 VM_M_getserverlistindexforkey,// #622 float gethostcacheindexforkey(string key)
1585 VM_M_addwantedserverlistkey,    // #623 void addwantedhostcachekey(string key)
1586 VM_CL_getextresponse,                   // #624 string getextresponse(void)
1587 VM_netaddress_resolve,          // #625 string netaddress_resolve(string, float)
1588 VM_M_getgamedirinfo,            // #626 string getgamedirinfo(float n, float prop)
1589 VM_sprintf,                     // #627 string sprintf(string format, ...)
1590 NULL, // #628
1591 NULL, // #629
1592 VM_setkeybind,                                          // #630 float(float key, string bind[, float bindmap]) setkeybind
1593 VM_getbindmaps,                                         // #631 vector(void) getbindmap
1594 VM_setbindmaps,                                         // #632 float(vector bm) setbindmap
1595 VM_M_crypto_getkeyfp,                                   // #633 string(string addr) crypto_getkeyfp
1596 VM_M_crypto_getidfp,                                    // #634 string(string addr) crypto_getidfp
1597 VM_M_crypto_getencryptlevel,                            // #635 string(string addr) crypto_getencryptlevel
1598 VM_M_crypto_getmykeyfp,                                 // #636 string(float addr) crypto_getmykeyfp
1599 VM_M_crypto_getmyidfp,                                  // #637 string(float addr) crypto_getmyidfp
1600 NULL,                                                   // #638
1601 VM_digest_hex,                                          // #639
1602 NULL,                                                   // #640
1603 VM_M_crypto_getmyidstatus,                              // #641 float(float i) crypto_getmyidstatus
1604 VM_coverage,                                            // #642
1605 VM_M_crypto_getidstatus,                                // #643 float(string addr) crypto_getidstatus
1606 NULL
1607 };
1608
1609 const int vm_m_numbuiltins = sizeof(vm_m_builtins) / sizeof(prvm_builtin_t);
1610
1611 void MVM_init_cmd(prvm_prog_t *prog)
1612 {
1613         r_refdef_scene_t *scene;
1614
1615         VM_Cmd_Init(prog);
1616         prog->polygonbegin_model = NULL;
1617         prog->polygonbegin_guess2d = 0;
1618
1619         scene = R_GetScenePointer( RST_MENU );
1620
1621         memset (scene, 0, sizeof (*scene));
1622
1623         scene->maxtempentities = 128;
1624         scene->tempentities = (entity_render_t*) Mem_Alloc(prog->progs_mempool, sizeof(entity_render_t) * scene->maxtempentities);
1625
1626         scene->maxentities = MAX_EDICTS + 256 + 512;
1627         scene->entities = (entity_render_t **)Mem_Alloc(prog->progs_mempool, sizeof(entity_render_t *) * scene->maxentities);
1628
1629         // LadyHavoc: what is this for?
1630         scene->ambientintensity = 32.0f;
1631 }
1632
1633 void MVM_reset_cmd(prvm_prog_t *prog)
1634 {
1635         // note: the menu's render entities are automatically freed when the prog's pool is freed
1636
1637         //VM_Cmd_Init();
1638         VM_Cmd_Reset(prog);
1639         prog->polygonbegin_model = NULL;
1640         prog->polygonbegin_guess2d = 0;
1641 }