inherit OBJECT_OBJ; object our_pub; /** @ignore yes */ void create() { ::create(); set_name("menu"); reset_get(); } /* create() */ /** @ignore yes */ void set_pub(object pub) { our_pub = pub; } /** @ignore yes */ object query_pub() { return our_pub; } /** @ignore yes */ void init() { add_command("list", "[menu]"); } /** @ignore yes */ int do_list() { write(our_pub->read()); TP->add_succeeded(TO); return 1; } /* do_list() */ /** @ignore yes */ mixed query_read_mess() { string mess; if( our_pub && stringp( mess = our_pub->read() ) && sizeof(mess) ) return ({ ({ mess, 0, "common", 1 }) }) + ::query_read_mess(); return ::query_read_mess(); } /* query_read_mess() */ /** @ignore yes */ string long( string str, int dark ) { return (string)our_pub->read(); }