sgyhole1.c

来自「C实现的MUD,对大家基本入门网络游戏很有帮助!」· C语言 代码 · 共 79 行

// sgyhole1.c
// By Hop, 97.04.30
#include <ansi.h>
inherit ROOM;

void create()
{
        set("short", "山洞");
        set("long", @LONG
山洞内有块光溜溜的大石，不知道曾有多少华山派的前辈在此思过面
壁，以致这块大石竟被坐得滑溜。石壁(wall)左侧刻着「风清扬」三个大
字，是以利器所刻，笔划苍劲，深有半寸。这三字刻得劲力非凡，想必其
人武功一定十分了得。
LONG );
        set("objects", ([
//         CLASS_D("huashan")+"/linghu" : 1,
            "/d/heimuya/npc/linghu" : 1,
//         __DIR__"npc/ling-huchong.c" : 1,
        ]));
        set("exits", ([ /* sizeof() == 2 */
            "out" : __DIR__"siguoya",
        ]));
        set("item_desc", ([
            "wall" : "一面很厚的石壁。\n"
        ]) );
//        set("no_clean_up", 0);
        setup();
}

void init()
{
        add_action("do_break", "break");
}
int do_break(string arg)
{
    int n;
    object weapon,me=this_player();
    mapping fam;

    if ((fam = me->query("family")) && (fam["family_name"] != "华山派")
       &&  objectp(present("ling huchong", environment(me)))
       || !arg || arg!="wall"
       ) return notify_fail("令狐冲说:你这是干嘛？\n");
    if (!objectp(weapon = me->query_temp("weapon"))
       || (string)weapon->query("skill_type") != "sword")
       return notify_fail("你一掌打在石壁，满手都是鲜血。\n");

    message_vision(HIC
"$N走到石壁前，拔出腰间所悬长剑，运劲向石壁刺了过去！\n"NOR,me);

    if (me->query("neili") < 200)
    {
       message_vision(HIC
"结果只听一声闷哼，$N被石壁的反弹力震得眼前一黑....\n"NOR,me);
       me->set("neili",0);
       me->unconcious();
       return 1;
    }
    message_vision(HIC
"$N只听一声轰响，石壁被捅穿了，原来里面有一个大洞。！\n"NOR,me);
    set("exits/enter",__DIR__"sgyhole");
    me->add("neili",-200);
    remove_call_out("close");
    call_out("close", 5, this_object());
//    remove_call_out("close_out");
//    call_out("close_out", 3);
    return 1;
}
void close_out()
{
    if (query("exits/enter")) delete("exits/enter");
}

void close(object room)
{
    message("vision","崖上忽然掉下来一块巨石，将洞口封了个严严实实。\n", room);
    room->delete("exits/enter");
}