/*
* A note that you can tear apart
* Created for the add_command section
* of the cre school.
* 27 Feb '02 by Avelan
*/
inherit OBJECT_OBJ;
int do_tear();
void setup(){
set_name("note");
set_short("small note");
add_adjective(({"small"}));
set_long("This is a small note that says:\n"
"'tear note' to tear this apart.\n");
} /* setup() */
void init(){
add_command("tear");
} /* init() */
int do_tear(){
add_succeeded_mess("$N $V $D\n");
TO->move("/room/rubbish");
return 1;
} /* do_tear() */