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