/* -*- LPC -*- */ /* * $Locker: $ * $Id: refer.c,v 1.5 2002/08/05 18:12:14 presto Exp $ * */ #include <login.h> #include <clubs.h> inherit "/cmds/base"; int cmd(string str) { string ret; str = lower_case(str); str = (string)this_player()->expand_nickname(str); ret = (string)"/secure/finger"->refer_info(str); if (ret) { this_player()->more_string( this_player()->fit_message(ret), "refer: "+str ); return 1; } add_failed_mess("No one by the name of " + str + " has " "ever visited " + mud_name() + ".\n"); return 0; } /* cmd() */ mixed *query_patterns() { return ({"<string'name'>", (: cmd($4[0]) :) }); } /* query_patterns() */