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

/*  force.c

    Copyright (C) 1994-2000 Annihilator 

    This program is a part of ES2 mudlib. Permission is granted to use,
    modify, copy or distribute this program provided this copyright notice
    remains intact and subject to the restriction that this program MAY
    NOT be used in any way for monetary gain.

    Details of terms and conditions is available in the Copyright.ES2 file.
    If you don't receive this file along with this program, write to the
    primary author of ES2 mudlib: Annihilator 
*/

#include 

inherit F_CLEAN_UP;

static void create()
{
    seteuid(getuid());
}

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

    SECURED_ARCH_COMMAND;

    if( me != this_player(1) ) return 0;

    if( !arg || sscanf(arg, "%s to %s", dest, cmd) != 2 )
        return notify_fail("指令格式﹕force <某人> to <指令>\n");

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

    if( !ob->is_character() )
        return notify_fail("這個物件不能執行命令。\n");

    if( wiz_level(me) <= wiz_level(ob) )
        return notify_fail("你沒有強制" + ob->name() + "執行指令的權力。\n");

    if( userp(ob) )
        log_file("FORCE_PLAYER", sprintf("[%s] %s forces %s to %s\n",  
            ctime(time()), geteuid(me), geteuid(ob), cmd));

    return ob->force_me(cmd);
}

int help(object me)
{
    write(@Help
指令格式﹕force <某人> to <指令>

強迫某人做某事, 但你的巫師等級必須比對方高, 而且必須是在同一個房間裡。
Help
    );
    return 1;
}