ES2 MUD LIB :: 東方故事二(ES2) 天朝帝國 mudlib 瀏覽展示

// ilist.c

inherit F_CLEAN_UP;

private string format_inherit_list(object ob, string *list, string *deeplist,
string indent, int recursive);

int main(object me, string arg)
{
int i;
object ob;
string *list, file, indent;

if( !arg ) return notify_fail("指令格式﹕ilist <物件或檔名>\n");

ob = present(arg, me);
if( !ob ) ob = present(arg, environment(me));
if( !ob ) ob = find_object(resolve_path(me->query("cwd"), arg));
if( !ob ) return notify_fail("沒有這樣物件或這樣物件沒有被載入。\n");

list = inherit_list(ob);
printf("%O﹕\n%s", ob,
format_inherit_list(ob, inherit_list(ob), deep_inherit_list(ob), "  ", 1));

return 1;
}

private string format_inherit_list(object ob, string *list, string *deeplist,
string indent, int recursive)
{
string msg;
object deep_ob;

msg = "";
for(int i=sizeof(list)-1; i>=0; i--) {
msg += indent + (member_array(list[i], deeplist)==-1? "□": (i==0 ? "└ " : "├ "))  + list[i];
switch(inherits(list[i], ob)) {
case 0: msg += " (最新版有﹐但此物件未繼承)"; break;
case 1: break;
case 2: msg += " (舊版)"; break;
}
if( deep_ob = find_object(list[i]) ) {
string *l;
msg += "\n";
if( recursive && sizeof(l = inherit_list(deep_ob)) )
msg += format_inherit_list(ob, l, deeplist, indent + (i==0 ? "  " : "│")+ "  ", 1);
}
else msg += " (未載入﹐可能繼承其他物件)\n";
}
return msg;
}

int help (object me)
{
        write(@HELP
指令格式: ilist <物件或檔名>
 
列出一個物件所繼承的所有物件。
 
HELP
);
        return 1;
}