host_cmd.c

   1 /*
   2 Copyright (C) 1996-1997 Id Software, Inc.
   3
   4 This program is free software; you can redistribute it and/or
   5 modify it under the terms of the GNU General Public License
   6 as published by the Free Software Foundation; either version 2
   7 of the License, or (at your option) any later version.
   8
   9 This program is distributed in the hope that it will be useful,
  10 but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  12
  13 See the GNU General Public License for more details.
  14
  15 You should have received a copy of the GNU General Public License
  16 along with this program; if not, write to the Free Software
  17 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  18
  19 */
  20
  21 #include "quakedef.h"
  22
  23 int current_skill;
  24 cvar_t sv_cheats = {0, "sv_cheats", "0", "enables cheat commands in any game, and cheat impulses in dpmod"};
  25 cvar_t sv_adminnick = {CVAR_SAVE, "sv_adminnick", "", "nick name to use for admin messages instead of host name"};
  26 cvar_t rcon_password = {CVAR_PRIVATE, "rcon_password", "", "password to authenticate rcon commands"};
  27 cvar_t rcon_address = {0, "rcon_address", "", "server address to send rcon commands to (when not connected to a server)"};
  28 cvar_t team = {CVAR_USERINFO | CVAR_SAVE, "team", "none", "QW team (4 character limit, example: blue)"};
  29 cvar_t skin = {CVAR_USERINFO | CVAR_SAVE, "skin", "", "QW player skin name (example: base)"};
  30 cvar_t noaim = {CVAR_USERINFO | CVAR_SAVE, "noaim", "1", "QW option to disable vertical autoaim"};
  31 qboolean allowcheats = false;
  32
  33 extern qboolean host_shuttingdown;
  34
  35 /*
  36 ==================
  37 Host_Quit_f
  38 ==================
  39 */
  40
  41 void Host_Quit_f (void)
  42 {
  43         if(host_shuttingdown)
  44                 Con_Printf("shutting down already!\n");
  45         else
  46                 Sys_Quit (0);
  47 }
  48
  49 /*
  50 ==================
  51 Host_Status_f
  52 ==================
  53 */
  54 void Host_Status_f (void)
  55 {
  56         client_t *client;
  57         int seconds, minutes, hours = 0, j, players;
  58         void (*print) (const char *fmt, ...);
  59
  60         if (cmd_source == src_command)
  61         {
  62                 // if running a client, try to send over network so the client's status report parser will see the report
  63                 if (cls.state == ca_connected)
  64                 {
  65                         Cmd_ForwardToServer ();
  66                         return;
  67                 }
  68                 print = Con_Printf;
  69         }
  70         else
  71                 print = SV_ClientPrintf;
  72
  73         if (!sv.active)
  74                 return;
  75
  76         for (players = 0, j = 0;j < svs.maxclients;j++)
  77                 if (svs.clients[j].active)
  78                         players++;
  79         print ("host:     %s\n", Cvar_VariableString ("hostname"));
  80         print ("version:  %s build %s\n", gamename, buildstring);
  81         print ("protocol: %i (%s)\n", Protocol_NumberForEnum(sv.protocol), Protocol_NameForEnum(sv.protocol));
  82         print ("map:      %s\n", sv.name);
  83         print ("timing:   %s\n", Host_TimingReport());
  84         print ("players:  %i active (%i max)\n\n", players, svs.maxclients);
  85         for (j = 0, client = svs.clients;j < svs.maxclients;j++, client++)
  86         {
  87                 if (!client->active)
  88                         continue;
  89                 seconds = (int)(realtime - client->connecttime);
  90                 minutes = seconds / 60;
  91                 if (minutes)
  92                 {
  93                         seconds -= (minutes * 60);
  94                         hours = minutes / 60;
  95                         if (hours)
  96                                 minutes -= (hours * 60);
  97                 }
  98                 else
  99                         hours = 0;
 100                 print ("#%-3u %-16.16s  %3i  %2i:%02i:%02i\n", j+1, client->name, client->frags, hours, minutes, seconds);
 101                 print ("   %s\n", client->netconnection ? client->netconnection->address : "botclient");
 102         }
 103 }
 104
 105
 106 /*
 107 ==================
 108 Host_God_f
 109
 110 Sets client to godmode
 111 ==================
 112 */
 113 void Host_God_f (void)
 114 {
 115         if (!allowcheats)
 116         {
 117                 SV_ClientPrint("No cheats allowed, use sv_cheats 1 and restart level to enable.\n");
 118                 return;
 119         }
 120
 121         host_client->edict->fields.server->flags = (int)host_client->edict->fields.server->flags ^ FL_GODMODE;
 122         if (!((int)host_client->edict->fields.server->flags & FL_GODMODE) )
 123                 SV_ClientPrint("godmode OFF\n");
 124         else
 125                 SV_ClientPrint("godmode ON\n");
 126 }
 127
 128 void Host_Notarget_f (void)
 129 {
 130         if (!allowcheats)
 131         {
 132                 SV_ClientPrint("No cheats allowed, use sv_cheats 1 and restart level to enable.\n");
 133                 return;
 134         }
 135
 136         host_client->edict->fields.server->flags = (int)host_client->edict->fields.server->flags ^ FL_NOTARGET;
 137         if (!((int)host_client->edict->fields.server->flags & FL_NOTARGET) )
 138                 SV_ClientPrint("notarget OFF\n");
 139         else
 140                 SV_ClientPrint("notarget ON\n");
 141 }
 142
 143 qboolean noclip_anglehack;
 144
 145 void Host_Noclip_f (void)
 146 {
 147         if (!allowcheats)
 148         {
 149                 SV_ClientPrint("No cheats allowed, use sv_cheats 1 and restart level to enable.\n");
 150                 return;
 151         }
 152
 153         if (host_client->edict->fields.server->movetype != MOVETYPE_NOCLIP)
 154         {
 155                 noclip_anglehack = true;
 156                 host_client->edict->fields.server->movetype = MOVETYPE_NOCLIP;
 157                 SV_ClientPrint("noclip ON\n");
 158         }
 159         else
 160         {
 161                 noclip_anglehack = false;
 162                 host_client->edict->fields.server->movetype = MOVETYPE_WALK;
 163                 SV_ClientPrint("noclip OFF\n");
 164         }
 165 }
 166
 167 /*
 168 ==================
 169 Host_Fly_f
 170
 171 Sets client to flymode
 172 ==================
 173 */
 174 void Host_Fly_f (void)
 175 {
 176         if (!allowcheats)
 177         {
 178                 SV_ClientPrint("No cheats allowed, use sv_cheats 1 and restart level to enable.\n");
 179                 return;
 180         }
 181
 182         if (host_client->edict->fields.server->movetype != MOVETYPE_FLY)
 183         {
 184                 host_client->edict->fields.server->movetype = MOVETYPE_FLY;
 185                 SV_ClientPrint("flymode ON\n");
 186         }
 187         else
 188         {
 189                 host_client->edict->fields.server->movetype = MOVETYPE_WALK;
 190                 SV_ClientPrint("flymode OFF\n");
 191         }
 192 }
 193
 194
 195 /*
 196 ==================
 197 Host_Ping_f
 198
 199 ==================
 200 */
 201 void Host_Pings_f (void); // called by Host_Ping_f
 202 void Host_Ping_f (void)
 203 {
 204         int i;
 205         client_t *client;
 206         void (*print) (const char *fmt, ...);
 207
 208         if (cmd_source == src_command)
 209         {
 210                 // if running a client, try to send over network so the client's ping report parser will see the report
 211                 if (cls.state == ca_connected)
 212                 {
 213                         Cmd_ForwardToServer ();
 214                         return;
 215                 }
 216                 print = Con_Printf;
 217         }
 218         else
 219                 print = SV_ClientPrintf;
 220
 221         if (!sv.active)
 222                 return;
 223
 224         print("Client ping times:\n");
 225         for (i = 0, client = svs.clients;i < svs.maxclients;i++, client++)
 226         {
 227                 if (!client->active)
 228                         continue;
 229                 print("%4i %s\n", bound(0, (int)floor(client->ping*1000+0.5), 9999), client->name);
 230         }
 231
 232         // now call the Pings command also, which will send a report that contains packet loss for the scoreboard (as well as a simpler ping report)
 233         // actually, don't, it confuses old clients (resulting in "unknown command pingplreport" flooding the console)
 234         //Host_Pings_f();
 235 }
 236
 237 /*
 238 ===============================================================================
 239
 240 SERVER TRANSITIONS
 241
 242 ===============================================================================
 243 */
 244
 245 /*
 246 ======================
 247 Host_Map_f
 248
 249 handle a
 250 map <servername>
 251 command from the console.  Active clients are kicked off.
 252 ======================
 253 */
 254 void Host_Map_f (void)
 255 {
 256         char level[MAX_QPATH];
 257
 258         if (Cmd_Argc() != 2)
 259         {
 260                 Con_Print("map <levelname> : start a new game (kicks off all players)\n");
 261                 return;
 262         }
 263
 264         cls.demonum = -1;               // stop demo loop in case this fails
 265
 266         CL_Disconnect ();
 267         Host_ShutdownServer();
 268
 269         // remove menu
 270         key_dest = key_game;
 271
 272         svs.serverflags = 0;                    // haven't completed an episode yet
 273         allowcheats = sv_cheats.integer != 0;
 274         strlcpy(level, Cmd_Argv(1), sizeof(level));
 275         SV_SpawnServer(level);
 276         if (sv.active && cls.state == ca_disconnected)
 277                 CL_EstablishConnection("local:1");
 278 }
 279
 280 /*
 281 ==================
 282 Host_Changelevel_f
 283
 284 Goes to a new map, taking all clients along
 285 ==================
 286 */
 287 void Host_Changelevel_f (void)
 288 {
 289         char level[MAX_QPATH];
 290
 291         if (Cmd_Argc() != 2)
 292         {
 293                 Con_Print("changelevel <levelname> : continue game on a new level\n");
 294                 return;
 295         }
 296         // HACKHACKHACK
 297         if (!sv.active) {
 298                 Host_Map_f();
 299                 return;
 300         }
 301
 302         // remove menu
 303         key_dest = key_game;
 304
 305         SV_VM_Begin();
 306         SV_SaveSpawnparms ();
 307         SV_VM_End();
 308         allowcheats = sv_cheats.integer != 0;
 309         strlcpy(level, Cmd_Argv(1), sizeof(level));
 310         SV_SpawnServer(level);
 311         if (sv.active && cls.state == ca_disconnected)
 312                 CL_EstablishConnection("local:1");
 313 }
 314
 315 /*
 316 ==================
 317 Host_Restart_f
 318
 319 Restarts the current server for a dead player
 320 ==================
 321 */
 322 void Host_Restart_f (void)
 323 {
 324         char mapname[MAX_QPATH];
 325
 326         if (Cmd_Argc() != 1)
 327         {
 328                 Con_Print("restart : restart current level\n");
 329                 return;
 330         }
 331         if (!sv.active)
 332         {
 333                 Con_Print("Only the server may restart\n");
 334                 return;
 335         }
 336
 337         // remove menu
 338         key_dest = key_game;
 339
 340         allowcheats = sv_cheats.integer != 0;
 341         strlcpy(mapname, sv.name, sizeof(mapname));
 342         SV_SpawnServer(mapname);
 343         if (sv.active && cls.state == ca_disconnected)
 344                 CL_EstablishConnection("local:1");
 345 }
 346
 347 /*
 348 ==================
 349 Host_Reconnect_f
 350
 351 This command causes the client to wait for the signon messages again.
 352 This is sent just before a server changes levels
 353 ==================
 354 */
 355 void Host_Reconnect_f (void)
 356 {
 357         char temp[128];
 358         // if not connected, reconnect to the most recent server
 359         if (!cls.netcon)
 360         {
 361                 // if we have connected to a server recently, the userinfo
 362                 // will still contain its IP address, so get the address...
 363                 InfoString_GetValue(cls.userinfo, "*ip", temp, sizeof(temp));
 364                 if (temp[0])
 365                         CL_EstablishConnection(temp);
 366                 else
 367                         Con_Printf("Reconnect to what server?  (you have not connected to a server yet)\n");
 368                 return;
 369         }
 370         // if connected, do something based on protocol
 371         if (cls.protocol == PROTOCOL_QUAKEWORLD)
 372         {
 373                 // quakeworld can just re-login
 374                 if (cls.qw_downloadmemory)  // don't change when downloading
 375                         return;
 376
 377                 S_StopAllSounds();
 378
 379                 if (cls.state == ca_connected && cls.signon < SIGNONS)
 380                 {
 381                         Con_Printf("reconnecting...\n");
 382                         MSG_WriteChar(&cls.netcon->message, qw_clc_stringcmd);
 383                         MSG_WriteString(&cls.netcon->message, "new");
 384                 }
 385         }
 386         else
 387         {
 388                 // netquake uses reconnect on level changes (silly)
 389                 if (Cmd_Argc() != 1)
 390                 {
 391                         Con_Print("reconnect : wait for signon messages again\n");
 392                         return;
 393                 }
 394                 if (!cls.signon)
 395                 {
 396                         Con_Print("reconnect: no signon, ignoring reconnect\n");
 397                         return;
 398                 }
 399                 cls.signon = 0;         // need new connection messages
 400         }
 401 }
 402
 403 /*
 404 =====================
 405 Host_Connect_f
 406
 407 User command to connect to server
 408 =====================
 409 */
 410 void Host_Connect_f (void)
 411 {
 412         if (Cmd_Argc() != 2)
 413         {
 414                 Con_Print("connect <serveraddress> : connect to a multiplayer game\n");
 415                 return;
 416         }
 417         CL_EstablishConnection(Cmd_Argv(1));
 418 }
 419
 420
 421 /*
 422 ===============================================================================
 423
 424 LOAD / SAVE GAME
 425
 426 ===============================================================================
 427 */
 428
 429 #define SAVEGAME_VERSION        5
 430
 431 /*
 432 ===============
 433 Host_Savegame_f
 434 ===============
 435 */
 436 void Host_Savegame_f (void)
 437 {
 438         char    name[MAX_QPATH];
 439         qfile_t *f;
 440         int             i;
 441         char    comment[SAVEGAME_COMMENT_LENGTH+1];
 442
 443         if (!sv.active)
 444         {
 445                 Con_Print("Can't save - no server running.\n");
 446                 return;
 447         }
 448
 449         if (cl.islocalgame)
 450         {
 451                 // singleplayer checks
 452                 if (cl.intermission)
 453                 {
 454                         Con_Print("Can't save in intermission.\n");
 455                         return;
 456                 }
 457
 458                 if (svs.clients[0].active && svs.clients[0].edict->fields.server->deadflag)
 459                 {
 460                         Con_Print("Can't savegame with a dead player\n");
 461                         return;
 462                 }
 463         }
 464         else
 465                 Con_Print("Warning: saving a multiplayer game may have strange results when restored (to properly resume, all players must join in the same player slots and then the game can be reloaded).\n");
 466
 467         if (Cmd_Argc() != 2)
 468         {
 469                 Con_Print("save <savename> : save a game\n");
 470                 return;
 471         }
 472
 473         if (strstr(Cmd_Argv(1), ".."))
 474         {
 475                 Con_Print("Relative pathnames are not allowed.\n");
 476                 return;
 477         }
 478
 479         strlcpy (name, Cmd_Argv(1), sizeof (name));
 480         FS_DefaultExtension (name, ".sav", sizeof (name));
 481
 482         Con_Printf("Saving game to %s...\n", name);
 483         f = FS_Open (name, "wb", false, false);
 484         if (!f)
 485         {
 486                 Con_Print("ERROR: couldn't open.\n");
 487                 return;
 488         }
 489
 490         SV_VM_Begin();
 491
 492         FS_Printf(f, "%i\n", SAVEGAME_VERSION);
 493
 494         memset(comment, 0, sizeof(comment));
 495         sprintf(comment, "%-21s kills:%3i/%3i", PRVM_GetString(prog->edicts->fields.server->message), (int)prog->globals.server->killed_monsters, (int)prog->globals.server->total_monsters);
 496         // convert space to _ to make stdio happy
 497         // LordHavoc: convert control characters to _ as well
 498         for (i=0 ; i<SAVEGAME_COMMENT_LENGTH ; i++)
 499                 if (comment[i] <= ' ')
 500                         comment[i] = '_';
 501         comment[SAVEGAME_COMMENT_LENGTH] = '\0';
 502
 503         FS_Printf(f, "%s\n", comment);
 504         for (i=0 ; i<NUM_SPAWN_PARMS ; i++)
 505                 FS_Printf(f, "%f\n", svs.clients[0].spawn_parms[i]);
 506         FS_Printf(f, "%d\n", current_skill);
 507         FS_Printf(f, "%s\n", sv.name);
 508         FS_Printf(f, "%f\n",sv.time);
 509
 510         // write the light styles
 511         for (i=0 ; i<MAX_LIGHTSTYLES ; i++)
 512         {
 513                 if (sv.lightstyles[i][0])
 514                         FS_Printf(f, "%s\n", sv.lightstyles[i]);
 515                 else
 516                         FS_Print(f,"m\n");
 517         }
 518
 519         PRVM_ED_WriteGlobals (f);
 520         for (i=0 ; i<prog->num_edicts ; i++)
 521                 PRVM_ED_Write (f, PRVM_EDICT_NUM(i));
 522
 523         SV_VM_End();
 524
 525         FS_Close (f);
 526         Con_Print("done.\n");
 527 }
 528
 529
 530 /*
 531 ===============
 532 Host_Loadgame_f
 533 ===============
 534 */
 535 void Host_Loadgame_f (void)
 536 {
 537         char filename[MAX_QPATH];
 538         char mapname[MAX_QPATH];
 539         float time;
 540         const char *start;
 541         const char *t;
 542         const char *oldt;
 543         char *text;
 544         prvm_edict_t *ent;
 545         int i;
 546         int entnum;
 547         int version;
 548         float spawn_parms[NUM_SPAWN_PARMS];
 549
 550         if (Cmd_Argc() != 2)
 551         {
 552                 Con_Print("load <savename> : load a game\n");
 553                 return;
 554         }
 555
 556         strlcpy (filename, Cmd_Argv(1), sizeof(filename));
 557         FS_DefaultExtension (filename, ".sav", sizeof (filename));
 558
 559         Con_Printf("Loading game from %s...\n", filename);
 560
 561         cls.demonum = -1;               // stop demo loop in case this fails
 562
 563         t = text = (char *)FS_LoadFile (filename, tempmempool, false, NULL);
 564         if (!text)
 565         {
 566                 Con_Print("ERROR: couldn't open.\n");
 567                 return;
 568         }
 569
 570         // version
 571         COM_ParseToken_Simple(&t, false);
 572         version = atoi(com_token);
 573         if (version != SAVEGAME_VERSION)
 574         {
 575                 Mem_Free(text);
 576                 Con_Printf("Savegame is version %i, not %i\n", version, SAVEGAME_VERSION);
 577                 return;
 578         }
 579
 580         // description
 581         COM_ParseToken_Simple(&t, false);
 582
 583         for (i = 0;i < NUM_SPAWN_PARMS;i++)
 584         {
 585                 COM_ParseToken_Simple(&t, false);
 586                 spawn_parms[i] = atof(com_token);
 587         }
 588         // skill
 589         COM_ParseToken_Simple(&t, false);
 590 // this silliness is so we can load 1.06 save files, which have float skill values
 591         current_skill = (int)(atof(com_token) + 0.5);
 592         Cvar_SetValue ("skill", (float)current_skill);
 593
 594         // mapname
 595         COM_ParseToken_Simple(&t, false);
 596         strlcpy (mapname, com_token, sizeof(mapname));
 597
 598         // time
 599         COM_ParseToken_Simple(&t, false);
 600         time = atof(com_token);
 601
 602         allowcheats = sv_cheats.integer != 0;
 603
 604         SV_SpawnServer (mapname);
 605         if (!sv.active)
 606         {
 607                 Mem_Free(text);
 608                 Con_Print("Couldn't load map\n");
 609                 return;
 610         }
 611         sv.paused = true;               // pause until all clients connect
 612         sv.loadgame = true;
 613
 614 // load the light styles
 615
 616         for (i = 0;i < MAX_LIGHTSTYLES;i++)
 617         {
 618                 // light style
 619                 oldt = t;
 620                 COM_ParseToken_Simple(&t, false);
 621                 // if this is a 64 lightstyle savegame produced by Quake, stop now
 622                 // we have to check this because darkplaces saves 256 lightstyle savegames
 623                 if (com_token[0] == '{')
 624                 {
 625                         t = oldt;
 626                         break;
 627                 }
 628                 strlcpy(sv.lightstyles[i], com_token, sizeof(sv.lightstyles[i]));
 629         }
 630
 631         // now skip everything before the first opening brace
 632         // (this is for forward compatibility, so that older versions (at
 633         // least ones with this fix) can load savegames with extra data before the
 634         // first brace, as might be produced by a later engine version)
 635         for(;;)
 636         {
 637                 oldt = t;
 638                 COM_ParseToken_Simple(&t, false);
 639                 if (com_token[0] == '{')
 640                 {
 641                         t = oldt;
 642                         break;
 643                 }
 644         }
 645
 646 // load the edicts out of the savegame file
 647         SV_VM_Begin();
 648         // -1 is the globals
 649         entnum = -1;
 650         for (;;)
 651         {
 652                 start = t;
 653                 while (COM_ParseToken_Simple(&t, false))
 654                         if (!strcmp(com_token, "}"))
 655                                 break;
 656                 if (!COM_ParseToken_Simple(&start, false))
 657                 {
 658                         // end of file
 659                         break;
 660                 }
 661                 if (strcmp(com_token,"{"))
 662                 {
 663                         Mem_Free(text);
 664                         Host_Error ("First token isn't a brace");
 665                 }
 666
 667                 if (entnum == -1)
 668                 {
 669                         // parse the global vars
 670                         PRVM_ED_ParseGlobals (start);
 671                 }
 672                 else
 673                 {
 674                         // parse an edict
 675                         if (entnum >= MAX_EDICTS)
 676                         {
 677                                 Mem_Free(text);
 678                                 Host_Error("Host_PerformLoadGame: too many edicts in save file (reached MAX_EDICTS %i)", MAX_EDICTS);
 679                         }
 680                         while (entnum >= prog->max_edicts)
 681                                 PRVM_MEM_IncreaseEdicts();
 682                         ent = PRVM_EDICT_NUM(entnum);
 683                         memset (ent->fields.server, 0, prog->progs->entityfields * 4);
 684                         ent->priv.server->free = false;
 685                         PRVM_ED_ParseEdict (start, ent);
 686
 687                         // link it into the bsp tree
 688                         if (!ent->priv.server->free)
 689                                 SV_LinkEdict (ent, false);
 690                 }
 691
 692                 entnum++;
 693         }
 694         Mem_Free(text);
 695
 696         prog->num_edicts = entnum;
 697         sv.time = time;
 698
 699         for (i = 0;i < NUM_SPAWN_PARMS;i++)
 700                 svs.clients[0].spawn_parms[i] = spawn_parms[i];
 701
 702         SV_VM_End();
 703
 704         // make sure we're connected to loopback
 705         if (sv.active && cls.state == ca_disconnected)
 706                 CL_EstablishConnection("local:1");
 707 }
 708
 709 //============================================================================
 710
 711 /*
 712 ======================
 713 Host_Name_f
 714 ======================
 715 */
 716 cvar_t cl_name = {CVAR_SAVE | CVAR_NQUSERINFOHACK, "_cl_name", "player", "internal storage cvar for current player name (changed by name command)"};
 717 void Host_Name_f (void)
 718 {
 719         int i, j;
 720         qboolean valid_colors;
 721         char newName[sizeof(host_client->name)];
 722
 723         if (Cmd_Argc () == 1)
 724         {
 725                 Con_Printf("\"name\" is \"%s\"\n", cl_name.string);
 726                 return;
 727         }
 728
 729         if (Cmd_Argc () == 2)
 730                 strlcpy (newName, Cmd_Argv(1), sizeof (newName));
 731         else
 732                 strlcpy (newName, Cmd_Args(), sizeof (newName));
 733
 734         if (cmd_source == src_command)
 735         {
 736                 Cvar_Set ("_cl_name", newName);
 737                 return;
 738         }
 739
 740         if (realtime < host_client->nametime)
 741         {
 742                 SV_ClientPrintf("You can't change name more than once every 5 seconds!\n");
 743                 return;
 744         }
 745
 746         host_client->nametime = realtime + 5;
 747
 748         // point the string back at updateclient->name to keep it safe
 749         strlcpy (host_client->name, newName, sizeof (host_client->name));
 750
 751         for (i = 0, j = 0;host_client->name[i];i++)
 752                 if (host_client->name[i] != '\r' && host_client->name[i] != '\n')
 753                         host_client->name[j++] = host_client->name[i];
 754         host_client->name[j] = 0;
 755
 756         COM_StringLengthNoColors(host_client->name, 0, &valid_colors);
 757         if(!valid_colors) // NOTE: this also proves the string is not empty, as "" is a valid colored string
 758         {
 759                 size_t l;
 760                 l = strlen(host_client->name);
 761                 if(l < sizeof(host_client->name) - 1)
 762                 {
 763                         // duplicate the color tag to escape it
 764                         host_client->name[i] = STRING_COLOR_TAG;
 765                         host_client->name[i+1] = 0;
 766                         //Con_DPrintf("abuse detected, adding another trailing color tag\n");
 767                 }
 768                 else
 769                 {
 770                         // remove the last character to fix the color code
 771                         host_client->name[l-1] = 0;
 772                         //Con_DPrintf("abuse detected, removing a trailing color tag\n");
 773                 }
 774         }
 775
 776         // find the last color tag offset and decide if we need to add a reset tag
 777         for (i = 0, j = -1;host_client->name[i];i++)
 778         {
 779                 if (host_client->name[i] == STRING_COLOR_TAG)
 780                 {
 781                         if (host_client->name[i+1] >= '0' && host_client->name[i+1] <= '9')
 782                         {
 783                                 j = i;
 784                                 // if this happens to be a reset  tag then we don't need one
 785                                 if (host_client->name[i+1] == '0' + STRING_COLOR_DEFAULT)
 786                                         j = -1;
 787                                 i++;
 788                                 continue;
 789                         }
 790                         if (host_client->name[i+1] == STRING_COLOR_TAG)
 791                         {
 792                                 i++;
 793                                 continue;
 794                         }
 795                 }
 796         }
 797         // does not end in the default color string, so add it
 798         if (j >= 0 && strlen(host_client->name) < sizeof(host_client->name) - 2)
 799                 memcpy(host_client->name + strlen(host_client->name), STRING_COLOR_DEFAULT_STR, strlen(STRING_COLOR_DEFAULT_STR) + 1);
 800
 801         host_client->edict->fields.server->netname = PRVM_SetEngineString(host_client->name);
 802         if (strcmp(host_client->old_name, host_client->name))
 803         {
 804                 if (host_client->spawned)
 805                         SV_BroadcastPrintf("%s changed name to %s\n", host_client->old_name, host_client->name);
 806                 strlcpy(host_client->old_name, host_client->name, sizeof(host_client->old_name));
 807                 // send notification to all clients
 808                 MSG_WriteByte (&sv.reliable_datagram, svc_updatename);
 809                 MSG_WriteByte (&sv.reliable_datagram, host_client - svs.clients);
 810                 MSG_WriteString (&sv.reliable_datagram, host_client->name);
 811         }
 812 }
 813
 814 /*
 815 ======================
 816 Host_Playermodel_f
 817 ======================
 818 */
 819 cvar_t cl_playermodel = {CVAR_SAVE | CVAR_NQUSERINFOHACK, "_cl_playermodel", "", "internal storage cvar for current player model in Nexuiz (changed by playermodel command)"};
 820 // the old cl_playermodel in cl_main has been renamed to __cl_playermodel
 821 void Host_Playermodel_f (void)
 822 {
 823         int i, j;
 824         char newPath[sizeof(host_client->playermodel)];
 825
 826         if (Cmd_Argc () == 1)
 827         {
 828                 Con_Printf("\"playermodel\" is \"%s\"\n", cl_playermodel.string);
 829                 return;
 830         }
 831
 832         if (Cmd_Argc () == 2)
 833                 strlcpy (newPath, Cmd_Argv(1), sizeof (newPath));
 834         else
 835                 strlcpy (newPath, Cmd_Args(), sizeof (newPath));
 836
 837         for (i = 0, j = 0;newPath[i];i++)
 838                 if (newPath[i] != '\r' && newPath[i] != '\n')
 839                         newPath[j++] = newPath[i];
 840         newPath[j] = 0;
 841
 842         if (cmd_source == src_command)
 843         {
 844                 Cvar_Set ("_cl_playermodel", newPath);
 845                 return;
 846         }
 847
 848         /*
 849         if (realtime < host_client->nametime)
 850         {
 851                 SV_ClientPrintf("You can't change playermodel more than once every 5 seconds!\n");
 852                 return;
 853         }
 854
 855         host_client->nametime = realtime + 5;
 856         */
 857
 858         // point the string back at updateclient->name to keep it safe
 859         strlcpy (host_client->playermodel, newPath, sizeof (host_client->playermodel));
 860         if( prog->fieldoffsets.playermodel >= 0 )
 861                 PRVM_EDICTFIELDVALUE(host_client->edict, prog->fieldoffsets.playermodel)->string = PRVM_SetEngineString(host_client->playermodel);
 862         if (strcmp(host_client->old_model, host_client->playermodel))
 863         {
 864                 strlcpy(host_client->old_model, host_client->playermodel, sizeof(host_client->old_model));
 865                 /*// send notification to all clients
 866                 MSG_WriteByte (&sv.reliable_datagram, svc_updatepmodel);
 867                 MSG_WriteByte (&sv.reliable_datagram, host_client - svs.clients);
 868                 MSG_WriteString (&sv.reliable_datagram, host_client->playermodel);*/
 869         }
 870 }
 871
 872 /*
 873 ======================
 874 Host_Playerskin_f
 875 ======================
 876 */
 877 cvar_t cl_playerskin = {CVAR_SAVE | CVAR_NQUSERINFOHACK, "_cl_playerskin", "", "internal storage cvar for current player skin in Nexuiz (changed by playerskin command)"};
 878 void Host_Playerskin_f (void)
 879 {
 880         int i, j;
 881         char newPath[sizeof(host_client->playerskin)];
 882
 883         if (Cmd_Argc () == 1)
 884         {
 885                 Con_Printf("\"playerskin\" is \"%s\"\n", cl_playerskin.string);
 886                 return;
 887         }
 888
 889         if (Cmd_Argc () == 2)
 890                 strlcpy (newPath, Cmd_Argv(1), sizeof (newPath));
 891         else
 892                 strlcpy (newPath, Cmd_Args(), sizeof (newPath));
 893
 894         for (i = 0, j = 0;newPath[i];i++)
 895                 if (newPath[i] != '\r' && newPath[i] != '\n')
 896                         newPath[j++] = newPath[i];
 897         newPath[j] = 0;
 898
 899         if (cmd_source == src_command)
 900         {
 901                 Cvar_Set ("_cl_playerskin", newPath);
 902                 return;
 903         }
 904
 905         /*
 906         if (realtime < host_client->nametime)
 907         {
 908                 SV_ClientPrintf("You can't change playermodel more than once every 5 seconds!\n");
 909                 return;
 910         }
 911
 912         host_client->nametime = realtime + 5;
 913         */
 914
 915         // point the string back at updateclient->name to keep it safe
 916         strlcpy (host_client->playerskin, newPath, sizeof (host_client->playerskin));
 917         if( prog->fieldoffsets.playerskin >= 0 )
 918                 PRVM_EDICTFIELDVALUE(host_client->edict, prog->fieldoffsets.playerskin)->string = PRVM_SetEngineString(host_client->playerskin);
 919         if (strcmp(host_client->old_skin, host_client->playerskin))
 920         {
 921                 //if (host_client->spawned)
 922                 //      SV_BroadcastPrintf("%s changed skin to %s\n", host_client->name, host_client->playerskin);
 923                 strlcpy(host_client->old_skin, host_client->playerskin, sizeof(host_client->old_skin));
 924                 /*// send notification to all clients
 925                 MSG_WriteByte (&sv.reliable_datagram, svc_updatepskin);
 926                 MSG_WriteByte (&sv.reliable_datagram, host_client - svs.clients);
 927                 MSG_WriteString (&sv.reliable_datagram, host_client->playerskin);*/
 928         }
 929 }
 930
 931 void Host_Version_f (void)
 932 {
 933         Con_Printf("Version: %s build %s\n", gamename, buildstring);
 934 }
 935
 936 void Host_Say(qboolean teamonly)
 937 {
 938         client_t *save;
 939         int j, quoted;
 940         const char *p1;
 941         char *p2;
 942         // LordHavoc: long say messages
 943         char text[1024];
 944         qboolean fromServer = false;
 945
 946         if (cmd_source == src_command)
 947         {
 948                 if (cls.state == ca_dedicated)
 949                 {
 950                         fromServer = true;
 951                         teamonly = false;
 952                 }
 953                 else
 954                 {
 955                         Cmd_ForwardToServer ();
 956                         return;
 957                 }
 958         }
 959
 960         if (Cmd_Argc () < 2)
 961                 return;
 962
 963         if (!teamplay.integer)
 964                 teamonly = false;
 965
 966         p1 = Cmd_Args();
 967         quoted = false;
 968         if (*p1 == '\"')
 969         {
 970                 quoted = true;
 971                 p1++;
 972         }
 973         // note this uses the chat prefix \001
 974         if (!fromServer && !teamonly)
 975                 dpsnprintf (text, sizeof(text), "\001%s: %s", host_client->name, p1);
 976         else if (!fromServer && teamonly)
 977                 dpsnprintf (text, sizeof(text), "\001(%s): %s", host_client->name, p1);
 978         else if(*(sv_adminnick.string))
 979                 dpsnprintf (text, sizeof(text), "\001<%s> %s", sv_adminnick.string, p1);
 980         else
 981                 dpsnprintf (text, sizeof(text), "\001<%s> %s", hostname.string, p1);
 982         p2 = text + strlen(text);
 983         while ((const char *)p2 > (const char *)text && (p2[-1] == '\r' || p2[-1] == '\n' || (p2[-1] == '\"' && quoted)))
 984         {
 985                 if (p2[-1] == '\"' && quoted)
 986                         quoted = false;
 987                 p2[-1] = 0;
 988                 p2--;
 989         }
 990         strlcat(text, "\n", sizeof(text));
 991
 992         // note: save is not a valid edict if fromServer is true
 993         save = host_client;
 994         for (j = 0, host_client = svs.clients;j < svs.maxclients;j++, host_client++)
 995                 if (host_client->active && (!teamonly || host_client->edict->fields.server->team == save->edict->fields.server->team))
 996                         SV_ClientPrint(text);
 997         host_client = save;
 998
 999         if (cls.state == ca_dedicated)
1000                 Con_Print(&text[1]);
1001 }
1002
1003
1004 void Host_Say_f(void)
1005 {
1006         Host_Say(false);
1007 }
1008
1009
1010 void Host_Say_Team_f(void)
1011 {
1012         Host_Say(true);
1013 }
1014
1015
1016 void Host_Tell_f(void)
1017 {
1018         const char *playername_start = NULL;
1019         size_t playername_length = 0;
1020         int playernumber = 0;
1021         client_t *save;
1022         int j;
1023         const char *p1, *p2;
1024         char text[MAX_INPUTLINE]; // LordHavoc: FIXME: temporary buffer overflow fix (was 64)
1025         qboolean fromServer = false;
1026
1027         if (cmd_source == src_command)
1028         {
1029                 if (cls.state == ca_dedicated)
1030                         fromServer = true;
1031                 else
1032                 {
1033                         Cmd_ForwardToServer ();
1034                         return;
1035                 }
1036         }
1037
1038         if (Cmd_Argc () < 2)
1039                 return;
1040
1041         // note this uses the chat prefix \001
1042         if (!fromServer)
1043                 sprintf (text, "\001%s tells you: ", host_client->name);
1044         else if(*(sv_adminnick.string))
1045                 sprintf (text, "\001<%s tells you> ", sv_adminnick.string);
1046         else
1047                 sprintf (text, "\001<%s tells you> ", hostname.string);
1048
1049         p1 = Cmd_Args();
1050         p2 = p1 + strlen(p1);
1051         // remove the target name
1052         while (p1 < p2 && *p1 == ' ')
1053                 p1++;
1054         if(*p1 == '#')
1055         {
1056                 ++p1;
1057                 while (p1 < p2 && *p1 == ' ')
1058                         p1++;
1059                 while (p1 < p2 && isdigit(*p1))
1060                 {
1061                         playernumber = playernumber * 10 + (*p1 - '0');
1062                         p1++;
1063                 }
1064                 --playernumber;
1065         }
1066         else if(*p1 == '"')
1067         {
1068                 ++p1;
1069                 playername_start = p1;
1070                 while (p1 < p2 && *p1 != '"')
1071                         p1++;
1072                 playername_length = p1 - playername_start;
1073                 if(p1 < p2)
1074                         p1++;
1075         }
1076         else
1077         {
1078                 playername_start = p1;
1079                 while (p1 < p2 && *p1 != ' ')
1080                         p1++;
1081                 playername_length = p1 - playername_start;
1082         }
1083         while (p1 < p2 && *p1 == ' ')
1084                 p1++;
1085         if(playername_start)
1086         {
1087                 // set playernumber to the right client
1088                 char namebuf[128];
1089                 if(playername_length >= sizeof(namebuf))
1090                 {
1091                         if (fromServer)
1092                                 Con_Print("Host_Tell: too long player name/ID\n");
1093                         else
1094                                 SV_ClientPrint("Host_Tell: too long player name/ID\n");
1095                         return;
1096                 }
1097                 memcpy(namebuf, playername_start, playername_length);
1098                 namebuf[playername_length] = 0;
1099                 for (playernumber = 0; playernumber < svs.maxclients; playernumber++)
1100                 {
1101                         if (!svs.clients[playernumber].active)
1102                                 continue;
1103                         if (strcasecmp(svs.clients[playernumber].name, namebuf) == 0)
1104                                 break;
1105                 }
1106         }
1107         if(playernumber < 0 || playernumber >= svs.maxclients || !(svs.clients[playernumber].active))
1108         {
1109                 if (fromServer)
1110                         Con_Print("Host_Tell: invalid player name/ID\n");
1111                 else
1112                         SV_ClientPrint("Host_Tell: invalid player name/ID\n");
1113                 return;
1114         }
1115         // remove trailing newlines
1116         while (p2 > p1 && (p2[-1] == '\n' || p2[-1] == '\r'))
1117                 p2--;
1118         // remove quotes if present
1119         if (*p1 == '"')
1120         {
1121                 p1++;
1122                 if (p2[-1] == '"')
1123                         p2--;
1124                 else if (fromServer)
1125                         Con_Print("Host_Tell: missing end quote\n");
1126                 else
1127                         SV_ClientPrint("Host_Tell: missing end quote\n");
1128         }
1129         while (p2 > p1 && (p2[-1] == '\n' || p2[-1] == '\r'))
1130                 p2--;
1131         if(p1 == p2)
1132                 return; // empty say
1133         for (j = (int)strlen(text);j < (int)(sizeof(text) - 2) && p1 < p2;)
1134                 text[j++] = *p1++;
1135         text[j++] = '\n';
1136         text[j++] = 0;
1137
1138         save = host_client;
1139         host_client = svs.clients + playernumber;
1140         SV_ClientPrint(text);
1141         host_client = save;
1142 }
1143
1144
1145 /*
1146 ==================
1147 Host_Color_f
1148 ==================
1149 */
1150 cvar_t cl_color = {CVAR_SAVE | CVAR_NQUSERINFOHACK, "_cl_color", "0", "internal storage cvar for current player colors (changed by color command)"};
1151 void Host_Color(int changetop, int changebottom)
1152 {
1153         int top, bottom, playercolor;
1154
1155         // get top and bottom either from the provided values or the current values
1156         // (allows changing only top or bottom, or both at once)
1157         top = changetop >= 0 ? changetop : (cl_color.integer >> 4);
1158         bottom = changebottom >= 0 ? changebottom : cl_color.integer;
1159
1160         top &= 15;
1161         bottom &= 15;
1162         // LordHavoc: allowing skin colormaps 14 and 15 by commenting this out
1163         //if (top > 13)
1164         //      top = 13;
1165         //if (bottom > 13)
1166         //      bottom = 13;
1167
1168         playercolor = top*16 + bottom;
1169
1170         if (cmd_source == src_command)
1171         {
1172                 Cvar_SetValueQuick(&cl_color, playercolor);
1173                 return;
1174         }
1175
1176         if (cls.protocol == PROTOCOL_QUAKEWORLD)
1177                 return;
1178
1179         if (host_client->edict && prog->funcoffsets.SV_ChangeTeam)
1180         {
1181                 Con_DPrint("Calling SV_ChangeTeam\n");
1182                 prog->globals.server->time = sv.time;
1183                 prog->globals.generic[OFS_PARM0] = playercolor;
1184                 prog->globals.server->self = PRVM_EDICT_TO_PROG(host_client->edict);
1185                 PRVM_ExecuteProgram(prog->funcoffsets.SV_ChangeTeam, "QC function SV_ChangeTeam is missing");
1186         }
1187         else
1188         {
1189                 prvm_eval_t *val;
1190                 if (host_client->edict)
1191                 {
1192                         if ((val = PRVM_EDICTFIELDVALUE(host_client->edict, prog->fieldoffsets.clientcolors)))
1193                                 val->_float = playercolor;
1194                         host_client->edict->fields.server->team = bottom + 1;
1195                 }
1196                 host_client->colors = playercolor;
1197                 if (host_client->old_colors != host_client->colors)
1198                 {
1199                         host_client->old_colors = host_client->colors;
1200                         // send notification to all clients
1201                         MSG_WriteByte (&sv.reliable_datagram, svc_updatecolors);
1202                         MSG_WriteByte (&sv.reliable_datagram, host_client - svs.clients);
1203                         MSG_WriteByte (&sv.reliable_datagram, host_client->colors);
1204                 }
1205         }
1206 }
1207
1208 void Host_Color_f(void)
1209 {
1210         int             top, bottom;
1211
1212         if (Cmd_Argc() == 1)
1213         {
1214                 Con_Printf("\"color\" is \"%i %i\"\n", cl_color.integer >> 4, cl_color.integer & 15);
1215                 Con_Print("color <0-15> [0-15]\n");
1216                 return;
1217         }
1218
1219         if (Cmd_Argc() == 2)
1220                 top = bottom = atoi(Cmd_Argv(1));
1221         else
1222         {
1223                 top = atoi(Cmd_Argv(1));
1224                 bottom = atoi(Cmd_Argv(2));
1225         }
1226         Host_Color(top, bottom);
1227 }
1228
1229 void Host_TopColor_f(void)
1230 {
1231         if (Cmd_Argc() == 1)
1232         {
1233                 Con_Printf("\"topcolor\" is \"%i\"\n", (cl_color.integer >> 4) & 15);
1234                 Con_Print("topcolor <0-15>\n");
1235                 return;
1236         }
1237
1238         Host_Color(atoi(Cmd_Argv(1)), -1);
1239 }
1240
1241 void Host_BottomColor_f(void)
1242 {
1243         if (Cmd_Argc() == 1)
1244         {
1245                 Con_Printf("\"bottomcolor\" is \"%i\"\n", cl_color.integer & 15);
1246                 Con_Print("bottomcolor <0-15>\n");
1247                 return;
1248         }
1249
1250         Host_Color(-1, atoi(Cmd_Argv(1)));
1251 }
1252
1253 cvar_t cl_rate = {CVAR_SAVE | CVAR_NQUSERINFOHACK, "_cl_rate", "20000", "internal storage cvar for current rate (changed by rate command)"};
1254 void Host_Rate_f(void)
1255 {
1256         int rate;
1257
1258         if (Cmd_Argc() != 2)
1259         {
1260                 Con_Printf("\"rate\" is \"%i\"\n", cl_rate.integer);
1261                 Con_Print("rate <bytespersecond>\n");
1262                 return;
1263         }
1264
1265         rate = atoi(Cmd_Argv(1));
1266
1267         if (cmd_source == src_command)
1268         {
1269                 Cvar_SetValue ("_cl_rate", max(NET_MINRATE, rate));
1270                 return;
1271         }
1272
1273         host_client->rate = rate;
1274 }
1275
1276 /*
1277 ==================
1278 Host_Kill_f
1279 ==================
1280 */
1281 void Host_Kill_f (void)
1282 {
1283         if (host_client->edict->fields.server->health <= 0)
1284         {
1285                 SV_ClientPrint("Can't suicide -- already dead!\n");
1286                 return;
1287         }
1288
1289         prog->globals.server->time = sv.time;
1290         prog->globals.server->self = PRVM_EDICT_TO_PROG(host_client->edict);
1291         PRVM_ExecuteProgram (prog->globals.server->ClientKill, "QC function ClientKill is missing");
1292 }
1293
1294
1295 /*
1296 ==================
1297 Host_Pause_f
1298 ==================
1299 */
1300 void Host_Pause_f (void)
1301 {
1302         if (!pausable.integer)
1303                 SV_ClientPrint("Pause not allowed.\n");
1304         else
1305         {
1306                 sv.paused ^= 1;
1307                 SV_BroadcastPrintf("%s %spaused the game\n", host_client->name, sv.paused ? "" : "un");
1308                 // send notification to all clients
1309                 MSG_WriteByte(&sv.reliable_datagram, svc_setpause);
1310                 MSG_WriteByte(&sv.reliable_datagram, sv.paused);
1311         }
1312 }
1313
1314 /*
1315 ======================
1316 Host_PModel_f
1317 LordHavoc: only supported for Nehahra, I personally think this is dumb, but Mindcrime won't listen.
1318 LordHavoc: correction, Mindcrime will be removing pmodel in the future, but it's still stuck here for compatibility.
1319 ======================
1320 */
1321 cvar_t cl_pmodel = {CVAR_SAVE | CVAR_NQUSERINFOHACK, "_cl_pmodel", "0", "internal storage cvar for current player model number in nehahra (changed by pmodel command)"};
1322 static void Host_PModel_f (void)
1323 {
1324         int i;
1325         prvm_eval_t *val;
1326
1327         if (Cmd_Argc () == 1)
1328         {
1329                 Con_Printf("\"pmodel\" is \"%s\"\n", cl_pmodel.string);
1330                 return;
1331         }
1332         i = atoi(Cmd_Argv(1));
1333
1334         if (cmd_source == src_command)
1335         {
1336                 if (cl_pmodel.integer == i)
1337                         return;
1338                 Cvar_SetValue ("_cl_pmodel", i);
1339                 if (cls.state == ca_connected)
1340                         Cmd_ForwardToServer ();
1341                 return;
1342         }
1343
1344         if (host_client->edict && (val = PRVM_EDICTFIELDVALUE(host_client->edict, prog->fieldoffsets.pmodel)))
1345                 val->_float = i;
1346 }
1347
1348 //===========================================================================
1349
1350
1351 /*
1352 ==================
1353 Host_PreSpawn_f
1354 ==================
1355 */
1356 void Host_PreSpawn_f (void)
1357 {
1358         if (host_client->spawned)
1359         {
1360                 Con_Print("prespawn not valid -- already spawned\n");
1361                 return;
1362         }
1363
1364         if (host_client->netconnection)
1365         {
1366                 SZ_Write (&host_client->netconnection->message, sv.signon.data, sv.signon.cursize);
1367                 MSG_WriteByte (&host_client->netconnection->message, svc_signonnum);
1368                 MSG_WriteByte (&host_client->netconnection->message, 2);
1369                 host_client->sendsignon = 0;            // enable unlimited sends again
1370         }
1371
1372         // reset the name change timer because the client will send name soon
1373         host_client->nametime = 0;
1374 }
1375
1376 /*
1377 ==================
1378 Host_Spawn_f
1379 ==================
1380 */
1381 void Host_Spawn_f (void)
1382 {
1383         int i;
1384         client_t *client;
1385         int stats[MAX_CL_STATS];
1386
1387         if (host_client->spawned)
1388         {
1389                 Con_Print("Spawn not valid -- already spawned\n");
1390                 return;
1391         }
1392
1393         // reset name change timer again because they might want to change name
1394         // again in the first 5 seconds after connecting
1395         host_client->nametime = 0;
1396
1397         // LordHavoc: moved this above the QC calls at FrikaC's request
1398         // LordHavoc: commented this out
1399         //if (host_client->netconnection)
1400         //      SZ_Clear (&host_client->netconnection->message);
1401
1402         // run the entrance script
1403         if (sv.loadgame)
1404         {
1405                 // loaded games are fully initialized already
1406                 // if this is the last client to be connected, unpause
1407                 sv.paused = false;
1408
1409                 if (prog->funcoffsets.RestoreGame)
1410                 {
1411                         Con_DPrint("Calling RestoreGame\n");
1412                         prog->globals.server->time = sv.time;
1413                         prog->globals.server->self = PRVM_EDICT_TO_PROG(host_client->edict);
1414                         PRVM_ExecuteProgram(prog->funcoffsets.RestoreGame, "QC function RestoreGame is missing");
1415                 }
1416         }
1417         else
1418         {
1419                 //Con_Printf("Host_Spawn_f: host_client->edict->netname = %s, host_client->edict->netname = %s, host_client->name = %s\n", PRVM_GetString(host_client->edict->fields.server->netname), PRVM_GetString(host_client->edict->fields.server->netname), host_client->name);
1420
1421                 // copy spawn parms out of the client_t
1422                 for (i=0 ; i< NUM_SPAWN_PARMS ; i++)
1423                         (&prog->globals.server->parm1)[i] = host_client->spawn_parms[i];
1424
1425                 // call the spawn function
1426                 host_client->clientconnectcalled = true;
1427                 prog->globals.server->time = sv.time;
1428                 prog->globals.server->self = PRVM_EDICT_TO_PROG(host_client->edict);
1429                 PRVM_ExecuteProgram (prog->globals.server->ClientConnect, "QC function ClientConnect is missing");
1430
1431                 if (svs.maxclients > 1 || cls.state == ca_dedicated)
1432                         Con_Printf("%s entered the game\n", host_client->name);
1433
1434                 PRVM_ExecuteProgram (prog->globals.server->PutClientInServer, "QC function PutClientInServer is missing");
1435         }
1436
1437         if (!host_client->netconnection)
1438                 return;
1439
1440         // send time of update
1441         MSG_WriteByte (&host_client->netconnection->message, svc_time);
1442         MSG_WriteFloat (&host_client->netconnection->message, sv.time);
1443
1444         // send all current names, colors, and frag counts
1445         for (i = 0, client = svs.clients;i < svs.maxclients;i++, client++)
1446         {
1447                 if (!client->active)
1448                         continue;
1449                 MSG_WriteByte (&host_client->netconnection->message, svc_updatename);
1450                 MSG_WriteByte (&host_client->netconnection->message, i);
1451                 MSG_WriteString (&host_client->netconnection->message, client->name);
1452                 MSG_WriteByte (&host_client->netconnection->message, svc_updatefrags);
1453                 MSG_WriteByte (&host_client->netconnection->message, i);
1454                 MSG_WriteShort (&host_client->netconnection->message, client->frags);
1455                 MSG_WriteByte (&host_client->netconnection->message, svc_updatecolors);
1456                 MSG_WriteByte (&host_client->netconnection->message, i);
1457                 MSG_WriteByte (&host_client->netconnection->message, client->colors);
1458         }
1459
1460         // send all current light styles
1461         for (i=0 ; i<MAX_LIGHTSTYLES ; i++)
1462         {
1463                 if (sv.lightstyles[i][0])
1464                 {
1465                         MSG_WriteByte (&host_client->netconnection->message, svc_lightstyle);
1466                         MSG_WriteByte (&host_client->netconnection->message, (char)i);
1467                         MSG_WriteString (&host_client->netconnection->message, sv.lightstyles[i]);
1468                 }
1469         }
1470
1471         // send some stats
1472         MSG_WriteByte (&host_client->netconnection->message, svc_updatestat);
1473         MSG_WriteByte (&host_client->netconnection->message, STAT_TOTALSECRETS);
1474         MSG_WriteLong (&host_client->netconnection->message, (int)prog->globals.server->total_secrets);
1475
1476         MSG_WriteByte (&host_client->netconnection->message, svc_updatestat);
1477         MSG_WriteByte (&host_client->netconnection->message, STAT_TOTALMONSTERS);
1478         MSG_WriteLong (&host_client->netconnection->message, (int)prog->globals.server->total_monsters);
1479
1480         MSG_WriteByte (&host_client->netconnection->message, svc_updatestat);
1481         MSG_WriteByte (&host_client->netconnection->message, STAT_SECRETS);
1482         MSG_WriteLong (&host_client->netconnection->message, (int)prog->globals.server->found_secrets);
1483
1484         MSG_WriteByte (&host_client->netconnection->message, svc_updatestat);
1485         MSG_WriteByte (&host_client->netconnection->message, STAT_MONSTERS);
1486         MSG_WriteLong (&host_client->netconnection->message, (int)prog->globals.server->killed_monsters);
1487
1488         // send a fixangle
1489         // Never send a roll angle, because savegames can catch the server
1490         // in a state where it is expecting the client to correct the angle
1491         // and it won't happen if the game was just loaded, so you wind up
1492         // with a permanent head tilt
1493         if (sv.loadgame)
1494         {
1495                 MSG_WriteByte (&host_client->netconnection->message, svc_setangle);
1496                 MSG_WriteAngle (&host_client->netconnection->message, host_client->edict->fields.server->v_angle[0], sv.protocol);
1497                 MSG_WriteAngle (&host_client->netconnection->message, host_client->edict->fields.server->v_angle[1], sv.protocol);
1498                 MSG_WriteAngle (&host_client->netconnection->message, 0, sv.protocol);
1499                 sv.loadgame = false; // we're basically done with loading now
1500         }
1501         else
1502         {
1503                 MSG_WriteByte (&host_client->netconnection->message, svc_setangle);
1504                 MSG_WriteAngle (&host_client->netconnection->message, host_client->edict->fields.server->angles[0], sv.protocol);
1505                 MSG_WriteAngle (&host_client->netconnection->message, host_client->edict->fields.server->angles[1], sv.protocol);
1506                 MSG_WriteAngle (&host_client->netconnection->message, 0, sv.protocol);
1507         }
1508
1509         SV_WriteClientdataToMessage (host_client, host_client->edict, &host_client->netconnection->message, stats);
1510
1511         MSG_WriteByte (&host_client->netconnection->message, svc_signonnum);
1512         MSG_WriteByte (&host_client->netconnection->message, 3);
1513 }
1514
1515 /*
1516 ==================
1517 Host_Begin_f
1518 ==================
1519 */
1520 void Host_Begin_f (void)
1521 {
1522         host_client->spawned = true;
1523 }
1524
1525 //===========================================================================
1526
1527
1528 /*
1529 ==================
1530 Host_Kick_f
1531
1532 Kicks a user off of the server
1533 ==================
1534 */
1535 void Host_Kick_f (void)
1536 {
1537         char *who;
1538         const char *message = NULL;
1539         client_t *save;
1540         int i;
1541         qboolean byNumber = false;
1542
1543         if (!sv.active)
1544                 return;
1545
1546         SV_VM_Begin();
1547         save = host_client;
1548
1549         if (Cmd_Argc() > 2 && strcmp(Cmd_Argv(1), "#") == 0)
1550         {
1551                 i = (int)(atof(Cmd_Argv(2)) - 1);
1552                 if (i < 0 || i >= svs.maxclients || !(host_client = svs.clients + i)->active)
1553                         return;
1554                 byNumber = true;
1555         }
1556         else
1557         {
1558                 for (i = 0, host_client = svs.clients;i < svs.maxclients;i++, host_client++)
1559                 {
1560                         if (!host_client->active)
1561                                 continue;
1562                         if (strcasecmp(host_client->name, Cmd_Argv(1)) == 0)
1563                                 break;
1564                 }
1565         }
1566
1567         if (i < svs.maxclients)
1568         {
1569                 if (cmd_source == src_command)
1570                 {
1571                         if (cls.state == ca_dedicated)
1572                                 who = "Console";
1573                         else
1574                                 who = cl_name.string;
1575                 }
1576                 else
1577                         who = save->name;
1578
1579                 // can't kick yourself!
1580                 if (host_client == save)
1581                         return;
1582
1583                 if (Cmd_Argc() > 2)
1584                 {
1585                         message = Cmd_Args();
1586                         COM_ParseToken_Simple(&message, false);
1587                         if (byNumber)
1588                         {
1589                                 message++;                                                      // skip the #
1590                                 while (*message == ' ')                         // skip white space
1591                                         message++;
1592                                 message += strlen(Cmd_Argv(2)); // skip the number
1593                         }
1594                         while (*message && *message == ' ')
1595                                 message++;
1596                 }
1597                 if (message)
1598                         SV_ClientPrintf("Kicked by %s: %s\n", who, message);
1599                 else
1600                         SV_ClientPrintf("Kicked by %s\n", who);
1601                 SV_DropClient (false); // kicked
1602         }
1603
1604         host_client = save;
1605         SV_VM_End();
1606 }
1607
1608 /*
1609 ===============================================================================
1610
1611 DEBUGGING TOOLS
1612
1613 ===============================================================================
1614 */
1615
1616 /*
1617 ==================
1618 Host_Give_f
1619 ==================
1620 */
1621 void Host_Give_f (void)
1622 {
1623         const char *t;
1624         int v;
1625         prvm_eval_t *val;
1626
1627         if (!allowcheats)
1628         {
1629                 SV_ClientPrint("No cheats allowed, use sv_cheats 1 and restart level to enable.\n");
1630                 return;
1631         }
1632
1633         t = Cmd_Argv(1);
1634         v = atoi (Cmd_Argv(2));
1635
1636         switch (t[0])
1637         {
1638         case '0':
1639         case '1':
1640         case '2':
1641         case '3':
1642         case '4':
1643         case '5':
1644         case '6':
1645         case '7':
1646         case '8':
1647         case '9':
1648                 // MED 01/04/97 added hipnotic give stuff
1649                 if (gamemode == GAME_HIPNOTIC)
1650                 {
1651                         if (t[0] == '6')
1652                         {
1653                                 if (t[1] == 'a')
1654                                         host_client->edict->fields.server->items = (int)host_client->edict->fields.server->items | HIT_PROXIMITY_GUN;
1655                                 else
1656                                         host_client->edict->fields.server->items = (int)host_client->edict->fields.server->items | IT_GRENADE_LAUNCHER;
1657                         }
1658                         else if (t[0] == '9')
1659                                 host_client->edict->fields.server->items = (int)host_client->edict->fields.server->items | HIT_LASER_CANNON;
1660                         else if (t[0] == '0')
1661                                 host_client->edict->fields.server->items = (int)host_client->edict->fields.server->items | HIT_MJOLNIR;
1662                         else if (t[0] >= '2')
1663                                 host_client->edict->fields.server->items = (int)host_client->edict->fields.server->items | (IT_SHOTGUN << (t[0] - '2'));
1664                 }
1665                 else
1666                 {
1667                         if (t[0] >= '2')
1668                                 host_client->edict->fields.server->items = (int)host_client->edict->fields.server->items | (IT_SHOTGUN << (t[0] - '2'));
1669                 }
1670                 break;
1671
1672         case 's':
1673                 if (gamemode == GAME_ROGUE && (val = PRVM_EDICTFIELDVALUE(host_client->edict, prog->fieldoffsets.ammo_shells1)))
1674                         val->_float = v;
1675
1676                 host_client->edict->fields.server->ammo_shells = v;
1677                 break;
1678         case 'n':
1679                 if (gamemode == GAME_ROGUE)
1680                 {
1681                         if ((val = PRVM_EDICTFIELDVALUE(host_client->edict, prog->fieldoffsets.ammo_nails1)))
1682                         {
1683                                 val->_float = v;
1684                                 if (host_client->edict->fields.server->weapon <= IT_LIGHTNING)
1685                                         host_client->edict->fields.server->ammo_nails = v;
1686                         }
1687                 }
1688                 else
1689                 {
1690                         host_client->edict->fields.server->ammo_nails = v;
1691                 }
1692                 break;
1693         case 'l':
1694                 if (gamemode == GAME_ROGUE)
1695                 {
1696                         val = PRVM_EDICTFIELDVALUE(host_client->edict, prog->fieldoffsets.ammo_lava_nails);
1697                         if (val)
1698                         {
1699                                 val->_float = v;
1700                                 if (host_client->edict->fields.server->weapon > IT_LIGHTNING)
1701                                         host_client->edict->fields.server->ammo_nails = v;
1702                         }
1703                 }
1704                 break;
1705         case 'r':
1706                 if (gamemode == GAME_ROGUE)
1707                 {
1708                         val = PRVM_EDICTFIELDVALUE(host_client->edict, prog->fieldoffsets.ammo_rockets1);
1709                         if (val)
1710                         {
1711                                 val->_float = v;
1712                                 if (host_client->edict->fields.server->weapon <= IT_LIGHTNING)
1713                                         host_client->edict->fields.server->ammo_rockets = v;
1714                         }
1715                 }
1716                 else
1717                 {
1718                         host_client->edict->fields.server->ammo_rockets = v;
1719                 }
1720                 break;
1721         case 'm':
1722                 if (gamemode == GAME_ROGUE)
1723                 {
1724                         val = PRVM_EDICTFIELDVALUE(host_client->edict, prog->fieldoffsets.ammo_multi_rockets);
1725                         if (val)
1726                         {
1727                                 val->_float = v;
1728                                 if (host_client->edict->fields.server->weapon > IT_LIGHTNING)
1729                                         host_client->edict->fields.server->ammo_rockets = v;
1730                         }
1731                 }
1732                 break;
1733         case 'h':
1734                 host_client->edict->fields.server->health = v;
1735                 break;
1736         case 'c':
1737                 if (gamemode == GAME_ROGUE)
1738                 {
1739                         val = PRVM_EDICTFIELDVALUE(host_client->edict, prog->fieldoffsets.ammo_cells1);
1740                         if (val)
1741                         {
1742                                 val->_float = v;
1743                                 if (host_client->edict->fields.server->weapon <= IT_LIGHTNING)
1744                                         host_client->edict->fields.server->ammo_cells = v;
1745                         }
1746                 }
1747                 else
1748                 {
1749                         host_client->edict->fields.server->ammo_cells = v;
1750                 }
1751                 break;
1752         case 'p':
1753                 if (gamemode == GAME_ROGUE)
1754                 {
1755                         val = PRVM_EDICTFIELDVALUE(host_client->edict, prog->fieldoffsets.ammo_plasma);
1756                         if (val)
1757                         {
1758                                 val->_float = v;
1759                                 if (host_client->edict->fields.server->weapon > IT_LIGHTNING)
1760                                         host_client->edict->fields.server->ammo_cells = v;
1761                         }
1762                 }
1763                 break;
1764         }
1765 }
1766
1767 prvm_edict_t    *FindViewthing (void)
1768 {
1769         int             i;
1770         prvm_edict_t    *e;
1771
1772         for (i=0 ; i<prog->num_edicts ; i++)
1773         {
1774                 e = PRVM_EDICT_NUM(i);
1775                 if (!strcmp (PRVM_GetString(e->fields.server->classname), "viewthing"))
1776                         return e;
1777         }
1778         Con_Print("No viewthing on map\n");
1779         return NULL;
1780 }
1781
1782 /*
1783 ==================
1784 Host_Viewmodel_f
1785 ==================
1786 */
1787 void Host_Viewmodel_f (void)
1788 {
1789         prvm_edict_t    *e;
1790         model_t *m;
1791
1792         if (!sv.active)
1793                 return;
1794
1795         SV_VM_Begin();
1796         e = FindViewthing ();
1797         SV_VM_End();
1798         if (!e)
1799                 return;
1800
1801         m = Mod_ForName (Cmd_Argv(1), false, true, false);
1802         if (!m || !m->loaded || !m->Draw)
1803         {
1804                 Con_Printf("viewmodel: can't load %s\n", Cmd_Argv(1));
1805                 return;
1806         }
1807
1808         e->fields.server->frame = 0;
1809         cl.model_precache[(int)e->fields.server->modelindex] = m;
1810 }
1811
1812 /*
1813 ==================
1814 Host_Viewframe_f
1815 ==================
1816 */
1817 void Host_Viewframe_f (void)
1818 {
1819         prvm_edict_t    *e;
1820         int             f;
1821         model_t *m;
1822
1823         if (!sv.active)
1824                 return;
1825
1826         SV_VM_Begin();
1827         e = FindViewthing ();
1828         SV_VM_End();
1829         if (!e)
1830                 return;
1831         m = cl.model_precache[(int)e->fields.server->modelindex];
1832
1833         f = atoi(Cmd_Argv(1));
1834         if (f >= m->numframes)
1835                 f = m->numframes-1;
1836
1837         e->fields.server->frame = f;
1838 }
1839
1840
1841 void PrintFrameName (model_t *m, int frame)
1842 {
1843         if (m->animscenes)
1844                 Con_Printf("frame %i: %s\n", frame, m->animscenes[frame].name);
1845         else
1846                 Con_Printf("frame %i\n", frame);
1847 }
1848
1849 /*
1850 ==================
1851 Host_Viewnext_f
1852 ==================
1853 */
1854 void Host_Viewnext_f (void)
1855 {
1856         prvm_edict_t    *e;
1857         model_t *m;
1858
1859         if (!sv.active)
1860                 return;
1861
1862         SV_VM_Begin();
1863         e = FindViewthing ();
1864         SV_VM_End();
1865         if (!e)
1866                 return;
1867         m = cl.model_precache[(int)e->fields.server->modelindex];
1868
1869         e->fields.server->frame = e->fields.server->frame + 1;
1870         if (e->fields.server->frame >= m->numframes)
1871                 e->fields.server->frame = m->numframes - 1;
1872
1873         PrintFrameName (m, (int)e->fields.server->frame);
1874 }
1875
1876 /*
1877 ==================
1878 Host_Viewprev_f
1879 ==================
1880 */
1881 void Host_Viewprev_f (void)
1882 {
1883         prvm_edict_t    *e;
1884         model_t *m;
1885
1886         if (!sv.active)
1887                 return;
1888
1889         SV_VM_Begin();
1890         e = FindViewthing ();
1891         SV_VM_End();
1892         if (!e)
1893                 return;
1894
1895         m = cl.model_precache[(int)e->fields.server->modelindex];
1896
1897         e->fields.server->frame = e->fields.server->frame - 1;
1898         if (e->fields.server->frame < 0)
1899                 e->fields.server->frame = 0;
1900
1901         PrintFrameName (m, (int)e->fields.server->frame);
1902 }
1903
1904 /*
1905 ===============================================================================
1906
1907 DEMO LOOP CONTROL
1908
1909 ===============================================================================
1910 */
1911
1912
1913 /*
1914 ==================
1915 Host_Startdemos_f
1916 ==================
1917 */
1918 void Host_Startdemos_f (void)
1919 {
1920         int             i, c;
1921
1922         if (cls.state == ca_dedicated || COM_CheckParm("-listen") || COM_CheckParm("-benchmark") || COM_CheckParm("-demo") || COM_CheckParm("-capturedemo"))
1923                 return;
1924
1925         c = Cmd_Argc() - 1;
1926         if (c > MAX_DEMOS)
1927         {
1928                 Con_Printf("Max %i demos in demoloop\n", MAX_DEMOS);
1929                 c = MAX_DEMOS;
1930         }
1931         Con_Printf("%i demo(s) in loop\n", c);
1932
1933         for (i=1 ; i<c+1 ; i++)
1934                 strlcpy (cls.demos[i-1], Cmd_Argv(i), sizeof (cls.demos[i-1]));
1935
1936         // LordHavoc: clear the remaining slots
1937         for (;i <= MAX_DEMOS;i++)
1938                 cls.demos[i-1][0] = 0;
1939
1940         if (!sv.active && cls.demonum != -1 && !cls.demoplayback)
1941         {
1942                 cls.demonum = 0;
1943                 CL_NextDemo ();
1944         }
1945         else
1946                 cls.demonum = -1;
1947 }
1948
1949
1950 /*
1951 ==================
1952 Host_Demos_f
1953
1954 Return to looping demos
1955 ==================
1956 */
1957 void Host_Demos_f (void)
1958 {
1959         if (cls.state == ca_dedicated)
1960                 return;
1961         if (cls.demonum == -1)
1962                 cls.demonum = 1;
1963         CL_Disconnect_f ();
1964         CL_NextDemo ();
1965 }
1966
1967 /*
1968 ==================
1969 Host_Stopdemo_f
1970
1971 Return to looping demos
1972 ==================
1973 */
1974 void Host_Stopdemo_f (void)
1975 {
1976         if (!cls.demoplayback)
1977                 return;
1978         CL_Disconnect ();
1979         Host_ShutdownServer ();
1980 }
1981
1982 void Host_SendCvar_f (void)
1983 {
1984         int             i;
1985         cvar_t  *c;
1986         const char *cvarname;
1987         client_t *old;
1988
1989         if(Cmd_Argc() != 2)
1990                 return;
1991         cvarname = Cmd_Argv(1);
1992         if (cls.state == ca_connected)
1993         {
1994                 c = Cvar_FindVar(cvarname);
1995                 // LordHavoc: if there is no such cvar or if it is private, send a
1996                 // reply indicating that it has no value
1997                 if(!c || (c->flags & CVAR_PRIVATE))
1998                         Cmd_ForwardStringToServer(va("sentcvar %s", cvarname));
1999                 else
2000                         Cmd_ForwardStringToServer(va("sentcvar %s \"%s\"", c->name, c->string));
2001                 return;
2002         }
2003         if(!sv.active)// || !prog->funcoffsets.SV_ParseClientCommand)
2004                 return;
2005
2006         old = host_client;
2007         if (cls.state != ca_dedicated)
2008                 i = 1;
2009         else
2010                 i = 0;
2011         for(;i<svs.maxclients;i++)
2012                 if(svs.clients[i].active && svs.clients[i].netconnection)
2013                 {
2014                         host_client = &svs.clients[i];
2015                         Host_ClientCommands(va("sendcvar %s\n", cvarname));
2016                 }
2017         host_client = old;
2018 }
2019
2020 static void MaxPlayers_f(void)
2021 {
2022         int n;
2023
2024         if (Cmd_Argc() != 2)
2025         {
2026                 Con_Printf("\"maxplayers\" is \"%u\"\n", svs.maxclients);
2027                 return;
2028         }
2029
2030         if (sv.active)
2031         {
2032                 Con_Print("maxplayers can not be changed while a server is running.\n");
2033                 return;
2034         }
2035
2036         n = atoi(Cmd_Argv(1));
2037         n = bound(1, n, MAX_SCOREBOARD);
2038         Con_Printf("\"maxplayers\" set to \"%u\"\n", n);
2039
2040         if (svs.clients)
2041                 Mem_Free(svs.clients);
2042         svs.maxclients = n;
2043         svs.clients = (client_t *)Mem_Alloc(sv_mempool, sizeof(client_t) * svs.maxclients);
2044         if (n == 1)
2045                 Cvar_Set ("deathmatch", "0");
2046         else
2047                 Cvar_Set ("deathmatch", "1");
2048 }
2049
2050 //=============================================================================
2051
2052 // QuakeWorld commands
2053
2054 /*
2055 =====================
2056 Host_Rcon_f
2057
2058   Send the rest of the command line over as
2059   an unconnected command.
2060 =====================
2061 */
2062 void Host_Rcon_f (void) // credit: taken from QuakeWorld
2063 {
2064         int i;
2065         lhnetaddress_t to;
2066         lhnetsocket_t *mysocket;
2067
2068         if (!rcon_password.string || !rcon_password.string[0])
2069         {
2070                 Con_Printf ("You must set rcon_password before issuing an rcon command.\n");
2071                 return;
2072         }
2073
2074         for (i = 0;rcon_password.string[i];i++)
2075         {
2076                 if (rcon_password.string[i] <= ' ')
2077                 {
2078                         Con_Printf("rcon_password is not allowed to have any whitespace.\n");
2079                         return;
2080                 }
2081         }
2082
2083         if (cls.netcon)
2084                 to = cls.netcon->peeraddress;
2085         else
2086         {
2087                 if (!rcon_address.string[0])
2088                 {
2089                         Con_Printf ("You must either be connected, or set the rcon_address cvar to issue rcon commands\n");
2090                         return;
2091                 }
2092                 LHNETADDRESS_FromString(&to, rcon_address.string, sv_netport.integer);
2093         }
2094         mysocket = NetConn_ChooseClientSocketForAddress(&to);
2095         if (mysocket)
2096         {
2097                 // simply put together the rcon packet and send it
2098                 NetConn_WriteString(mysocket, va("\377\377\377\377rcon %s %s", rcon_password.string, Cmd_Args()), &to);
2099         }
2100 }
2101
2102 /*
2103 ====================
2104 Host_User_f
2105
2106 user <name or userid>
2107
2108 Dump userdata / masterdata for a user
2109 ====================
2110 */
2111 void Host_User_f (void) // credit: taken from QuakeWorld
2112 {
2113         int             uid;
2114         int             i;
2115
2116         if (Cmd_Argc() != 2)
2117         {
2118                 Con_Printf ("Usage: user <username / userid>\n");
2119                 return;
2120         }
2121
2122         uid = atoi(Cmd_Argv(1));
2123
2124         for (i = 0;i < cl.maxclients;i++)
2125         {
2126                 if (!cl.scores[i].name[0])
2127                         continue;
2128                 if (cl.scores[i].qw_userid == uid || !strcasecmp(cl.scores[i].name, Cmd_Argv(1)))
2129                 {
2130                         InfoString_Print(cl.scores[i].qw_userinfo);
2131                         return;
2132                 }
2133         }
2134         Con_Printf ("User not in server.\n");
2135 }
2136
2137 /*
2138 ====================
2139 Host_Users_f
2140
2141 Dump userids for all current players
2142 ====================
2143 */
2144 void Host_Users_f (void) // credit: taken from QuakeWorld
2145 {
2146         int             i;
2147         int             c;
2148
2149         c = 0;
2150         Con_Printf ("userid frags name\n");
2151         Con_Printf ("------ ----- ----\n");
2152         for (i = 0;i < cl.maxclients;i++)
2153         {
2154                 if (cl.scores[i].name[0])
2155                 {
2156                         Con_Printf ("%6i %4i %s\n", cl.scores[i].qw_userid, cl.scores[i].frags, cl.scores[i].name);
2157                         c++;
2158                 }
2159         }
2160
2161         Con_Printf ("%i total users\n", c);
2162 }
2163
2164 /*
2165 ==================
2166 Host_FullServerinfo_f
2167
2168 Sent by server when serverinfo changes
2169 ==================
2170 */
2171 // TODO: shouldn't this be a cvar instead?
2172 void Host_FullServerinfo_f (void) // credit: taken from QuakeWorld
2173 {
2174         char temp[512];
2175         if (Cmd_Argc() != 2)
2176         {
2177                 Con_Printf ("usage: fullserverinfo <complete info string>\n");
2178                 return;
2179         }
2180
2181         strlcpy (cl.qw_serverinfo, Cmd_Argv(1), sizeof(cl.qw_serverinfo));
2182         InfoString_GetValue(cl.qw_serverinfo, "teamplay", temp, sizeof(temp));
2183         cl.qw_teamplay = atoi(temp);
2184 }
2185
2186 /*
2187 ==================
2188 Host_FullInfo_f
2189
2190 Allow clients to change userinfo
2191 ==================
2192 Casey was here :)
2193 */
2194 void Host_FullInfo_f (void) // credit: taken from QuakeWorld
2195 {
2196         char key[512];
2197         char value[512];
2198         char *o;
2199         const char *s;
2200
2201         if (Cmd_Argc() != 2)
2202         {
2203                 Con_Printf ("fullinfo <complete info string>\n");
2204                 return;
2205         }
2206
2207         s = Cmd_Argv(1);
2208         if (*s == '\\')
2209                 s++;
2210         while (*s)
2211         {
2212                 o = key;
2213                 while (*s && *s != '\\')
2214                         *o++ = *s++;
2215                 *o = 0;
2216
2217                 if (!*s)
2218                 {
2219                         Con_Printf ("MISSING VALUE\n");
2220                         return;
2221                 }
2222
2223                 o = value;
2224                 s++;
2225                 while (*s && *s != '\\')
2226                         *o++ = *s++;
2227                 *o = 0;
2228
2229                 if (*s)
2230                         s++;
2231
2232                 CL_SetInfo(key, value, false, false, false, false);
2233         }
2234 }
2235
2236 /*
2237 ==================
2238 CL_SetInfo_f
2239
2240 Allow clients to change userinfo
2241 ==================
2242 */
2243 void Host_SetInfo_f (void) // credit: taken from QuakeWorld
2244 {
2245         if (Cmd_Argc() == 1)
2246         {
2247                 InfoString_Print(cls.userinfo);
2248                 return;
2249         }
2250         if (Cmd_Argc() != 3)
2251         {
2252                 Con_Printf ("usage: setinfo [ <key> <value> ]\n");
2253                 return;
2254         }
2255         CL_SetInfo(Cmd_Argv(1), Cmd_Argv(2), true, false, false, false);
2256 }
2257
2258 /*
2259 ====================
2260 Host_Packet_f
2261
2262 packet <destination> <contents>
2263
2264 Contents allows \n escape character
2265 ====================
2266 */
2267 void Host_Packet_f (void) // credit: taken from QuakeWorld
2268 {
2269         char send[2048];
2270         int i, l;
2271         const char *in;
2272         char *out;
2273         lhnetaddress_t address;
2274         lhnetsocket_t *mysocket;
2275
2276         if (Cmd_Argc() != 3)
2277         {
2278                 Con_Printf ("packet <destination> <contents>\n");
2279                 return;
2280         }
2281
2282         if (!LHNETADDRESS_FromString (&address, Cmd_Argv(1), sv_netport.integer))
2283         {
2284                 Con_Printf ("Bad address\n");
2285                 return;
2286         }
2287
2288         in = Cmd_Argv(2);
2289         out = send+4;
2290         send[0] = send[1] = send[2] = send[3] = 0xff;
2291
2292         l = (int)strlen (in);
2293         for (i=0 ; i<l ; i++)
2294         {
2295                 if (out >= send + sizeof(send) - 1)
2296                         break;
2297                 if (in[i] == '\\' && in[i+1] == 'n')
2298                 {
2299                         *out++ = '\n';
2300                         i++;
2301                 }
2302                 else if (in[i] == '\\' && in[i+1] == '0')
2303                 {
2304                         *out++ = '\0';
2305                         i++;
2306                 }
2307                 else if (in[i] == '\\' && in[i+1] == 't')
2308                 {
2309                         *out++ = '\t';
2310                         i++;
2311                 }
2312                 else if (in[i] == '\\' && in[i+1] == 'r')
2313                 {
2314                         *out++ = '\r';
2315                         i++;
2316                 }
2317                 else if (in[i] == '\\' && in[i+1] == '"')
2318                 {
2319                         *out++ = '\"';
2320                         i++;
2321                 }
2322                 else
2323                         *out++ = in[i];
2324         }
2325
2326         mysocket = NetConn_ChooseClientSocketForAddress(&address);
2327         if (mysocket)
2328                 NetConn_Write(mysocket, send, out - send, &address);
2329 }
2330
2331 /*
2332 ====================
2333 Host_Pings_f
2334
2335 Send back ping and packet loss update for all current players to this player
2336 ====================
2337 */
2338 void Host_Pings_f (void)
2339 {
2340         int             i, j, ping, packetloss;
2341         char temp[128];
2342
2343         if (!host_client->netconnection)
2344                 return;
2345
2346         if (sv.protocol != PROTOCOL_QUAKEWORLD)
2347         {
2348                 MSG_WriteByte(&host_client->netconnection->message, svc_stufftext);
2349                 MSG_WriteUnterminatedString(&host_client->netconnection->message, "pingplreport");
2350         }
2351         for (i = 0;i < svs.maxclients;i++)
2352         {
2353                 packetloss = 0;
2354                 if (svs.clients[i].netconnection)
2355                         for (j = 0;j < NETGRAPH_PACKETS;j++)
2356                                 if (svs.clients[i].netconnection->incoming_unreliablesize[j] == NETGRAPH_LOSTPACKET)
2357                                         packetloss++;
2358                 packetloss = packetloss * 100 / NETGRAPH_PACKETS;
2359                 ping = (int)floor(svs.clients[i].ping*1000+0.5);
2360                 ping = bound(0, ping, 9999);
2361                 if (sv.protocol == PROTOCOL_QUAKEWORLD)
2362                 {
2363                         // send qw_svc_updateping and qw_svc_updatepl messages
2364                         MSG_WriteByte(&host_client->netconnection->message, qw_svc_updateping);
2365                         MSG_WriteShort(&host_client->netconnection->message, ping);
2366                         MSG_WriteByte(&host_client->netconnection->message, qw_svc_updatepl);
2367                         MSG_WriteByte(&host_client->netconnection->message, packetloss);
2368                 }
2369                 else
2370                 {
2371                         // write the string into the packet as multiple unterminated strings to avoid needing a local buffer
2372                         dpsnprintf(temp, sizeof(temp), " %d %d", ping, packetloss);
2373                         MSG_WriteUnterminatedString(&host_client->netconnection->message, temp);
2374                 }
2375         }
2376         if (sv.protocol != PROTOCOL_QUAKEWORLD)
2377                 MSG_WriteString(&host_client->netconnection->message, "\n");
2378 }
2379
2380 void Host_PingPLReport_f(void)
2381 {
2382         int i;
2383         int l = Cmd_Argc();
2384         if (l > cl.maxclients)
2385                 l = cl.maxclients;
2386         for (i = 0;i < l;i++)
2387         {
2388                 cl.scores[i].qw_ping = atoi(Cmd_Argv(1+i*2));
2389                 cl.scores[i].qw_packetloss = atoi(Cmd_Argv(1+i*2+1));
2390         }
2391 }
2392
2393 //=============================================================================
2394
2395 /*
2396 ==================
2397 Host_InitCommands
2398 ==================
2399 */
2400 void Host_InitCommands (void)
2401 {
2402         dpsnprintf(cls.userinfo, sizeof(cls.userinfo), "\\name\\player\\team\\none\\topcolor\\0\\bottomcolor\\0\\rate\\10000\\msg\\1\\noaim\\1\\*ver\\dp");
2403
2404         Cmd_AddCommand_WithClientCommand ("status", Host_Status_f, Host_Status_f, "print server status information");
2405         Cmd_AddCommand ("quit", Host_Quit_f, "quit the game");
2406         if (gamemode == GAME_NEHAHRA)
2407         {
2408                 Cmd_AddCommand_WithClientCommand ("max", NULL, Host_God_f, "god mode (invulnerability)");
2409                 Cmd_AddCommand_WithClientCommand ("monster", NULL, Host_Notarget_f, "notarget mode (monsters do not see you)");
2410                 Cmd_AddCommand_WithClientCommand ("scrag", NULL, Host_Fly_f, "fly mode (flight)");
2411                 Cmd_AddCommand_WithClientCommand ("wraith", NULL, Host_Noclip_f, "noclip mode (flight without collisions, move through walls)");
2412                 Cmd_AddCommand_WithClientCommand ("gimme", NULL, Host_Give_f, "alter inventory");
2413         }
2414         else
2415         {
2416                 Cmd_AddCommand_WithClientCommand ("god", NULL, Host_God_f, "god mode (invulnerability)");
2417                 Cmd_AddCommand_WithClientCommand ("notarget", NULL, Host_Notarget_f, "notarget mode (monsters do not see you)");
2418                 Cmd_AddCommand_WithClientCommand ("fly", NULL, Host_Fly_f, "fly mode (flight)");
2419                 Cmd_AddCommand_WithClientCommand ("noclip", NULL, Host_Noclip_f, "noclip mode (flight without collisions, move through walls)");
2420                 Cmd_AddCommand_WithClientCommand ("give", NULL, Host_Give_f, "alter inventory");
2421         }
2422         Cmd_AddCommand ("map", Host_Map_f, "kick everyone off the server and start a new level");
2423         Cmd_AddCommand ("restart", Host_Restart_f, "restart current level");
2424         Cmd_AddCommand ("changelevel", Host_Changelevel_f, "change to another level, bringing along all connected clients");
2425         Cmd_AddCommand ("connect", Host_Connect_f, "connect to a server by IP address or hostname");
2426         Cmd_AddCommand ("reconnect", Host_Reconnect_f, "reconnect to the last server you were on, or resets a quakeworld connection (do not use if currently playing on a netquake server)");
2427         Cmd_AddCommand ("version", Host_Version_f, "print engine version");
2428         Cmd_AddCommand_WithClientCommand ("say", Host_Say_f, Host_Say_f, "send a chat message to everyone on the server");
2429         Cmd_AddCommand_WithClientCommand ("say_team", Host_Say_Team_f, Host_Say_Team_f, "send a chat message to your team on the server");
2430         Cmd_AddCommand_WithClientCommand ("tell", Host_Tell_f, Host_Tell_f, "send a chat message to only one person on the server");
2431         Cmd_AddCommand_WithClientCommand ("kill", NULL, Host_Kill_f, "die instantly");
2432         Cmd_AddCommand_WithClientCommand ("pause", NULL, Host_Pause_f, "pause the game (if the server allows pausing)");
2433         Cmd_AddCommand ("kick", Host_Kick_f, "kick a player off the server by number or name");
2434         Cmd_AddCommand_WithClientCommand ("ping", Host_Ping_f, Host_Ping_f, "print ping times of all players on the server");
2435         Cmd_AddCommand ("load", Host_Loadgame_f, "load a saved game file");
2436         Cmd_AddCommand ("save", Host_Savegame_f, "save the game to a file");
2437
2438         Cmd_AddCommand ("startdemos", Host_Startdemos_f, "start playing back the selected demos sequentially (used at end of startup script)");
2439         Cmd_AddCommand ("demos", Host_Demos_f, "restart looping demos defined by the last startdemos command");
2440         Cmd_AddCommand ("stopdemo", Host_Stopdemo_f, "stop playing or recording demo (like stop command) and return to looping demos");
2441
2442         Cmd_AddCommand ("viewmodel", Host_Viewmodel_f, "change model of viewthing entity in current level");
2443         Cmd_AddCommand ("viewframe", Host_Viewframe_f, "change animation frame of viewthing entity in current level");
2444         Cmd_AddCommand ("viewnext", Host_Viewnext_f, "change to next animation frame of viewthing entity in current level");
2445         Cmd_AddCommand ("viewprev", Host_Viewprev_f, "change to previous animation frame of viewthing entity in current level");
2446
2447         Cvar_RegisterVariable (&cl_name);
2448         Cmd_AddCommand_WithClientCommand ("name", Host_Name_f, Host_Name_f, "change your player name");
2449         Cvar_RegisterVariable (&cl_color);
2450         Cmd_AddCommand_WithClientCommand ("color", Host_Color_f, Host_Color_f, "change your player shirt and pants colors");
2451         Cvar_RegisterVariable (&cl_rate);
2452         Cmd_AddCommand_WithClientCommand ("rate", Host_Rate_f, Host_Rate_f, "change your network connection speed");
2453         if (gamemode == GAME_NEHAHRA)
2454         {
2455                 Cvar_RegisterVariable (&cl_pmodel);
2456                 Cmd_AddCommand_WithClientCommand ("pmodel", Host_PModel_f, Host_PModel_f, "change your player model choice (Nehahra specific)");
2457         }
2458
2459         // BLACK: This isnt game specific anymore (it was GAME_NEXUIZ at first)
2460         Cvar_RegisterVariable (&cl_playermodel);
2461         Cmd_AddCommand_WithClientCommand ("playermodel", Host_Playermodel_f, Host_Playermodel_f, "change your player model");
2462         Cvar_RegisterVariable (&cl_playerskin);
2463         Cmd_AddCommand_WithClientCommand ("playerskin", Host_Playerskin_f, Host_Playerskin_f, "change your player skin number");
2464
2465         Cmd_AddCommand_WithClientCommand ("prespawn", NULL, Host_PreSpawn_f, "signon 1 (client acknowledges that server information has been received)");
2466         Cmd_AddCommand_WithClientCommand ("spawn", NULL, Host_Spawn_f, "signon 2 (client has sent player information, and is asking server to send scoreboard rankings)");
2467         Cmd_AddCommand_WithClientCommand ("begin", NULL, Host_Begin_f, "signon 3 (client asks server to start sending entities, and will go to signon 4 (playing) when the first entity update is received)");
2468         Cmd_AddCommand ("maxplayers", MaxPlayers_f, "sets limit on how many players (or bots) may be connected to the server at once");
2469
2470         Cmd_AddCommand ("sendcvar", Host_SendCvar_f, "sends the value of a cvar to the server as a sentcvar command, for use by QuakeC");
2471
2472         Cvar_RegisterVariable (&rcon_password);
2473         Cvar_RegisterVariable (&rcon_address);
2474         Cmd_AddCommand ("rcon", Host_Rcon_f, "sends a command to the server console (if your rcon_password matches the server's rcon_password), or to the address specified by rcon_address when not connected (again rcon_password must match the server's)");
2475         Cmd_AddCommand ("user", Host_User_f, "prints additional information about a player number or name on the scoreboard");
2476         Cmd_AddCommand ("users", Host_Users_f, "prints additional information about all players on the scoreboard");
2477         Cmd_AddCommand ("fullserverinfo", Host_FullServerinfo_f, "internal use only, sent by server to client to update client's local copy of serverinfo string");
2478         Cmd_AddCommand ("fullinfo", Host_FullInfo_f, "allows client to modify their userinfo");
2479         Cmd_AddCommand ("setinfo", Host_SetInfo_f, "modifies your userinfo");
2480         Cmd_AddCommand ("packet", Host_Packet_f, "send a packet to the specified address:port containing a text string");
2481         Cmd_AddCommand ("topcolor", Host_TopColor_f, "QW command to set top color without changing bottom color");
2482         Cmd_AddCommand ("bottomcolor", Host_BottomColor_f, "QW command to set bottom color without changing top color");
2483
2484         Cmd_AddCommand_WithClientCommand ("pings", NULL, Host_Pings_f, "command sent by clients to request updated ping and packetloss of players on scoreboard (originally from QW, but also used on NQ servers)");
2485         Cmd_AddCommand ("pingplreport", Host_PingPLReport_f, "command sent by server containing client ping and packet loss values for scoreboard, triggered by pings command from client (not used by QW servers)");
2486
2487         Cvar_RegisterVariable (&team);
2488         Cvar_RegisterVariable (&skin);
2489         Cvar_RegisterVariable (&noaim);
2490
2491         Cvar_RegisterVariable(&sv_cheats);
2492         Cvar_RegisterVariable(&sv_adminnick);
2493 }
2494