/**
* Command to allow admin to check say history. Admin only as
* say history is usually considered much more private.
* NB: This must always generate an inform. Never remove that segment,
* for reasons of privacy.
*/
inherit COMMAND_BASE;
int say_history(string arg, int brief, object player) {
function bing;
bing = player->get_hsay_func();
tell_object(player, capitalize(TP->query_name())+" checks your "
"say history.\n");
TP->event_inform(filter(livings(), (:adminp($1):)), TP->query_cap_name()+
" checks "+player->query_cap_name()+"'s say history", "admin");
return evaluate(bing, arg, brief);
}
mixed *query_patterns() {
return ({
"say brief search <word'name'> of <indirect:player'player'>",
(: say_history(lower_case($4[0]), 1, $1[0]) :),
"say search <string'name'> of <indirect:player'player'>",
(: say_history(lower_case($4[0]), !TP->query_verbose("hsay"), $1[0]) :),
"say brief of <indirect:player'player'>",
(: say_history("", 1, $1[0]) :),
"say verbose of <indirect:player'player'>",
(: say_history("", 0, $1[0]) :),
"say of <indirect:player'player'>",
(: say_history("", !TP->query_verbose("hsay"), $1[0]) :),
});
}
