/* -*- LPC -*- */ /* * $Locker: $ * $Id: whois.c,v 1.5 2000/04/23 03:18:23 presto Exp $ * $Log: whois.c,v $ * Revision 1.5 2000/04/23 03:18:23 presto * Added an expand_nickname call so it works with nicknames * * Revision 1.4 1998/10/11 01:59:20 presto * Fixed so whois on yourself works again. Tired of the complaints. :( * * Revision 1.3 1998/09/17 02:21:15 presto * changed cmd pattern from <indirect:any-living> to <indirect:player> * Removed check for interactive() on the matched object * * Revision 1.2 1998/04/14 02:30:40 pinkfish * Clean up a little. * * Revision 1.1 1998/01/06 05:29:43 ceres * Initial revision * */ /* whois command, trial out by Turrican for a commands daemon. */ #include <command.h> inherit "/cmds/base"; mixed cmd(object *obs) { write("That is " + (string)(DIR_PLAYER_CMDS +"/who")-> who_line(this_player()->expand_nickname(obs[0]), this_player()->query_creator(), this_player()->query_cols()) +".\n" ); return 1; } /* cmd() */ mixed *query_patterns() { return ({ "<indirect:player>", (: cmd($1) :), this_player()->query_name(), (: cmd(({this_player()})) :) }); } /* query_patterns() */