/* -*- LPC -*- */
/*
* $Locker: $
* $Id: key.c,v 1.3 2002/06/03 14:58:57 ohdamn Exp $
* $Log: key.c,v $
* Revision 1.3 2002/06/03 14:58:57 ohdamn
* Fixed typo
*
* Revision 1.2 1999/10/28 02:24:03 ceres
* Standardised
* **S
*
* Revision 1.1 1998/01/06 04:58:17 ceres
* Initial revision
*
*/
inherit "std/object";
string type;
void set_type(string str) {
remove_adjective(type);
type = str;
add_adjective(type);
set_main_plural(type + " keys");
set_short(type + " key");
}
string query_type() {
return type;
}
void create() {
::create();
set_name("key");
set_main_plural("normal keys");
add_plural("keys");
type = "normal";
set_short(query_type() + " key");
set_long("A key. Wonder where it fits?\n");
set_weight(1);
adjust_money(1, "brass");
}
