inherit ROOM;void create(){      set("short", "墓室");    set("long",@LONG這是一間墓室。墓室頂上有一顆特別大的明珠閃閃發光。中央放著一副玉棺，周圍則堆放了無數的奇珍異玩。一張供桌擺在玉棺前，桌上放著一個香爐及一個盤子 (panzi)。墓室對面掛這一幅青年少婦的畫像。畫像上的少婦巧笑嫣然，和慘白的玉棺及碧油油的珠光形成了一幅奇詭的畫面。忽然一陣陰風吹過，你不禁打了一個寒顫。LONG);	set("item_desc", ([		"panzi" : @TEXT    你仔細看了一下盤子，這是一個玉盤，里面放著數顆晶瑩的    明珠。這些明珠似乎可以拿出來(pick zhu)。TEXT	]) );	set("exits", ([		"up" : __DIR__"mudao",	]));	set("no_clean_up", 0);	setup();}void init(){           object me = this_player();            add_action("do_pick","pick");            me->set_temp("taohua/墓室", 0); }void reset(){        ::reset();        set("pick_available" , 6);}int do_pick(string arg){       object me,obj,killer;       me = this_player();       if( !arg || arg!="zhu" )              return notify_fail("你要拿什么? \n");       if( me->query("family/family_name") == "桃花島" )              return notify_fail("你是桃花島弟子, 豈能偷島主的東西? \n");       if ( query("pick_available") )       {         message_vision("$N從盤子里拿出來一顆明珠。\n",this_player() );         obj = new (__DIR__"obj/mingzhu");         obj->move(me);         add("pick_available", -1);         me->start_busy(3);         if ( me->query_temp("taohua/墓室") ) return 1;         killer = new (__DIR__"npc/shoumu") ;         message_vision("\n突然墓室中打開了一道暗門，從里面走出一個守墓家奴。\n"         "對$N喝道：賊子敢爾！連夫人的東西你也敢動！\n", me);         killer->move(environment(me));         killer->kill_ob(me);         me->set_temp("taohua/墓室", 1);       }       return 1;}