/** * Command to allow Lords or higher to check someone's tell history. * Shiannar: 31/08/01. */ inherit COMMAND_BASE; int tell_history(string arg, int brief, object player) { function bing; bing = player->get_htell_func(); tell_object(player, capitalize(TP->query_name())+" checks your " "tell history.\n"); TP->event_inform(filter(livings(), (:lordp($1):)), TP->query_cap_name()+ " checks "+player->query_cap_name()+"'s tell history", "lord"); return evaluate(bing, arg, brief); } mixed *query_patterns() { return ({ "tell brief search <word'name'> of <indirect:player'player'>", (: tell_history(lower_case($4[0]), 1, $1[0]) :), "tell search <string'name'> of <indirect:player'player'>", (: tell_history(lower_case($4[0]), !TP->query_verbose("htell"), $1[0]) :), "tell brief of <indirect:player'player'>", (: tell_history("", 1, $1[0]) :), "tell verbose of <indirect:player'player'>", (: tell_history("", 0, $1[0]) :), "tell of <indirect:player'player'>", (: tell_history("", !TP->query_verbose("htell"), $1[0]) :), }); }