pomiao.c

C实现的MUD,对大家基本入门网络游戏很有帮助!

// Room: /city/pomiao.c

#include <room.h>
inherit ROOM;

void create()
{
	set("short", "土地庙");
	set("long", @LONG
这是一间破破烂烂的土地庙，庙里破败不堪，土地神像推在一旁，梁上地
下也布满了灰尘。一看就知道已经很久没有人来清理过了。正中放着个大香案，
上面零乱地扔着几根吃剩下来的鸡骨头。也许正是因为隐蔽的原因吧，据说丐
帮江南分舵就被设在此处。香案黑洞洞的，好象下边有个大洞(dong)。
LONG );
	set("valid_startroom", 1);
//	set("no_clean_up", 0);
	set("exits", ([
		"west"  : "/d/gaibang/shoushe",
		"east"  : "/d/gaibang/sheyuan",
		"south" : __DIR__"ml4",
		"enter" : __DIR__"gbandao",
	]));
	set("objects", ([
            "quest/menpai/gaibang/shi" : 1,
		"quest/menpaijob/gaibang/lu" : 1,
		CLASS_D("gaibang") + "/peng" : 1,
		"/d/biwu/champion_gb":1
	]));
	create_door("enter", "小门", "out", DOOR_CLOSED);
	setup();
	"/clone/board/gaibang_b"->foo();
}

void init()
{
        add_action("do_enter", "enter");
        add_action("do_enter", "zuan");
}

int do_enter(string arg)
{
	object me;
	mapping fam;

	me = this_player();

	if( !arg || arg=="" ) return 0;

	if( arg=="dong" )
	{
		if( (fam = me->query("family")) && fam["family_name"] == "丐帮" ) 
		{
			message("vision",
				me->name() + "运起丐帮缩骨功，一弯腰往香案下的洞里钻了进去。\n",
				environment(me), ({me}) );
			me->move("/d/gaibang/undergb");
                	message("vision",
				me->name() + "从洞里走了进来。\n",
                		environment(me), ({me}) );
			return 1;
		}
		else 
			return notify_fail("这么小的洞，你钻得进去吗？\n");
	}
}	

int valid_leave(object me, string dir)
{
        mapping myfam;
        myfam = (mapping)me->query("family");

        if ((!myfam || myfam["family_name"] != "丐帮") &&
            (dir == "west" || dir == "east") &&
                objectp(present("lu youjiao", environment(me))))
           return notify_fail("鲁有脚拦住你说：此处乃本帮禁地，请止步。\n");

        return ::valid_leave(me, dir);
}