/* -*- LPC -*- */
/*
* $Locker: $
* $Id: lang_uages.c,v 1.1 1998/01/06 05:29:43 ceres Exp $
* $Log: lang_uages.c,v $
* Revision 1.1 1998/01/06 05:29:43 ceres
* Initial revision
*
*/
#include <move_failures.h>
#include <language.h>
inherit "cmds/base";
#define TP this_player()
mixed cmd(object *obs, string indir, string str) {
int i;
string *langs;
langs = LANGUAGE_HAND->query_languages();
for (i = 0; i < sizeof(langs); i++) {
if (TP->query_skill(
LANGUAGE_HAND->query_language_spoken_skill(langs[i])) > 1 ||
TP->query_skill(
LANGUAGE_HAND->query_language_written_skill(langs[i])) > 1) {
} else {
langs = langs[0..i-1] + langs[i+1..];
i--;
}
}
write("You can currently speak " +( TP->query_womens_day()?"wommon":
implode(langs, ", ") ) +" and grunt.\n");
return 1;
}
