// xiaowu2.c 蜂屋// Java Oct.10 1998#include <ansi.h>inherit ROOM;int do_zhujia();void create(){        set("short", "蜂屋");        set("long", @LONG這里是小龍女喂養(yǎng)訓(xùn)練玉蜂的蜂屋，屋角上掛著很多個(gè)六角形的蜂巢，還未進(jìn)門，就聞得到一陣蜂蜜的甜香。你似乎可以做玉蜂漿(zuofengjiang)LONG        );        set("exits", ([                "west" : __DIR__"xiaoting",                "east" : __DIR__"xiaowu3",        ]));        set("objects", ([                __DIR__"obj/fengjiang" : 3,                __DIR__"obj/fengmi" : 1,        ]));        setup();//        replace_program(ROOM);}void init(){        add_action("do_zhujia","zuofengjiang"); }int do_zhujia(){        object ob,me,ob1;        int b1,b2;        me=this_player();                if (!(ob = present("yu feng", this_player())) )                return notify_fail("你身上沒(méi)有采蜜玉蜂，如何做玉蜂漿？\n");        if( me->query("family/family_name") != "古墓派")           return notify_fail("你不是古墓派的人啊!\n");        if (!me->query_temp("gmjob"))           return notify_fail("你還是先去和小龍女打個(gè)招呼吧。\n");                         if ( (int)me->query("jing")<30)                return notify_fail("你的精力不足，無(wú)法做玉蜂漿。\n");if (me->query("combat_exp") >1000000){        if ( me->query_temp("gumukill") )        {                return notify_fail("不是告訴你林中有黑衣女子嗎？                去查一查她在干什么吧！\n");        }}        if( me->is_busy() )                return notify_fail("你現(xiàn)在很忙！不能做玉蜂漿！\n");        if ( (int)me->query("qi")<30)                return notify_fail("你的體力不足，無(wú)法做玉蜂漿。\n");  message_vision("$N從采蜜玉蜂身上,慢慢的做出玉蜂漿。\n",me);me->start_busy(1);      me->add("jing",-(10+random(10)));      me->add_temp("gmzyf",1);  if ( (int)me->query_temp("gmzyf")>(random(13)+8)) {        if (!(ob = present("yu feng", this_player())) )                return notify_fail("你身上沒(méi)有采蜜玉蜂，如何做玉蜂漿？\n");  message_vision(CYN"$N做了良久，終于將做出了一瓶玉蜂漿。\n"NOR,me);b1=random(80)+50;b2=random(50)+30;me->add("jing",-(me->query("jing")/12));me->add("combat_exp", b1);me->add("potential", b2);message_vision("$N的經(jīng)驗(yàn)加了"+chinese_number(b1)+"點(diǎn)。\n", me);message_vision("$N的潛能加了"+chinese_number(b2)+"點(diǎn)。\n", me);me->delete_temp("gmzyf");me->delete_temp("gmjob");destruct(ob);}      return 1;}