Clear message buffer before calling ClientConnect, rather than after.
[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 extern cvar_t   pausable;
24
25 int     current_skill;
26
27 void Mod_Print (void);
28
29 /*
30 ==================
31 Host_Quit_f
32 ==================
33 */
34
35 // LordHavoc: didn't like it asking me if I wanted to quit
36 //extern void M_Menu_Quit_f (void);
37
38 void Host_Quit_f (void)
39 {
40         /*
41         if (key_dest != key_console && cls.state != ca_dedicated)
42         {
43                 M_Menu_Quit_f ();
44                 return;
45         }
46         */
47         CL_Disconnect ();
48         Host_ShutdownServer(false);             
49
50         Sys_Quit ();
51 }
52
53
54 /*
55 ==================
56 Host_Status_f
57 ==================
58 */
59 void Host_Status_f (void)
60 {
61         client_t        *client;
62         int                     seconds;
63         int                     minutes;
64         int                     hours = 0;
65         int                     j;
66         void            (*print) (char *fmt, ...);
67         
68         if (cmd_source == src_command)
69         {
70                 if (!sv.active)
71                 {
72                         Cmd_ForwardToServer ();
73                         return;
74                 }
75                 print = Con_Printf;
76         }
77         else
78                 print = SV_ClientPrintf;
79
80         print ("host:    %s\n", Cvar_VariableString ("hostname"));
81         print ("version: %4.2f\n", VERSION);
82         if (tcpipAvailable)
83                 print ("tcp/ip:  %s\n", my_tcpip_address);
84         if (ipxAvailable)
85                 print ("ipx:     %s\n", my_ipx_address);
86         print ("map:     %s\n", sv.name);
87         print ("players: %i active (%i max)\n\n", net_activeconnections, svs.maxclients);
88         for (j=0, client = svs.clients ; j<svs.maxclients ; j++, client++)
89         {
90                 if (!client->active)
91                         continue;
92                 seconds = (int)(net_time - client->netconnection->connecttime);
93                 minutes = seconds / 60;
94                 if (minutes)
95                 {
96                         seconds -= (minutes * 60);
97                         hours = minutes / 60;
98                         if (hours)
99                                 minutes -= (hours * 60);
100                 }
101                 else
102                         hours = 0;
103                 print ("#%-2u %-16.16s  %3i  %2i:%02i:%02i\n", j+1, client->name, (int)client->edict->v.frags, hours, minutes, seconds);
104                 print ("   %s\n", client->netconnection->address);
105         }
106 }
107
108
109 /*
110 ==================
111 Host_God_f
112
113 Sets client to godmode
114 ==================
115 */
116 void Host_God_f (void)
117 {
118         if (cmd_source == src_command)
119         {
120                 Cmd_ForwardToServer ();
121                 return;
122         }
123
124         if (pr_global_struct->deathmatch)
125                 return;
126
127         sv_player->v.flags = (int)sv_player->v.flags ^ FL_GODMODE;
128         if (!((int)sv_player->v.flags & FL_GODMODE) )
129                 SV_ClientPrintf ("godmode OFF\n");
130         else
131                 SV_ClientPrintf ("godmode ON\n");
132 }
133
134 void Host_Notarget_f (void)
135 {
136         if (cmd_source == src_command)
137         {
138                 Cmd_ForwardToServer ();
139                 return;
140         }
141
142         if (pr_global_struct->deathmatch)
143                 return;
144
145         sv_player->v.flags = (int)sv_player->v.flags ^ FL_NOTARGET;
146         if (!((int)sv_player->v.flags & FL_NOTARGET) )
147                 SV_ClientPrintf ("notarget OFF\n");
148         else
149                 SV_ClientPrintf ("notarget ON\n");
150 }
151
152 qboolean noclip_anglehack;
153
154 void Host_Noclip_f (void)
155 {
156         if (cmd_source == src_command)
157         {
158                 Cmd_ForwardToServer ();
159                 return;
160         }
161
162         if (pr_global_struct->deathmatch)
163                 return;
164
165         if (sv_player->v.movetype != MOVETYPE_NOCLIP)
166         {
167                 noclip_anglehack = true;
168                 sv_player->v.movetype = MOVETYPE_NOCLIP;
169                 SV_ClientPrintf ("noclip ON\n");
170         }
171         else
172         {
173                 noclip_anglehack = false;
174                 sv_player->v.movetype = MOVETYPE_WALK;
175                 SV_ClientPrintf ("noclip OFF\n");
176         }
177 }
178
179 /*
180 ==================
181 Host_Fly_f
182
183 Sets client to flymode
184 ==================
185 */
186 void Host_Fly_f (void)
187 {
188         if (cmd_source == src_command)
189         {
190                 Cmd_ForwardToServer ();
191                 return;
192         }
193
194         if (pr_global_struct->deathmatch)
195                 return;
196
197         if (sv_player->v.movetype != MOVETYPE_FLY)
198         {
199                 sv_player->v.movetype = MOVETYPE_FLY;
200                 SV_ClientPrintf ("flymode ON\n");
201         }
202         else
203         {
204                 sv_player->v.movetype = MOVETYPE_WALK;
205                 SV_ClientPrintf ("flymode OFF\n");
206         }
207 }
208
209
210 /*
211 ==================
212 Host_Ping_f
213
214 ==================
215 */
216 void Host_Ping_f (void)
217 {
218         int             i, j;
219         float   total;
220         client_t        *client;
221         
222         if (cmd_source == src_command)
223         {
224                 Cmd_ForwardToServer ();
225                 return;
226         }
227
228         SV_ClientPrintf ("Client ping times:\n");
229         for (i=0, client = svs.clients ; i<svs.maxclients ; i++, client++)
230         {
231                 if (!client->active)
232                         continue;
233                 total = 0;
234                 for (j=0 ; j<NUM_PING_TIMES ; j++)
235                         total+=client->ping_times[j];
236                 total /= NUM_PING_TIMES;
237                 SV_ClientPrintf ("%4i %s\n", (int)(total*1000), client->name);
238         }
239 }
240
241 /*
242 ===============================================================================
243
244 SERVER TRANSITIONS
245
246 ===============================================================================
247 */
248
249
250 /*
251 ======================
252 Host_Map_f
253
254 handle a 
255 map <servername>
256 command from the console.  Active clients are kicked off.
257 ======================
258 */
259 void Host_Map_f (void)
260 {
261         int             i;
262         char    name[MAX_QPATH];
263
264         if (cmd_source != src_command)
265                 return;
266
267         cls.demonum = -1;               // stop demo loop in case this fails
268
269         CL_Disconnect ();
270         Host_ShutdownServer(false);             
271
272         key_dest = key_game;                    // remove console or menu
273         SCR_BeginLoadingPlaque ();
274
275         cls.mapstring[0] = 0;
276         for (i=0 ; i<Cmd_Argc() ; i++)
277         {
278                 strcat (cls.mapstring, Cmd_Argv(i));
279                 strcat (cls.mapstring, " ");
280         }
281         strcat (cls.mapstring, "\n");
282
283         svs.serverflags = 0;                    // haven't completed an episode yet
284         strcpy (name, Cmd_Argv(1));
285         SV_SpawnServer (name);
286         if (!sv.active)
287                 return;
288         
289         if (cls.state != ca_dedicated)
290         {
291                 strcpy (cls.spawnparms, "");
292
293                 for (i=2 ; i<Cmd_Argc() ; i++)
294                 {
295                         strcat (cls.spawnparms, Cmd_Argv(i));
296                         strcat (cls.spawnparms, " ");
297                 }
298                 
299                 Cmd_ExecuteString ("connect local", src_command);
300         }       
301 }
302
303 /*
304 ==================
305 Host_Changelevel_f
306
307 Goes to a new map, taking all clients along
308 ==================
309 */
310 void Host_Changelevel_f (void)
311 {
312         char    level[MAX_QPATH];
313
314         if (Cmd_Argc() != 2)
315         {
316                 Con_Printf ("changelevel <levelname> : continue game on a new level\n");
317                 return;
318         }
319         if (!sv.active || cls.demoplayback)
320         {
321                 Con_Printf ("Only the server may changelevel\n");
322                 return;
323         }
324         SV_SaveSpawnparms ();
325         strcpy (level, Cmd_Argv(1));
326         SV_SpawnServer (level);
327 }
328
329 /*
330 ==================
331 Host_Restart_f
332
333 Restarts the current server for a dead player
334 ==================
335 */
336 void Host_Restart_f (void)
337 {
338         char    mapname[MAX_QPATH];
339
340         if (cls.demoplayback || !sv.active)
341                 return;
342
343         if (cmd_source != src_command)
344                 return;
345         strcpy (mapname, sv.name);      // must copy out, because it gets cleared
346                                                                 // in sv_spawnserver
347         SV_SpawnServer (mapname);
348 }
349
350 /*
351 ==================
352 Host_Reconnect_f
353
354 This command causes the client to wait for the signon messages again.
355 This is sent just before a server changes levels
356 ==================
357 */
358 void Host_Reconnect_f (void)
359 {
360         SCR_BeginLoadingPlaque ();
361         cls.signon = 0;         // need new connection messages
362 }
363
364 /*
365 =====================
366 Host_Connect_f
367
368 User command to connect to server
369 =====================
370 */
371 void Host_Connect_f (void)
372 {
373         char    name[MAX_QPATH];
374         
375         cls.demonum = -1;               // stop demo loop in case this fails
376         if (cls.demoplayback)
377         {
378                 CL_StopPlayback ();
379                 CL_Disconnect ();
380         }
381         strcpy (name, Cmd_Argv(1));
382         CL_EstablishConnection (name);
383         Host_Reconnect_f ();
384 }
385
386
387 /*
388 ===============================================================================
389
390 LOAD / SAVE GAME
391
392 ===============================================================================
393 */
394
395 #define SAVEGAME_VERSION        5
396
397 /*
398 ===============
399 Host_SavegameComment
400
401 Writes a SAVEGAME_COMMENT_LENGTH character comment describing the current 
402 ===============
403 */
404 void Host_SavegameComment (char *text)
405 {
406         int             i;
407         char    kills[20];
408
409         for (i=0 ; i<SAVEGAME_COMMENT_LENGTH ; i++)
410                 text[i] = ' ';
411         memcpy (text, cl.levelname, strlen(cl.levelname));
412         sprintf (kills,"kills:%3i/%3i", cl.stats[STAT_MONSTERS], cl.stats[STAT_TOTALMONSTERS]);
413         memcpy (text+22, kills, strlen(kills));
414 // convert space to _ to make stdio happy
415         for (i=0 ; i<SAVEGAME_COMMENT_LENGTH ; i++)
416                 if (text[i] == ' ')
417                         text[i] = '_';
418         text[SAVEGAME_COMMENT_LENGTH] = '\0';
419 }
420
421
422 /*
423 ===============
424 Host_Savegame_f
425 ===============
426 */
427 void Host_Savegame_f (void)
428 {
429         char    name[256];
430         FILE    *f;
431         int             i;
432         char    comment[SAVEGAME_COMMENT_LENGTH+1];
433
434         if (cmd_source != src_command)
435                 return;
436
437         if (!sv.active)
438         {
439                 Con_Printf ("Not playing a local game.\n");
440                 return;
441         }
442
443         if (cl.intermission)
444         {
445                 Con_Printf ("Can't save in intermission.\n");
446                 return;
447         }
448
449         if (svs.maxclients != 1)
450         {
451                 Con_Printf ("Can't save multiplayer games.\n");
452                 return;
453         }
454
455         if (Cmd_Argc() != 2)
456         {
457                 Con_Printf ("save <savename> : save a game\n");
458                 return;
459         }
460
461         if (strstr(Cmd_Argv(1), ".."))
462         {
463                 Con_Printf ("Relative pathnames are not allowed.\n");
464                 return;
465         }
466                 
467         for (i=0 ; i<svs.maxclients ; i++)
468         {
469                 if (svs.clients[i].active && (svs.clients[i].edict->v.health <= 0) )
470                 {
471                         Con_Printf ("Can't savegame with a dead player\n");
472                         return;
473                 }
474         }
475
476         sprintf (name, "%s/%s", com_gamedir, Cmd_Argv(1));
477         COM_DefaultExtension (name, ".sav");
478         
479         Con_Printf ("Saving game to %s...\n", name);
480         f = fopen (name, "w");
481         if (!f)
482         {
483                 Con_Printf ("ERROR: couldn't open.\n");
484                 return;
485         }
486         
487         fprintf (f, "%i\n", SAVEGAME_VERSION);
488         Host_SavegameComment (comment);
489         fprintf (f, "%s\n", comment);
490         for (i=0 ; i<NUM_SPAWN_PARMS ; i++)
491                 fprintf (f, "%f\n", svs.clients->spawn_parms[i]);
492         fprintf (f, "%d\n", current_skill);
493         fprintf (f, "%s\n", sv.name);
494         fprintf (f, "%f\n",sv.time);
495
496 // write the light styles
497
498         for (i=0 ; i<MAX_LIGHTSTYLES ; i++)
499         {
500                 if (sv.lightstyles[i])
501                         fprintf (f, "%s\n", sv.lightstyles[i]);
502                 else
503                         fprintf (f,"m\n");
504         }
505
506
507         ED_WriteGlobals (f);
508         for (i=0 ; i<sv.num_edicts ; i++)
509         {
510                 ED_Write (f, EDICT_NUM(i));
511                 fflush (f);
512         }
513         fclose (f);
514         Con_Printf ("done.\n");
515 }
516
517
518 /*
519 ===============
520 Host_Loadgame_f
521 ===============
522 */
523 void Host_Loadgame_f (void)
524 {
525         char    name[MAX_OSPATH];
526         FILE    *f;
527         char    mapname[MAX_QPATH];
528         float   time, tfloat;
529         char    str[32768], *start;
530         int             i, r;
531         edict_t *ent;
532         int             entnum;
533         int             version;
534         float                   spawn_parms[NUM_SPAWN_PARMS];
535
536         if (cmd_source != src_command)
537                 return;
538
539         if (Cmd_Argc() != 2)
540         {
541                 Con_Printf ("load <savename> : load a game\n");
542                 return;
543         }
544
545         cls.demonum = -1;               // stop demo loop in case this fails
546
547         sprintf (name, "%s/%s", com_gamedir, Cmd_Argv(1));
548         COM_DefaultExtension (name, ".sav");
549         
550 // we can't call SCR_BeginLoadingPlaque, because too much stack space has
551 // been used.  The menu calls it before stuffing loadgame command
552 //      SCR_BeginLoadingPlaque ();
553
554         Con_Printf ("Loading game from %s...\n", name);
555         f = fopen (name, "r");
556         if (!f)
557         {
558                 Con_Printf ("ERROR: couldn't open.\n");
559                 return;
560         }
561
562         fscanf (f, "%i\n", &version);
563         if (version != SAVEGAME_VERSION)
564         {
565                 fclose (f);
566                 Con_Printf ("Savegame is version %i, not %i\n", version, SAVEGAME_VERSION);
567                 return;
568         }
569         fscanf (f, "%s\n", str);
570         for (i=0 ; i<NUM_SPAWN_PARMS ; i++)
571                 fscanf (f, "%f\n", &spawn_parms[i]);
572 // this silliness is so we can load 1.06 save files, which have float skill values
573         fscanf (f, "%f\n", &tfloat);
574         current_skill = (int)(tfloat + 0.1);
575         Cvar_SetValue ("skill", (float)current_skill);
576
577         fscanf (f, "%s\n",mapname);
578         fscanf (f, "%f\n",&time);
579
580         CL_Disconnect_f ();
581         
582         SV_SpawnServer (mapname);
583         if (!sv.active)
584         {
585                 Con_Printf ("Couldn't load map\n");
586                 return;
587         }
588         sv.paused = true;               // pause until all clients connect
589         sv.loadgame = true;
590
591 // load the light styles
592
593         for (i=0 ; i<MAX_LIGHTSTYLES ; i++)
594         {
595                 fscanf (f, "%s\n", str);
596                 sv.lightstyles[i] = Hunk_Alloc (strlen(str)+1);
597                 strcpy (sv.lightstyles[i], str);
598         }
599
600 // load the edicts out of the savegame file
601         entnum = -1;            // -1 is the globals
602         while (!feof(f))
603         {
604                 for (i=0 ; i<sizeof(str)-1 ; i++)
605                 {
606                         r = fgetc (f);
607                         if (r == EOF || !r)
608                                 break;
609                         str[i] = r;
610                         if (r == '}')
611                         {
612                                 i++;
613                                 break;
614                         }
615                 }
616                 if (i == sizeof(str)-1)
617                         Sys_Error ("Loadgame buffer overflow");
618                 str[i] = 0;
619                 start = str;
620                 start = COM_Parse(str);
621                 if (!com_token[0])
622                         break;          // end of file
623                 if (strcmp(com_token,"{"))
624                         Sys_Error ("First token isn't a brace");
625                         
626                 if (entnum == -1)
627                 {       // parse the global vars
628                         ED_ParseGlobals (start);
629                 }
630                 else
631                 {       // parse an edict
632
633                         ent = EDICT_NUM(entnum);
634                         memset (&ent->v, 0, progs->entityfields * 4);
635                         ent->free = false;
636                         ED_ParseEdict (start, ent);
637         
638                 // link it into the bsp tree
639                         if (!ent->free)
640                                 SV_LinkEdict (ent, false);
641                 }
642
643                 entnum++;
644         }
645         
646         sv.num_edicts = entnum;
647         sv.time = time;
648
649         fclose (f);
650
651         for (i=0 ; i<NUM_SPAWN_PARMS ; i++)
652                 svs.clients->spawn_parms[i] = spawn_parms[i];
653
654         if (cls.state != ca_dedicated)
655         {
656                 CL_EstablishConnection ("local");
657                 Host_Reconnect_f ();
658         }
659 }
660
661 //============================================================================
662
663 /*
664 ======================
665 Host_Name_f
666 ======================
667 */
668 void Host_Name_f (void)
669 {
670         char    *newName;
671
672         if (Cmd_Argc () == 1)
673         {
674                 Con_Printf ("\"name\" is \"%s\"\n", cl_name.string);
675                 return;
676         }
677         if (Cmd_Argc () == 2)
678                 newName = Cmd_Argv(1);  
679         else
680                 newName = Cmd_Args();
681         newName[15] = 0;
682
683         if (cmd_source == src_command)
684         {
685                 if (strcmp(cl_name.string, newName) == 0)
686                         return;
687                 Cvar_Set ("_cl_name", newName);
688                 if (cls.state == ca_connected)
689                         Cmd_ForwardToServer ();
690                 return;
691         }
692
693         if (host_client->name[0] && strcmp(host_client->name, "unconnected") )
694                 if (strcmp(host_client->name, newName) != 0)
695                         Con_Printf ("%s renamed to %s\n", host_client->name, newName);
696         strcpy (host_client->name, newName);
697         host_client->edict->v.netname = host_client->name - pr_strings;
698         
699 // send notification to all clients
700         
701         MSG_WriteByte (&sv.reliable_datagram, svc_updatename);
702         MSG_WriteByte (&sv.reliable_datagram, host_client - svs.clients);
703         MSG_WriteString (&sv.reliable_datagram, host_client->name);
704 }
705
706         
707 void Host_Version_f (void)
708 {
709         Con_Printf ("Version %4.2f\n", VERSION);
710         Con_Printf ("Exe: "__TIME__" "__DATE__"\n");
711 }
712
713 void Host_Say(qboolean teamonly)
714 {
715         client_t *client;
716         client_t *save;
717         int             j;
718         char    *p;
719         // LordHavoc: 256 char say messages
720         unsigned char   text[256];
721         qboolean        fromServer = false;
722
723         if (cmd_source == src_command)
724         {
725                 if (cls.state == ca_dedicated)
726                 {
727                         fromServer = true;
728                         teamonly = false;
729                 }
730                 else
731                 {
732                         Cmd_ForwardToServer ();
733                         return;
734                 }
735         }
736
737         if (Cmd_Argc () < 2)
738                 return;
739
740         save = host_client;
741
742         p = Cmd_Args();
743 // remove quotes if present
744         if (*p == '"')
745         {
746                 p++;
747                 p[strlen(p)-1] = 0;
748         }
749
750 // turn on color set 1
751         if (!fromServer)
752                 sprintf (text, "%c%s: ", 1, save->name);
753         else
754                 sprintf (text, "%c<%s> ", 1, hostname.string);
755
756         j = sizeof(text) - 2 - strlen(text);  // -2 for /n and null terminator
757         if (strlen(p) > j)
758                 p[j] = 0;
759
760         strcat (text, p);
761         strcat (text, "\n");
762
763         for (j = 0, client = svs.clients; j < svs.maxclients; j++, client++)
764         {
765                 if (!client || !client->active || !client->spawned)
766                         continue;
767                 if (teamplay.value && teamonly && client->edict->v.team != save->edict->v.team)
768                         continue;
769                 host_client = client;
770                 SV_ClientPrintf("%s", text);
771         }
772         host_client = save;
773
774         Sys_Printf("%s", &text[1]);
775 }
776
777
778 void Host_Say_f(void)
779 {
780         Host_Say(false);
781 }
782
783
784 void Host_Say_Team_f(void)
785 {
786         Host_Say(true);
787 }
788
789
790 void Host_Tell_f(void)
791 {
792         client_t *client;
793         client_t *save;
794         int             j;
795         char    *p;
796         char    text[64];
797
798         if (cmd_source == src_command)
799         {
800                 Cmd_ForwardToServer ();
801                 return;
802         }
803
804         if (Cmd_Argc () < 3)
805                 return;
806
807         strcpy(text, host_client->name);
808         strcat(text, ": ");
809
810         p = Cmd_Args();
811
812 // remove quotes if present
813         if (*p == '"')
814         {
815                 p++;
816                 p[strlen(p)-1] = 0;
817         }
818
819 // check length & truncate if necessary
820         j = sizeof(text) - 2 - strlen(text);  // -2 for /n and null terminator
821         if (strlen(p) > j)
822                 p[j] = 0;
823
824         strcat (text, p);
825         strcat (text, "\n");
826
827         save = host_client;
828         for (j = 0, client = svs.clients; j < svs.maxclients; j++, client++)
829         {
830                 if (!client->active || !client->spawned)
831                         continue;
832                 if (Q_strcasecmp(client->name, Cmd_Argv(1)))
833                         continue;
834                 host_client = client;
835                 SV_ClientPrintf("%s", text);
836                 break;
837         }
838         host_client = save;
839 }
840
841
842 /*
843 ==================
844 Host_Color_f
845 ==================
846 */
847 void Host_Color_f(void)
848 {
849         int             top, bottom;
850         int             playercolor;
851         
852         if (Cmd_Argc() == 1)
853         {
854                 Con_Printf ("\"color\" is \"%i %i\"\n", ((int)cl_color.value) >> 4, ((int)cl_color.value) & 0x0f);
855                 Con_Printf ("color <0-13> [0-13]\n");
856                 return;
857         }
858
859         if (Cmd_Argc() == 2)
860                 top = bottom = atoi(Cmd_Argv(1));
861         else
862         {
863                 top = atoi(Cmd_Argv(1));
864                 bottom = atoi(Cmd_Argv(2));
865         }
866         
867         top &= 15;
868         // LordHavoc: allow skin colormaps 14 and 15 (was 13)
869         if (top > 15)
870                 top = 15;
871         bottom &= 15;
872         // LordHavoc: allow skin colormaps 14 and 15 (was 13)
873         if (bottom > 15)
874                 bottom = 15;
875         
876         playercolor = top*16 + bottom;
877
878         if (cmd_source == src_command)
879         {
880                 Cvar_SetValue ("_cl_color", playercolor);
881                 if (cls.state == ca_connected)
882                         Cmd_ForwardToServer ();
883                 return;
884         }
885
886         host_client->colors = playercolor;
887         host_client->edict->v.team = bottom + 1;
888
889 // send notification to all clients
890         MSG_WriteByte (&sv.reliable_datagram, svc_updatecolors);
891         MSG_WriteByte (&sv.reliable_datagram, host_client - svs.clients);
892         MSG_WriteByte (&sv.reliable_datagram, host_client->colors);
893 }
894
895 /*
896 ==================
897 Host_Kill_f
898 ==================
899 */
900 void Host_Kill_f (void)
901 {
902         if (cmd_source == src_command)
903         {
904                 Cmd_ForwardToServer ();
905                 return;
906         }
907
908         if (sv_player->v.health <= 0)
909         {
910                 SV_ClientPrintf ("Can't suicide -- allready dead!\n");
911                 return;
912         }
913         
914         pr_global_struct->time = sv.time;
915         pr_global_struct->self = EDICT_TO_PROG(sv_player);
916         PR_ExecuteProgram (pr_global_struct->ClientKill);
917 }
918
919
920 /*
921 ==================
922 Host_Pause_f
923 ==================
924 */
925 void Host_Pause_f (void)
926 {
927         
928         if (cmd_source == src_command)
929         {
930                 Cmd_ForwardToServer ();
931                 return;
932         }
933         if (!pausable.value)
934                 SV_ClientPrintf ("Pause not allowed.\n");
935         else
936         {
937                 sv.paused ^= 1;
938
939                 if (sv.paused)
940                 {
941                         SV_BroadcastPrintf ("%s paused the game\n", pr_strings + sv_player->v.netname);
942                 }
943                 else
944                 {
945                         SV_BroadcastPrintf ("%s unpaused the game\n",pr_strings + sv_player->v.netname);
946                 }
947
948         // send notification to all clients
949                 MSG_WriteByte (&sv.reliable_datagram, svc_setpause);
950                 MSG_WriteByte (&sv.reliable_datagram, sv.paused);
951         }
952 }
953
954 //===========================================================================
955
956
957 /*
958 ==================
959 Host_PreSpawn_f
960 ==================
961 */
962 void Host_PreSpawn_f (void)
963 {
964         if (cmd_source == src_command)
965         {
966                 Con_Printf ("prespawn is not valid from the console\n");
967                 return;
968         }
969
970         if (host_client->spawned)
971         {
972                 Con_Printf ("prespawn not valid -- allready spawned\n");
973                 return;
974         }
975         
976         SZ_Write (&host_client->message, sv.signon.data, sv.signon.cursize);
977         MSG_WriteByte (&host_client->message, svc_signonnum);
978         MSG_WriteByte (&host_client->message, 2);
979         host_client->sendsignon = true;
980 }
981
982 dfunction_t *ED_FindFunction (char *name);
983
984 /*
985 ==================
986 Host_Spawn_f
987 ==================
988 */
989 void Host_Spawn_f (void)
990 {
991         int             i;
992         client_t        *client;
993         edict_t *ent;
994         func_t RestoreGame;
995         dfunction_t *f;
996
997         if (cmd_source == src_command)
998         {
999                 Con_Printf ("spawn is not valid from the console\n");
1000                 return;
1001         }
1002
1003         if (host_client->spawned)
1004         {
1005                 Con_Printf ("Spawn not valid -- allready spawned\n");
1006                 return;
1007         }
1008
1009         // LordHavoc: moved this above the QC calls at FrikaC's request
1010 // send all current names, colors, and frag counts
1011         SZ_Clear (&host_client->message);
1012
1013 // run the entrance script
1014         if (sv.loadgame)
1015         {       // loaded games are fully inited allready
1016                 // if this is the last client to be connected, unpause
1017                 sv.paused = false;
1018
1019                 if ((f = ED_FindFunction ("RestoreGame")))
1020                 if ((RestoreGame = (func_t)(f - pr_functions)))
1021                 {
1022                         Con_DPrintf("Calling RestoreGame\n");
1023                         pr_global_struct->time = sv.time;
1024                         pr_global_struct->self = EDICT_TO_PROG(sv_player);
1025                         PR_ExecuteProgram (RestoreGame);
1026                 }
1027         }
1028         else
1029         {
1030                 eval_t *val;
1031                 // set up the edict
1032                 ent = host_client->edict;
1033
1034                 memset (&ent->v, 0, progs->entityfields * 4);
1035                 ent->v.colormap = NUM_FOR_EDICT(ent);
1036                 ent->v.team = (host_client->colors & 15) + 1;
1037                 ent->v.netname = host_client->name - pr_strings;
1038                 if ((val = GETEDICTFIELDVALUE(host_client->edict, eval_pmodel)))
1039                         val->_float = host_client->pmodel;
1040
1041                 // copy spawn parms out of the client_t
1042
1043                 for (i=0 ; i< NUM_SPAWN_PARMS ; i++)
1044                         (&pr_global_struct->parm1)[i] = host_client->spawn_parms[i];
1045
1046                 // call the spawn function
1047
1048                 pr_global_struct->time = sv.time;
1049                 pr_global_struct->self = EDICT_TO_PROG(sv_player);
1050                 PR_ExecuteProgram (pr_global_struct->ClientConnect);
1051
1052                 if ((Sys_FloatTime() - host_client->netconnection->connecttime) <= sv.time)
1053                         Sys_Printf ("%s entered the game\n", host_client->name);
1054
1055                 PR_ExecuteProgram (pr_global_struct->PutClientInServer);        
1056         }
1057
1058
1059 // send time of update
1060         MSG_WriteByte (&host_client->message, svc_time);
1061         MSG_WriteFloat (&host_client->message, sv.time);
1062
1063         for (i=0, client = svs.clients ; i<svs.maxclients ; i++, client++)
1064         {
1065                 MSG_WriteByte (&host_client->message, svc_updatename);
1066                 MSG_WriteByte (&host_client->message, i);
1067                 MSG_WriteString (&host_client->message, client->name);
1068                 MSG_WriteByte (&host_client->message, svc_updatefrags);
1069                 MSG_WriteByte (&host_client->message, i);
1070                 MSG_WriteShort (&host_client->message, client->old_frags);
1071                 MSG_WriteByte (&host_client->message, svc_updatecolors);
1072                 MSG_WriteByte (&host_client->message, i);
1073                 MSG_WriteByte (&host_client->message, client->colors);
1074         }
1075         
1076 // send all current light styles
1077         for (i=0 ; i<MAX_LIGHTSTYLES ; i++)
1078         {
1079                 MSG_WriteByte (&host_client->message, svc_lightstyle);
1080                 MSG_WriteByte (&host_client->message, (char)i);
1081                 MSG_WriteString (&host_client->message, sv.lightstyles[i]);
1082         }
1083
1084 //
1085 // send some stats
1086 //
1087         MSG_WriteByte (&host_client->message, svc_updatestat);
1088         MSG_WriteByte (&host_client->message, STAT_TOTALSECRETS);
1089         MSG_WriteLong (&host_client->message, pr_global_struct->total_secrets);
1090
1091         MSG_WriteByte (&host_client->message, svc_updatestat);
1092         MSG_WriteByte (&host_client->message, STAT_TOTALMONSTERS);
1093         MSG_WriteLong (&host_client->message, pr_global_struct->total_monsters);
1094
1095         MSG_WriteByte (&host_client->message, svc_updatestat);
1096         MSG_WriteByte (&host_client->message, STAT_SECRETS);
1097         MSG_WriteLong (&host_client->message, pr_global_struct->found_secrets);
1098
1099         MSG_WriteByte (&host_client->message, svc_updatestat);
1100         MSG_WriteByte (&host_client->message, STAT_MONSTERS);
1101         MSG_WriteLong (&host_client->message, pr_global_struct->killed_monsters);
1102
1103 //
1104 // send a fixangle
1105 // Never send a roll angle, because savegames can catch the server
1106 // in a state where it is expecting the client to correct the angle
1107 // and it won't happen if the game was just loaded, so you wind up
1108 // with a permanent head tilt
1109         ent = EDICT_NUM( 1 + (host_client - svs.clients) );
1110         MSG_WriteByte (&host_client->message, svc_setangle);
1111         for (i=0 ; i < 2 ; i++)
1112                 MSG_WriteAngle (&host_client->message, ent->v.angles[i] );
1113         MSG_WriteAngle (&host_client->message, 0 );
1114
1115         SV_WriteClientdataToMessage (sv_player, &host_client->message);
1116
1117         MSG_WriteByte (&host_client->message, svc_signonnum);
1118         MSG_WriteByte (&host_client->message, 3);
1119         host_client->sendsignon = true;
1120 }
1121
1122 /*
1123 ==================
1124 Host_Begin_f
1125 ==================
1126 */
1127 void Host_Begin_f (void)
1128 {
1129         if (cmd_source == src_command)
1130         {
1131                 Con_Printf ("begin is not valid from the console\n");
1132                 return;
1133         }
1134
1135         host_client->spawned = true;
1136 }
1137
1138 //===========================================================================
1139
1140
1141 /*
1142 ==================
1143 Host_Kick_f
1144
1145 Kicks a user off of the server
1146 ==================
1147 */
1148 void Host_Kick_f (void)
1149 {
1150         char            *who;
1151         char            *message = NULL;
1152         client_t        *save;
1153         int                     i;
1154         qboolean        byNumber = false;
1155
1156         if (cmd_source == src_command)
1157         {
1158                 if (!sv.active)
1159                 {
1160                         Cmd_ForwardToServer ();
1161                         return;
1162                 }
1163         }
1164         else if (pr_global_struct->deathmatch)
1165                 return;
1166
1167         save = host_client;
1168
1169         if (Cmd_Argc() > 2 && strcmp(Cmd_Argv(1), "#") == 0)
1170         {
1171                 i = atof(Cmd_Argv(2)) - 1;
1172                 if (i < 0 || i >= svs.maxclients)
1173                         return;
1174                 if (!svs.clients[i].active)
1175                         return;
1176                 host_client = &svs.clients[i];
1177                 byNumber = true;
1178         }
1179         else
1180         {
1181                 for (i = 0, host_client = svs.clients; i < svs.maxclients; i++, host_client++)
1182                 {
1183                         if (!host_client->active)
1184                                 continue;
1185                         if (Q_strcasecmp(host_client->name, Cmd_Argv(1)) == 0)
1186                                 break;
1187                 }
1188         }
1189
1190         if (i < svs.maxclients)
1191         {
1192                 if (cmd_source == src_command)
1193                         if (cls.state == ca_dedicated)
1194                                 who = "Console";
1195                         else
1196                                 who = cl_name.string;
1197                 else
1198                         who = save->name;
1199
1200                 // can't kick yourself!
1201                 if (host_client == save)
1202                         return;
1203
1204                 if (Cmd_Argc() > 2)
1205                 {
1206                         message = COM_Parse(Cmd_Args());
1207                         if (byNumber)
1208                         {
1209                                 message++;                                                      // skip the #
1210                                 while (*message == ' ')                         // skip white space
1211                                         message++;
1212                                 message += strlen(Cmd_Argv(2)); // skip the number
1213                         }
1214                         while (*message && *message == ' ')
1215                                 message++;
1216                 }
1217                 if (message)
1218                         SV_ClientPrintf ("Kicked by %s: %s\n", who, message);
1219                 else
1220                         SV_ClientPrintf ("Kicked by %s\n", who);
1221                 SV_DropClient (false);
1222         }
1223
1224         host_client = save;
1225 }
1226
1227 /*
1228 ===============================================================================
1229
1230 DEBUGGING TOOLS
1231
1232 ===============================================================================
1233 */
1234
1235 /*
1236 ==================
1237 Host_Give_f
1238 ==================
1239 */
1240 void Host_Give_f (void)
1241 {
1242         char    *t;
1243         int             v;
1244         eval_t  *val;
1245
1246         if (cmd_source == src_command)
1247         {
1248                 Cmd_ForwardToServer ();
1249                 return;
1250         }
1251
1252         if (pr_global_struct->deathmatch)
1253                 return;
1254
1255         t = Cmd_Argv(1);
1256         v = atoi (Cmd_Argv(2));
1257         
1258         switch (t[0])
1259         {
1260    case '0':
1261    case '1':
1262    case '2':
1263    case '3':
1264    case '4':
1265    case '5':
1266    case '6':
1267    case '7':
1268    case '8':
1269    case '9':
1270       // MED 01/04/97 added hipnotic give stuff
1271       if (hipnotic)
1272       {
1273          if (t[0] == '6')
1274          {
1275             if (t[1] == 'a')
1276                sv_player->v.items = (int)sv_player->v.items | HIT_PROXIMITY_GUN;
1277             else
1278                sv_player->v.items = (int)sv_player->v.items | IT_GRENADE_LAUNCHER;
1279          }
1280          else if (t[0] == '9')
1281             sv_player->v.items = (int)sv_player->v.items | HIT_LASER_CANNON;
1282          else if (t[0] == '0')
1283             sv_player->v.items = (int)sv_player->v.items | HIT_MJOLNIR;
1284          else if (t[0] >= '2')
1285             sv_player->v.items = (int)sv_player->v.items | (IT_SHOTGUN << (t[0] - '2'));
1286       }
1287       else
1288       {
1289          if (t[0] >= '2')
1290             sv_player->v.items = (int)sv_player->v.items | (IT_SHOTGUN << (t[0] - '2'));
1291       }
1292                 break;
1293         
1294     case 's':
1295                 if (rogue)
1296                 {
1297                     if ((val = GETEDICTFIELDVALUE(sv_player, eval_ammo_shells1)))
1298                             val->_float = v;
1299                 }
1300
1301         sv_player->v.ammo_shells = v;
1302         break;          
1303     case 'n':
1304                 if (rogue)
1305                 {
1306                     if ((val = GETEDICTFIELDVALUE(sv_player, eval_ammo_nails1)))
1307                         {
1308                             val->_float = v;
1309                                 if (sv_player->v.weapon <= IT_LIGHTNING)
1310                                         sv_player->v.ammo_nails = v;
1311                         }
1312                 }
1313                 else
1314                 {
1315                         sv_player->v.ammo_nails = v;
1316                 }
1317         break;          
1318     case 'l':
1319                 if (rogue)
1320                 {
1321                         val = GETEDICTFIELDVALUE(sv_player, eval_ammo_lava_nails);
1322                         if (val)
1323                         {
1324                                 val->_float = v;
1325                                 if (sv_player->v.weapon > IT_LIGHTNING)
1326                                         sv_player->v.ammo_nails = v;
1327                         }
1328                 }
1329         break;
1330     case 'r':
1331                 if (rogue)
1332                 {
1333                         val = GETEDICTFIELDVALUE(sv_player, eval_ammo_rockets1);
1334                         if (val)
1335                         {
1336                                 val->_float = v;
1337                                 if (sv_player->v.weapon <= IT_LIGHTNING)
1338                                         sv_player->v.ammo_rockets = v;
1339                         }
1340                 }
1341                 else
1342                 {
1343                         sv_player->v.ammo_rockets = v;
1344                 }
1345         break;          
1346     case 'm':
1347                 if (rogue)
1348                 {
1349                         val = GETEDICTFIELDVALUE(sv_player, eval_ammo_multi_rockets);
1350                         if (val)
1351                         {
1352                                 val->_float = v;
1353                                 if (sv_player->v.weapon > IT_LIGHTNING)
1354                                         sv_player->v.ammo_rockets = v;
1355                         }
1356                 }
1357         break;          
1358     case 'h':
1359         sv_player->v.health = v;
1360         break;          
1361     case 'c':
1362                 if (rogue)
1363                 {
1364                         val = GETEDICTFIELDVALUE(sv_player, eval_ammo_cells1);
1365                         if (val)
1366                         {
1367                                 val->_float = v;
1368                                 if (sv_player->v.weapon <= IT_LIGHTNING)
1369                                         sv_player->v.ammo_cells = v;
1370                         }
1371                 }
1372                 else
1373                 {
1374                         sv_player->v.ammo_cells = v;
1375                 }
1376         break;          
1377     case 'p':
1378                 if (rogue)
1379                 {
1380                         val = GETEDICTFIELDVALUE(sv_player, eval_ammo_plasma);
1381                         if (val)
1382                         {
1383                                 val->_float = v;
1384                                 if (sv_player->v.weapon > IT_LIGHTNING)
1385                                         sv_player->v.ammo_cells = v;
1386                         }
1387                 }
1388         break;          
1389     }
1390 }
1391
1392 edict_t *FindViewthing (void)
1393 {
1394         int             i;
1395         edict_t *e;
1396         
1397         for (i=0 ; i<sv.num_edicts ; i++)
1398         {
1399                 e = EDICT_NUM(i);
1400                 if ( !strcmp (pr_strings + e->v.classname, "viewthing") )
1401                         return e;
1402         }
1403         Con_Printf ("No viewthing on map\n");
1404         return NULL;
1405 }
1406
1407 /*
1408 ==================
1409 Host_Viewmodel_f
1410 ==================
1411 */
1412 void Host_Viewmodel_f (void)
1413 {
1414         edict_t *e;
1415         model_t *m;
1416
1417         e = FindViewthing ();
1418         if (!e)
1419                 return;
1420
1421         m = Mod_ForName (Cmd_Argv(1), false);
1422         if (!m)
1423         {
1424                 Con_Printf ("Can't load %s\n", Cmd_Argv(1));
1425                 return;
1426         }
1427         
1428         e->v.frame = 0;
1429         cl.model_precache[(int)e->v.modelindex] = m;
1430 }
1431
1432 /*
1433 ==================
1434 Host_Viewframe_f
1435 ==================
1436 */
1437 void Host_Viewframe_f (void)
1438 {
1439         edict_t *e;
1440         int             f;
1441         model_t *m;
1442
1443         e = FindViewthing ();
1444         if (!e)
1445                 return;
1446         m = cl.model_precache[(int)e->v.modelindex];
1447
1448         f = atoi(Cmd_Argv(1));
1449         if (f >= m->numframes)
1450                 f = m->numframes-1;
1451
1452         e->v.frame = f;         
1453 }
1454
1455
1456 void PrintFrameName (model_t *m, int frame)
1457 {
1458         aliashdr_t                      *hdr;
1459         maliasframedesc_t       *pframedesc;
1460
1461         hdr = (aliashdr_t *)Mod_Extradata (m);
1462         if (!hdr)
1463                 return;
1464         pframedesc = &hdr->frames[frame];
1465         
1466         Con_Printf ("frame %i: %s\n", frame, pframedesc->name);
1467 }
1468
1469 /*
1470 ==================
1471 Host_Viewnext_f
1472 ==================
1473 */
1474 void Host_Viewnext_f (void)
1475 {
1476         edict_t *e;
1477         model_t *m;
1478         
1479         e = FindViewthing ();
1480         if (!e)
1481                 return;
1482         m = cl.model_precache[(int)e->v.modelindex];
1483
1484         e->v.frame = e->v.frame + 1;
1485         if (e->v.frame >= m->numframes)
1486                 e->v.frame = m->numframes - 1;
1487
1488         PrintFrameName (m, e->v.frame);         
1489 }
1490
1491 /*
1492 ==================
1493 Host_Viewprev_f
1494 ==================
1495 */
1496 void Host_Viewprev_f (void)
1497 {
1498         edict_t *e;
1499         model_t *m;
1500
1501         e = FindViewthing ();
1502         if (!e)
1503                 return;
1504
1505         m = cl.model_precache[(int)e->v.modelindex];
1506
1507         e->v.frame = e->v.frame - 1;
1508         if (e->v.frame < 0)
1509                 e->v.frame = 0;
1510
1511         PrintFrameName (m, e->v.frame);         
1512 }
1513
1514 /*
1515 ===============================================================================
1516
1517 DEMO LOOP CONTROL
1518
1519 ===============================================================================
1520 */
1521
1522
1523 /*
1524 ==================
1525 Host_Startdemos_f
1526 ==================
1527 */
1528 void Host_Startdemos_f (void)
1529 {
1530         int             i, c;
1531
1532         if (cls.state == ca_dedicated)
1533         {
1534                 if (!sv.active)
1535                         Cbuf_AddText ("map start\n");
1536                 return;
1537         }
1538
1539         c = Cmd_Argc() - 1;
1540         if (c > MAX_DEMOS)
1541         {
1542                 Con_Printf ("Max %i demos in demoloop\n", MAX_DEMOS);
1543                 c = MAX_DEMOS;
1544         }
1545         Con_Printf ("%i demo(s) in loop\n", c);
1546
1547         for (i=1 ; i<c+1 ; i++)
1548                 strncpy (cls.demos[i-1], Cmd_Argv(i), sizeof(cls.demos[0])-1);
1549
1550         if (!sv.active && cls.demonum != -1 && !cls.demoplayback)
1551         {
1552                 cls.demonum = 0;
1553                 CL_NextDemo ();
1554         }
1555         else
1556                 cls.demonum = -1;
1557 }
1558
1559
1560 /*
1561 ==================
1562 Host_Demos_f
1563
1564 Return to looping demos
1565 ==================
1566 */
1567 void Host_Demos_f (void)
1568 {
1569         if (cls.state == ca_dedicated)
1570                 return;
1571         if (cls.demonum == -1)
1572                 cls.demonum = 1;
1573         CL_Disconnect_f ();
1574         CL_NextDemo ();
1575 }
1576
1577 /*
1578 ==================
1579 Host_Stopdemo_f
1580
1581 Return to looping demos
1582 ==================
1583 */
1584 void Host_Stopdemo_f (void)
1585 {
1586         if (cls.state == ca_dedicated)
1587                 return;
1588         if (!cls.demoplayback)
1589                 return;
1590         CL_StopPlayback ();
1591         CL_Disconnect ();
1592 }
1593
1594 //=============================================================================
1595
1596 /*
1597 ==================
1598 Host_InitCommands
1599 ==================
1600 */
1601 void Host_InitCommands (void)
1602 {
1603         Cmd_AddCommand ("status", Host_Status_f);
1604         Cmd_AddCommand ("quit", Host_Quit_f);
1605         if (nehahra)
1606         {
1607                 Cmd_AddCommand ("max", Host_God_f);
1608                 Cmd_AddCommand ("monster", Host_Notarget_f);
1609                 Cmd_AddCommand ("scrag", Host_Fly_f);
1610                 Cmd_AddCommand ("wraith", Host_Noclip_f);
1611                 Cmd_AddCommand ("gimme", Host_Give_f);
1612         }
1613         else
1614         {
1615                 Cmd_AddCommand ("god", Host_God_f);
1616                 Cmd_AddCommand ("notarget", Host_Notarget_f);
1617                 Cmd_AddCommand ("fly", Host_Fly_f);
1618                 Cmd_AddCommand ("noclip", Host_Noclip_f);
1619                 Cmd_AddCommand ("give", Host_Give_f);
1620         }
1621         Cmd_AddCommand ("map", Host_Map_f);
1622         Cmd_AddCommand ("restart", Host_Restart_f);
1623         Cmd_AddCommand ("changelevel", Host_Changelevel_f);
1624         Cmd_AddCommand ("connect", Host_Connect_f);
1625         Cmd_AddCommand ("reconnect", Host_Reconnect_f);
1626         Cmd_AddCommand ("name", Host_Name_f);
1627         Cmd_AddCommand ("version", Host_Version_f);
1628         Cmd_AddCommand ("say", Host_Say_f);
1629         Cmd_AddCommand ("say_team", Host_Say_Team_f);
1630         Cmd_AddCommand ("tell", Host_Tell_f);
1631         Cmd_AddCommand ("color", Host_Color_f);
1632         Cmd_AddCommand ("kill", Host_Kill_f);
1633         Cmd_AddCommand ("pause", Host_Pause_f);
1634         Cmd_AddCommand ("spawn", Host_Spawn_f);
1635         Cmd_AddCommand ("begin", Host_Begin_f);
1636         Cmd_AddCommand ("prespawn", Host_PreSpawn_f);
1637         Cmd_AddCommand ("kick", Host_Kick_f);
1638         Cmd_AddCommand ("ping", Host_Ping_f);
1639         Cmd_AddCommand ("load", Host_Loadgame_f);
1640         Cmd_AddCommand ("save", Host_Savegame_f);
1641
1642         Cmd_AddCommand ("startdemos", Host_Startdemos_f);
1643         Cmd_AddCommand ("demos", Host_Demos_f);
1644         Cmd_AddCommand ("stopdemo", Host_Stopdemo_f);
1645
1646         Cmd_AddCommand ("viewmodel", Host_Viewmodel_f);
1647         Cmd_AddCommand ("viewframe", Host_Viewframe_f);
1648         Cmd_AddCommand ("viewnext", Host_Viewnext_f);
1649         Cmd_AddCommand ("viewprev", Host_Viewprev_f);
1650
1651         Cmd_AddCommand ("mcache", Mod_Print);
1652 }