2 Copyright (C) 1996-1997 Id Software, Inc.
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.
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.
13 See the GNU General Public License for more details.
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.
23 // for secure rcon authentication
29 cvar_t cl_name = {CVAR_CLIENT | CVAR_SAVE | CVAR_USERINFO, "name", "player", "change your player name"};
30 cvar_t cl_rate = {CVAR_CLIENT | CVAR_SAVE | CVAR_USERINFO, "rate", "20000", "change your connection speed"};
31 cvar_t cl_rate_burstsize = {CVAR_CLIENT | CVAR_SAVE | CVAR_USERINFO, "rate_burstsize", "1024", "internal storage cvar for current rate control burst size (changed by rate_burstsize command)"};
32 cvar_t cl_topcolor = {CVAR_CLIENT | CVAR_SAVE | CVAR_USERINFO, "topcolor", "0", "change the color of your shirt"};
33 cvar_t cl_bottomcolor = {CVAR_CLIENT | CVAR_SAVE | CVAR_USERINFO, "bottomcolor", "0", "change the color of your pants"};
34 cvar_t cl_team = {CVAR_CLIENT | CVAR_USERINFO | CVAR_SAVE, "team", "none", "QW team (4 character limit, example: blue)"};
35 cvar_t cl_skin = {CVAR_CLIENT | CVAR_USERINFO | CVAR_SAVE, "skin", "", "QW player skin name (example: base)"};
36 cvar_t cl_noaim = {CVAR_CLIENT | CVAR_USERINFO | CVAR_SAVE, "noaim", "1", "QW option to disable vertical autoaim"};
37 cvar_t cl_pmodel = {CVAR_CLIENT | CVAR_USERINFO | CVAR_SAVE, "pmodel", "0", "current player model number in nehahra"};
38 cvar_t r_fixtrans_auto = {CVAR_CLIENT, "r_fixtrans_auto", "0", "automatically fixtrans textures (when set to 2, it also saves the fixed versions to a fixtrans directory)"};
40 extern cvar_t rcon_secure;
41 extern cvar_t rcon_secure_challengetimeout;
47 Sends an entire command string over to the server, unprocessed
50 void CL_ForwardToServer (const char *s)
53 if (cls.state != ca_connected)
55 Con_Printf("Can't \"%s\", not connected\n", s);
62 // LadyHavoc: thanks to Fuh for bringing the pure evil of SZ_Print to my
63 // attention, it has been eradicated from here, its only (former) use in
65 if (cls.protocol == PROTOCOL_QUAKEWORLD)
66 MSG_WriteByte(&cls.netcon->message, qw_clc_stringcmd);
68 MSG_WriteByte(&cls.netcon->message, clc_stringcmd);
69 if ((!strncmp(s, "say ", 4) || !strncmp(s, "say_team ", 9)) && cl_locs_enable.integer)
71 // say/say_team commands can replace % character codes with status info
74 if (*s == '%' && s[1])
76 // handle proquake message macros
80 case 'l': // current location
81 CL_Locs_FindLocationName(temp, sizeof(temp), cl.movement_origin);
83 case 'h': // current health
84 dpsnprintf(temp, sizeof(temp), "%i", cl.stats[STAT_HEALTH]);
86 case 'a': // current armor
87 dpsnprintf(temp, sizeof(temp), "%i", cl.stats[STAT_ARMOR]);
89 case 'x': // current rockets
90 dpsnprintf(temp, sizeof(temp), "%i", cl.stats[STAT_ROCKETS]);
92 case 'c': // current cells
93 dpsnprintf(temp, sizeof(temp), "%i", cl.stats[STAT_CELLS]);
95 // silly proquake macros
96 case 'd': // loc at last death
97 CL_Locs_FindLocationName(temp, sizeof(temp), cl.lastdeathorigin);
99 case 't': // current time
100 dpsnprintf(temp, sizeof(temp), "%.0f:%.0f", floor(cl.time / 60), cl.time - floor(cl.time / 60) * 60);
102 case 'r': // rocket launcher status ("I have RL", "I need rockets", "I need RL")
103 if (!(cl.stats[STAT_ITEMS] & IT_ROCKET_LAUNCHER))
104 dpsnprintf(temp, sizeof(temp), "I need RL");
105 else if (!cl.stats[STAT_ROCKETS])
106 dpsnprintf(temp, sizeof(temp), "I need rockets");
108 dpsnprintf(temp, sizeof(temp), "I have RL");
110 case 'p': // powerup status (outputs "quad" "pent" and "eyes" according to status)
111 if (cl.stats[STAT_ITEMS] & IT_QUAD)
114 strlcat(temp, " ", sizeof(temp));
115 strlcat(temp, "quad", sizeof(temp));
117 if (cl.stats[STAT_ITEMS] & IT_INVULNERABILITY)
120 strlcat(temp, " ", sizeof(temp));
121 strlcat(temp, "pent", sizeof(temp));
123 if (cl.stats[STAT_ITEMS] & IT_INVISIBILITY)
126 strlcat(temp, " ", sizeof(temp));
127 strlcat(temp, "eyes", sizeof(temp));
130 case 'w': // weapon status (outputs "SSG:NG:SNG:GL:RL:LG" with the text between : characters omitted if you lack the weapon)
131 if (cl.stats[STAT_ITEMS] & IT_SUPER_SHOTGUN)
132 strlcat(temp, "SSG", sizeof(temp));
133 strlcat(temp, ":", sizeof(temp));
134 if (cl.stats[STAT_ITEMS] & IT_NAILGUN)
135 strlcat(temp, "NG", sizeof(temp));
136 strlcat(temp, ":", sizeof(temp));
137 if (cl.stats[STAT_ITEMS] & IT_SUPER_NAILGUN)
138 strlcat(temp, "SNG", sizeof(temp));
139 strlcat(temp, ":", sizeof(temp));
140 if (cl.stats[STAT_ITEMS] & IT_GRENADE_LAUNCHER)
141 strlcat(temp, "GL", sizeof(temp));
142 strlcat(temp, ":", sizeof(temp));
143 if (cl.stats[STAT_ITEMS] & IT_ROCKET_LAUNCHER)
144 strlcat(temp, "RL", sizeof(temp));
145 strlcat(temp, ":", sizeof(temp));
146 if (cl.stats[STAT_ITEMS] & IT_LIGHTNING)
147 strlcat(temp, "LG", sizeof(temp));
150 // not a recognized macro, print it as-is...
156 // write the resulting text
157 SZ_Write(&cls.netcon->message, (unsigned char *)temp, (int)strlen(temp));
161 MSG_WriteByte(&cls.netcon->message, *s);
164 MSG_WriteByte(&cls.netcon->message, 0);
166 else // any other command is passed on as-is
167 SZ_Write(&cls.netcon->message, (const unsigned char *)s, (int)strlen(s) + 1);
170 void CL_ForwardToServer_f (cmd_state_t *cmd)
173 char vabuf[MAX_INPUTLINE];
175 if (!strcasecmp(Cmd_Argv(cmd, 0), "cmd"))
177 // we want to strip off "cmd", so just send the args
178 s = Cmd_Argc(cmd) > 1 ? Cmd_Args(cmd) : "";
182 // we need to keep the command name, so send Cmd_Argv(cmd, 0), a space and then Cmd_Args(cmd)
183 i = dpsnprintf(vabuf, sizeof(vabuf), "%s", Cmd_Argv(cmd, 0));
184 if(Cmd_Argc(cmd) > 1)
185 // (i + 1) accounts for the added space
186 dpsnprintf(&vabuf[i], sizeof(vabuf) - (i + 1), " %s", Cmd_Args(cmd));
189 // don't send an empty forward message if the user tries "cmd" by itself
192 CL_ForwardToServer(s);
195 static void CL_SendCvar_f(cmd_state_t *cmd)
198 const char *cvarname;
201 if(Cmd_Argc(cmd) != 2)
203 cvarname = Cmd_Argv(cmd, 1);
204 if (cls.state == ca_connected)
206 c = Cvar_FindVar(&cvars_all, cvarname, CVAR_CLIENT | CVAR_SERVER);
207 // LadyHavoc: if there is no such cvar or if it is private, send a
208 // reply indicating that it has no value
209 if(!c || (c->flags & CVAR_PRIVATE))
210 CL_ForwardToServer(va(vabuf, sizeof(vabuf), "sentcvar %s", cvarname));
212 CL_ForwardToServer(va(vabuf, sizeof(vabuf), "sentcvar %s \"%s\"", c->name, c->string));
222 cvar_t cl_color = {CVAR_CLIENT | CVAR_SAVE, "_cl_color", "0", "internal storage cvar for current player colors (changed by color command)"};
224 // Ignore the callbacks so this two-to-three way synchronization doesn't cause an infinite loop.
225 static void CL_Color_c(cvar_t *var)
229 Cvar_Set_NoCallback(&cl_topcolor, va(vabuf, sizeof(vabuf), "%i", ((var->integer >> 4) & 15)));
230 Cvar_Set_NoCallback(&cl_bottomcolor, va(vabuf, sizeof(vabuf), "%i", (var->integer & 15)));
233 static void CL_Topcolor_c(cvar_t *var)
237 Cvar_Set_NoCallback(&cl_color, va(vabuf, sizeof(vabuf), "%i", var->integer*16 + cl_bottomcolor.integer));
240 static void CL_Bottomcolor_c(cvar_t *var)
244 Cvar_Set_NoCallback(&cl_color, va(vabuf, sizeof(vabuf), "%i", cl_topcolor.integer*16 + var->integer));
247 static void CL_Color_f(cmd_state_t *cmd)
251 if (Cmd_Argc(cmd) == 1)
253 if (cmd->source == src_command)
255 Con_Printf("\"color\" is \"%i %i\"\n", cl_topcolor.integer, cl_bottomcolor.integer);
256 Con_Print("color <0-15> [0-15]\n");
261 if (Cmd_Argc(cmd) == 2)
262 top = bottom = atoi(Cmd_Argv(cmd, 1));
265 top = atoi(Cmd_Argv(cmd, 1));
266 bottom = atoi(Cmd_Argv(cmd, 2));
269 * This is just a convenient way to change topcolor and bottomcolor
270 * We can't change cl_color from here directly because topcolor and
271 * bottomcolor may be changed separately and do not call this function.
272 * So it has to be changed when the userinfo strings are updated, which
273 * happens twice here. Perhaps find a cleaner way?
276 top = top >= 0 ? top : cl_topcolor.integer;
277 bottom = bottom >= 0 ? bottom : cl_bottomcolor.integer;
282 // LadyHavoc: allowing skin colormaps 14 and 15 by commenting this out
288 if (cmd->source == src_command)
290 Cvar_SetValueQuick(&cl_topcolor, top);
291 Cvar_SetValueQuick(&cl_bottomcolor, bottom);
300 packet <destination> <contents>
302 Contents allows \n escape character
305 static void CL_Packet_f(cmd_state_t *cmd) // credit: taken from QuakeWorld
311 lhnetaddress_t address;
312 lhnetsocket_t *mysocket;
314 if (Cmd_Argc(cmd) != 3)
316 Con_Printf ("packet <destination> <contents>\n");
320 if (!LHNETADDRESS_FromString (&address, Cmd_Argv(cmd, 1), sv_netport.integer))
322 Con_Printf ("Bad address\n");
326 in = Cmd_Argv(cmd, 2);
328 send[0] = send[1] = send[2] = send[3] = -1;
330 l = (int)strlen (in);
331 for (i=0 ; i<l ; i++)
333 if (out >= send + sizeof(send) - 1)
335 if (in[i] == '\\' && in[i+1] == 'n')
340 else if (in[i] == '\\' && in[i+1] == '0')
345 else if (in[i] == '\\' && in[i+1] == 't')
350 else if (in[i] == '\\' && in[i+1] == 'r')
355 else if (in[i] == '\\' && in[i+1] == '"')
364 mysocket = NetConn_ChooseClientSocketForAddress(&address);
366 mysocket = NetConn_ChooseServerSocketForAddress(&address);
368 NetConn_Write(mysocket, send, out - send, &address);
372 =====================
375 ProQuake rcon support
376 =====================
378 static void CL_PQRcon_f(cmd_state_t *cmd)
382 lhnetsocket_t *mysocket;
384 if (Cmd_Argc(cmd) == 1)
386 Con_Printf("%s: Usage: %s command\n", Cmd_Argv(cmd, 0), Cmd_Argv(cmd, 0));
390 if (!rcon_password.string || !rcon_password.string[0] || rcon_secure.integer > 0)
392 Con_Printf ("You must set rcon_password before issuing an pqrcon command, and rcon_secure must be 0.\n");
396 e = strchr(rcon_password.string, ' ');
397 n = e ? e-rcon_password.string : (int)strlen(rcon_password.string);
400 cls.rcon_address = cls.netcon->peeraddress;
403 if (!rcon_address.string[0])
405 Con_Printf ("You must either be connected, or set the rcon_address cvar to issue rcon commands\n");
408 LHNETADDRESS_FromString(&cls.rcon_address, rcon_address.string, sv_netport.integer);
410 mysocket = NetConn_ChooseClientSocketForAddress(&cls.rcon_address);
414 unsigned char bufdata[64];
417 MSG_WriteLong(&buf, 0);
418 MSG_WriteByte(&buf, CCREQ_RCON);
419 SZ_Write(&buf, (const unsigned char*)rcon_password.string, n);
420 MSG_WriteByte(&buf, 0); // terminate the (possibly partial) string
421 MSG_WriteString(&buf, Cmd_Args(cmd));
422 StoreBigLong(buf.data, NETFLAG_CTL | (buf.cursize & NETFLAG_LENGTH_MASK));
423 NetConn_Write(mysocket, buf.data, buf.cursize, &cls.rcon_address);
429 =====================
432 Send the rest of the command line over as
433 an unconnected command.
434 =====================
436 static void CL_Rcon_f(cmd_state_t *cmd) // credit: taken from QuakeWorld
440 lhnetsocket_t *mysocket;
442 if (Cmd_Argc(cmd) == 1)
444 Con_Printf("%s: Usage: %s command\n", Cmd_Argv(cmd, 0), Cmd_Argv(cmd, 0));
448 if (!rcon_password.string || !rcon_password.string[0])
450 Con_Printf ("You must set rcon_password before issuing an rcon command.\n");
454 e = strchr(rcon_password.string, ' ');
455 n = e ? e-rcon_password.string : (int)strlen(rcon_password.string);
458 cls.rcon_address = cls.netcon->peeraddress;
461 if (!rcon_address.string[0])
463 Con_Printf ("You must either be connected, or set the rcon_address cvar to issue rcon commands\n");
466 LHNETADDRESS_FromString(&cls.rcon_address, rcon_address.string, sv_netport.integer);
468 mysocket = NetConn_ChooseClientSocketForAddress(&cls.rcon_address);
469 if (mysocket && Cmd_Args(cmd)[0])
471 // simply put together the rcon packet and send it
472 if(Cmd_Argv(cmd, 0)[0] == 's' || rcon_secure.integer > 1)
474 if(cls.rcon_commands[cls.rcon_ringpos][0])
477 LHNETADDRESS_ToString(&cls.rcon_addresses[cls.rcon_ringpos], s, sizeof(s), true);
478 Con_Printf("rcon to %s (for command %s) failed: too many buffered commands (possibly increase MAX_RCONS)\n", s, cls.rcon_commands[cls.rcon_ringpos]);
479 cls.rcon_commands[cls.rcon_ringpos][0] = 0;
482 for (i = 0;i < MAX_RCONS;i++)
483 if(cls.rcon_commands[i][0])
484 if (!LHNETADDRESS_Compare(&cls.rcon_address, &cls.rcon_addresses[i]))
488 NetConn_WriteString(mysocket, "\377\377\377\377getchallenge", &cls.rcon_address); // otherwise we'll request the challenge later
489 strlcpy(cls.rcon_commands[cls.rcon_ringpos], Cmd_Args(cmd), sizeof(cls.rcon_commands[cls.rcon_ringpos]));
490 cls.rcon_addresses[cls.rcon_ringpos] = cls.rcon_address;
491 cls.rcon_timeout[cls.rcon_ringpos] = host.realtime + rcon_secure_challengetimeout.value;
492 cls.rcon_ringpos = (cls.rcon_ringpos + 1) % MAX_RCONS;
494 else if(rcon_secure.integer > 0)
498 dpsnprintf(argbuf, sizeof(argbuf), "%ld.%06d %s", (long) time(NULL), (int) (rand() % 1000000), Cmd_Args(cmd));
499 memcpy(buf, "\377\377\377\377srcon HMAC-MD4 TIME ", 24);
500 if(HMAC_MDFOUR_16BYTES((unsigned char *) (buf + 24), (unsigned char *) argbuf, (int)strlen(argbuf), (unsigned char *) rcon_password.string, n))
503 strlcpy(buf + 41, argbuf, sizeof(buf) - 41);
504 NetConn_Write(mysocket, buf, 41 + (int)strlen(buf + 41), &cls.rcon_address);
510 memcpy(buf, "\377\377\377\377", 4);
511 dpsnprintf(buf+4, sizeof(buf)-4, "rcon %.*s %s", n, rcon_password.string, Cmd_Args(cmd));
512 NetConn_WriteString(mysocket, buf, &cls.rcon_address);
521 Sent by server when serverinfo changes
524 // TODO: shouldn't this be a cvar instead?
525 static void CL_FullServerinfo_f(cmd_state_t *cmd) // credit: taken from QuakeWorld
528 if (Cmd_Argc(cmd) != 2)
530 Con_Printf ("usage: fullserverinfo <complete info string>\n");
534 strlcpy (cl.qw_serverinfo, Cmd_Argv(cmd, 1), sizeof(cl.qw_serverinfo));
535 InfoString_GetValue(cl.qw_serverinfo, "teamplay", temp, sizeof(temp));
536 cl.qw_teamplay = atoi(temp);
543 Allow clients to change userinfo
547 static void CL_FullInfo_f(cmd_state_t *cmd) // credit: taken from QuakeWorld
553 if (Cmd_Argc(cmd) != 2)
555 Con_Printf ("fullinfo <complete info string>\n");
559 s = Cmd_Argv(cmd, 1);
564 size_t len = strcspn(s, "\\");
565 if (len >= sizeof(key)) {
566 len = sizeof(key) - 1;
568 strlcpy(key, s, len + 1);
572 Con_Printf ("MISSING VALUE\n");
575 ++s; // Skip over backslash.
577 len = strcspn(s, "\\");
578 if (len >= sizeof(value)) {
579 len = sizeof(value) - 1;
581 strlcpy(value, s, len + 1);
583 CL_SetInfo(key, value, false, false, false, false);
590 ++s; // Skip over backslash.
598 Allow clients to change userinfo
601 static void CL_SetInfo_f(cmd_state_t *cmd) // credit: taken from QuakeWorld
603 if (Cmd_Argc(cmd) == 1)
605 InfoString_Print(cls.userinfo);
608 if (Cmd_Argc(cmd) != 3)
610 Con_Printf ("usage: setinfo [ <key> <value> ]\n");
613 CL_SetInfo(Cmd_Argv(cmd, 1), Cmd_Argv(cmd, 2), true, false, false, false);
616 static void CL_PingPLReport_f(cmd_state_t *cmd)
620 int l = Cmd_Argc(cmd);
621 if (l > cl.maxclients)
623 for (i = 0;i < l;i++)
625 cl.scores[i].qw_ping = atoi(Cmd_Argv(cmd, 1+i*2));
626 cl.scores[i].qw_packetloss = strtol(Cmd_Argv(cmd, 1+i*2+1), &errbyte, 0);
627 if(errbyte && *errbyte == ',')
628 cl.scores[i].qw_movementloss = atoi(errbyte + 1);
630 cl.scores[i].qw_movementloss = 0;
634 void CL_InitCommands(void)
636 dpsnprintf(cls.userinfo, sizeof(cls.userinfo), "\\name\\player\\team\\none\\topcolor\\0\\bottomcolor\\0\\rate\\10000\\msg\\1\\noaim\\1\\*ver\\dp");
638 Cvar_RegisterVariable(&cl_name);
639 Cvar_RegisterAlias(&cl_name, "_cl_name");
640 Cvar_RegisterVariable(&cl_rate);
641 Cvar_RegisterAlias(&cl_rate, "_cl_rate");
642 Cvar_RegisterVariable(&cl_rate_burstsize);
643 Cvar_RegisterAlias(&cl_rate_burstsize, "_cl_rate_burstsize");
644 Cvar_RegisterVariable(&cl_pmodel);
645 Cvar_RegisterAlias(&cl_pmodel, "_cl_pmodel");
646 Cvar_RegisterVariable(&cl_color);
647 Cvar_RegisterCallback(&cl_color, CL_Color_c);
648 Cvar_RegisterVariable(&cl_topcolor);
649 Cvar_RegisterCallback(&cl_topcolor, CL_Topcolor_c);
650 Cvar_RegisterVariable(&cl_bottomcolor);
651 Cvar_RegisterCallback(&cl_bottomcolor, CL_Bottomcolor_c);
652 Cvar_RegisterVariable(&r_fixtrans_auto);
653 Cvar_RegisterVariable(&cl_team);
654 Cvar_RegisterVariable(&cl_skin);
655 Cvar_RegisterVariable(&cl_noaim);
657 Cmd_AddCommand(CMD_CLIENT | CMD_CLIENT_FROM_SERVER, "cmd", CL_ForwardToServer_f, "send a console commandline to the server (used by some mods)");
658 Cmd_AddCommand(CMD_CLIENT, "color", CL_Color_f, "change your player shirt and pants colors");
659 Cmd_AddCommand(CMD_CLIENT, "rcon", CL_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); note: if rcon_secure is set, client and server clocks must be synced e.g. via NTP");
660 Cmd_AddCommand(CMD_CLIENT, "srcon", CL_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); this always works as if rcon_secure is set; note: client and server clocks must be synced e.g. via NTP");
661 Cmd_AddCommand(CMD_CLIENT, "pqrcon", CL_PQRcon_f, "sends a command to a proquake 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)");
662 Cmd_AddCommand(CMD_CLIENT, "packet", CL_Packet_f, "send a packet to the specified address:port containing a text string");
663 Cmd_AddCommand(CMD_CLIENT, "fullinfo", CL_FullInfo_f, "allows client to modify their userinfo");
664 Cmd_AddCommand(CMD_CLIENT, "setinfo", CL_SetInfo_f, "modifies your userinfo");
665 Cmd_AddCommand(CMD_CLIENT, "sendcvar", CL_SendCvar_f, "sends the value of a cvar to the server as a sentcvar command, for use by QuakeC");
666 Cmd_AddCommand(CMD_CLIENT, "fixtrans", Image_FixTransparentPixels_f, "change alpha-zero pixels in an image file to sensible values, and write out a new TGA (warning: SLOW)");
668 // commands that are only sent by server to client for execution
669 Cmd_AddCommand(CMD_CLIENT_FROM_SERVER, "pingplreport", CL_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)");
670 Cmd_AddCommand(CMD_CLIENT_FROM_SERVER, "fullserverinfo", CL_FullServerinfo_f, "internal use only, sent by server to client to update client's local copy of serverinfo string");