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

/*  dest.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;

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

int main(object me, string arg)
{
    string option, target, msg;
    object obj;

    SECURED_WIZARD_COMMAND;

    seteuid(geteuid(this_player(1)));

    if (!arg) return notify_fail("指令格式 : dest <物件之名稱或檔名>\n" );

    if( sscanf(arg, "-%s %s", option, target)!=2 ) target = arg;

    if( option == "r" ) {
if( wizhood(me)=="(admin)" ) seteuid(ROOT_UID);
else return notify_fail("你沒有這個權限。\n");
    }

    obj = find_object(target);
    if (!obj) obj = present(target, me);
    if (!obj) obj = present(target, environment(me));
    if (!obj) obj = find_object( resolve_path(me->query("cwd"), target) );
    if (!obj) return notify_fail("沒有這樣物件....。\n");

    if( environment(me)==environment(obj) )
    if( !stringp(msg = me->query("env/msg_dest")) )
        msg = "$N召喚出一個黑洞﹐將$n吞沒了。\n";
    else
        message_vision(msg + "\n", me, obj);

    destruct(obj);
    if(obj) write("你無法將這個物件強制摧毀。\n");
    else write("Ok.\n");

    return 1;
}

int help(object me)
{
    write(@HELP
指令格式 : dest [-r] <物件之名稱或檔名>

利用此一指令可將一個物件(object)或物件定義(class)從記憶體中清除﹐若清除物
件定義(即﹕指定檔名的情況下)則下一次參考到這個物件的時候會重新將它編譯。

具有 (admin) 身分的巫師可以用 -r 選項以 ROOT_UID 身分來清除被保護的物件如
使用者。

若物件在被清除過程中發生了錯誤﹐除使用者以外的物件仍然會被強制清除( 使用者
物件只有在使用 ROOT_UID 身份時才能強制清除 )﹐而其錯誤訊息會被寫至
/log/destruct 中。
  
參考資料﹕ destruct()
HELP
    );
    return 1;
}