/* -*- LPC -*- */ /* * $Locker: $ * $Id: dnickname.c,v 1.2 2002/02/23 02:15:12 presto Exp $ * $Log: dnickname.c,v $ * Revision 1.2 2002/02/23 02:15:12 presto * Added query_patterns() * * Revision 1.1 1998/01/06 05:29:43 ceres * Initial revision * */ /* command, trial out by Turrican for a commands daemon. */ inherit "cmds/base"; mixed cmd(string str) { mapping map_nicknames; map_nicknames = this_player()->query_nicknames(); if (!map_nicknames) map_nicknames = ([ ]); if (!map_nicknames[str]) { notify_fail("That nickname does not exist.\n"); return 0; } map_nicknames = m_delete(map_nicknames, str); this_player()->set_nicknames(map_nicknames); write("Deleted nickname \"" + str + "\".\n"); return 1; } mixed *query_patterns() { return ({ "<string'nickname'>", (: cmd($4[0]) :) }); }