svvm_cmds.c

   1 #include "quakedef.h"
   2
   3 #include "prvm_cmds.h"
   4 #include "jpeg.h"
   5
   6 //============================================================================
   7 // Server
   8
   9
  10
  11 const char *vm_sv_extensions =
  12 "BX_WAL_SUPPORT "
  13 "DP_BUTTONCHAT "
  14 "DP_BUTTONUSE "
  15 "DP_CL_LOADSKY "
  16 "DP_CON_ALIASPARAMETERS "
  17 "DP_CON_BESTWEAPON "
  18 "DP_CON_EXPANDCVAR "
  19 "DP_CON_SET "
  20 "DP_CON_SETA "
  21 "DP_CON_STARTMAP "
  22 "DP_COVERAGE "
  23 "DP_CRYPTO "
  24 "DP_CSQC_BINDMAPS "
  25 "DP_CSQC_ENTITYWORLDOBJECT "
  26 "DP_CSQC_ENTITYMODELLIGHT "
  27 "DP_CSQC_ENTITYTRANSPARENTSORTING_OFFSET "
  28 "DP_CSQC_MAINVIEW "
  29 "DP_CSQC_MINFPS_QUALITY "
  30 "DP_CSQC_MULTIFRAME_INTERPOLATION "
  31 "DP_CSQC_BOXPARTICLES "
  32 "DP_CSQC_SPAWNPARTICLE "
  33 "DP_CSQC_QUERYRENDERENTITY "
  34 "DP_CSQC_ROTATEMOVES "
  35 "DP_CSQC_SETPAUSE "
  36 "DP_CSQC_V_CALCREFDEF_WIP1 "
  37 "DP_CSQC_V_CALCREFDEF_WIP2 "
  38 "DP_EF_ADDITIVE "
  39 "DP_EF_BLUE "
  40 "DP_EF_DOUBLESIDED "
  41 "DP_EF_DYNAMICMODELLIGHT "
  42 "DP_EF_FLAME "
  43 "DP_EF_FULLBRIGHT "
  44 "DP_EF_NODEPTHTEST "
  45 "DP_EF_NODRAW "
  46 "DP_EF_NOGUNBOB "
  47 "DP_EF_NOSELFSHADOW "
  48 "DP_EF_NOSHADOW "
  49 "DP_EF_RED "
  50 "DP_EF_RESTARTANIM_BIT "
  51 "DP_EF_STARDUST "
  52 "DP_EF_TELEPORT_BIT "
  53 "DP_ENT_ALPHA "
  54 "DP_ENT_COLORMOD "
  55 "DP_ENT_CUSTOMCOLORMAP "
  56 "DP_ENT_EXTERIORMODELTOCLIENT "
  57 "DP_ENT_GLOW "
  58 "DP_ENT_GLOWMOD "
  59 "DP_ENT_LOWPRECISION "
  60 "DP_ENT_SCALE "
  61 "DP_ENT_TRAILEFFECTNUM "
  62 "DP_ENT_VIEWMODEL "
  63 "DP_GFX_EXTERNALTEXTURES "
  64 "DP_GFX_EXTERNALTEXTURES_PERMAP "
  65 "DP_GFX_FOG "
  66 "DP_GFX_MODEL_INTERPOLATION "
  67 "DP_GFX_QUAKE3MODELTAGS "
  68 "DP_GFX_SKINFILES "
  69 "DP_GFX_SKYBOX "
  70 "DP_GFX_FONTS "
  71 "DP_GFX_FONTS_FREETYPE "
  72 "DP_UTF8 "
  73 "DP_FONT_VARIABLEWIDTH "
  74 "DP_HALFLIFE_MAP "
  75 "DP_HALFLIFE_MAP_CVAR "
  76 "DP_HALFLIFE_SPRITE "
  77 "DP_INPUTBUTTONS "
  78 "DP_LIGHTSTYLE_STATICVALUE "
  79 "DP_LITSPRITES "
  80 "DP_LITSUPPORT "
  81 "DP_MONSTERWALK "
  82 "DP_MOVETYPEBOUNCEMISSILE "
  83 "DP_MOVETYPEFLYWORLDONLY "
  84 "DP_MOVETYPEFOLLOW "
  85 "DP_NULL_MODEL "
  86 "DP_QC_ASINACOSATANATAN2TAN "
  87 "DP_QC_AUTOCVARS "
  88 "DP_QC_CHANGEPITCH "
  89 "DP_QC_CMD "
  90 "DP_QC_COPYENTITY "
  91 "DP_QC_CRC16 "
  92 "DP_QC_CVAR_DEFSTRING "
  93 "DP_QC_CVAR_DESCRIPTION "
  94 "DP_QC_CVAR_STRING "
  95 "DP_QC_CVAR_TYPE "
  96 "DP_QC_DIGEST "
  97 "DP_QC_DIGEST_SHA256 "
  98 "DP_QC_EDICT_NUM "
  99 "DP_QC_ENTITYDATA "
 100 "DP_QC_ENTITYSTRING "
 101 "DP_QC_ETOS "
 102 "DP_QC_EXTRESPONSEPACKET "
 103 "DP_QC_FINDCHAIN "
 104 "DP_QC_FINDCHAINFLAGS "
 105 "DP_QC_FINDCHAINFLOAT "
 106 "DP_QC_FINDCHAIN_TOFIELD "
 107 "DP_QC_FINDFLAGS "
 108 "DP_QC_FINDFLOAT "
 109 "DP_QC_FS_SEARCH "
 110 "DP_QC_GETLIGHT "
 111 "DP_QC_GETSURFACE "
 112 "DP_QC_GETSURFACETRIANGLE "
 113 "DP_QC_GETSURFACEPOINTATTRIBUTE "
 114 "DP_QC_GETTAGINFO "
 115 "DP_QC_GETTAGINFO_BONEPROPERTIES "
 116 "DP_QC_GETTIME "
 117 "DP_QC_GETTIME_CDTRACK "
 118 "DP_QC_I18N "
 119 "DP_QC_LOG "
 120 "DP_QC_MINMAXBOUND "
 121 "DP_QC_MULTIPLETEMPSTRINGS "
 122 "DP_QC_NUM_FOR_EDICT "
 123 "DP_QC_RANDOMVEC "
 124 "DP_QC_SINCOSSQRTPOW "
 125 "DP_QC_SPRINTF "
 126 "DP_QC_STRFTIME "
 127 "DP_QC_STRINGBUFFERS "
 128 "DP_QC_STRINGBUFFERS_CVARLIST "
 129 "DP_QC_STRINGBUFFERS_EXT_WIP "
 130 "DP_QC_STRINGCOLORFUNCTIONS "
 131 "DP_QC_STRING_CASE_FUNCTIONS "
 132 "DP_QC_STRREPLACE "
 133 "DP_QC_TOKENIZEBYSEPARATOR "
 134 "DP_QC_TOKENIZE_CONSOLE "
 135 "DP_QC_TRACEBOX "
 136 "DP_QC_TRACETOSS "
 137 "DP_QC_TRACE_MOVETYPE_HITMODEL "
 138 "DP_QC_TRACE_MOVETYPE_WORLDONLY "
 139 "DP_QC_UNLIMITEDTEMPSTRINGS "
 140 "DP_QC_URI_ESCAPE "
 141 "DP_QC_URI_GET "
 142 "DP_QC_URI_POST "
 143 "DP_QC_VECTOANGLES_WITH_ROLL "
 144 "DP_QC_VECTORVECTORS "
 145 "DP_QC_WHICHPACK "
 146 "DP_QUAKE2_MODEL "
 147 "DP_QUAKE2_SPRITE "
 148 "DP_QUAKE3_MAP "
 149 "DP_QUAKE3_MODEL "
 150 "DP_REGISTERCVAR "
 151 "DP_SKELETONOBJECTS "
 152 "DP_SND_DIRECTIONLESSATTNNONE "
 153 "DP_SND_FAKETRACKS "
 154 "DP_SND_SOUND7_WIP1 "
 155 "DP_SND_SOUND7_WIP2 "
 156 "DP_SND_OGGVORBIS "
 157 "DP_SND_SETPARAMS "
 158 "DP_SND_STEREOWAV "
 159 "DP_SND_GETSOUNDTIME "
 160 "DP_VIDEO_DPV "
 161 "DP_VIDEO_SUBTITLES "
 162 "DP_SOLIDCORPSE "
 163 "DP_SPRITE32 "
 164 "DP_SV_BOTCLIENT "
 165 "DP_SV_BOUNCEFACTOR "
 166 "DP_SV_CLIENTCAMERA "
 167 "DP_SV_CLIENTCOLORS "
 168 "DP_SV_CLIENTNAME "
 169 "DP_SV_CMD "
 170 "DP_SV_CUSTOMIZEENTITYFORCLIENT "
 171 "DP_SV_DISABLECLIENTPREDICTION "
 172 "DP_SV_DISCARDABLEDEMO "
 173 "DP_SV_DRAWONLYTOCLIENT "
 174 "DP_SV_DROPCLIENT "
 175 "DP_SV_EFFECT "
 176 "DP_SV_ENTITYCONTENTSTRANSITION "
 177 "DP_SV_MODELFLAGS_AS_EFFECTS "
 178 "DP_SV_MOVETYPESTEP_LANDEVENT "
 179 "DP_SV_NETADDRESS "
 180 "DP_SV_NODRAWTOCLIENT "
 181 "DP_SV_ONENTITYNOSPAWNFUNCTION "
 182 "DP_SV_ONENTITYPREPOSTSPAWNFUNCTION "
 183 "DP_SV_PING "
 184 "DP_SV_PING_PACKETLOSS "
 185 "DP_SV_PLAYERPHYSICS "
 186 "DP_PHYSICS_ODE "
 187 "DP_SV_POINTPARTICLES "
 188 "DP_SV_POINTSOUND "
 189 "DP_SV_PRECACHEANYTIME "
 190 "DP_SV_PRINT "
 191 "DP_SV_PUNCHVECTOR "
 192 "DP_SV_QCSTATUS "
 193 "DP_SV_ROTATINGBMODEL "
 194 "DP_SV_SETCOLOR "
 195 "DP_SV_SHUTDOWN "
 196 "DP_SV_SLOWMO "
 197 "DP_SV_SPAWNFUNC_PREFIX "
 198 "DP_SV_WRITEPICTURE "
 199 "DP_SV_WRITEUNTERMINATEDSTRING "
 200 "DP_TE_BLOOD "
 201 "DP_TE_BLOODSHOWER "
 202 "DP_TE_CUSTOMFLASH "
 203 "DP_TE_EXPLOSIONRGB "
 204 "DP_TE_FLAMEJET "
 205 "DP_TE_PARTICLECUBE "
 206 "DP_TE_PARTICLERAIN "
 207 "DP_TE_PARTICLESNOW "
 208 "DP_TE_PLASMABURN "
 209 "DP_TE_QUADEFFECTS1 "
 210 "DP_TE_SMALLFLASH "
 211 "DP_TE_SPARK "
 212 "DP_TE_STANDARDEFFECTBUILTINS "
 213 "DP_TRACE_HITCONTENTSMASK_SURFACEINFO "
 214 "DP_USERMOVETYPES "
 215 "DP_VIEWZOOM "
 216 "EXT_BITSHIFT "
 217 "FRIK_FILE "
 218 "FTE_CSQC_SKELETONOBJECTS "
 219 "FTE_QC_CHECKPVS "
 220 "FTE_STRINGS "
 221 "KRIMZON_SV_PARSECLIENTCOMMAND "
 222 "NEH_CMD_PLAY2 "
 223 "NEH_RESTOREGAME "
 224 "NEXUIZ_PLAYERMODEL "
 225 "NXQ_GFX_LETTERBOX "
 226 "PRYDON_CLIENTCURSOR "
 227 "TENEBRAE_GFX_DLIGHTS "
 228 "TW_SV_STEPCONTROL "
 229 "ZQ_PAUSE "
 230 "DP_RM_CLIPGROUP "
 231 //"EXT_CSQC " // not ready yet
 232 ;
 233
 234 /*
 235 =================
 236 VM_SV_setorigin
 237
 238 This is the only valid way to move an object without using the physics of the world (setting velocity and waiting).  Directly changing origin will not set internal links correctly, so clipping would be messed up.  This should be called when an object is spawned, and then only if it is teleported.
 239
 240 setorigin (entity, origin)
 241 =================
 242 */
 243 static void VM_SV_setorigin(prvm_prog_t *prog)
 244 {
 245         prvm_edict_t    *e;
 246
 247         VM_SAFEPARMCOUNT(2, VM_setorigin);
 248
 249         e = PRVM_G_EDICT(OFS_PARM0);
 250         if (e == prog->edicts)
 251         {
 252                 VM_Warning(prog, "setorigin: can not modify world entity\n");
 253                 return;
 254         }
 255         if (e->priv.server->free)
 256         {
 257                 VM_Warning(prog, "setorigin: can not modify free entity\n");
 258                 return;
 259         }
 260         VectorCopy(PRVM_G_VECTOR(OFS_PARM1), PRVM_serveredictvector(e, origin));
 261         if(e->priv.required->mark == PRVM_EDICT_MARK_WAIT_FOR_SETORIGIN)
 262                 e->priv.required->mark = PRVM_EDICT_MARK_SETORIGIN_CAUGHT;
 263         SV_LinkEdict(e);
 264 }
 265
 266 // TODO: rotate param isnt used.. could be a bug. please check this and remove it if possible [1/10/2008 Black]
 267 static void SetMinMaxSize (prvm_prog_t *prog, prvm_edict_t *e, float *min, float *max, qboolean rotate)
 268 {
 269         int             i;
 270
 271         for (i=0 ; i<3 ; i++)
 272                 if (min[i] > max[i])
 273                         prog->error_cmd("SetMinMaxSize: backwards mins/maxs");
 274
 275 // set derived values
 276         VectorCopy (min, PRVM_serveredictvector(e, mins));
 277         VectorCopy (max, PRVM_serveredictvector(e, maxs));
 278         VectorSubtract (max, min, PRVM_serveredictvector(e, size));
 279
 280         SV_LinkEdict(e);
 281 }
 282
 283 /*
 284 =================
 285 VM_SV_setsize
 286
 287 the size box is rotated by the current angle
 288 LadyHavoc: no it isn't...
 289
 290 setsize (entity, minvector, maxvector)
 291 =================
 292 */
 293 static void VM_SV_setsize(prvm_prog_t *prog)
 294 {
 295         prvm_edict_t    *e;
 296         vec3_t mins, maxs;
 297
 298         VM_SAFEPARMCOUNT(3, VM_setsize);
 299
 300         e = PRVM_G_EDICT(OFS_PARM0);
 301         if (e == prog->edicts)
 302         {
 303                 VM_Warning(prog, "setsize: can not modify world entity\n");
 304                 return;
 305         }
 306         if (e->priv.server->free)
 307         {
 308                 VM_Warning(prog, "setsize: can not modify free entity\n");
 309                 return;
 310         }
 311         VectorCopy(PRVM_G_VECTOR(OFS_PARM1), mins);
 312         VectorCopy(PRVM_G_VECTOR(OFS_PARM2), maxs);
 313         SetMinMaxSize(prog, e, mins, maxs, false);
 314 }
 315
 316
 317 /*
 318 =================
 319 VM_SV_setmodel
 320
 321 setmodel(entity, model)
 322 =================
 323 */
 324 static vec3_t quakemins = {-16, -16, -16}, quakemaxs = {16, 16, 16};
 325 static void VM_SV_setmodel(prvm_prog_t *prog)
 326 {
 327         prvm_edict_t    *e;
 328         dp_model_t      *mod;
 329         int             i;
 330
 331         VM_SAFEPARMCOUNT(2, VM_setmodel);
 332
 333         e = PRVM_G_EDICT(OFS_PARM0);
 334         if (e == prog->edicts)
 335         {
 336                 VM_Warning(prog, "setmodel: can not modify world entity\n");
 337                 return;
 338         }
 339         if (e->priv.server->free)
 340         {
 341                 VM_Warning(prog, "setmodel: can not modify free entity\n");
 342                 return;
 343         }
 344         i = SV_ModelIndex(PRVM_G_STRING(OFS_PARM1), 1);
 345         PRVM_serveredictstring(e, model) = PRVM_SetEngineString(prog, sv.model_precache[i]);
 346         PRVM_serveredictfloat(e, modelindex) = i;
 347
 348         mod = SV_GetModelByIndex(i);
 349
 350         if (mod)
 351         {
 352                 if (mod->type != mod_alias || sv_gameplayfix_setmodelrealbox.integer)
 353                         SetMinMaxSize(prog, e, mod->normalmins, mod->normalmaxs, true);
 354                 else
 355                         SetMinMaxSize(prog, e, quakemins, quakemaxs, true);
 356         }
 357         else
 358                 SetMinMaxSize(prog, e, vec3_origin, vec3_origin, true);
 359 }
 360
 361 /*
 362 =================
 363 VM_SV_sprint
 364
 365 single print to a specific client
 366
 367 sprint(clientent, value)
 368 =================
 369 */
 370 static void VM_SV_sprint(prvm_prog_t *prog)
 371 {
 372         client_t        *client;
 373         int                     entnum;
 374         char string[VM_STRINGTEMP_LENGTH];
 375
 376         VM_SAFEPARMCOUNTRANGE(2, 8, VM_SV_sprint);
 377
 378         VM_VarString(prog, 1, string, sizeof(string));
 379
 380         entnum = PRVM_G_EDICTNUM(OFS_PARM0);
 381         // LadyHavoc: div0 requested that sprintto world  operate like print
 382         if (entnum == 0)
 383         {
 384                 Con_Print(string);
 385                 return;
 386         }
 387
 388         if (entnum < 1 || entnum > svs.maxclients || !svs.clients[entnum-1].active)
 389         {
 390                 VM_Warning(prog, "tried to centerprint to a non-client\n");
 391                 return;
 392         }
 393
 394         client = svs.clients + entnum-1;
 395         if (!client->netconnection)
 396                 return;
 397
 398         MSG_WriteChar(&client->netconnection->message,svc_print);
 399         MSG_WriteString(&client->netconnection->message, string);
 400 }
 401
 402
 403 /*
 404 =================
 405 VM_SV_centerprint
 406
 407 single print to a specific client
 408
 409 centerprint(clientent, value)
 410 =================
 411 */
 412 static void VM_SV_centerprint(prvm_prog_t *prog)
 413 {
 414         client_t        *client;
 415         int                     entnum;
 416         char string[VM_STRINGTEMP_LENGTH];
 417
 418         VM_SAFEPARMCOUNTRANGE(2, 8, VM_SV_centerprint);
 419
 420         entnum = PRVM_G_EDICTNUM(OFS_PARM0);
 421
 422         if (entnum < 1 || entnum > svs.maxclients || !svs.clients[entnum-1].active)
 423         {
 424                 VM_Warning(prog, "tried to centerprint to a non-client\n");
 425                 return;
 426         }
 427
 428         client = svs.clients + entnum-1;
 429         if (!client->netconnection)
 430                 return;
 431
 432         VM_VarString(prog, 1, string, sizeof(string));
 433         MSG_WriteChar(&client->netconnection->message,svc_centerprint);
 434         MSG_WriteString(&client->netconnection->message, string);
 435 }
 436
 437 /*
 438 =================
 439 VM_SV_particle
 440
 441 particle(origin, color, count)
 442 =================
 443 */
 444 static void VM_SV_particle(prvm_prog_t *prog)
 445 {
 446         vec3_t          org, dir;
 447         int             color;
 448         int             count;
 449
 450         VM_SAFEPARMCOUNT(4, VM_SV_particle);
 451
 452         VectorCopy(PRVM_G_VECTOR(OFS_PARM0), org);
 453         VectorCopy(PRVM_G_VECTOR(OFS_PARM1), dir);
 454         color = (int)PRVM_G_FLOAT(OFS_PARM2);
 455         count = (int)PRVM_G_FLOAT(OFS_PARM3);
 456         SV_StartParticle (org, dir, color, count);
 457 }
 458
 459
 460 /*
 461 =================
 462 VM_SV_ambientsound
 463
 464 =================
 465 */
 466 static void VM_SV_ambientsound(prvm_prog_t *prog)
 467 {
 468         const char      *samp;
 469         vec3_t          pos;
 470         prvm_vec_t      vol, attenuation;
 471         int                     soundnum, large;
 472
 473         VM_SAFEPARMCOUNT(4, VM_SV_ambientsound);
 474
 475         VectorCopy(PRVM_G_VECTOR(OFS_PARM0), pos);
 476         samp = PRVM_G_STRING(OFS_PARM1);
 477         vol = PRVM_G_FLOAT(OFS_PARM2);
 478         attenuation = PRVM_G_FLOAT(OFS_PARM3);
 479
 480 // check to see if samp was properly precached
 481         soundnum = SV_SoundIndex(samp, 1);
 482         if (!soundnum)
 483                 return;
 484
 485         large = false;
 486         if (soundnum >= 256)
 487                 large = true;
 488
 489         // add an svc_spawnambient command to the level signon packet
 490
 491         if (large)
 492                 MSG_WriteByte (&sv.signon, svc_spawnstaticsound2);
 493         else
 494                 MSG_WriteByte (&sv.signon, svc_spawnstaticsound);
 495
 496         MSG_WriteVector(&sv.signon, pos, sv.protocol);
 497
 498         if (large || sv.protocol == PROTOCOL_NEHAHRABJP || sv.protocol == PROTOCOL_NEHAHRABJP2 || sv.protocol == PROTOCOL_NEHAHRABJP3)
 499                 MSG_WriteShort (&sv.signon, soundnum);
 500         else
 501                 MSG_WriteByte (&sv.signon, soundnum);
 502
 503         MSG_WriteByte (&sv.signon, (int)(vol*255));
 504         MSG_WriteByte (&sv.signon, (int)(attenuation*64));
 505
 506 }
 507
 508 /*
 509 =================
 510 VM_SV_sound
 511
 512 Each entity can have eight independant sound sources, like voice,
 513 weapon, feet, etc.
 514
 515 Channel 0 is an auto-allocate channel, the others override anything
 516 already running on that entity/channel pair.
 517
 518 An attenuation of 0 will play full volume everywhere in the level.
 519 Larger attenuations will drop off.
 520
 521 =================
 522 */
 523 static void VM_SV_sound(prvm_prog_t *prog)
 524 {
 525         const char      *sample;
 526         int                     channel;
 527         prvm_edict_t            *entity;
 528         int             nvolume;
 529         int flags;
 530         float attenuation;
 531         float pitchchange;
 532
 533         VM_SAFEPARMCOUNTRANGE(4, 7, VM_SV_sound);
 534
 535         entity = PRVM_G_EDICT(OFS_PARM0);
 536         channel = (int)PRVM_G_FLOAT(OFS_PARM1);
 537         sample = PRVM_G_STRING(OFS_PARM2);
 538         nvolume = (int)(PRVM_G_FLOAT(OFS_PARM3) * 255);
 539         if (prog->argc < 5)
 540         {
 541                 Con_DPrintf("VM_SV_sound: given only 4 parameters, expected 5, assuming attenuation = ATTN_NORMAL\n");
 542                 attenuation = 1;
 543         }
 544         else
 545                 attenuation = PRVM_G_FLOAT(OFS_PARM4);
 546         if (prog->argc < 6)
 547                 pitchchange = 0;
 548         else
 549                 pitchchange = PRVM_G_FLOAT(OFS_PARM5) * 0.01f;
 550
 551         if (prog->argc < 7)
 552         {
 553                 flags = 0;
 554                 if(channel >= 8 && channel <= 15) // weird QW feature
 555                 {
 556                         flags |= CHANNELFLAG_RELIABLE;
 557                         channel -= 8;
 558                 }
 559         }
 560         else
 561         {
 562                 // LadyHavoc: we only let the qc set certain flags, others are off-limits
 563                 flags = (int)PRVM_G_FLOAT(OFS_PARM6) & (CHANNELFLAG_RELIABLE | CHANNELFLAG_FORCELOOP | CHANNELFLAG_PAUSED | CHANNELFLAG_FULLVOLUME);
 564         }
 565
 566         if (nvolume < 0 || nvolume > 255)
 567         {
 568                 VM_Warning(prog, "SV_StartSound: volume must be in range 0-1\n");
 569                 return;
 570         }
 571
 572         if (attenuation < 0 || attenuation > 4)
 573         {
 574                 VM_Warning(prog, "SV_StartSound: attenuation must be in range 0-4\n");
 575                 return;
 576         }
 577
 578         channel = CHAN_USER2ENGINE(channel);
 579
 580         if (!IS_CHAN(channel))
 581         {
 582                 VM_Warning(prog, "SV_StartSound: channel must be in range 0-127\n");
 583                 return;
 584         }
 585
 586         SV_StartSound (entity, channel, sample, nvolume, attenuation, flags & CHANNELFLAG_RELIABLE, pitchchange);
 587 }
 588
 589 /*
 590 =================
 591 VM_SV_pointsound
 592
 593 Follows the same logic as VM_SV_sound, except instead of
 594 an entity, an origin for the sound is provided, and channel
 595 is omitted (since no entity is being tracked).
 596
 597 =================
 598 */
 599 static void VM_SV_pointsound(prvm_prog_t *prog)
 600 {
 601         const char      *sample;
 602         int             nvolume;
 603         float           attenuation;
 604         float           pitchchange;
 605         vec3_t          org;
 606
 607         VM_SAFEPARMCOUNTRANGE(4, 5, VM_SV_pointsound);
 608
 609         VectorCopy(PRVM_G_VECTOR(OFS_PARM0), org);
 610         sample = PRVM_G_STRING(OFS_PARM1);
 611         nvolume = (int)(PRVM_G_FLOAT(OFS_PARM2) * 255);
 612         attenuation = PRVM_G_FLOAT(OFS_PARM3);
 613         pitchchange = prog->argc < 5 ? 0 : PRVM_G_FLOAT(OFS_PARM4) * 0.01f;
 614
 615         if (nvolume < 0 || nvolume > 255)
 616         {
 617                 VM_Warning(prog, "SV_StartPointSound: volume must be in range 0-1\n");
 618                 return;
 619         }
 620
 621         if (attenuation < 0 || attenuation > 4)
 622         {
 623                 VM_Warning(prog, "SV_StartPointSound: attenuation must be in range 0-4\n");
 624                 return;
 625         }
 626
 627         SV_StartPointSound (org, sample, nvolume, attenuation, pitchchange);
 628 }
 629
 630 /*
 631 =================
 632 VM_SV_traceline
 633
 634 Used for use tracing and shot targeting
 635 Traces are blocked by bbox and exact bsp entityes, and also slide box entities
 636 if the tryents flag is set.
 637
 638 traceline (vector1, vector2, movetype, ignore)
 639 =================
 640 */
 641 static void VM_SV_traceline(prvm_prog_t *prog)
 642 {
 643         vec3_t  v1, v2;
 644         trace_t trace;
 645         int             move;
 646         prvm_edict_t    *ent;
 647
 648         VM_SAFEPARMCOUNTRANGE(4, 8, VM_SV_traceline); // allow more parameters for future expansion
 649
 650         prog->xfunction->builtinsprofile += 30;
 651
 652         VectorCopy(PRVM_G_VECTOR(OFS_PARM0), v1);
 653         VectorCopy(PRVM_G_VECTOR(OFS_PARM1), v2);
 654         move = (int)PRVM_G_FLOAT(OFS_PARM2);
 655         ent = PRVM_G_EDICT(OFS_PARM3);
 656
 657         if (VEC_IS_NAN(v1[0]) || VEC_IS_NAN(v1[1]) || VEC_IS_NAN(v1[2]) || VEC_IS_NAN(v2[0]) || VEC_IS_NAN(v2[1]) || VEC_IS_NAN(v2[2]))
 658                 prog->error_cmd("%s: NAN errors detected in traceline('%f %f %f', '%f %f %f', %i, entity %i)\n", prog->name, v1[0], v1[1], v1[2], v2[0], v2[1], v2[2], move, PRVM_EDICT_TO_PROG(ent));
 659
 660         trace = SV_TraceLine(v1, v2, move, ent, SV_GenericHitSuperContentsMask(ent), 0, 0, collision_extendtracelinelength.value);
 661
 662         VM_SetTraceGlobals(prog, &trace);
 663 }
 664
 665
 666 /*
 667 =================
 668 VM_SV_tracebox
 669
 670 Used for use tracing and shot targeting
 671 Traces are blocked by bbox and exact bsp entityes, and also slide box entities
 672 if the tryents flag is set.
 673
 674 tracebox (vector1, vector mins, vector maxs, vector2, tryents)
 675 =================
 676 */
 677 // LadyHavoc: added this for my own use, VERY useful, similar to traceline
 678 static void VM_SV_tracebox(prvm_prog_t *prog)
 679 {
 680         vec3_t v1, v2, m1, m2;
 681         trace_t trace;
 682         int             move;
 683         prvm_edict_t    *ent;
 684
 685         VM_SAFEPARMCOUNTRANGE(6, 8, VM_SV_tracebox); // allow more parameters for future expansion
 686
 687         prog->xfunction->builtinsprofile += 30;
 688
 689         VectorCopy(PRVM_G_VECTOR(OFS_PARM0), v1);
 690         VectorCopy(PRVM_G_VECTOR(OFS_PARM1), m1);
 691         VectorCopy(PRVM_G_VECTOR(OFS_PARM2), m2);
 692         VectorCopy(PRVM_G_VECTOR(OFS_PARM3), v2);
 693         move = (int)PRVM_G_FLOAT(OFS_PARM4);
 694         ent = PRVM_G_EDICT(OFS_PARM5);
 695
 696         if (VEC_IS_NAN(v1[0]) || VEC_IS_NAN(v1[1]) || VEC_IS_NAN(v1[2]) || VEC_IS_NAN(v2[0]) || VEC_IS_NAN(v2[1]) || VEC_IS_NAN(v2[2]))
 697                 prog->error_cmd("%s: NAN errors detected in tracebox('%f %f %f', '%f %f %f', '%f %f %f', '%f %f %f', %i, entity %i)\n", prog->name, v1[0], v1[1], v1[2], m1[0], m1[1], m1[2], m2[0], m2[1], m2[2], v2[0], v2[1], v2[2], move, PRVM_EDICT_TO_PROG(ent));
 698
 699         trace = SV_TraceBox(v1, m1, m2, v2, move, ent, SV_GenericHitSuperContentsMask(ent), 0, 0, collision_extendtraceboxlength.value);
 700
 701         VM_SetTraceGlobals(prog, &trace);
 702 }
 703
 704 static trace_t SV_Trace_Toss(prvm_prog_t *prog, prvm_edict_t *tossent, prvm_edict_t *ignore)
 705 {
 706         int i;
 707         float gravity;
 708         vec3_t move, end, tossentorigin, tossentmins, tossentmaxs;
 709         vec3_t original_origin;
 710         vec3_t original_velocity;
 711         vec3_t original_angles;
 712         vec3_t original_avelocity;
 713         trace_t trace;
 714
 715         VectorCopy(PRVM_serveredictvector(tossent, origin)   , original_origin   );
 716         VectorCopy(PRVM_serveredictvector(tossent, velocity) , original_velocity );
 717         VectorCopy(PRVM_serveredictvector(tossent, angles)   , original_angles   );
 718         VectorCopy(PRVM_serveredictvector(tossent, avelocity), original_avelocity);
 719
 720         gravity = PRVM_serveredictfloat(tossent, gravity);
 721         if (!gravity)
 722                 gravity = 1.0f;
 723         gravity *= sv_gravity.value * 0.025;
 724
 725         for (i = 0;i < 200;i++) // LadyHavoc: sanity check; never trace more than 10 seconds
 726         {
 727                 SV_CheckVelocity (tossent);
 728                 PRVM_serveredictvector(tossent, velocity)[2] -= gravity;
 729                 VectorMA (PRVM_serveredictvector(tossent, angles), 0.05, PRVM_serveredictvector(tossent, avelocity), PRVM_serveredictvector(tossent, angles));
 730                 VectorScale (PRVM_serveredictvector(tossent, velocity), 0.05, move);
 731                 VectorAdd (PRVM_serveredictvector(tossent, origin), move, end);
 732                 VectorCopy(PRVM_serveredictvector(tossent, origin), tossentorigin);
 733                 VectorCopy(PRVM_serveredictvector(tossent, mins), tossentmins);
 734                 VectorCopy(PRVM_serveredictvector(tossent, maxs), tossentmaxs);
 735                 trace = SV_TraceBox(tossentorigin, tossentmins, tossentmaxs, end, MOVE_NORMAL, tossent, SV_GenericHitSuperContentsMask(tossent), 0, 0, collision_extendmovelength.value);
 736                 VectorCopy (trace.endpos, PRVM_serveredictvector(tossent, origin));
 737                 PRVM_serveredictvector(tossent, velocity)[2] -= gravity;
 738
 739                 if (trace.fraction < 1)
 740                         break;
 741         }
 742
 743         VectorCopy(original_origin   , PRVM_serveredictvector(tossent, origin)   );
 744         VectorCopy(original_velocity , PRVM_serveredictvector(tossent, velocity) );
 745         VectorCopy(original_angles   , PRVM_serveredictvector(tossent, angles)   );
 746         VectorCopy(original_avelocity, PRVM_serveredictvector(tossent, avelocity));
 747
 748         return trace;
 749 }
 750
 751 static void VM_SV_tracetoss(prvm_prog_t *prog)
 752 {
 753         trace_t trace;
 754         prvm_edict_t    *ent;
 755         prvm_edict_t    *ignore;
 756
 757         VM_SAFEPARMCOUNT(2, VM_SV_tracetoss);
 758
 759         prog->xfunction->builtinsprofile += 600;
 760
 761         ent = PRVM_G_EDICT(OFS_PARM0);
 762         if (ent == prog->edicts)
 763         {
 764                 VM_Warning(prog, "tracetoss: can not use world entity\n");
 765                 return;
 766         }
 767         ignore = PRVM_G_EDICT(OFS_PARM1);
 768
 769         trace = SV_Trace_Toss(prog, ent, ignore);
 770
 771         VM_SetTraceGlobals(prog, &trace);
 772 }
 773
 774 //============================================================================
 775
 776 static int checkpvsbytes;
 777 static unsigned char checkpvs[MAX_MAP_LEAFS/8];
 778
 779 static int VM_SV_newcheckclient(prvm_prog_t *prog, int check)
 780 {
 781         int             i;
 782         prvm_edict_t    *ent;
 783         vec3_t  org;
 784
 785 // cycle to the next one
 786
 787         check = bound(1, check, svs.maxclients);
 788         if (check == svs.maxclients)
 789                 i = 1;
 790         else
 791                 i = check + 1;
 792
 793         for ( ;  ; i++)
 794         {
 795                 // count the cost
 796                 prog->xfunction->builtinsprofile++;
 797                 // wrap around
 798                 if (i == svs.maxclients+1)
 799                         i = 1;
 800                 // look up the client's edict
 801                 ent = PRVM_EDICT_NUM(i);
 802                 // check if it is to be ignored, but never ignore the one we started on (prevent infinite loop)
 803                 if (i != check && (ent->priv.server->free || PRVM_serveredictfloat(ent, health) <= 0 || ((int)PRVM_serveredictfloat(ent, flags) & FL_NOTARGET)))
 804                         continue;
 805                 // found a valid client (possibly the same one again)
 806                 break;
 807         }
 808
 809 // get the PVS for the entity
 810         VectorAdd(PRVM_serveredictvector(ent, origin), PRVM_serveredictvector(ent, view_ofs), org);
 811         checkpvsbytes = 0;
 812         if (sv.worldmodel && sv.worldmodel->brush.FatPVS)
 813                 checkpvsbytes = sv.worldmodel->brush.FatPVS(sv.worldmodel, org, 0, checkpvs, sizeof(checkpvs), false);
 814
 815         return i;
 816 }
 817
 818 /*
 819 =================
 820 VM_SV_checkclient
 821
 822 Returns a client (or object that has a client enemy) that would be a
 823 valid target.
 824
 825 If there is more than one valid option, they are cycled each frame
 826
 827 If (self.origin + self.viewofs) is not in the PVS of the current target,
 828 it is not returned at all.
 829
 830 name checkclient ()
 831 =================
 832 */
 833 int c_invis, c_notvis;
 834 static void VM_SV_checkclient(prvm_prog_t *prog)
 835 {
 836         prvm_edict_t    *ent, *self;
 837         vec3_t  view;
 838
 839         VM_SAFEPARMCOUNT(0, VM_SV_checkclient);
 840
 841         // find a new check if on a new frame
 842         if (sv.time - sv.lastchecktime >= 0.1)
 843         {
 844                 sv.lastcheck = VM_SV_newcheckclient(prog, sv.lastcheck);
 845                 sv.lastchecktime = sv.time;
 846         }
 847
 848         // return check if it might be visible
 849         ent = PRVM_EDICT_NUM(sv.lastcheck);
 850         if (ent->priv.server->free || PRVM_serveredictfloat(ent, health) <= 0)
 851         {
 852                 VM_RETURN_EDICT(prog->edicts);
 853                 return;
 854         }
 855
 856         // if current entity can't possibly see the check entity, return 0
 857         self = PRVM_PROG_TO_EDICT(PRVM_serverglobaledict(self));
 858         VectorAdd(PRVM_serveredictvector(self, origin), PRVM_serveredictvector(self, view_ofs), view);
 859         if (sv.worldmodel && checkpvsbytes && !sv.worldmodel->brush.BoxTouchingPVS(sv.worldmodel, checkpvs, view, view))
 860         {
 861                 c_notvis++;
 862                 VM_RETURN_EDICT(prog->edicts);
 863                 return;
 864         }
 865
 866         // might be able to see it
 867         c_invis++;
 868         VM_RETURN_EDICT(ent);
 869 }
 870
 871 //============================================================================
 872
 873 /*
 874 =================
 875 VM_SV_checkpvs
 876
 877 Checks if an entity is in a point's PVS.
 878 Should be fast but can be inexact.
 879
 880 float checkpvs(vector viewpos, entity viewee) = #240;
 881 =================
 882 */
 883 static void VM_SV_checkpvs(prvm_prog_t *prog)
 884 {
 885         vec3_t viewpos, absmin, absmax;
 886         prvm_edict_t *viewee;
 887 #if 1
 888         unsigned char *pvs;
 889 #else
 890         int fatpvsbytes;
 891         unsigned char fatpvs[MAX_MAP_LEAFS/8];
 892 #endif
 893
 894         VM_SAFEPARMCOUNT(2, VM_SV_checkpvs);
 895         VectorCopy(PRVM_G_VECTOR(OFS_PARM0), viewpos);
 896         viewee = PRVM_G_EDICT(OFS_PARM1);
 897
 898         if(viewee->priv.server->free)
 899         {
 900                 VM_Warning(prog, "checkpvs: can not check free entity\n");
 901                 PRVM_G_FLOAT(OFS_RETURN) = 4;
 902                 return;
 903         }
 904
 905 #if 1
 906         if(!sv.worldmodel || !sv.worldmodel->brush.GetPVS || !sv.worldmodel->brush.BoxTouchingPVS)
 907         {
 908                 // no PVS support on this worldmodel... darn
 909                 PRVM_G_FLOAT(OFS_RETURN) = 3;
 910                 return;
 911         }
 912         pvs = sv.worldmodel->brush.GetPVS(sv.worldmodel, viewpos);
 913         if(!pvs)
 914         {
 915                 // viewpos isn't in any PVS... darn
 916                 PRVM_G_FLOAT(OFS_RETURN) = 2;
 917                 return;
 918         }
 919         VectorCopy(PRVM_serveredictvector(viewee, absmin), absmin);
 920         VectorCopy(PRVM_serveredictvector(viewee, absmax), absmax);
 921         PRVM_G_FLOAT(OFS_RETURN) = sv.worldmodel->brush.BoxTouchingPVS(sv.worldmodel, pvs, absmin, absmax);
 922 #else
 923         // using fat PVS like FTEQW does (slow)
 924         if(!sv.worldmodel || !sv.worldmodel->brush.FatPVS || !sv.worldmodel->brush.BoxTouchingPVS)
 925         {
 926                 // no PVS support on this worldmodel... darn
 927                 PRVM_G_FLOAT(OFS_RETURN) = 3;
 928                 return;
 929         }
 930         fatpvsbytes = sv.worldmodel->brush.FatPVS(sv.worldmodel, viewpos, 8, fatpvs, sizeof(fatpvs), false);
 931         if(!fatpvsbytes)
 932         {
 933                 // viewpos isn't in any PVS... darn
 934                 PRVM_G_FLOAT(OFS_RETURN) = 2;
 935                 return;
 936         }
 937         VectorCopy(PRVM_serveredictvector(viewee, absmin), absmin);
 938         VectorCopy(PRVM_serveredictvector(viewee, absmax), absmax);
 939         PRVM_G_FLOAT(OFS_RETURN) = sv.worldmodel->brush.BoxTouchingPVS(sv.worldmodel, fatpvs, absmin, absmax);
 940 #endif
 941 }
 942
 943
 944 /*
 945 =================
 946 VM_SV_stuffcmd
 947
 948 Sends text over to the client's execution buffer
 949
 950 stuffcmd (clientent, value, ...)
 951 =================
 952 */
 953 static void VM_SV_stuffcmd(prvm_prog_t *prog)
 954 {
 955         int             entnum;
 956         client_t        *old;
 957         char    string[VM_STRINGTEMP_LENGTH];
 958
 959         VM_SAFEPARMCOUNTRANGE(2, 8, VM_SV_stuffcmd);
 960
 961         entnum = PRVM_G_EDICTNUM(OFS_PARM0);
 962         if (entnum < 1 || entnum > svs.maxclients || !svs.clients[entnum-1].active)
 963         {
 964                 VM_Warning(prog, "Can't stuffcmd to a non-client\n");
 965                 return;
 966         }
 967
 968         VM_VarString(prog, 1, string, sizeof(string));
 969
 970         old = host_client;
 971         host_client = svs.clients + entnum-1;
 972         Host_ClientCommands ("%s", string);
 973         host_client = old;
 974 }
 975
 976 /*
 977 =================
 978 VM_SV_findradius
 979
 980 Returns a chain of entities that have origins within a spherical area
 981
 982 findradius (origin, radius)
 983 =================
 984 */
 985 static void VM_SV_findradius(prvm_prog_t *prog)
 986 {
 987         prvm_edict_t *ent, *chain;
 988         vec_t radius, radius2;
 989         vec3_t org, eorg, mins, maxs;
 990         int i;
 991         int numtouchedicts;
 992         static prvm_edict_t *touchedicts[MAX_EDICTS];
 993         int chainfield;
 994
 995         VM_SAFEPARMCOUNTRANGE(2, 3, VM_SV_findradius);
 996
 997         if(prog->argc == 3)
 998                 chainfield = PRVM_G_INT(OFS_PARM2);
 999         else
1000                 chainfield = prog->fieldoffsets.chain;
1001         if (chainfield < 0)
1002                 prog->error_cmd("VM_findchain: %s doesnt have the specified chain field !", prog->name);
1003
1004         chain = (prvm_edict_t *)prog->edicts;
1005
1006         VectorCopy(PRVM_G_VECTOR(OFS_PARM0), org);
1007         radius = PRVM_G_FLOAT(OFS_PARM1);
1008         radius2 = radius * radius;
1009
1010         mins[0] = org[0] - (radius + 1);
1011         mins[1] = org[1] - (radius + 1);
1012         mins[2] = org[2] - (radius + 1);
1013         maxs[0] = org[0] + (radius + 1);
1014         maxs[1] = org[1] + (radius + 1);
1015         maxs[2] = org[2] + (radius + 1);
1016         numtouchedicts = SV_EntitiesInBox(mins, maxs, MAX_EDICTS, touchedicts);
1017         if (numtouchedicts > MAX_EDICTS)
1018         {
1019                 // this never happens
1020                 Con_Printf("SV_EntitiesInBox returned %i edicts, max was %i\n", numtouchedicts, MAX_EDICTS);
1021                 numtouchedicts = MAX_EDICTS;
1022         }
1023         for (i = 0;i < numtouchedicts;i++)
1024         {
1025                 ent = touchedicts[i];
1026                 prog->xfunction->builtinsprofile++;
1027                 // Quake did not return non-solid entities but darkplaces does
1028                 // (note: this is the reason you can't blow up fallen zombies)
1029                 if (PRVM_serveredictfloat(ent, solid) == SOLID_NOT && !sv_gameplayfix_blowupfallenzombies.integer)
1030                         continue;
1031                 // LadyHavoc: compare against bounding box rather than center so it
1032                 // doesn't miss large objects, and use DotProduct instead of Length
1033                 // for a major speedup
1034                 VectorSubtract(org, PRVM_serveredictvector(ent, origin), eorg);
1035                 if (sv_gameplayfix_findradiusdistancetobox.integer)
1036                 {
1037                         eorg[0] -= bound(PRVM_serveredictvector(ent, mins)[0], eorg[0], PRVM_serveredictvector(ent, maxs)[0]);
1038                         eorg[1] -= bound(PRVM_serveredictvector(ent, mins)[1], eorg[1], PRVM_serveredictvector(ent, maxs)[1]);
1039                         eorg[2] -= bound(PRVM_serveredictvector(ent, mins)[2], eorg[2], PRVM_serveredictvector(ent, maxs)[2]);
1040                 }
1041                 else
1042                         VectorMAMAM(1, eorg, -0.5f, PRVM_serveredictvector(ent, mins), -0.5f, PRVM_serveredictvector(ent, maxs), eorg);
1043                 if (DotProduct(eorg, eorg) < radius2)
1044                 {
1045                         PRVM_EDICTFIELDEDICT(ent,chainfield) = PRVM_EDICT_TO_PROG(chain);
1046                         chain = ent;
1047                 }
1048         }
1049
1050         VM_RETURN_EDICT(chain);
1051 }
1052
1053 static void VM_SV_precache_sound(prvm_prog_t *prog)
1054 {
1055         VM_SAFEPARMCOUNT(1, VM_SV_precache_sound);
1056         PRVM_G_FLOAT(OFS_RETURN) = SV_SoundIndex(PRVM_G_STRING(OFS_PARM0), 2);
1057 }
1058
1059 static void VM_SV_precache_model(prvm_prog_t *prog)
1060 {
1061         VM_SAFEPARMCOUNT(1, VM_SV_precache_model);
1062         SV_ModelIndex(PRVM_G_STRING(OFS_PARM0), 2);
1063         PRVM_G_INT(OFS_RETURN) = PRVM_G_INT(OFS_PARM0);
1064 }
1065
1066 /*
1067 ===============
1068 VM_SV_walkmove
1069
1070 float(float yaw, float dist[, settrace]) walkmove
1071 ===============
1072 */
1073 static void VM_SV_walkmove(prvm_prog_t *prog)
1074 {
1075         prvm_edict_t    *ent;
1076         float   yaw, dist;
1077         vec3_t  move;
1078         mfunction_t     *oldf;
1079         int     oldself;
1080         qboolean        settrace;
1081
1082         VM_SAFEPARMCOUNTRANGE(2, 3, VM_SV_walkmove);
1083
1084         // assume failure if it returns early
1085         PRVM_G_FLOAT(OFS_RETURN) = 0;
1086
1087         ent = PRVM_PROG_TO_EDICT(PRVM_serverglobaledict(self));
1088         if (ent == prog->edicts)
1089         {
1090                 VM_Warning(prog, "walkmove: can not modify world entity\n");
1091                 return;
1092         }
1093         if (ent->priv.server->free)
1094         {
1095                 VM_Warning(prog, "walkmove: can not modify free entity\n");
1096                 return;
1097         }
1098         yaw = PRVM_G_FLOAT(OFS_PARM0);
1099         dist = PRVM_G_FLOAT(OFS_PARM1);
1100         settrace = prog->argc >= 3 && PRVM_G_FLOAT(OFS_PARM2);
1101
1102         if ( !( (int)PRVM_serveredictfloat(ent, flags) & (FL_ONGROUND|FL_FLY|FL_SWIM) ) )
1103                 return;
1104
1105         yaw = yaw*M_PI*2 / 360;
1106
1107         move[0] = cos(yaw)*dist;
1108         move[1] = sin(yaw)*dist;
1109         move[2] = 0;
1110
1111 // save program state, because SV_movestep may call other progs
1112         oldf = prog->xfunction;
1113         oldself = PRVM_serverglobaledict(self);
1114
1115         PRVM_G_FLOAT(OFS_RETURN) = SV_movestep(ent, move, true, false, settrace);
1116
1117
1118 // restore program state
1119         prog->xfunction = oldf;
1120         PRVM_serverglobaledict(self) = oldself;
1121 }
1122
1123 /*
1124 ===============
1125 VM_SV_droptofloor
1126
1127 void() droptofloor
1128 ===============
1129 */
1130
1131 static void VM_SV_droptofloor(prvm_prog_t *prog)
1132 {
1133         prvm_edict_t            *ent;
1134         vec3_t          end, entorigin, entmins, entmaxs;
1135         trace_t         trace;
1136
1137         VM_SAFEPARMCOUNTRANGE(0, 2, VM_SV_droptofloor); // allow 2 parameters because the id1 defs.qc had an incorrect prototype
1138
1139         // assume failure if it returns early
1140         PRVM_G_FLOAT(OFS_RETURN) = 0;
1141
1142         ent = PRVM_PROG_TO_EDICT(PRVM_serverglobaledict(self));
1143         if (ent == prog->edicts)
1144         {
1145                 VM_Warning(prog, "droptofloor: can not modify world entity\n");
1146                 return;
1147         }
1148         if (ent->priv.server->free)
1149         {
1150                 VM_Warning(prog, "droptofloor: can not modify free entity\n");
1151                 return;
1152         }
1153
1154         VectorCopy (PRVM_serveredictvector(ent, origin), end);
1155         end[2] -= 256;
1156
1157         if (sv_gameplayfix_droptofloorstartsolid_nudgetocorrect.integer)
1158                 SV_NudgeOutOfSolid(ent);
1159
1160         VectorCopy(PRVM_serveredictvector(ent, origin), entorigin);
1161         VectorCopy(PRVM_serveredictvector(ent, mins), entmins);
1162         VectorCopy(PRVM_serveredictvector(ent, maxs), entmaxs);
1163         trace = SV_TraceBox(entorigin, entmins, entmaxs, end, MOVE_NORMAL, ent, SV_GenericHitSuperContentsMask(ent), 0, 0, collision_extendmovelength.value);
1164         if (trace.startsolid && sv_gameplayfix_droptofloorstartsolid.integer)
1165         {
1166                 vec3_t offset, org;
1167                 VectorSet(offset, 0.5f * (PRVM_serveredictvector(ent, mins)[0] + PRVM_serveredictvector(ent, maxs)[0]), 0.5f * (PRVM_serveredictvector(ent, mins)[1] + PRVM_serveredictvector(ent, maxs)[1]), PRVM_serveredictvector(ent, mins)[2]);
1168                 VectorAdd(PRVM_serveredictvector(ent, origin), offset, org);
1169                 trace = SV_TraceLine(org, end, MOVE_NORMAL, ent, SV_GenericHitSuperContentsMask(ent), 0, 0, collision_extendmovelength.value);
1170                 VectorSubtract(trace.endpos, offset, trace.endpos);
1171                 if (trace.startsolid)
1172                 {
1173                         Con_DPrintf("droptofloor at %f %f %f - COULD NOT FIX BADLY PLACED ENTITY\n", PRVM_serveredictvector(ent, origin)[0], PRVM_serveredictvector(ent, origin)[1], PRVM_serveredictvector(ent, origin)[2]);
1174                         SV_LinkEdict(ent);
1175                         PRVM_serveredictfloat(ent, flags) = (int)PRVM_serveredictfloat(ent, flags) | FL_ONGROUND;
1176                         PRVM_serveredictedict(ent, groundentity) = 0;
1177                         PRVM_G_FLOAT(OFS_RETURN) = 1;
1178                 }
1179                 else if (trace.fraction < 1)
1180                 {
1181                         Con_DPrintf("droptofloor at %f %f %f - FIXED BADLY PLACED ENTITY\n", PRVM_serveredictvector(ent, origin)[0], PRVM_serveredictvector(ent, origin)[1], PRVM_serveredictvector(ent, origin)[2]);
1182                         VectorCopy (trace.endpos, PRVM_serveredictvector(ent, origin));
1183                         if (sv_gameplayfix_droptofloorstartsolid_nudgetocorrect.integer)
1184                                 SV_NudgeOutOfSolid(ent);
1185                         SV_LinkEdict(ent);
1186                         PRVM_serveredictfloat(ent, flags) = (int)PRVM_serveredictfloat(ent, flags) | FL_ONGROUND;
1187                         PRVM_serveredictedict(ent, groundentity) = PRVM_EDICT_TO_PROG(trace.ent);
1188                         PRVM_G_FLOAT(OFS_RETURN) = 1;
1189                         // if support is destroyed, keep suspended (gross hack for floating items in various maps)
1190                         ent->priv.server->suspendedinairflag = true;
1191                 }
1192         }
1193         else
1194         {
1195                 if (!trace.allsolid && trace.fraction < 1)
1196                 {
1197                         VectorCopy (trace.endpos, PRVM_serveredictvector(ent, origin));
1198                         SV_LinkEdict(ent);
1199                         PRVM_serveredictfloat(ent, flags) = (int)PRVM_serveredictfloat(ent, flags) | FL_ONGROUND;
1200                         PRVM_serveredictedict(ent, groundentity) = PRVM_EDICT_TO_PROG(trace.ent);
1201                         PRVM_G_FLOAT(OFS_RETURN) = 1;
1202                         // if support is destroyed, keep suspended (gross hack for floating items in various maps)
1203                         ent->priv.server->suspendedinairflag = true;
1204                 }
1205         }
1206 }
1207
1208 /*
1209 ===============
1210 VM_SV_lightstyle
1211
1212 void(float style, string value) lightstyle
1213 ===============
1214 */
1215 static void VM_SV_lightstyle(prvm_prog_t *prog)
1216 {
1217         int             style;
1218         const char      *val;
1219         client_t        *client;
1220         int                     j;
1221
1222         VM_SAFEPARMCOUNT(2, VM_SV_lightstyle);
1223
1224         style = (int)PRVM_G_FLOAT(OFS_PARM0);
1225         val = PRVM_G_STRING(OFS_PARM1);
1226
1227         if( (unsigned) style >= MAX_LIGHTSTYLES ) {
1228                 prog->error_cmd( "PF_lightstyle: style: %i >= 64", style );
1229         }
1230
1231 // change the string in sv
1232         strlcpy(sv.lightstyles[style], val, sizeof(sv.lightstyles[style]));
1233
1234 // send message to all clients on this server
1235         if (sv.state != ss_active)
1236                 return;
1237
1238         for (j = 0, client = svs.clients;j < svs.maxclients;j++, client++)
1239         {
1240                 if (client->active && client->netconnection)
1241                 {
1242                         MSG_WriteChar (&client->netconnection->message, svc_lightstyle);
1243                         MSG_WriteChar (&client->netconnection->message,style);
1244                         MSG_WriteString (&client->netconnection->message, val);
1245                 }
1246         }
1247 }
1248
1249 /*
1250 =============
1251 VM_SV_checkbottom
1252 =============
1253 */
1254 static void VM_SV_checkbottom(prvm_prog_t *prog)
1255 {
1256         VM_SAFEPARMCOUNT(1, VM_SV_checkbottom);
1257         PRVM_G_FLOAT(OFS_RETURN) = SV_CheckBottom (PRVM_G_EDICT(OFS_PARM0));
1258 }
1259
1260 /*
1261 =============
1262 VM_SV_pointcontents
1263 =============
1264 */
1265 static void VM_SV_pointcontents(prvm_prog_t *prog)
1266 {
1267         vec3_t point;
1268         VM_SAFEPARMCOUNT(1, VM_SV_pointcontents);
1269         VectorCopy(PRVM_G_VECTOR(OFS_PARM0), point);
1270         PRVM_G_FLOAT(OFS_RETURN) = Mod_Q1BSP_NativeContentsFromSuperContents(SV_PointSuperContents(point));
1271 }
1272
1273 /*
1274 =============
1275 VM_SV_aim
1276
1277 Pick a vector for the player to shoot along
1278 vector aim(entity, missilespeed)
1279 =============
1280 */
1281 static void VM_SV_aim(prvm_prog_t *prog)
1282 {
1283         prvm_edict_t    *ent, *check, *bestent;
1284         vec3_t  start, dir, end, bestdir;
1285         int             i, j;
1286         trace_t tr;
1287         float   dist, bestdist;
1288         //float speed;
1289
1290         VM_SAFEPARMCOUNT(2, VM_SV_aim);
1291
1292         // assume failure if it returns early
1293         VectorCopy(PRVM_serverglobalvector(v_forward), PRVM_G_VECTOR(OFS_RETURN));
1294         // if sv_aim is so high it can't possibly accept anything, skip out early
1295         if (sv_aim.value >= 1)
1296                 return;
1297
1298         ent = PRVM_G_EDICT(OFS_PARM0);
1299         if (ent == prog->edicts)
1300         {
1301                 VM_Warning(prog, "aim: can not use world entity\n");
1302                 return;
1303         }
1304         if (ent->priv.server->free)
1305         {
1306                 VM_Warning(prog, "aim: can not use free entity\n");
1307                 return;
1308         }
1309         //speed = PRVM_G_FLOAT(OFS_PARM1);
1310
1311         VectorCopy (PRVM_serveredictvector(ent, origin), start);
1312         start[2] += 20;
1313
1314 // try sending a trace straight
1315         VectorCopy (PRVM_serverglobalvector(v_forward), dir);
1316         VectorMA (start, 2048, dir, end);
1317         tr = SV_TraceLine(start, end, MOVE_NORMAL, ent, SUPERCONTENTS_SOLID | SUPERCONTENTS_BODY, 0, 0, collision_extendmovelength.value);
1318         if (tr.ent && PRVM_serveredictfloat(((prvm_edict_t *)tr.ent), takedamage) == DAMAGE_AIM
1319         && (!teamplay.integer || PRVM_serveredictfloat(ent, team) <=0 || PRVM_serveredictfloat(ent, team) != PRVM_serveredictfloat(((prvm_edict_t *)tr.ent), team)) )
1320         {
1321                 VectorCopy (PRVM_serverglobalvector(v_forward), PRVM_G_VECTOR(OFS_RETURN));
1322                 return;
1323         }
1324
1325
1326 // try all possible entities
1327         VectorCopy (dir, bestdir);
1328         bestdist = sv_aim.value;
1329         bestent = NULL;
1330
1331         check = PRVM_NEXT_EDICT(prog->edicts);
1332         for (i=1 ; i<prog->num_edicts ; i++, check = PRVM_NEXT_EDICT(check) )
1333         {
1334                 prog->xfunction->builtinsprofile++;
1335                 if (PRVM_serveredictfloat(check, takedamage) != DAMAGE_AIM)
1336                         continue;
1337                 if (check == ent)
1338                         continue;
1339                 if (teamplay.integer && PRVM_serveredictfloat(ent, team) > 0 && PRVM_serveredictfloat(ent, team) == PRVM_serveredictfloat(check, team))
1340                         continue;       // don't aim at teammate
1341                 for (j=0 ; j<3 ; j++)
1342                         end[j] = PRVM_serveredictvector(check, origin)[j]
1343                         + 0.5*(PRVM_serveredictvector(check, mins)[j] + PRVM_serveredictvector(check, maxs)[j]);
1344                 VectorSubtract (end, start, dir);
1345                 VectorNormalize (dir);
1346                 dist = DotProduct (dir, PRVM_serverglobalvector(v_forward));
1347                 if (dist < bestdist)
1348                         continue;       // to far to turn
1349                 tr = SV_TraceLine(start, end, MOVE_NORMAL, ent, SUPERCONTENTS_SOLID | SUPERCONTENTS_BODY, 0, 0, collision_extendmovelength.value);
1350                 if (tr.ent == check)
1351                 {       // can shoot at this one
1352                         bestdist = dist;
1353                         bestent = check;
1354                 }
1355         }
1356
1357         if (bestent)
1358         {
1359                 VectorSubtract (PRVM_serveredictvector(bestent, origin), PRVM_serveredictvector(ent, origin), dir);
1360                 dist = DotProduct (dir, PRVM_serverglobalvector(v_forward));
1361                 VectorScale (PRVM_serverglobalvector(v_forward), dist, end);
1362                 end[2] = dir[2];
1363                 VectorNormalize (end);
1364                 VectorCopy (end, PRVM_G_VECTOR(OFS_RETURN));
1365         }
1366         else
1367         {
1368                 VectorCopy (bestdir, PRVM_G_VECTOR(OFS_RETURN));
1369         }
1370 }
1371
1372 /*
1373 ===============================================================================
1374
1375 MESSAGE WRITING
1376
1377 ===============================================================================
1378 */
1379
1380 #define MSG_BROADCAST   0               // unreliable to all
1381 #define MSG_ONE                 1               // reliable to one (msg_entity)
1382 #define MSG_ALL                 2               // reliable to all
1383 #define MSG_INIT                3               // write to the init string
1384 #define MSG_ENTITY              5
1385
1386 static sizebuf_t *WriteDest(prvm_prog_t *prog)
1387 {
1388         int             entnum;
1389         int             dest;
1390         prvm_edict_t    *ent;
1391
1392         dest = (int)PRVM_G_FLOAT(OFS_PARM0);
1393         switch (dest)
1394         {
1395         case MSG_BROADCAST:
1396                 return &sv.datagram;
1397
1398         case MSG_ONE:
1399                 ent = PRVM_PROG_TO_EDICT(PRVM_serverglobaledict(msg_entity));
1400                 entnum = PRVM_NUM_FOR_EDICT(ent);
1401                 if (entnum < 1 || entnum > svs.maxclients || !svs.clients[entnum-1].active || !svs.clients[entnum-1].netconnection)
1402                 {
1403                         VM_Warning(prog, "WriteDest: tried to write to non-client\n");
1404                         return &sv.reliable_datagram;
1405                 }
1406                 else
1407                         return &svs.clients[entnum-1].netconnection->message;
1408
1409         default:
1410                 VM_Warning(prog, "WriteDest: bad destination\n");
1411         case MSG_ALL:
1412                 return &sv.reliable_datagram;
1413
1414         case MSG_INIT:
1415                 return &sv.signon;
1416
1417         case MSG_ENTITY:
1418                 return sv.writeentitiestoclient_msg;
1419         }
1420
1421         //return NULL;
1422 }
1423
1424 static void VM_SV_WriteByte(prvm_prog_t *prog)
1425 {
1426         VM_SAFEPARMCOUNT(2, VM_SV_WriteByte);
1427         MSG_WriteByte (WriteDest(prog), (int)PRVM_G_FLOAT(OFS_PARM1));
1428 }
1429
1430 static void VM_SV_WriteChar(prvm_prog_t *prog)
1431 {
1432         VM_SAFEPARMCOUNT(2, VM_SV_WriteChar);
1433         MSG_WriteChar (WriteDest(prog), (int)PRVM_G_FLOAT(OFS_PARM1));
1434 }
1435
1436 static void VM_SV_WriteShort(prvm_prog_t *prog)
1437 {
1438         VM_SAFEPARMCOUNT(2, VM_SV_WriteShort);
1439         MSG_WriteShort (WriteDest(prog), (int)PRVM_G_FLOAT(OFS_PARM1));
1440 }
1441
1442 static void VM_SV_WriteLong(prvm_prog_t *prog)
1443 {
1444         VM_SAFEPARMCOUNT(2, VM_SV_WriteLong);
1445         MSG_WriteLong (WriteDest(prog), (int)PRVM_G_FLOAT(OFS_PARM1));
1446 }
1447
1448 static void VM_SV_WriteAngle(prvm_prog_t *prog)
1449 {
1450         VM_SAFEPARMCOUNT(2, VM_SV_WriteAngle);
1451         MSG_WriteAngle (WriteDest(prog), PRVM_G_FLOAT(OFS_PARM1), sv.protocol);
1452 }
1453
1454 static void VM_SV_WriteCoord(prvm_prog_t *prog)
1455 {
1456         VM_SAFEPARMCOUNT(2, VM_SV_WriteCoord);
1457         MSG_WriteCoord (WriteDest(prog), PRVM_G_FLOAT(OFS_PARM1), sv.protocol);
1458 }
1459
1460 static void VM_SV_WriteString(prvm_prog_t *prog)
1461 {
1462         VM_SAFEPARMCOUNT(2, VM_SV_WriteString);
1463         MSG_WriteString (WriteDest(prog), PRVM_G_STRING(OFS_PARM1));
1464 }
1465
1466 static void VM_SV_WriteUnterminatedString(prvm_prog_t *prog)
1467 {
1468         VM_SAFEPARMCOUNT(2, VM_SV_WriteUnterminatedString);
1469         MSG_WriteUnterminatedString (WriteDest(prog), PRVM_G_STRING(OFS_PARM1));
1470 }
1471
1472
1473 static void VM_SV_WriteEntity(prvm_prog_t *prog)
1474 {
1475         VM_SAFEPARMCOUNT(2, VM_SV_WriteEntity);
1476         MSG_WriteShort (WriteDest(prog), PRVM_G_EDICTNUM(OFS_PARM1));
1477 }
1478
1479 // writes a picture as at most size bytes of data
1480 // message:
1481 //   IMGNAME \0 SIZE(short) IMGDATA
1482 // if failed to read/compress:
1483 //   IMGNAME \0 \0 \0
1484 //#501 void(float dest, string name, float maxsize) WritePicture (DP_SV_WRITEPICTURE))
1485 static void VM_SV_WritePicture(prvm_prog_t *prog)
1486 {
1487         const char *imgname;
1488         void *buf;
1489         size_t size;
1490
1491         VM_SAFEPARMCOUNT(3, VM_SV_WritePicture);
1492
1493         imgname = PRVM_G_STRING(OFS_PARM1);
1494         size = (size_t) PRVM_G_FLOAT(OFS_PARM2);
1495         if(size > 65535)
1496                 size = 65535;
1497
1498         MSG_WriteString(WriteDest(prog), imgname);
1499         if(Image_Compress(imgname, size, &buf, &size))
1500         {
1501                 // actual picture
1502                 MSG_WriteShort(WriteDest(prog), (int)size);
1503                 SZ_Write(WriteDest(prog), (unsigned char *) buf, (int)size);
1504         }
1505         else
1506         {
1507                 // placeholder
1508                 MSG_WriteShort(WriteDest(prog), 0);
1509         }
1510 }
1511
1512 //////////////////////////////////////////////////////////
1513
1514 static void VM_SV_makestatic(prvm_prog_t *prog)
1515 {
1516         prvm_edict_t *ent;
1517         int i, large;
1518
1519         // allow 0 parameters due to an id1 qc bug in which this function is used
1520         // with no parameters (but directly after setmodel with self in OFS_PARM0)
1521         VM_SAFEPARMCOUNTRANGE(0, 1, VM_SV_makestatic);
1522
1523         if (prog->argc >= 1)
1524                 ent = PRVM_G_EDICT(OFS_PARM0);
1525         else
1526                 ent = PRVM_PROG_TO_EDICT(PRVM_serverglobaledict(self));
1527         if (ent == prog->edicts)
1528         {
1529                 VM_Warning(prog, "makestatic: can not modify world entity\n");
1530                 return;
1531         }
1532         if (ent->priv.server->free)
1533         {
1534                 VM_Warning(prog, "makestatic: can not modify free entity\n");
1535                 return;
1536         }
1537
1538         large = false;
1539         if (PRVM_serveredictfloat(ent, modelindex) >= 256 || PRVM_serveredictfloat(ent, frame) >= 256)
1540                 large = true;
1541
1542         if (large)
1543         {
1544                 MSG_WriteByte (&sv.signon,svc_spawnstatic2);
1545                 MSG_WriteShort (&sv.signon, (int)PRVM_serveredictfloat(ent, modelindex));
1546                 MSG_WriteShort (&sv.signon, (int)PRVM_serveredictfloat(ent, frame));
1547         }
1548         else if (sv.protocol == PROTOCOL_NEHAHRABJP || sv.protocol == PROTOCOL_NEHAHRABJP2 || sv.protocol == PROTOCOL_NEHAHRABJP3)
1549         {
1550                 MSG_WriteByte (&sv.signon,svc_spawnstatic);
1551                 MSG_WriteShort (&sv.signon, (int)PRVM_serveredictfloat(ent, modelindex));
1552                 MSG_WriteByte (&sv.signon, (int)PRVM_serveredictfloat(ent, frame));
1553         }
1554         else
1555         {
1556                 MSG_WriteByte (&sv.signon,svc_spawnstatic);
1557                 MSG_WriteByte (&sv.signon, (int)PRVM_serveredictfloat(ent, modelindex));
1558                 MSG_WriteByte (&sv.signon, (int)PRVM_serveredictfloat(ent, frame));
1559         }
1560
1561         MSG_WriteByte (&sv.signon, (int)PRVM_serveredictfloat(ent, colormap));
1562         MSG_WriteByte (&sv.signon, (int)PRVM_serveredictfloat(ent, skin));
1563         for (i=0 ; i<3 ; i++)
1564         {
1565                 MSG_WriteCoord(&sv.signon, PRVM_serveredictvector(ent, origin)[i], sv.protocol);
1566                 MSG_WriteAngle(&sv.signon, PRVM_serveredictvector(ent, angles)[i], sv.protocol);
1567         }
1568
1569 // throw the entity away now
1570         PRVM_ED_Free(prog, ent);
1571 }
1572
1573 //=============================================================================
1574
1575 /*
1576 ==============
1577 VM_SV_setspawnparms
1578 ==============
1579 */
1580 static void VM_SV_setspawnparms(prvm_prog_t *prog)
1581 {
1582         prvm_edict_t    *ent;
1583         int             i;
1584         client_t        *client;
1585
1586         VM_SAFEPARMCOUNT(1, VM_SV_setspawnparms);
1587
1588         ent = PRVM_G_EDICT(OFS_PARM0);
1589         i = PRVM_NUM_FOR_EDICT(ent);
1590         if (i < 1 || i > svs.maxclients || !svs.clients[i-1].active)
1591         {
1592                 Con_Print("tried to setspawnparms on a non-client\n");
1593                 return;
1594         }
1595
1596         // copy spawn parms out of the client_t
1597         client = svs.clients + i-1;
1598         for (i=0 ; i< NUM_SPAWN_PARMS ; i++)
1599                 (&PRVM_serverglobalfloat(parm1))[i] = client->spawn_parms[i];
1600 }
1601
1602 /*
1603 =================
1604 VM_SV_getlight
1605
1606 Returns a color vector indicating the lighting at the requested point.
1607
1608 (Internal Operation note: actually measures the light beneath the point, just like
1609                           the model lighting on the client)
1610
1611 getlight(vector)
1612 =================
1613 */
1614 static void VM_SV_getlight(prvm_prog_t *prog)
1615 {
1616         vec3_t ambientcolor, diffusecolor, diffusenormal;
1617         vec3_t p;
1618         VM_SAFEPARMCOUNT(1, VM_SV_getlight);
1619         VectorCopy(PRVM_G_VECTOR(OFS_PARM0), p);
1620         VectorClear(ambientcolor);
1621         VectorClear(diffusecolor);
1622         VectorClear(diffusenormal);
1623         if (sv.worldmodel && sv.worldmodel->brush.LightPoint)
1624                 sv.worldmodel->brush.LightPoint(sv.worldmodel, p, ambientcolor, diffusecolor, diffusenormal);
1625         VectorMA(ambientcolor, 0.5, diffusecolor, PRVM_G_VECTOR(OFS_RETURN));
1626 }
1627
1628 typedef struct
1629 {
1630         unsigned char   type;   // 1/2/8 or 0 to indicate unused
1631         int             fieldoffset;
1632 }customstat_t;
1633
1634 static customstat_t vm_customstats[MAX_CL_STATS]; // matches the regular stat numbers, but only MIN_VM_STAT to MAX_VM_STAT range is used if things are working properly (can register stats from MAX_VM_STAT to MAX_CL_STATS but will warn)
1635 static int vm_customstats_last;
1636
1637 void VM_CustomStats_Clear (void)
1638 {
1639         if(vm_customstats)
1640         {
1641                 memset(vm_customstats, 0, sizeof(vm_customstats));
1642                 vm_customstats_last = -1;
1643         }
1644 }
1645
1646 void VM_SV_UpdateCustomStats (client_t *client, prvm_edict_t *ent, sizebuf_t *msg, int *stats)
1647 {
1648         prvm_prog_t *prog = SVVM_prog;
1649         int                     i;
1650         char            s[17];
1651         union {
1652                 int i;
1653                 float f;
1654         } u;
1655
1656         for(i=MIN_VM_STAT; i<=vm_customstats_last ;i++)
1657         {
1658                 if(!vm_customstats[i].type)
1659                         continue;
1660                 switch(vm_customstats[i].type)
1661                 {
1662                 //string as 16 bytes
1663                 case 1:
1664                         memset(s, 0, 17);
1665                         strlcpy(s, PRVM_E_STRING(ent, vm_customstats[i].fieldoffset), 16);
1666                         stats[i] = s[ 0] + s[ 1] * 256 + s[ 2] * 65536 + s[ 3] * 16777216;
1667                         stats[i+1] = s[ 4] + s[ 5] * 256 + s[ 6] * 65536 + s[ 7] * 16777216;
1668                         stats[i+2] = s[ 8] + s[ 9] * 256 + s[10] * 65536 + s[11] * 16777216;
1669                         stats[i+3] = s[12] + s[13] * 256 + s[14] * 65536 + s[15] * 16777216;
1670                         break;
1671                 //float field sent as-is
1672                 case 8:
1673                         // can't directly use PRVM_E_INT on the field because it may be PRVM_64 and a double is not the representation we want to send
1674                         u.f = PRVM_E_FLOAT(ent, vm_customstats[i].fieldoffset);
1675                         stats[i] = u.i;
1676                         break;
1677                 //integer value of float field
1678                 case 2:
1679                         stats[i] = (int)PRVM_E_FLOAT(ent, vm_customstats[i].fieldoffset);
1680                         break;
1681                 default:
1682                         break;
1683                 }
1684         }
1685 }
1686
1687 // void(float index, float type, .void field) SV_AddStat = #232;
1688 // Set up an auto-sent player stat.
1689 // Client's get thier own fields sent to them. Index may not be less than 32.
1690 // Type is a value equating to the ev_ values found in qcc to dictate types. Valid ones are:
1691 //          1: string (4 stats carrying a total of 16 charactures)
1692 //          2: float (one stat, float converted to an integer for transportation)
1693 //          8: integer (one stat, not converted to an int, so this can be used to transport floats as floats - what a unique idea!)
1694 static void VM_SV_AddStat(prvm_prog_t *prog)
1695 {
1696         int             off, i, type;
1697
1698         VM_SAFEPARMCOUNT(3, VM_SV_AddStat);
1699
1700         i               = (int)PRVM_G_FLOAT(OFS_PARM0);
1701         type    = (int)PRVM_G_FLOAT(OFS_PARM1);
1702         off             = PRVM_G_INT  (OFS_PARM2);
1703
1704         switch (type)
1705         {
1706         case 1:
1707         case 2:
1708         case 8:
1709                 break;
1710         default:
1711                 VM_Warning(prog, "PF_SV_AddStat: unrecognized type %i - supported types are 1 (string up to 16 bytes, takes 4 stat slots), 2 (truncate to int32), 8 (send as float)", type);
1712                 return;
1713         }
1714
1715         if (i < 0)
1716         {
1717                 VM_Warning(prog, "PF_SV_AddStat: index (%i) may not be less than %i\n", i, MIN_VM_STAT);
1718                 return;
1719         }
1720
1721         if (i >= MAX_CL_STATS)
1722         {
1723                 VM_Warning(prog, "PF_SV_AddStat: index (%i) >= MAX_CL_STATS (%i), not supported by protocol, and AddStat beyond MAX_VM_STAT conflicts with engine MOVEVARS\n", i, MAX_CL_STATS, MAX_VM_STAT);
1724                 return;
1725         }
1726
1727         if (i > (MAX_CL_STATS - 4) && type == 1)
1728         {
1729                 VM_Warning(prog, "PF_SV_AddStat: index (%i) > (MAX_CL_STATS-4) with string type won't fit in the protocol, and AddStat beyond MAX_VM_STAT conflicts with engine MOVEVARS\n", i, MAX_CL_STATS);
1730                 return;
1731         }
1732
1733         // these are hazardous to override but sort of allowed if one wants to be adventurous...  and enjoys warnings.
1734         if (i < MIN_VM_STAT)
1735                 VM_Warning(prog, "PF_SV_AddStat: index (%i) < MIN_VM_STAT (%i) may conflict with engine stats - allowed, but this may break things\n", i, MIN_VM_STAT);
1736         else if (i >= MAX_VM_STAT)
1737                 VM_Warning(prog, "PF_SV_AddStat: index (%i) >= MAX_VM_STAT (%i) conflicts with engine stats - allowed, but this may break slowmo and stuff\n", i, MAX_VM_STAT);
1738         else if (i > (MAX_VM_STAT - 4) && type == 1)
1739                 VM_Warning(prog, "PF_SV_AddStat: index (%i) >= MAX_VM_STAT (%i) - 4 with string type won't fit within MAX_VM_STAT, thus conflicting with engine stats - allowed, but this may break slowmo and stuff\n", i, MAX_VM_STAT);
1740
1741         vm_customstats[i].type          = type;
1742         vm_customstats[i].fieldoffset   = off;
1743         if(vm_customstats_last < i)
1744                 vm_customstats_last = i;
1745 }
1746
1747 /*
1748 =================
1749 VM_SV_copyentity
1750
1751 copies data from one entity to another
1752
1753 copyentity(src, dst)
1754 =================
1755 */
1756 static void VM_SV_copyentity(prvm_prog_t *prog)
1757 {
1758         prvm_edict_t *in, *out;
1759         VM_SAFEPARMCOUNT(2, VM_SV_copyentity);
1760         in = PRVM_G_EDICT(OFS_PARM0);
1761         if (in == prog->edicts)
1762         {
1763                 VM_Warning(prog, "copyentity: can not read world entity\n");
1764                 return;
1765         }
1766         if (in->priv.server->free)
1767         {
1768                 VM_Warning(prog, "copyentity: can not read free entity\n");
1769                 return;
1770         }
1771         out = PRVM_G_EDICT(OFS_PARM1);
1772         if (out == prog->edicts)
1773         {
1774                 VM_Warning(prog, "copyentity: can not modify world entity\n");
1775                 return;
1776         }
1777         if (out->priv.server->free)
1778         {
1779                 VM_Warning(prog, "copyentity: can not modify free entity\n");
1780                 return;
1781         }
1782         memcpy(out->fields.fp, in->fields.fp, prog->entityfields * sizeof(prvm_vec_t));
1783         SV_LinkEdict(out);
1784 }
1785
1786
1787 /*
1788 =================
1789 VM_SV_setcolor
1790
1791 sets the color of a client and broadcasts the update to all connected clients
1792
1793 setcolor(clientent, value)
1794 =================
1795 */
1796 static void VM_SV_setcolor(prvm_prog_t *prog)
1797 {
1798         client_t *client;
1799         int entnum, i;
1800
1801         VM_SAFEPARMCOUNT(2, VM_SV_setcolor);
1802         entnum = PRVM_G_EDICTNUM(OFS_PARM0);
1803         i = (int)PRVM_G_FLOAT(OFS_PARM1);
1804
1805         if (entnum < 1 || entnum > svs.maxclients || !svs.clients[entnum-1].active)
1806         {
1807                 Con_Print("tried to setcolor a non-client\n");
1808                 return;
1809         }
1810
1811         client = svs.clients + entnum-1;
1812         if (client->edict)
1813         {
1814                 PRVM_serveredictfloat(client->edict, clientcolors) = i;
1815                 PRVM_serveredictfloat(client->edict, team) = (i & 15) + 1;
1816         }
1817         client->colors = i;
1818         if (client->old_colors != client->colors)
1819         {
1820                 client->old_colors = client->colors;
1821                 // send notification to all clients
1822                 MSG_WriteByte (&sv.reliable_datagram, svc_updatecolors);
1823                 MSG_WriteByte (&sv.reliable_datagram, client - svs.clients);
1824                 MSG_WriteByte (&sv.reliable_datagram, client->colors);
1825         }
1826 }
1827
1828 /*
1829 =================
1830 VM_SV_effect
1831
1832 effect(origin, modelname, startframe, framecount, framerate)
1833 =================
1834 */
1835 static void VM_SV_effect(prvm_prog_t *prog)
1836 {
1837         int i;
1838         const char *s;
1839         vec3_t org;
1840         VM_SAFEPARMCOUNT(5, VM_SV_effect);
1841         s = PRVM_G_STRING(OFS_PARM1);
1842         if (!s[0])
1843         {
1844                 VM_Warning(prog, "effect: no model specified\n");
1845                 return;
1846         }
1847
1848         i = SV_ModelIndex(s, 1);
1849         if (!i)
1850         {
1851                 VM_Warning(prog, "effect: model not precached\n");
1852                 return;
1853         }
1854
1855         if (PRVM_G_FLOAT(OFS_PARM3) < 1)
1856         {
1857                 VM_Warning(prog, "effect: framecount < 1\n");
1858                 return;
1859         }
1860
1861         if (PRVM_G_FLOAT(OFS_PARM4) < 1)
1862         {
1863                 VM_Warning(prog, "effect: framerate < 1\n");
1864                 return;
1865         }
1866
1867         VectorCopy(PRVM_G_VECTOR(OFS_PARM0), org);
1868         SV_StartEffect(org, i, (int)PRVM_G_FLOAT(OFS_PARM2), (int)PRVM_G_FLOAT(OFS_PARM3), (int)PRVM_G_FLOAT(OFS_PARM4));
1869 }
1870
1871 static void VM_SV_te_blood(prvm_prog_t *prog)
1872 {
1873         VM_SAFEPARMCOUNT(3, VM_SV_te_blood);
1874         if (PRVM_G_FLOAT(OFS_PARM2) < 1)
1875                 return;
1876         MSG_WriteByte(&sv.datagram, svc_temp_entity);
1877         MSG_WriteByte(&sv.datagram, TE_BLOOD);
1878         // origin
1879         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[0], sv.protocol);
1880         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[1], sv.protocol);
1881         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[2], sv.protocol);
1882         // velocity
1883         MSG_WriteChar(&sv.datagram, bound(-128, (int) PRVM_G_VECTOR(OFS_PARM1)[0], 127));
1884         MSG_WriteChar(&sv.datagram, bound(-128, (int) PRVM_G_VECTOR(OFS_PARM1)[1], 127));
1885         MSG_WriteChar(&sv.datagram, bound(-128, (int) PRVM_G_VECTOR(OFS_PARM1)[2], 127));
1886         // count
1887         MSG_WriteByte(&sv.datagram, bound(0, (int) PRVM_G_FLOAT(OFS_PARM2), 255));
1888         SV_FlushBroadcastMessages();
1889 }
1890
1891 static void VM_SV_te_bloodshower(prvm_prog_t *prog)
1892 {
1893         VM_SAFEPARMCOUNT(4, VM_SV_te_bloodshower);
1894         if (PRVM_G_FLOAT(OFS_PARM3) < 1)
1895                 return;
1896         MSG_WriteByte(&sv.datagram, svc_temp_entity);
1897         MSG_WriteByte(&sv.datagram, TE_BLOODSHOWER);
1898         // min
1899         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[0], sv.protocol);
1900         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[1], sv.protocol);
1901         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[2], sv.protocol);
1902         // max
1903         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM1)[0], sv.protocol);
1904         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM1)[1], sv.protocol);
1905         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM1)[2], sv.protocol);
1906         // speed
1907         MSG_WriteCoord(&sv.datagram, PRVM_G_FLOAT(OFS_PARM2), sv.protocol);
1908         // count
1909         MSG_WriteShort(&sv.datagram, (int)bound(0, PRVM_G_FLOAT(OFS_PARM3), 65535));
1910         SV_FlushBroadcastMessages();
1911 }
1912
1913 static void VM_SV_te_explosionrgb(prvm_prog_t *prog)
1914 {
1915         VM_SAFEPARMCOUNT(2, VM_SV_te_explosionrgb);
1916         MSG_WriteByte(&sv.datagram, svc_temp_entity);
1917         MSG_WriteByte(&sv.datagram, TE_EXPLOSIONRGB);
1918         // origin
1919         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[0], sv.protocol);
1920         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[1], sv.protocol);
1921         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[2], sv.protocol);
1922         // color
1923         MSG_WriteByte(&sv.datagram, bound(0, (int) (PRVM_G_VECTOR(OFS_PARM1)[0] * 255), 255));
1924         MSG_WriteByte(&sv.datagram, bound(0, (int) (PRVM_G_VECTOR(OFS_PARM1)[1] * 255), 255));
1925         MSG_WriteByte(&sv.datagram, bound(0, (int) (PRVM_G_VECTOR(OFS_PARM1)[2] * 255), 255));
1926         SV_FlushBroadcastMessages();
1927 }
1928
1929 static void VM_SV_te_particlecube(prvm_prog_t *prog)
1930 {
1931         VM_SAFEPARMCOUNT(7, VM_SV_te_particlecube);
1932         if (PRVM_G_FLOAT(OFS_PARM3) < 1)
1933                 return;
1934         MSG_WriteByte(&sv.datagram, svc_temp_entity);
1935         MSG_WriteByte(&sv.datagram, TE_PARTICLECUBE);
1936         // min
1937         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[0], sv.protocol);
1938         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[1], sv.protocol);
1939         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[2], sv.protocol);
1940         // max
1941         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM1)[0], sv.protocol);
1942         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM1)[1], sv.protocol);
1943         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM1)[2], sv.protocol);
1944         // velocity
1945         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM2)[0], sv.protocol);
1946         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM2)[1], sv.protocol);
1947         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM2)[2], sv.protocol);
1948         // count
1949         MSG_WriteShort(&sv.datagram, (int)bound(0, PRVM_G_FLOAT(OFS_PARM3), 65535));
1950         // color
1951         MSG_WriteByte(&sv.datagram, (int)PRVM_G_FLOAT(OFS_PARM4));
1952         // gravity true/false
1953         MSG_WriteByte(&sv.datagram, ((int) PRVM_G_FLOAT(OFS_PARM5)) != 0);
1954         // randomvel
1955         MSG_WriteCoord(&sv.datagram, PRVM_G_FLOAT(OFS_PARM6), sv.protocol);
1956         SV_FlushBroadcastMessages();
1957 }
1958
1959 static void VM_SV_te_particlerain(prvm_prog_t *prog)
1960 {
1961         VM_SAFEPARMCOUNT(5, VM_SV_te_particlerain);
1962         if (PRVM_G_FLOAT(OFS_PARM3) < 1)
1963                 return;
1964         MSG_WriteByte(&sv.datagram, svc_temp_entity);
1965         MSG_WriteByte(&sv.datagram, TE_PARTICLERAIN);
1966         // min
1967         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[0], sv.protocol);
1968         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[1], sv.protocol);
1969         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[2], sv.protocol);
1970         // max
1971         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM1)[0], sv.protocol);
1972         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM1)[1], sv.protocol);
1973         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM1)[2], sv.protocol);
1974         // velocity
1975         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM2)[0], sv.protocol);
1976         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM2)[1], sv.protocol);
1977         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM2)[2], sv.protocol);
1978         // count
1979         MSG_WriteShort(&sv.datagram, (int)bound(0, PRVM_G_FLOAT(OFS_PARM3), 65535));
1980         // color
1981         MSG_WriteByte(&sv.datagram, (int)PRVM_G_FLOAT(OFS_PARM4));
1982         SV_FlushBroadcastMessages();
1983 }
1984
1985 static void VM_SV_te_particlesnow(prvm_prog_t *prog)
1986 {
1987         VM_SAFEPARMCOUNT(5, VM_SV_te_particlesnow);
1988         if (PRVM_G_FLOAT(OFS_PARM3) < 1)
1989                 return;
1990         MSG_WriteByte(&sv.datagram, svc_temp_entity);
1991         MSG_WriteByte(&sv.datagram, TE_PARTICLESNOW);
1992         // min
1993         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[0], sv.protocol);
1994         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[1], sv.protocol);
1995         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[2], sv.protocol);
1996         // max
1997         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM1)[0], sv.protocol);
1998         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM1)[1], sv.protocol);
1999         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM1)[2], sv.protocol);
2000         // velocity
2001         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM2)[0], sv.protocol);
2002         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM2)[1], sv.protocol);
2003         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM2)[2], sv.protocol);
2004         // count
2005         MSG_WriteShort(&sv.datagram, (int)bound(0, PRVM_G_FLOAT(OFS_PARM3), 65535));
2006         // color
2007         MSG_WriteByte(&sv.datagram, (int)PRVM_G_FLOAT(OFS_PARM4));
2008         SV_FlushBroadcastMessages();
2009 }
2010
2011 static void VM_SV_te_spark(prvm_prog_t *prog)
2012 {
2013         VM_SAFEPARMCOUNT(3, VM_SV_te_spark);
2014         if (PRVM_G_FLOAT(OFS_PARM2) < 1)
2015                 return;
2016         MSG_WriteByte(&sv.datagram, svc_temp_entity);
2017         MSG_WriteByte(&sv.datagram, TE_SPARK);
2018         // origin
2019         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[0], sv.protocol);
2020         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[1], sv.protocol);
2021         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[2], sv.protocol);
2022         // velocity
2023         MSG_WriteChar(&sv.datagram, bound(-128, (int) PRVM_G_VECTOR(OFS_PARM1)[0], 127));
2024         MSG_WriteChar(&sv.datagram, bound(-128, (int) PRVM_G_VECTOR(OFS_PARM1)[1], 127));
2025         MSG_WriteChar(&sv.datagram, bound(-128, (int) PRVM_G_VECTOR(OFS_PARM1)[2], 127));
2026         // count
2027         MSG_WriteByte(&sv.datagram, bound(0, (int) PRVM_G_FLOAT(OFS_PARM2), 255));
2028         SV_FlushBroadcastMessages();
2029 }
2030
2031 static void VM_SV_te_gunshotquad(prvm_prog_t *prog)
2032 {
2033         VM_SAFEPARMCOUNT(1, VM_SV_te_gunshotquad);
2034         MSG_WriteByte(&sv.datagram, svc_temp_entity);
2035         MSG_WriteByte(&sv.datagram, TE_GUNSHOTQUAD);
2036         // origin
2037         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[0], sv.protocol);
2038         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[1], sv.protocol);
2039         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[2], sv.protocol);
2040         SV_FlushBroadcastMessages();
2041 }
2042
2043 static void VM_SV_te_spikequad(prvm_prog_t *prog)
2044 {
2045         VM_SAFEPARMCOUNT(1, VM_SV_te_spikequad);
2046         MSG_WriteByte(&sv.datagram, svc_temp_entity);
2047         MSG_WriteByte(&sv.datagram, TE_SPIKEQUAD);
2048         // origin
2049         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[0], sv.protocol);
2050         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[1], sv.protocol);
2051         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[2], sv.protocol);
2052         SV_FlushBroadcastMessages();
2053 }
2054
2055 static void VM_SV_te_superspikequad(prvm_prog_t *prog)
2056 {
2057         VM_SAFEPARMCOUNT(1, VM_SV_te_superspikequad);
2058         MSG_WriteByte(&sv.datagram, svc_temp_entity);
2059         MSG_WriteByte(&sv.datagram, TE_SUPERSPIKEQUAD);
2060         // origin
2061         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[0], sv.protocol);
2062         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[1], sv.protocol);
2063         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[2], sv.protocol);
2064         SV_FlushBroadcastMessages();
2065 }
2066
2067 static void VM_SV_te_explosionquad(prvm_prog_t *prog)
2068 {
2069         VM_SAFEPARMCOUNT(1, VM_SV_te_explosionquad);
2070         MSG_WriteByte(&sv.datagram, svc_temp_entity);
2071         MSG_WriteByte(&sv.datagram, TE_EXPLOSIONQUAD);
2072         // origin
2073         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[0], sv.protocol);
2074         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[1], sv.protocol);
2075         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[2], sv.protocol);
2076         SV_FlushBroadcastMessages();
2077 }
2078
2079 static void VM_SV_te_smallflash(prvm_prog_t *prog)
2080 {
2081         VM_SAFEPARMCOUNT(1, VM_SV_te_smallflash);
2082         MSG_WriteByte(&sv.datagram, svc_temp_entity);
2083         MSG_WriteByte(&sv.datagram, TE_SMALLFLASH);
2084         // origin
2085         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[0], sv.protocol);
2086         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[1], sv.protocol);
2087         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[2], sv.protocol);
2088         SV_FlushBroadcastMessages();
2089 }
2090
2091 static void VM_SV_te_customflash(prvm_prog_t *prog)
2092 {
2093         VM_SAFEPARMCOUNT(4, VM_SV_te_customflash);
2094         if (PRVM_G_FLOAT(OFS_PARM1) < 8 || PRVM_G_FLOAT(OFS_PARM2) < (1.0 / 256.0))
2095                 return;
2096         MSG_WriteByte(&sv.datagram, svc_temp_entity);
2097         MSG_WriteByte(&sv.datagram, TE_CUSTOMFLASH);
2098         // origin
2099         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[0], sv.protocol);
2100         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[1], sv.protocol);
2101         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[2], sv.protocol);
2102         // radius
2103         MSG_WriteByte(&sv.datagram, (int)bound(0, PRVM_G_FLOAT(OFS_PARM1) / 8 - 1, 255));
2104         // lifetime
2105         MSG_WriteByte(&sv.datagram, (int)bound(0, PRVM_G_FLOAT(OFS_PARM2) * 256 - 1, 255));
2106         // color
2107         MSG_WriteByte(&sv.datagram, (int)bound(0, PRVM_G_VECTOR(OFS_PARM3)[0] * 255, 255));
2108         MSG_WriteByte(&sv.datagram, (int)bound(0, PRVM_G_VECTOR(OFS_PARM3)[1] * 255, 255));
2109         MSG_WriteByte(&sv.datagram, (int)bound(0, PRVM_G_VECTOR(OFS_PARM3)[2] * 255, 255));
2110         SV_FlushBroadcastMessages();
2111 }
2112
2113 static void VM_SV_te_gunshot(prvm_prog_t *prog)
2114 {
2115         VM_SAFEPARMCOUNT(1, VM_SV_te_gunshot);
2116         MSG_WriteByte(&sv.datagram, svc_temp_entity);
2117         MSG_WriteByte(&sv.datagram, TE_GUNSHOT);
2118         // origin
2119         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[0], sv.protocol);
2120         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[1], sv.protocol);
2121         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[2], sv.protocol);
2122         SV_FlushBroadcastMessages();
2123 }
2124
2125 static void VM_SV_te_spike(prvm_prog_t *prog)
2126 {
2127         VM_SAFEPARMCOUNT(1, VM_SV_te_spike);
2128         MSG_WriteByte(&sv.datagram, svc_temp_entity);
2129         MSG_WriteByte(&sv.datagram, TE_SPIKE);
2130         // origin
2131         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[0], sv.protocol);
2132         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[1], sv.protocol);
2133         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[2], sv.protocol);
2134         SV_FlushBroadcastMessages();
2135 }
2136
2137 static void VM_SV_te_superspike(prvm_prog_t *prog)
2138 {
2139         VM_SAFEPARMCOUNT(1, VM_SV_te_superspike);
2140         MSG_WriteByte(&sv.datagram, svc_temp_entity);
2141         MSG_WriteByte(&sv.datagram, TE_SUPERSPIKE);
2142         // origin
2143         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[0], sv.protocol);
2144         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[1], sv.protocol);
2145         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[2], sv.protocol);
2146         SV_FlushBroadcastMessages();
2147 }
2148
2149 static void VM_SV_te_explosion(prvm_prog_t *prog)
2150 {
2151         VM_SAFEPARMCOUNT(1, VM_SV_te_explosion);
2152         MSG_WriteByte(&sv.datagram, svc_temp_entity);
2153         MSG_WriteByte(&sv.datagram, TE_EXPLOSION);
2154         // origin
2155         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[0], sv.protocol);
2156         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[1], sv.protocol);
2157         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[2], sv.protocol);
2158         SV_FlushBroadcastMessages();
2159 }
2160
2161 static void VM_SV_te_tarexplosion(prvm_prog_t *prog)
2162 {
2163         VM_SAFEPARMCOUNT(1, VM_SV_te_tarexplosion);
2164         MSG_WriteByte(&sv.datagram, svc_temp_entity);
2165         MSG_WriteByte(&sv.datagram, TE_TAREXPLOSION);
2166         // origin
2167         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[0], sv.protocol);
2168         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[1], sv.protocol);
2169         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[2], sv.protocol);
2170         SV_FlushBroadcastMessages();
2171 }
2172
2173 static void VM_SV_te_wizspike(prvm_prog_t *prog)
2174 {
2175         VM_SAFEPARMCOUNT(1, VM_SV_te_wizspike);
2176         MSG_WriteByte(&sv.datagram, svc_temp_entity);
2177         MSG_WriteByte(&sv.datagram, TE_WIZSPIKE);
2178         // origin
2179         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[0], sv.protocol);
2180         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[1], sv.protocol);
2181         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[2], sv.protocol);
2182         SV_FlushBroadcastMessages();
2183 }
2184
2185 static void VM_SV_te_knightspike(prvm_prog_t *prog)
2186 {
2187         VM_SAFEPARMCOUNT(1, VM_SV_te_knightspike);
2188         MSG_WriteByte(&sv.datagram, svc_temp_entity);
2189         MSG_WriteByte(&sv.datagram, TE_KNIGHTSPIKE);
2190         // origin
2191         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[0], sv.protocol);
2192         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[1], sv.protocol);
2193         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[2], sv.protocol);
2194         SV_FlushBroadcastMessages();
2195 }
2196
2197 static void VM_SV_te_lavasplash(prvm_prog_t *prog)
2198 {
2199         VM_SAFEPARMCOUNT(1, VM_SV_te_lavasplash);
2200         MSG_WriteByte(&sv.datagram, svc_temp_entity);
2201         MSG_WriteByte(&sv.datagram, TE_LAVASPLASH);
2202         // origin
2203         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[0], sv.protocol);
2204         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[1], sv.protocol);
2205         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[2], sv.protocol);
2206         SV_FlushBroadcastMessages();
2207 }
2208
2209 static void VM_SV_te_teleport(prvm_prog_t *prog)
2210 {
2211         VM_SAFEPARMCOUNT(1, VM_SV_te_teleport);
2212         MSG_WriteByte(&sv.datagram, svc_temp_entity);
2213         MSG_WriteByte(&sv.datagram, TE_TELEPORT);
2214         // origin
2215         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[0], sv.protocol);
2216         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[1], sv.protocol);
2217         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[2], sv.protocol);
2218         SV_FlushBroadcastMessages();
2219 }
2220
2221 static void VM_SV_te_explosion2(prvm_prog_t *prog)
2222 {
2223         VM_SAFEPARMCOUNT(3, VM_SV_te_explosion2);
2224         MSG_WriteByte(&sv.datagram, svc_temp_entity);
2225         MSG_WriteByte(&sv.datagram, TE_EXPLOSION2);
2226         // origin
2227         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[0], sv.protocol);
2228         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[1], sv.protocol);
2229         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[2], sv.protocol);
2230         // color
2231         MSG_WriteByte(&sv.datagram, (int)PRVM_G_FLOAT(OFS_PARM1));
2232         MSG_WriteByte(&sv.datagram, (int)PRVM_G_FLOAT(OFS_PARM2));
2233         SV_FlushBroadcastMessages();
2234 }
2235
2236 static void VM_SV_te_lightning1(prvm_prog_t *prog)
2237 {
2238         VM_SAFEPARMCOUNT(3, VM_SV_te_lightning1);
2239         MSG_WriteByte(&sv.datagram, svc_temp_entity);
2240         MSG_WriteByte(&sv.datagram, TE_LIGHTNING1);
2241         // owner entity
2242         MSG_WriteShort(&sv.datagram, PRVM_G_EDICTNUM(OFS_PARM0));
2243         // start
2244         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM1)[0], sv.protocol);
2245         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM1)[1], sv.protocol);
2246         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM1)[2], sv.protocol);
2247         // end
2248         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM2)[0], sv.protocol);
2249         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM2)[1], sv.protocol);
2250         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM2)[2], sv.protocol);
2251         SV_FlushBroadcastMessages();
2252 }
2253
2254 static void VM_SV_te_lightning2(prvm_prog_t *prog)
2255 {
2256         VM_SAFEPARMCOUNT(3, VM_SV_te_lightning2);
2257         MSG_WriteByte(&sv.datagram, svc_temp_entity);
2258         MSG_WriteByte(&sv.datagram, TE_LIGHTNING2);
2259         // owner entity
2260         MSG_WriteShort(&sv.datagram, PRVM_G_EDICTNUM(OFS_PARM0));
2261         // start
2262         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM1)[0], sv.protocol);
2263         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM1)[1], sv.protocol);
2264         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM1)[2], sv.protocol);
2265         // end
2266         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM2)[0], sv.protocol);
2267         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM2)[1], sv.protocol);
2268         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM2)[2], sv.protocol);
2269         SV_FlushBroadcastMessages();
2270 }
2271
2272 static void VM_SV_te_lightning3(prvm_prog_t *prog)
2273 {
2274         VM_SAFEPARMCOUNT(3, VM_SV_te_lightning3);
2275         MSG_WriteByte(&sv.datagram, svc_temp_entity);
2276         MSG_WriteByte(&sv.datagram, TE_LIGHTNING3);
2277         // owner entity
2278         MSG_WriteShort(&sv.datagram, PRVM_G_EDICTNUM(OFS_PARM0));
2279         // start
2280         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM1)[0], sv.protocol);
2281         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM1)[1], sv.protocol);
2282         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM1)[2], sv.protocol);
2283         // end
2284         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM2)[0], sv.protocol);
2285         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM2)[1], sv.protocol);
2286         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM2)[2], sv.protocol);
2287         SV_FlushBroadcastMessages();
2288 }
2289
2290 static void VM_SV_te_beam(prvm_prog_t *prog)
2291 {
2292         VM_SAFEPARMCOUNT(3, VM_SV_te_beam);
2293         MSG_WriteByte(&sv.datagram, svc_temp_entity);
2294         MSG_WriteByte(&sv.datagram, TE_BEAM);
2295         // owner entity
2296         MSG_WriteShort(&sv.datagram, PRVM_G_EDICTNUM(OFS_PARM0));
2297         // start
2298         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM1)[0], sv.protocol);
2299         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM1)[1], sv.protocol);
2300         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM1)[2], sv.protocol);
2301         // end
2302         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM2)[0], sv.protocol);
2303         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM2)[1], sv.protocol);
2304         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM2)[2], sv.protocol);
2305         SV_FlushBroadcastMessages();
2306 }
2307
2308 static void VM_SV_te_plasmaburn(prvm_prog_t *prog)
2309 {
2310         VM_SAFEPARMCOUNT(1, VM_SV_te_plasmaburn);
2311         MSG_WriteByte(&sv.datagram, svc_temp_entity);
2312         MSG_WriteByte(&sv.datagram, TE_PLASMABURN);
2313         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[0], sv.protocol);
2314         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[1], sv.protocol);
2315         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[2], sv.protocol);
2316         SV_FlushBroadcastMessages();
2317 }
2318
2319 static void VM_SV_te_flamejet(prvm_prog_t *prog)
2320 {
2321         VM_SAFEPARMCOUNT(3, VM_SV_te_flamejet);
2322         MSG_WriteByte(&sv.datagram, svc_temp_entity);
2323         MSG_WriteByte(&sv.datagram, TE_FLAMEJET);
2324         // org
2325         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[0], sv.protocol);
2326         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[1], sv.protocol);
2327         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM0)[2], sv.protocol);
2328         // vel
2329         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM1)[0], sv.protocol);
2330         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM1)[1], sv.protocol);
2331         MSG_WriteCoord(&sv.datagram, PRVM_G_VECTOR(OFS_PARM1)[2], sv.protocol);
2332         // count
2333         MSG_WriteByte(&sv.datagram, (int)PRVM_G_FLOAT(OFS_PARM2));
2334         SV_FlushBroadcastMessages();
2335 }
2336
2337 //void(entity e, string s) clientcommand = #440; // executes a command string as if it came from the specified client
2338 //this function originally written by KrimZon, made shorter by LadyHavoc
2339 static void VM_SV_clientcommand(prvm_prog_t *prog)
2340 {
2341         client_t *temp_client;
2342         int i;
2343         VM_SAFEPARMCOUNT(2, VM_SV_clientcommand);
2344
2345         //find client for this entity
2346         i = (PRVM_NUM_FOR_EDICT(PRVM_G_EDICT(OFS_PARM0)) - 1);
2347         if (i < 0 || i >= svs.maxclients || !svs.clients[i].active)
2348         {
2349                 Con_Print("PF_clientcommand: entity is not a client\n");
2350                 return;
2351         }
2352
2353         temp_client = host_client;
2354         host_client = svs.clients + i;
2355         Cmd_ExecuteString(&cmd_serverfromclient, PRVM_G_STRING(OFS_PARM1), src_client, true);
2356         host_client = temp_client;
2357 }
2358
2359 //void(entity e, entity tagentity, string tagname) setattachment = #443; // attachs e to a tag on tagentity (note: use "" to attach to entity origin/angles instead of a tag)
2360 static void VM_SV_setattachment(prvm_prog_t *prog)
2361 {
2362         prvm_edict_t *e = PRVM_G_EDICT(OFS_PARM0);
2363         prvm_edict_t *tagentity = PRVM_G_EDICT(OFS_PARM1);
2364         const char *tagname = PRVM_G_STRING(OFS_PARM2);
2365         dp_model_t *model;
2366         int tagindex;
2367         VM_SAFEPARMCOUNT(3, VM_SV_setattachment);
2368
2369         if (e == prog->edicts)
2370         {
2371                 VM_Warning(prog, "setattachment: can not modify world entity\n");
2372                 return;
2373         }
2374         if (e->priv.server->free)
2375         {
2376                 VM_Warning(prog, "setattachment: can not modify free entity\n");
2377                 return;
2378         }
2379
2380         if (tagentity == NULL)
2381                 tagentity = prog->edicts;
2382
2383         tagindex = 0;
2384
2385         if (tagentity != NULL && tagentity != prog->edicts && tagname && tagname[0])
2386         {
2387                 model = SV_GetModelFromEdict(tagentity);
2388                 if (model)
2389                 {
2390                         tagindex = Mod_Alias_GetTagIndexForName(model, (int)PRVM_serveredictfloat(tagentity, skin), tagname);
2391                         if (tagindex == 0)
2392                                 Con_DPrintf("setattachment(edict %i, edict %i, string \"%s\"): tried to find tag named \"%s\" on entity %i (model \"%s\") but could not find it\n", PRVM_NUM_FOR_EDICT(e), PRVM_NUM_FOR_EDICT(tagentity), tagname, tagname, PRVM_NUM_FOR_EDICT(tagentity), model->name);
2393                 }
2394                 else
2395                         Con_DPrintf("setattachment(edict %i, edict %i, string \"%s\"): tried to find tag named \"%s\" on entity %i but it has no model\n", PRVM_NUM_FOR_EDICT(e), PRVM_NUM_FOR_EDICT(tagentity), tagname, tagname, PRVM_NUM_FOR_EDICT(tagentity));
2396         }
2397
2398         PRVM_serveredictedict(e, tag_entity) = PRVM_EDICT_TO_PROG(tagentity);
2399         PRVM_serveredictfloat(e, tag_index) = tagindex;
2400 }
2401
2402 /////////////////////////////////////////
2403 // DP_MD3_TAGINFO extension coded by VorteX
2404
2405 static int SV_GetTagIndex (prvm_prog_t *prog, prvm_edict_t *e, const char *tagname)
2406 {
2407         int i;
2408
2409         i = (int)PRVM_serveredictfloat(e, modelindex);
2410         if (i < 1 || i >= MAX_MODELS)
2411                 return -1;
2412
2413         return Mod_Alias_GetTagIndexForName(SV_GetModelByIndex(i), (int)PRVM_serveredictfloat(e, skin), tagname);
2414 }
2415
2416 static int SV_GetExtendedTagInfo (prvm_prog_t *prog, prvm_edict_t *e, int tagindex, int *parentindex, const char **tagname, matrix4x4_t *tag_localmatrix)
2417 {
2418         int r;
2419         dp_model_t *model;
2420
2421         *tagname = NULL;
2422         *parentindex = 0;
2423         Matrix4x4_CreateIdentity(tag_localmatrix);
2424
2425         if (tagindex >= 0 && (model = SV_GetModelFromEdict(e)) && model->num_bones)
2426         {
2427                 r = Mod_Alias_GetExtendedTagInfoForIndex(model, (int)PRVM_serveredictfloat(e, skin), e->priv.server->frameblend, &e->priv.server->skeleton, tagindex - 1, parentindex, tagname, tag_localmatrix);
2428
2429                 if(!r) // success?
2430                         *parentindex += 1;
2431
2432                 return r;
2433         }
2434
2435         return 1;
2436 }
2437
2438 void SV_GetEntityMatrix (prvm_prog_t *prog, prvm_edict_t *ent, matrix4x4_t *out, qboolean viewmatrix)
2439 {
2440         float scale;
2441         float pitchsign = 1;
2442
2443         scale = PRVM_serveredictfloat(ent, scale);
2444         if (!scale)
2445                 scale = 1.0f;
2446
2447         if (viewmatrix)
2448                 Matrix4x4_CreateFromQuakeEntity(out, PRVM_serveredictvector(ent, origin)[0], PRVM_serveredictvector(ent, origin)[1], PRVM_serveredictvector(ent, origin)[2] + PRVM_serveredictvector(ent, view_ofs)[2], PRVM_serveredictvector(ent, v_angle)[0], PRVM_serveredictvector(ent, v_angle)[1], PRVM_serveredictvector(ent, v_angle)[2], scale * cl_viewmodel_scale.value);
2449         else
2450         {
2451                 pitchsign = SV_GetPitchSign(prog, ent);
2452                 Matrix4x4_CreateFromQuakeEntity(out, PRVM_serveredictvector(ent, origin)[0], PRVM_serveredictvector(ent, origin)[1], PRVM_serveredictvector(ent, origin)[2], pitchsign * PRVM_serveredictvector(ent, angles)[0], PRVM_serveredictvector(ent, angles)[1], PRVM_serveredictvector(ent, angles)[2], scale);
2453         }
2454 }
2455
2456 static int SV_GetEntityLocalTagMatrix(prvm_prog_t *prog, prvm_edict_t *ent, int tagindex, matrix4x4_t *out)
2457 {
2458         dp_model_t *model;
2459         if (tagindex >= 0 && (model = SV_GetModelFromEdict(ent)) && model->animscenes)
2460         {
2461                 VM_GenerateFrameGroupBlend(prog, ent->priv.server->framegroupblend, ent);
2462                 VM_FrameBlendFromFrameGroupBlend(ent->priv.server->frameblend, ent->priv.server->framegroupblend, model, sv.time);
2463                 VM_UpdateEdictSkeleton(prog, ent, model, ent->priv.server->frameblend);
2464                 return Mod_Alias_GetTagMatrix(model, ent->priv.server->frameblend, &ent->priv.server->skeleton, tagindex, out);
2465         }
2466         *out = identitymatrix;
2467         return 0;
2468 }
2469
2470 // Warnings/errors code:
2471 // 0 - normal (everything all-right)
2472 // 1 - world entity
2473 // 2 - free entity
2474 // 3 - null or non-precached model
2475 // 4 - no tags with requested index
2476 // 5 - runaway loop at attachment chain
2477 extern cvar_t cl_bob;
2478 extern cvar_t cl_bobcycle;
2479 extern cvar_t cl_bobup;
2480 static int SV_GetTagMatrix (prvm_prog_t *prog, matrix4x4_t *out, prvm_edict_t *ent, int tagindex)
2481 {
2482         int ret;
2483         int modelindex, attachloop;
2484         matrix4x4_t entitymatrix, tagmatrix, attachmatrix;
2485         dp_model_t *model;
2486
2487         *out = identitymatrix; // warnings and errors return identical matrix
2488
2489         if (ent == prog->edicts)
2490                 return 1;
2491         if (ent->priv.server->free)
2492                 return 2;
2493
2494         modelindex = (int)PRVM_serveredictfloat(ent, modelindex);
2495         if (modelindex <= 0 || modelindex >= MAX_MODELS)
2496                 return 3;
2497
2498         model = SV_GetModelByIndex(modelindex);
2499
2500         VM_GenerateFrameGroupBlend(prog, ent->priv.server->framegroupblend, ent);
2501         VM_FrameBlendFromFrameGroupBlend(ent->priv.server->frameblend, ent->priv.server->framegroupblend, model, sv.time);
2502         VM_UpdateEdictSkeleton(prog, ent, model, ent->priv.server->frameblend);
2503
2504         tagmatrix = identitymatrix;
2505         // DP_GFX_QUAKE3MODELTAGS, scan all chain and stop on unattached entity
2506         attachloop = 0;
2507         for (;;)
2508         {
2509                 if (attachloop >= 256) // prevent runaway looping
2510                         return 5;
2511                 // apply transformation by child's tagindex on parent entity and then
2512                 // by parent entity itself
2513                 ret = SV_GetEntityLocalTagMatrix(prog, ent, tagindex - 1, &attachmatrix);
2514                 if (ret && attachloop == 0)
2515                         return ret;
2516                 SV_GetEntityMatrix(prog, ent, &entitymatrix, false);
2517                 Matrix4x4_Concat(&tagmatrix, &attachmatrix, out);
2518                 Matrix4x4_Concat(out, &entitymatrix, &tagmatrix);
2519                 // next iteration we process the parent entity
2520                 if (PRVM_serveredictedict(ent, tag_entity))
2521                 {
2522                         tagindex = (int)PRVM_serveredictfloat(ent, tag_index);
2523                         ent = PRVM_EDICT_NUM(PRVM_serveredictedict(ent, tag_entity));
2524                 }
2525                 else
2526                         break;
2527                 attachloop++;
2528         }
2529
2530         // RENDER_VIEWMODEL magic
2531         if (PRVM_serveredictedict(ent, viewmodelforclient))
2532         {
2533                 Matrix4x4_Copy(&tagmatrix, out);
2534                 ent = PRVM_EDICT_NUM(PRVM_serveredictedict(ent, viewmodelforclient));
2535
2536                 SV_GetEntityMatrix(prog, ent, &entitymatrix, true);
2537                 Matrix4x4_Concat(out, &entitymatrix, &tagmatrix);
2538
2539                 /*
2540                 // Cl_bob, ported from rendering code
2541                 if (PRVM_serveredictfloat(ent, health) > 0 && cl_bob.value && cl_bobcycle.value)
2542                 {
2543                         double bob, cycle;
2544                         // LadyHavoc: this code is *weird*, but not replacable (I think it
2545                         // should be done in QC on the server, but oh well, quake is quake)
2546                         // LadyHavoc: figured out bobup: the time at which the sin is at 180
2547                         // degrees (which allows lengthening or squishing the peak or valley)
2548                         cycle = sv.time/cl_bobcycle.value;
2549                         cycle -= (int)cycle;
2550                         if (cycle < cl_bobup.value)
2551                                 cycle = sin(M_PI * cycle / cl_bobup.value);
2552                         else
2553                                 cycle = sin(M_PI + M_PI * (cycle-cl_bobup.value)/(1.0 - cl_bobup.value));
2554                         // bob is proportional to velocity in the xy plane
2555                         // (don't count Z, or jumping messes it up)
2556                         bob = sqrt(PRVM_serveredictvector(ent, velocity)[0]*PRVM_serveredictvector(ent, velocity)[0] + PRVM_serveredictvector(ent, velocity)[1]*PRVM_serveredictvector(ent, velocity)[1])*cl_bob.value;
2557                         bob = bob*0.3 + bob*0.7*cycle;
2558                         Matrix4x4_AdjustOrigin(out, 0, 0, bound(-7, bob, 4));
2559                 }
2560                 */
2561         }
2562         return 0;
2563 }
2564
2565 //float(entity ent, string tagname) gettagindex;
2566
2567 static void VM_SV_gettagindex(prvm_prog_t *prog)
2568 {
2569         prvm_edict_t *ent;
2570         const char *tag_name;
2571         int tag_index;
2572
2573         VM_SAFEPARMCOUNT(2, VM_SV_gettagindex);
2574
2575         ent = PRVM_G_EDICT(OFS_PARM0);
2576         tag_name = PRVM_G_STRING(OFS_PARM1);
2577
2578         if (ent == prog->edicts)
2579         {
2580                 VM_Warning(prog, "VM_SV_gettagindex(entity #%i): can't affect world entity\n", PRVM_NUM_FOR_EDICT(ent));
2581                 return;
2582         }
2583         if (ent->priv.server->free)
2584         {
2585                 VM_Warning(prog, "VM_SV_gettagindex(entity #%i): can't affect free entity\n", PRVM_NUM_FOR_EDICT(ent));
2586                 return;
2587         }
2588
2589         tag_index = 0;
2590         if (!SV_GetModelFromEdict(ent))
2591                 Con_DPrintf("VM_SV_gettagindex(entity #%i): null or non-precached model\n", PRVM_NUM_FOR_EDICT(ent));
2592         else
2593         {
2594                 tag_index = SV_GetTagIndex(prog, ent, tag_name);
2595                 if (tag_index == 0)
2596                         if(developer_extra.integer)
2597                                 Con_DPrintf("VM_SV_gettagindex(entity #%i): tag \"%s\" not found\n", PRVM_NUM_FOR_EDICT(ent), tag_name);
2598         }
2599         PRVM_G_FLOAT(OFS_RETURN) = tag_index;
2600 }
2601
2602 //vector(entity ent, float tagindex) gettaginfo;
2603 static void VM_SV_gettaginfo(prvm_prog_t *prog)
2604 {
2605         prvm_edict_t *e;
2606         int tagindex;
2607         matrix4x4_t tag_matrix;
2608         matrix4x4_t tag_localmatrix;
2609         int parentindex;
2610         const char *tagname;
2611         int returncode;
2612         vec3_t forward, left, up, origin;
2613         const dp_model_t *model;
2614
2615         VM_SAFEPARMCOUNT(2, VM_SV_gettaginfo);
2616
2617         e = PRVM_G_EDICT(OFS_PARM0);
2618         tagindex = (int)PRVM_G_FLOAT(OFS_PARM1);
2619
2620         returncode = SV_GetTagMatrix(prog, &tag_matrix, e, tagindex);
2621         Matrix4x4_ToVectors(&tag_matrix, forward, left, up, origin);
2622         VectorCopy(forward, PRVM_serverglobalvector(v_forward));
2623         VectorNegate(left, PRVM_serverglobalvector(v_right));
2624         VectorCopy(up, PRVM_serverglobalvector(v_up));
2625         VectorCopy(origin, PRVM_G_VECTOR(OFS_RETURN));
2626         model = SV_GetModelFromEdict(e);
2627         VM_GenerateFrameGroupBlend(prog, e->priv.server->framegroupblend, e);
2628         VM_FrameBlendFromFrameGroupBlend(e->priv.server->frameblend, e->priv.server->framegroupblend, model, sv.time);
2629         VM_UpdateEdictSkeleton(prog, e, model, e->priv.server->frameblend);
2630         SV_GetExtendedTagInfo(prog, e, tagindex, &parentindex, &tagname, &tag_localmatrix);
2631         Matrix4x4_ToVectors(&tag_localmatrix, forward, left, up, origin);
2632
2633         PRVM_serverglobalfloat(gettaginfo_parent) = parentindex;
2634         PRVM_serverglobalstring(gettaginfo_name) = tagname ? PRVM_SetTempString(prog, tagname) : 0;
2635         VectorCopy(forward, PRVM_serverglobalvector(gettaginfo_forward));
2636         VectorNegate(left, PRVM_serverglobalvector(gettaginfo_right));
2637         VectorCopy(up, PRVM_serverglobalvector(gettaginfo_up));
2638         VectorCopy(origin, PRVM_serverglobalvector(gettaginfo_offset));
2639
2640         switch(returncode)
2641         {
2642                 case 1:
2643                         VM_Warning(prog, "gettagindex: can't affect world entity\n");
2644                         break;
2645                 case 2:
2646                         VM_Warning(prog, "gettagindex: can't affect free entity\n");
2647                         break;
2648                 case 3:
2649                         Con_DPrintf("SV_GetTagMatrix(entity #%i): null or non-precached model\n", PRVM_NUM_FOR_EDICT(e));
2650                         break;
2651                 case 4:
2652                         Con_DPrintf("SV_GetTagMatrix(entity #%i): model has no tag with requested index %i\n", PRVM_NUM_FOR_EDICT(e), tagindex);
2653                         break;
2654                 case 5:
2655                         Con_DPrintf("SV_GetTagMatrix(entity #%i): runaway loop at attachment chain\n", PRVM_NUM_FOR_EDICT(e));
2656                         break;
2657         }
2658 }
2659
2660 //void(entity clent) dropclient (DP_SV_DROPCLIENT)
2661 static void VM_SV_dropclient(prvm_prog_t *prog)
2662 {
2663         int clientnum;
2664         client_t *oldhostclient;
2665         VM_SAFEPARMCOUNT(1, VM_SV_dropclient);
2666         clientnum = PRVM_G_EDICTNUM(OFS_PARM0) - 1;
2667         if (clientnum < 0 || clientnum >= svs.maxclients)
2668         {
2669                 VM_Warning(prog, "dropclient: not a client\n");
2670                 return;
2671         }
2672         if (!svs.clients[clientnum].active)
2673         {
2674                 VM_Warning(prog, "dropclient: that client slot is not connected\n");
2675                 return;
2676         }
2677         oldhostclient = host_client;
2678         host_client = svs.clients + clientnum;
2679         SV_DropClient(false);
2680         host_client = oldhostclient;
2681 }
2682
2683 //entity() spawnclient (DP_SV_BOTCLIENT)
2684 static void VM_SV_spawnclient(prvm_prog_t *prog)
2685 {
2686         int i;
2687         prvm_edict_t    *ed;
2688         VM_SAFEPARMCOUNT(0, VM_SV_spawnclient);
2689         prog->xfunction->builtinsprofile += 2;
2690         ed = prog->edicts;
2691         for (i = 0;i < svs.maxclients;i++)
2692         {
2693                 if (!svs.clients[i].active)
2694                 {
2695                         prog->xfunction->builtinsprofile += 100;
2696                         SV_ConnectClient (i, NULL);
2697                         // this has to be set or else ClientDisconnect won't be called
2698                         // we assume the qc will call ClientConnect...
2699                         svs.clients[i].clientconnectcalled = true;
2700                         ed = PRVM_EDICT_NUM(i + 1);
2701                         break;
2702                 }
2703         }
2704         VM_RETURN_EDICT(ed);
2705 }
2706
2707 //float(entity clent) clienttype (DP_SV_BOTCLIENT)
2708 static void VM_SV_clienttype(prvm_prog_t *prog)
2709 {
2710         int clientnum;
2711         VM_SAFEPARMCOUNT(1, VM_SV_clienttype);
2712         clientnum = PRVM_G_EDICTNUM(OFS_PARM0) - 1;
2713         if (clientnum < 0 || clientnum >= svs.maxclients)
2714                 PRVM_G_FLOAT(OFS_RETURN) = 3;
2715         else if (!svs.clients[clientnum].active)
2716                 PRVM_G_FLOAT(OFS_RETURN) = 0;
2717         else if (svs.clients[clientnum].netconnection)
2718                 PRVM_G_FLOAT(OFS_RETURN) = 1;
2719         else
2720                 PRVM_G_FLOAT(OFS_RETURN) = 2;
2721 }
2722
2723 /*
2724 ===============
2725 VM_SV_serverkey
2726
2727 string(string key) serverkey
2728 ===============
2729 */
2730 static void VM_SV_serverkey(prvm_prog_t *prog)
2731 {
2732         char string[VM_STRINGTEMP_LENGTH];
2733         VM_SAFEPARMCOUNT(1, VM_SV_serverkey);
2734         InfoString_GetValue(svs.serverinfo, PRVM_G_STRING(OFS_PARM0), string, sizeof(string));
2735         PRVM_G_INT(OFS_RETURN) = PRVM_SetTempString(prog, string);
2736 }
2737
2738 //#333 void(entity e, float mdlindex) setmodelindex (EXT_CSQC)
2739 static void VM_SV_setmodelindex(prvm_prog_t *prog)
2740 {
2741         prvm_edict_t    *e;
2742         dp_model_t      *mod;
2743         int             i;
2744         VM_SAFEPARMCOUNT(2, VM_SV_setmodelindex);
2745
2746         e = PRVM_G_EDICT(OFS_PARM0);
2747         if (e == prog->edicts)
2748         {
2749                 VM_Warning(prog, "setmodelindex: can not modify world entity\n");
2750                 return;
2751         }
2752         if (e->priv.server->free)
2753         {
2754                 VM_Warning(prog, "setmodelindex: can not modify free entity\n");
2755                 return;
2756         }
2757         i = (int)PRVM_G_FLOAT(OFS_PARM1);
2758         if (i <= 0 || i >= MAX_MODELS)
2759         {
2760                 VM_Warning(prog, "setmodelindex: invalid modelindex\n");
2761                 return;
2762         }
2763         if (!sv.model_precache[i][0])
2764         {
2765                 VM_Warning(prog, "setmodelindex: model not precached\n");
2766                 return;
2767         }
2768
2769         PRVM_serveredictstring(e, model) = PRVM_SetEngineString(prog, sv.model_precache[i]);
2770         PRVM_serveredictfloat(e, modelindex) = i;
2771
2772         mod = SV_GetModelByIndex(i);
2773
2774         if (mod)
2775         {
2776                 if (mod->type != mod_alias || sv_gameplayfix_setmodelrealbox.integer)
2777                         SetMinMaxSize(prog, e, mod->normalmins, mod->normalmaxs, true);
2778                 else
2779                         SetMinMaxSize(prog, e, quakemins, quakemaxs, true);
2780         }
2781         else
2782                 SetMinMaxSize(prog, e, vec3_origin, vec3_origin, true);
2783 }
2784
2785 //#334 string(float mdlindex) modelnameforindex (EXT_CSQC)
2786 static void VM_SV_modelnameforindex(prvm_prog_t *prog)
2787 {
2788         int i;
2789         VM_SAFEPARMCOUNT(1, VM_SV_modelnameforindex);
2790
2791         PRVM_G_INT(OFS_RETURN) = OFS_NULL;
2792
2793         i = (int)PRVM_G_FLOAT(OFS_PARM0);
2794         if (i <= 0 || i >= MAX_MODELS)
2795         {
2796                 VM_Warning(prog, "modelnameforindex: invalid modelindex\n");
2797                 return;
2798         }
2799         if (!sv.model_precache[i][0])
2800         {
2801                 VM_Warning(prog, "modelnameforindex: model not precached\n");
2802                 return;
2803         }
2804
2805         PRVM_G_INT(OFS_RETURN) = PRVM_SetEngineString(prog, sv.model_precache[i]);
2806 }
2807
2808 //#335 float(string effectname) particleeffectnum (EXT_CSQC)
2809 static void VM_SV_particleeffectnum(prvm_prog_t *prog)
2810 {
2811         int                     i;
2812         VM_SAFEPARMCOUNT(1, VM_SV_particleeffectnum);
2813         i = SV_ParticleEffectIndex(PRVM_G_STRING(OFS_PARM0));
2814         if (i == 0)
2815                 i = -1;
2816         PRVM_G_FLOAT(OFS_RETURN) = i;
2817 }
2818
2819 // #336 void(entity ent, float effectnum, vector start, vector end) trailparticles (EXT_CSQC)
2820 static void VM_SV_trailparticles(prvm_prog_t *prog)
2821 {
2822         vec3_t start, end;
2823         VM_SAFEPARMCOUNT(4, VM_SV_trailparticles);
2824
2825         if ((int)PRVM_G_FLOAT(OFS_PARM0) < 0)
2826                 return;
2827
2828         MSG_WriteByte(&sv.datagram, svc_trailparticles);
2829         MSG_WriteShort(&sv.datagram, PRVM_G_EDICTNUM(OFS_PARM0));
2830         MSG_WriteShort(&sv.datagram, (int)PRVM_G_FLOAT(OFS_PARM1));
2831         VectorCopy(PRVM_G_VECTOR(OFS_PARM2), start);
2832         VectorCopy(PRVM_G_VECTOR(OFS_PARM3), end);
2833         MSG_WriteVector(&sv.datagram, start, sv.protocol);
2834         MSG_WriteVector(&sv.datagram, end, sv.protocol);
2835         SV_FlushBroadcastMessages();
2836 }
2837
2838 //#337 void(float effectnum, vector origin, vector dir, float count) pointparticles (EXT_CSQC)
2839 static void VM_SV_pointparticles(prvm_prog_t *prog)
2840 {
2841         int effectnum, count;
2842         vec3_t org, vel;
2843         VM_SAFEPARMCOUNTRANGE(4, 8, VM_SV_pointparticles);
2844
2845         if ((int)PRVM_G_FLOAT(OFS_PARM0) < 0)
2846                 return;
2847
2848         effectnum = (int)PRVM_G_FLOAT(OFS_PARM0);
2849         VectorCopy(PRVM_G_VECTOR(OFS_PARM1), org);
2850         VectorCopy(PRVM_G_VECTOR(OFS_PARM2), vel);
2851         count = bound(0, (int)PRVM_G_FLOAT(OFS_PARM3), 65535);
2852         if (count == 1 && !VectorLength2(vel))
2853         {
2854                 // 1+2+12=15 bytes
2855                 MSG_WriteByte(&sv.datagram, svc_pointparticles1);
2856                 MSG_WriteShort(&sv.datagram, effectnum);
2857                 MSG_WriteVector(&sv.datagram, org, sv.protocol);
2858         }
2859         else
2860         {
2861                 // 1+2+12+12+2=29 bytes
2862                 MSG_WriteByte(&sv.datagram, svc_pointparticles);
2863                 MSG_WriteShort(&sv.datagram, effectnum);
2864                 MSG_WriteVector(&sv.datagram, org, sv.protocol);
2865                 MSG_WriteVector(&sv.datagram, vel, sv.protocol);
2866                 MSG_WriteShort(&sv.datagram, count);
2867         }
2868
2869         SV_FlushBroadcastMessages();
2870 }
2871
2872 //PF_setpause,    // void(float pause) setpause = #531;
2873 static void VM_SV_setpause(prvm_prog_t *prog) {
2874         int pauseValue;
2875         pauseValue = (int)PRVM_G_FLOAT(OFS_PARM0);
2876         if (pauseValue != 0) { //pause the game
2877                 sv.paused = 1;
2878                 sv.pausedstart = realtime;
2879         } else { //disable pause, in case it was enabled
2880                 if (sv.paused != 0) {
2881                         sv.paused = 0;
2882                         sv.pausedstart = 0;
2883                 }
2884         }
2885         // send notification to all clients
2886         MSG_WriteByte(&sv.reliable_datagram, svc_setpause);
2887         MSG_WriteByte(&sv.reliable_datagram, sv.paused);
2888 }
2889
2890 // #263 float(float modlindex) skel_create = #263; // (FTE_CSQC_SKELETONOBJECTS) create a skeleton (be sure to assign this value into .skeletonindex for use), returns skeleton index (1 or higher) on success, returns 0 on failure  (for example if the modelindex is not skeletal), it is recommended that you create a new skeleton if you change modelindex.
2891 static void VM_SV_skel_create(prvm_prog_t *prog)
2892 {
2893         int modelindex = (int)PRVM_G_FLOAT(OFS_PARM0);
2894         dp_model_t *model = SV_GetModelByIndex(modelindex);
2895         skeleton_t *skeleton;
2896         int i;
2897         PRVM_G_FLOAT(OFS_RETURN) = 0;
2898         if (!model || !model->num_bones)
2899                 return;
2900         for (i = 0;i < MAX_EDICTS;i++)
2901                 if (!prog->skeletons[i])
2902                         break;
2903         if (i == MAX_EDICTS)
2904                 return;
2905         prog->skeletons[i] = skeleton = (skeleton_t *)Mem_Alloc(prog->progs_mempool, sizeof(skeleton_t) + model->num_bones * sizeof(matrix4x4_t));
2906         PRVM_G_FLOAT(OFS_RETURN) = i + 1;
2907         skeleton->model = model;
2908         skeleton->relativetransforms = (matrix4x4_t *)(skeleton+1);
2909         // initialize to identity matrices
2910         for (i = 0;i < skeleton->model->num_bones;i++)
2911                 skeleton->relativetransforms[i] = identitymatrix;
2912 }
2913
2914 // #264 float(float skel, entity ent, float modlindex, float retainfrac, float firstbone, float lastbone) skel_build = #264; // (FTE_CSQC_SKELETONOBJECTS) blend in a percentage of standard animation, 0 replaces entirely, 1 does nothing, 0.5 blends half, etc, and this only alters the bones in the specified range for which out of bounds values like 0,100000 are safe (uses .frame, .frame2, .frame3, .frame4, .lerpfrac, .lerpfrac3, .lerpfrac4, .frame1time, .frame2time, .frame3time, .frame4time), returns skel on success, 0 on failure
2915 static void VM_SV_skel_build(prvm_prog_t *prog)
2916 {
2917         int skeletonindex = (int)PRVM_G_FLOAT(OFS_PARM0) - 1;
2918         skeleton_t *skeleton;
2919         prvm_edict_t *ed = PRVM_G_EDICT(OFS_PARM1);
2920         int modelindex = (int)PRVM_G_FLOAT(OFS_PARM2);
2921         float retainfrac = PRVM_G_FLOAT(OFS_PARM3);
2922         int firstbone = PRVM_G_FLOAT(OFS_PARM4) - 1;
2923         int lastbone = PRVM_G_FLOAT(OFS_PARM5) - 1;
2924         dp_model_t *model = SV_GetModelByIndex(modelindex);
2925         int numblends;
2926         int bonenum;
2927         int blendindex;
2928         framegroupblend_t framegroupblend[MAX_FRAMEGROUPBLENDS];
2929         frameblend_t frameblend[MAX_FRAMEBLENDS];
2930         matrix4x4_t bonematrix;
2931         matrix4x4_t matrix;
2932         PRVM_G_FLOAT(OFS_RETURN) = 0;
2933         if (skeletonindex < 0 || skeletonindex >= MAX_EDICTS || !(skeleton = prog->skeletons[skeletonindex]))
2934                 return;
2935         firstbone = max(0, firstbone);
2936         lastbone = min(lastbone, model->num_bones - 1);
2937         lastbone = min(lastbone, skeleton->model->num_bones - 1);
2938         VM_GenerateFrameGroupBlend(prog, framegroupblend, ed);
2939         VM_FrameBlendFromFrameGroupBlend(frameblend, framegroupblend, model, sv.time);
2940         for (numblends = 0;numblends < MAX_FRAMEBLENDS && frameblend[numblends].lerp;numblends++)
2941                 ;
2942         for (bonenum = firstbone;bonenum <= lastbone;bonenum++)
2943         {
2944                 memset(&bonematrix, 0, sizeof(bonematrix));
2945                 for (blendindex = 0;blendindex < numblends;blendindex++)
2946                 {
2947                         Matrix4x4_FromBonePose7s(&matrix, model->num_posescale, model->data_poses7s + 7 * (frameblend[blendindex].subframe * model->num_bones + bonenum));
2948                         Matrix4x4_Accumulate(&bonematrix, &matrix, frameblend[blendindex].lerp);
2949                 }
2950                 Matrix4x4_Normalize3(&bonematrix, &bonematrix);
2951                 Matrix4x4_Interpolate(&skeleton->relativetransforms[bonenum], &bonematrix, &skeleton->relativetransforms[bonenum], retainfrac);
2952         }
2953         PRVM_G_FLOAT(OFS_RETURN) = skeletonindex + 1;
2954 }
2955
2956 // #265 float(float skel) skel_get_numbones = #265; // (FTE_CSQC_SKELETONOBJECTS) returns how many bones exist in the created skeleton
2957 static void VM_SV_skel_get_numbones(prvm_prog_t *prog)
2958 {
2959         int skeletonindex = (int)PRVM_G_FLOAT(OFS_PARM0) - 1;
2960         skeleton_t *skeleton;
2961         PRVM_G_FLOAT(OFS_RETURN) = 0;
2962         if (skeletonindex < 0 || skeletonindex >= MAX_EDICTS || !(skeleton = prog->skeletons[skeletonindex]))
2963                 return;
2964         PRVM_G_FLOAT(OFS_RETURN) = skeleton->model->num_bones;
2965 }
2966
2967 // #266 string(float skel, float bonenum) skel_get_bonename = #266; // (FTE_CSQC_SKELETONOBJECTS) returns name of bone (as a tempstring)
2968 static void VM_SV_skel_get_bonename(prvm_prog_t *prog)
2969 {
2970         int skeletonindex = (int)PRVM_G_FLOAT(OFS_PARM0) - 1;
2971         int bonenum = (int)PRVM_G_FLOAT(OFS_PARM1) - 1;
2972         skeleton_t *skeleton;
2973         PRVM_G_INT(OFS_RETURN) = 0;
2974         if (skeletonindex < 0 || skeletonindex >= MAX_EDICTS || !(skeleton = prog->skeletons[skeletonindex]))
2975                 return;
2976         if (bonenum < 0 || bonenum >= skeleton->model->num_bones)
2977                 return;
2978         PRVM_G_INT(OFS_RETURN) = PRVM_SetTempString(prog, skeleton->model->data_bones[bonenum].name);
2979 }
2980
2981 // #267 float(float skel, float bonenum) skel_get_boneparent = #267; // (FTE_CSQC_SKELETONOBJECTS) returns parent num for supplied bonenum, 0 if bonenum has no parent or bone does not exist (returned value is always less than bonenum, you can loop on this)
2982 static void VM_SV_skel_get_boneparent(prvm_prog_t *prog)
2983 {
2984         int skeletonindex = (int)PRVM_G_FLOAT(OFS_PARM0) - 1;
2985         int bonenum = (int)PRVM_G_FLOAT(OFS_PARM1) - 1;
2986         skeleton_t *skeleton;
2987         PRVM_G_FLOAT(OFS_RETURN) = 0;
2988         if (skeletonindex < 0 || skeletonindex >= MAX_EDICTS || !(skeleton = prog->skeletons[skeletonindex]))
2989                 return;
2990         if (bonenum < 0 || bonenum >= skeleton->model->num_bones)
2991                 return;
2992         PRVM_G_FLOAT(OFS_RETURN) = skeleton->model->data_bones[bonenum].parent + 1;
2993 }
2994
2995 // #268 float(float skel, string tagname) skel_find_bone = #268; // (FTE_CSQC_SKELETONOBJECTS) get number of bone with specified name, 0 on failure, tagindex (bonenum+1) on success, same as using gettagindex on the modelindex
2996 static void VM_SV_skel_find_bone(prvm_prog_t *prog)
2997 {
2998         int skeletonindex = (int)PRVM_G_FLOAT(OFS_PARM0) - 1;
2999         const char *tagname = PRVM_G_STRING(OFS_PARM1);
3000         skeleton_t *skeleton;
3001         PRVM_G_FLOAT(OFS_RETURN) = 0;
3002         if (skeletonindex < 0 || skeletonindex >= MAX_EDICTS || !(skeleton = prog->skeletons[skeletonindex]))
3003                 return;
3004         PRVM_G_FLOAT(OFS_RETURN) = Mod_Alias_GetTagIndexForName(skeleton->model, 0, tagname) + 1;
3005 }
3006
3007 // #269 vector(float skel, float bonenum) skel_get_bonerel = #269; // (FTE_CSQC_SKELETONOBJECTS) get matrix of bone in skeleton relative to its parent - sets v_forward, v_right, v_up, returns origin (relative to parent bone)
3008 static void VM_SV_skel_get_bonerel(prvm_prog_t *prog)
3009 {
3010         int skeletonindex = (int)PRVM_G_FLOAT(OFS_PARM0) - 1;
3011         int bonenum = (int)PRVM_G_FLOAT(OFS_PARM1) - 1;
3012         skeleton_t *skeleton;
3013         matrix4x4_t matrix;
3014         vec3_t forward, left, up, origin;
3015         VectorClear(PRVM_G_VECTOR(OFS_RETURN));
3016         VectorClear(PRVM_clientglobalvector(v_forward));
3017         VectorClear(PRVM_clientglobalvector(v_right));
3018         VectorClear(PRVM_clientglobalvector(v_up));
3019         if (skeletonindex < 0 || skeletonindex >= MAX_EDICTS || !(skeleton = prog->skeletons[skeletonindex]))
3020                 return;
3021         if (bonenum < 0 || bonenum >= skeleton->model->num_bones)
3022                 return;
3023         matrix = skeleton->relativetransforms[bonenum];
3024         Matrix4x4_ToVectors(&matrix, forward, left, up, origin);
3025         VectorCopy(forward, PRVM_clientglobalvector(v_forward));
3026         VectorNegate(left, PRVM_clientglobalvector(v_right));
3027         VectorCopy(up, PRVM_clientglobalvector(v_up));
3028         VectorCopy(origin, PRVM_G_VECTOR(OFS_RETURN));
3029 }
3030
3031 // #270 vector(float skel, float bonenum) skel_get_boneabs = #270; // (FTE_CSQC_SKELETONOBJECTS) get matrix of bone in skeleton in model space - sets v_forward, v_right, v_up, returns origin (relative to entity)
3032 static void VM_SV_skel_get_boneabs(prvm_prog_t *prog)
3033 {
3034         int skeletonindex = (int)PRVM_G_FLOAT(OFS_PARM0) - 1;
3035         int bonenum = (int)PRVM_G_FLOAT(OFS_PARM1) - 1;
3036         skeleton_t *skeleton;
3037         matrix4x4_t matrix;
3038         matrix4x4_t temp;
3039         vec3_t forward, left, up, origin;
3040         VectorClear(PRVM_G_VECTOR(OFS_RETURN));
3041         VectorClear(PRVM_clientglobalvector(v_forward));
3042         VectorClear(PRVM_clientglobalvector(v_right));
3043         VectorClear(PRVM_clientglobalvector(v_up));
3044         if (skeletonindex < 0 || skeletonindex >= MAX_EDICTS || !(skeleton = prog->skeletons[skeletonindex]))
3045                 return;
3046         if (bonenum < 0 || bonenum >= skeleton->model->num_bones)
3047                 return;
3048         matrix = skeleton->relativetransforms[bonenum];
3049         // convert to absolute
3050         while ((bonenum = skeleton->model->data_bones[bonenum].parent) >= 0)
3051         {
3052                 temp = matrix;
3053                 Matrix4x4_Concat(&matrix, &skeleton->relativetransforms[bonenum], &temp);
3054         }
3055         Matrix4x4_ToVectors(&matrix, forward, left, up, origin);
3056         VectorCopy(forward, PRVM_clientglobalvector(v_forward));
3057         VectorNegate(left, PRVM_clientglobalvector(v_right));
3058         VectorCopy(up, PRVM_clientglobalvector(v_up));
3059         VectorCopy(origin, PRVM_G_VECTOR(OFS_RETURN));
3060 }
3061
3062 // #271 void(float skel, float bonenum, vector org) skel_set_bone = #271; // (FTE_CSQC_SKELETONOBJECTS) set matrix of bone relative to its parent, reads v_forward, v_right, v_up, takes origin as parameter (relative to parent bone)
3063 static void VM_SV_skel_set_bone(prvm_prog_t *prog)
3064 {
3065         int skeletonindex = (int)PRVM_G_FLOAT(OFS_PARM0) - 1;
3066         int bonenum = (int)PRVM_G_FLOAT(OFS_PARM1) - 1;
3067         vec3_t forward, left, up, origin;
3068         skeleton_t *skeleton;
3069         matrix4x4_t matrix;
3070         if (skeletonindex < 0 || skeletonindex >= MAX_EDICTS || !(skeleton = prog->skeletons[skeletonindex]))
3071                 return;
3072         if (bonenum < 0 || bonenum >= skeleton->model->num_bones)
3073                 return;
3074         VectorCopy(PRVM_clientglobalvector(v_forward), forward);
3075         VectorNegate(PRVM_clientglobalvector(v_right), left);
3076         VectorCopy(PRVM_clientglobalvector(v_up), up);
3077         VectorCopy(PRVM_G_VECTOR(OFS_PARM2), origin);
3078         Matrix4x4_FromVectors(&matrix, forward, left, up, origin);
3079         skeleton->relativetransforms[bonenum] = matrix;
3080 }
3081
3082 // #272 void(float skel, float bonenum, vector org) skel_mul_bone = #272; // (FTE_CSQC_SKELETONOBJECTS) transform bone matrix (relative to its parent) by the supplied matrix in v_forward, v_right, v_up, takes origin as parameter (relative to parent bone)
3083 static void VM_SV_skel_mul_bone(prvm_prog_t *prog)
3084 {
3085         int skeletonindex = (int)PRVM_G_FLOAT(OFS_PARM0) - 1;
3086         int bonenum = (int)PRVM_G_FLOAT(OFS_PARM1) - 1;
3087         vec3_t forward, left, up, origin;
3088         skeleton_t *skeleton;
3089         matrix4x4_t matrix;
3090         matrix4x4_t temp;
3091         if (skeletonindex < 0 || skeletonindex >= MAX_EDICTS || !(skeleton = prog->skeletons[skeletonindex]))
3092                 return;
3093         if (bonenum < 0 || bonenum >= skeleton->model->num_bones)
3094                 return;
3095         VectorCopy(PRVM_G_VECTOR(OFS_PARM2), origin);
3096         VectorCopy(PRVM_clientglobalvector(v_forward), forward);
3097         VectorNegate(PRVM_clientglobalvector(v_right), left);
3098         VectorCopy(PRVM_clientglobalvector(v_up), up);
3099         Matrix4x4_FromVectors(&matrix, forward, left, up, origin);
3100         temp = skeleton->relativetransforms[bonenum];
3101         Matrix4x4_Concat(&skeleton->relativetransforms[bonenum], &matrix, &temp);
3102 }
3103
3104 // #273 void(float skel, float startbone, float endbone, vector org) skel_mul_bones = #273; // (FTE_CSQC_SKELETONOBJECTS) transform bone matrices (relative to their parents) by the supplied matrix in v_forward, v_right, v_up, takes origin as parameter (relative to parent bones)
3105 static void VM_SV_skel_mul_bones(prvm_prog_t *prog)
3106 {
3107         int skeletonindex = (int)PRVM_G_FLOAT(OFS_PARM0) - 1;
3108         int firstbone = PRVM_G_FLOAT(OFS_PARM1) - 1;
3109         int lastbone = PRVM_G_FLOAT(OFS_PARM2) - 1;
3110         int bonenum;
3111         vec3_t forward, left, up, origin;
3112         skeleton_t *skeleton;
3113         matrix4x4_t matrix;
3114         matrix4x4_t temp;
3115         if (skeletonindex < 0 || skeletonindex >= MAX_EDICTS || !(skeleton = prog->skeletons[skeletonindex]))
3116                 return;
3117         VectorCopy(PRVM_G_VECTOR(OFS_PARM3), origin);
3118         VectorCopy(PRVM_clientglobalvector(v_forward), forward);
3119         VectorNegate(PRVM_clientglobalvector(v_right), left);
3120         VectorCopy(PRVM_clientglobalvector(v_up), up);
3121         Matrix4x4_FromVectors(&matrix, forward, left, up, origin);
3122         firstbone = max(0, firstbone);
3123         lastbone = min(lastbone, skeleton->model->num_bones - 1);
3124         for (bonenum = firstbone;bonenum <= lastbone;bonenum++)
3125         {
3126                 temp = skeleton->relativetransforms[bonenum];
3127                 Matrix4x4_Concat(&skeleton->relativetransforms[bonenum], &matrix, &temp);
3128         }
3129 }
3130
3131 // #274 void(float skeldst, float skelsrc, float startbone, float endbone) skel_copybones = #274; // (FTE_CSQC_SKELETONOBJECTS) copy bone matrices (relative to their parents) from one skeleton to another, useful for copying a skeleton to a corpse
3132 static void VM_SV_skel_copybones(prvm_prog_t *prog)
3133 {
3134         int skeletonindexdst = (int)PRVM_G_FLOAT(OFS_PARM0) - 1;
3135         int skeletonindexsrc = (int)PRVM_G_FLOAT(OFS_PARM1) - 1;
3136         int firstbone = PRVM_G_FLOAT(OFS_PARM2) - 1;
3137         int lastbone = PRVM_G_FLOAT(OFS_PARM3) - 1;
3138         int bonenum;
3139         skeleton_t *skeletondst;
3140         skeleton_t *skeletonsrc;
3141         if (skeletonindexdst < 0 || skeletonindexdst >= MAX_EDICTS || !(skeletondst = prog->skeletons[skeletonindexdst]))
3142                 return;
3143         if (skeletonindexsrc < 0 || skeletonindexsrc >= MAX_EDICTS || !(skeletonsrc = prog->skeletons[skeletonindexsrc]))
3144                 return;
3145         firstbone = max(0, firstbone);
3146         lastbone = min(lastbone, skeletondst->model->num_bones - 1);
3147         lastbone = min(lastbone, skeletonsrc->model->num_bones - 1);
3148         for (bonenum = firstbone;bonenum <= lastbone;bonenum++)
3149                 skeletondst->relativetransforms[bonenum] = skeletonsrc->relativetransforms[bonenum];
3150 }
3151
3152 // #275 void(float skel) skel_delete = #275; // (FTE_CSQC_SKELETONOBJECTS) deletes skeleton at the beginning of the next frame (you can add the entity, delete the skeleton, renderscene, and it will still work)
3153 static void VM_SV_skel_delete(prvm_prog_t *prog)
3154 {
3155         int skeletonindex = (int)PRVM_G_FLOAT(OFS_PARM0) - 1;
3156         skeleton_t *skeleton;
3157         if (skeletonindex < 0 || skeletonindex >= MAX_EDICTS || !(skeleton = prog->skeletons[skeletonindex]))
3158                 return;
3159         Mem_Free(skeleton);
3160         prog->skeletons[skeletonindex] = NULL;
3161 }
3162
3163 // #276 float(float modlindex, string framename) frameforname = #276; // (FTE_CSQC_SKELETONOBJECTS) finds number of a specified frame in the animation, returns -1 if no match found
3164 static void VM_SV_frameforname(prvm_prog_t *prog)
3165 {
3166         int modelindex = (int)PRVM_G_FLOAT(OFS_PARM0);
3167         dp_model_t *model = SV_GetModelByIndex(modelindex);
3168         const char *name = PRVM_G_STRING(OFS_PARM1);
3169         int i;
3170         PRVM_G_FLOAT(OFS_RETURN) = -1;
3171         if (!model || !model->animscenes)
3172                 return;
3173         for (i = 0;i < model->numframes;i++)
3174         {
3175                 if (!strcasecmp(model->animscenes[i].name, name))
3176                 {
3177                         PRVM_G_FLOAT(OFS_RETURN) = i;
3178                         break;
3179                 }
3180         }
3181 }
3182
3183 // #277 float(float modlindex, float framenum) frameduration = #277; // (FTE_CSQC_SKELETONOBJECTS) returns the intended play time (in seconds) of the specified framegroup, if it does not exist the result is 0, if it is a single frame it may be a small value around 0.1 or 0.
3184 static void VM_SV_frameduration(prvm_prog_t *prog)
3185 {
3186         int modelindex = (int)PRVM_G_FLOAT(OFS_PARM0);
3187         dp_model_t *model = SV_GetModelByIndex(modelindex);
3188         int framenum = (int)PRVM_G_FLOAT(OFS_PARM1);
3189         PRVM_G_FLOAT(OFS_RETURN) = 0;
3190         if (!model || !model->animscenes || framenum < 0 || framenum >= model->numframes)
3191                 return;
3192         if (model->animscenes[framenum].framerate)
3193                 PRVM_G_FLOAT(OFS_RETURN) = model->animscenes[framenum].framecount / model->animscenes[framenum].framerate;
3194 }
3195
3196
3197 prvm_builtin_t vm_sv_builtins[] = {
3198 NULL,                                                   // #0 NULL function (not callable) (QUAKE)
3199 VM_makevectors,                                 // #1 void(vector ang) makevectors (QUAKE)
3200 VM_SV_setorigin,                                // #2 void(entity e, vector o) setorigin (QUAKE)
3201 VM_SV_setmodel,                                 // #3 void(entity e, string m) setmodel (QUAKE)
3202 VM_SV_setsize,                                  // #4 void(entity e, vector min, vector max) setsize (QUAKE)
3203 NULL,                                                   // #5 void(entity e, vector min, vector max) setabssize (QUAKE)
3204 VM_break,                                               // #6 void() break (QUAKE)
3205 VM_random,                                              // #7 float() random (QUAKE)
3206 VM_SV_sound,                                    // #8 void(entity e, float chan, string samp) sound (QUAKE)
3207 VM_normalize,                                   // #9 vector(vector v) normalize (QUAKE)
3208 VM_error,                                               // #10 void(string e) error (QUAKE)
3209 VM_objerror,                                    // #11 void(string e) objerror (QUAKE)
3210 VM_vlen,                                                // #12 float(vector v) vlen (QUAKE)
3211 VM_vectoyaw,                                    // #13 float(vector v) vectoyaw (QUAKE)
3212 VM_spawn,                                               // #14 entity() spawn (QUAKE)
3213 VM_remove,                                              // #15 void(entity e) remove (QUAKE)
3214 VM_SV_traceline,                                // #16 void(vector v1, vector v2, float tryents) traceline (QUAKE)
3215 VM_SV_checkclient,                              // #17 entity() checkclient (QUAKE)
3216 VM_find,                                                // #18 entity(entity start, .string fld, string match) find (QUAKE)
3217 VM_SV_precache_sound,                   // #19 void(string s) precache_sound (QUAKE)
3218 VM_SV_precache_model,                   // #20 void(string s) precache_model (QUAKE)
3219 VM_SV_stuffcmd,                                 // #21 void(entity client, string s, ...) stuffcmd (QUAKE)
3220 VM_SV_findradius,                               // #22 entity(vector org, float rad) findradius (QUAKE)
3221 VM_bprint,                                              // #23 void(string s, ...) bprint (QUAKE)
3222 VM_SV_sprint,                                   // #24 void(entity client, string s, ...) sprint (QUAKE)
3223 VM_dprint,                                              // #25 void(string s, ...) dprint (QUAKE)
3224 VM_ftos,                                                // #26 string(float f) ftos (QUAKE)
3225 VM_vtos,                                                // #27 string(vector v) vtos (QUAKE)
3226 VM_coredump,                                    // #28 void() coredump (QUAKE)
3227 VM_traceon,                                             // #29 void() traceon (QUAKE)
3228 VM_traceoff,                                    // #30 void() traceoff (QUAKE)
3229 VM_eprint,                                              // #31 void(entity e) eprint (QUAKE)
3230 VM_SV_walkmove,                                 // #32 float(float yaw, float dist) walkmove (QUAKE)
3231 NULL,                                                   // #33 (QUAKE)
3232 VM_SV_droptofloor,                              // #34 float() droptofloor (QUAKE)
3233 VM_SV_lightstyle,                               // #35 void(float style, string value) lightstyle (QUAKE)
3234 VM_rint,                                                // #36 float(float v) rint (QUAKE)
3235 VM_floor,                                               // #37 float(float v) floor (QUAKE)
3236 VM_ceil,                                                // #38 float(float v) ceil (QUAKE)
3237 NULL,                                                   // #39 (QUAKE)
3238 VM_SV_checkbottom,                              // #40 float(entity e) checkbottom (QUAKE)
3239 VM_SV_pointcontents,                    // #41 float(vector v) pointcontents (QUAKE)
3240 NULL,                                                   // #42 (QUAKE)
3241 VM_fabs,                                                // #43 float(float f) fabs (QUAKE)
3242 VM_SV_aim,                                              // #44 vector(entity e, float speed) aim (QUAKE)
3243 VM_cvar,                                                // #45 float(string s) cvar (QUAKE)
3244 VM_localcmd_server,                             // #46 void(string s) localcmd (QUAKE)
3245 VM_nextent,                                             // #47 entity(entity e) nextent (QUAKE)
3246 VM_SV_particle,                                 // #48 void(vector o, vector d, float color, float count) particle (QUAKE)
3247 VM_changeyaw,                                   // #49 void() ChangeYaw (QUAKE)
3248 NULL,                                                   // #50 (QUAKE)
3249 VM_vectoangles,                                 // #51 vector(vector v) vectoangles (QUAKE)
3250 VM_SV_WriteByte,                                // #52 void(float to, float f) WriteByte (QUAKE)
3251 VM_SV_WriteChar,                                // #53 void(float to, float f) WriteChar (QUAKE)
3252 VM_SV_WriteShort,                               // #54 void(float to, float f) WriteShort (QUAKE)
3253 VM_SV_WriteLong,                                // #55 void(float to, float f) WriteLong (QUAKE)
3254 VM_SV_WriteCoord,                               // #56 void(float to, float f) WriteCoord (QUAKE)
3255 VM_SV_WriteAngle,                               // #57 void(float to, float f) WriteAngle (QUAKE)
3256 VM_SV_WriteString,                              // #58 void(float to, string s) WriteString (QUAKE)
3257 VM_SV_WriteEntity,                              // #59 void(float to, entity e) WriteEntity (QUAKE)
3258 VM_sin,                                                 // #60 float(float f) sin (DP_QC_SINCOSSQRTPOW) (QUAKE)
3259 VM_cos,                                                 // #61 float(float f) cos (DP_QC_SINCOSSQRTPOW) (QUAKE)
3260 VM_sqrt,                                                // #62 float(float f) sqrt (DP_QC_SINCOSSQRTPOW) (QUAKE)
3261 VM_changepitch,                                 // #63 void(entity ent) changepitch (DP_QC_CHANGEPITCH) (QUAKE)
3262 VM_SV_tracetoss,                                // #64 void(entity e, entity ignore) tracetoss (DP_QC_TRACETOSS) (QUAKE)
3263 VM_etos,                                                // #65 string(entity ent) etos (DP_QC_ETOS) (QUAKE)
3264 NULL,                                                   // #66 (QUAKE)
3265 VM_SV_MoveToGoal,                               // #67 void(float step) movetogoal (QUAKE)
3266 VM_precache_file,                               // #68 string(string s) precache_file (QUAKE)
3267 VM_SV_makestatic,                               // #69 void(entity e) makestatic (QUAKE)
3268 VM_changelevel,                                 // #70 void(string s) changelevel (QUAKE)
3269 NULL,                                                   // #71 (QUAKE)
3270 VM_cvar_set,                                    // #72 void(string var, string val) cvar_set (QUAKE)
3271 VM_SV_centerprint,                              // #73 void(entity client, strings) centerprint (QUAKE)
3272 VM_SV_ambientsound,                             // #74 void(vector pos, string samp, float vol, float atten) ambientsound (QUAKE)
3273 VM_SV_precache_model,                   // #75 string(string s) precache_model2 (QUAKE)
3274 VM_SV_precache_sound,                   // #76 string(string s) precache_sound2 (QUAKE)
3275 VM_precache_file,                               // #77 string(string s) precache_file2 (QUAKE)
3276 VM_SV_setspawnparms,                    // #78 void(entity e) setspawnparms (QUAKE)
3277 NULL,                                                   // #79 void(entity killer, entity killee) logfrag (QUAKEWORLD)
3278 NULL,                                                   // #80 string(entity e, string keyname) infokey (QUAKEWORLD)
3279 VM_stof,                                                // #81 float(string s) stof (FRIK_FILE)
3280 NULL,                                                   // #82 void(vector where, float set) multicast (QUAKEWORLD)
3281 NULL,                                                   // #83 (QUAKE)
3282 NULL,                                                   // #84 (QUAKE)
3283 NULL,                                                   // #85 (QUAKE)
3284 NULL,                                                   // #86 (QUAKE)
3285 NULL,                                                   // #87 (QUAKE)
3286 NULL,                                                   // #88 (QUAKE)
3287 NULL,                                                   // #89 (QUAKE)
3288 VM_SV_tracebox,                                 // #90 void(vector v1, vector min, vector max, vector v2, float nomonsters, entity forent) tracebox (DP_QC_TRACEBOX)
3289 VM_randomvec,                                   // #91 vector() randomvec (DP_QC_RANDOMVEC)
3290 VM_SV_getlight,                                 // #92 vector(vector org) getlight (DP_QC_GETLIGHT)
3291 VM_registercvar,                                // #93 float(string name, string value) registercvar (DP_REGISTERCVAR)
3292 VM_min,                                                 // #94 float(float a, floats) min (DP_QC_MINMAXBOUND)
3293 VM_max,                                                 // #95 float(float a, floats) max (DP_QC_MINMAXBOUND)
3294 VM_bound,                                               // #96 float(float minimum, float val, float maximum) bound (DP_QC_MINMAXBOUND)
3295 VM_pow,                                                 // #97 float(float f, float f) pow (DP_QC_SINCOSSQRTPOW)
3296 VM_findfloat,                                   // #98 entity(entity start, .float fld, float match) findfloat (DP_QC_FINDFLOAT)
3297 VM_checkextension,                              // #99 float(string s) checkextension (the basis of the extension system)
3298 // FrikaC and Telejano range  #100-#199
3299 NULL,                                                   // #100
3300 NULL,                                                   // #101
3301 NULL,                                                   // #102
3302 NULL,                                                   // #103
3303 NULL,                                                   // #104
3304 NULL,                                                   // #105
3305 NULL,                                                   // #106
3306 NULL,                                                   // #107
3307 NULL,                                                   // #108
3308 NULL,                                                   // #109
3309 VM_fopen,                                               // #110 float(string filename, float mode) fopen (FRIK_FILE)
3310 VM_fclose,                                              // #111 void(float fhandle) fclose (FRIK_FILE)
3311 VM_fgets,                                               // #112 string(float fhandle) fgets (FRIK_FILE)
3312 VM_fputs,                                               // #113 void(float fhandle, string s) fputs (FRIK_FILE)
3313 VM_strlen,                                              // #114 float(string s) strlen (FRIK_FILE)
3314 VM_strcat,                                              // #115 string(string s1, string s2, ...) strcat (FRIK_FILE)
3315 VM_substring,                                   // #116 string(string s, float start, float length) substring (FRIK_FILE)
3316 VM_stov,                                                // #117 vector(string) stov (FRIK_FILE)
3317 VM_strzone,                                             // #118 string(string s) strzone (FRIK_FILE)
3318 VM_strunzone,                                   // #119 void(string s) strunzone (FRIK_FILE)
3319 NULL,                                                   // #120
3320 NULL,                                                   // #121
3321 NULL,                                                   // #122
3322 NULL,                                                   // #123
3323 NULL,                                                   // #124
3324 NULL,                                                   // #125
3325 NULL,                                                   // #126
3326 NULL,                                                   // #127
3327 NULL,                                                   // #128
3328 NULL,                                                   // #129
3329 NULL,                                                   // #130
3330 NULL,                                                   // #131
3331 NULL,                                                   // #132
3332 NULL,                                                   // #133
3333 NULL,                                                   // #134
3334 NULL,                                                   // #135
3335 NULL,                                                   // #136
3336 NULL,                                                   // #137
3337 NULL,                                                   // #138
3338 NULL,                                                   // #139
3339 NULL,                                                   // #140
3340 NULL,                                                   // #141
3341 NULL,                                                   // #142
3342 NULL,                                                   // #143
3343 NULL,                                                   // #144
3344 NULL,                                                   // #145
3345 NULL,                                                   // #146
3346 NULL,                                                   // #147
3347 NULL,                                                   // #148
3348 NULL,                                                   // #149
3349 NULL,                                                   // #150
3350 NULL,                                                   // #151
3351 NULL,                                                   // #152
3352 NULL,                                                   // #153
3353 NULL,                                                   // #154
3354 NULL,                                                   // #155
3355 NULL,                                                   // #156
3356 NULL,                                                   // #157
3357 NULL,                                                   // #158
3358 NULL,                                                   // #159
3359 NULL,                                                   // #160
3360 NULL,                                                   // #161
3361 NULL,                                                   // #162
3362 NULL,                                                   // #163
3363 NULL,                                                   // #164
3364 NULL,                                                   // #165
3365 NULL,                                                   // #166
3366 NULL,                                                   // #167
3367 NULL,                                                   // #168
3368 NULL,                                                   // #169
3369 NULL,                                                   // #170
3370 NULL,                                                   // #171
3371 NULL,                                                   // #172
3372 NULL,                                                   // #173
3373 NULL,                                                   // #174
3374 NULL,                                                   // #175
3375 NULL,                                                   // #176
3376 NULL,                                                   // #177
3377 NULL,                                                   // #178
3378 NULL,                                                   // #179
3379 NULL,                                                   // #180
3380 NULL,                                                   // #181
3381 NULL,                                                   // #182
3382 NULL,                                                   // #183
3383 NULL,                                                   // #184
3384 NULL,                                                   // #185
3385 NULL,                                                   // #186
3386 NULL,                                                   // #187
3387 NULL,                                                   // #188
3388 NULL,                                                   // #189
3389 NULL,                                                   // #190
3390 NULL,                                                   // #191
3391 NULL,                                                   // #192
3392 NULL,                                                   // #193
3393 NULL,                                                   // #194
3394 NULL,                                                   // #195
3395 NULL,                                                   // #196
3396 NULL,                                                   // #197
3397 NULL,                                                   // #198
3398 NULL,                                                   // #199
3399 // FTEQW range #200-#299
3400 NULL,                                                   // #200
3401 NULL,                                                   // #201
3402 NULL,                                                   // #202
3403 NULL,                                                   // #203
3404 NULL,                                                   // #204
3405 NULL,                                                   // #205
3406 NULL,                                                   // #206
3407 NULL,                                                   // #207
3408 NULL,                                                   // #208
3409 NULL,                                                   // #209
3410 NULL,                                                   // #210
3411 NULL,                                                   // #211
3412 NULL,                                                   // #212
3413 NULL,                                                   // #213
3414 NULL,                                                   // #214
3415 NULL,                                                   // #215
3416 NULL,                                                   // #216
3417 NULL,                                                   // #217
3418 VM_bitshift,                                    // #218 float(float number, float quantity) bitshift (EXT_BITSHIFT)
3419 NULL,                                                   // #219
3420 NULL,                                                   // #220
3421 VM_strstrofs,                                   // #221 float(string str, string sub[, float startpos]) strstrofs (FTE_STRINGS)
3422 VM_str2chr,                                             // #222 float(string str, float ofs) str2chr (FTE_STRINGS)
3423 VM_chr2str,                                             // #223 string(float c, ...) chr2str (FTE_STRINGS)
3424 VM_strconv,                                             // #224 string(float ccase, float calpha, float cnum, string s, ...) strconv (FTE_STRINGS)
3425 VM_strpad,                                              // #225 string(float chars, string s, ...) strpad (FTE_STRINGS)
3426 VM_infoadd,                                             // #226 string(string info, string key, string value, ...) infoadd (FTE_STRINGS)
3427 VM_infoget,                                             // #227 string(string info, string key) infoget (FTE_STRINGS)
3428 VM_strncmp,                                             // #228 float(string s1, string s2, float len) strncmp (FTE_STRINGS)
3429 VM_strncasecmp,                                 // #229 float(string s1, string s2) strcasecmp (FTE_STRINGS)
3430 VM_strncasecmp,                                 // #230 float(string s1, string s2, float len) strncasecmp (FTE_STRINGS)
3431 NULL,                                                   // #231
3432 VM_SV_AddStat,                                  // #232 void(float index, float type, .void field) SV_AddStat (EXT_CSQC)
3433 NULL,                                                   // #233
3434 NULL,                                                   // #234
3435 NULL,                                                   // #235
3436 NULL,                                                   // #236
3437 NULL,                                                   // #237
3438 NULL,                                                   // #238
3439 NULL,                                                   // #239
3440 VM_SV_checkpvs,                                 // #240 float(vector viewpos, entity viewee) checkpvs;
3441 NULL,                                                   // #241
3442 NULL,                                                   // #242
3443 NULL,                                                   // #243
3444 NULL,                                                   // #244
3445 NULL,                                                   // #245
3446 NULL,                                                   // #246
3447 NULL,                                                   // #247
3448 NULL,                                                   // #248
3449 NULL,                                                   // #249
3450 NULL,                                                   // #250
3451 NULL,                                                   // #251
3452 NULL,                                                   // #252
3453 NULL,                                                   // #253
3454 NULL,                                                   // #254
3455 NULL,                                                   // #255
3456 NULL,                                                   // #256
3457 NULL,                                                   // #257
3458 NULL,                                                   // #258
3459 NULL,                                                   // #259
3460 NULL,                                                   // #260
3461 NULL,                                                   // #261
3462 NULL,                                                   // #262
3463 VM_SV_skel_create,                              // #263 float(float modlindex) skel_create = #263; // (DP_SKELETONOBJECTS) create a skeleton (be sure to assign this value into .skeletonindex for use), returns skeleton index (1 or higher) on success, returns 0 on failure  (for example if the modelindex is not skeletal), it is recommended that you create a new skeleton if you change modelindex.
3464 VM_SV_skel_build,                               // #264 float(float skel, entity ent, float modlindex, float retainfrac, float firstbone, float lastbone) skel_build = #264; // (DP_SKELETONOBJECTS) blend in a percentage of standard animation, 0 replaces entirely, 1 does nothing, 0.5 blends half, etc, and this only alters the bones in the specified range for which out of bounds values like 0,100000 are safe (uses .frame, .frame2, .frame3, .frame4, .lerpfrac, .lerpfrac3, .lerpfrac4, .frame1time, .frame2time, .frame3time, .frame4time), returns skel on success, 0 on failure
3465 VM_SV_skel_get_numbones,                // #265 float(float skel) skel_get_numbones = #265; // (DP_SKELETONOBJECTS) returns how many bones exist in the created skeleton
3466 VM_SV_skel_get_bonename,                // #266 string(float skel, float bonenum) skel_get_bonename = #266; // (DP_SKELETONOBJECTS) returns name of bone (as a tempstring)
3467 VM_SV_skel_get_boneparent,              // #267 float(float skel, float bonenum) skel_get_boneparent = #267; // (DP_SKELETONOBJECTS) returns parent num for supplied bonenum, -1 if bonenum has no parent or bone does not exist (returned value is always less than bonenum, you can loop on this)
3468 VM_SV_skel_find_bone,                   // #268 float(float skel, string tagname) skel_find_bone = #268; // (DP_SKELETONOBJECTS) get number of bone with specified name, 0 on failure, tagindex (bonenum+1) on success, same as using gettagindex on the modelindex
3469 VM_SV_skel_get_bonerel,                 // #269 vector(float skel, float bonenum) skel_get_bonerel = #269; // (DP_SKELETONOBJECTS) get matrix of bone in skeleton relative to its parent - sets v_forward, v_right, v_up, returns origin (relative to parent bone)
3470 VM_SV_skel_get_boneabs,                 // #270 vector(float skel, float bonenum) skel_get_boneabs = #270; // (DP_SKELETONOBJECTS) get matrix of bone in skeleton in model space - sets v_forward, v_right, v_up, returns origin (relative to entity)
3471 VM_SV_skel_set_bone,                    // #271 void(float skel, float bonenum, vector org) skel_set_bone = #271; // (DP_SKELETONOBJECTS) set matrix of bone relative to its parent, reads v_forward, v_right, v_up, takes origin as parameter (relative to parent bone)
3472 VM_SV_skel_mul_bone,                    // #272 void(float skel, float bonenum, vector org) skel_mul_bone = #272; // (DP_SKELETONOBJECTS) transform bone matrix (relative to its parent) by the supplied matrix in v_forward, v_right, v_up, takes origin as parameter (relative to parent bone)
3473 VM_SV_skel_mul_bones,                   // #273 void(float skel, float startbone, float endbone, vector org) skel_mul_bones = #273; // (DP_SKELETONOBJECTS) transform bone matrices (relative to their parents) by the supplied matrix in v_forward, v_right, v_up, takes origin as parameter (relative to parent bones)
3474 VM_SV_skel_copybones,                   // #274 void(float skeldst, float skelsrc, float startbone, float endbone) skel_copybones = #274; // (DP_SKELETONOBJECTS) copy bone matrices (relative to their parents) from one skeleton to another, useful for copying a skeleton to a corpse
3475 VM_SV_skel_delete,                              // #275 void(float skel) skel_delete = #275; // (DP_SKELETONOBJECTS) deletes skeleton at the beginning of the next frame (you can add the entity, delete the skeleton, renderscene, and it will still work)
3476 VM_SV_frameforname,                             // #276 float(float modlindex, string framename) frameforname = #276; // (DP_SKELETONOBJECTS) finds number of a specified frame in the animation, returns -1 if no match found
3477 VM_SV_frameduration,                    // #277 float(float modlindex, float framenum) frameduration = #277; // (DP_SKELETONOBJECTS) returns the intended play time (in seconds) of the specified framegroup, if it does not exist the result is 0, if it is a single frame it may be a small value around 0.1 or 0.
3478 NULL,                                                   // #278
3479 NULL,                                                   // #279
3480 NULL,                                                   // #280
3481 NULL,                                                   // #281
3482 NULL,                                                   // #282
3483 NULL,                                                   // #283
3484 NULL,                                                   // #284
3485 NULL,                                                   // #285
3486 NULL,                                                   // #286
3487 NULL,                                                   // #287
3488 NULL,                                                   // #288
3489 NULL,                                                   // #289
3490 NULL,                                                   // #290
3491 NULL,                                                   // #291
3492 NULL,                                                   // #292
3493 NULL,                                                   // #293
3494 NULL,                                                   // #294
3495 NULL,                                                   // #295
3496 NULL,                                                   // #296
3497 NULL,                                                   // #297
3498 NULL,                                                   // #298
3499 NULL,                                                   // #299
3500 // CSQC range #300-#399
3501 NULL,                                                   // #300 void() clearscene (EXT_CSQC)
3502 NULL,                                                   // #301 void(float mask) addentities (EXT_CSQC)
3503 NULL,                                                   // #302 void(entity ent) addentity (EXT_CSQC)
3504 NULL,                                                   // #303 float(float property, ...) setproperty (EXT_CSQC)
3505 NULL,                                                   // #304 void() renderscene (EXT_CSQC)
3506 NULL,                                                   // #305 void(vector org, float radius, vector lightcolours) adddynamiclight (EXT_CSQC)
3507 NULL,                                                   // #306 void(string texturename, float flag[, float is2d, float lines]) R_BeginPolygon
3508 NULL,                                                   // #307 void(vector org, vector texcoords, vector rgb, float alpha) R_PolygonVertex
3509 NULL,                                                   // #308 void() R_EndPolygon
3510 NULL,                                                   // #309
3511 NULL,                                                   // #310 vector (vector v) cs_unproject (EXT_CSQC)
3512 NULL,                                                   // #311 vector (vector v) cs_project (EXT_CSQC)
3513 NULL,                                                   // #312
3514 NULL,                                                   // #313
3515 NULL,                                                   // #314
3516 NULL,                                                   // #315 void(float width, vector pos1, vector pos2, float flag) drawline (EXT_CSQC)
3517 NULL,                                                   // #316 float(string name) iscachedpic (EXT_CSQC)
3518 NULL,                                                   // #317 string(string name, float trywad) precache_pic (EXT_CSQC)
3519 NULL,                                                   // #318 vector(string picname) draw_getimagesize (EXT_CSQC)
3520 NULL,                                                   // #319 void(string name) freepic (EXT_CSQC)
3521 NULL,                                                   // #320 float(vector position, float character, vector scale, vector rgb, float alpha, float flag) drawcharacter (EXT_CSQC)
3522 NULL,                                                   // #321 float(vector position, string text, vector scale, vector rgb, float alpha, float flag) drawstring (EXT_CSQC)
3523 NULL,                                                   // #322 float(vector position, string pic, vector size, vector rgb, float alpha, float flag) drawpic (EXT_CSQC)
3524 NULL,                                                   // #323 float(vector position, vector size, vector rgb, float alpha, float flag) drawfill (EXT_CSQC)
3525 NULL,                                                   // #324 void(float x, float y, float width, float height) drawsetcliparea
3526 NULL,                                                   // #325 void(void) drawresetcliparea
3527 NULL,                                                   // #326
3528 NULL,                                                   // #327
3529 NULL,                                                   // #328
3530 NULL,                                                   // #329
3531 NULL,                                                   // #330 float(float stnum) getstatf (EXT_CSQC)
3532 NULL,                                                   // #331 float(float stnum) getstati (EXT_CSQC)
3533 NULL,                                                   // #332 string(float firststnum) getstats (EXT_CSQC)
3534 VM_SV_setmodelindex,                    // #333 void(entity e, float mdlindex) setmodelindex (EXT_CSQC)
3535 VM_SV_modelnameforindex,                // #334 string(float mdlindex) modelnameforindex (EXT_CSQC)
3536 VM_SV_particleeffectnum,                // #335 float(string effectname) particleeffectnum (EXT_CSQC)
3537 VM_SV_trailparticles,                   // #336 void(entity ent, float effectnum, vector start, vector end) trailparticles (EXT_CSQC)
3538 VM_SV_pointparticles,                   // #337 void(float effectnum, vector origin [, vector dir, float count]) pointparticles (EXT_CSQC)
3539 NULL,                                                   // #338 void(string s, ...) centerprint (EXT_CSQC)
3540 VM_print,                                               // #339 void(string s, ...) print (EXT_CSQC, DP_SV_PRINT)
3541 NULL,                                                   // #340 string(float keynum) keynumtostring (EXT_CSQC)
3542 NULL,                                                   // #341 float(string keyname) stringtokeynum (EXT_CSQC)
3543 NULL,                                                   // #342 string(float keynum) getkeybind (EXT_CSQC)
3544 NULL,                                                   // #343 void(float usecursor) setcursormode (EXT_CSQC)
3545 NULL,                                                   // #344 vector() getmousepos (EXT_CSQC)
3546 NULL,                                                   // #345 float(float framenum) getinputstate (EXT_CSQC)
3547 NULL,                                                   // #346 void(float sens) setsensitivityscaler (EXT_CSQC)
3548 NULL,                                                   // #347 void() runstandardplayerphysics (EXT_CSQC)
3549 NULL,                                                   // #348 string(float playernum, string keyname) getplayerkeyvalue (EXT_CSQC)
3550 NULL,                                                   // #349 float() isdemo (EXT_CSQC)
3551 VM_isserver,                                    // #350 float() isserver (EXT_CSQC)
3552 NULL,                                                   // #351 void(vector origin, vector forward, vector right, vector up) SetListener (EXT_CSQC)
3553 NULL,                                                   // #352 void(string cmdname) registercommand (EXT_CSQC)
3554 VM_wasfreed,                                    // #353 float(entity ent) wasfreed (EXT_CSQC) (should be availabe on server too)
3555 VM_SV_serverkey,                                // #354 string(string key) serverkey (EXT_CSQC)
3556 NULL,                                                   // #355
3557 NULL,                                                   // #356
3558 NULL,                                                   // #357
3559 NULL,                                                   // #358
3560 NULL,                                                   // #359
3561 NULL,                                                   // #360 float() readbyte (EXT_CSQC)
3562 NULL,                                                   // #361 float() readchar (EXT_CSQC)
3563 NULL,                                                   // #362 float() readshort (EXT_CSQC)
3564 NULL,                                                   // #363 float() readlong (EXT_CSQC)
3565 NULL,                                                   // #364 float() readcoord (EXT_CSQC)
3566 NULL,                                                   // #365 float() readangle (EXT_CSQC)
3567 NULL,                                                   // #366 string() readstring (EXT_CSQC)
3568 NULL,                                                   // #367 float() readfloat (EXT_CSQC)
3569 NULL,                                                   // #368
3570 NULL,                                                   // #369
3571 NULL,                                                   // #370
3572 NULL,                                                   // #371
3573 NULL,                                                   // #372
3574 NULL,                                                   // #373
3575 NULL,                                                   // #374
3576 NULL,                                                   // #375
3577 NULL,                                                   // #376
3578 NULL,                                                   // #377
3579 NULL,                                                   // #378
3580 NULL,                                                   // #379
3581 NULL,                                                   // #380
3582 NULL,                                                   // #381
3583 NULL,                                                   // #382
3584 NULL,                                                   // #383
3585 NULL,                                                   // #384
3586 NULL,                                                   // #385
3587 NULL,                                                   // #386
3588 NULL,                                                   // #387
3589 NULL,                                                   // #388
3590 NULL,                                                   // #389
3591 NULL,                                                   // #390
3592 NULL,                                                   // #391
3593 NULL,                                                   // #392
3594 NULL,                                                   // #393
3595 NULL,                                                   // #394
3596 NULL,                                                   // #395
3597 NULL,                                                   // #396
3598 NULL,                                                   // #397
3599 NULL,                                                   // #398
3600 NULL,                                                   // #399
3601 // LadyHavoc's range #400-#499
3602 VM_SV_copyentity,                               // #400 void(entity from, entity to) copyentity (DP_QC_COPYENTITY)
3603 VM_SV_setcolor,                                 // #401 void(entity ent, float colors) setcolor (DP_QC_SETCOLOR)
3604 VM_findchain,                                   // #402 entity(.string fld, string match) findchain (DP_QC_FINDCHAIN)
3605 VM_findchainfloat,                              // #403 entity(.float fld, float match) findchainfloat (DP_QC_FINDCHAINFLOAT)
3606 VM_SV_effect,                                   // #404 void(vector org, string modelname, float startframe, float endframe, float framerate) effect (DP_SV_EFFECT)
3607 VM_SV_te_blood,                                 // #405 void(vector org, vector velocity, float howmany) te_blood (DP_TE_BLOOD)
3608 VM_SV_te_bloodshower,                   // #406 void(vector mincorner, vector maxcorner, float explosionspeed, float howmany) te_bloodshower (DP_TE_BLOODSHOWER)
3609 VM_SV_te_explosionrgb,                  // #407 void(vector org, vector color) te_explosionrgb (DP_TE_EXPLOSIONRGB)
3610 VM_SV_te_particlecube,                  // #408 void(vector mincorner, vector maxcorner, vector vel, float howmany, float color, float gravityflag, float randomveljitter) te_particlecube (DP_TE_PARTICLECUBE)
3611 VM_SV_te_particlerain,                  // #409 void(vector mincorner, vector maxcorner, vector vel, float howmany, float color) te_particlerain (DP_TE_PARTICLERAIN)
3612 VM_SV_te_particlesnow,                  // #410 void(vector mincorner, vector maxcorner, vector vel, float howmany, float color) te_particlesnow (DP_TE_PARTICLESNOW)
3613 VM_SV_te_spark,                                 // #411 void(vector org, vector vel, float howmany) te_spark (DP_TE_SPARK)
3614 VM_SV_te_gunshotquad,                   // #412 void(vector org) te_gunshotquad (DP_QUADEFFECTS1)
3615 VM_SV_te_spikequad,                             // #413 void(vector org) te_spikequad (DP_QUADEFFECTS1)
3616 VM_SV_te_superspikequad,                // #414 void(vector org) te_superspikequad (DP_QUADEFFECTS1)
3617 VM_SV_te_explosionquad,                 // #415 void(vector org) te_explosionquad (DP_QUADEFFECTS1)
3618 VM_SV_te_smallflash,                    // #416 void(vector org) te_smallflash (DP_TE_SMALLFLASH)
3619 VM_SV_te_customflash,                   // #417 void(vector org, float radius, float lifetime, vector color) te_customflash (DP_TE_CUSTOMFLASH)
3620 VM_SV_te_gunshot,                               // #418 void(vector org) te_gunshot (DP_TE_STANDARDEFFECTBUILTINS)
3621 VM_SV_te_spike,                                 // #419 void(vector org) te_spike (DP_TE_STANDARDEFFECTBUILTINS)
3622 VM_SV_te_superspike,                    // #420 void(vector org) te_superspike (DP_TE_STANDARDEFFECTBUILTINS)
3623 VM_SV_te_explosion,                             // #421 void(vector org) te_explosion (DP_TE_STANDARDEFFECTBUILTINS)
3624 VM_SV_te_tarexplosion,                  // #422 void(vector org) te_tarexplosion (DP_TE_STANDARDEFFECTBUILTINS)
3625 VM_SV_te_wizspike,                              // #423 void(vector org) te_wizspike (DP_TE_STANDARDEFFECTBUILTINS)
3626 VM_SV_te_knightspike,                   // #424 void(vector org) te_knightspike (DP_TE_STANDARDEFFECTBUILTINS)
3627 VM_SV_te_lavasplash,                    // #425 void(vector org) te_lavasplash (DP_TE_STANDARDEFFECTBUILTINS)
3628 VM_SV_te_teleport,                              // #426 void(vector org) te_teleport (DP_TE_STANDARDEFFECTBUILTINS)
3629 VM_SV_te_explosion2,                    // #427 void(vector org, float colorstart, float colorlength) te_explosion2 (DP_TE_STANDARDEFFECTBUILTINS)
3630 VM_SV_te_lightning1,                    // #428 void(entity own, vector start, vector end) te_lightning1 (DP_TE_STANDARDEFFECTBUILTINS)
3631 VM_SV_te_lightning2,                    // #429 void(entity own, vector start, vector end) te_lightning2 (DP_TE_STANDARDEFFECTBUILTINS)
3632 VM_SV_te_lightning3,                    // #430 void(entity own, vector start, vector end) te_lightning3 (DP_TE_STANDARDEFFECTBUILTINS)
3633 VM_SV_te_beam,                                  // #431 void(entity own, vector start, vector end) te_beam (DP_TE_STANDARDEFFECTBUILTINS)
3634 VM_vectorvectors,                               // #432 void(vector dir) vectorvectors (DP_QC_VECTORVECTORS)
3635 VM_SV_te_plasmaburn,                    // #433 void(vector org) te_plasmaburn (DP_TE_PLASMABURN)
3636 VM_getsurfacenumpoints,         // #434 float(entity e, float s) getsurfacenumpoints (DP_QC_GETSURFACE)
3637 VM_getsurfacepoint,                     // #435 vector(entity e, float s, float n) getsurfacepoint (DP_QC_GETSURFACE)
3638 VM_getsurfacenormal,                    // #436 vector(entity e, float s) getsurfacenormal (DP_QC_GETSURFACE)
3639 VM_getsurfacetexture,           // #437 string(entity e, float s) getsurfacetexture (DP_QC_GETSURFACE)
3640 VM_getsurfacenearpoint,         // #438 float(entity e, vector p) getsurfacenearpoint (DP_QC_GETSURFACE)
3641 VM_getsurfaceclippedpoint,      // #439 vector(entity e, float s, vector p) getsurfaceclippedpoint (DP_QC_GETSURFACE)
3642 VM_SV_clientcommand,                    // #440 void(entity e, string s) clientcommand (KRIMZON_SV_PARSECLIENTCOMMAND)
3643 VM_tokenize,                                    // #441 float(string s) tokenize (KRIMZON_SV_PARSECLIENTCOMMAND)
3644 VM_argv,                                                // #442 string(float n) argv (KRIMZON_SV_PARSECLIENTCOMMAND)
3645 VM_SV_setattachment,                    // #443 void(entity e, entity tagentity, string tagname) setattachment (DP_GFX_QUAKE3MODELTAGS)
3646 VM_search_begin,                                // #444 float(string pattern, float caseinsensitive, float quiet) search_begin (DP_QC_FS_SEARCH)
3647 VM_search_end,                                  // #445 void(float handle) search_end (DP_QC_FS_SEARCH)
3648 VM_search_getsize,                              // #446 float(float handle) search_getsize (DP_QC_FS_SEARCH)
3649 VM_search_getfilename,                  // #447 string(float handle, float num) search_getfilename (DP_QC_FS_SEARCH)
3650 VM_cvar_string,                                 // #448 string(string s) cvar_string (DP_QC_CVAR_STRING)
3651 VM_findflags,                                   // #449 entity(entity start, .float fld, float match) findflags (DP_QC_FINDFLAGS)
3652 VM_findchainflags,                              // #450 entity(.float fld, float match) findchainflags (DP_QC_FINDCHAINFLAGS)
3653 VM_SV_gettagindex,                              // #451 float(entity ent, string tagname) gettagindex (DP_QC_GETTAGINFO)
3654 VM_SV_gettaginfo,                               // #452 vector(entity ent, float tagindex) gettaginfo (DP_QC_GETTAGINFO)
3655 VM_SV_dropclient,                               // #453 void(entity clent) dropclient (DP_SV_DROPCLIENT)
3656 VM_SV_spawnclient,                              // #454 entity() spawnclient (DP_SV_BOTCLIENT)
3657 VM_SV_clienttype,                               // #455 float(entity clent) clienttype (DP_SV_BOTCLIENT)
3658 VM_SV_WriteUnterminatedString,  // #456 void(float to, string s) WriteUnterminatedString (DP_SV_WRITEUNTERMINATEDSTRING)
3659 VM_SV_te_flamejet,                              // #457 void(vector org, vector vel, float howmany) te_flamejet = #457 (DP_TE_FLAMEJET)
3660 NULL,                                                   // #458
3661 VM_ftoe,                                                // #459 entity(float num) entitybyindex (DP_QC_EDICT_NUM)
3662 VM_buf_create,                                  // #460 float() buf_create (DP_QC_STRINGBUFFERS)
3663 VM_buf_del,                                             // #461 void(float bufhandle) buf_del (DP_QC_STRINGBUFFERS)
3664 VM_buf_getsize,                                 // #462 float(float bufhandle) buf_getsize (DP_QC_STRINGBUFFERS)
3665 VM_buf_copy,                                    // #463 void(float bufhandle_from, float bufhandle_to) buf_copy (DP_QC_STRINGBUFFERS)
3666 VM_buf_sort,                                    // #464 void(float bufhandle, float sortpower, float backward) buf_sort (DP_QC_STRINGBUFFERS)
3667 VM_buf_implode,                                 // #465 string(float bufhandle, string glue) buf_implode (DP_QC_STRINGBUFFERS)
3668 VM_bufstr_get,                                  // #466 string(float bufhandle, float string_index) bufstr_get (DP_QC_STRINGBUFFERS)
3669 VM_bufstr_set,                                  // #467 void(float bufhandle, float string_index, string str) bufstr_set (DP_QC_STRINGBUFFERS)
3670 VM_bufstr_add,                                  // #468 float(float bufhandle, string str, float order) bufstr_add (DP_QC_STRINGBUFFERS)
3671 VM_bufstr_free,                                 // #469 void(float bufhandle, float string_index) bufstr_free (DP_QC_STRINGBUFFERS)
3672 NULL,                                                   // #470
3673 VM_asin,                                                // #471 float(float s) VM_asin (DP_QC_ASINACOSATANATAN2TAN)
3674 VM_acos,                                                // #472 float(float c) VM_acos (DP_QC_ASINACOSATANATAN2TAN)
3675 VM_atan,                                                // #473 float(float t) VM_atan (DP_QC_ASINACOSATANATAN2TAN)
3676 VM_atan2,                                               // #474 float(float c, float s) VM_atan2 (DP_QC_ASINACOSATANATAN2TAN)
3677 VM_tan,                                                 // #475 float(float a) VM_tan (DP_QC_ASINACOSATANATAN2TAN)
3678 VM_strlennocol,                                 // #476 float(string s) : DRESK - String Length (not counting color codes) (DP_QC_STRINGCOLORFUNCTIONS)
3679 VM_strdecolorize,                               // #477 string(string s) : DRESK - Decolorized String (DP_SV_STRINGCOLORFUNCTIONS)
3680 VM_strftime,                                    // #478 string(float uselocaltime, string format, ...) (DP_QC_STRFTIME)
3681 VM_tokenizebyseparator,                 // #479 float(string s) tokenizebyseparator (DP_QC_TOKENIZEBYSEPARATOR)
3682 VM_strtolower,                                  // #480 string(string s) VM_strtolower (DP_QC_STRING_CASE_FUNCTIONS)
3683 VM_strtoupper,                                  // #481 string(string s) VM_strtoupper (DP_QC_STRING_CASE_FUNCTIONS)
3684 VM_cvar_defstring,                              // #482 string(string s) cvar_defstring (DP_QC_CVAR_DEFSTRING)
3685 VM_SV_pointsound,                               // #483 void(vector origin, string sample, float volume, float attenuation) (DP_SV_POINTSOUND)
3686 VM_strreplace,                                  // #484 string(string search, string replace, string subject) strreplace (DP_QC_STRREPLACE)
3687 VM_strireplace,                                 // #485 string(string search, string replace, string subject) strireplace (DP_QC_STRREPLACE)
3688 VM_getsurfacepointattribute,// #486 vector(entity e, float s, float n, float a) getsurfacepointattribute = #486;
3689 NULL,                                                   // #487
3690 NULL,                                                   // #488
3691 NULL,                                                   // #489
3692 NULL,                                                   // #490
3693 NULL,                                                   // #491
3694 NULL,                                                   // #492
3695 NULL,                                                   // #493
3696 VM_crc16,                                               // #494 float(float caseinsensitive, string s, ...) crc16 = #494 (DP_QC_CRC16)
3697 VM_cvar_type,                                   // #495 float(string name) cvar_type = #495; (DP_QC_CVAR_TYPE)
3698 VM_numentityfields,                             // #496 float() numentityfields = #496; (DP_QC_ENTITYDATA)
3699 VM_entityfieldname,                             // #497 string(float fieldnum) entityfieldname = #497; (DP_QC_ENTITYDATA)
3700 VM_entityfieldtype,                             // #498 float(float fieldnum) entityfieldtype = #498; (DP_QC_ENTITYDATA)
3701 VM_getentityfieldstring,                // #499 string(float fieldnum, entity ent) getentityfieldstring = #499; (DP_QC_ENTITYDATA)
3702 VM_putentityfieldstring,                // #500 float(float fieldnum, entity ent, string s) putentityfieldstring = #500; (DP_QC_ENTITYDATA)
3703 VM_SV_WritePicture,                             // #501
3704 NULL,                                                   // #502
3705 VM_whichpack,                                   // #503 string(string) whichpack = #503;
3706 NULL,                                                   // #504
3707 NULL,                                                   // #505
3708 NULL,                                                   // #506
3709 NULL,                                                   // #507
3710 NULL,                                                   // #508
3711 NULL,                                                   // #509
3712 VM_uri_escape,                                  // #510 string(string in) uri_escape = #510;
3713 VM_uri_unescape,                                // #511 string(string in) uri_unescape = #511;
3714 VM_etof,                                        // #512 float(entity ent) num_for_edict = #512 (DP_QC_NUM_FOR_EDICT)
3715 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)
3716 VM_tokenize_console,                                    // #514 float(string str) tokenize_console = #514; (DP_QC_TOKENIZE_CONSOLE)
3717 VM_argv_start_index,                                    // #515 float(float idx) argv_start_index = #515; (DP_QC_TOKENIZE_CONSOLE)
3718 VM_argv_end_index,                                              // #516 float(float idx) argv_end_index = #516; (DP_QC_TOKENIZE_CONSOLE)
3719 VM_buf_cvarlist,                                                // #517 void(float buf, string prefix, string antiprefix) buf_cvarlist = #517; (DP_QC_STRINGBUFFERS_CVARLIST)
3720 VM_cvar_description,                                    // #518 float(string name) cvar_description = #518; (DP_QC_CVAR_DESCRIPTION)
3721 VM_gettime,                                             // #519 float(float timer) gettime = #519; (DP_QC_GETTIME)
3722 NULL,                                                   // #520
3723 NULL,                                                   // #521
3724 NULL,                                                   // #522
3725 NULL,                                                   // #523
3726 NULL,                                                   // #524
3727 NULL,                                                   // #525
3728 NULL,                                                   // #526
3729 NULL,                                                   // #527
3730 NULL,                                                   // #528
3731 VM_loadfromdata,                                // #529
3732 VM_loadfromfile,                                // #530
3733 VM_SV_setpause,                                 // #531 void(float pause) setpause = #531;
3734 VM_log,                                                 // #532
3735 VM_getsoundtime,                                // #533 float(entity e, float channel) getsoundtime = #533; (DP_SND_GETSOUNDTIME)
3736 VM_soundlength,                                 // #534 float(string sample) soundlength = #534; (DP_SND_GETSOUNDTIME)
3737 VM_buf_loadfile,                // #535 float(string filename, float bufhandle) buf_loadfile (DP_QC_STRINGBUFFERS_EXT_WIP)
3738 VM_buf_writefile,               // #536 float(float filehandle, float bufhandle, float startpos, float numstrings) buf_writefile (DP_QC_STRINGBUFFERS_EXT_WIP)
3739 VM_bufstr_find,                 // #537 float(float bufhandle, string match, float matchrule, float startpos) bufstr_find (DP_QC_STRINGBUFFERS_EXT_WIP)
3740 VM_matchpattern,                // #538 float(string s, string pattern, float matchrule) matchpattern (DP_QC_STRINGBUFFERS_EXT_WIP)
3741 NULL,                                                   // #539
3742 VM_physics_enable,                              // #540 void(entity e, float physics_enabled) physics_enable = #540; (DP_PHYSICS_ODE)
3743 VM_physics_addforce,                    // #541 void(entity e, vector force, vector relative_ofs) physics_addforce = #541; (DP_PHYSICS_ODE)
3744 VM_physics_addtorque,                   // #542 void(entity e, vector torque) physics_addtorque = #542; (DP_PHYSICS_ODE)
3745 NULL,                                                   // #543
3746 NULL,                                                   // #544
3747 NULL,                                                   // #545
3748 NULL,                                                   // #546
3749 NULL,                                                   // #547
3750 NULL,                                                   // #548
3751 NULL,                                                   // #549
3752 NULL,                                                   // #550
3753 NULL,                                                   // #551
3754 NULL,                                                   // #552
3755 NULL,                                                   // #553
3756 NULL,                                                   // #554
3757 NULL,                                                   // #555
3758 NULL,                                                   // #556
3759 NULL,                                                   // #557
3760 NULL,                                                   // #558
3761 NULL,                                                   // #559
3762 NULL,                                                   // #560
3763 NULL,                                                   // #561
3764 NULL,                                                   // #562
3765 NULL,                                                   // #563
3766 NULL,                                                   // #564
3767 NULL,                                                   // #565
3768 NULL,                                                   // #566
3769 NULL,                                                   // #567
3770 NULL,                                                   // #568
3771 NULL,                                                   // #569
3772 NULL,                                                   // #570
3773 NULL,                                                   // #571
3774 NULL,                                                   // #572
3775 NULL,                                                   // #573
3776 NULL,                                                   // #574
3777 NULL,                                                   // #575
3778 NULL,                                                   // #576
3779 NULL,                                                   // #577
3780 NULL,                                                   // #578
3781 NULL,                                                   // #579
3782 NULL,                                                   // #580
3783 NULL,                                                   // #581
3784 NULL,                                                   // #582
3785 NULL,                                                   // #583
3786 NULL,                                                   // #584
3787 NULL,                                                   // #585
3788 NULL,                                                   // #586
3789 NULL,                                                   // #587
3790 NULL,                                                   // #588
3791 NULL,                                                   // #589
3792 NULL,                                                   // #590
3793 NULL,                                                   // #591
3794 NULL,                                                   // #592
3795 NULL,                                                   // #593
3796 NULL,                                                   // #594
3797 NULL,                                                   // #595
3798 NULL,                                                   // #596
3799 NULL,                                                   // #597
3800 NULL,                                                   // #598
3801 NULL,                                                   // #599
3802 NULL,                                                   // #600
3803 NULL,                                                   // #601
3804 NULL,                                                   // #602
3805 NULL,                                                   // #603
3806 NULL,                                                   // #604
3807 VM_callfunction,                                // #605
3808 VM_writetofile,                                 // #606
3809 VM_isfunction,                                  // #607
3810 NULL,                                                   // #608
3811 NULL,                                                   // #609
3812 NULL,                                                   // #610
3813 NULL,                                                   // #611
3814 NULL,                                                   // #612
3815 VM_parseentitydata,                             // #613
3816 NULL,                                                   // #614
3817 NULL,                                                   // #615
3818 NULL,                                                   // #616
3819 NULL,                                                   // #617
3820 NULL,                                                   // #618
3821 NULL,                                                   // #619
3822 NULL,                                                   // #620
3823 NULL,                                                   // #621
3824 NULL,                                                   // #622
3825 NULL,                                                   // #623
3826 VM_SV_getextresponse,                   // #624 string getextresponse(void)
3827 NULL,                                                   // #625
3828 NULL,                                                   // #626
3829 VM_sprintf,                     // #627 string sprintf(string format, ...)
3830 VM_getsurfacenumtriangles,              // #628 float(entity e, float s) getsurfacenumpoints (DP_QC_GETSURFACETRIANGLE)
3831 VM_getsurfacetriangle,                  // #629 vector(entity e, float s, float n) getsurfacepoint (DP_QC_GETSURFACETRIANGLE)
3832 NULL,                                                   // #630
3833 NULL,                                                   // #631
3834 NULL,                                                   // #632
3835 NULL,                                                   // #633
3836 NULL,                                                   // #634
3837 NULL,                                                   // #635
3838 NULL,                                                   // #636
3839 NULL,                                                   // #637
3840 NULL,                                                   // #638
3841 VM_digest_hex,                                          // #639
3842 NULL,                                                   // #640
3843 NULL,                                                   // #641
3844 VM_coverage,                                            // #642
3845 NULL,                                                   // #643
3846 };
3847
3848 const int vm_sv_numbuiltins = sizeof(vm_sv_builtins) / sizeof(prvm_builtin_t);
3849
3850 void SVVM_init_cmd(prvm_prog_t *prog)
3851 {
3852         VM_Cmd_Init(prog);
3853 }
3854
3855 void SVVM_reset_cmd(prvm_prog_t *prog)
3856 {
3857         World_End(&sv.world);
3858
3859         if(prog->loaded && PRVM_serverfunction(SV_Shutdown))
3860         {
3861                 func_t s = PRVM_serverfunction(SV_Shutdown);
3862                 PRVM_serverglobalfloat(time) = sv.time;
3863                 PRVM_serverfunction(SV_Shutdown) = 0; // prevent it from getting called again
3864                 prog->ExecuteProgram(prog, s,"SV_Shutdown() required");
3865         }
3866
3867         VM_Cmd_Reset(prog);
3868 }