brought back the client->sendsignon flag from original quake code, this
[divverent/darkplaces.git] / host_cmd.c
1 /*
2 Copyright (C) 1996-1997 Id Software, Inc.
3
4 This program is free software; you can redistribute it and/or
5 modify it under the terms of the GNU General Public License
6 as published by the Free Software Foundation; either version 2
7 of the License, or (at your option) any later version.
8
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
12
13 See the GNU General Public License for more details.
14
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software
17 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
18
19 */
20
21 #include "quakedef.h"
22
23 int current_skill;
24 cvar_t sv_cheats = {0, "sv_cheats", "0", "enables cheat commands in any game, and cheat impulses in dpmod"};
25 cvar_t sv_adminnick = {CVAR_SAVE, "sv_adminnick", "", "nick name to use for admin messages instead of host name"};
26 cvar_t rcon_password = {CVAR_PRIVATE, "rcon_password", "", "password to authenticate rcon commands"};
27 cvar_t rcon_address = {0, "rcon_address", "", "server address to send rcon commands to (when not connected to a server)"};
28 cvar_t team = {CVAR_USERINFO | CVAR_SAVE, "team", "none", "QW team (4 character limit, example: blue)"};
29 cvar_t skin = {CVAR_USERINFO | CVAR_SAVE, "skin", "", "QW player skin name (example: base)"};
30 cvar_t noaim = {CVAR_USERINFO | CVAR_SAVE, "noaim", "1", "QW option to disable vertical autoaim"};
31 qboolean allowcheats = false;
32
33 extern qboolean host_shuttingdown;
34
35 /*
36 ==================
37 Host_Quit_f
38 ==================
39 */
40
41 void Host_Quit_f (void)
42 {
43         if(host_shuttingdown)
44                 Con_Printf("shutting down already!\n");
45         else
46                 Sys_Quit (0);
47 }
48
49
50 /*
51 ==================
52 Host_Status_f
53 ==================
54 */
55 void Host_Status_f (void)
56 {
57         client_t *client;
58         int seconds, minutes, hours = 0, j, players;
59         void (*print) (const char *fmt, ...);
60
61         if (cmd_source == src_command)
62         {
63                 // if running a client, try to send over network so the client's status report parser will see the report
64                 if (cls.state == ca_connected)
65                 {
66                         Cmd_ForwardToServer ();
67                         return;
68                 }
69                 print = Con_Printf;
70         }
71         else
72                 print = SV_ClientPrintf;
73
74         if (!sv.active)
75                 return;
76
77         for (players = 0, j = 0;j < svs.maxclients;j++)
78                 if (svs.clients[j].active)
79                         players++;
80         print ("host:     %s\n", Cvar_VariableString ("hostname"));
81         print ("version:  %s build %s\n", gamename, buildstring);
82         print ("protocol: %i (%s)\n", Protocol_NumberForEnum(sv.protocol), Protocol_NameForEnum(sv.protocol));
83         print ("map:      %s\n", sv.name);
84         print ("players:  %i active (%i max)\n\n", players, svs.maxclients);
85         for (j = 0, client = svs.clients;j < svs.maxclients;j++, client++)
86         {
87                 if (!client->active)
88                         continue;
89                 seconds = (int)(realtime - client->connecttime);
90                 minutes = seconds / 60;
91                 if (minutes)
92                 {
93                         seconds -= (minutes * 60);
94                         hours = minutes / 60;
95                         if (hours)
96                                 minutes -= (hours * 60);
97                 }
98                 else
99                         hours = 0;
100                 print ("#%-3u %-16.16s^%i  %3i  %2i:%02i:%02i\n", j+1, client->name, STRING_COLOR_DEFAULT, client->frags, hours, minutes, seconds);
101                 print ("   %s\n", client->netconnection ? client->netconnection->address : "botclient");
102         }
103 }
104
105
106 /*
107 ==================
108 Host_God_f
109
110 Sets client to godmode
111 ==================
112 */
113 void Host_God_f (void)
114 {
115         if (!allowcheats)
116         {
117                 SV_ClientPrint("No cheats allowed, use sv_cheats 1 and restart level to enable.\n");
118                 return;
119         }
120
121         host_client->edict->fields.server->flags = (int)host_client->edict->fields.server->flags ^ FL_GODMODE;
122         if (!((int)host_client->edict->fields.server->flags & FL_GODMODE) )
123                 SV_ClientPrint("godmode OFF\n");
124         else
125                 SV_ClientPrint("godmode ON\n");
126 }
127
128 void Host_Notarget_f (void)
129 {
130         if (!allowcheats)
131         {
132                 SV_ClientPrint("No cheats allowed, use sv_cheats 1 and restart level to enable.\n");
133                 return;
134         }
135
136         host_client->edict->fields.server->flags = (int)host_client->edict->fields.server->flags ^ FL_NOTARGET;
137         if (!((int)host_client->edict->fields.server->flags & FL_NOTARGET) )
138                 SV_ClientPrint("notarget OFF\n");
139         else
140                 SV_ClientPrint("notarget ON\n");
141 }
142
143 qboolean noclip_anglehack;
144
145 void Host_Noclip_f (void)
146 {
147         if (!allowcheats)
148         {
149                 SV_ClientPrint("No cheats allowed, use sv_cheats 1 and restart level to enable.\n");
150                 return;
151         }
152
153         if (host_client->edict->fields.server->movetype != MOVETYPE_NOCLIP)
154         {
155                 noclip_anglehack = true;
156                 host_client->edict->fields.server->movetype = MOVETYPE_NOCLIP;
157                 SV_ClientPrint("noclip ON\n");
158         }
159         else
160         {
161                 noclip_anglehack = false;
162                 host_client->edict->fields.server->movetype = MOVETYPE_WALK;
163                 SV_ClientPrint("noclip OFF\n");
164         }
165 }
166
167 /*
168 ==================
169 Host_Fly_f
170
171 Sets client to flymode
172 ==================
173 */
174 void Host_Fly_f (void)
175 {
176         if (!allowcheats)
177         {
178                 SV_ClientPrint("No cheats allowed, use sv_cheats 1 and restart level to enable.\n");
179                 return;
180         }
181
182         if (host_client->edict->fields.server->movetype != MOVETYPE_FLY)
183         {
184                 host_client->edict->fields.server->movetype = MOVETYPE_FLY;
185                 SV_ClientPrint("flymode ON\n");
186         }
187         else
188         {
189                 host_client->edict->fields.server->movetype = MOVETYPE_WALK;
190                 SV_ClientPrint("flymode OFF\n");
191         }
192 }
193
194
195 /*
196 ==================
197 Host_Ping_f
198
199 ==================
200 */
201 void Host_Pings_f (void); // called by Host_Ping_f
202 void Host_Ping_f (void)
203 {
204         int i;
205         client_t *client;
206         void (*print) (const char *fmt, ...);
207
208         if (cmd_source == src_command)
209         {
210                 // if running a client, try to send over network so the client's ping report parser will see the report
211                 if (cls.state == ca_connected)
212                 {
213                         Cmd_ForwardToServer ();
214                         return;
215                 }
216                 print = Con_Printf;
217         }
218         else
219                 print = SV_ClientPrintf;
220
221         if (!sv.active)
222                 return;
223
224         print("Client ping times:\n");
225         for (i = 0, client = svs.clients;i < svs.maxclients;i++, client++)
226         {
227                 if (!client->active)
228                         continue;
229                 print("%4i %s\n", bound(0, (int)floor(client->ping*1000+0.5), 9999), client->name);
230         }
231
232         // now call the Pings command also, which will send a report that contains packet loss for the scoreboard (as well as a simpler ping report)
233         // 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         for (i = 0, j = 0;newName[i];i++)
758                 if (newName[i] != '\r' && newName[i] != '\n')
759                         newName[j++] = newName[i];
760         newName[j] = 0;
761
762         if (cmd_source == src_command)
763         {
764                 Cvar_Set ("_cl_name", newName);
765                 return;
766         }
767
768         if (realtime < host_client->nametime)
769         {
770                 SV_ClientPrintf("You can't change name more than once every 5 seconds!\n");
771                 return;
772         }
773
774         host_client->nametime = realtime + 5;
775
776         // point the string back at updateclient->name to keep it safe
777         strlcpy (host_client->name, newName, sizeof (host_client->name));
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         host_client->edict->fields.server->netname = PRVM_SetEngineString(host_client->name);
800         if (strcmp(host_client->old_name, host_client->name))
801         {
802                 if (host_client->spawned)
803                         SV_BroadcastPrintf("%s^%i changed name to %s\n", host_client->old_name, STRING_COLOR_DEFAULT, host_client->name);
804                 strlcpy(host_client->old_name, host_client->name, sizeof(host_client->old_name));
805                 // send notification to all clients
806                 MSG_WriteByte (&sv.reliable_datagram, svc_updatename);
807                 MSG_WriteByte (&sv.reliable_datagram, host_client - svs.clients);
808                 MSG_WriteString (&sv.reliable_datagram, host_client->name);
809         }
810 }
811
812 /*
813 ======================
814 Host_Playermodel_f
815 ======================
816 */
817 cvar_t cl_playermodel = {CVAR_SAVE | CVAR_NQUSERINFOHACK, "_cl_playermodel", "", "internal storage cvar for current player model in Nexuiz (changed by playermodel command)"};
818 // the old cl_playermodel in cl_main has been renamed to __cl_playermodel
819 void Host_Playermodel_f (void)
820 {
821         int i, j;
822         char newPath[sizeof(host_client->playermodel)];
823
824         if (Cmd_Argc () == 1)
825         {
826                 Con_Printf("\"playermodel\" is \"%s\"\n", cl_playermodel.string);
827                 return;
828         }
829
830         if (Cmd_Argc () == 2)
831                 strlcpy (newPath, Cmd_Argv(1), sizeof (newPath));
832         else
833                 strlcpy (newPath, Cmd_Args(), sizeof (newPath));
834
835         for (i = 0, j = 0;newPath[i];i++)
836                 if (newPath[i] != '\r' && newPath[i] != '\n')
837                         newPath[j++] = newPath[i];
838         newPath[j] = 0;
839
840         if (cmd_source == src_command)
841         {
842                 Cvar_Set ("_cl_playermodel", newPath);
843                 return;
844         }
845
846         /*
847         if (realtime < host_client->nametime)
848         {
849                 SV_ClientPrintf("You can't change playermodel more than once every 5 seconds!\n");
850                 return;
851         }
852
853         host_client->nametime = realtime + 5;
854         */
855
856         // point the string back at updateclient->name to keep it safe
857         strlcpy (host_client->playermodel, newPath, sizeof (host_client->playermodel));
858         if( prog->fieldoffsets.playermodel >= 0 )
859                 PRVM_EDICTFIELDVALUE(host_client->edict, prog->fieldoffsets.playermodel)->string = PRVM_SetEngineString(host_client->playermodel);
860         if (strcmp(host_client->old_model, host_client->playermodel))
861         {
862                 strlcpy(host_client->old_model, host_client->playermodel, sizeof(host_client->old_model));
863                 /*// send notification to all clients
864                 MSG_WriteByte (&sv.reliable_datagram, svc_updatepmodel);
865                 MSG_WriteByte (&sv.reliable_datagram, host_client - svs.clients);
866                 MSG_WriteString (&sv.reliable_datagram, host_client->playermodel);*/
867         }
868 }
869
870 /*
871 ======================
872 Host_Playerskin_f
873 ======================
874 */
875 cvar_t cl_playerskin = {CVAR_SAVE | CVAR_NQUSERINFOHACK, "_cl_playerskin", "", "internal storage cvar for current player skin in Nexuiz (changed by playerskin command)"};
876 void Host_Playerskin_f (void)
877 {
878         int i, j;
879         char newPath[sizeof(host_client->playerskin)];
880
881         if (Cmd_Argc () == 1)
882         {
883                 Con_Printf("\"playerskin\" is \"%s\"\n", cl_playerskin.string);
884                 return;
885         }
886
887         if (Cmd_Argc () == 2)
888                 strlcpy (newPath, Cmd_Argv(1), sizeof (newPath));
889         else
890                 strlcpy (newPath, Cmd_Args(), sizeof (newPath));
891
892         for (i = 0, j = 0;newPath[i];i++)
893                 if (newPath[i] != '\r' && newPath[i] != '\n')
894                         newPath[j++] = newPath[i];
895         newPath[j] = 0;
896
897         if (cmd_source == src_command)
898         {
899                 Cvar_Set ("_cl_playerskin", newPath);
900                 return;
901         }
902
903         /*
904         if (realtime < host_client->nametime)
905         {
906                 SV_ClientPrintf("You can't change playermodel more than once every 5 seconds!\n");
907                 return;
908         }
909
910         host_client->nametime = realtime + 5;
911         */
912
913         // point the string back at updateclient->name to keep it safe
914         strlcpy (host_client->playerskin, newPath, sizeof (host_client->playerskin));
915         if( prog->fieldoffsets.playerskin >= 0 )
916                 PRVM_EDICTFIELDVALUE(host_client->edict, prog->fieldoffsets.playerskin)->string = PRVM_SetEngineString(host_client->playerskin);
917         if (strcmp(host_client->old_skin, host_client->playerskin))
918         {
919                 //if (host_client->spawned)
920                 //      SV_BroadcastPrintf("%s changed skin to %s\n", host_client->name, host_client->playerskin);
921                 strlcpy(host_client->old_skin, host_client->playerskin, sizeof(host_client->old_skin));
922                 /*// send notification to all clients
923                 MSG_WriteByte (&sv.reliable_datagram, svc_updatepskin);
924                 MSG_WriteByte (&sv.reliable_datagram, host_client - svs.clients);
925                 MSG_WriteString (&sv.reliable_datagram, host_client->playerskin);*/
926         }
927 }
928
929 void Host_Version_f (void)
930 {
931         Con_Printf("Version: %s build %s\n", gamename, buildstring);
932 }
933
934 void Host_Say(qboolean teamonly)
935 {
936         client_t *save;
937         int j, quoted;
938         const char *p1;
939         char *p2;
940         // LordHavoc: long say messages
941         char text[1024];
942         qboolean fromServer = false;
943
944         if (cmd_source == src_command)
945         {
946                 if (cls.state == ca_dedicated)
947                 {
948                         fromServer = true;
949                         teamonly = false;
950                 }
951                 else
952                 {
953                         Cmd_ForwardToServer ();
954                         return;
955                 }
956         }
957
958         if (Cmd_Argc () < 2)
959                 return;
960
961         if (!teamplay.integer)
962                 teamonly = false;
963
964         p1 = Cmd_Args();
965         quoted = false;
966         if (*p1 == '\"')
967         {
968                 quoted = true;
969                 p1++;
970         }
971         // note this uses the chat prefix \001
972         if (!fromServer && !teamonly)
973                 dpsnprintf (text, sizeof(text), "\001%s" STRING_COLOR_DEFAULT_STR ": %s", host_client->name, p1);
974         else if (!fromServer && teamonly)
975                 dpsnprintf (text, sizeof(text), "\001(%s" STRING_COLOR_DEFAULT_STR "): %s", host_client->name, p1);
976         else if(*(sv_adminnick.string))
977                 dpsnprintf (text, sizeof(text), "\001<%s" STRING_COLOR_DEFAULT_STR "> %s", sv_adminnick.string, p1);
978         else
979                 dpsnprintf (text, sizeof(text), "\001<%s" STRING_COLOR_DEFAULT_STR "> %s", hostname.string, p1);
980         p2 = text + strlen(text);
981         while ((const char *)p2 > (const char *)text && (p2[-1] == '\r' || p2[-1] == '\n' || (p2[-1] == '\"' && quoted)))
982         {
983                 if (p2[-1] == '\"' && quoted)
984                         quoted = false;
985                 p2[-1] = 0;
986                 p2--;
987         }
988         strlcat(text, "\n", sizeof(text));
989
990         // note: save is not a valid edict if fromServer is true
991         save = host_client;
992         for (j = 0, host_client = svs.clients;j < svs.maxclients;j++, host_client++)
993                 if (host_client->active && (!teamonly || host_client->edict->fields.server->team == save->edict->fields.server->team))
994                         SV_ClientPrint(text);
995         host_client = save;
996
997         if (cls.state == ca_dedicated)
998                 Con_Print(&text[1]);
999 }
1000
1001
1002 void Host_Say_f(void)
1003 {
1004         Host_Say(false);
1005 }
1006
1007
1008 void Host_Say_Team_f(void)
1009 {
1010         Host_Say(true);
1011 }
1012
1013
1014 void Host_Tell_f(void)
1015 {
1016         const char *playername_start = NULL;
1017         size_t playername_length = 0;
1018         int playernumber = 0;
1019         client_t *save;
1020         int j;
1021         const char *p1, *p2;
1022         char text[MAX_INPUTLINE]; // LordHavoc: FIXME: temporary buffer overflow fix (was 64)
1023         qboolean fromServer = false;
1024
1025         if (cmd_source == src_command)
1026         {
1027                 if (cls.state == ca_dedicated)
1028                         fromServer = true;
1029                 else
1030                 {
1031                         Cmd_ForwardToServer ();
1032                         return;
1033                 }
1034         }
1035
1036         if (Cmd_Argc () < 2)
1037                 return;
1038
1039         // note this uses the chat prefix \001
1040         if (!fromServer)
1041                 sprintf (text, "\001%s tells you: ", host_client->name);
1042         else if(*(sv_adminnick.string))
1043                 sprintf (text, "\001<%s tells you> ", sv_adminnick.string);
1044         else
1045                 sprintf (text, "\001<%s tells you> ", hostname.string);
1046
1047         p1 = Cmd_Args();
1048         p2 = p1 + strlen(p1);
1049         // remove the target name
1050         while (p1 < p2 && *p1 == ' ')
1051                 p1++;
1052         if(*p1 == '#')
1053         {
1054                 ++p1;
1055                 while (p1 < p2 && *p1 == ' ')
1056                         p1++;
1057                 while (p1 < p2 && isdigit(*p1))
1058                 {
1059                         playernumber = playernumber * 10 + (*p1 - '0');
1060                         p1++;
1061                 }
1062                 --playernumber;
1063         }
1064         else if(*p1 == '"')
1065         {
1066                 ++p1;
1067                 playername_start = p1;
1068                 while (p1 < p2 && *p1 != '"')
1069                         p1++;
1070                 playername_length = p1 - playername_start;
1071                 if(p1 < p2)
1072                         p1++;
1073         }
1074         else
1075         {
1076                 playername_start = p1;
1077                 while (p1 < p2 && *p1 != ' ')
1078                         p1++;
1079                 playername_length = p1 - playername_start;
1080         }
1081         while (p1 < p2 && *p1 == ' ')
1082                 p1++;
1083         if(playername_start)
1084         {
1085                 // set playernumber to the right client
1086                 char namebuf[128];
1087                 if(playername_length >= sizeof(namebuf))
1088                 {
1089                         if (fromServer)
1090                                 Con_Print("Host_Tell: too long player name/ID\n");
1091                         else
1092                                 SV_ClientPrint("Host_Tell: too long player name/ID\n");
1093                         return;
1094                 }
1095                 memcpy(namebuf, playername_start, playername_length);
1096                 namebuf[playername_length] = 0;
1097                 for (playernumber = 0; playernumber < svs.maxclients; playernumber++)
1098                 {
1099                         if (!svs.clients[playernumber].active)
1100                                 continue;
1101                         if (strcasecmp(svs.clients[playernumber].name, namebuf) == 0)
1102                                 break;
1103                 }
1104         }
1105         if(playernumber < 0 || playernumber >= svs.maxclients || !(svs.clients[playernumber].active))
1106         {
1107                 if (fromServer)
1108                         Con_Print("Host_Tell: invalid player name/ID\n");
1109                 else
1110                         SV_ClientPrint("Host_Tell: invalid player name/ID\n");
1111                 return;
1112         }
1113         // remove trailing newlines
1114         while (p2 > p1 && (p2[-1] == '\n' || p2[-1] == '\r'))
1115                 p2--;
1116         // remove quotes if present
1117         if (*p1 == '"')
1118         {
1119                 p1++;
1120                 if (p2[-1] == '"')
1121                         p2--;
1122                 else if (fromServer)
1123                         Con_Print("Host_Tell: missing end quote\n");
1124                 else
1125                         SV_ClientPrint("Host_Tell: missing end quote\n");
1126         }
1127         while (p2 > p1 && (p2[-1] == '\n' || p2[-1] == '\r'))
1128                 p2--;
1129         if(p1 == p2)
1130                 return; // empty say
1131         for (j = (int)strlen(text);j < (int)(sizeof(text) - 2) && p1 < p2;)
1132                 text[j++] = *p1++;
1133         text[j++] = '\n';
1134         text[j++] = 0;
1135
1136         save = host_client;
1137         host_client = svs.clients + playernumber;
1138         SV_ClientPrint(text);
1139         host_client = save;
1140 }
1141
1142
1143 /*
1144 ==================
1145 Host_Color_f
1146 ==================
1147 */
1148 cvar_t cl_color = {CVAR_SAVE | CVAR_NQUSERINFOHACK, "_cl_color", "0", "internal storage cvar for current player colors (changed by color command)"};
1149 void Host_Color(int changetop, int changebottom)
1150 {
1151         int top, bottom, playercolor;
1152
1153         // get top and bottom either from the provided values or the current values
1154         // (allows changing only top or bottom, or both at once)
1155         top = changetop >= 0 ? changetop : (cl_color.integer >> 4);
1156         bottom = changebottom >= 0 ? changebottom : cl_color.integer;
1157
1158         top &= 15;
1159         bottom &= 15;
1160         // LordHavoc: allowing skin colormaps 14 and 15 by commenting this out
1161         //if (top > 13)
1162         //      top = 13;
1163         //if (bottom > 13)
1164         //      bottom = 13;
1165
1166         playercolor = top*16 + bottom;
1167
1168         if (cmd_source == src_command)
1169         {
1170                 Cvar_SetValueQuick(&cl_color, playercolor);
1171                 return;
1172         }
1173
1174         if (cls.protocol == PROTOCOL_QUAKEWORLD)
1175                 return;
1176
1177         if (host_client->edict && prog->funcoffsets.SV_ChangeTeam)
1178         {
1179                 Con_DPrint("Calling SV_ChangeTeam\n");
1180                 prog->globals.server->time = sv.time;
1181                 prog->globals.generic[OFS_PARM0] = playercolor;
1182                 prog->globals.server->self = PRVM_EDICT_TO_PROG(host_client->edict);
1183                 PRVM_ExecuteProgram(prog->funcoffsets.SV_ChangeTeam, "QC function SV_ChangeTeam is missing");
1184         }
1185         else
1186         {
1187                 prvm_eval_t *val;
1188                 if (host_client->edict)
1189                 {
1190                         if ((val = PRVM_EDICTFIELDVALUE(host_client->edict, prog->fieldoffsets.clientcolors)))
1191                                 val->_float = playercolor;
1192                         host_client->edict->fields.server->team = bottom + 1;
1193                 }
1194                 host_client->colors = playercolor;
1195                 if (host_client->old_colors != host_client->colors)
1196                 {
1197                         host_client->old_colors = host_client->colors;
1198                         // send notification to all clients
1199                         MSG_WriteByte (&sv.reliable_datagram, svc_updatecolors);
1200                         MSG_WriteByte (&sv.reliable_datagram, host_client - svs.clients);
1201                         MSG_WriteByte (&sv.reliable_datagram, host_client->colors);
1202                 }
1203         }
1204 }
1205
1206 void Host_Color_f(void)
1207 {
1208         int             top, bottom;
1209
1210         if (Cmd_Argc() == 1)
1211         {
1212                 Con_Printf("\"color\" is \"%i %i\"\n", cl_color.integer >> 4, cl_color.integer & 15);
1213                 Con_Print("color <0-15> [0-15]\n");
1214                 return;
1215         }
1216
1217         if (Cmd_Argc() == 2)
1218                 top = bottom = atoi(Cmd_Argv(1));
1219         else
1220         {
1221                 top = atoi(Cmd_Argv(1));
1222                 bottom = atoi(Cmd_Argv(2));
1223         }
1224         Host_Color(top, bottom);
1225 }
1226
1227 void Host_TopColor_f(void)
1228 {
1229         if (Cmd_Argc() == 1)
1230         {
1231                 Con_Printf("\"topcolor\" is \"%i\"\n", (cl_color.integer >> 4) & 15);
1232                 Con_Print("topcolor <0-15>\n");
1233                 return;
1234         }
1235
1236         Host_Color(atoi(Cmd_Argv(1)), -1);
1237 }
1238
1239 void Host_BottomColor_f(void)
1240 {
1241         if (Cmd_Argc() == 1)
1242         {
1243                 Con_Printf("\"bottomcolor\" is \"%i\"\n", cl_color.integer & 15);
1244                 Con_Print("bottomcolor <0-15>\n");
1245                 return;
1246         }
1247
1248         Host_Color(-1, atoi(Cmd_Argv(1)));
1249 }
1250
1251 cvar_t cl_rate = {CVAR_SAVE | CVAR_NQUSERINFOHACK, "_cl_rate", "20000", "internal storage cvar for current rate (changed by rate command)"};
1252 void Host_Rate_f(void)
1253 {
1254         int rate;
1255
1256         if (Cmd_Argc() != 2)
1257         {
1258                 Con_Printf("\"rate\" is \"%i\"\n", cl_rate.integer);
1259                 Con_Print("rate <bytespersecond>\n");
1260                 return;
1261         }
1262
1263         rate = atoi(Cmd_Argv(1));
1264
1265         if (cmd_source == src_command)
1266         {
1267                 Cvar_SetValue ("_cl_rate", max(NET_MINRATE, rate));
1268                 return;
1269         }
1270
1271         host_client->rate = rate;
1272 }
1273
1274 /*
1275 ==================
1276 Host_Kill_f
1277 ==================
1278 */
1279 void Host_Kill_f (void)
1280 {
1281         if (host_client->edict->fields.server->health <= 0)
1282         {
1283                 SV_ClientPrint("Can't suicide -- already dead!\n");
1284                 return;
1285         }
1286
1287         prog->globals.server->time = sv.time;
1288         prog->globals.server->self = PRVM_EDICT_TO_PROG(host_client->edict);
1289         PRVM_ExecuteProgram (prog->globals.server->ClientKill, "QC function ClientKill is missing");
1290 }
1291
1292
1293 /*
1294 ==================
1295 Host_Pause_f
1296 ==================
1297 */
1298 void Host_Pause_f (void)
1299 {
1300         if (!pausable.integer)
1301                 SV_ClientPrint("Pause not allowed.\n");
1302         else
1303         {
1304                 sv.paused ^= 1;
1305                 SV_BroadcastPrintf("%s %spaused the game\n", host_client->name, sv.paused ? "" : "un");
1306                 // send notification to all clients
1307                 MSG_WriteByte(&sv.reliable_datagram, svc_setpause);
1308                 MSG_WriteByte(&sv.reliable_datagram, sv.paused);
1309         }
1310 }
1311
1312 /*
1313 ======================
1314 Host_PModel_f
1315 LordHavoc: only supported for Nehahra, I personally think this is dumb, but Mindcrime won't listen.
1316 LordHavoc: correction, Mindcrime will be removing pmodel in the future, but it's still stuck here for compatibility.
1317 ======================
1318 */
1319 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)"};
1320 static void Host_PModel_f (void)
1321 {
1322         int i;
1323         prvm_eval_t *val;
1324
1325         if (Cmd_Argc () == 1)
1326         {
1327                 Con_Printf("\"pmodel\" is \"%s\"\n", cl_pmodel.string);
1328                 return;
1329         }
1330         i = atoi(Cmd_Argv(1));
1331
1332         if (cmd_source == src_command)
1333         {
1334                 if (cl_pmodel.integer == i)
1335                         return;
1336                 Cvar_SetValue ("_cl_pmodel", i);
1337                 if (cls.state == ca_connected)
1338                         Cmd_ForwardToServer ();
1339                 return;
1340         }
1341
1342         if (host_client->edict && (val = PRVM_EDICTFIELDVALUE(host_client->edict, prog->fieldoffsets.pmodel)))
1343                 val->_float = i;
1344 }
1345
1346 //===========================================================================
1347
1348
1349 /*
1350 ==================
1351 Host_PreSpawn_f
1352 ==================
1353 */
1354 void Host_PreSpawn_f (void)
1355 {
1356         if (host_client->spawned)
1357         {
1358                 Con_Print("prespawn not valid -- already spawned\n");
1359                 return;
1360         }
1361
1362         if (host_client->netconnection)
1363         {
1364                 SZ_Write (&host_client->netconnection->message, sv.signon.data, sv.signon.cursize);
1365                 MSG_WriteByte (&host_client->netconnection->message, svc_signonnum);
1366                 MSG_WriteByte (&host_client->netconnection->message, 2);
1367                 host_client->sendsignon = true;         // send this message, this will be cleared later
1368         }
1369
1370         // reset the name change timer because the client will send name soon
1371         host_client->nametime = 0;
1372 }
1373
1374 /*
1375 ==================
1376 Host_Spawn_f
1377 ==================
1378 */
1379 void Host_Spawn_f (void)
1380 {
1381         int i;
1382         client_t *client;
1383         int stats[MAX_CL_STATS];
1384
1385         if (host_client->spawned)
1386         {
1387                 Con_Print("Spawn not valid -- already spawned\n");
1388                 return;
1389         }
1390
1391         // reset name change timer again because they might want to change name
1392         // again in the first 5 seconds after connecting
1393         host_client->nametime = 0;
1394
1395         // LordHavoc: moved this above the QC calls at FrikaC's request
1396         // LordHavoc: commented this out
1397         //if (host_client->netconnection)
1398         //      SZ_Clear (&host_client->netconnection->message);
1399
1400         // run the entrance script
1401         if (sv.loadgame)
1402         {
1403                 // loaded games are fully initialized already
1404                 // if this is the last client to be connected, unpause
1405                 sv.paused = false;
1406
1407                 if (prog->funcoffsets.RestoreGame)
1408                 {
1409                         Con_DPrint("Calling RestoreGame\n");
1410                         prog->globals.server->time = sv.time;
1411                         prog->globals.server->self = PRVM_EDICT_TO_PROG(host_client->edict);
1412                         PRVM_ExecuteProgram(prog->funcoffsets.RestoreGame, "QC function RestoreGame is missing");
1413                 }
1414         }
1415         else
1416         {
1417                 //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);
1418
1419                 // copy spawn parms out of the client_t
1420                 for (i=0 ; i< NUM_SPAWN_PARMS ; i++)
1421                         (&prog->globals.server->parm1)[i] = host_client->spawn_parms[i];
1422
1423                 // call the spawn function
1424                 host_client->clientconnectcalled = true;
1425                 prog->globals.server->time = sv.time;
1426                 prog->globals.server->self = PRVM_EDICT_TO_PROG(host_client->edict);
1427                 PRVM_ExecuteProgram (prog->globals.server->ClientConnect, "QC function ClientConnect is missing");
1428
1429                 if (svs.maxclients > 1 || cls.state == ca_dedicated)
1430                         Con_Printf("%s^%i entered the game\n", host_client->name, STRING_COLOR_DEFAULT);
1431
1432                 PRVM_ExecuteProgram (prog->globals.server->PutClientInServer, "QC function PutClientInServer is missing");
1433         }
1434
1435         if (!host_client->netconnection)
1436                 return;
1437
1438         // send time of update
1439         MSG_WriteByte (&host_client->netconnection->message, svc_time);
1440         MSG_WriteFloat (&host_client->netconnection->message, sv.time);
1441
1442         // send all current names, colors, and frag counts
1443         for (i = 0, client = svs.clients;i < svs.maxclients;i++, client++)
1444         {
1445                 if (!client->active)
1446                         continue;
1447                 MSG_WriteByte (&host_client->netconnection->message, svc_updatename);
1448                 MSG_WriteByte (&host_client->netconnection->message, i);
1449                 MSG_WriteString (&host_client->netconnection->message, client->name);
1450                 MSG_WriteByte (&host_client->netconnection->message, svc_updatefrags);
1451                 MSG_WriteByte (&host_client->netconnection->message, i);
1452                 MSG_WriteShort (&host_client->netconnection->message, client->frags);
1453                 MSG_WriteByte (&host_client->netconnection->message, svc_updatecolors);
1454                 MSG_WriteByte (&host_client->netconnection->message, i);
1455                 MSG_WriteByte (&host_client->netconnection->message, client->colors);
1456         }
1457
1458         // send all current light styles
1459         for (i=0 ; i<MAX_LIGHTSTYLES ; i++)
1460         {
1461                 if (sv.lightstyles[i][0])
1462                 {
1463                         MSG_WriteByte (&host_client->netconnection->message, svc_lightstyle);
1464                         MSG_WriteByte (&host_client->netconnection->message, (char)i);
1465                         MSG_WriteString (&host_client->netconnection->message, sv.lightstyles[i]);
1466                 }
1467         }
1468
1469         // send some stats
1470         MSG_WriteByte (&host_client->netconnection->message, svc_updatestat);
1471         MSG_WriteByte (&host_client->netconnection->message, STAT_TOTALSECRETS);
1472         MSG_WriteLong (&host_client->netconnection->message, (int)prog->globals.server->total_secrets);
1473
1474         MSG_WriteByte (&host_client->netconnection->message, svc_updatestat);
1475         MSG_WriteByte (&host_client->netconnection->message, STAT_TOTALMONSTERS);
1476         MSG_WriteLong (&host_client->netconnection->message, (int)prog->globals.server->total_monsters);
1477
1478         MSG_WriteByte (&host_client->netconnection->message, svc_updatestat);
1479         MSG_WriteByte (&host_client->netconnection->message, STAT_SECRETS);
1480         MSG_WriteLong (&host_client->netconnection->message, (int)prog->globals.server->found_secrets);
1481
1482         MSG_WriteByte (&host_client->netconnection->message, svc_updatestat);
1483         MSG_WriteByte (&host_client->netconnection->message, STAT_MONSTERS);
1484         MSG_WriteLong (&host_client->netconnection->message, (int)prog->globals.server->killed_monsters);
1485
1486         // send a fixangle
1487         // Never send a roll angle, because savegames can catch the server
1488         // in a state where it is expecting the client to correct the angle
1489         // and it won't happen if the game was just loaded, so you wind up
1490         // with a permanent head tilt
1491         if (sv.loadgame)
1492         {
1493                 MSG_WriteByte (&host_client->netconnection->message, svc_setangle);
1494                 MSG_WriteAngle (&host_client->netconnection->message, host_client->edict->fields.server->v_angle[0], sv.protocol);
1495                 MSG_WriteAngle (&host_client->netconnection->message, host_client->edict->fields.server->v_angle[1], sv.protocol);
1496                 MSG_WriteAngle (&host_client->netconnection->message, 0, sv.protocol);
1497                 sv.loadgame = false; // we're basically done with loading now
1498         }
1499         else
1500         {
1501                 MSG_WriteByte (&host_client->netconnection->message, svc_setangle);
1502                 MSG_WriteAngle (&host_client->netconnection->message, host_client->edict->fields.server->angles[0], sv.protocol);
1503                 MSG_WriteAngle (&host_client->netconnection->message, host_client->edict->fields.server->angles[1], sv.protocol);
1504                 MSG_WriteAngle (&host_client->netconnection->message, 0, sv.protocol);
1505         }
1506
1507         SV_WriteClientdataToMessage (host_client, host_client->edict, &host_client->netconnection->message, stats);
1508
1509         MSG_WriteByte (&host_client->netconnection->message, svc_signonnum);
1510         MSG_WriteByte (&host_client->netconnection->message, 3);
1511         host_client->sendsignon = true;         // send this message, this will be cleared later
1512 }
1513
1514 /*
1515 ==================
1516 Host_Begin_f
1517 ==================
1518 */
1519 void Host_Begin_f (void)
1520 {
1521         host_client->spawned = true;
1522 }
1523
1524 //===========================================================================
1525
1526
1527 /*
1528 ==================
1529 Host_Kick_f
1530
1531 Kicks a user off of the server
1532 ==================
1533 */
1534 void Host_Kick_f (void)
1535 {
1536         char *who;
1537         const char *message = NULL;
1538         client_t *save;
1539         int i;
1540         qboolean byNumber = false;
1541
1542         if (!sv.active)
1543                 return;
1544
1545         SV_VM_Begin();
1546         save = host_client;
1547
1548         if (Cmd_Argc() > 2 && strcmp(Cmd_Argv(1), "#") == 0)
1549         {
1550                 i = (int)(atof(Cmd_Argv(2)) - 1);
1551                 if (i < 0 || i >= svs.maxclients || !(host_client = svs.clients + i)->active)
1552                         return;
1553                 byNumber = true;
1554         }
1555         else
1556         {
1557                 for (i = 0, host_client = svs.clients;i < svs.maxclients;i++, host_client++)
1558                 {
1559                         if (!host_client->active)
1560                                 continue;
1561                         if (strcasecmp(host_client->name, Cmd_Argv(1)) == 0)
1562                                 break;
1563                 }
1564         }
1565
1566         if (i < svs.maxclients)
1567         {
1568                 if (cmd_source == src_command)
1569                 {
1570                         if (cls.state == ca_dedicated)
1571                                 who = "Console";
1572                         else
1573                                 who = cl_name.string;
1574                 }
1575                 else
1576                         who = save->name;
1577
1578                 // can't kick yourself!
1579                 if (host_client == save)
1580                         return;
1581
1582                 if (Cmd_Argc() > 2)
1583                 {
1584                         message = Cmd_Args();
1585                         COM_ParseToken_Simple(&message, false);
1586                         if (byNumber)
1587                         {
1588                                 message++;                                                      // skip the #
1589                                 while (*message == ' ')                         // skip white space
1590                                         message++;
1591                                 message += strlen(Cmd_Argv(2)); // skip the number
1592                         }
1593                         while (*message && *message == ' ')
1594                                 message++;
1595                 }
1596                 if (message)
1597                         SV_ClientPrintf("Kicked by %s: %s\n", who, message);
1598                 else
1599                         SV_ClientPrintf("Kicked by %s\n", who);
1600                 SV_DropClient (false); // kicked
1601         }
1602
1603         host_client = save;
1604         SV_VM_End();
1605 }
1606
1607 /*
1608 ===============================================================================
1609
1610 DEBUGGING TOOLS
1611
1612 ===============================================================================
1613 */
1614
1615 /*
1616 ==================
1617 Host_Give_f
1618 ==================
1619 */
1620 void Host_Give_f (void)
1621 {
1622         const char *t;
1623         int v;
1624         prvm_eval_t *val;
1625
1626         if (!allowcheats)
1627         {
1628                 SV_ClientPrint("No cheats allowed, use sv_cheats 1 and restart level to enable.\n");
1629                 return;
1630         }
1631
1632         t = Cmd_Argv(1);
1633         v = atoi (Cmd_Argv(2));
1634
1635         switch (t[0])
1636         {
1637         case '0':
1638         case '1':
1639         case '2':
1640         case '3':
1641         case '4':
1642         case '5':
1643         case '6':
1644         case '7':
1645         case '8':
1646         case '9':
1647                 // MED 01/04/97 added hipnotic give stuff
1648                 if (gamemode == GAME_HIPNOTIC)
1649                 {
1650                         if (t[0] == '6')
1651                         {
1652                                 if (t[1] == 'a')
1653                                         host_client->edict->fields.server->items = (int)host_client->edict->fields.server->items | HIT_PROXIMITY_GUN;
1654                                 else
1655                                         host_client->edict->fields.server->items = (int)host_client->edict->fields.server->items | IT_GRENADE_LAUNCHER;
1656                         }
1657                         else if (t[0] == '9')
1658                                 host_client->edict->fields.server->items = (int)host_client->edict->fields.server->items | HIT_LASER_CANNON;
1659                         else if (t[0] == '0')
1660                                 host_client->edict->fields.server->items = (int)host_client->edict->fields.server->items | HIT_MJOLNIR;
1661                         else if (t[0] >= '2')
1662                                 host_client->edict->fields.server->items = (int)host_client->edict->fields.server->items | (IT_SHOTGUN << (t[0] - '2'));
1663                 }
1664                 else
1665                 {
1666                         if (t[0] >= '2')
1667                                 host_client->edict->fields.server->items = (int)host_client->edict->fields.server->items | (IT_SHOTGUN << (t[0] - '2'));
1668                 }
1669                 break;
1670
1671         case 's':
1672                 if (gamemode == GAME_ROGUE && (val = PRVM_EDICTFIELDVALUE(host_client->edict, prog->fieldoffsets.ammo_shells1)))
1673                         val->_float = v;
1674
1675                 host_client->edict->fields.server->ammo_shells = v;
1676                 break;
1677         case 'n':
1678                 if (gamemode == GAME_ROGUE)
1679                 {
1680                         if ((val = PRVM_EDICTFIELDVALUE(host_client->edict, prog->fieldoffsets.ammo_nails1)))
1681                         {
1682                                 val->_float = v;
1683                                 if (host_client->edict->fields.server->weapon <= IT_LIGHTNING)
1684                                         host_client->edict->fields.server->ammo_nails = v;
1685                         }
1686                 }
1687                 else
1688                 {
1689                         host_client->edict->fields.server->ammo_nails = v;
1690                 }
1691                 break;
1692         case 'l':
1693                 if (gamemode == GAME_ROGUE)
1694                 {
1695                         val = PRVM_EDICTFIELDVALUE(host_client->edict, prog->fieldoffsets.ammo_lava_nails);
1696                         if (val)
1697                         {
1698                                 val->_float = v;
1699                                 if (host_client->edict->fields.server->weapon > IT_LIGHTNING)
1700                                         host_client->edict->fields.server->ammo_nails = v;
1701                         }
1702                 }
1703                 break;
1704         case 'r':
1705                 if (gamemode == GAME_ROGUE)
1706                 {
1707                         val = PRVM_EDICTFIELDVALUE(host_client->edict, prog->fieldoffsets.ammo_rockets1);
1708                         if (val)
1709                         {
1710                                 val->_float = v;
1711                                 if (host_client->edict->fields.server->weapon <= IT_LIGHTNING)
1712                                         host_client->edict->fields.server->ammo_rockets = v;
1713                         }
1714                 }
1715                 else
1716                 {
1717                         host_client->edict->fields.server->ammo_rockets = v;
1718                 }
1719                 break;
1720         case 'm':
1721                 if (gamemode == GAME_ROGUE)
1722                 {
1723                         val = PRVM_EDICTFIELDVALUE(host_client->edict, prog->fieldoffsets.ammo_multi_rockets);
1724                         if (val)
1725                         {
1726                                 val->_float = v;
1727                                 if (host_client->edict->fields.server->weapon > IT_LIGHTNING)
1728                                         host_client->edict->fields.server->ammo_rockets = v;
1729                         }
1730                 }
1731                 break;
1732         case 'h':
1733                 host_client->edict->fields.server->health = v;
1734                 break;
1735         case 'c':
1736                 if (gamemode == GAME_ROGUE)
1737                 {
1738                         val = PRVM_EDICTFIELDVALUE(host_client->edict, prog->fieldoffsets.ammo_cells1);
1739                         if (val)
1740                         {
1741                                 val->_float = v;
1742                                 if (host_client->edict->fields.server->weapon <= IT_LIGHTNING)
1743                                         host_client->edict->fields.server->ammo_cells = v;
1744                         }
1745                 }
1746                 else
1747                 {
1748                         host_client->edict->fields.server->ammo_cells = v;
1749                 }
1750                 break;
1751         case 'p':
1752                 if (gamemode == GAME_ROGUE)
1753                 {
1754                         val = PRVM_EDICTFIELDVALUE(host_client->edict, prog->fieldoffsets.ammo_plasma);
1755                         if (val)
1756                         {
1757                                 val->_float = v;
1758                                 if (host_client->edict->fields.server->weapon > IT_LIGHTNING)
1759                                         host_client->edict->fields.server->ammo_cells = v;
1760                         }
1761                 }
1762                 break;
1763         }
1764 }
1765
1766 prvm_edict_t    *FindViewthing (void)
1767 {
1768         int             i;
1769         prvm_edict_t    *e;
1770
1771         for (i=0 ; i<prog->num_edicts ; i++)
1772         {
1773                 e = PRVM_EDICT_NUM(i);
1774                 if (!strcmp (PRVM_GetString(e->fields.server->classname), "viewthing"))
1775                         return e;
1776         }
1777         Con_Print("No viewthing on map\n");
1778         return NULL;
1779 }
1780
1781 /*
1782 ==================
1783 Host_Viewmodel_f
1784 ==================
1785 */
1786 void Host_Viewmodel_f (void)
1787 {
1788         prvm_edict_t    *e;
1789         model_t *m;
1790
1791         if (!sv.active)
1792                 return;
1793
1794         SV_VM_Begin();
1795         e = FindViewthing ();
1796         SV_VM_End();
1797         if (!e)
1798                 return;
1799
1800         m = Mod_ForName (Cmd_Argv(1), false, true, false);
1801         if (!m || !m->loaded || !m->Draw)
1802         {
1803                 Con_Printf("viewmodel: can't load %s\n", Cmd_Argv(1));
1804                 return;
1805         }
1806
1807         e->fields.server->frame = 0;
1808         cl.model_precache[(int)e->fields.server->modelindex] = m;
1809 }
1810
1811 /*
1812 ==================
1813 Host_Viewframe_f
1814 ==================
1815 */
1816 void Host_Viewframe_f (void)
1817 {
1818         prvm_edict_t    *e;
1819         int             f;
1820         model_t *m;
1821
1822         if (!sv.active)
1823                 return;
1824
1825         SV_VM_Begin();
1826         e = FindViewthing ();
1827         SV_VM_End();
1828         if (!e)
1829                 return;
1830         m = cl.model_precache[(int)e->fields.server->modelindex];
1831
1832         f = atoi(Cmd_Argv(1));
1833         if (f >= m->numframes)
1834                 f = m->numframes-1;
1835
1836         e->fields.server->frame = f;
1837 }
1838
1839
1840 void PrintFrameName (model_t *m, int frame)
1841 {
1842         if (m->animscenes)
1843                 Con_Printf("frame %i: %s\n", frame, m->animscenes[frame].name);
1844         else
1845                 Con_Printf("frame %i\n", frame);
1846 }
1847
1848 /*
1849 ==================
1850 Host_Viewnext_f
1851 ==================
1852 */
1853 void Host_Viewnext_f (void)
1854 {
1855         prvm_edict_t    *e;
1856         model_t *m;
1857
1858         if (!sv.active)
1859                 return;
1860
1861         SV_VM_Begin();
1862         e = FindViewthing ();
1863         SV_VM_End();
1864         if (!e)
1865                 return;
1866         m = cl.model_precache[(int)e->fields.server->modelindex];
1867
1868         e->fields.server->frame = e->fields.server->frame + 1;
1869         if (e->fields.server->frame >= m->numframes)
1870                 e->fields.server->frame = m->numframes - 1;
1871
1872         PrintFrameName (m, (int)e->fields.server->frame);
1873 }
1874
1875 /*
1876 ==================
1877 Host_Viewprev_f
1878 ==================
1879 */
1880 void Host_Viewprev_f (void)
1881 {
1882         prvm_edict_t    *e;
1883         model_t *m;
1884
1885         if (!sv.active)
1886                 return;
1887
1888         SV_VM_Begin();
1889         e = FindViewthing ();
1890         SV_VM_End();
1891         if (!e)
1892                 return;
1893
1894         m = cl.model_precache[(int)e->fields.server->modelindex];
1895
1896         e->fields.server->frame = e->fields.server->frame - 1;
1897         if (e->fields.server->frame < 0)
1898                 e->fields.server->frame = 0;
1899
1900         PrintFrameName (m, (int)e->fields.server->frame);
1901 }
1902
1903 /*
1904 ===============================================================================
1905
1906 DEMO LOOP CONTROL
1907
1908 ===============================================================================
1909 */
1910
1911
1912 /*
1913 ==================
1914 Host_Startdemos_f
1915 ==================
1916 */
1917 void Host_Startdemos_f (void)
1918 {
1919         int             i, c;
1920
1921         if (cls.state == ca_dedicated || COM_CheckParm("-listen") || COM_CheckParm("-benchmark") || COM_CheckParm("-demo") || COM_CheckParm("-capturedemo"))
1922                 return;
1923
1924         c = Cmd_Argc() - 1;
1925         if (c > MAX_DEMOS)
1926         {
1927                 Con_Printf("Max %i demos in demoloop\n", MAX_DEMOS);
1928                 c = MAX_DEMOS;
1929         }
1930         Con_Printf("%i demo(s) in loop\n", c);
1931
1932         for (i=1 ; i<c+1 ; i++)
1933                 strlcpy (cls.demos[i-1], Cmd_Argv(i), sizeof (cls.demos[i-1]));
1934
1935         // LordHavoc: clear the remaining slots
1936         for (;i <= MAX_DEMOS;i++)
1937                 cls.demos[i-1][0] = 0;
1938
1939         if (!sv.active && cls.demonum != -1 && !cls.demoplayback)
1940         {
1941                 cls.demonum = 0;
1942                 CL_NextDemo ();
1943         }
1944         else
1945                 cls.demonum = -1;
1946 }
1947
1948
1949 /*
1950 ==================
1951 Host_Demos_f
1952
1953 Return to looping demos
1954 ==================
1955 */
1956 void Host_Demos_f (void)
1957 {
1958         if (cls.state == ca_dedicated)
1959                 return;
1960         if (cls.demonum == -1)
1961                 cls.demonum = 1;
1962         CL_Disconnect_f ();
1963         CL_NextDemo ();
1964 }
1965
1966 /*
1967 ==================
1968 Host_Stopdemo_f
1969
1970 Return to looping demos
1971 ==================
1972 */
1973 void Host_Stopdemo_f (void)
1974 {
1975         if (!cls.demoplayback)
1976                 return;
1977         CL_Disconnect ();
1978         Host_ShutdownServer ();
1979 }
1980
1981 void Host_SendCvar_f (void)
1982 {
1983         int             i;
1984         cvar_t  *c;
1985         const char *cvarname;
1986         client_t *old;
1987
1988         if(Cmd_Argc() != 2)
1989                 return;
1990         cvarname = Cmd_Argv(1);
1991         if (cls.state == ca_connected)
1992         {
1993                 c = Cvar_FindVar(cvarname);
1994                 // LordHavoc: if there is no such cvar or if it is private, send a
1995                 // reply indicating that it has no value
1996                 if(!c || (c->flags & CVAR_PRIVATE))
1997                         Cmd_ForwardStringToServer(va("sentcvar %s", cvarname));
1998                 else
1999                         Cmd_ForwardStringToServer(va("sentcvar %s \"%s\"", c->name, c->string));
2000                 return;
2001         }
2002         if(!sv.active)// || !prog->funcoffsets.SV_ParseClientCommand)
2003                 return;
2004
2005         old = host_client;
2006         if (cls.state != ca_dedicated)
2007                 i = 1;
2008         else
2009                 i = 0;
2010         for(;i<svs.maxclients;i++)
2011                 if(svs.clients[i].active && svs.clients[i].netconnection)
2012                 {
2013                         host_client = &svs.clients[i];
2014                         Host_ClientCommands(va("sendcvar %s\n", cvarname));
2015                 }
2016         host_client = old;
2017 }
2018
2019 static void MaxPlayers_f(void)
2020 {
2021         int n;
2022
2023         if (Cmd_Argc() != 2)
2024         {
2025                 Con_Printf("\"maxplayers\" is \"%u\"\n", svs.maxclients);
2026                 return;
2027         }
2028
2029         if (sv.active)
2030         {
2031                 Con_Print("maxplayers can not be changed while a server is running.\n");
2032                 return;
2033         }
2034
2035         n = atoi(Cmd_Argv(1));
2036         n = bound(1, n, MAX_SCOREBOARD);
2037         Con_Printf("\"maxplayers\" set to \"%u\"\n", n);
2038
2039         if (svs.clients)
2040                 Mem_Free(svs.clients);
2041         svs.maxclients = n;
2042         svs.clients = (client_t *)Mem_Alloc(sv_mempool, sizeof(client_t) * svs.maxclients);
2043         if (n == 1)
2044                 Cvar_Set ("deathmatch", "0");
2045         else
2046                 Cvar_Set ("deathmatch", "1");
2047 }
2048
2049 //=============================================================================
2050
2051 // QuakeWorld commands
2052
2053 /*
2054 =====================
2055 Host_Rcon_f
2056
2057   Send the rest of the command line over as
2058   an unconnected command.
2059 =====================
2060 */
2061 void Host_Rcon_f (void) // credit: taken from QuakeWorld
2062 {
2063         int i;
2064         lhnetaddress_t to;
2065         lhnetsocket_t *mysocket;
2066
2067         if (!rcon_password.string || !rcon_password.string[0])
2068         {
2069                 Con_Printf ("You must set rcon_password before issuing an rcon command.\n");
2070                 return;
2071         }
2072
2073         for (i = 0;rcon_password.string[i];i++)
2074         {
2075                 if (rcon_password.string[i] <= ' ')
2076                 {
2077                         Con_Printf("rcon_password is not allowed to have any whitespace.\n");
2078                         return;
2079                 }
2080         }
2081
2082         if (cls.netcon)
2083                 to = cls.netcon->peeraddress;
2084         else
2085         {
2086                 if (!rcon_address.string[0])
2087                 {
2088                         Con_Printf ("You must either be connected, or set the rcon_address cvar to issue rcon commands\n");
2089                         return;
2090                 }
2091                 LHNETADDRESS_FromString(&to, rcon_address.string, sv_netport.integer);
2092         }
2093         mysocket = NetConn_ChooseClientSocketForAddress(&to);
2094         if (mysocket)
2095         {
2096                 // simply put together the rcon packet and send it
2097                 NetConn_WriteString(mysocket, va("\377\377\377\377rcon %s %s", rcon_password.string, Cmd_Args()), &to);
2098         }
2099 }
2100
2101 /*
2102 ====================
2103 Host_User_f
2104
2105 user <name or userid>
2106
2107 Dump userdata / masterdata for a user
2108 ====================
2109 */
2110 void Host_User_f (void) // credit: taken from QuakeWorld
2111 {
2112         int             uid;
2113         int             i;
2114
2115         if (Cmd_Argc() != 2)
2116         {
2117                 Con_Printf ("Usage: user <username / userid>\n");
2118                 return;
2119         }
2120
2121         uid = atoi(Cmd_Argv(1));
2122
2123         for (i = 0;i < cl.maxclients;i++)
2124         {
2125                 if (!cl.scores[i].name[0])
2126                         continue;
2127                 if (cl.scores[i].qw_userid == uid || !strcasecmp(cl.scores[i].name, Cmd_Argv(1)))
2128                 {
2129                         InfoString_Print(cl.scores[i].qw_userinfo);
2130                         return;
2131                 }
2132         }
2133         Con_Printf ("User not in server.\n");
2134 }
2135
2136 /*
2137 ====================
2138 Host_Users_f
2139
2140 Dump userids for all current players
2141 ====================
2142 */
2143 void Host_Users_f (void) // credit: taken from QuakeWorld
2144 {
2145         int             i;
2146         int             c;
2147
2148         c = 0;
2149         Con_Printf ("userid frags name\n");
2150         Con_Printf ("------ ----- ----\n");
2151         for (i = 0;i < cl.maxclients;i++)
2152         {
2153                 if (cl.scores[i].name[0])
2154                 {
2155                         Con_Printf ("%6i %4i %s\n", cl.scores[i].qw_userid, cl.scores[i].frags, cl.scores[i].name);
2156                         c++;
2157                 }
2158         }
2159
2160         Con_Printf ("%i total users\n", c);
2161 }
2162
2163 /*
2164 ==================
2165 Host_FullServerinfo_f
2166
2167 Sent by server when serverinfo changes
2168 ==================
2169 */
2170 // TODO: shouldn't this be a cvar instead?
2171 void Host_FullServerinfo_f (void) // credit: taken from QuakeWorld
2172 {
2173         char temp[512];
2174         if (Cmd_Argc() != 2)
2175         {
2176                 Con_Printf ("usage: fullserverinfo <complete info string>\n");
2177                 return;
2178         }
2179
2180         strlcpy (cl.qw_serverinfo, Cmd_Argv(1), sizeof(cl.qw_serverinfo));
2181         InfoString_GetValue(cl.qw_serverinfo, "teamplay", temp, sizeof(temp));
2182         cl.qw_teamplay = atoi(temp);
2183 }
2184
2185 /*
2186 ==================
2187 Host_FullInfo_f
2188
2189 Allow clients to change userinfo
2190 ==================
2191 Casey was here :)
2192 */
2193 void Host_FullInfo_f (void) // credit: taken from QuakeWorld
2194 {
2195         char key[512];
2196         char value[512];
2197         char *o;
2198         const char *s;
2199
2200         if (Cmd_Argc() != 2)
2201         {
2202                 Con_Printf ("fullinfo <complete info string>\n");
2203                 return;
2204         }
2205
2206         s = Cmd_Argv(1);
2207         if (*s == '\\')
2208                 s++;
2209         while (*s)
2210         {
2211                 o = key;
2212                 while (*s && *s != '\\')
2213                         *o++ = *s++;
2214                 *o = 0;
2215
2216                 if (!*s)
2217                 {
2218                         Con_Printf ("MISSING VALUE\n");
2219                         return;
2220                 }
2221
2222                 o = value;
2223                 s++;
2224                 while (*s && *s != '\\')
2225                         *o++ = *s++;
2226                 *o = 0;
2227
2228                 if (*s)
2229                         s++;
2230
2231                 CL_SetInfo(key, value, false, false, false, false);
2232         }
2233 }
2234
2235 /*
2236 ==================
2237 CL_SetInfo_f
2238
2239 Allow clients to change userinfo
2240 ==================
2241 */
2242 void Host_SetInfo_f (void) // credit: taken from QuakeWorld
2243 {
2244         if (Cmd_Argc() == 1)
2245         {
2246                 InfoString_Print(cls.userinfo);
2247                 return;
2248         }
2249         if (Cmd_Argc() != 3)
2250         {
2251                 Con_Printf ("usage: setinfo [ <key> <value> ]\n");
2252                 return;
2253         }
2254         CL_SetInfo(Cmd_Argv(1), Cmd_Argv(2), true, false, false, false);
2255 }
2256
2257 /*
2258 ====================
2259 Host_Packet_f
2260
2261 packet <destination> <contents>
2262
2263 Contents allows \n escape character
2264 ====================
2265 */
2266 void Host_Packet_f (void) // credit: taken from QuakeWorld
2267 {
2268         char send[2048];
2269         int i, l;
2270         const char *in;
2271         char *out;
2272         lhnetaddress_t address;
2273         lhnetsocket_t *mysocket;
2274
2275         if (Cmd_Argc() != 3)
2276         {
2277                 Con_Printf ("packet <destination> <contents>\n");
2278                 return;
2279         }
2280
2281         if (!LHNETADDRESS_FromString (&address, Cmd_Argv(1), sv_netport.integer))
2282         {
2283                 Con_Printf ("Bad address\n");
2284                 return;
2285         }
2286
2287         in = Cmd_Argv(2);
2288         out = send+4;
2289         send[0] = send[1] = send[2] = send[3] = 0xff;
2290
2291         l = (int)strlen (in);
2292         for (i=0 ; i<l ; i++)
2293         {
2294                 if (out >= send + sizeof(send) - 1)
2295                         break;
2296                 if (in[i] == '\\' && in[i+1] == 'n')
2297                 {
2298                         *out++ = '\n';
2299                         i++;
2300                 }
2301                 else if (in[i] == '\\' && in[i+1] == '0')
2302                 {
2303                         *out++ = '\0';
2304                         i++;
2305                 }
2306                 else if (in[i] == '\\' && in[i+1] == 't')
2307                 {
2308                         *out++ = '\t';
2309                         i++;
2310                 }
2311                 else if (in[i] == '\\' && in[i+1] == 'r')
2312                 {
2313                         *out++ = '\r';
2314                         i++;
2315                 }
2316                 else if (in[i] == '\\' && in[i+1] == '"')
2317                 {
2318                         *out++ = '\"';
2319                         i++;
2320                 }
2321                 else
2322                         *out++ = in[i];
2323         }
2324
2325         mysocket = NetConn_ChooseClientSocketForAddress(&address);
2326         if (mysocket)
2327                 NetConn_Write(mysocket, send, out - send, &address);
2328 }
2329
2330 /*
2331 ====================
2332 Host_Pings_f
2333
2334 Send back ping and packet loss update for all current players to this player
2335 ====================
2336 */
2337 void Host_Pings_f (void)
2338 {
2339         int             i, j, ping, packetloss;
2340         char temp[128];
2341
2342         if (!host_client->netconnection)
2343                 return;
2344
2345         if (sv.protocol != PROTOCOL_QUAKEWORLD)
2346         {
2347                 MSG_WriteByte(&host_client->netconnection->message, svc_stufftext);
2348                 MSG_WriteUnterminatedString(&host_client->netconnection->message, "pingplreport");
2349         }
2350         for (i = 0;i < svs.maxclients;i++)
2351         {
2352                 packetloss = 0;
2353                 if (svs.clients[i].netconnection)
2354                         for (j = 0;j < NETGRAPH_PACKETS;j++)
2355                                 if (svs.clients[i].netconnection->incoming_unreliablesize[j] == NETGRAPH_LOSTPACKET)
2356                                         packetloss++;
2357                 packetloss = packetloss * 100 / NETGRAPH_PACKETS;
2358                 ping = (int)floor(svs.clients[i].ping*1000+0.5);
2359                 ping = bound(0, ping, 9999);
2360                 if (sv.protocol == PROTOCOL_QUAKEWORLD)
2361                 {
2362                         // send qw_svc_updateping and qw_svc_updatepl messages
2363                         MSG_WriteByte(&host_client->netconnection->message, qw_svc_updateping);
2364                         MSG_WriteShort(&host_client->netconnection->message, ping);
2365                         MSG_WriteByte(&host_client->netconnection->message, qw_svc_updatepl);
2366                         MSG_WriteByte(&host_client->netconnection->message, packetloss);
2367                 }
2368                 else
2369                 {
2370                         // write the string into the packet as multiple unterminated strings to avoid needing a local buffer
2371                         dpsnprintf(temp, sizeof(temp), " %d %d", ping, packetloss);
2372                         MSG_WriteUnterminatedString(&host_client->netconnection->message, temp);
2373                 }
2374         }
2375         if (sv.protocol != PROTOCOL_QUAKEWORLD)
2376                 MSG_WriteString(&host_client->netconnection->message, "\n");
2377 }
2378
2379 void Host_PingPLReport_f(void)
2380 {
2381         int i;
2382         int l = Cmd_Argc();
2383         if (l > cl.maxclients)
2384                 l = cl.maxclients;
2385         for (i = 0;i < l;i++)
2386         {
2387                 cl.scores[i].qw_ping = atoi(Cmd_Argv(1+i*2));
2388                 cl.scores[i].qw_packetloss = atoi(Cmd_Argv(1+i*2+1));
2389         }
2390 }
2391
2392 //=============================================================================
2393
2394 /*
2395 ==================
2396 Host_InitCommands
2397 ==================
2398 */
2399 void Host_InitCommands (void)
2400 {
2401         dpsnprintf(cls.userinfo, sizeof(cls.userinfo), "\\name\\player\\team\\none\\topcolor\\0\\bottomcolor\\0\\rate\\10000\\msg\\1\\noaim\\1\\*ver\\dp");
2402
2403         Cmd_AddCommand_WithClientCommand ("status", Host_Status_f, Host_Status_f, "print server status information");
2404         Cmd_AddCommand ("quit", Host_Quit_f, "quit the game");
2405         if (gamemode == GAME_NEHAHRA)
2406         {
2407                 Cmd_AddCommand_WithClientCommand ("max", NULL, Host_God_f, "god mode (invulnerability)");
2408                 Cmd_AddCommand_WithClientCommand ("monster", NULL, Host_Notarget_f, "notarget mode (monsters do not see you)");
2409                 Cmd_AddCommand_WithClientCommand ("scrag", NULL, Host_Fly_f, "fly mode (flight)");
2410                 Cmd_AddCommand_WithClientCommand ("wraith", NULL, Host_Noclip_f, "noclip mode (flight without collisions, move through walls)");
2411                 Cmd_AddCommand_WithClientCommand ("gimme", NULL, Host_Give_f, "alter inventory");
2412         }
2413         else
2414         {
2415                 Cmd_AddCommand_WithClientCommand ("god", NULL, Host_God_f, "god mode (invulnerability)");
2416                 Cmd_AddCommand_WithClientCommand ("notarget", NULL, Host_Notarget_f, "notarget mode (monsters do not see you)");
2417                 Cmd_AddCommand_WithClientCommand ("fly", NULL, Host_Fly_f, "fly mode (flight)");
2418                 Cmd_AddCommand_WithClientCommand ("noclip", NULL, Host_Noclip_f, "noclip mode (flight without collisions, move through walls)");
2419                 Cmd_AddCommand_WithClientCommand ("give", NULL, Host_Give_f, "alter inventory");
2420         }
2421         Cmd_AddCommand ("map", Host_Map_f, "kick everyone off the server and start a new level");
2422         Cmd_AddCommand ("restart", Host_Restart_f, "restart current level");
2423         Cmd_AddCommand ("changelevel", Host_Changelevel_f, "change to another level, bringing along all connected clients");
2424         Cmd_AddCommand ("connect", Host_Connect_f, "connect to a server by IP address or hostname");
2425         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)");
2426         Cmd_AddCommand ("version", Host_Version_f, "print engine version");
2427         Cmd_AddCommand_WithClientCommand ("say", Host_Say_f, Host_Say_f, "send a chat message to everyone on the server");
2428         Cmd_AddCommand_WithClientCommand ("say_team", Host_Say_Team_f, Host_Say_Team_f, "send a chat message to your team on the server");
2429         Cmd_AddCommand_WithClientCommand ("tell", Host_Tell_f, Host_Tell_f, "send a chat message to only one person on the server");
2430         Cmd_AddCommand_WithClientCommand ("kill", NULL, Host_Kill_f, "die instantly");
2431         Cmd_AddCommand_WithClientCommand ("pause", NULL, Host_Pause_f, "pause the game (if the server allows pausing)");
2432         Cmd_AddCommand ("kick", Host_Kick_f, "kick a player off the server by number or name");
2433         Cmd_AddCommand_WithClientCommand ("ping", Host_Ping_f, Host_Ping_f, "print ping times of all players on the server");
2434         Cmd_AddCommand ("load", Host_Loadgame_f, "load a saved game file");
2435         Cmd_AddCommand ("save", Host_Savegame_f, "save the game to a file");
2436
2437         Cmd_AddCommand ("startdemos", Host_Startdemos_f, "start playing back the selected demos sequentially (used at end of startup script)");
2438         Cmd_AddCommand ("demos", Host_Demos_f, "restart looping demos defined by the last startdemos command");
2439         Cmd_AddCommand ("stopdemo", Host_Stopdemo_f, "stop playing or recording demo (like stop command) and return to looping demos");
2440
2441         Cmd_AddCommand ("viewmodel", Host_Viewmodel_f, "change model of viewthing entity in current level");
2442         Cmd_AddCommand ("viewframe", Host_Viewframe_f, "change animation frame of viewthing entity in current level");
2443         Cmd_AddCommand ("viewnext", Host_Viewnext_f, "change to next animation frame of viewthing entity in current level");
2444         Cmd_AddCommand ("viewprev", Host_Viewprev_f, "change to previous animation frame of viewthing entity in current level");
2445
2446         Cvar_RegisterVariable (&cl_name);
2447         Cmd_AddCommand_WithClientCommand ("name", Host_Name_f, Host_Name_f, "change your player name");
2448         Cvar_RegisterVariable (&cl_color);
2449         Cmd_AddCommand_WithClientCommand ("color", Host_Color_f, Host_Color_f, "change your player shirt and pants colors");
2450         Cvar_RegisterVariable (&cl_rate);
2451         Cmd_AddCommand_WithClientCommand ("rate", Host_Rate_f, Host_Rate_f, "change your network connection speed");
2452         if (gamemode == GAME_NEHAHRA)
2453         {
2454                 Cvar_RegisterVariable (&cl_pmodel);
2455                 Cmd_AddCommand_WithClientCommand ("pmodel", Host_PModel_f, Host_PModel_f, "change your player model choice (Nehahra specific)");
2456         }
2457
2458         // BLACK: This isnt game specific anymore (it was GAME_NEXUIZ at first)
2459         Cvar_RegisterVariable (&cl_playermodel);
2460         Cmd_AddCommand_WithClientCommand ("playermodel", Host_Playermodel_f, Host_Playermodel_f, "change your player model");
2461         Cvar_RegisterVariable (&cl_playerskin);
2462         Cmd_AddCommand_WithClientCommand ("playerskin", Host_Playerskin_f, Host_Playerskin_f, "change your player skin number");
2463
2464         Cmd_AddCommand_WithClientCommand ("prespawn", NULL, Host_PreSpawn_f, "signon 1 (client acknowledges that server information has been received)");
2465         Cmd_AddCommand_WithClientCommand ("spawn", NULL, Host_Spawn_f, "signon 2 (client has sent player information, and is asking server to send scoreboard rankings)");
2466         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)");
2467         Cmd_AddCommand ("maxplayers", MaxPlayers_f, "sets limit on how many players (or bots) may be connected to the server at once");
2468
2469         Cmd_AddCommand ("sendcvar", Host_SendCvar_f, "sends the value of a cvar to the server as a sentcvar command, for use by QuakeC");
2470
2471         Cvar_RegisterVariable (&rcon_password);
2472         Cvar_RegisterVariable (&rcon_address);
2473         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)");
2474         Cmd_AddCommand ("user", Host_User_f, "prints additional information about a player number or name on the scoreboard");
2475         Cmd_AddCommand ("users", Host_Users_f, "prints additional information about all players on the scoreboard");
2476         Cmd_AddCommand ("fullserverinfo", Host_FullServerinfo_f, "internal use only, sent by server to client to update client's local copy of serverinfo string");
2477         Cmd_AddCommand ("fullinfo", Host_FullInfo_f, "allows client to modify their userinfo");
2478         Cmd_AddCommand ("setinfo", Host_SetInfo_f, "modifies your userinfo");
2479         Cmd_AddCommand ("packet", Host_Packet_f, "send a packet to the specified address:port containing a text string");
2480         Cmd_AddCommand ("topcolor", Host_TopColor_f, "QW command to set top color without changing bottom color");
2481         Cmd_AddCommand ("bottomcolor", Host_BottomColor_f, "QW command to set bottom color without changing top color");
2482
2483         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)");
2484         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)");
2485
2486         Cvar_RegisterVariable (&team);
2487         Cvar_RegisterVariable (&skin);
2488         Cvar_RegisterVariable (&noaim);
2489
2490         Cvar_RegisterVariable(&sv_cheats);
2491         Cvar_RegisterVariable(&sv_adminnick);
2492 }
2493