//闖王寶藏//by steel#include "ansi.h"#include <mimi.h>inherit ROOM;void create(){     set("short",HIR"闖王寶藏"NOR);     set("long",@LONG     你走進了一個密洞,洞內異常的干燥,四周光線昏暗,地上有幾具骷髏,周圍散落著一些兵刃,顯然這些人死前搏斗過。洞南邊的石壁(bi)上似乎刻著幾行小字。洞的北壁上好象有個轉盤(pan)似的。LONG       );                      set("item_desc",([        "bi":HIB"余自起事以來，縱橫天下十數載，誓殺天下之污吏。后茍居帝\n""位，然不意用人不淑，以至滿人犯吾華夏，心何憾哉！乃遣密臣藏寶于此\n""以備東山再起之用，然不知吾能再斬滿狗于漠北否。天若亡我，如之奈何!\n""此間金銀，皆取于中原之豪富，不可謂之不義。后世小子進得此洞，可盡\n""取之，以濟天下。若存私窺之心，必遭天遣！\n"NOR,   ]) );     set_temp("breaken",0);   setup();        }void init(){   add_action("do_break","break");   add_action("do_turn","turn");}int do_break(string str){   object ob;//room,gold   ob=this_player();     if(!str||str!="bi") return 0;    if(this_object()->query_temp("breaken")) return notify_fail("石壁已破!\n");   if((int)ob->query("neili")<1000)   {     message_vision(HIR"結果只聽一聲悶哼，$N被石壁的反彈力震得眼前一黑....\n"NOR, this_player());                this_player()->set("neili",0);                this_player()->unconcious();        return 0;    }   this_object()->set_temp("breaken",1);   message_vision(HIW"$N只聽一聲轟響，石壁被捅穿了，原來里面有一個大洞\n"NOR, this_player());   addmimi(this_player(),"ne",1,"闖王寶藏");if((int)this_player()->query("闖王")<1){this_player()->add("combat_exp",5000);this_player()->set("闖王",1);}    this_object()->set("exits/south", __DIR__"midong2");       this_player()->add("neili",-1000);  return 1;}int do_turn(string arg){    object ob;    ob=this_player();    if(!arg) return 0;    if(arg=="pan"){    this_object()->set("exits/up",__DIR__"bingya");    message_vision(YEL"$N聽見軋軋聲響，頭頂上露出個大洞!\n"NOR,ob);    call_out("close",5);    return 1;    }}int close(){   this_object()->delete("exits/up");   write(YEL"你聽見軋軋聲響，大洞又合上了!\n"NOR);   return 1;}