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

// follow.c

inherit F_CLEAN_UP;

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

if( !arg ) return notify_fail("指令格式﹕follow <某人>|none。\n");

if( arg=="none")
if( me->query_leader() ) {
me->set_leader(0);
write("Ok.\n");
return 1;
} else {
write("你現在並沒有跟隨任何人。\n");
return 1;
}

if( !objectp(ob = present(arg, environment(me))) )
return notify_fail("這裡沒有 " + arg + "。\n");

        // add by dragoon
        if( userp(ob) && !interactive(ob) )
                return notify_fail("這人現在不在線上。\n");   

if( !ob->is_character() )
return notify_fail("什麼﹖跟隨...." + ob->name() + "。\n");

if( ob==me )
return notify_fail("跟隨自己﹖\n");

me->set_leader(ob);
message_vision("$N決定開始跟隨$n一起行動。\n", me, ob);

return 1;
}

int help (object me)
{
write(@HELP
指令格式﹕follow [<某人>|none]
 
這個指令讓你能跟隨某人或生物。
如果輸入 follow none 則停止跟隨。
 
HELP
);
return 1;
}