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"); return 1; } if(type == "all") { foreach(t in TP->query_verbose_types()) { TP->set_verbose(t, which == "verbose"); } write("Ok\n"); return 1; } 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("verbose", $4[0]) :), "", (: cmd("verbose", 0) :), }); } /* query_patterns() */