1 // ====================================================
2 // Shared code for server commands, written by Samual
3 // Last updated: December 27th, 2011
4 // ====================================================
6 // select the proper prefix for usage and other messages
7 string GetCommandPrefix(entity caller)
15 // if client return player nickname, or if server return admin nickname
16 string GetCallerName(entity caller)
19 return caller.netname;
21 return admin_name(); //((autocvar_sv_adminnick != "") ? autocvar_sv_adminnick : autocvar_hostname);
24 // verify that the client provided is acceptable for use
25 float VerifyClientEntity(entity client, float must_be_real, float must_be_bots)
27 if not(client.flags & FL_CLIENT)
28 return CLIENT_DOESNT_EXIST;
29 else if(must_be_real && (clienttype(client) != CLIENTTYPE_REAL))
30 return CLIENT_NOT_REAL;
31 else if(must_be_bots && (clienttype(client) != CLIENTTYPE_BOT))
32 return CLIENT_NOT_BOT;
34 return CLIENT_ACCEPTABLE;
37 // if the client is not acceptable, return a string to be used for error messages
38 string GetClientErrorString(float clienterror, string original_input)
42 case CLIENT_DOESNT_EXIST: { return strcat("Client '", original_input, "' doesn't exist"); }
43 case CLIENT_NOT_REAL: { return strcat("Client '", original_input, "' is not real"); }
44 case CLIENT_NOT_BOT: { return strcat("Client '", original_input, "' is not a bot"); }
45 default: { return "Incorrect usage of GetClientErrorString"; }
49 // is this entity number even in the possible range of entities?
50 float VerifyClientNumber(float tmp_number)
52 if((tmp_number < 1) || (tmp_number > maxclients))
58 entity GetIndexedEntity(float argc, float start_index)
60 entity tmp_player, selection;
61 float tmp_number, index;
67 if(argc > start_index)
69 if(substring(argv(index), 0, 1) == "#")
71 tmp_string = substring(argv(index), 1, -1);
74 if(tmp_string != "") // is it all one token? like #1
76 tmp_number = stof(tmp_string);
78 else if(argc > index) // no, it's two tokens? # 1
80 tmp_number = stof(argv(index));
84 else // maybe it's ONLY a number?
86 tmp_number = stof(argv(index));
90 if(VerifyClientNumber(tmp_number))
92 selection = edict_num(tmp_number); // yes, it was a number
94 else // no, maybe it's a name?
96 FOR_EACH_CLIENT(tmp_player)
97 if (strdecolorize(tmp_player.netname) == strdecolorize(argv(start_index)))
98 selection = tmp_player;
100 index = (start_index + 1);
105 print(strcat("start_index: ", ftos(start_index), ", next_token: ", ftos(next_token), ", edict: ", ftos(num_for_edict(selection)), ".\n"));
109 // find a player which matches the input string, and return their entity
110 entity GetFilteredEntity(string input)
112 entity tmp_player, selection;
115 if(substring(input, 0, 1) == "#")
116 tmp_number = stof(substring(input, 1, -1));
118 tmp_number = stof(input);
120 if(VerifyClientNumber(tmp_number))
122 selection = edict_num(tmp_number);
126 FOR_EACH_CLIENT(tmp_player)
127 if (strdecolorize(tmp_player.netname) == strdecolorize(input))
128 selection = tmp_player;
134 // same thing, but instead return their edict number
135 float GetFilteredNumber(string input)
137 entity selection = GetFilteredEntity(input);
140 if(selection) { output = num_for_edict(selection); }
145 // switch between sprint and print depending on whether the reciever is the server or a player
146 void print_to(entity to, string input)
149 sprint(to, strcat(input, "\n"));
154 // ==========================================
155 // Supporting functions for common commands
156 // ==========================================
158 // used by CommonCommand_timeout() and CommonCommand_timein() to handle game pausing and messaging and such.
159 void timeout_handler_reset()
163 timeout_caller = world;
165 timeout_leadtime = 0;
167 FOR_EACH_REALPLAYER(tmp_player)
168 Send_CSQC_Centerprint_Generic_Expire(tmp_player, CPID_TIMEOUT_COUNTDOWN);
173 void timeout_handler_think()
177 switch(timeout_status)
181 if(timeout_time > 0) // countdown is still going
183 FOR_EACH_REALPLAYER(tmp_player)
184 Send_CSQC_Centerprint_Generic(tmp_player, CPID_TIMEOUT_COUNTDOWN, "Timeout ends in %d seconds!", 1, timeout_time);
186 if(timeout_time == autocvar_sv_timeout_resumetime) // play a warning sound when only <sv_timeout_resumetime> seconds are left
187 Announce("prepareforbattle");
189 self.nextthink = time + TIMEOUT_SLOWMO_VALUE; // think again in one second
190 timeout_time -= 1; // decrease the time counter
192 else // time to end the timeout
194 timeout_status = TIMEOUT_INACTIVE;
196 // reset the slowmo value back to normal
197 cvar_set("slowmo", ftos(orig_slowmo));
199 // unlock the view for players so they can move around again
200 FOR_EACH_REALPLAYER(tmp_player)
201 tmp_player.fixangle = FALSE;
203 timeout_handler_reset();
209 case TIMEOUT_LEADTIME:
211 if (timeout_leadtime > 0) // countdown is still going
213 // centerprint the information to every player
214 FOR_EACH_REALPLAYER(tmp_player)
215 Send_CSQC_Centerprint_Generic(tmp_player, CPID_TIMEOUT_COUNTDOWN, "Timeout begins in %d seconds!", 1, timeout_leadtime);
217 self.nextthink = time + 1; // think again in one second
218 timeout_leadtime -= 1; // decrease the time counter
220 else // time to begin the timeout
222 timeout_status = TIMEOUT_ACTIVE;
224 // set the slowmo value to the timeout default slowmo value
225 cvar_set("slowmo", ftos(TIMEOUT_SLOWMO_VALUE));
227 // reset all the flood variables
228 FOR_EACH_CLIENT(tmp_player)
229 tmp_player.nickspamcount = tmp_player.nickspamtime = tmp_player.floodcontrol_chat =
230 tmp_player.floodcontrol_chatteam = tmp_player.floodcontrol_chattell =
231 tmp_player.floodcontrol_voice = tmp_player.floodcontrol_voiceteam = 0;
233 // copy .v_angle to .lastV_angle for every player in order to fix their view during pause (see PlayerPreThink)
234 FOR_EACH_REALPLAYER(tmp_player)
235 tmp_player.lastV_angle = tmp_player.v_angle;
237 self.nextthink = time; // think again next frame to handle it under TIMEOUT_ACTIVE code
244 case TIMEOUT_INACTIVE:
247 timeout_handler_reset();
255 // ===================================================
256 // Common commands used in both sv_cmd.qc and cmd.qc
257 // ===================================================
259 void CommonCommand_cvar_changes(float request, entity caller)
263 case CMD_REQUEST_COMMAND:
265 print_to(caller, cvar_changes);
266 return; // never fall through to usage
270 case CMD_REQUEST_USAGE:
272 print_to(caller, strcat("\nUsage:^3 ", GetCommandPrefix(caller), " cvar_changes"));
273 print_to(caller, " No arguments required.");
274 print_to(caller, "See also: ^2cvar_purechanges^7");
280 void CommonCommand_cvar_purechanges(float request, entity caller)
284 case CMD_REQUEST_COMMAND:
286 print_to(caller, cvar_purechanges);
287 return; // never fall through to usage
291 case CMD_REQUEST_USAGE:
293 print_to(caller, strcat("\nUsage:^3 ", GetCommandPrefix(caller), " cvar_purechanges"));
294 print_to(caller, " No arguments required.");
295 print_to(caller, "See also: ^2cvar_changes^7");
301 void CommonCommand_info(float request, entity caller, float argc) // legacy
305 case CMD_REQUEST_COMMAND:
307 string command = builtin_cvar_string(strcat("sv_info_", argv(1)));
310 wordwrap_sprint(command, 1000);
312 print_to(caller, "ERROR: unsupported info command");
314 return; // never fall through to usage
318 case CMD_REQUEST_USAGE:
320 print_to(caller, strcat("\nUsage:^3 ", GetCommandPrefix(caller), " info request"));
321 print_to(caller, " Where 'request' is the suffixed string appended onto the request for cvar.");
327 void CommonCommand_ladder(float request, entity caller)
331 case CMD_REQUEST_COMMAND:
333 print_to(caller, ladder_reply);
334 return; // never fall through to usage
338 case CMD_REQUEST_USAGE:
340 print_to(caller, strcat("\nUsage:^3 ", GetCommandPrefix(caller), " ladder"));
341 print_to(caller, " No arguments required.");
347 void CommonCommand_lsmaps(float request, entity caller)
351 case CMD_REQUEST_COMMAND:
353 print_to(caller, lsmaps_reply);
354 return; // never fall through to usage
358 case CMD_REQUEST_USAGE:
360 print_to(caller, strcat("\nUsage:^3 ", GetCommandPrefix(caller), " lsmaps"));
361 print_to(caller, " No arguments required.");
367 void CommonCommand_lsnewmaps(float request, entity caller)
371 case CMD_REQUEST_COMMAND:
373 print_to(caller, lsnewmaps_reply);
374 return; // never fall through to usage
378 case CMD_REQUEST_USAGE:
380 print_to(caller, strcat("\nUsage:^3 ", GetCommandPrefix(caller), " lsnewmaps"));
381 print_to(caller, " No arguments required.");
387 void CommonCommand_maplist(float request, entity caller)
391 case CMD_REQUEST_COMMAND:
393 print_to(caller, maplist_reply);
394 return; // never fall through to usage
398 case CMD_REQUEST_USAGE:
400 print_to(caller, strcat("\nUsage:^3 ", GetCommandPrefix(caller), " maplist"));
401 print_to(caller, " No arguments required.");
408 void GameCommand_rankings(float request) // this is OLD.... jeez.
412 case CMD_REQUEST_COMMAND:
414 strunzone(rankings_reply);
415 rankings_reply = strzone(getrankings());
416 print(rankings_reply);
421 case CMD_REQUEST_USAGE:
423 print("\nUsage:^3 sv_cmd rankings");
424 print(" No arguments required.");
431 void CommonCommand_rankings(float request, entity caller)
435 case CMD_REQUEST_COMMAND:
437 print_to(caller, rankings_reply);
438 return; // never fall through to usage
442 case CMD_REQUEST_USAGE:
444 print_to(caller, strcat("\nUsage:^3 ", GetCommandPrefix(caller), " rankings"));
445 print_to(caller, " No arguments required.");
451 void CommonCommand_records(float request, entity caller)
455 case CMD_REQUEST_COMMAND:
459 for(i = 0; i < 10; ++i)
460 print_to(caller, records_reply[i]);
462 return; // never fall through to usage
466 case CMD_REQUEST_USAGE:
468 print_to(caller, strcat("\nUsage:^3 ", GetCommandPrefix(caller), " records"));
469 print_to(caller, " No arguments required.");
475 void CommonCommand_teamstatus(float request, entity caller)
479 case CMD_REQUEST_COMMAND:
481 Score_NicePrint(caller);
482 return; // never fall through to usage
486 case CMD_REQUEST_USAGE:
488 print_to(caller, strcat("\nUsage:^3 ", GetCommandPrefix(caller), " teamstatus"));
489 print_to(caller, " No arguments required.");
495 void CommonCommand_time(float request, entity caller)
499 case CMD_REQUEST_COMMAND:
501 print_to(caller, strcat("time = ", ftos(time)));
502 print_to(caller, strcat("frame start = ", ftos(gettime(GETTIME_FRAMESTART))));
503 print_to(caller, strcat("realtime = ", ftos(gettime(GETTIME_REALTIME))));
504 print_to(caller, strcat("hires = ", ftos(gettime(GETTIME_HIRES))));
505 print_to(caller, strcat("uptime = ", ftos(gettime(GETTIME_UPTIME))));
506 print_to(caller, strcat("localtime = ", strftime(TRUE, "%a %b %e %H:%M:%S %Z %Y")));
507 print_to(caller, strcat("gmtime = ", strftime(FALSE, "%a %b %e %H:%M:%S %Z %Y")));
512 case CMD_REQUEST_USAGE:
514 print_to(caller, strcat("\nUsage:^3 ", GetCommandPrefix(caller), " time"));
515 print_to(caller, " No arguments required.");
521 void CommonCommand_timein(float request, entity caller)
525 case CMD_REQUEST_COMMAND:
527 if(autocvar_sv_timeout)
529 if not(timeout_status) { print_to(caller, "^7Error: There is no active timeout called."); }
530 else if(caller && (caller != timeout_caller)) { print_to(caller, "^7Error: You are not allowed to stop the active timeout."); }
532 else // everything should be okay, continue aborting timeout
534 switch(timeout_status)
536 case TIMEOUT_LEADTIME:
538 timeout_status = TIMEOUT_INACTIVE;
540 timeout_handler.nextthink = time; // timeout_handler has to take care of it immediately
541 bprint(strcat("^7The timeout was aborted by ", caller.netname, " !\n"));
547 timeout_time = autocvar_sv_timeout_resumetime;
548 timeout_handler.nextthink = time; // timeout_handler has to take care of it immediately
549 bprint(strcat("^1Attention: ^7", caller.netname, " resumed the game! Prepare for battle!\n"));
553 default: dprint("timeout status was inactive, but this code was executed anyway?"); return;
557 return; // never fall through to usage
561 case CMD_REQUEST_USAGE:
563 print_to(caller, strcat("\nUsage:^3 ", GetCommandPrefix(caller), " timein"));
564 print_to(caller, " No arguments required.");
570 void CommonCommand_timeout(float request, entity caller) // DEAR GOD THIS COMMAND IS TERRIBLE.
574 case CMD_REQUEST_COMMAND:
576 if(autocvar_sv_timeout)
578 float last_possible_timeout = ((autocvar_timelimit * 60) - autocvar_sv_timeout_leadtime - 1);
580 if(timeout_status) { print_to(caller, "^7Error: A timeout is already active."); }
581 else if(vote_called) { print_to(caller, "^7Error: You can not call a timeout while a vote is active."); }
582 else if(inWarmupStage && !g_warmup_allow_timeout) { print_to(caller, "^7Error: You can not call a timeout in warmup-stage."); }
583 else if(time < game_starttime) { print_to(caller, "^7Error: You can not call a timeout while the map is being restarted."); }
584 else if(caller && (caller.allowed_timeouts < 1)) { print_to(caller, "^7Error: You already used all your timeout calls for this map."); }
585 else if(caller && (caller.classname != "player")) { print_to(caller, "^7Error: You must be a player to call a timeout."); }
586 else if((autocvar_timelimit) && (last_possible_timeout < time - game_starttime)) { print_to(caller, "^7Error: It is too late to call a timeout now!"); }
588 else // everything should be okay, proceed with starting the timeout
590 if(caller) { caller.allowed_timeouts -= 1; }
592 bprint(GetCallerName(caller), " ^7called a timeout", (caller ? strcat(" (", ftos(caller.allowed_timeouts), " timeout(s) left)") : string_null), "!\n"); // write a bprint who started the timeout (and how many they have left)
594 timeout_status = TIMEOUT_LEADTIME;
595 timeout_caller = caller;
596 timeout_time = autocvar_sv_timeout_length;
597 timeout_leadtime = autocvar_sv_timeout_leadtime;
599 timeout_handler = spawn();
600 timeout_handler.think = timeout_handler_think;
601 timeout_handler.nextthink = time; // always let the entity think asap
603 Announce("timeoutcalled");
606 return; // never fall through to usage
610 case CMD_REQUEST_USAGE:
612 print_to(caller, strcat("\nUsage:^3 ", GetCommandPrefix(caller), " timeout"));
613 print_to(caller, " No arguments required.");
619 void CommonCommand_who(float request, entity caller, float argc)
623 case CMD_REQUEST_COMMAND:
625 float total_listed_players, tmp_hours, tmp_minutes, tmp_seconds, is_bot;
628 float privacy = (caller && autocvar_sv_status_privacy);
629 string separator = strreplace("%", " ", strcat((argv(1) ? argv(1) : " "), "^7"));
630 string tmp_netaddress, tmp_crypto_idfp;
632 print_to(caller, strcat("List of client information", (privacy ? " (some data is hidden for privacy)" : string_null), ":"));
633 print_to(caller, sprintf(strreplace(" ", separator, " %-4s %-20s %-5s %-3s %-9s %-16s %s "),
634 "ent", "nickname", "ping", "pl", "time", "ip", "crypto_id"));
636 FOR_EACH_CLIENT(tmp_player)
638 is_bot = (clienttype(tmp_player) == CLIENTTYPE_BOT);
642 tmp_netaddress = "null/botclient";
643 tmp_crypto_idfp = "null/botclient";
647 tmp_netaddress = "hidden";
648 tmp_crypto_idfp = "hidden";
652 tmp_netaddress = tmp_player.netaddress;
653 tmp_crypto_idfp = tmp_player.crypto_idfp;
656 tmp_hours = tmp_minutes = tmp_seconds = 0;
658 tmp_seconds = floor(time - tmp_player.jointime);
659 tmp_minutes = floor(tmp_seconds / 60);
660 tmp_hours = floor(tmp_minutes / 60);
662 if(tmp_minutes) { tmp_seconds -= (tmp_minutes * 60); }
663 if(tmp_hours) { tmp_minutes -= (tmp_hours * 60); }
665 print_to(caller, sprintf(strreplace(" ", separator, " #%-3d %-20.20s %-5d %-3d %-9s %-16s %s "),
666 num_for_edict(tmp_player),
669 tmp_player.ping_packetloss,
670 sprintf("%02d:%02d:%02d", tmp_hours, tmp_minutes, tmp_seconds),
674 ++total_listed_players;
677 print_to(caller, strcat("Finished listing ", ftos(total_listed_players), " client(s) out of ", ftos(maxclients), " slots."));
679 return; // never fall through to usage
683 case CMD_REQUEST_USAGE:
685 print_to(caller, strcat("\nUsage:^3 ", GetCommandPrefix(caller), " who [separator]"));
686 print_to(caller, " Where 'separator' is the optional string to separate the values with, default is a space.");
692 /* use this when creating a new command, making sure to place it in alphabetical order... also,
693 ** ADD ALL NEW COMMANDS TO commands.cfg WITH PROPER ALIASES IN THE SAME FASHION!
694 void CommonCommand_(float request, entity caller)
698 case CMD_REQUEST_COMMAND:
701 return; // never fall through to usage
705 case CMD_REQUEST_USAGE:
707 print_to(caller, strcat("\nUsage:^3 ", GetCommandPrefix(caller), " "));
708 print_to(caller, " No arguments required.");
716 // ==================================
717 // Macro system for common commands
718 // ==================================
720 // Do not hard code aliases for these, instead create them in commands.cfg... also: keep in alphabetical order, please ;)
721 #define COMMON_COMMANDS(request,caller,arguments,command) \
722 COMMON_COMMAND("cvar_changes", CommonCommand_cvar_changes(request, caller), "Prints a list of all changed server cvars") \
723 COMMON_COMMAND("cvar_purechanges", CommonCommand_cvar_purechanges(request, caller), "Prints a list of all changed gameplay cvars") \
724 COMMON_COMMAND("info", CommonCommand_info(request, caller, arguments), "Request for unique server information set up by admin") \
725 COMMON_COMMAND("ladder", CommonCommand_ladder(request, caller), "Get information about top players if supported") \
726 COMMON_COMMAND("lsmaps", CommonCommand_lsmaps(request, caller), "List maps which can be used with the current game mode") \
727 COMMON_COMMAND("lsnewmaps", CommonCommand_lsnewmaps(request, caller), "List maps which have no records or are seemingly unplayed yet") \
728 COMMON_COMMAND("maplist", CommonCommand_maplist(request, caller), "Display full server maplist reply") \
729 COMMON_COMMAND("rankings", CommonCommand_rankings(request, caller), "Print information about rankings") \
730 COMMON_COMMAND("records", CommonCommand_records(request, caller), "List top 10 records for the current map") \
731 COMMON_COMMAND("teamstatus", CommonCommand_teamstatus(request, caller), "Show information about player and team scores") \
732 COMMON_COMMAND("time", CommonCommand_time(request, caller), "Print different formats/readouts of time") \
733 COMMON_COMMAND("timein", CommonCommand_timein(request, caller), "Resume the game from being paused with a timeout") \
734 COMMON_COMMAND("timeout", CommonCommand_timeout(request, caller), "Call a timeout which pauses the game for certain amount of time unless unpaused") \
735 COMMON_COMMAND("vote", VoteCommand(request, caller, arguments, command), "Request an action to be voted upon by players") \
736 COMMON_COMMAND("who", CommonCommand_who(request, caller, arguments), "Display detailed client information about all players") \
739 void CommonCommand_macro_help(entity caller)
741 #define COMMON_COMMAND(name,function,description) \
742 { print_to(caller, strcat(" ^2", name, "^7: ", description)); }
744 COMMON_COMMANDS(0, caller, 0, "")
745 #undef COMMON_COMMAND
750 float CommonCommand_macro_command(float argc, entity caller, string command)
752 #define COMMON_COMMAND(name,function,description) \
753 { if(name == strtolower(argv(0))) { function; return TRUE; } }
755 COMMON_COMMANDS(CMD_REQUEST_COMMAND, caller, argc, command)
756 #undef COMMON_COMMAND
761 float CommonCommand_macro_usage(float argc, entity caller)
763 #define COMMON_COMMAND(name,function,description) \
764 { if(name == strtolower(argv(1))) { function; return TRUE; } }
766 COMMON_COMMANDS(CMD_REQUEST_USAGE, caller, argc, "")
767 #undef COMMON_COMMAND
772 void CommonCommand_macro_write_aliases(float fh)
774 #define COMMON_COMMAND(name,function,description) \
775 { CMD_Write_Alias("qc_cmd_svcmd", name, description); }
777 COMMON_COMMANDS(0, world, 0, "")
778 #undef COMMON_COMMAND