host_cmd.c

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