inherit COMMAND_BASE;
/**
* This method allows a single alias to be removed.
* Only doable by self or a lord
* @param str the name of the alias to remove
* @return 1 on success, 0 on failure
*/
varargs int unalias(string str, object who ) {
if (!who) who = this_player();
if (!who->is_alias(str)) {
add_failed_mess("The alias '" + str +
"' does not exist, cannot unalias.\n");
return 0;
}
if (who->remove_player_alias(str)) {
write("Successfully unaliased '" + str + "'.\n");
return 1;
} else {
add_failed_mess("Unable to unalias '" + str + "'.\n");
return 0;
}
} /* unalias() */
mixed *query_patterns() {
return ({
"<word'alias'>", (: unalias($4[0]) :),
});
} /* query_patterns() */
