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

// open.c

#include 

inherit F_CLEAN_UP;

int main(object me, string arg)
{
mapping doors;
string *dirs, dir, key;
object key_ob;
int i;

if( !arg ) return notify_fail("你要鎖上什麼東西？\n");
if( sscanf(arg, "%s with %s", arg, key) != 2 )
return notify_fail("你要用什麼東西上鎖？\n");
if( !objectp(key_ob = present(key, me)) )
return notify_fail("你身上沒有這種東西。\n");


doors = environment(me)->query_doors();
if( mapp(doors) ) {
dirs = keys(doors);
if( member_array(arg, dirs)!=-1 ) dir = arg;
else for(i=0; i if( arg==doors[dirs[i]]["name"] || member_array(arg, doors[dirs[i]]["id"])!=-1 ) {
dir = dirs[i];
break;
}
if( !dir ) return notify_fail("你要鎖上什麼東西﹖\n");

if( environment(me)->lock_door(dir, key_ob->query("lock")) ) {
message_vision("$N將" + doors[dir]["name"] + "鎖上。\n", me);
return 1;
}
}

return 0;
}

int help(object me)
{
        write(@HELP
指令格式 : lock <物品或門> with <鑰匙..>
 
這個指令可以讓你鎖上某些門或容器。
 
HELP
    );
    return 1;
}