inherit COMMAND_BASE;
int cmd(string which, string type) {
string t, disp;
if(!type) {
disp = "Your settings are: ";
foreach(t in TP->query_verbose_types())
disp += t + (TP->query_verbose(t) ? " (verbose) " : " (brief) ");
write(disp + "\n");
}
if(type == "all") {
foreach(t in TP->query_verbose_types())
TP->set_verbose(t, which == "verbose");
write("Ok\n");
} else if(member_array(type, TP->query_verbose_types()) != -1) {
TP->set_verbose(type, which == "verbose");
write("Ok\n");
}
return 1;
}
mixed *query_patterns() {
return ({ "<word'type'>", (: cmd("brief", $4[0]) :),
"", (: cmd("brief", 0) :),
});
} /* query_patterns() */
