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

// ff.c

inherit F_CLEAN_UP;

int main(object me, string arg)
{
object ob;
string dest, func, file;

if(!arg || sscanf(arg, "%s %s", dest, func)!=2 )
return notify_fail("指令格式﹕ff <物件> <函數名稱>\n");

if( dest=="me" ) ob = me;
else if( dest=="here" ) ob = environment(me);
else ob = present(dest, me);

if( !ob ) ob = present(dest, environment(me));
if( !ob ) ob = find_object(resolve_path(me->query("cwd"), dest));
if( !ob ) return notify_fail("這裡沒有「" + dest + "」。\n");

file = function_exists(func, ob);
if(!file)
printf("物件 %O 並沒有定義 %s 這個函數。\n", ob, func);
else
printf("物件 %O 的 %s 函數定義在 %s.c。\n", ob, func, file );
return 1;
}

int help()
{
write(@TEXT
指令格式﹕ff <物件> <函數名稱>

這個指令可以找出指定物件中的某個函數定義在哪一個檔案裡。
TEXT
);
return 1;
}