/* -*- LPC -*- */
/*
* $Locker: $
* $Id: brief.c,v 1.4 2000/09/27 01:36:02 presto Exp $
* $Log: brief.c,v $
* Revision 1.4 2000/09/27 01:36:02 presto
* Fixed printing "No such option" when it shouldn't
*
* Revision 1.3 2000/09/02 22:28:22 ceres
* Added error mess
*
* Revision 1.2 1999/02/09 01:36:59 ceres
* Forgot to remove some debug info
*
* Revision 1.4 1999/02/09 00:23:41 ceres
* Increased the max email address length to 50.
*
* Revision 1.2 1999/02/03 00:52:50 pinkfish
* Fix it up so you can only enter certain sized bits of data into the fields.
*
* Revision 1.1 1998/01/06 05:29:43 ceres
* Initial revision
*
*/
inherit "/cmds/base";
#define TP this_player()
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");
}
else 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");
} else {
write("No such option.\n");
}
return 1;
}
mixed *query_patterns() {
return ({ "<word'type'>", (: cmd("brief", $4[0]) :),
"", (: cmd("brief", 0) :),
});
} /* query_patterns() */
