// Taken from Forbiden Forest
// Converted to Divided Sky By Shaydz 3/21/02 2:25PM
inherit COMMAND_BASE;
protected int cmd(string str) {
object webster;
object user;
string *argv, comm;
user = TP;
if ((!str) || (str == ""))
return 0;
argv = explode(str, " ");
comm = lower_case(argv[0]);
switch (comm) {
case "d": comm = "define"; break;
case "m": comm = "match"; break;
case "s": comm = "show"; break;
}
if ((comm != "define") && (comm != "match") && (comm != "show"))
return 0;
if (comm == "define")
if (sizeof(argv) == 2)
argv = ({ argv[0], "wn", argv[1] });
if (comm == "match")
if (sizeof(argv) == 3)
argv = ({ argv[0], "wn", argv[1], argv[2] });
if (!(webster = load_object(WEBSTER_H)))
return notify_fail("Webster handler could not be loaded.\n");
comm += " " + implode(argv[1..], " ");
webster -> protocol(comm, user);
tell_object(user, "%^BOLD%^Issuing request: " + comm + "%^RESET%^\n\n");
return 1;
} /* cmd() */
/** @ignore yes */
mixed query_patterns() {
return ({ "<string:'d*efine ([database]|[*]) <word>'>", (: cmd($4[0]) :),
"<string:'m*atch ([database]|[*]) <strategy> <word>'>", (: cmd($4[0]) :),
"<string:'s*how (db|databases|strat*egies)'>", (: cmd($4[0]) :), });
} /* query_patterns() */
